{- This file was auto-generated from temporal/sdk/core/activity_result/activity_result.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult (
        ActivityExecutionResult(), ActivityExecutionResult'Status(..),
        _ActivityExecutionResult'Completed,
        _ActivityExecutionResult'Failed,
        _ActivityExecutionResult'Cancelled,
        _ActivityExecutionResult'WillCompleteAsync, ActivityResolution(),
        ActivityResolution'Status(..), _ActivityResolution'Completed,
        _ActivityResolution'Failed, _ActivityResolution'Cancelled,
        _ActivityResolution'Backoff, Cancellation(), DoBackoff(),
        Failure(), Success(), WillCompleteAsync()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Duration
import qualified Proto.Google.Protobuf.Timestamp
import qualified Proto.Temporal.Api.Common.V1.Message
import qualified Proto.Temporal.Api.Failure.V1.Message
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'status' @:: Lens' ActivityExecutionResult (Prelude.Maybe ActivityExecutionResult'Status)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'completed' @:: Lens' ActivityExecutionResult (Prelude.Maybe Success)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.completed' @:: Lens' ActivityExecutionResult Success@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'failed' @:: Lens' ActivityExecutionResult (Prelude.Maybe Failure)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.failed' @:: Lens' ActivityExecutionResult Failure@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'cancelled' @:: Lens' ActivityExecutionResult (Prelude.Maybe Cancellation)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.cancelled' @:: Lens' ActivityExecutionResult Cancellation@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'willCompleteAsync' @:: Lens' ActivityExecutionResult (Prelude.Maybe WillCompleteAsync)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.willCompleteAsync' @:: Lens' ActivityExecutionResult WillCompleteAsync@ -}
data ActivityExecutionResult
  = ActivityExecutionResult'_constructor {ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status :: !(Prelude.Maybe ActivityExecutionResult'Status),
                                          ActivityExecutionResult -> FieldSet
_ActivityExecutionResult'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ActivityExecutionResult -> ActivityExecutionResult -> Bool
(ActivityExecutionResult -> ActivityExecutionResult -> Bool)
-> (ActivityExecutionResult -> ActivityExecutionResult -> Bool)
-> Eq ActivityExecutionResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
== :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
$c/= :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
/= :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
Prelude.Eq, Eq ActivityExecutionResult
Eq ActivityExecutionResult =>
(ActivityExecutionResult -> ActivityExecutionResult -> Ordering)
-> (ActivityExecutionResult -> ActivityExecutionResult -> Bool)
-> (ActivityExecutionResult -> ActivityExecutionResult -> Bool)
-> (ActivityExecutionResult -> ActivityExecutionResult -> Bool)
-> (ActivityExecutionResult -> ActivityExecutionResult -> Bool)
-> (ActivityExecutionResult
    -> ActivityExecutionResult -> ActivityExecutionResult)
-> (ActivityExecutionResult
    -> ActivityExecutionResult -> ActivityExecutionResult)
-> Ord ActivityExecutionResult
ActivityExecutionResult -> ActivityExecutionResult -> Bool
ActivityExecutionResult -> ActivityExecutionResult -> Ordering
ActivityExecutionResult
-> ActivityExecutionResult -> ActivityExecutionResult
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 :: ActivityExecutionResult -> ActivityExecutionResult -> Ordering
compare :: ActivityExecutionResult -> ActivityExecutionResult -> Ordering
$c< :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
< :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
$c<= :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
<= :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
$c> :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
> :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
$c>= :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
>= :: ActivityExecutionResult -> ActivityExecutionResult -> Bool
$cmax :: ActivityExecutionResult
-> ActivityExecutionResult -> ActivityExecutionResult
max :: ActivityExecutionResult
-> ActivityExecutionResult -> ActivityExecutionResult
$cmin :: ActivityExecutionResult
-> ActivityExecutionResult -> ActivityExecutionResult
min :: ActivityExecutionResult
-> ActivityExecutionResult -> ActivityExecutionResult
Prelude.Ord)
instance Prelude.Show ActivityExecutionResult where
  showsPrec :: Int -> ActivityExecutionResult -> ShowS
showsPrec Int
_ ActivityExecutionResult
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ActivityExecutionResult -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ActivityExecutionResult
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data ActivityExecutionResult'Status
  = ActivityExecutionResult'Completed !Success |
    ActivityExecutionResult'Failed !Failure |
    ActivityExecutionResult'Cancelled !Cancellation |
    ActivityExecutionResult'WillCompleteAsync !WillCompleteAsync
  deriving stock (Int -> ActivityExecutionResult'Status -> ShowS
[ActivityExecutionResult'Status] -> ShowS
ActivityExecutionResult'Status -> String
(Int -> ActivityExecutionResult'Status -> ShowS)
-> (ActivityExecutionResult'Status -> String)
-> ([ActivityExecutionResult'Status] -> ShowS)
-> Show ActivityExecutionResult'Status
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ActivityExecutionResult'Status -> ShowS
showsPrec :: Int -> ActivityExecutionResult'Status -> ShowS
$cshow :: ActivityExecutionResult'Status -> String
show :: ActivityExecutionResult'Status -> String
$cshowList :: [ActivityExecutionResult'Status] -> ShowS
showList :: [ActivityExecutionResult'Status] -> ShowS
Prelude.Show, ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
(ActivityExecutionResult'Status
 -> ActivityExecutionResult'Status -> Bool)
-> (ActivityExecutionResult'Status
    -> ActivityExecutionResult'Status -> Bool)
-> Eq ActivityExecutionResult'Status
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
== :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
$c/= :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
/= :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
Prelude.Eq, Eq ActivityExecutionResult'Status
Eq ActivityExecutionResult'Status =>
(ActivityExecutionResult'Status
 -> ActivityExecutionResult'Status -> Ordering)
-> (ActivityExecutionResult'Status
    -> ActivityExecutionResult'Status -> Bool)
-> (ActivityExecutionResult'Status
    -> ActivityExecutionResult'Status -> Bool)
-> (ActivityExecutionResult'Status
    -> ActivityExecutionResult'Status -> Bool)
-> (ActivityExecutionResult'Status
    -> ActivityExecutionResult'Status -> Bool)
-> (ActivityExecutionResult'Status
    -> ActivityExecutionResult'Status
    -> ActivityExecutionResult'Status)
-> (ActivityExecutionResult'Status
    -> ActivityExecutionResult'Status
    -> ActivityExecutionResult'Status)
-> Ord ActivityExecutionResult'Status
ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Ordering
ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> ActivityExecutionResult'Status
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Ordering
compare :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Ordering
$c< :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
< :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
$c<= :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
<= :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
$c> :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
> :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
$c>= :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
>= :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> Bool
$cmax :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> ActivityExecutionResult'Status
max :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> ActivityExecutionResult'Status
$cmin :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> ActivityExecutionResult'Status
min :: ActivityExecutionResult'Status
-> ActivityExecutionResult'Status -> ActivityExecutionResult'Status
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ActivityExecutionResult "maybe'status" (Prelude.Maybe ActivityExecutionResult'Status) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'status"
-> (Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> ActivityExecutionResult
-> f ActivityExecutionResult
fieldOf Proxy# "maybe'status"
_
    = ((Maybe ActivityExecutionResult'Status
  -> f (Maybe ActivityExecutionResult'Status))
 -> ActivityExecutionResult -> f ActivityExecutionResult)
-> ((Maybe ActivityExecutionResult'Status
     -> f (Maybe ActivityExecutionResult'Status))
    -> Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> (Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> ActivityExecutionResult
-> f ActivityExecutionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityExecutionResult -> Maybe ActivityExecutionResult'Status)
-> (ActivityExecutionResult
    -> Maybe ActivityExecutionResult'Status -> ActivityExecutionResult)
-> Lens
     ActivityExecutionResult
     ActivityExecutionResult
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status
           (\ ActivityExecutionResult
x__ Maybe ActivityExecutionResult'Status
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'status = y__}))
        (Maybe ActivityExecutionResult'Status
 -> f (Maybe ActivityExecutionResult'Status))
-> Maybe ActivityExecutionResult'Status
-> f (Maybe ActivityExecutionResult'Status)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityExecutionResult "maybe'completed" (Prelude.Maybe Success) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'completed"
-> (Maybe Success -> f (Maybe Success))
-> ActivityExecutionResult
-> f ActivityExecutionResult
fieldOf Proxy# "maybe'completed"
_
    = ((Maybe ActivityExecutionResult'Status
  -> f (Maybe ActivityExecutionResult'Status))
 -> ActivityExecutionResult -> f ActivityExecutionResult)
-> ((Maybe Success -> f (Maybe Success))
    -> Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> (Maybe Success -> f (Maybe Success))
-> ActivityExecutionResult
-> f ActivityExecutionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityExecutionResult -> Maybe ActivityExecutionResult'Status)
-> (ActivityExecutionResult
    -> Maybe ActivityExecutionResult'Status -> ActivityExecutionResult)
-> Lens
     ActivityExecutionResult
     ActivityExecutionResult
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status
           (\ ActivityExecutionResult
x__ Maybe ActivityExecutionResult'Status
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'status = y__}))
        ((Maybe ActivityExecutionResult'Status -> Maybe Success)
-> (Maybe ActivityExecutionResult'Status
    -> Maybe Success -> Maybe ActivityExecutionResult'Status)
-> Lens
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
     (Maybe Success)
     (Maybe Success)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityExecutionResult'Status
x__
              -> case Maybe ActivityExecutionResult'Status
x__ of
                   (Prelude.Just (ActivityExecutionResult'Completed Success
x__val))
                     -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
x__val
                   Maybe ActivityExecutionResult'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityExecutionResult'Status
_ Maybe Success
y__ -> (Success -> ActivityExecutionResult'Status)
-> Maybe Success -> Maybe ActivityExecutionResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Success -> ActivityExecutionResult'Status
ActivityExecutionResult'Completed Maybe Success
y__))
instance Data.ProtoLens.Field.HasField ActivityExecutionResult "completed" Success where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "completed"
-> (Success -> f Success)
-> ActivityExecutionResult
-> f ActivityExecutionResult
fieldOf Proxy# "completed"
_
    = ((Maybe ActivityExecutionResult'Status
  -> f (Maybe ActivityExecutionResult'Status))
 -> ActivityExecutionResult -> f ActivityExecutionResult)
-> ((Success -> f Success)
    -> Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> (Success -> f Success)
-> ActivityExecutionResult
-> f ActivityExecutionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityExecutionResult -> Maybe ActivityExecutionResult'Status)
-> (ActivityExecutionResult
    -> Maybe ActivityExecutionResult'Status -> ActivityExecutionResult)
-> Lens
     ActivityExecutionResult
     ActivityExecutionResult
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status
           (\ ActivityExecutionResult
x__ Maybe ActivityExecutionResult'Status
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'status = y__}))
        (((Maybe Success -> f (Maybe Success))
 -> Maybe ActivityExecutionResult'Status
 -> f (Maybe ActivityExecutionResult'Status))
-> ((Success -> f Success) -> Maybe Success -> f (Maybe Success))
-> (Success -> f Success)
-> Maybe ActivityExecutionResult'Status
-> f (Maybe ActivityExecutionResult'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityExecutionResult'Status -> Maybe Success)
-> (Maybe ActivityExecutionResult'Status
    -> Maybe Success -> Maybe ActivityExecutionResult'Status)
-> Lens
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
     (Maybe Success)
     (Maybe Success)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityExecutionResult'Status
x__
                 -> case Maybe ActivityExecutionResult'Status
x__ of
                      (Prelude.Just (ActivityExecutionResult'Completed Success
x__val))
                        -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
x__val
                      Maybe ActivityExecutionResult'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityExecutionResult'Status
_ Maybe Success
y__ -> (Success -> ActivityExecutionResult'Status)
-> Maybe Success -> Maybe ActivityExecutionResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Success -> ActivityExecutionResult'Status
ActivityExecutionResult'Completed Maybe Success
y__))
           (Success -> Lens' (Maybe Success) Success
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Success
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ActivityExecutionResult "maybe'failed" (Prelude.Maybe Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failed"
-> (Maybe Failure -> f (Maybe Failure))
-> ActivityExecutionResult
-> f ActivityExecutionResult
fieldOf Proxy# "maybe'failed"
_
    = ((Maybe ActivityExecutionResult'Status
  -> f (Maybe ActivityExecutionResult'Status))
 -> ActivityExecutionResult -> f ActivityExecutionResult)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> (Maybe Failure -> f (Maybe Failure))
-> ActivityExecutionResult
-> f ActivityExecutionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityExecutionResult -> Maybe ActivityExecutionResult'Status)
-> (ActivityExecutionResult
    -> Maybe ActivityExecutionResult'Status -> ActivityExecutionResult)
-> Lens
     ActivityExecutionResult
     ActivityExecutionResult
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status
           (\ ActivityExecutionResult
x__ Maybe ActivityExecutionResult'Status
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'status = y__}))
        ((Maybe ActivityExecutionResult'Status -> Maybe Failure)
-> (Maybe ActivityExecutionResult'Status
    -> Maybe Failure -> Maybe ActivityExecutionResult'Status)
-> Lens
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityExecutionResult'Status
x__
              -> case Maybe ActivityExecutionResult'Status
x__ of
                   (Prelude.Just (ActivityExecutionResult'Failed Failure
x__val))
                     -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                   Maybe ActivityExecutionResult'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityExecutionResult'Status
_ Maybe Failure
y__ -> (Failure -> ActivityExecutionResult'Status)
-> Maybe Failure -> Maybe ActivityExecutionResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Failure -> ActivityExecutionResult'Status
ActivityExecutionResult'Failed Maybe Failure
y__))
instance Data.ProtoLens.Field.HasField ActivityExecutionResult "failed" Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failed"
-> (Failure -> f Failure)
-> ActivityExecutionResult
-> f ActivityExecutionResult
fieldOf Proxy# "failed"
_
    = ((Maybe ActivityExecutionResult'Status
  -> f (Maybe ActivityExecutionResult'Status))
 -> ActivityExecutionResult -> f ActivityExecutionResult)
-> ((Failure -> f Failure)
    -> Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> (Failure -> f Failure)
-> ActivityExecutionResult
-> f ActivityExecutionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityExecutionResult -> Maybe ActivityExecutionResult'Status)
-> (ActivityExecutionResult
    -> Maybe ActivityExecutionResult'Status -> ActivityExecutionResult)
-> Lens
     ActivityExecutionResult
     ActivityExecutionResult
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status
           (\ ActivityExecutionResult
x__ Maybe ActivityExecutionResult'Status
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'status = y__}))
        (((Maybe Failure -> f (Maybe Failure))
 -> Maybe ActivityExecutionResult'Status
 -> f (Maybe ActivityExecutionResult'Status))
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Maybe ActivityExecutionResult'Status
-> f (Maybe ActivityExecutionResult'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityExecutionResult'Status -> Maybe Failure)
-> (Maybe ActivityExecutionResult'Status
    -> Maybe Failure -> Maybe ActivityExecutionResult'Status)
-> Lens
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityExecutionResult'Status
x__
                 -> case Maybe ActivityExecutionResult'Status
x__ of
                      (Prelude.Just (ActivityExecutionResult'Failed Failure
x__val))
                        -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                      Maybe ActivityExecutionResult'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityExecutionResult'Status
_ Maybe Failure
y__ -> (Failure -> ActivityExecutionResult'Status)
-> Maybe Failure -> Maybe ActivityExecutionResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Failure -> ActivityExecutionResult'Status
ActivityExecutionResult'Failed Maybe Failure
y__))
           (Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ActivityExecutionResult "maybe'cancelled" (Prelude.Maybe Cancellation) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cancelled"
-> (Maybe Cancellation -> f (Maybe Cancellation))
-> ActivityExecutionResult
-> f ActivityExecutionResult
fieldOf Proxy# "maybe'cancelled"
_
    = ((Maybe ActivityExecutionResult'Status
  -> f (Maybe ActivityExecutionResult'Status))
 -> ActivityExecutionResult -> f ActivityExecutionResult)
-> ((Maybe Cancellation -> f (Maybe Cancellation))
    -> Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> (Maybe Cancellation -> f (Maybe Cancellation))
-> ActivityExecutionResult
-> f ActivityExecutionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityExecutionResult -> Maybe ActivityExecutionResult'Status)
-> (ActivityExecutionResult
    -> Maybe ActivityExecutionResult'Status -> ActivityExecutionResult)
-> Lens
     ActivityExecutionResult
     ActivityExecutionResult
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status
           (\ ActivityExecutionResult
x__ Maybe ActivityExecutionResult'Status
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'status = y__}))
        ((Maybe ActivityExecutionResult'Status -> Maybe Cancellation)
-> (Maybe ActivityExecutionResult'Status
    -> Maybe Cancellation -> Maybe ActivityExecutionResult'Status)
-> Lens
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
     (Maybe Cancellation)
     (Maybe Cancellation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityExecutionResult'Status
x__
              -> case Maybe ActivityExecutionResult'Status
x__ of
                   (Prelude.Just (ActivityExecutionResult'Cancelled Cancellation
x__val))
                     -> Cancellation -> Maybe Cancellation
forall a. a -> Maybe a
Prelude.Just Cancellation
x__val
                   Maybe ActivityExecutionResult'Status
_otherwise -> Maybe Cancellation
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityExecutionResult'Status
_ Maybe Cancellation
y__ -> (Cancellation -> ActivityExecutionResult'Status)
-> Maybe Cancellation -> Maybe ActivityExecutionResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Cancellation -> ActivityExecutionResult'Status
ActivityExecutionResult'Cancelled Maybe Cancellation
y__))
instance Data.ProtoLens.Field.HasField ActivityExecutionResult "cancelled" Cancellation where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancelled"
-> (Cancellation -> f Cancellation)
-> ActivityExecutionResult
-> f ActivityExecutionResult
fieldOf Proxy# "cancelled"
_
    = ((Maybe ActivityExecutionResult'Status
  -> f (Maybe ActivityExecutionResult'Status))
 -> ActivityExecutionResult -> f ActivityExecutionResult)
-> ((Cancellation -> f Cancellation)
    -> Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> (Cancellation -> f Cancellation)
-> ActivityExecutionResult
-> f ActivityExecutionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityExecutionResult -> Maybe ActivityExecutionResult'Status)
-> (ActivityExecutionResult
    -> Maybe ActivityExecutionResult'Status -> ActivityExecutionResult)
-> Lens
     ActivityExecutionResult
     ActivityExecutionResult
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status
           (\ ActivityExecutionResult
x__ Maybe ActivityExecutionResult'Status
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'status = y__}))
        (((Maybe Cancellation -> f (Maybe Cancellation))
 -> Maybe ActivityExecutionResult'Status
 -> f (Maybe ActivityExecutionResult'Status))
-> ((Cancellation -> f Cancellation)
    -> Maybe Cancellation -> f (Maybe Cancellation))
-> (Cancellation -> f Cancellation)
-> Maybe ActivityExecutionResult'Status
-> f (Maybe ActivityExecutionResult'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityExecutionResult'Status -> Maybe Cancellation)
-> (Maybe ActivityExecutionResult'Status
    -> Maybe Cancellation -> Maybe ActivityExecutionResult'Status)
-> Lens
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
     (Maybe Cancellation)
     (Maybe Cancellation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityExecutionResult'Status
x__
                 -> case Maybe ActivityExecutionResult'Status
x__ of
                      (Prelude.Just (ActivityExecutionResult'Cancelled Cancellation
x__val))
                        -> Cancellation -> Maybe Cancellation
forall a. a -> Maybe a
Prelude.Just Cancellation
x__val
                      Maybe ActivityExecutionResult'Status
_otherwise -> Maybe Cancellation
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityExecutionResult'Status
_ Maybe Cancellation
y__ -> (Cancellation -> ActivityExecutionResult'Status)
-> Maybe Cancellation -> Maybe ActivityExecutionResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Cancellation -> ActivityExecutionResult'Status
ActivityExecutionResult'Cancelled Maybe Cancellation
y__))
           (Cancellation -> Lens' (Maybe Cancellation) Cancellation
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Cancellation
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ActivityExecutionResult "maybe'willCompleteAsync" (Prelude.Maybe WillCompleteAsync) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'willCompleteAsync"
-> (Maybe WillCompleteAsync -> f (Maybe WillCompleteAsync))
-> ActivityExecutionResult
-> f ActivityExecutionResult
fieldOf Proxy# "maybe'willCompleteAsync"
_
    = ((Maybe ActivityExecutionResult'Status
  -> f (Maybe ActivityExecutionResult'Status))
 -> ActivityExecutionResult -> f ActivityExecutionResult)
-> ((Maybe WillCompleteAsync -> f (Maybe WillCompleteAsync))
    -> Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> (Maybe WillCompleteAsync -> f (Maybe WillCompleteAsync))
-> ActivityExecutionResult
-> f ActivityExecutionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityExecutionResult -> Maybe ActivityExecutionResult'Status)
-> (ActivityExecutionResult
    -> Maybe ActivityExecutionResult'Status -> ActivityExecutionResult)
-> Lens
     ActivityExecutionResult
     ActivityExecutionResult
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status
           (\ ActivityExecutionResult
x__ Maybe ActivityExecutionResult'Status
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'status = y__}))
        ((Maybe ActivityExecutionResult'Status -> Maybe WillCompleteAsync)
-> (Maybe ActivityExecutionResult'Status
    -> Maybe WillCompleteAsync -> Maybe ActivityExecutionResult'Status)
-> Lens
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
     (Maybe WillCompleteAsync)
     (Maybe WillCompleteAsync)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityExecutionResult'Status
x__
              -> case Maybe ActivityExecutionResult'Status
x__ of
                   (Prelude.Just (ActivityExecutionResult'WillCompleteAsync WillCompleteAsync
x__val))
                     -> WillCompleteAsync -> Maybe WillCompleteAsync
forall a. a -> Maybe a
Prelude.Just WillCompleteAsync
x__val
                   Maybe ActivityExecutionResult'Status
_otherwise -> Maybe WillCompleteAsync
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityExecutionResult'Status
_ Maybe WillCompleteAsync
y__
              -> (WillCompleteAsync -> ActivityExecutionResult'Status)
-> Maybe WillCompleteAsync -> Maybe ActivityExecutionResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap WillCompleteAsync -> ActivityExecutionResult'Status
ActivityExecutionResult'WillCompleteAsync Maybe WillCompleteAsync
y__))
instance Data.ProtoLens.Field.HasField ActivityExecutionResult "willCompleteAsync" WillCompleteAsync where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "willCompleteAsync"
-> (WillCompleteAsync -> f WillCompleteAsync)
-> ActivityExecutionResult
-> f ActivityExecutionResult
fieldOf Proxy# "willCompleteAsync"
_
    = ((Maybe ActivityExecutionResult'Status
  -> f (Maybe ActivityExecutionResult'Status))
 -> ActivityExecutionResult -> f ActivityExecutionResult)
-> ((WillCompleteAsync -> f WillCompleteAsync)
    -> Maybe ActivityExecutionResult'Status
    -> f (Maybe ActivityExecutionResult'Status))
-> (WillCompleteAsync -> f WillCompleteAsync)
-> ActivityExecutionResult
-> f ActivityExecutionResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityExecutionResult -> Maybe ActivityExecutionResult'Status)
-> (ActivityExecutionResult
    -> Maybe ActivityExecutionResult'Status -> ActivityExecutionResult)
-> Lens
     ActivityExecutionResult
     ActivityExecutionResult
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status
           (\ ActivityExecutionResult
x__ Maybe ActivityExecutionResult'Status
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'status = y__}))
        (((Maybe WillCompleteAsync -> f (Maybe WillCompleteAsync))
 -> Maybe ActivityExecutionResult'Status
 -> f (Maybe ActivityExecutionResult'Status))
-> ((WillCompleteAsync -> f WillCompleteAsync)
    -> Maybe WillCompleteAsync -> f (Maybe WillCompleteAsync))
-> (WillCompleteAsync -> f WillCompleteAsync)
-> Maybe ActivityExecutionResult'Status
-> f (Maybe ActivityExecutionResult'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityExecutionResult'Status -> Maybe WillCompleteAsync)
-> (Maybe ActivityExecutionResult'Status
    -> Maybe WillCompleteAsync -> Maybe ActivityExecutionResult'Status)
-> Lens
     (Maybe ActivityExecutionResult'Status)
     (Maybe ActivityExecutionResult'Status)
     (Maybe WillCompleteAsync)
     (Maybe WillCompleteAsync)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityExecutionResult'Status
x__
                 -> case Maybe ActivityExecutionResult'Status
x__ of
                      (Prelude.Just (ActivityExecutionResult'WillCompleteAsync WillCompleteAsync
x__val))
                        -> WillCompleteAsync -> Maybe WillCompleteAsync
forall a. a -> Maybe a
Prelude.Just WillCompleteAsync
x__val
                      Maybe ActivityExecutionResult'Status
_otherwise -> Maybe WillCompleteAsync
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityExecutionResult'Status
_ Maybe WillCompleteAsync
y__
                 -> (WillCompleteAsync -> ActivityExecutionResult'Status)
-> Maybe WillCompleteAsync -> Maybe ActivityExecutionResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap WillCompleteAsync -> ActivityExecutionResult'Status
ActivityExecutionResult'WillCompleteAsync Maybe WillCompleteAsync
y__))
           (WillCompleteAsync
-> Lens' (Maybe WillCompleteAsync) WillCompleteAsync
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WillCompleteAsync
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message ActivityExecutionResult where
  messageName :: Proxy ActivityExecutionResult -> Text
messageName Proxy ActivityExecutionResult
_
    = String -> Text
Data.Text.pack String
"coresdk.activity_result.ActivityExecutionResult"
  packedMessageDescriptor :: Proxy ActivityExecutionResult -> ByteString
packedMessageDescriptor Proxy ActivityExecutionResult
_
    = ByteString
"\n\
      \\ETBActivityExecutionResult\DC2@\n\
      \\tcompleted\CAN\SOH \SOH(\v2 .coresdk.activity_result.SuccessH\NULR\tcompleted\DC2:\n\
      \\ACKfailed\CAN\STX \SOH(\v2 .coresdk.activity_result.FailureH\NULR\ACKfailed\DC2E\n\
      \\tcancelled\CAN\ETX \SOH(\v2%.coresdk.activity_result.CancellationH\NULR\tcancelled\DC2\\\n\
      \\DC3will_complete_async\CAN\EOT \SOH(\v2*.coresdk.activity_result.WillCompleteAsyncH\NULR\DC1willCompleteAsyncB\b\n\
      \\ACKstatus"
  packedFileDescriptor :: Proxy ActivityExecutionResult -> ByteString
packedFileDescriptor Proxy ActivityExecutionResult
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ActivityExecutionResult)
fieldsByTag
    = let
        completed__field_descriptor :: FieldDescriptor ActivityExecutionResult
completed__field_descriptor
          = String
-> FieldTypeDescriptor Success
-> FieldAccessor ActivityExecutionResult Success
-> FieldDescriptor ActivityExecutionResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"completed"
              (MessageOrGroup -> FieldTypeDescriptor Success
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Success)
              (Lens' ActivityExecutionResult (Maybe Success)
-> FieldAccessor ActivityExecutionResult Success
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'completed")) ::
              Data.ProtoLens.FieldDescriptor ActivityExecutionResult
        failed__field_descriptor :: FieldDescriptor ActivityExecutionResult
failed__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor ActivityExecutionResult Failure
-> FieldDescriptor ActivityExecutionResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failed"
              (MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Failure)
              (Lens' ActivityExecutionResult (Maybe Failure)
-> FieldAccessor ActivityExecutionResult Failure
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'failed")) ::
              Data.ProtoLens.FieldDescriptor ActivityExecutionResult
        cancelled__field_descriptor :: FieldDescriptor ActivityExecutionResult
cancelled__field_descriptor
          = String
-> FieldTypeDescriptor Cancellation
-> FieldAccessor ActivityExecutionResult Cancellation
-> FieldDescriptor ActivityExecutionResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cancelled"
              (MessageOrGroup -> FieldTypeDescriptor Cancellation
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Cancellation)
              (Lens' ActivityExecutionResult (Maybe Cancellation)
-> FieldAccessor ActivityExecutionResult Cancellation
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'cancelled")) ::
              Data.ProtoLens.FieldDescriptor ActivityExecutionResult
        willCompleteAsync__field_descriptor :: FieldDescriptor ActivityExecutionResult
willCompleteAsync__field_descriptor
          = String
-> FieldTypeDescriptor WillCompleteAsync
-> FieldAccessor ActivityExecutionResult WillCompleteAsync
-> FieldDescriptor ActivityExecutionResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"will_complete_async"
              (MessageOrGroup -> FieldTypeDescriptor WillCompleteAsync
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor WillCompleteAsync)
              (Lens' ActivityExecutionResult (Maybe WillCompleteAsync)
-> FieldAccessor ActivityExecutionResult WillCompleteAsync
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'willCompleteAsync")) ::
              Data.ProtoLens.FieldDescriptor ActivityExecutionResult
      in
        [(Tag, FieldDescriptor ActivityExecutionResult)]
-> Map Tag (FieldDescriptor ActivityExecutionResult)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ActivityExecutionResult
completed__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ActivityExecutionResult
failed__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ActivityExecutionResult
cancelled__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ActivityExecutionResult
willCompleteAsync__field_descriptor)]
  unknownFields :: Lens' ActivityExecutionResult FieldSet
unknownFields
    = (ActivityExecutionResult -> FieldSet)
-> (ActivityExecutionResult -> FieldSet -> ActivityExecutionResult)
-> Lens' ActivityExecutionResult FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ActivityExecutionResult -> FieldSet
_ActivityExecutionResult'_unknownFields
        (\ ActivityExecutionResult
x__ FieldSet
y__ -> ActivityExecutionResult
x__ {_ActivityExecutionResult'_unknownFields = y__})
  defMessage :: ActivityExecutionResult
defMessage
    = ActivityExecutionResult'_constructor
        {_ActivityExecutionResult'status :: Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status = Maybe ActivityExecutionResult'Status
forall a. Maybe a
Prelude.Nothing,
         _ActivityExecutionResult'_unknownFields :: FieldSet
_ActivityExecutionResult'_unknownFields = []}
  parseMessage :: Parser ActivityExecutionResult
parseMessage
    = let
        loop ::
          ActivityExecutionResult
          -> Data.ProtoLens.Encoding.Bytes.Parser ActivityExecutionResult
        loop :: ActivityExecutionResult -> Parser ActivityExecutionResult
loop ActivityExecutionResult
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Success -> String -> Parser Success
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"completed"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"completed") y x)
                        Word64
18
                          -> do y <- Parser Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"failed"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failed") y x)
                        Word64
26
                          -> do y <- Parser Cancellation -> String -> Parser Cancellation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"cancelled"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"cancelled") y x)
                        Word64
34
                          -> do y <- Parser WillCompleteAsync -> String -> Parser WillCompleteAsync
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
"will_complete_async"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"willCompleteAsync") 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 ActivityExecutionResult
-> String -> Parser ActivityExecutionResult
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ActivityExecutionResult -> Parser ActivityExecutionResult
loop ActivityExecutionResult
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ActivityExecutionResult"
  buildMessage :: ActivityExecutionResult -> Builder
buildMessage
    = \ ActivityExecutionResult
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ActivityExecutionResult'Status)
  ActivityExecutionResult
  ActivityExecutionResult
  (Maybe ActivityExecutionResult'Status)
  (Maybe ActivityExecutionResult'Status)
-> ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'status") ActivityExecutionResult
_x
              of
                Maybe ActivityExecutionResult'Status
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (ActivityExecutionResult'Completed Success
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Success -> ByteString) -> Success -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Success -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Success
v)
                (Prelude.Just (ActivityExecutionResult'Failed Failure
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
v)
                (Prelude.Just (ActivityExecutionResult'Cancelled Cancellation
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((ByteString -> Builder)
-> (Cancellation -> ByteString) -> Cancellation -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Cancellation -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Cancellation
v)
                (Prelude.Just (ActivityExecutionResult'WillCompleteAsync WillCompleteAsync
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                       ((ByteString -> Builder)
-> (WillCompleteAsync -> ByteString)
-> WillCompleteAsync
-> 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))
                          WillCompleteAsync -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WillCompleteAsync
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  ActivityExecutionResult
  ActivityExecutionResult
  FieldSet
  FieldSet
-> ActivityExecutionResult -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ActivityExecutionResult
  ActivityExecutionResult
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ActivityExecutionResult FieldSet
Data.ProtoLens.unknownFields ActivityExecutionResult
_x))
instance Control.DeepSeq.NFData ActivityExecutionResult where
  rnf :: ActivityExecutionResult -> ()
rnf
    = \ ActivityExecutionResult
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ActivityExecutionResult -> FieldSet
_ActivityExecutionResult'_unknownFields ActivityExecutionResult
x__)
             (Maybe ActivityExecutionResult'Status -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ActivityExecutionResult -> Maybe ActivityExecutionResult'Status
_ActivityExecutionResult'status ActivityExecutionResult
x__) ())
instance Control.DeepSeq.NFData ActivityExecutionResult'Status where
  rnf :: ActivityExecutionResult'Status -> ()
rnf (ActivityExecutionResult'Completed Success
x__)
    = Success -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Success
x__
  rnf (ActivityExecutionResult'Failed Failure
x__) = Failure -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Failure
x__
  rnf (ActivityExecutionResult'Cancelled Cancellation
x__)
    = Cancellation -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Cancellation
x__
  rnf (ActivityExecutionResult'WillCompleteAsync WillCompleteAsync
x__)
    = WillCompleteAsync -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf WillCompleteAsync
x__
_ActivityExecutionResult'Completed ::
  Data.ProtoLens.Prism.Prism' ActivityExecutionResult'Status Success
_ActivityExecutionResult'Completed :: Prism' ActivityExecutionResult'Status Success
_ActivityExecutionResult'Completed
  = (Success -> ActivityExecutionResult'Status)
-> (ActivityExecutionResult'Status -> Maybe Success)
-> Prism' ActivityExecutionResult'Status Success
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Success -> ActivityExecutionResult'Status
ActivityExecutionResult'Completed
      (\ ActivityExecutionResult'Status
p__
         -> case ActivityExecutionResult'Status
p__ of
              (ActivityExecutionResult'Completed Success
p__val) -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
p__val
              ActivityExecutionResult'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
_ActivityExecutionResult'Failed ::
  Data.ProtoLens.Prism.Prism' ActivityExecutionResult'Status Failure
_ActivityExecutionResult'Failed :: Prism' ActivityExecutionResult'Status Failure
_ActivityExecutionResult'Failed
  = (Failure -> ActivityExecutionResult'Status)
-> (ActivityExecutionResult'Status -> Maybe Failure)
-> Prism' ActivityExecutionResult'Status Failure
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Failure -> ActivityExecutionResult'Status
ActivityExecutionResult'Failed
      (\ ActivityExecutionResult'Status
p__
         -> case ActivityExecutionResult'Status
p__ of
              (ActivityExecutionResult'Failed Failure
p__val) -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
p__val
              ActivityExecutionResult'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
_ActivityExecutionResult'Cancelled ::
  Data.ProtoLens.Prism.Prism' ActivityExecutionResult'Status Cancellation
_ActivityExecutionResult'Cancelled :: Prism' ActivityExecutionResult'Status Cancellation
_ActivityExecutionResult'Cancelled
  = (Cancellation -> ActivityExecutionResult'Status)
-> (ActivityExecutionResult'Status -> Maybe Cancellation)
-> Prism' ActivityExecutionResult'Status Cancellation
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Cancellation -> ActivityExecutionResult'Status
ActivityExecutionResult'Cancelled
      (\ ActivityExecutionResult'Status
p__
         -> case ActivityExecutionResult'Status
p__ of
              (ActivityExecutionResult'Cancelled Cancellation
p__val) -> Cancellation -> Maybe Cancellation
forall a. a -> Maybe a
Prelude.Just Cancellation
p__val
              ActivityExecutionResult'Status
_otherwise -> Maybe Cancellation
forall a. Maybe a
Prelude.Nothing)
_ActivityExecutionResult'WillCompleteAsync ::
  Data.ProtoLens.Prism.Prism' ActivityExecutionResult'Status WillCompleteAsync
_ActivityExecutionResult'WillCompleteAsync :: Prism' ActivityExecutionResult'Status WillCompleteAsync
_ActivityExecutionResult'WillCompleteAsync
  = (WillCompleteAsync -> ActivityExecutionResult'Status)
-> (ActivityExecutionResult'Status -> Maybe WillCompleteAsync)
-> Prism' ActivityExecutionResult'Status WillCompleteAsync
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      WillCompleteAsync -> ActivityExecutionResult'Status
ActivityExecutionResult'WillCompleteAsync
      (\ ActivityExecutionResult'Status
p__
         -> case ActivityExecutionResult'Status
p__ of
              (ActivityExecutionResult'WillCompleteAsync WillCompleteAsync
p__val)
                -> WillCompleteAsync -> Maybe WillCompleteAsync
forall a. a -> Maybe a
Prelude.Just WillCompleteAsync
p__val
              ActivityExecutionResult'Status
_otherwise -> Maybe WillCompleteAsync
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'status' @:: Lens' ActivityResolution (Prelude.Maybe ActivityResolution'Status)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'completed' @:: Lens' ActivityResolution (Prelude.Maybe Success)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.completed' @:: Lens' ActivityResolution Success@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'failed' @:: Lens' ActivityResolution (Prelude.Maybe Failure)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.failed' @:: Lens' ActivityResolution Failure@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'cancelled' @:: Lens' ActivityResolution (Prelude.Maybe Cancellation)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.cancelled' @:: Lens' ActivityResolution Cancellation@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'backoff' @:: Lens' ActivityResolution (Prelude.Maybe DoBackoff)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.backoff' @:: Lens' ActivityResolution DoBackoff@ -}
data ActivityResolution
  = ActivityResolution'_constructor {ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status :: !(Prelude.Maybe ActivityResolution'Status),
                                     ActivityResolution -> FieldSet
_ActivityResolution'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ActivityResolution -> ActivityResolution -> Bool
(ActivityResolution -> ActivityResolution -> Bool)
-> (ActivityResolution -> ActivityResolution -> Bool)
-> Eq ActivityResolution
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityResolution -> ActivityResolution -> Bool
== :: ActivityResolution -> ActivityResolution -> Bool
$c/= :: ActivityResolution -> ActivityResolution -> Bool
/= :: ActivityResolution -> ActivityResolution -> Bool
Prelude.Eq, Eq ActivityResolution
Eq ActivityResolution =>
(ActivityResolution -> ActivityResolution -> Ordering)
-> (ActivityResolution -> ActivityResolution -> Bool)
-> (ActivityResolution -> ActivityResolution -> Bool)
-> (ActivityResolution -> ActivityResolution -> Bool)
-> (ActivityResolution -> ActivityResolution -> Bool)
-> (ActivityResolution -> ActivityResolution -> ActivityResolution)
-> (ActivityResolution -> ActivityResolution -> ActivityResolution)
-> Ord ActivityResolution
ActivityResolution -> ActivityResolution -> Bool
ActivityResolution -> ActivityResolution -> Ordering
ActivityResolution -> ActivityResolution -> ActivityResolution
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 :: ActivityResolution -> ActivityResolution -> Ordering
compare :: ActivityResolution -> ActivityResolution -> Ordering
$c< :: ActivityResolution -> ActivityResolution -> Bool
< :: ActivityResolution -> ActivityResolution -> Bool
$c<= :: ActivityResolution -> ActivityResolution -> Bool
<= :: ActivityResolution -> ActivityResolution -> Bool
$c> :: ActivityResolution -> ActivityResolution -> Bool
> :: ActivityResolution -> ActivityResolution -> Bool
$c>= :: ActivityResolution -> ActivityResolution -> Bool
>= :: ActivityResolution -> ActivityResolution -> Bool
$cmax :: ActivityResolution -> ActivityResolution -> ActivityResolution
max :: ActivityResolution -> ActivityResolution -> ActivityResolution
$cmin :: ActivityResolution -> ActivityResolution -> ActivityResolution
min :: ActivityResolution -> ActivityResolution -> ActivityResolution
Prelude.Ord)
instance Prelude.Show ActivityResolution where
  showsPrec :: Int -> ActivityResolution -> ShowS
showsPrec Int
_ ActivityResolution
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ActivityResolution -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ActivityResolution
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data ActivityResolution'Status
  = ActivityResolution'Completed !Success |
    ActivityResolution'Failed !Failure |
    ActivityResolution'Cancelled !Cancellation |
    ActivityResolution'Backoff !DoBackoff
  deriving stock (Int -> ActivityResolution'Status -> ShowS
[ActivityResolution'Status] -> ShowS
ActivityResolution'Status -> String
(Int -> ActivityResolution'Status -> ShowS)
-> (ActivityResolution'Status -> String)
-> ([ActivityResolution'Status] -> ShowS)
-> Show ActivityResolution'Status
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ActivityResolution'Status -> ShowS
showsPrec :: Int -> ActivityResolution'Status -> ShowS
$cshow :: ActivityResolution'Status -> String
show :: ActivityResolution'Status -> String
$cshowList :: [ActivityResolution'Status] -> ShowS
showList :: [ActivityResolution'Status] -> ShowS
Prelude.Show, ActivityResolution'Status -> ActivityResolution'Status -> Bool
(ActivityResolution'Status -> ActivityResolution'Status -> Bool)
-> (ActivityResolution'Status -> ActivityResolution'Status -> Bool)
-> Eq ActivityResolution'Status
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
== :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
$c/= :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
/= :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
Prelude.Eq, Eq ActivityResolution'Status
Eq ActivityResolution'Status =>
(ActivityResolution'Status
 -> ActivityResolution'Status -> Ordering)
-> (ActivityResolution'Status -> ActivityResolution'Status -> Bool)
-> (ActivityResolution'Status -> ActivityResolution'Status -> Bool)
-> (ActivityResolution'Status -> ActivityResolution'Status -> Bool)
-> (ActivityResolution'Status -> ActivityResolution'Status -> Bool)
-> (ActivityResolution'Status
    -> ActivityResolution'Status -> ActivityResolution'Status)
-> (ActivityResolution'Status
    -> ActivityResolution'Status -> ActivityResolution'Status)
-> Ord ActivityResolution'Status
ActivityResolution'Status -> ActivityResolution'Status -> Bool
ActivityResolution'Status -> ActivityResolution'Status -> Ordering
ActivityResolution'Status
-> ActivityResolution'Status -> ActivityResolution'Status
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ActivityResolution'Status -> ActivityResolution'Status -> Ordering
compare :: ActivityResolution'Status -> ActivityResolution'Status -> Ordering
$c< :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
< :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
$c<= :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
<= :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
$c> :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
> :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
$c>= :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
>= :: ActivityResolution'Status -> ActivityResolution'Status -> Bool
$cmax :: ActivityResolution'Status
-> ActivityResolution'Status -> ActivityResolution'Status
max :: ActivityResolution'Status
-> ActivityResolution'Status -> ActivityResolution'Status
$cmin :: ActivityResolution'Status
-> ActivityResolution'Status -> ActivityResolution'Status
min :: ActivityResolution'Status
-> ActivityResolution'Status -> ActivityResolution'Status
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ActivityResolution "maybe'status" (Prelude.Maybe ActivityResolution'Status) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'status"
-> (Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> ActivityResolution
-> f ActivityResolution
fieldOf Proxy# "maybe'status"
_
    = ((Maybe ActivityResolution'Status
  -> f (Maybe ActivityResolution'Status))
 -> ActivityResolution -> f ActivityResolution)
-> ((Maybe ActivityResolution'Status
     -> f (Maybe ActivityResolution'Status))
    -> Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> (Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> ActivityResolution
-> f ActivityResolution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityResolution -> Maybe ActivityResolution'Status)
-> (ActivityResolution
    -> Maybe ActivityResolution'Status -> ActivityResolution)
-> Lens
     ActivityResolution
     ActivityResolution
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status
           (\ ActivityResolution
x__ Maybe ActivityResolution'Status
y__ -> ActivityResolution
x__ {_ActivityResolution'status = y__}))
        (Maybe ActivityResolution'Status
 -> f (Maybe ActivityResolution'Status))
-> Maybe ActivityResolution'Status
-> f (Maybe ActivityResolution'Status)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityResolution "maybe'completed" (Prelude.Maybe Success) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'completed"
-> (Maybe Success -> f (Maybe Success))
-> ActivityResolution
-> f ActivityResolution
fieldOf Proxy# "maybe'completed"
_
    = ((Maybe ActivityResolution'Status
  -> f (Maybe ActivityResolution'Status))
 -> ActivityResolution -> f ActivityResolution)
-> ((Maybe Success -> f (Maybe Success))
    -> Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> (Maybe Success -> f (Maybe Success))
-> ActivityResolution
-> f ActivityResolution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityResolution -> Maybe ActivityResolution'Status)
-> (ActivityResolution
    -> Maybe ActivityResolution'Status -> ActivityResolution)
-> Lens
     ActivityResolution
     ActivityResolution
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status
           (\ ActivityResolution
x__ Maybe ActivityResolution'Status
y__ -> ActivityResolution
x__ {_ActivityResolution'status = y__}))
        ((Maybe ActivityResolution'Status -> Maybe Success)
-> (Maybe ActivityResolution'Status
    -> Maybe Success -> Maybe ActivityResolution'Status)
-> Lens
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
     (Maybe Success)
     (Maybe Success)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityResolution'Status
x__
              -> case Maybe ActivityResolution'Status
x__ of
                   (Prelude.Just (ActivityResolution'Completed Success
x__val))
                     -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
x__val
                   Maybe ActivityResolution'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityResolution'Status
_ Maybe Success
y__ -> (Success -> ActivityResolution'Status)
-> Maybe Success -> Maybe ActivityResolution'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Success -> ActivityResolution'Status
ActivityResolution'Completed Maybe Success
y__))
instance Data.ProtoLens.Field.HasField ActivityResolution "completed" Success where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "completed"
-> (Success -> f Success)
-> ActivityResolution
-> f ActivityResolution
fieldOf Proxy# "completed"
_
    = ((Maybe ActivityResolution'Status
  -> f (Maybe ActivityResolution'Status))
 -> ActivityResolution -> f ActivityResolution)
-> ((Success -> f Success)
    -> Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> (Success -> f Success)
-> ActivityResolution
-> f ActivityResolution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityResolution -> Maybe ActivityResolution'Status)
-> (ActivityResolution
    -> Maybe ActivityResolution'Status -> ActivityResolution)
-> Lens
     ActivityResolution
     ActivityResolution
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status
           (\ ActivityResolution
x__ Maybe ActivityResolution'Status
y__ -> ActivityResolution
x__ {_ActivityResolution'status = y__}))
        (((Maybe Success -> f (Maybe Success))
 -> Maybe ActivityResolution'Status
 -> f (Maybe ActivityResolution'Status))
-> ((Success -> f Success) -> Maybe Success -> f (Maybe Success))
-> (Success -> f Success)
-> Maybe ActivityResolution'Status
-> f (Maybe ActivityResolution'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityResolution'Status -> Maybe Success)
-> (Maybe ActivityResolution'Status
    -> Maybe Success -> Maybe ActivityResolution'Status)
-> Lens
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
     (Maybe Success)
     (Maybe Success)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityResolution'Status
x__
                 -> case Maybe ActivityResolution'Status
x__ of
                      (Prelude.Just (ActivityResolution'Completed Success
x__val))
                        -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
x__val
                      Maybe ActivityResolution'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityResolution'Status
_ Maybe Success
y__ -> (Success -> ActivityResolution'Status)
-> Maybe Success -> Maybe ActivityResolution'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Success -> ActivityResolution'Status
ActivityResolution'Completed Maybe Success
y__))
           (Success -> Lens' (Maybe Success) Success
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Success
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ActivityResolution "maybe'failed" (Prelude.Maybe Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failed"
-> (Maybe Failure -> f (Maybe Failure))
-> ActivityResolution
-> f ActivityResolution
fieldOf Proxy# "maybe'failed"
_
    = ((Maybe ActivityResolution'Status
  -> f (Maybe ActivityResolution'Status))
 -> ActivityResolution -> f ActivityResolution)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> (Maybe Failure -> f (Maybe Failure))
-> ActivityResolution
-> f ActivityResolution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityResolution -> Maybe ActivityResolution'Status)
-> (ActivityResolution
    -> Maybe ActivityResolution'Status -> ActivityResolution)
-> Lens
     ActivityResolution
     ActivityResolution
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status
           (\ ActivityResolution
x__ Maybe ActivityResolution'Status
y__ -> ActivityResolution
x__ {_ActivityResolution'status = y__}))
        ((Maybe ActivityResolution'Status -> Maybe Failure)
-> (Maybe ActivityResolution'Status
    -> Maybe Failure -> Maybe ActivityResolution'Status)
-> Lens
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityResolution'Status
x__
              -> case Maybe ActivityResolution'Status
x__ of
                   (Prelude.Just (ActivityResolution'Failed Failure
x__val))
                     -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                   Maybe ActivityResolution'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityResolution'Status
_ Maybe Failure
y__ -> (Failure -> ActivityResolution'Status)
-> Maybe Failure -> Maybe ActivityResolution'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Failure -> ActivityResolution'Status
ActivityResolution'Failed Maybe Failure
y__))
instance Data.ProtoLens.Field.HasField ActivityResolution "failed" Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failed"
-> (Failure -> f Failure)
-> ActivityResolution
-> f ActivityResolution
fieldOf Proxy# "failed"
_
    = ((Maybe ActivityResolution'Status
  -> f (Maybe ActivityResolution'Status))
 -> ActivityResolution -> f ActivityResolution)
-> ((Failure -> f Failure)
    -> Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> (Failure -> f Failure)
-> ActivityResolution
-> f ActivityResolution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityResolution -> Maybe ActivityResolution'Status)
-> (ActivityResolution
    -> Maybe ActivityResolution'Status -> ActivityResolution)
-> Lens
     ActivityResolution
     ActivityResolution
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status
           (\ ActivityResolution
x__ Maybe ActivityResolution'Status
y__ -> ActivityResolution
x__ {_ActivityResolution'status = y__}))
        (((Maybe Failure -> f (Maybe Failure))
 -> Maybe ActivityResolution'Status
 -> f (Maybe ActivityResolution'Status))
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Maybe ActivityResolution'Status
-> f (Maybe ActivityResolution'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityResolution'Status -> Maybe Failure)
-> (Maybe ActivityResolution'Status
    -> Maybe Failure -> Maybe ActivityResolution'Status)
-> Lens
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityResolution'Status
x__
                 -> case Maybe ActivityResolution'Status
x__ of
                      (Prelude.Just (ActivityResolution'Failed Failure
x__val))
                        -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                      Maybe ActivityResolution'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityResolution'Status
_ Maybe Failure
y__ -> (Failure -> ActivityResolution'Status)
-> Maybe Failure -> Maybe ActivityResolution'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Failure -> ActivityResolution'Status
ActivityResolution'Failed Maybe Failure
y__))
           (Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ActivityResolution "maybe'cancelled" (Prelude.Maybe Cancellation) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cancelled"
-> (Maybe Cancellation -> f (Maybe Cancellation))
-> ActivityResolution
-> f ActivityResolution
fieldOf Proxy# "maybe'cancelled"
_
    = ((Maybe ActivityResolution'Status
  -> f (Maybe ActivityResolution'Status))
 -> ActivityResolution -> f ActivityResolution)
-> ((Maybe Cancellation -> f (Maybe Cancellation))
    -> Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> (Maybe Cancellation -> f (Maybe Cancellation))
-> ActivityResolution
-> f ActivityResolution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityResolution -> Maybe ActivityResolution'Status)
-> (ActivityResolution
    -> Maybe ActivityResolution'Status -> ActivityResolution)
-> Lens
     ActivityResolution
     ActivityResolution
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status
           (\ ActivityResolution
x__ Maybe ActivityResolution'Status
y__ -> ActivityResolution
x__ {_ActivityResolution'status = y__}))
        ((Maybe ActivityResolution'Status -> Maybe Cancellation)
-> (Maybe ActivityResolution'Status
    -> Maybe Cancellation -> Maybe ActivityResolution'Status)
-> Lens
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
     (Maybe Cancellation)
     (Maybe Cancellation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityResolution'Status
x__
              -> case Maybe ActivityResolution'Status
x__ of
                   (Prelude.Just (ActivityResolution'Cancelled Cancellation
x__val))
                     -> Cancellation -> Maybe Cancellation
forall a. a -> Maybe a
Prelude.Just Cancellation
x__val
                   Maybe ActivityResolution'Status
_otherwise -> Maybe Cancellation
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityResolution'Status
_ Maybe Cancellation
y__ -> (Cancellation -> ActivityResolution'Status)
-> Maybe Cancellation -> Maybe ActivityResolution'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Cancellation -> ActivityResolution'Status
ActivityResolution'Cancelled Maybe Cancellation
y__))
instance Data.ProtoLens.Field.HasField ActivityResolution "cancelled" Cancellation where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancelled"
-> (Cancellation -> f Cancellation)
-> ActivityResolution
-> f ActivityResolution
fieldOf Proxy# "cancelled"
_
    = ((Maybe ActivityResolution'Status
  -> f (Maybe ActivityResolution'Status))
 -> ActivityResolution -> f ActivityResolution)
-> ((Cancellation -> f Cancellation)
    -> Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> (Cancellation -> f Cancellation)
-> ActivityResolution
-> f ActivityResolution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityResolution -> Maybe ActivityResolution'Status)
-> (ActivityResolution
    -> Maybe ActivityResolution'Status -> ActivityResolution)
-> Lens
     ActivityResolution
     ActivityResolution
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status
           (\ ActivityResolution
x__ Maybe ActivityResolution'Status
y__ -> ActivityResolution
x__ {_ActivityResolution'status = y__}))
        (((Maybe Cancellation -> f (Maybe Cancellation))
 -> Maybe ActivityResolution'Status
 -> f (Maybe ActivityResolution'Status))
-> ((Cancellation -> f Cancellation)
    -> Maybe Cancellation -> f (Maybe Cancellation))
-> (Cancellation -> f Cancellation)
-> Maybe ActivityResolution'Status
-> f (Maybe ActivityResolution'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityResolution'Status -> Maybe Cancellation)
-> (Maybe ActivityResolution'Status
    -> Maybe Cancellation -> Maybe ActivityResolution'Status)
-> Lens
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
     (Maybe Cancellation)
     (Maybe Cancellation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityResolution'Status
x__
                 -> case Maybe ActivityResolution'Status
x__ of
                      (Prelude.Just (ActivityResolution'Cancelled Cancellation
x__val))
                        -> Cancellation -> Maybe Cancellation
forall a. a -> Maybe a
Prelude.Just Cancellation
x__val
                      Maybe ActivityResolution'Status
_otherwise -> Maybe Cancellation
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityResolution'Status
_ Maybe Cancellation
y__ -> (Cancellation -> ActivityResolution'Status)
-> Maybe Cancellation -> Maybe ActivityResolution'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Cancellation -> ActivityResolution'Status
ActivityResolution'Cancelled Maybe Cancellation
y__))
           (Cancellation -> Lens' (Maybe Cancellation) Cancellation
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Cancellation
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ActivityResolution "maybe'backoff" (Prelude.Maybe DoBackoff) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'backoff"
-> (Maybe DoBackoff -> f (Maybe DoBackoff))
-> ActivityResolution
-> f ActivityResolution
fieldOf Proxy# "maybe'backoff"
_
    = ((Maybe ActivityResolution'Status
  -> f (Maybe ActivityResolution'Status))
 -> ActivityResolution -> f ActivityResolution)
-> ((Maybe DoBackoff -> f (Maybe DoBackoff))
    -> Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> (Maybe DoBackoff -> f (Maybe DoBackoff))
-> ActivityResolution
-> f ActivityResolution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityResolution -> Maybe ActivityResolution'Status)
-> (ActivityResolution
    -> Maybe ActivityResolution'Status -> ActivityResolution)
-> Lens
     ActivityResolution
     ActivityResolution
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status
           (\ ActivityResolution
x__ Maybe ActivityResolution'Status
y__ -> ActivityResolution
x__ {_ActivityResolution'status = y__}))
        ((Maybe ActivityResolution'Status -> Maybe DoBackoff)
-> (Maybe ActivityResolution'Status
    -> Maybe DoBackoff -> Maybe ActivityResolution'Status)
-> Lens
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
     (Maybe DoBackoff)
     (Maybe DoBackoff)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityResolution'Status
x__
              -> case Maybe ActivityResolution'Status
x__ of
                   (Prelude.Just (ActivityResolution'Backoff DoBackoff
x__val))
                     -> DoBackoff -> Maybe DoBackoff
forall a. a -> Maybe a
Prelude.Just DoBackoff
x__val
                   Maybe ActivityResolution'Status
_otherwise -> Maybe DoBackoff
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityResolution'Status
_ Maybe DoBackoff
y__ -> (DoBackoff -> ActivityResolution'Status)
-> Maybe DoBackoff -> Maybe ActivityResolution'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DoBackoff -> ActivityResolution'Status
ActivityResolution'Backoff Maybe DoBackoff
y__))
instance Data.ProtoLens.Field.HasField ActivityResolution "backoff" DoBackoff where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "backoff"
-> (DoBackoff -> f DoBackoff)
-> ActivityResolution
-> f ActivityResolution
fieldOf Proxy# "backoff"
_
    = ((Maybe ActivityResolution'Status
  -> f (Maybe ActivityResolution'Status))
 -> ActivityResolution -> f ActivityResolution)
-> ((DoBackoff -> f DoBackoff)
    -> Maybe ActivityResolution'Status
    -> f (Maybe ActivityResolution'Status))
-> (DoBackoff -> f DoBackoff)
-> ActivityResolution
-> f ActivityResolution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityResolution -> Maybe ActivityResolution'Status)
-> (ActivityResolution
    -> Maybe ActivityResolution'Status -> ActivityResolution)
-> Lens
     ActivityResolution
     ActivityResolution
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status
           (\ ActivityResolution
x__ Maybe ActivityResolution'Status
y__ -> ActivityResolution
x__ {_ActivityResolution'status = y__}))
        (((Maybe DoBackoff -> f (Maybe DoBackoff))
 -> Maybe ActivityResolution'Status
 -> f (Maybe ActivityResolution'Status))
-> ((DoBackoff -> f DoBackoff)
    -> Maybe DoBackoff -> f (Maybe DoBackoff))
-> (DoBackoff -> f DoBackoff)
-> Maybe ActivityResolution'Status
-> f (Maybe ActivityResolution'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityResolution'Status -> Maybe DoBackoff)
-> (Maybe ActivityResolution'Status
    -> Maybe DoBackoff -> Maybe ActivityResolution'Status)
-> Lens
     (Maybe ActivityResolution'Status)
     (Maybe ActivityResolution'Status)
     (Maybe DoBackoff)
     (Maybe DoBackoff)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityResolution'Status
x__
                 -> case Maybe ActivityResolution'Status
x__ of
                      (Prelude.Just (ActivityResolution'Backoff DoBackoff
x__val))
                        -> DoBackoff -> Maybe DoBackoff
forall a. a -> Maybe a
Prelude.Just DoBackoff
x__val
                      Maybe ActivityResolution'Status
_otherwise -> Maybe DoBackoff
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityResolution'Status
_ Maybe DoBackoff
y__ -> (DoBackoff -> ActivityResolution'Status)
-> Maybe DoBackoff -> Maybe ActivityResolution'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DoBackoff -> ActivityResolution'Status
ActivityResolution'Backoff Maybe DoBackoff
y__))
           (DoBackoff -> Lens' (Maybe DoBackoff) DoBackoff
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DoBackoff
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message ActivityResolution where
  messageName :: Proxy ActivityResolution -> Text
messageName Proxy ActivityResolution
_
    = String -> Text
Data.Text.pack String
"coresdk.activity_result.ActivityResolution"
  packedMessageDescriptor :: Proxy ActivityResolution -> ByteString
packedMessageDescriptor Proxy ActivityResolution
_
    = ByteString
"\n\
      \\DC2ActivityResolution\DC2@\n\
      \\tcompleted\CAN\SOH \SOH(\v2 .coresdk.activity_result.SuccessH\NULR\tcompleted\DC2:\n\
      \\ACKfailed\CAN\STX \SOH(\v2 .coresdk.activity_result.FailureH\NULR\ACKfailed\DC2E\n\
      \\tcancelled\CAN\ETX \SOH(\v2%.coresdk.activity_result.CancellationH\NULR\tcancelled\DC2>\n\
      \\abackoff\CAN\EOT \SOH(\v2\".coresdk.activity_result.DoBackoffH\NULR\abackoffB\b\n\
      \\ACKstatus"
  packedFileDescriptor :: Proxy ActivityResolution -> ByteString
packedFileDescriptor Proxy ActivityResolution
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ActivityResolution)
fieldsByTag
    = let
        completed__field_descriptor :: FieldDescriptor ActivityResolution
completed__field_descriptor
          = String
-> FieldTypeDescriptor Success
-> FieldAccessor ActivityResolution Success
-> FieldDescriptor ActivityResolution
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"completed"
              (MessageOrGroup -> FieldTypeDescriptor Success
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Success)
              (Lens' ActivityResolution (Maybe Success)
-> FieldAccessor ActivityResolution Success
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'completed")) ::
              Data.ProtoLens.FieldDescriptor ActivityResolution
        failed__field_descriptor :: FieldDescriptor ActivityResolution
failed__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor ActivityResolution Failure
-> FieldDescriptor ActivityResolution
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failed"
              (MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Failure)
              (Lens' ActivityResolution (Maybe Failure)
-> FieldAccessor ActivityResolution Failure
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'failed")) ::
              Data.ProtoLens.FieldDescriptor ActivityResolution
        cancelled__field_descriptor :: FieldDescriptor ActivityResolution
cancelled__field_descriptor
          = String
-> FieldTypeDescriptor Cancellation
-> FieldAccessor ActivityResolution Cancellation
-> FieldDescriptor ActivityResolution
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cancelled"
              (MessageOrGroup -> FieldTypeDescriptor Cancellation
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Cancellation)
              (Lens' ActivityResolution (Maybe Cancellation)
-> FieldAccessor ActivityResolution Cancellation
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'cancelled")) ::
              Data.ProtoLens.FieldDescriptor ActivityResolution
        backoff__field_descriptor :: FieldDescriptor ActivityResolution
backoff__field_descriptor
          = String
-> FieldTypeDescriptor DoBackoff
-> FieldAccessor ActivityResolution DoBackoff
-> FieldDescriptor ActivityResolution
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"backoff"
              (MessageOrGroup -> FieldTypeDescriptor DoBackoff
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DoBackoff)
              (Lens' ActivityResolution (Maybe DoBackoff)
-> FieldAccessor ActivityResolution DoBackoff
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'backoff")) ::
              Data.ProtoLens.FieldDescriptor ActivityResolution
      in
        [(Tag, FieldDescriptor ActivityResolution)]
-> Map Tag (FieldDescriptor ActivityResolution)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ActivityResolution
completed__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ActivityResolution
failed__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ActivityResolution
cancelled__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ActivityResolution
backoff__field_descriptor)]
  unknownFields :: Lens' ActivityResolution FieldSet
unknownFields
    = (ActivityResolution -> FieldSet)
-> (ActivityResolution -> FieldSet -> ActivityResolution)
-> Lens' ActivityResolution FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ActivityResolution -> FieldSet
_ActivityResolution'_unknownFields
        (\ ActivityResolution
x__ FieldSet
y__ -> ActivityResolution
x__ {_ActivityResolution'_unknownFields = y__})
  defMessage :: ActivityResolution
defMessage
    = ActivityResolution'_constructor
        {_ActivityResolution'status :: Maybe ActivityResolution'Status
_ActivityResolution'status = Maybe ActivityResolution'Status
forall a. Maybe a
Prelude.Nothing,
         _ActivityResolution'_unknownFields :: FieldSet
_ActivityResolution'_unknownFields = []}
  parseMessage :: Parser ActivityResolution
parseMessage
    = let
        loop ::
          ActivityResolution
          -> Data.ProtoLens.Encoding.Bytes.Parser ActivityResolution
        loop :: ActivityResolution -> Parser ActivityResolution
loop ActivityResolution
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Success -> String -> Parser Success
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"completed"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"completed") y x)
                        Word64
18
                          -> do y <- Parser Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"failed"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failed") y x)
                        Word64
26
                          -> do y <- Parser Cancellation -> String -> Parser Cancellation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"cancelled"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"cancelled") y x)
                        Word64
34
                          -> do y <- Parser DoBackoff -> String -> Parser DoBackoff
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
"backoff"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"backoff") 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 ActivityResolution -> String -> Parser ActivityResolution
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ActivityResolution -> Parser ActivityResolution
loop ActivityResolution
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ActivityResolution"
  buildMessage :: ActivityResolution -> Builder
buildMessage
    = \ ActivityResolution
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ActivityResolution'Status)
  ActivityResolution
  ActivityResolution
  (Maybe ActivityResolution'Status)
  (Maybe ActivityResolution'Status)
-> ActivityResolution -> Maybe ActivityResolution'Status
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'status") ActivityResolution
_x
              of
                Maybe ActivityResolution'Status
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (ActivityResolution'Completed Success
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Success -> ByteString) -> Success -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Success -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Success
v)
                (Prelude.Just (ActivityResolution'Failed Failure
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
v)
                (Prelude.Just (ActivityResolution'Cancelled Cancellation
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((ByteString -> Builder)
-> (Cancellation -> ByteString) -> Cancellation -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Cancellation -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Cancellation
v)
                (Prelude.Just (ActivityResolution'Backoff DoBackoff
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                       ((ByteString -> Builder)
-> (DoBackoff -> ByteString) -> DoBackoff -> 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))
                          DoBackoff -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage DoBackoff
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet ActivityResolution ActivityResolution FieldSet FieldSet
-> ActivityResolution -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet ActivityResolution ActivityResolution FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ActivityResolution FieldSet
Data.ProtoLens.unknownFields ActivityResolution
_x))
instance Control.DeepSeq.NFData ActivityResolution where
  rnf :: ActivityResolution -> ()
rnf
    = \ ActivityResolution
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ActivityResolution -> FieldSet
_ActivityResolution'_unknownFields ActivityResolution
x__)
             (Maybe ActivityResolution'Status -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ActivityResolution -> Maybe ActivityResolution'Status
_ActivityResolution'status ActivityResolution
x__) ())
instance Control.DeepSeq.NFData ActivityResolution'Status where
  rnf :: ActivityResolution'Status -> ()
rnf (ActivityResolution'Completed Success
x__) = Success -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Success
x__
  rnf (ActivityResolution'Failed Failure
x__) = Failure -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Failure
x__
  rnf (ActivityResolution'Cancelled Cancellation
x__) = Cancellation -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Cancellation
x__
  rnf (ActivityResolution'Backoff DoBackoff
x__) = DoBackoff -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf DoBackoff
x__
_ActivityResolution'Completed ::
  Data.ProtoLens.Prism.Prism' ActivityResolution'Status Success
_ActivityResolution'Completed :: Prism' ActivityResolution'Status Success
_ActivityResolution'Completed
  = (Success -> ActivityResolution'Status)
-> (ActivityResolution'Status -> Maybe Success)
-> Prism' ActivityResolution'Status Success
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Success -> ActivityResolution'Status
ActivityResolution'Completed
      (\ ActivityResolution'Status
p__
         -> case ActivityResolution'Status
p__ of
              (ActivityResolution'Completed Success
p__val) -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
p__val
              ActivityResolution'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
_ActivityResolution'Failed ::
  Data.ProtoLens.Prism.Prism' ActivityResolution'Status Failure
_ActivityResolution'Failed :: Prism' ActivityResolution'Status Failure
_ActivityResolution'Failed
  = (Failure -> ActivityResolution'Status)
-> (ActivityResolution'Status -> Maybe Failure)
-> Prism' ActivityResolution'Status Failure
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Failure -> ActivityResolution'Status
ActivityResolution'Failed
      (\ ActivityResolution'Status
p__
         -> case ActivityResolution'Status
p__ of
              (ActivityResolution'Failed Failure
p__val) -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
p__val
              ActivityResolution'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
_ActivityResolution'Cancelled ::
  Data.ProtoLens.Prism.Prism' ActivityResolution'Status Cancellation
_ActivityResolution'Cancelled :: Prism' ActivityResolution'Status Cancellation
_ActivityResolution'Cancelled
  = (Cancellation -> ActivityResolution'Status)
-> (ActivityResolution'Status -> Maybe Cancellation)
-> Prism' ActivityResolution'Status Cancellation
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Cancellation -> ActivityResolution'Status
ActivityResolution'Cancelled
      (\ ActivityResolution'Status
p__
         -> case ActivityResolution'Status
p__ of
              (ActivityResolution'Cancelled Cancellation
p__val) -> Cancellation -> Maybe Cancellation
forall a. a -> Maybe a
Prelude.Just Cancellation
p__val
              ActivityResolution'Status
_otherwise -> Maybe Cancellation
forall a. Maybe a
Prelude.Nothing)
_ActivityResolution'Backoff ::
  Data.ProtoLens.Prism.Prism' ActivityResolution'Status DoBackoff
_ActivityResolution'Backoff :: Prism' ActivityResolution'Status DoBackoff
_ActivityResolution'Backoff
  = (DoBackoff -> ActivityResolution'Status)
-> (ActivityResolution'Status -> Maybe DoBackoff)
-> Prism' ActivityResolution'Status DoBackoff
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      DoBackoff -> ActivityResolution'Status
ActivityResolution'Backoff
      (\ ActivityResolution'Status
p__
         -> case ActivityResolution'Status
p__ of
              (ActivityResolution'Backoff DoBackoff
p__val) -> DoBackoff -> Maybe DoBackoff
forall a. a -> Maybe a
Prelude.Just DoBackoff
p__val
              ActivityResolution'Status
_otherwise -> Maybe DoBackoff
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.failure' @:: Lens' Cancellation Proto.Temporal.Api.Failure.V1.Message.Failure@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'failure' @:: Lens' Cancellation (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure)@ -}
data Cancellation
  = Cancellation'_constructor {Cancellation -> Maybe Failure
_Cancellation'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure),
                               Cancellation -> FieldSet
_Cancellation'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Cancellation -> Cancellation -> Bool
(Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Bool) -> Eq Cancellation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Cancellation -> Cancellation -> Bool
== :: Cancellation -> Cancellation -> Bool
$c/= :: Cancellation -> Cancellation -> Bool
/= :: Cancellation -> Cancellation -> Bool
Prelude.Eq, Eq Cancellation
Eq Cancellation =>
(Cancellation -> Cancellation -> Ordering)
-> (Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Cancellation)
-> (Cancellation -> Cancellation -> Cancellation)
-> Ord Cancellation
Cancellation -> Cancellation -> Bool
Cancellation -> Cancellation -> Ordering
Cancellation -> Cancellation -> Cancellation
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Cancellation -> Cancellation -> Ordering
compare :: Cancellation -> Cancellation -> Ordering
$c< :: Cancellation -> Cancellation -> Bool
< :: Cancellation -> Cancellation -> Bool
$c<= :: Cancellation -> Cancellation -> Bool
<= :: Cancellation -> Cancellation -> Bool
$c> :: Cancellation -> Cancellation -> Bool
> :: Cancellation -> Cancellation -> Bool
$c>= :: Cancellation -> Cancellation -> Bool
>= :: Cancellation -> Cancellation -> Bool
$cmax :: Cancellation -> Cancellation -> Cancellation
max :: Cancellation -> Cancellation -> Cancellation
$cmin :: Cancellation -> Cancellation -> Cancellation
min :: Cancellation -> Cancellation -> Cancellation
Prelude.Ord)
instance Prelude.Show Cancellation where
  showsPrec :: Int -> Cancellation -> ShowS
showsPrec Int
_ Cancellation
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Cancellation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Cancellation
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Cancellation "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure"
-> (Failure -> f Failure) -> Cancellation -> f Cancellation
fieldOf Proxy# "failure"
_
    = ((Maybe Failure -> f (Maybe Failure))
 -> Cancellation -> f Cancellation)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Cancellation
-> f Cancellation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Cancellation -> Maybe Failure)
-> (Cancellation -> Maybe Failure -> Cancellation)
-> Lens Cancellation Cancellation (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Cancellation -> Maybe Failure
_Cancellation'failure
           (\ Cancellation
x__ Maybe Failure
y__ -> Cancellation
x__ {_Cancellation'failure = y__}))
        (Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Cancellation "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure))
-> Cancellation
-> f Cancellation
fieldOf Proxy# "maybe'failure"
_
    = ((Maybe Failure -> f (Maybe Failure))
 -> Cancellation -> f Cancellation)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> Cancellation
-> f Cancellation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Cancellation -> Maybe Failure)
-> (Cancellation -> Maybe Failure -> Cancellation)
-> Lens Cancellation Cancellation (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Cancellation -> Maybe Failure
_Cancellation'failure
           (\ Cancellation
x__ Maybe Failure
y__ -> Cancellation
x__ {_Cancellation'failure = y__}))
        (Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Cancellation where
  messageName :: Proxy Cancellation -> Text
messageName Proxy Cancellation
_
    = String -> Text
Data.Text.pack String
"coresdk.activity_result.Cancellation"
  packedMessageDescriptor :: Proxy Cancellation -> ByteString
packedMessageDescriptor Proxy Cancellation
_
    = ByteString
"\n\
      \\fCancellation\DC2:\n\
      \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure"
  packedFileDescriptor :: Proxy Cancellation -> ByteString
packedFileDescriptor Proxy Cancellation
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Cancellation)
fieldsByTag
    = let
        failure__field_descriptor :: FieldDescriptor Cancellation
failure__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor Cancellation Failure
-> FieldDescriptor Cancellation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failure"
              (MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure)
              (Lens Cancellation Cancellation (Maybe Failure) (Maybe Failure)
-> FieldAccessor Cancellation Failure
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'failure")) ::
              Data.ProtoLens.FieldDescriptor Cancellation
      in
        [(Tag, FieldDescriptor Cancellation)]
-> Map Tag (FieldDescriptor Cancellation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Cancellation
failure__field_descriptor)]
  unknownFields :: Lens' Cancellation FieldSet
unknownFields
    = (Cancellation -> FieldSet)
-> (Cancellation -> FieldSet -> Cancellation)
-> Lens' Cancellation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Cancellation -> FieldSet
_Cancellation'_unknownFields
        (\ Cancellation
x__ FieldSet
y__ -> Cancellation
x__ {_Cancellation'_unknownFields = y__})
  defMessage :: Cancellation
defMessage
    = Cancellation'_constructor
        {_Cancellation'failure :: Maybe Failure
_Cancellation'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
         _Cancellation'_unknownFields :: FieldSet
_Cancellation'_unknownFields = []}
  parseMessage :: Parser Cancellation
parseMessage
    = let
        loop ::
          Cancellation -> Data.ProtoLens.Encoding.Bytes.Parser Cancellation
        loop :: Cancellation -> Parser Cancellation
loop Cancellation
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"failure"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Cancellation -> String -> Parser Cancellation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Cancellation -> Parser Cancellation
loop Cancellation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Cancellation"
  buildMessage :: Cancellation -> Builder
buildMessage
    = \ Cancellation
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Failure)
  Cancellation
  Cancellation
  (Maybe Failure)
  (Maybe Failure)
-> Cancellation -> Maybe Failure
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'failure") Cancellation
_x
              of
                Maybe Failure
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Failure
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet Cancellation Cancellation FieldSet FieldSet
-> Cancellation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Cancellation Cancellation FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Cancellation FieldSet
Data.ProtoLens.unknownFields Cancellation
_x))
instance Control.DeepSeq.NFData Cancellation where
  rnf :: Cancellation -> ()
rnf
    = \ Cancellation
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Cancellation -> FieldSet
_Cancellation'_unknownFields Cancellation
x__)
             (Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Cancellation -> Maybe Failure
_Cancellation'failure Cancellation
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.attempt' @:: Lens' DoBackoff Data.Word.Word32@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.backoffDuration' @:: Lens' DoBackoff Proto.Google.Protobuf.Duration.Duration@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'backoffDuration' @:: Lens' DoBackoff (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration)@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.originalScheduleTime' @:: Lens' DoBackoff Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'originalScheduleTime' @:: Lens' DoBackoff (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@ -}
data DoBackoff
  = DoBackoff'_constructor {DoBackoff -> Word32
_DoBackoff'attempt :: !Data.Word.Word32,
                            DoBackoff -> Maybe Duration
_DoBackoff'backoffDuration :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
                            DoBackoff -> Maybe Timestamp
_DoBackoff'originalScheduleTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                            DoBackoff -> FieldSet
_DoBackoff'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DoBackoff -> DoBackoff -> Bool
(DoBackoff -> DoBackoff -> Bool)
-> (DoBackoff -> DoBackoff -> Bool) -> Eq DoBackoff
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DoBackoff -> DoBackoff -> Bool
== :: DoBackoff -> DoBackoff -> Bool
$c/= :: DoBackoff -> DoBackoff -> Bool
/= :: DoBackoff -> DoBackoff -> Bool
Prelude.Eq, Eq DoBackoff
Eq DoBackoff =>
(DoBackoff -> DoBackoff -> Ordering)
-> (DoBackoff -> DoBackoff -> Bool)
-> (DoBackoff -> DoBackoff -> Bool)
-> (DoBackoff -> DoBackoff -> Bool)
-> (DoBackoff -> DoBackoff -> Bool)
-> (DoBackoff -> DoBackoff -> DoBackoff)
-> (DoBackoff -> DoBackoff -> DoBackoff)
-> Ord DoBackoff
DoBackoff -> DoBackoff -> Bool
DoBackoff -> DoBackoff -> Ordering
DoBackoff -> DoBackoff -> DoBackoff
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 :: DoBackoff -> DoBackoff -> Ordering
compare :: DoBackoff -> DoBackoff -> Ordering
$c< :: DoBackoff -> DoBackoff -> Bool
< :: DoBackoff -> DoBackoff -> Bool
$c<= :: DoBackoff -> DoBackoff -> Bool
<= :: DoBackoff -> DoBackoff -> Bool
$c> :: DoBackoff -> DoBackoff -> Bool
> :: DoBackoff -> DoBackoff -> Bool
$c>= :: DoBackoff -> DoBackoff -> Bool
>= :: DoBackoff -> DoBackoff -> Bool
$cmax :: DoBackoff -> DoBackoff -> DoBackoff
max :: DoBackoff -> DoBackoff -> DoBackoff
$cmin :: DoBackoff -> DoBackoff -> DoBackoff
min :: DoBackoff -> DoBackoff -> DoBackoff
Prelude.Ord)
instance Prelude.Show DoBackoff where
  showsPrec :: Int -> DoBackoff -> ShowS
showsPrec Int
_ DoBackoff
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DoBackoff -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DoBackoff
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DoBackoff "attempt" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "attempt"
-> (Word32 -> f Word32) -> DoBackoff -> f DoBackoff
fieldOf Proxy# "attempt"
_
    = ((Word32 -> f Word32) -> DoBackoff -> f DoBackoff)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> DoBackoff
-> f DoBackoff
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DoBackoff -> Word32)
-> (DoBackoff -> Word32 -> DoBackoff)
-> Lens DoBackoff DoBackoff Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DoBackoff -> Word32
_DoBackoff'attempt (\ DoBackoff
x__ Word32
y__ -> DoBackoff
x__ {_DoBackoff'attempt = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DoBackoff "backoffDuration" Proto.Google.Protobuf.Duration.Duration where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "backoffDuration"
-> (Duration -> f Duration) -> DoBackoff -> f DoBackoff
fieldOf Proxy# "backoffDuration"
_
    = ((Maybe Duration -> f (Maybe Duration))
 -> DoBackoff -> f DoBackoff)
-> ((Duration -> f Duration)
    -> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> DoBackoff
-> f DoBackoff
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DoBackoff -> Maybe Duration)
-> (DoBackoff -> Maybe Duration -> DoBackoff)
-> Lens DoBackoff DoBackoff (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DoBackoff -> Maybe Duration
_DoBackoff'backoffDuration
           (\ DoBackoff
x__ Maybe Duration
y__ -> DoBackoff
x__ {_DoBackoff'backoffDuration = 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 DoBackoff "maybe'backoffDuration" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'backoffDuration"
-> (Maybe Duration -> f (Maybe Duration))
-> DoBackoff
-> f DoBackoff
fieldOf Proxy# "maybe'backoffDuration"
_
    = ((Maybe Duration -> f (Maybe Duration))
 -> DoBackoff -> f DoBackoff)
-> ((Maybe Duration -> f (Maybe Duration))
    -> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> DoBackoff
-> f DoBackoff
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DoBackoff -> Maybe Duration)
-> (DoBackoff -> Maybe Duration -> DoBackoff)
-> Lens DoBackoff DoBackoff (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DoBackoff -> Maybe Duration
_DoBackoff'backoffDuration
           (\ DoBackoff
x__ Maybe Duration
y__ -> DoBackoff
x__ {_DoBackoff'backoffDuration = y__}))
        (Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DoBackoff "originalScheduleTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "originalScheduleTime"
-> (Timestamp -> f Timestamp) -> DoBackoff -> f DoBackoff
fieldOf Proxy# "originalScheduleTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> DoBackoff -> f DoBackoff)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> DoBackoff
-> f DoBackoff
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DoBackoff -> Maybe Timestamp)
-> (DoBackoff -> Maybe Timestamp -> DoBackoff)
-> Lens DoBackoff DoBackoff (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DoBackoff -> Maybe Timestamp
_DoBackoff'originalScheduleTime
           (\ DoBackoff
x__ Maybe Timestamp
y__ -> DoBackoff
x__ {_DoBackoff'originalScheduleTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DoBackoff "maybe'originalScheduleTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'originalScheduleTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> DoBackoff
-> f DoBackoff
fieldOf Proxy# "maybe'originalScheduleTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> DoBackoff -> f DoBackoff)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> DoBackoff
-> f DoBackoff
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DoBackoff -> Maybe Timestamp)
-> (DoBackoff -> Maybe Timestamp -> DoBackoff)
-> Lens DoBackoff DoBackoff (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DoBackoff -> Maybe Timestamp
_DoBackoff'originalScheduleTime
           (\ DoBackoff
x__ Maybe Timestamp
y__ -> DoBackoff
x__ {_DoBackoff'originalScheduleTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DoBackoff where
  messageName :: Proxy DoBackoff -> Text
messageName Proxy DoBackoff
_ = String -> Text
Data.Text.pack String
"coresdk.activity_result.DoBackoff"
  packedMessageDescriptor :: Proxy DoBackoff -> ByteString
packedMessageDescriptor Proxy DoBackoff
_
    = ByteString
"\n\
      \\tDoBackoff\DC2\CAN\n\
      \\aattempt\CAN\SOH \SOH(\rR\aattempt\DC2D\n\
      \\DLEbackoff_duration\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\SIbackoffDuration\DC2P\n\
      \\SYNoriginal_schedule_time\CAN\ETX \SOH(\v2\SUB.google.protobuf.TimestampR\DC4originalScheduleTime"
  packedFileDescriptor :: Proxy DoBackoff -> ByteString
packedFileDescriptor Proxy DoBackoff
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DoBackoff)
fieldsByTag
    = let
        attempt__field_descriptor :: FieldDescriptor DoBackoff
attempt__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor DoBackoff Word32
-> FieldDescriptor DoBackoff
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"attempt"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (WireDefault Word32
-> Lens DoBackoff DoBackoff Word32 Word32
-> FieldAccessor DoBackoff Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attempt")) ::
              Data.ProtoLens.FieldDescriptor DoBackoff
        backoffDuration__field_descriptor :: FieldDescriptor DoBackoff
backoffDuration__field_descriptor
          = String
-> FieldTypeDescriptor Duration
-> FieldAccessor DoBackoff Duration
-> FieldDescriptor DoBackoff
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"backoff_duration"
              (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 DoBackoff DoBackoff (Maybe Duration) (Maybe Duration)
-> FieldAccessor DoBackoff 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'backoffDuration")) ::
              Data.ProtoLens.FieldDescriptor DoBackoff
        originalScheduleTime__field_descriptor :: FieldDescriptor DoBackoff
originalScheduleTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor DoBackoff Timestamp
-> FieldDescriptor DoBackoff
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"original_schedule_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens DoBackoff DoBackoff (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor DoBackoff Timestamp
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'originalScheduleTime")) ::
              Data.ProtoLens.FieldDescriptor DoBackoff
      in
        [(Tag, FieldDescriptor DoBackoff)]
-> Map Tag (FieldDescriptor DoBackoff)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DoBackoff
attempt__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DoBackoff
backoffDuration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor DoBackoff
originalScheduleTime__field_descriptor)]
  unknownFields :: Lens' DoBackoff FieldSet
unknownFields
    = (DoBackoff -> FieldSet)
-> (DoBackoff -> FieldSet -> DoBackoff) -> Lens' DoBackoff FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DoBackoff -> FieldSet
_DoBackoff'_unknownFields
        (\ DoBackoff
x__ FieldSet
y__ -> DoBackoff
x__ {_DoBackoff'_unknownFields = y__})
  defMessage :: DoBackoff
defMessage
    = DoBackoff'_constructor
        {_DoBackoff'attempt :: Word32
_DoBackoff'attempt = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DoBackoff'backoffDuration :: Maybe Duration
_DoBackoff'backoffDuration = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
         _DoBackoff'originalScheduleTime :: Maybe Timestamp
_DoBackoff'originalScheduleTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _DoBackoff'_unknownFields :: FieldSet
_DoBackoff'_unknownFields = []}
  parseMessage :: Parser DoBackoff
parseMessage
    = let
        loop :: DoBackoff -> Data.ProtoLens.Encoding.Bytes.Parser DoBackoff
        loop :: DoBackoff -> Parser DoBackoff
loop DoBackoff
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 Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"attempt"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"attempt") y x)
                        Word64
18
                          -> 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
"backoff_duration"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"backoffDuration") y x)
                        Word64
26
                          -> do y <- Parser Timestamp -> String -> Parser Timestamp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"original_schedule_time"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"originalScheduleTime") 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 DoBackoff -> String -> Parser DoBackoff
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DoBackoff -> Parser DoBackoff
loop DoBackoff
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DoBackoff"
  buildMessage :: DoBackoff -> Builder
buildMessage
    = \ DoBackoff
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word32
_v = FoldLike Word32 DoBackoff DoBackoff Word32 Word32
-> DoBackoff -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attempt") DoBackoff
_x
              in
                if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Duration)
  DoBackoff
  DoBackoff
  (Maybe Duration)
  (Maybe Duration)
-> DoBackoff -> 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'backoffDuration") DoBackoff
_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
18)
                          ((ByteString -> Builder)
-> (Duration -> ByteString) -> Duration -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             Duration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Duration
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Timestamp)
  DoBackoff
  DoBackoff
  (Maybe Timestamp)
  (Maybe Timestamp)
-> DoBackoff -> Maybe Timestamp
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'originalScheduleTime") DoBackoff
_x
                    of
                      Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Timestamp
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet DoBackoff DoBackoff FieldSet FieldSet
-> DoBackoff -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet DoBackoff DoBackoff FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DoBackoff FieldSet
Data.ProtoLens.unknownFields DoBackoff
_x))))
instance Control.DeepSeq.NFData DoBackoff where
  rnf :: DoBackoff -> ()
rnf
    = \ DoBackoff
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DoBackoff -> FieldSet
_DoBackoff'_unknownFields DoBackoff
x__)
             (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DoBackoff -> Word32
_DoBackoff'attempt DoBackoff
x__)
                (Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DoBackoff -> Maybe Duration
_DoBackoff'backoffDuration DoBackoff
x__)
                   (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (DoBackoff -> Maybe Timestamp
_DoBackoff'originalScheduleTime DoBackoff
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.failure' @:: Lens' Failure Proto.Temporal.Api.Failure.V1.Message.Failure@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'failure' @:: Lens' Failure (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure)@ -}
data Failure
  = Failure'_constructor {Failure -> Maybe Failure
_Failure'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure),
                          Failure -> FieldSet
_Failure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Failure -> Failure -> Bool
(Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool) -> Eq Failure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Failure -> Failure -> Bool
== :: Failure -> Failure -> Bool
$c/= :: Failure -> Failure -> Bool
/= :: Failure -> Failure -> Bool
Prelude.Eq, Eq Failure
Eq Failure =>
(Failure -> Failure -> Ordering)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Failure)
-> (Failure -> Failure -> Failure)
-> Ord Failure
Failure -> Failure -> Bool
Failure -> Failure -> Ordering
Failure -> Failure -> Failure
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Failure -> Failure -> Ordering
compare :: Failure -> Failure -> Ordering
$c< :: Failure -> Failure -> Bool
< :: Failure -> Failure -> Bool
$c<= :: Failure -> Failure -> Bool
<= :: Failure -> Failure -> Bool
$c> :: Failure -> Failure -> Bool
> :: Failure -> Failure -> Bool
$c>= :: Failure -> Failure -> Bool
>= :: Failure -> Failure -> Bool
$cmax :: Failure -> Failure -> Failure
max :: Failure -> Failure -> Failure
$cmin :: Failure -> Failure -> Failure
min :: Failure -> Failure -> Failure
Prelude.Ord)
instance Prelude.Show Failure where
  showsPrec :: Int -> Failure -> ShowS
showsPrec Int
_ Failure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Failure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Failure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Failure "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure" -> (Failure -> f Failure) -> Failure -> f Failure
fieldOf Proxy# "failure"
_
    = ((Maybe Failure -> f (Maybe Failure)) -> Failure -> f Failure)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure -> Maybe Failure)
-> (Failure -> Maybe Failure -> Failure)
-> Lens Failure Failure (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure -> Maybe Failure
_Failure'failure (\ Failure
x__ Maybe Failure
y__ -> Failure
x__ {_Failure'failure = y__}))
        (Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Failure "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure)) -> Failure -> f Failure
fieldOf Proxy# "maybe'failure"
_
    = ((Maybe Failure -> f (Maybe Failure)) -> Failure -> f Failure)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure -> Maybe Failure)
-> (Failure -> Maybe Failure -> Failure)
-> Lens Failure Failure (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure -> Maybe Failure
_Failure'failure (\ Failure
x__ Maybe Failure
y__ -> Failure
x__ {_Failure'failure = y__}))
        (Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Failure where
  messageName :: Proxy Failure -> Text
messageName Proxy Failure
_ = String -> Text
Data.Text.pack String
"coresdk.activity_result.Failure"
  packedMessageDescriptor :: Proxy Failure -> ByteString
packedMessageDescriptor Proxy Failure
_
    = ByteString
"\n\
      \\aFailure\DC2:\n\
      \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure"
  packedFileDescriptor :: Proxy Failure -> ByteString
packedFileDescriptor Proxy Failure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Failure)
fieldsByTag
    = let
        failure__field_descriptor :: FieldDescriptor Failure
failure__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor Failure Failure
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failure"
              (MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure)
              (Lens Failure Failure (Maybe Failure) (Maybe Failure)
-> FieldAccessor Failure Failure
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'failure")) ::
              Data.ProtoLens.FieldDescriptor Failure
      in
        [(Tag, FieldDescriptor Failure)]
-> Map Tag (FieldDescriptor Failure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Failure
failure__field_descriptor)]
  unknownFields :: Lens' Failure FieldSet
unknownFields
    = (Failure -> FieldSet)
-> (Failure -> FieldSet -> Failure) -> Lens' Failure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Failure -> FieldSet
_Failure'_unknownFields
        (\ Failure
x__ FieldSet
y__ -> Failure
x__ {_Failure'_unknownFields = y__})
  defMessage :: Failure
defMessage
    = Failure'_constructor
        {_Failure'failure :: Maybe Failure
_Failure'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing, _Failure'_unknownFields :: FieldSet
_Failure'_unknownFields = []}
  parseMessage :: Parser Failure
parseMessage
    = let
        loop :: Failure -> Data.ProtoLens.Encoding.Bytes.Parser Failure
        loop :: Failure -> Parser Failure
loop Failure
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"failure"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Failure -> Parser Failure
loop Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Failure"
  buildMessage :: Failure -> Builder
buildMessage
    = \ Failure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Failure) Failure Failure (Maybe Failure) (Maybe Failure)
-> Failure -> Maybe Failure
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'failure") Failure
_x
              of
                Maybe Failure
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Failure
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet Failure Failure FieldSet FieldSet
-> Failure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Failure Failure FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Failure FieldSet
Data.ProtoLens.unknownFields Failure
_x))
instance Control.DeepSeq.NFData Failure where
  rnf :: Failure -> ()
rnf
    = \ Failure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Failure -> FieldSet
_Failure'_unknownFields Failure
x__)
             (Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Failure -> Maybe Failure
_Failure'failure Failure
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.result' @:: Lens' Success Proto.Temporal.Api.Common.V1.Message.Payload@
         * 'Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult_Fields.maybe'result' @:: Lens' Success (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload)@ -}
data Success
  = Success'_constructor {Success -> Maybe Payload
_Success'result :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload),
                          Success -> FieldSet
_Success'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Success -> Success -> Bool
(Success -> Success -> Bool)
-> (Success -> Success -> Bool) -> Eq Success
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Success -> Success -> Bool
== :: Success -> Success -> Bool
$c/= :: Success -> Success -> Bool
/= :: Success -> Success -> Bool
Prelude.Eq, Eq Success
Eq Success =>
(Success -> Success -> Ordering)
-> (Success -> Success -> Bool)
-> (Success -> Success -> Bool)
-> (Success -> Success -> Bool)
-> (Success -> Success -> Bool)
-> (Success -> Success -> Success)
-> (Success -> Success -> Success)
-> Ord Success
Success -> Success -> Bool
Success -> Success -> Ordering
Success -> Success -> Success
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Success -> Success -> Ordering
compare :: Success -> Success -> Ordering
$c< :: Success -> Success -> Bool
< :: Success -> Success -> Bool
$c<= :: Success -> Success -> Bool
<= :: Success -> Success -> Bool
$c> :: Success -> Success -> Bool
> :: Success -> Success -> Bool
$c>= :: Success -> Success -> Bool
>= :: Success -> Success -> Bool
$cmax :: Success -> Success -> Success
max :: Success -> Success -> Success
$cmin :: Success -> Success -> Success
min :: Success -> Success -> Success
Prelude.Ord)
instance Prelude.Show Success where
  showsPrec :: Int -> Success -> ShowS
showsPrec Int
_ Success
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Success -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Success
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Success "result" Proto.Temporal.Api.Common.V1.Message.Payload where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "result" -> (Payload -> f Payload) -> Success -> f Success
fieldOf Proxy# "result"
_
    = ((Maybe Payload -> f (Maybe Payload)) -> Success -> f Success)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> Success
-> f Success
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Success -> Maybe Payload)
-> (Success -> Maybe Payload -> Success)
-> Lens Success Success (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Success -> Maybe Payload
_Success'result (\ Success
x__ Maybe Payload
y__ -> Success
x__ {_Success'result = y__}))
        (Payload -> Lens' (Maybe Payload) Payload
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Success "maybe'result" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'result"
-> (Maybe Payload -> f (Maybe Payload)) -> Success -> f Success
fieldOf Proxy# "maybe'result"
_
    = ((Maybe Payload -> f (Maybe Payload)) -> Success -> f Success)
-> ((Maybe Payload -> f (Maybe Payload))
    -> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> Success
-> f Success
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Success -> Maybe Payload)
-> (Success -> Maybe Payload -> Success)
-> Lens Success Success (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Success -> Maybe Payload
_Success'result (\ Success
x__ Maybe Payload
y__ -> Success
x__ {_Success'result = y__}))
        (Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Success where
  messageName :: Proxy Success -> Text
messageName Proxy Success
_ = String -> Text
Data.Text.pack String
"coresdk.activity_result.Success"
  packedMessageDescriptor :: Proxy Success -> ByteString
packedMessageDescriptor Proxy Success
_
    = ByteString
"\n\
      \\aSuccess\DC27\n\
      \\ACKresult\CAN\SOH \SOH(\v2\US.temporal.api.common.v1.PayloadR\ACKresult"
  packedFileDescriptor :: Proxy Success -> ByteString
packedFileDescriptor Proxy Success
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Success)
fieldsByTag
    = let
        result__field_descriptor :: FieldDescriptor Success
result__field_descriptor
          = String
-> FieldTypeDescriptor Payload
-> FieldAccessor Success Payload
-> FieldDescriptor Success
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"result"
              (MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payload)
              (Lens Success Success (Maybe Payload) (Maybe Payload)
-> FieldAccessor Success Payload
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'result")) ::
              Data.ProtoLens.FieldDescriptor Success
      in
        [(Tag, FieldDescriptor Success)]
-> Map Tag (FieldDescriptor Success)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Success
result__field_descriptor)]
  unknownFields :: Lens' Success FieldSet
unknownFields
    = (Success -> FieldSet)
-> (Success -> FieldSet -> Success) -> Lens' Success FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Success -> FieldSet
_Success'_unknownFields
        (\ Success
x__ FieldSet
y__ -> Success
x__ {_Success'_unknownFields = y__})
  defMessage :: Success
defMessage
    = Success'_constructor
        {_Success'result :: Maybe Payload
_Success'result = Maybe Payload
forall a. Maybe a
Prelude.Nothing, _Success'_unknownFields :: FieldSet
_Success'_unknownFields = []}
  parseMessage :: Parser Success
parseMessage
    = let
        loop :: Success -> Data.ProtoLens.Encoding.Bytes.Parser Success
        loop :: Success -> Parser Success
loop Success
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Payload -> String -> Parser Payload
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"result"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"result") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Success -> String -> Parser Success
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Success -> Parser Success
loop Success
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Success"
  buildMessage :: Success -> Builder
buildMessage
    = \ Success
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Payload) Success Success (Maybe Payload) (Maybe Payload)
-> Success -> Maybe Payload
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'result") Success
_x
              of
                Maybe Payload
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Payload
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet Success Success FieldSet FieldSet
-> Success -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Success Success FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Success FieldSet
Data.ProtoLens.unknownFields Success
_x))
instance Control.DeepSeq.NFData Success where
  rnf :: Success -> ()
rnf
    = \ Success
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Success -> FieldSet
_Success'_unknownFields Success
x__)
             (Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Success -> Maybe Payload
_Success'result Success
x__) ())
{- | Fields :
      -}
data WillCompleteAsync
  = WillCompleteAsync'_constructor {WillCompleteAsync -> FieldSet
_WillCompleteAsync'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WillCompleteAsync -> WillCompleteAsync -> Bool
(WillCompleteAsync -> WillCompleteAsync -> Bool)
-> (WillCompleteAsync -> WillCompleteAsync -> Bool)
-> Eq WillCompleteAsync
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WillCompleteAsync -> WillCompleteAsync -> Bool
== :: WillCompleteAsync -> WillCompleteAsync -> Bool
$c/= :: WillCompleteAsync -> WillCompleteAsync -> Bool
/= :: WillCompleteAsync -> WillCompleteAsync -> Bool
Prelude.Eq, Eq WillCompleteAsync
Eq WillCompleteAsync =>
(WillCompleteAsync -> WillCompleteAsync -> Ordering)
-> (WillCompleteAsync -> WillCompleteAsync -> Bool)
-> (WillCompleteAsync -> WillCompleteAsync -> Bool)
-> (WillCompleteAsync -> WillCompleteAsync -> Bool)
-> (WillCompleteAsync -> WillCompleteAsync -> Bool)
-> (WillCompleteAsync -> WillCompleteAsync -> WillCompleteAsync)
-> (WillCompleteAsync -> WillCompleteAsync -> WillCompleteAsync)
-> Ord WillCompleteAsync
WillCompleteAsync -> WillCompleteAsync -> Bool
WillCompleteAsync -> WillCompleteAsync -> Ordering
WillCompleteAsync -> WillCompleteAsync -> WillCompleteAsync
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 :: WillCompleteAsync -> WillCompleteAsync -> Ordering
compare :: WillCompleteAsync -> WillCompleteAsync -> Ordering
$c< :: WillCompleteAsync -> WillCompleteAsync -> Bool
< :: WillCompleteAsync -> WillCompleteAsync -> Bool
$c<= :: WillCompleteAsync -> WillCompleteAsync -> Bool
<= :: WillCompleteAsync -> WillCompleteAsync -> Bool
$c> :: WillCompleteAsync -> WillCompleteAsync -> Bool
> :: WillCompleteAsync -> WillCompleteAsync -> Bool
$c>= :: WillCompleteAsync -> WillCompleteAsync -> Bool
>= :: WillCompleteAsync -> WillCompleteAsync -> Bool
$cmax :: WillCompleteAsync -> WillCompleteAsync -> WillCompleteAsync
max :: WillCompleteAsync -> WillCompleteAsync -> WillCompleteAsync
$cmin :: WillCompleteAsync -> WillCompleteAsync -> WillCompleteAsync
min :: WillCompleteAsync -> WillCompleteAsync -> WillCompleteAsync
Prelude.Ord)
instance Prelude.Show WillCompleteAsync where
  showsPrec :: Int -> WillCompleteAsync -> ShowS
showsPrec Int
_ WillCompleteAsync
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WillCompleteAsync -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WillCompleteAsync
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message WillCompleteAsync where
  messageName :: Proxy WillCompleteAsync -> Text
messageName Proxy WillCompleteAsync
_
    = String -> Text
Data.Text.pack String
"coresdk.activity_result.WillCompleteAsync"
  packedMessageDescriptor :: Proxy WillCompleteAsync -> ByteString
packedMessageDescriptor Proxy WillCompleteAsync
_
    = ByteString
"\n\
      \\DC1WillCompleteAsync"
  packedFileDescriptor :: Proxy WillCompleteAsync -> ByteString
packedFileDescriptor Proxy WillCompleteAsync
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WillCompleteAsync)
fieldsByTag = let in [(Tag, FieldDescriptor WillCompleteAsync)]
-> Map Tag (FieldDescriptor WillCompleteAsync)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' WillCompleteAsync FieldSet
unknownFields
    = (WillCompleteAsync -> FieldSet)
-> (WillCompleteAsync -> FieldSet -> WillCompleteAsync)
-> Lens' WillCompleteAsync FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WillCompleteAsync -> FieldSet
_WillCompleteAsync'_unknownFields
        (\ WillCompleteAsync
x__ FieldSet
y__ -> WillCompleteAsync
x__ {_WillCompleteAsync'_unknownFields = y__})
  defMessage :: WillCompleteAsync
defMessage
    = WillCompleteAsync'_constructor
        {_WillCompleteAsync'_unknownFields :: FieldSet
_WillCompleteAsync'_unknownFields = []}
  parseMessage :: Parser WillCompleteAsync
parseMessage
    = let
        loop ::
          WillCompleteAsync
          -> Data.ProtoLens.Encoding.Bytes.Parser WillCompleteAsync
        loop :: WillCompleteAsync -> Parser WillCompleteAsync
loop WillCompleteAsync
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 WillCompleteAsync -> String -> Parser WillCompleteAsync
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WillCompleteAsync -> Parser WillCompleteAsync
loop WillCompleteAsync
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WillCompleteAsync"
  buildMessage :: WillCompleteAsync -> Builder
buildMessage
    = \ WillCompleteAsync
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet WillCompleteAsync WillCompleteAsync FieldSet FieldSet
-> WillCompleteAsync -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WillCompleteAsync WillCompleteAsync FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WillCompleteAsync FieldSet
Data.ProtoLens.unknownFields WillCompleteAsync
_x)
instance Control.DeepSeq.NFData WillCompleteAsync where
  rnf :: WillCompleteAsync -> ()
rnf
    = \ WillCompleteAsync
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WillCompleteAsync -> FieldSet
_WillCompleteAsync'_unknownFields WillCompleteAsync
x__) ()
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \7temporal/sdk/core/activity_result/activity_result.proto\DC2\ETBcoresdk.activity_result\SUB\RSgoogle/protobuf/duration.proto\SUB\USgoogle/protobuf/timestamp.proto\SUB$temporal/api/common/v1/message.proto\SUB%temporal/api/failure/v1/message.proto\"\198\STX\n\
    \\ETBActivityExecutionResult\DC2@\n\
    \\tcompleted\CAN\SOH \SOH(\v2 .coresdk.activity_result.SuccessH\NULR\tcompleted\DC2:\n\
    \\ACKfailed\CAN\STX \SOH(\v2 .coresdk.activity_result.FailureH\NULR\ACKfailed\DC2E\n\
    \\tcancelled\CAN\ETX \SOH(\v2%.coresdk.activity_result.CancellationH\NULR\tcancelled\DC2\\\n\
    \\DC3will_complete_async\CAN\EOT \SOH(\v2*.coresdk.activity_result.WillCompleteAsyncH\NULR\DC1willCompleteAsyncB\b\n\
    \\ACKstatus\"\163\STX\n\
    \\DC2ActivityResolution\DC2@\n\
    \\tcompleted\CAN\SOH \SOH(\v2 .coresdk.activity_result.SuccessH\NULR\tcompleted\DC2:\n\
    \\ACKfailed\CAN\STX \SOH(\v2 .coresdk.activity_result.FailureH\NULR\ACKfailed\DC2E\n\
    \\tcancelled\CAN\ETX \SOH(\v2%.coresdk.activity_result.CancellationH\NULR\tcancelled\DC2>\n\
    \\abackoff\CAN\EOT \SOH(\v2\".coresdk.activity_result.DoBackoffH\NULR\abackoffB\b\n\
    \\ACKstatus\"B\n\
    \\aSuccess\DC27\n\
    \\ACKresult\CAN\SOH \SOH(\v2\US.temporal.api.common.v1.PayloadR\ACKresult\"E\n\
    \\aFailure\DC2:\n\
    \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\"J\n\
    \\fCancellation\DC2:\n\
    \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\"\DC3\n\
    \\DC1WillCompleteAsync\"\189\SOH\n\
    \\tDoBackoff\DC2\CAN\n\
    \\aattempt\CAN\SOH \SOH(\rR\aattempt\DC2D\n\
    \\DLEbackoff_duration\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\SIbackoffDuration\DC2P\n\
    \\SYNoriginal_schedule_time\CAN\ETX \SOH(\v2\SUB.google.protobuf.TimestampR\DC4originalScheduleTimeB*\234\STX'Temporalio::Bridge::Api::ActivityResultJ\230\DC4\n\
    \\ACK\DC2\EOT\NUL\NULK\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL \n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETX\NUL@\n\
    \\t\n\
    \\STX\b-\DC2\ETX\ETX\NUL@\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\ENQ\NUL(\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\ACK\NUL)\n\
    \\t\n\
    \\STX\ETX\STX\DC2\ETX\a\NUL.\n\
    \\t\n\
    \\STX\ETX\ETX\DC2\ETX\b\NUL/\n\
    \9\n\
    \\STX\EOT\NUL\DC2\EOT\v\NUL\DC2\SOH\SUB- Used to report activity completions to core\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\v\b\US\n\
    \\f\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT\f\EOT\DC1\ENQ\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\f\n\
    \\DLE\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\r\b\RS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\r\b\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\r\DLE\EM\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\r\FS\GS\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\SO\b\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\SO\b\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\SO\DLE\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\SO\EM\SUB\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\SI\b#\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX\SI\b\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\SI\NAK\RS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\SI!\"\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX\DLE\b2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETX\DLE\b\EM\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\DLE\SUB-\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\DLE01\n\
    \~\n\
    \\STX\EOT\SOH\DC2\EOT\SYN\NUL\GS\SOH\SUBr Used to report activity resolutions to lang. IE: This is what the activities are resolved with\n\
    \ in the workflow.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\SYN\b\SUB\n\
    \\f\n\
    \\EOT\EOT\SOH\b\NUL\DC2\EOT\ETB\EOT\FS\ENQ\n\
    \\f\n\
    \\ENQ\EOT\SOH\b\NUL\SOH\DC2\ETX\ETB\n\
    \\DLE\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\CAN\b\RS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\CAN\b\SI\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\CAN\DLE\EM\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\CAN\FS\GS\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\EM\b\ESC\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX\EM\b\SI\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\EM\DLE\SYN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\EM\EM\SUB\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETX\SUB\b#\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX\SUB\b\DC4\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\SUB\NAK\RS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\SUB!\"\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\ETX\DC2\ETX\ESC\b\RS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ACK\DC2\ETX\ESC\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\ESC\DC2\EM\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\ESC\FS\GS\n\
    \U\n\
    \\STX\EOT\STX\DC2\EOT \NUL\"\SOH\SUBI Used to report successful completion either when executing or resolving\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX \b\SI\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX!\EOT.\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX!\EOT\"\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX!#)\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX!,-\n\
    \P\n\
    \\STX\EOT\ETX\DC2\EOT%\NUL'\SOH\SUBD Used to report activity failure either when executing or resolving\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX%\b\SI\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX&\EOT0\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX&\EOT#\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX&$+\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX&./\n\
    \\164\STX\n\
    \\STX\EOT\EOT\DC2\EOT/\NUL1\SOH\SUB\151\STX\n\
    \ Used to report cancellation from both Core and Lang.\n\
    \ When Lang reports a cancelled activity, it must put a CancelledFailure in the failure field.\n\
    \ When Core reports a cancelled activity, it must put an ActivityFailure with CancelledFailure\n\
    \ as the cause in the failure field.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETX/\b\DC4\n\
    \\v\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETX0\EOT0\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX0\EOT#\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX0$+\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX0./\n\
    \\200\SOH\n\
    \\STX\EOT\ENQ\DC2\EOT7\NUL8\SOH\SUB\187\SOH\n\
    \ Used in ActivityExecutionResult to notify Core that this Activity will complete asynchronously.\n\
    \ Core will forget about this Activity and free up resources used to track this Activity.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETX7\b\EM\n\
    \\131\EOT\n\
    \\STX\EOT\ACK\DC2\EOTC\NULK\SOH\SUB\246\ETX\n\
    \ Issued when a local activity needs to retry but also wants to back off more than would be\n\
    \ reasonable to WFT heartbeat for. Lang is expected to schedule a timer for the duration\n\
    \ and then start a local activity of the same type & same inputs with the provided attempt number\n\
    \ after the timer has elapsed.\n\
    \\n\
    \ This exists because Core does not have a concept of starting commands by itself, they originate\n\
    \ from lang. So expecting lang to start the timer / next pass of the activity fits more smoothly.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETXC\b\DC1\n\
    \\183\SOH\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETXF\EOT\ETB\SUB\169\SOH The attempt number that lang should provide when scheduling the retry. If the LA failed\n\
    \ on attempt 4 and we told lang to back off with a timer, this number will be 5.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXF\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXF\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXF\NAK\SYN\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\ETXG\EOT2\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETXG\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXG\GS-\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXG01\n\
    \}\n\
    \\EOT\EOT\ACK\STX\STX\DC2\ETXJ\EOT9\SUBp The time the first attempt of this local activity was scheduled. Must be passed with attempt\n\
    \ to the retry LA.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETXJ\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXJ\RS4\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXJ78b\ACKproto3"