{-# 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.WorkflowTypeConfiguration 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
data WorkflowTypeConfiguration = WorkflowTypeConfiguration'
{
WorkflowTypeConfiguration -> Maybe ChildPolicy
defaultChildPolicy :: Prelude.Maybe ChildPolicy,
WorkflowTypeConfiguration -> Maybe Text
defaultExecutionStartToCloseTimeout :: Prelude.Maybe Prelude.Text,
WorkflowTypeConfiguration -> Maybe Text
defaultLambdaRole :: Prelude.Maybe Prelude.Text,
WorkflowTypeConfiguration -> Maybe TaskList
defaultTaskList :: Prelude.Maybe TaskList,
WorkflowTypeConfiguration -> Maybe Text
defaultTaskPriority :: Prelude.Maybe Prelude.Text,
WorkflowTypeConfiguration -> Maybe Text
defaultTaskStartToCloseTimeout :: Prelude.Maybe Prelude.Text
}
deriving (WorkflowTypeConfiguration -> WorkflowTypeConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WorkflowTypeConfiguration -> WorkflowTypeConfiguration -> Bool
$c/= :: WorkflowTypeConfiguration -> WorkflowTypeConfiguration -> Bool
== :: WorkflowTypeConfiguration -> WorkflowTypeConfiguration -> Bool
$c== :: WorkflowTypeConfiguration -> WorkflowTypeConfiguration -> Bool
Prelude.Eq, ReadPrec [WorkflowTypeConfiguration]
ReadPrec WorkflowTypeConfiguration
Int -> ReadS WorkflowTypeConfiguration
ReadS [WorkflowTypeConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [WorkflowTypeConfiguration]
$creadListPrec :: ReadPrec [WorkflowTypeConfiguration]
readPrec :: ReadPrec WorkflowTypeConfiguration
$creadPrec :: ReadPrec WorkflowTypeConfiguration
readList :: ReadS [WorkflowTypeConfiguration]
$creadList :: ReadS [WorkflowTypeConfiguration]
readsPrec :: Int -> ReadS WorkflowTypeConfiguration
$creadsPrec :: Int -> ReadS WorkflowTypeConfiguration
Prelude.Read, Int -> WorkflowTypeConfiguration -> ShowS
[WorkflowTypeConfiguration] -> ShowS
WorkflowTypeConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WorkflowTypeConfiguration] -> ShowS
$cshowList :: [WorkflowTypeConfiguration] -> ShowS
show :: WorkflowTypeConfiguration -> String
$cshow :: WorkflowTypeConfiguration -> String
showsPrec :: Int -> WorkflowTypeConfiguration -> ShowS
$cshowsPrec :: Int -> WorkflowTypeConfiguration -> ShowS
Prelude.Show, forall x.
Rep WorkflowTypeConfiguration x -> WorkflowTypeConfiguration
forall x.
WorkflowTypeConfiguration -> Rep WorkflowTypeConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep WorkflowTypeConfiguration x -> WorkflowTypeConfiguration
$cfrom :: forall x.
WorkflowTypeConfiguration -> Rep WorkflowTypeConfiguration x
Prelude.Generic)
newWorkflowTypeConfiguration ::
WorkflowTypeConfiguration
newWorkflowTypeConfiguration :: WorkflowTypeConfiguration
newWorkflowTypeConfiguration =
WorkflowTypeConfiguration'
{ $sel:defaultChildPolicy:WorkflowTypeConfiguration' :: Maybe ChildPolicy
defaultChildPolicy =
forall a. Maybe a
Prelude.Nothing,
$sel:defaultExecutionStartToCloseTimeout:WorkflowTypeConfiguration' :: Maybe Text
defaultExecutionStartToCloseTimeout =
forall a. Maybe a
Prelude.Nothing,
$sel:defaultLambdaRole:WorkflowTypeConfiguration' :: Maybe Text
defaultLambdaRole = forall a. Maybe a
Prelude.Nothing,
$sel:defaultTaskList:WorkflowTypeConfiguration' :: Maybe TaskList
defaultTaskList = forall a. Maybe a
Prelude.Nothing,
$sel:defaultTaskPriority:WorkflowTypeConfiguration' :: Maybe Text
defaultTaskPriority = forall a. Maybe a
Prelude.Nothing,
$sel:defaultTaskStartToCloseTimeout:WorkflowTypeConfiguration' :: Maybe Text
defaultTaskStartToCloseTimeout = forall a. Maybe a
Prelude.Nothing
}
workflowTypeConfiguration_defaultChildPolicy :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe ChildPolicy)
workflowTypeConfiguration_defaultChildPolicy :: Lens' WorkflowTypeConfiguration (Maybe ChildPolicy)
workflowTypeConfiguration_defaultChildPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowTypeConfiguration' {Maybe ChildPolicy
defaultChildPolicy :: Maybe ChildPolicy
$sel:defaultChildPolicy:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe ChildPolicy
defaultChildPolicy} -> Maybe ChildPolicy
defaultChildPolicy) (\s :: WorkflowTypeConfiguration
s@WorkflowTypeConfiguration' {} Maybe ChildPolicy
a -> WorkflowTypeConfiguration
s {$sel:defaultChildPolicy:WorkflowTypeConfiguration' :: Maybe ChildPolicy
defaultChildPolicy = Maybe ChildPolicy
a} :: WorkflowTypeConfiguration)
workflowTypeConfiguration_defaultExecutionStartToCloseTimeout :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe Prelude.Text)
workflowTypeConfiguration_defaultExecutionStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text)
workflowTypeConfiguration_defaultExecutionStartToCloseTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowTypeConfiguration' {Maybe Text
defaultExecutionStartToCloseTimeout :: Maybe Text
$sel:defaultExecutionStartToCloseTimeout:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
defaultExecutionStartToCloseTimeout} -> Maybe Text
defaultExecutionStartToCloseTimeout) (\s :: WorkflowTypeConfiguration
s@WorkflowTypeConfiguration' {} Maybe Text
a -> WorkflowTypeConfiguration
s {$sel:defaultExecutionStartToCloseTimeout:WorkflowTypeConfiguration' :: Maybe Text
defaultExecutionStartToCloseTimeout = Maybe Text
a} :: WorkflowTypeConfiguration)
workflowTypeConfiguration_defaultLambdaRole :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe Prelude.Text)
workflowTypeConfiguration_defaultLambdaRole :: Lens' WorkflowTypeConfiguration (Maybe Text)
workflowTypeConfiguration_defaultLambdaRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowTypeConfiguration' {Maybe Text
defaultLambdaRole :: Maybe Text
$sel:defaultLambdaRole:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
defaultLambdaRole} -> Maybe Text
defaultLambdaRole) (\s :: WorkflowTypeConfiguration
s@WorkflowTypeConfiguration' {} Maybe Text
a -> WorkflowTypeConfiguration
s {$sel:defaultLambdaRole:WorkflowTypeConfiguration' :: Maybe Text
defaultLambdaRole = Maybe Text
a} :: WorkflowTypeConfiguration)
workflowTypeConfiguration_defaultTaskList :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe TaskList)
workflowTypeConfiguration_defaultTaskList :: Lens' WorkflowTypeConfiguration (Maybe TaskList)
workflowTypeConfiguration_defaultTaskList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowTypeConfiguration' {Maybe TaskList
defaultTaskList :: Maybe TaskList
$sel:defaultTaskList:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe TaskList
defaultTaskList} -> Maybe TaskList
defaultTaskList) (\s :: WorkflowTypeConfiguration
s@WorkflowTypeConfiguration' {} Maybe TaskList
a -> WorkflowTypeConfiguration
s {$sel:defaultTaskList:WorkflowTypeConfiguration' :: Maybe TaskList
defaultTaskList = Maybe TaskList
a} :: WorkflowTypeConfiguration)
workflowTypeConfiguration_defaultTaskPriority :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe Prelude.Text)
workflowTypeConfiguration_defaultTaskPriority :: Lens' WorkflowTypeConfiguration (Maybe Text)
workflowTypeConfiguration_defaultTaskPriority = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowTypeConfiguration' {Maybe Text
defaultTaskPriority :: Maybe Text
$sel:defaultTaskPriority:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
defaultTaskPriority} -> Maybe Text
defaultTaskPriority) (\s :: WorkflowTypeConfiguration
s@WorkflowTypeConfiguration' {} Maybe Text
a -> WorkflowTypeConfiguration
s {$sel:defaultTaskPriority:WorkflowTypeConfiguration' :: Maybe Text
defaultTaskPriority = Maybe Text
a} :: WorkflowTypeConfiguration)
workflowTypeConfiguration_defaultTaskStartToCloseTimeout :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe Prelude.Text)
workflowTypeConfiguration_defaultTaskStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text)
workflowTypeConfiguration_defaultTaskStartToCloseTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WorkflowTypeConfiguration' {Maybe Text
defaultTaskStartToCloseTimeout :: Maybe Text
$sel:defaultTaskStartToCloseTimeout:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
defaultTaskStartToCloseTimeout} -> Maybe Text
defaultTaskStartToCloseTimeout) (\s :: WorkflowTypeConfiguration
s@WorkflowTypeConfiguration' {} Maybe Text
a -> WorkflowTypeConfiguration
s {$sel:defaultTaskStartToCloseTimeout:WorkflowTypeConfiguration' :: Maybe Text
defaultTaskStartToCloseTimeout = Maybe Text
a} :: WorkflowTypeConfiguration)
instance Data.FromJSON WorkflowTypeConfiguration where
parseJSON :: Value -> Parser WorkflowTypeConfiguration
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"WorkflowTypeConfiguration"
( \Object
x ->
Maybe ChildPolicy
-> Maybe Text
-> Maybe Text
-> Maybe TaskList
-> Maybe Text
-> Maybe Text
-> WorkflowTypeConfiguration
WorkflowTypeConfiguration'
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
"defaultChildPolicy")
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
"defaultExecutionStartToCloseTimeout")
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
"defaultLambdaRole")
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
"defaultTaskList")
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
"defaultTaskPriority")
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
"defaultTaskStartToCloseTimeout")
)
instance Prelude.Hashable WorkflowTypeConfiguration where
hashWithSalt :: Int -> WorkflowTypeConfiguration -> Int
hashWithSalt Int
_salt WorkflowTypeConfiguration' {Maybe Text
Maybe ChildPolicy
Maybe TaskList
defaultTaskStartToCloseTimeout :: Maybe Text
defaultTaskPriority :: Maybe Text
defaultTaskList :: Maybe TaskList
defaultLambdaRole :: Maybe Text
defaultExecutionStartToCloseTimeout :: Maybe Text
defaultChildPolicy :: Maybe ChildPolicy
$sel:defaultTaskStartToCloseTimeout:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
$sel:defaultTaskPriority:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
$sel:defaultTaskList:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe TaskList
$sel:defaultLambdaRole:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
$sel:defaultExecutionStartToCloseTimeout:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
$sel:defaultChildPolicy:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe ChildPolicy
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ChildPolicy
defaultChildPolicy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultExecutionStartToCloseTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultLambdaRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TaskList
defaultTaskList
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultTaskPriority
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultTaskStartToCloseTimeout
instance Prelude.NFData WorkflowTypeConfiguration where
rnf :: WorkflowTypeConfiguration -> ()
rnf WorkflowTypeConfiguration' {Maybe Text
Maybe ChildPolicy
Maybe TaskList
defaultTaskStartToCloseTimeout :: Maybe Text
defaultTaskPriority :: Maybe Text
defaultTaskList :: Maybe TaskList
defaultLambdaRole :: Maybe Text
defaultExecutionStartToCloseTimeout :: Maybe Text
defaultChildPolicy :: Maybe ChildPolicy
$sel:defaultTaskStartToCloseTimeout:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
$sel:defaultTaskPriority:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
$sel:defaultTaskList:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe TaskList
$sel:defaultLambdaRole:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
$sel:defaultExecutionStartToCloseTimeout:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe Text
$sel:defaultChildPolicy:WorkflowTypeConfiguration' :: WorkflowTypeConfiguration -> Maybe ChildPolicy
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ChildPolicy
defaultChildPolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultExecutionStartToCloseTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultLambdaRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TaskList
defaultTaskList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultTaskPriority
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultTaskStartToCloseTimeout