{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SWF.Types.WorkflowExecutionStartedEventAttributes where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.SWF.Types.ChildPolicy
import Amazonka.SWF.Types.TaskList
import Amazonka.SWF.Types.WorkflowExecution
import Amazonka.SWF.Types.WorkflowType
data WorkflowExecutionStartedEventAttributes = WorkflowExecutionStartedEventAttributes'
{
WorkflowExecutionStartedEventAttributes -> Maybe Text
continuedExecutionRunId :: Prelude.Maybe Prelude.Text,
WorkflowExecutionStartedEventAttributes -> Maybe Text
executionStartToCloseTimeout :: Prelude.Maybe Prelude.Text,
WorkflowExecutionStartedEventAttributes -> Maybe Text
input :: Prelude.Maybe Prelude.Text,
WorkflowExecutionStartedEventAttributes -> Maybe Text
lambdaRole :: Prelude.Maybe Prelude.Text,
WorkflowExecutionStartedEventAttributes -> Maybe Integer
parentInitiatedEventId :: Prelude.Maybe Prelude.Integer,
WorkflowExecutionStartedEventAttributes -> Maybe WorkflowExecution
parentWorkflowExecution :: Prelude.Maybe WorkflowExecution,
WorkflowExecutionStartedEventAttributes -> Maybe [Text]
tagList :: Prelude.Maybe [Prelude.Text],
WorkflowExecutionStartedEventAttributes -> Maybe Text
taskPriority :: Prelude.Maybe Prelude.Text,
WorkflowExecutionStartedEventAttributes -> Maybe Text
taskStartToCloseTimeout :: Prelude.Maybe Prelude.Text,
WorkflowExecutionStartedEventAttributes -> ChildPolicy
childPolicy :: ChildPolicy,
WorkflowExecutionStartedEventAttributes -> TaskList
taskList :: TaskList,
WorkflowExecutionStartedEventAttributes -> WorkflowType
workflowType :: WorkflowType
}
deriving (WorkflowExecutionStartedEventAttributes
-> WorkflowExecutionStartedEventAttributes -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WorkflowExecutionStartedEventAttributes
-> WorkflowExecutionStartedEventAttributes -> Bool
$c/= :: WorkflowExecutionStartedEventAttributes
-> WorkflowExecutionStartedEventAttributes -> Bool
== :: WorkflowExecutionStartedEventAttributes
-> WorkflowExecutionStartedEventAttributes -> Bool
$c== :: WorkflowExecutionStartedEventAttributes
-> WorkflowExecutionStartedEventAttributes -> Bool
Prelude.Eq, ReadPrec [WorkflowExecutionStartedEventAttributes]
ReadPrec WorkflowExecutionStartedEventAttributes
Int -> ReadS WorkflowExecutionStartedEventAttributes
ReadS [WorkflowExecutionStartedEventAttributes]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [WorkflowExecutionStartedEventAttributes]
$creadListPrec :: ReadPrec [WorkflowExecutionStartedEventAttributes]
readPrec :: ReadPrec WorkflowExecutionStartedEventAttributes
$creadPrec :: ReadPrec WorkflowExecutionStartedEventAttributes
readList :: ReadS [WorkflowExecutionStartedEventAttributes]
$creadList :: ReadS [WorkflowExecutionStartedEventAttributes]
readsPrec :: Int -> ReadS WorkflowExecutionStartedEventAttributes
$creadsPrec :: Int -> ReadS WorkflowExecutionStartedEventAttributes
Prelude.Read, Int -> WorkflowExecutionStartedEventAttributes -> ShowS
[WorkflowExecutionStartedEventAttributes] -> ShowS
WorkflowExecutionStartedEventAttributes -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WorkflowExecutionStartedEventAttributes] -> ShowS
$cshowList :: [WorkflowExecutionStartedEventAttributes] -> ShowS
show :: WorkflowExecutionStartedEventAttributes -> String
$cshow :: WorkflowExecutionStartedEventAttributes -> String
showsPrec :: Int -> WorkflowExecutionStartedEventAttributes -> ShowS
$cshowsPrec :: Int -> WorkflowExecutionStartedEventAttributes -> ShowS
Prelude.Show, forall x.
Rep WorkflowExecutionStartedEventAttributes x
-> WorkflowExecutionStartedEventAttributes
forall x.
WorkflowExecutionStartedEventAttributes
-> Rep WorkflowExecutionStartedEventAttributes x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep WorkflowExecutionStartedEventAttributes x
-> WorkflowExecutionStartedEventAttributes
$cfrom :: forall x.
WorkflowExecutionStartedEventAttributes
-> Rep WorkflowExecutionStartedEventAttributes x
Prelude.Generic)
newWorkflowExecutionStartedEventAttributes ::
ChildPolicy ->
TaskList ->
WorkflowType ->
WorkflowExecutionStartedEventAttributes
newWorkflowExecutionStartedEventAttributes :: ChildPolicy
-> TaskList
-> WorkflowType
-> WorkflowExecutionStartedEventAttributes
newWorkflowExecutionStartedEventAttributes
ChildPolicy
pChildPolicy_
TaskList
pTaskList_
WorkflowType
pWorkflowType_ =
WorkflowExecutionStartedEventAttributes'
{ $sel:continuedExecutionRunId:WorkflowExecutionStartedEventAttributes' :: Maybe Text
continuedExecutionRunId =
forall a. Maybe a
Prelude.Nothing,
$sel:executionStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: Maybe Text
executionStartToCloseTimeout =
forall a. Maybe a
Prelude.Nothing,
$sel:input:WorkflowExecutionStartedEventAttributes' :: Maybe Text
input = forall a. Maybe a
Prelude.Nothing,
$sel:lambdaRole:WorkflowExecutionStartedEventAttributes' :: Maybe Text
lambdaRole = forall a. Maybe a
Prelude.Nothing,
$sel:parentInitiatedEventId:WorkflowExecutionStartedEventAttributes' :: Maybe Integer
parentInitiatedEventId =
forall a. Maybe a
Prelude.Nothing,
$sel:parentWorkflowExecution:WorkflowExecutionStartedEventAttributes' :: Maybe WorkflowExecution
parentWorkflowExecution =
forall a. Maybe a
Prelude.Nothing,
$sel:tagList:WorkflowExecutionStartedEventAttributes' :: Maybe [Text]
tagList = forall a. Maybe a
Prelude.Nothing,
$sel:taskPriority:WorkflowExecutionStartedEventAttributes' :: Maybe Text
taskPriority = forall a. Maybe a
Prelude.Nothing,
$sel:taskStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: Maybe Text
taskStartToCloseTimeout =
forall a. Maybe a
Prelude.Nothing,
$sel:childPolicy:WorkflowExecutionStartedEventAttributes' :: ChildPolicy
childPolicy = ChildPolicy
pChildPolicy_,
$sel:taskList:WorkflowExecutionStartedEventAttributes' :: TaskList
taskList = TaskList
pTaskList_,
$sel:workflowType:WorkflowExecutionStartedEventAttributes' :: WorkflowType
workflowType = WorkflowType
pWorkflowType_
}
workflowExecutionStartedEventAttributes_continuedExecutionRunId :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text)
workflowExecutionStartedEventAttributes_continuedExecutionRunId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
workflowExecutionStartedEventAttributes_continuedExecutionRunId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {Maybe Text
continuedExecutionRunId :: Maybe Text
$sel:continuedExecutionRunId:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
continuedExecutionRunId} -> Maybe Text
continuedExecutionRunId) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} Maybe Text
a -> WorkflowExecutionStartedEventAttributes
s {$sel:continuedExecutionRunId:WorkflowExecutionStartedEventAttributes' :: Maybe Text
continuedExecutionRunId = Maybe Text
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_executionStartToCloseTimeout :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text)
workflowExecutionStartedEventAttributes_executionStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
workflowExecutionStartedEventAttributes_executionStartToCloseTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {Maybe Text
executionStartToCloseTimeout :: Maybe Text
$sel:executionStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
executionStartToCloseTimeout} -> Maybe Text
executionStartToCloseTimeout) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} Maybe Text
a -> WorkflowExecutionStartedEventAttributes
s {$sel:executionStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: Maybe Text
executionStartToCloseTimeout = Maybe Text
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_input :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text)
workflowExecutionStartedEventAttributes_input :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
workflowExecutionStartedEventAttributes_input = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {Maybe Text
input :: Maybe Text
$sel:input:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
input} -> Maybe Text
input) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} Maybe Text
a -> WorkflowExecutionStartedEventAttributes
s {$sel:input:WorkflowExecutionStartedEventAttributes' :: Maybe Text
input = Maybe Text
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_lambdaRole :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text)
workflowExecutionStartedEventAttributes_lambdaRole :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
workflowExecutionStartedEventAttributes_lambdaRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {Maybe Text
lambdaRole :: Maybe Text
$sel:lambdaRole:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
lambdaRole} -> Maybe Text
lambdaRole) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} Maybe Text
a -> WorkflowExecutionStartedEventAttributes
s {$sel:lambdaRole:WorkflowExecutionStartedEventAttributes' :: Maybe Text
lambdaRole = Maybe Text
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_parentInitiatedEventId :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Integer)
workflowExecutionStartedEventAttributes_parentInitiatedEventId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Integer)
workflowExecutionStartedEventAttributes_parentInitiatedEventId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {Maybe Integer
parentInitiatedEventId :: Maybe Integer
$sel:parentInitiatedEventId:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Integer
parentInitiatedEventId} -> Maybe Integer
parentInitiatedEventId) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} Maybe Integer
a -> WorkflowExecutionStartedEventAttributes
s {$sel:parentInitiatedEventId:WorkflowExecutionStartedEventAttributes' :: Maybe Integer
parentInitiatedEventId = Maybe Integer
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_parentWorkflowExecution :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe WorkflowExecution)
workflowExecutionStartedEventAttributes_parentWorkflowExecution :: Lens'
WorkflowExecutionStartedEventAttributes (Maybe WorkflowExecution)
workflowExecutionStartedEventAttributes_parentWorkflowExecution = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {Maybe WorkflowExecution
parentWorkflowExecution :: Maybe WorkflowExecution
$sel:parentWorkflowExecution:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe WorkflowExecution
parentWorkflowExecution} -> Maybe WorkflowExecution
parentWorkflowExecution) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} Maybe WorkflowExecution
a -> WorkflowExecutionStartedEventAttributes
s {$sel:parentWorkflowExecution:WorkflowExecutionStartedEventAttributes' :: Maybe WorkflowExecution
parentWorkflowExecution = Maybe WorkflowExecution
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_tagList :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe [Prelude.Text])
workflowExecutionStartedEventAttributes_tagList :: Lens' WorkflowExecutionStartedEventAttributes (Maybe [Text])
workflowExecutionStartedEventAttributes_tagList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {Maybe [Text]
tagList :: Maybe [Text]
$sel:tagList:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe [Text]
tagList} -> Maybe [Text]
tagList) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} Maybe [Text]
a -> WorkflowExecutionStartedEventAttributes
s {$sel:tagList:WorkflowExecutionStartedEventAttributes' :: Maybe [Text]
tagList = Maybe [Text]
a} :: WorkflowExecutionStartedEventAttributes) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
workflowExecutionStartedEventAttributes_taskPriority :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text)
workflowExecutionStartedEventAttributes_taskPriority :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
workflowExecutionStartedEventAttributes_taskPriority = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {Maybe Text
taskPriority :: Maybe Text
$sel:taskPriority:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
taskPriority} -> Maybe Text
taskPriority) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} Maybe Text
a -> WorkflowExecutionStartedEventAttributes
s {$sel:taskPriority:WorkflowExecutionStartedEventAttributes' :: Maybe Text
taskPriority = Maybe Text
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_taskStartToCloseTimeout :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text)
workflowExecutionStartedEventAttributes_taskStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
workflowExecutionStartedEventAttributes_taskStartToCloseTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {Maybe Text
taskStartToCloseTimeout :: Maybe Text
$sel:taskStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
taskStartToCloseTimeout} -> Maybe Text
taskStartToCloseTimeout) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} Maybe Text
a -> WorkflowExecutionStartedEventAttributes
s {$sel:taskStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: Maybe Text
taskStartToCloseTimeout = Maybe Text
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_childPolicy :: Lens.Lens' WorkflowExecutionStartedEventAttributes ChildPolicy
workflowExecutionStartedEventAttributes_childPolicy :: Lens' WorkflowExecutionStartedEventAttributes ChildPolicy
workflowExecutionStartedEventAttributes_childPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {ChildPolicy
childPolicy :: ChildPolicy
$sel:childPolicy:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> ChildPolicy
childPolicy} -> ChildPolicy
childPolicy) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} ChildPolicy
a -> WorkflowExecutionStartedEventAttributes
s {$sel:childPolicy:WorkflowExecutionStartedEventAttributes' :: ChildPolicy
childPolicy = ChildPolicy
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_taskList :: Lens.Lens' WorkflowExecutionStartedEventAttributes TaskList
workflowExecutionStartedEventAttributes_taskList :: Lens' WorkflowExecutionStartedEventAttributes TaskList
workflowExecutionStartedEventAttributes_taskList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {TaskList
taskList :: TaskList
$sel:taskList:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> TaskList
taskList} -> TaskList
taskList) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} TaskList
a -> WorkflowExecutionStartedEventAttributes
s {$sel:taskList:WorkflowExecutionStartedEventAttributes' :: TaskList
taskList = TaskList
a} :: WorkflowExecutionStartedEventAttributes)
workflowExecutionStartedEventAttributes_workflowType :: Lens.Lens' WorkflowExecutionStartedEventAttributes WorkflowType
workflowExecutionStartedEventAttributes_workflowType :: Lens' WorkflowExecutionStartedEventAttributes WorkflowType
workflowExecutionStartedEventAttributes_workflowType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowExecutionStartedEventAttributes' {WorkflowType
workflowType :: WorkflowType
$sel:workflowType:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> WorkflowType
workflowType} -> WorkflowType
workflowType) (\s :: WorkflowExecutionStartedEventAttributes
s@WorkflowExecutionStartedEventAttributes' {} WorkflowType
a -> WorkflowExecutionStartedEventAttributes
s {$sel:workflowType:WorkflowExecutionStartedEventAttributes' :: WorkflowType
workflowType = WorkflowType
a} :: WorkflowExecutionStartedEventAttributes)
instance
Data.FromJSON
WorkflowExecutionStartedEventAttributes
where
parseJSON :: Value -> Parser WorkflowExecutionStartedEventAttributes
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"WorkflowExecutionStartedEventAttributes"
( \Object
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Integer
-> Maybe WorkflowExecution
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> ChildPolicy
-> TaskList
-> WorkflowType
-> WorkflowExecutionStartedEventAttributes
WorkflowExecutionStartedEventAttributes'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"continuedExecutionRunId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"executionStartToCloseTimeout")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"input")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"lambdaRole")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"parentInitiatedEventId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"parentWorkflowExecution")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"tagList" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"taskPriority")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"taskStartToCloseTimeout")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"childPolicy")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"taskList")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"workflowType")
)
instance
Prelude.Hashable
WorkflowExecutionStartedEventAttributes
where
hashWithSalt :: Int -> WorkflowExecutionStartedEventAttributes -> Int
hashWithSalt
Int
_salt
WorkflowExecutionStartedEventAttributes' {Maybe Integer
Maybe [Text]
Maybe Text
Maybe WorkflowExecution
ChildPolicy
TaskList
WorkflowType
workflowType :: WorkflowType
taskList :: TaskList
childPolicy :: ChildPolicy
taskStartToCloseTimeout :: Maybe Text
taskPriority :: Maybe Text
tagList :: Maybe [Text]
parentWorkflowExecution :: Maybe WorkflowExecution
parentInitiatedEventId :: Maybe Integer
lambdaRole :: Maybe Text
input :: Maybe Text
executionStartToCloseTimeout :: Maybe Text
continuedExecutionRunId :: Maybe Text
$sel:workflowType:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> WorkflowType
$sel:taskList:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> TaskList
$sel:childPolicy:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> ChildPolicy
$sel:taskStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:taskPriority:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:tagList:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe [Text]
$sel:parentWorkflowExecution:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe WorkflowExecution
$sel:parentInitiatedEventId:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Integer
$sel:lambdaRole:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:input:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:executionStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:continuedExecutionRunId:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
continuedExecutionRunId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
executionStartToCloseTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
input
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
lambdaRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
parentInitiatedEventId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe WorkflowExecution
parentWorkflowExecution
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
tagList
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
taskPriority
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
taskStartToCloseTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ChildPolicy
childPolicy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` TaskList
taskList
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` WorkflowType
workflowType
instance
Prelude.NFData
WorkflowExecutionStartedEventAttributes
where
rnf :: WorkflowExecutionStartedEventAttributes -> ()
rnf WorkflowExecutionStartedEventAttributes' {Maybe Integer
Maybe [Text]
Maybe Text
Maybe WorkflowExecution
ChildPolicy
TaskList
WorkflowType
workflowType :: WorkflowType
taskList :: TaskList
childPolicy :: ChildPolicy
taskStartToCloseTimeout :: Maybe Text
taskPriority :: Maybe Text
tagList :: Maybe [Text]
parentWorkflowExecution :: Maybe WorkflowExecution
parentInitiatedEventId :: Maybe Integer
lambdaRole :: Maybe Text
input :: Maybe Text
executionStartToCloseTimeout :: Maybe Text
continuedExecutionRunId :: Maybe Text
$sel:workflowType:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> WorkflowType
$sel:taskList:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> TaskList
$sel:childPolicy:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> ChildPolicy
$sel:taskStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:taskPriority:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:tagList:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe [Text]
$sel:parentWorkflowExecution:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe WorkflowExecution
$sel:parentInitiatedEventId:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Integer
$sel:lambdaRole:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:input:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:executionStartToCloseTimeout:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
$sel:continuedExecutionRunId:WorkflowExecutionStartedEventAttributes' :: WorkflowExecutionStartedEventAttributes -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
continuedExecutionRunId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
executionStartToCloseTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
input
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
lambdaRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
parentInitiatedEventId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe WorkflowExecution
parentWorkflowExecution
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
tagList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
taskPriority
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
taskStartToCloseTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ChildPolicy
childPolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf TaskList
taskList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf WorkflowType
workflowType