packages feed

amazonka-swf 1.4.5 → 1.5.0

raw patch · 40 files changed

+8905/−7949 lines, 40 filesdep ~amazonka-coredep ~amazonka-swfdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-swf, amazonka-test

API changes (from Hackage documentation)

+ Network.AWS.SWF: lfseaControl :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text)
+ Network.AWS.SWF: slfdaControl :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text)
+ Network.AWS.SWF.Types: lfseaControl :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text)
+ Network.AWS.SWF.Types: slfdaControl :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description
amazonka-swf.cabal view
@@ -1,13 +1,13 @@ name:                  amazonka-swf-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Simple Workflow Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,14 +29,19 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-swf  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.SWF@@ -79,7 +84,7 @@         , Network.AWS.SWF.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-swf-test@@ -99,9 +104,9 @@         , Test.AWS.SWF.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-swf == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-swf         , base         , bytestring         , tasty
gen/Network/AWS/SWF.hs view
@@ -5,9 +5,9 @@  -- | -- Module      : Network.AWS.SWF--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -17,7 +17,7 @@ -- -- Amazon SWF gives you full control over implementing tasks and coordinating them without worrying about underlying complexities such as tracking their progress and maintaining their state. ----- This documentation serves as reference only. For a broader overview of the Amazon SWF programming model, see the <http://docs.aws.amazon.com/amazonswf/latest/developerguide/ Amazon SWF Developer Guide> .+-- This documentation serves as reference only. For a broader overview of the Amazon SWF programming model, see the /<http:\/\/docs.aws.amazon.com\/amazonswf\/latest\/developerguide\/ Amazon SWF Developer Guide> / . -- module Network.AWS.SWF     (@@ -592,6 +592,7 @@     -- ** LambdaFunctionScheduledEventAttributes     , LambdaFunctionScheduledEventAttributes     , lambdaFunctionScheduledEventAttributes+    , lfseaControl     , lfseaInput     , lfseaStartToCloseTimeout     , lfseaId@@ -698,6 +699,7 @@     -- ** ScheduleLambdaFunctionDecisionAttributes     , ScheduleLambdaFunctionDecisionAttributes     , scheduleLambdaFunctionDecisionAttributes+    , slfdaControl     , slfdaInput     , slfdaStartToCloseTimeout     , slfdaId@@ -999,39 +1001,39 @@     , wtiCreationDate     ) where -import           Network.AWS.SWF.CountClosedWorkflowExecutions-import           Network.AWS.SWF.CountOpenWorkflowExecutions-import           Network.AWS.SWF.CountPendingActivityTasks-import           Network.AWS.SWF.CountPendingDecisionTasks-import           Network.AWS.SWF.DeprecateActivityType-import           Network.AWS.SWF.DeprecateDomain-import           Network.AWS.SWF.DeprecateWorkflowType-import           Network.AWS.SWF.DescribeActivityType-import           Network.AWS.SWF.DescribeDomain-import           Network.AWS.SWF.DescribeWorkflowExecution-import           Network.AWS.SWF.DescribeWorkflowType-import           Network.AWS.SWF.GetWorkflowExecutionHistory-import           Network.AWS.SWF.ListActivityTypes-import           Network.AWS.SWF.ListClosedWorkflowExecutions-import           Network.AWS.SWF.ListDomains-import           Network.AWS.SWF.ListOpenWorkflowExecutions-import           Network.AWS.SWF.ListWorkflowTypes-import           Network.AWS.SWF.PollForActivityTask-import           Network.AWS.SWF.PollForDecisionTask-import           Network.AWS.SWF.RecordActivityTaskHeartbeat-import           Network.AWS.SWF.RegisterActivityType-import           Network.AWS.SWF.RegisterDomain-import           Network.AWS.SWF.RegisterWorkflowType-import           Network.AWS.SWF.RequestCancelWorkflowExecution-import           Network.AWS.SWF.RespondActivityTaskCanceled-import           Network.AWS.SWF.RespondActivityTaskCompleted-import           Network.AWS.SWF.RespondActivityTaskFailed-import           Network.AWS.SWF.RespondDecisionTaskCompleted-import           Network.AWS.SWF.SignalWorkflowExecution-import           Network.AWS.SWF.StartWorkflowExecution-import           Network.AWS.SWF.TerminateWorkflowExecution-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Waiters+import Network.AWS.SWF.CountClosedWorkflowExecutions+import Network.AWS.SWF.CountOpenWorkflowExecutions+import Network.AWS.SWF.CountPendingActivityTasks+import Network.AWS.SWF.CountPendingDecisionTasks+import Network.AWS.SWF.DeprecateActivityType+import Network.AWS.SWF.DeprecateDomain+import Network.AWS.SWF.DeprecateWorkflowType+import Network.AWS.SWF.DescribeActivityType+import Network.AWS.SWF.DescribeDomain+import Network.AWS.SWF.DescribeWorkflowExecution+import Network.AWS.SWF.DescribeWorkflowType+import Network.AWS.SWF.GetWorkflowExecutionHistory+import Network.AWS.SWF.ListActivityTypes+import Network.AWS.SWF.ListClosedWorkflowExecutions+import Network.AWS.SWF.ListDomains+import Network.AWS.SWF.ListOpenWorkflowExecutions+import Network.AWS.SWF.ListWorkflowTypes+import Network.AWS.SWF.PollForActivityTask+import Network.AWS.SWF.PollForDecisionTask+import Network.AWS.SWF.RecordActivityTaskHeartbeat+import Network.AWS.SWF.RegisterActivityType+import Network.AWS.SWF.RegisterDomain+import Network.AWS.SWF.RegisterWorkflowType+import Network.AWS.SWF.RequestCancelWorkflowExecution+import Network.AWS.SWF.RespondActivityTaskCanceled+import Network.AWS.SWF.RespondActivityTaskCompleted+import Network.AWS.SWF.RespondActivityTaskFailed+import Network.AWS.SWF.RespondDecisionTaskCompleted+import Network.AWS.SWF.SignalWorkflowExecution+import Network.AWS.SWF.StartWorkflowExecution+import Network.AWS.SWF.TerminateWorkflowExecution+import Network.AWS.SWF.Types+import Network.AWS.SWF.Waiters  {- $errors Error matchers are designed for use with the functions provided by
gen/Network/AWS/SWF/CountClosedWorkflowExecutions.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.CountClosedWorkflowExecutions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,12 +25,24 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ .    * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ .    * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ . --+--     * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ .+--+--     * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.CountClosedWorkflowExecutions     (     -- * Creating a Request@@ -53,24 +65,25 @@     , wecCount     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'countClosedWorkflowExecutions' smart constructor. data CountClosedWorkflowExecutions = CountClosedWorkflowExecutions'-    { _ccweExecutionFilter   :: !(Maybe WorkflowExecutionFilter)-    , _ccweCloseStatusFilter :: !(Maybe CloseStatusFilter)-    , _ccweTypeFilter        :: !(Maybe WorkflowTypeFilter)-    , _ccweCloseTimeFilter   :: !(Maybe ExecutionTimeFilter)-    , _ccweTagFilter         :: !(Maybe TagFilter)-    , _ccweStartTimeFilter   :: !(Maybe ExecutionTimeFilter)-    , _ccweDomain            :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccweExecutionFilter   :: !(Maybe WorkflowExecutionFilter)+  , _ccweCloseStatusFilter :: !(Maybe CloseStatusFilter)+  , _ccweTypeFilter        :: !(Maybe WorkflowTypeFilter)+  , _ccweCloseTimeFilter   :: !(Maybe ExecutionTimeFilter)+  , _ccweTagFilter         :: !(Maybe TagFilter)+  , _ccweStartTimeFilter   :: !(Maybe ExecutionTimeFilter)+  , _ccweDomain            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CountClosedWorkflowExecutions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -92,16 +105,17 @@     :: Text -- ^ 'ccweDomain'     -> CountClosedWorkflowExecutions countClosedWorkflowExecutions pDomain_ =-    CountClosedWorkflowExecutions'-    { _ccweExecutionFilter = Nothing-    , _ccweCloseStatusFilter = Nothing-    , _ccweTypeFilter = Nothing-    , _ccweCloseTimeFilter = Nothing-    , _ccweTagFilter = Nothing-    , _ccweStartTimeFilter = Nothing-    , _ccweDomain = pDomain_-    }+  CountClosedWorkflowExecutions'+  { _ccweExecutionFilter = Nothing+  , _ccweCloseStatusFilter = Nothing+  , _ccweTypeFilter = Nothing+  , _ccweCloseTimeFilter = Nothing+  , _ccweTagFilter = Nothing+  , _ccweStartTimeFilter = Nothing+  , _ccweDomain = pDomain_+  } + -- | If specified, only workflow executions matching the @WorkflowId@ in the filter are counted. ccweExecutionFilter :: Lens' CountClosedWorkflowExecutions (Maybe WorkflowExecutionFilter) ccweExecutionFilter = lens _ccweExecutionFilter (\ s a -> s{_ccweExecutionFilter = a});@@ -137,9 +151,9 @@         request = postJSON swf         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable CountClosedWorkflowExecutions+instance Hashable CountClosedWorkflowExecutions where -instance NFData CountClosedWorkflowExecutions+instance NFData CountClosedWorkflowExecutions where  instance ToHeaders CountClosedWorkflowExecutions          where
gen/Network/AWS/SWF/CountOpenWorkflowExecutions.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.CountOpenWorkflowExecutions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,12 +25,24 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ .    * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ .    * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ . --+--     * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ .+--+--     * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.CountOpenWorkflowExecutions     (     -- * Creating a Request@@ -51,22 +63,23 @@     , wecCount     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'countOpenWorkflowExecutions' smart constructor. data CountOpenWorkflowExecutions = CountOpenWorkflowExecutions'-    { _coweExecutionFilter :: !(Maybe WorkflowExecutionFilter)-    , _coweTypeFilter      :: !(Maybe WorkflowTypeFilter)-    , _coweTagFilter       :: !(Maybe TagFilter)-    , _coweDomain          :: !Text-    , _coweStartTimeFilter :: !ExecutionTimeFilter-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _coweExecutionFilter :: !(Maybe WorkflowExecutionFilter)+  , _coweTypeFilter      :: !(Maybe WorkflowTypeFilter)+  , _coweTagFilter       :: !(Maybe TagFilter)+  , _coweDomain          :: !Text+  , _coweStartTimeFilter :: !ExecutionTimeFilter+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CountOpenWorkflowExecutions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,14 +98,15 @@     -> ExecutionTimeFilter -- ^ 'coweStartTimeFilter'     -> CountOpenWorkflowExecutions countOpenWorkflowExecutions pDomain_ pStartTimeFilter_ =-    CountOpenWorkflowExecutions'-    { _coweExecutionFilter = Nothing-    , _coweTypeFilter = Nothing-    , _coweTagFilter = Nothing-    , _coweDomain = pDomain_-    , _coweStartTimeFilter = pStartTimeFilter_-    }+  CountOpenWorkflowExecutions'+  { _coweExecutionFilter = Nothing+  , _coweTypeFilter = Nothing+  , _coweTagFilter = Nothing+  , _coweDomain = pDomain_+  , _coweStartTimeFilter = pStartTimeFilter_+  } + -- | If specified, only workflow executions matching the @WorkflowId@ in the filter are counted. coweExecutionFilter :: Lens' CountOpenWorkflowExecutions (Maybe WorkflowExecutionFilter) coweExecutionFilter = lens _coweExecutionFilter (\ s a -> s{_coweExecutionFilter = a});@@ -119,9 +133,9 @@         request = postJSON swf         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable CountOpenWorkflowExecutions+instance Hashable CountOpenWorkflowExecutions where -instance NFData CountOpenWorkflowExecutions+instance NFData CountOpenWorkflowExecutions where  instance ToHeaders CountOpenWorkflowExecutions where         toHeaders
gen/Network/AWS/SWF/CountPendingActivityTasks.hs view
@@ -12,23 +12,29 @@  -- | -- Module      : Network.AWS.SWF.CountPendingActivityTasks--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the estimated number of activity tasks in the specified task list. The count returned is an approximation and is not guaranteed to be exact. If you specify a task list that no activity task was ever scheduled in then 0 will be returned.+-- Returns the estimated number of activity tasks in the specified task list. The count returned is an approximation and isn't guaranteed to be exact. If you specify a task list that no activity task was ever scheduled in then @0@ is returned. -- -- -- __Access Control__ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the @taskList.name@ parameter by using a __Condition__ element with the @swf:taskList.name@ key to allow the action to access only certain task lists.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the @taskList.name@ parameter by using a @Condition@ element with the @swf:taskList.name@ key to allow the action to access only certain task lists.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.CountPendingActivityTasks     (     -- * Creating a Request@@ -46,19 +52,20 @@     , ptcCount     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'countPendingActivityTasks' smart constructor. data CountPendingActivityTasks = CountPendingActivityTasks'-    { _cpatDomain   :: !Text-    , _cpatTaskList :: !TaskList-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpatDomain   :: !Text+  , _cpatTaskList :: !TaskList+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CountPendingActivityTasks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,11 +78,10 @@     -> TaskList -- ^ 'cpatTaskList'     -> CountPendingActivityTasks countPendingActivityTasks pDomain_ pTaskList_ =-    CountPendingActivityTasks'-    { _cpatDomain = pDomain_-    , _cpatTaskList = pTaskList_-    }+  CountPendingActivityTasks'+  {_cpatDomain = pDomain_, _cpatTaskList = pTaskList_} + -- | The name of the domain that contains the task list. cpatDomain :: Lens' CountPendingActivityTasks Text cpatDomain = lens _cpatDomain (\ s a -> s{_cpatDomain = a});@@ -89,9 +95,9 @@         request = postJSON swf         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable CountPendingActivityTasks+instance Hashable CountPendingActivityTasks where -instance NFData CountPendingActivityTasks+instance NFData CountPendingActivityTasks where  instance ToHeaders CountPendingActivityTasks where         toHeaders
gen/Network/AWS/SWF/CountPendingDecisionTasks.hs view
@@ -12,23 +12,29 @@  -- | -- Module      : Network.AWS.SWF.CountPendingDecisionTasks--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the estimated number of decision tasks in the specified task list. The count returned is an approximation and is not guaranteed to be exact. If you specify a task list that no decision task was ever scheduled in then 0 will be returned.+-- Returns the estimated number of decision tasks in the specified task list. The count returned is an approximation and isn't guaranteed to be exact. If you specify a task list that no decision task was ever scheduled in then @0@ is returned. -- -- -- __Access Control__ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the @taskList.name@ parameter by using a __Condition__ element with the @swf:taskList.name@ key to allow the action to access only certain task lists.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the @taskList.name@ parameter by using a @Condition@ element with the @swf:taskList.name@ key to allow the action to access only certain task lists.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.CountPendingDecisionTasks     (     -- * Creating a Request@@ -46,19 +52,20 @@     , ptcCount     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'countPendingDecisionTasks' smart constructor. data CountPendingDecisionTasks = CountPendingDecisionTasks'-    { _cpdtDomain   :: !Text-    , _cpdtTaskList :: !TaskList-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpdtDomain   :: !Text+  , _cpdtTaskList :: !TaskList+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CountPendingDecisionTasks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,11 +78,10 @@     -> TaskList -- ^ 'cpdtTaskList'     -> CountPendingDecisionTasks countPendingDecisionTasks pDomain_ pTaskList_ =-    CountPendingDecisionTasks'-    { _cpdtDomain = pDomain_-    , _cpdtTaskList = pTaskList_-    }+  CountPendingDecisionTasks'+  {_cpdtDomain = pDomain_, _cpdtTaskList = pTaskList_} + -- | The name of the domain that contains the task list. cpdtDomain :: Lens' CountPendingDecisionTasks Text cpdtDomain = lens _cpdtDomain (\ s a -> s{_cpdtDomain = a});@@ -89,9 +95,9 @@         request = postJSON swf         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable CountPendingDecisionTasks+instance Hashable CountPendingDecisionTasks where -instance NFData CountPendingDecisionTasks+instance NFData CountPendingDecisionTasks where  instance ToHeaders CountPendingDecisionTasks where         toHeaders
gen/Network/AWS/SWF/DeprecateActivityType.hs view
@@ -12,25 +12,35 @@  -- | -- Module      : Network.AWS.SWF.DeprecateActivityType--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deprecates the specified /activity type/ . After an activity type has been deprecated, you cannot create new tasks of that activity type. Tasks of this type that were scheduled before the type was deprecated will continue to run.+-- Deprecates the specified /activity type/ . After an activity type has been deprecated, you cannot create new tasks of that activity type. Tasks of this type that were scheduled before the type was deprecated continue to run. -- -- -- __Access Control__ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @activityType.name@ : String constraint. The key is @swf:activityType.name@ .    * @activityType.version@ : String constraint. The key is @swf:activityType.version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @activityType.name@ : String constraint. The key is @swf:activityType.name@ . --+--     * @activityType.version@ : String constraint. The key is @swf:activityType.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.DeprecateActivityType     (     -- * Creating a Request@@ -45,19 +55,20 @@     , DeprecateActivityTypeResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'deprecateActivityType' smart constructor. data DeprecateActivityType = DeprecateActivityType'-    { _depDomain       :: !Text-    , _depActivityType :: !ActivityType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _depDomain       :: !Text+  , _depActivityType :: !ActivityType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeprecateActivityType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +81,10 @@     -> ActivityType -- ^ 'depActivityType'     -> DeprecateActivityType deprecateActivityType pDomain_ pActivityType_ =-    DeprecateActivityType'-    { _depDomain = pDomain_-    , _depActivityType = pActivityType_-    }+  DeprecateActivityType'+  {_depDomain = pDomain_, _depActivityType = pActivityType_} + -- | The name of the domain in which the activity type is registered. depDomain :: Lens' DeprecateActivityType Text depDomain = lens _depDomain (\ s a -> s{_depDomain = a});@@ -89,9 +99,9 @@         request = postJSON swf         response = receiveNull DeprecateActivityTypeResponse' -instance Hashable DeprecateActivityType+instance Hashable DeprecateActivityType where -instance NFData DeprecateActivityType+instance NFData DeprecateActivityType where  instance ToHeaders DeprecateActivityType where         toHeaders@@ -118,13 +128,15 @@  -- | /See:/ 'deprecateActivityTypeResponse' smart constructor. data DeprecateActivityTypeResponse =-    DeprecateActivityTypeResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeprecateActivityTypeResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeprecateActivityTypeResponse' with the minimum fields required to make a request. -- deprecateActivityTypeResponse     :: DeprecateActivityTypeResponse deprecateActivityTypeResponse = DeprecateActivityTypeResponse' -instance NFData DeprecateActivityTypeResponse++instance NFData DeprecateActivityTypeResponse where
gen/Network/AWS/SWF/DeprecateDomain.hs view
@@ -12,23 +12,29 @@  -- | -- Module      : Network.AWS.SWF.DeprecateDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deprecates the specified domain. After a domain has been deprecated it cannot be used to create new workflow executions or register new types. However, you can still use visibility actions on this domain. Deprecating a domain also deprecates all activity and workflow types registered in the domain. Executions that were started before the domain was deprecated will continue to run.+-- Deprecates the specified domain. After a domain has been deprecated it cannot be used to create new workflow executions or register new types. However, you can still use visibility actions on this domain. Deprecating a domain also deprecates all activity and workflow types registered in the domain. Executions that were started before the domain was deprecated continues to run. -- -- -- __Access Control__ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.DeprecateDomain     (     -- * Creating a Request@@ -42,18 +48,19 @@     , DeprecateDomainResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'deprecateDomain' smart constructor. newtype DeprecateDomain = DeprecateDomain'-    { _dName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeprecateDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +69,9 @@ deprecateDomain     :: Text -- ^ 'dName'     -> DeprecateDomain-deprecateDomain pName_ =-    DeprecateDomain'-    { _dName = pName_-    }+deprecateDomain pName_ = DeprecateDomain' {_dName = pName_} + -- | The name of the domain to deprecate. dName :: Lens' DeprecateDomain Text dName = lens _dName (\ s a -> s{_dName = a});@@ -76,9 +81,9 @@         request = postJSON swf         response = receiveNull DeprecateDomainResponse' -instance Hashable DeprecateDomain+instance Hashable DeprecateDomain where -instance NFData DeprecateDomain+instance NFData DeprecateDomain where  instance ToHeaders DeprecateDomain where         toHeaders@@ -102,13 +107,15 @@  -- | /See:/ 'deprecateDomainResponse' smart constructor. data DeprecateDomainResponse =-    DeprecateDomainResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeprecateDomainResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeprecateDomainResponse' with the minimum fields required to make a request. -- deprecateDomainResponse     :: DeprecateDomainResponse deprecateDomainResponse = DeprecateDomainResponse' -instance NFData DeprecateDomainResponse++instance NFData DeprecateDomainResponse where
gen/Network/AWS/SWF/DeprecateWorkflowType.hs view
@@ -12,25 +12,35 @@  -- | -- Module      : Network.AWS.SWF.DeprecateWorkflowType--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deprecates the specified /workflow type/ . After a workflow type has been deprecated, you cannot create new executions of that type. Executions that were started before the type was deprecated will continue to run. A deprecated workflow type may still be used when calling visibility actions.+-- Deprecates the specified /workflow type/ . After a workflow type has been deprecated, you cannot create new executions of that type. Executions that were started before the type was deprecated continues to run. A deprecated workflow type may still be used when calling visibility actions. -- -- -- __Access Control__ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ .    * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ . --+--     * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.DeprecateWorkflowType     (     -- * Creating a Request@@ -45,19 +55,20 @@     , DeprecateWorkflowTypeResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'deprecateWorkflowType' smart constructor. data DeprecateWorkflowType = DeprecateWorkflowType'-    { _dDomain       :: !Text-    , _dWorkflowType :: !WorkflowType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dDomain       :: !Text+  , _dWorkflowType :: !WorkflowType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeprecateWorkflowType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +81,9 @@     -> WorkflowType -- ^ 'dWorkflowType'     -> DeprecateWorkflowType deprecateWorkflowType pDomain_ pWorkflowType_ =-    DeprecateWorkflowType'-    { _dDomain = pDomain_-    , _dWorkflowType = pWorkflowType_-    }+  DeprecateWorkflowType' {_dDomain = pDomain_, _dWorkflowType = pWorkflowType_} + -- | The name of the domain in which the workflow type is registered. dDomain :: Lens' DeprecateWorkflowType Text dDomain = lens _dDomain (\ s a -> s{_dDomain = a});@@ -89,9 +98,9 @@         request = postJSON swf         response = receiveNull DeprecateWorkflowTypeResponse' -instance Hashable DeprecateWorkflowType+instance Hashable DeprecateWorkflowType where -instance NFData DeprecateWorkflowType+instance NFData DeprecateWorkflowType where  instance ToHeaders DeprecateWorkflowType where         toHeaders@@ -118,13 +127,15 @@  -- | /See:/ 'deprecateWorkflowTypeResponse' smart constructor. data DeprecateWorkflowTypeResponse =-    DeprecateWorkflowTypeResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeprecateWorkflowTypeResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeprecateWorkflowTypeResponse' with the minimum fields required to make a request. -- deprecateWorkflowTypeResponse     :: DeprecateWorkflowTypeResponse deprecateWorkflowTypeResponse = DeprecateWorkflowTypeResponse' -instance NFData DeprecateWorkflowTypeResponse++instance NFData DeprecateWorkflowTypeResponse where
gen/Network/AWS/SWF/DescribeActivityType.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.DescribeActivityType--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,12 +25,22 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @activityType.name@ : String constraint. The key is @swf:activityType.name@ .    * @activityType.version@ : String constraint. The key is @swf:activityType.version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @activityType.name@ : String constraint. The key is @swf:activityType.name@ . --+--     * @activityType.version@ : String constraint. The key is @swf:activityType.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.DescribeActivityType     (     -- * Creating a Request@@ -49,19 +59,20 @@     , datrsConfiguration     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'describeActivityType' smart constructor. data DescribeActivityType = DescribeActivityType'-    { _datDomain       :: !Text-    , _datActivityType :: !ActivityType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _datDomain       :: !Text+  , _datActivityType :: !ActivityType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeActivityType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,11 +85,10 @@     -> ActivityType -- ^ 'datActivityType'     -> DescribeActivityType describeActivityType pDomain_ pActivityType_ =-    DescribeActivityType'-    { _datDomain = pDomain_-    , _datActivityType = pActivityType_-    }+  DescribeActivityType'+  {_datDomain = pDomain_, _datActivityType = pActivityType_} + -- | The name of the domain in which the activity type is registered. datDomain :: Lens' DescribeActivityType Text datDomain = lens _datDomain (\ s a -> s{_datDomain = a});@@ -98,9 +108,9 @@                    (pure (fromEnum s)) <*> (x .:> "typeInfo") <*>                      (x .:> "configuration")) -instance Hashable DescribeActivityType+instance Hashable DescribeActivityType where -instance NFData DescribeActivityType+instance NFData DescribeActivityType where  instance ToHeaders DescribeActivityType where         toHeaders@@ -131,18 +141,19 @@ -- -- /See:/ 'describeActivityTypeResponse' smart constructor. data DescribeActivityTypeResponse = DescribeActivityTypeResponse'-    { _datrsResponseStatus :: !Int-    , _datrsTypeInfo       :: !ActivityTypeInfo-    , _datrsConfiguration  :: !ActivityTypeConfiguration-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _datrsResponseStatus :: !Int+  , _datrsTypeInfo       :: !ActivityTypeInfo+  , _datrsConfiguration  :: !ActivityTypeConfiguration+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeActivityTypeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'datrsResponseStatus' - -- | The response status code. ----- * 'datrsTypeInfo' - General information about the activity type. The status of activity type (returned in the ActivityTypeInfo structure) can be one of the following.     * __REGISTERED__ : The type is registered and available. Workers supporting this type should be running.     * __DEPRECATED__ : The type was deprecated using 'DeprecateActivityType' , but is still in use. You should keep workers supporting this type running. You cannot create new tasks of this type.+-- * 'datrsTypeInfo' - General information about the activity type. The status of activity type (returned in the ActivityTypeInfo structure) can be one of the following.     * @REGISTERED@ – The type is registered and available. Workers supporting this type should be running.      * @DEPRECATED@ – The type was deprecated using 'DeprecateActivityType' , but is still in use. You should keep workers supporting this type running. You cannot create new tasks of this type. -- -- * 'datrsConfiguration' - The configuration settings registered with the activity type. describeActivityTypeResponse@@ -151,17 +162,18 @@     -> ActivityTypeConfiguration -- ^ 'datrsConfiguration'     -> DescribeActivityTypeResponse describeActivityTypeResponse pResponseStatus_ pTypeInfo_ pConfiguration_ =-    DescribeActivityTypeResponse'-    { _datrsResponseStatus = pResponseStatus_-    , _datrsTypeInfo = pTypeInfo_-    , _datrsConfiguration = pConfiguration_-    }+  DescribeActivityTypeResponse'+  { _datrsResponseStatus = pResponseStatus_+  , _datrsTypeInfo = pTypeInfo_+  , _datrsConfiguration = pConfiguration_+  } + -- | -- | The response status code. datrsResponseStatus :: Lens' DescribeActivityTypeResponse Int datrsResponseStatus = lens _datrsResponseStatus (\ s a -> s{_datrsResponseStatus = a}); --- | General information about the activity type. The status of activity type (returned in the ActivityTypeInfo structure) can be one of the following.     * __REGISTERED__ : The type is registered and available. Workers supporting this type should be running.     * __DEPRECATED__ : The type was deprecated using 'DeprecateActivityType' , but is still in use. You should keep workers supporting this type running. You cannot create new tasks of this type.+-- | General information about the activity type. The status of activity type (returned in the ActivityTypeInfo structure) can be one of the following.     * @REGISTERED@ – The type is registered and available. Workers supporting this type should be running.      * @DEPRECATED@ – The type was deprecated using 'DeprecateActivityType' , but is still in use. You should keep workers supporting this type running. You cannot create new tasks of this type. datrsTypeInfo :: Lens' DescribeActivityTypeResponse ActivityTypeInfo datrsTypeInfo = lens _datrsTypeInfo (\ s a -> s{_datrsTypeInfo = a}); @@ -169,4 +181,4 @@ datrsConfiguration :: Lens' DescribeActivityTypeResponse ActivityTypeConfiguration datrsConfiguration = lens _datrsConfiguration (\ s a -> s{_datrsConfiguration = a}); -instance NFData DescribeActivityTypeResponse+instance NFData DescribeActivityTypeResponse where
gen/Network/AWS/SWF/DescribeDomain.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.DescribeDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,10 +25,16 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.DescribeDomain     (     -- * Creating a Request@@ -46,18 +52,19 @@     , ddrsConfiguration     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'describeDomain' smart constructor. newtype DescribeDomain = DescribeDomain'-    { _ddName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,11 +73,9 @@ describeDomain     :: Text -- ^ 'ddName'     -> DescribeDomain-describeDomain pName_ =-    DescribeDomain'-    { _ddName = pName_-    }+describeDomain pName_ = DescribeDomain' {_ddName = pName_} + -- | The name of the domain to describe. ddName :: Lens' DescribeDomain Text ddName = lens _ddName (\ s a -> s{_ddName = a});@@ -85,9 +90,9 @@                    (pure (fromEnum s)) <*> (x .:> "domainInfo") <*>                      (x .:> "configuration")) -instance Hashable DescribeDomain+instance Hashable DescribeDomain where -instance NFData DescribeDomain+instance NFData DescribeDomain where  instance ToHeaders DescribeDomain where         toHeaders@@ -115,42 +120,44 @@ -- -- /See:/ 'describeDomainResponse' smart constructor. data DescribeDomainResponse = DescribeDomainResponse'-    { _ddrsResponseStatus :: !Int-    , _ddrsDomainInfo     :: !DomainInfo-    , _ddrsConfiguration  :: !DomainConfiguration-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddrsResponseStatus :: !Int+  , _ddrsDomainInfo     :: !DomainInfo+  , _ddrsConfiguration  :: !DomainConfiguration+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDomainResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ddrsResponseStatus' - -- | The response status code. ----- * 'ddrsDomainInfo' - Undocumented member.+-- * 'ddrsDomainInfo' - The basic information about a domain, such as its name, status, and description. ----- * 'ddrsConfiguration' - Undocumented member.+-- * 'ddrsConfiguration' - The domain configuration. Currently, this includes only the domain's retention period. describeDomainResponse     :: Int -- ^ 'ddrsResponseStatus'     -> DomainInfo -- ^ 'ddrsDomainInfo'     -> DomainConfiguration -- ^ 'ddrsConfiguration'     -> DescribeDomainResponse describeDomainResponse pResponseStatus_ pDomainInfo_ pConfiguration_ =-    DescribeDomainResponse'-    { _ddrsResponseStatus = pResponseStatus_-    , _ddrsDomainInfo = pDomainInfo_-    , _ddrsConfiguration = pConfiguration_-    }+  DescribeDomainResponse'+  { _ddrsResponseStatus = pResponseStatus_+  , _ddrsDomainInfo = pDomainInfo_+  , _ddrsConfiguration = pConfiguration_+  } + -- | -- | The response status code. ddrsResponseStatus :: Lens' DescribeDomainResponse Int ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}); --- | Undocumented member.+-- | The basic information about a domain, such as its name, status, and description. ddrsDomainInfo :: Lens' DescribeDomainResponse DomainInfo ddrsDomainInfo = lens _ddrsDomainInfo (\ s a -> s{_ddrsDomainInfo = a}); --- | Undocumented member.+-- | The domain configuration. Currently, this includes only the domain's retention period. ddrsConfiguration :: Lens' DescribeDomainResponse DomainConfiguration ddrsConfiguration = lens _ddrsConfiguration (\ s a -> s{_ddrsConfiguration = a}); -instance NFData DescribeDomainResponse+instance NFData DescribeDomainResponse where
gen/Network/AWS/SWF/DescribeWorkflowExecution.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.DescribeWorkflowExecution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,10 +25,16 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.DescribeWorkflowExecution     (     -- * Creating a Request@@ -50,19 +56,20 @@     , dwersOpenCounts     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'describeWorkflowExecution' smart constructor. data DescribeWorkflowExecution = DescribeWorkflowExecution'-    { _dweDomain    :: !Text-    , _dweExecution :: !WorkflowExecution-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dweDomain    :: !Text+  , _dweExecution :: !WorkflowExecution+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkflowExecution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +82,10 @@     -> WorkflowExecution -- ^ 'dweExecution'     -> DescribeWorkflowExecution describeWorkflowExecution pDomain_ pExecution_ =-    DescribeWorkflowExecution'-    { _dweDomain = pDomain_-    , _dweExecution = pExecution_-    }+  DescribeWorkflowExecution'+  {_dweDomain = pDomain_, _dweExecution = pExecution_} + -- | The name of the domain containing the workflow execution. dweDomain :: Lens' DescribeWorkflowExecution Text dweDomain = lens _dweDomain (\ s a -> s{_dweDomain = a});@@ -103,9 +109,9 @@                      <*> (x .:> "executionConfiguration")                      <*> (x .:> "openCounts")) -instance Hashable DescribeWorkflowExecution+instance Hashable DescribeWorkflowExecution where -instance NFData DescribeWorkflowExecution+instance NFData DescribeWorkflowExecution where  instance ToHeaders DescribeWorkflowExecution where         toHeaders@@ -136,14 +142,15 @@ -- -- /See:/ 'describeWorkflowExecutionResponse' smart constructor. data DescribeWorkflowExecutionResponse = DescribeWorkflowExecutionResponse'-    { _dwersLatestActivityTaskTimestamp :: !(Maybe POSIX)-    , _dwersLatestExecutionContext      :: !(Maybe Text)-    , _dwersResponseStatus              :: !Int-    , _dwersExecutionInfo               :: !WorkflowExecutionInfo-    , _dwersExecutionConfiguration      :: !WorkflowExecutionConfiguration-    , _dwersOpenCounts                  :: !WorkflowExecutionOpenCounts-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dwersLatestActivityTaskTimestamp :: !(Maybe POSIX)+  , _dwersLatestExecutionContext      :: !(Maybe Text)+  , _dwersResponseStatus              :: !Int+  , _dwersExecutionInfo               :: !WorkflowExecutionInfo+  , _dwersExecutionConfiguration      :: !WorkflowExecutionConfiguration+  , _dwersOpenCounts                  :: !WorkflowExecutionOpenCounts+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkflowExecutionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -166,15 +173,16 @@     -> WorkflowExecutionOpenCounts -- ^ 'dwersOpenCounts'     -> DescribeWorkflowExecutionResponse describeWorkflowExecutionResponse pResponseStatus_ pExecutionInfo_ pExecutionConfiguration_ pOpenCounts_ =-    DescribeWorkflowExecutionResponse'-    { _dwersLatestActivityTaskTimestamp = Nothing-    , _dwersLatestExecutionContext = Nothing-    , _dwersResponseStatus = pResponseStatus_-    , _dwersExecutionInfo = pExecutionInfo_-    , _dwersExecutionConfiguration = pExecutionConfiguration_-    , _dwersOpenCounts = pOpenCounts_-    }+  DescribeWorkflowExecutionResponse'+  { _dwersLatestActivityTaskTimestamp = Nothing+  , _dwersLatestExecutionContext = Nothing+  , _dwersResponseStatus = pResponseStatus_+  , _dwersExecutionInfo = pExecutionInfo_+  , _dwersExecutionConfiguration = pExecutionConfiguration_+  , _dwersOpenCounts = pOpenCounts_+  } + -- | The time when the last activity task was scheduled for this workflow execution. You can use this information to determine if the workflow has not made progress for an unusually long period of time and might require a corrective action. dwersLatestActivityTaskTimestamp :: Lens' DescribeWorkflowExecutionResponse (Maybe UTCTime) dwersLatestActivityTaskTimestamp = lens _dwersLatestActivityTaskTimestamp (\ s a -> s{_dwersLatestActivityTaskTimestamp = a}) . mapping _Time;@@ -200,3 +208,4 @@ dwersOpenCounts = lens _dwersOpenCounts (\ s a -> s{_dwersOpenCounts = a});  instance NFData DescribeWorkflowExecutionResponse+         where
gen/Network/AWS/SWF/DescribeWorkflowType.hs view
@@ -12,25 +12,35 @@  -- | -- Module      : Network.AWS.SWF.DescribeWorkflowType--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about the specified /workflow type/ . This includes configuration settings specified when the type was registered and other information such as creation date, current status, and so on.+-- Returns information about the specified /workflow type/ . This includes configuration settings specified when the type was registered and other information such as creation date, current status, etc. -- -- -- __Access Control__ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ .    * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ . --+--     * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.DescribeWorkflowType     (     -- * Creating a Request@@ -49,19 +59,20 @@     , dwtrsConfiguration     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'describeWorkflowType' smart constructor. data DescribeWorkflowType = DescribeWorkflowType'-    { _dwtDomain       :: !Text-    , _dwtWorkflowType :: !WorkflowType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dwtDomain       :: !Text+  , _dwtWorkflowType :: !WorkflowType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkflowType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,11 +85,10 @@     -> WorkflowType -- ^ 'dwtWorkflowType'     -> DescribeWorkflowType describeWorkflowType pDomain_ pWorkflowType_ =-    DescribeWorkflowType'-    { _dwtDomain = pDomain_-    , _dwtWorkflowType = pWorkflowType_-    }+  DescribeWorkflowType'+  {_dwtDomain = pDomain_, _dwtWorkflowType = pWorkflowType_} + -- | The name of the domain in which this workflow type is registered. dwtDomain :: Lens' DescribeWorkflowType Text dwtDomain = lens _dwtDomain (\ s a -> s{_dwtDomain = a});@@ -98,9 +108,9 @@                    (pure (fromEnum s)) <*> (x .:> "typeInfo") <*>                      (x .:> "configuration")) -instance Hashable DescribeWorkflowType+instance Hashable DescribeWorkflowType where -instance NFData DescribeWorkflowType+instance NFData DescribeWorkflowType where  instance ToHeaders DescribeWorkflowType where         toHeaders@@ -131,18 +141,19 @@ -- -- /See:/ 'describeWorkflowTypeResponse' smart constructor. data DescribeWorkflowTypeResponse = DescribeWorkflowTypeResponse'-    { _dwtrsResponseStatus :: !Int-    , _dwtrsTypeInfo       :: !WorkflowTypeInfo-    , _dwtrsConfiguration  :: !WorkflowTypeConfiguration-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dwtrsResponseStatus :: !Int+  , _dwtrsTypeInfo       :: !WorkflowTypeInfo+  , _dwtrsConfiguration  :: !WorkflowTypeConfiguration+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkflowTypeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dwtrsResponseStatus' - -- | The response status code. ----- * 'dwtrsTypeInfo' - General information about the workflow type. The status of the workflow type (returned in the WorkflowTypeInfo structure) can be one of the following.     * __REGISTERED__ : The type is registered and available. Workers supporting this type should be running.    * __DEPRECATED__ : The type was deprecated using 'DeprecateWorkflowType' , but is still in use. You should keep workers supporting this type running. You cannot create new workflow executions of this type.+-- * 'dwtrsTypeInfo' - General information about the workflow type. The status of the workflow type (returned in the WorkflowTypeInfo structure) can be one of the following.     * @REGISTERED@ – The type is registered and available. Workers supporting this type should be running.     * @DEPRECATED@ – The type was deprecated using 'DeprecateWorkflowType' , but is still in use. You should keep workers supporting this type running. You cannot create new workflow executions of this type. -- -- * 'dwtrsConfiguration' - Configuration settings of the workflow type registered through 'RegisterWorkflowType' describeWorkflowTypeResponse@@ -151,17 +162,18 @@     -> WorkflowTypeConfiguration -- ^ 'dwtrsConfiguration'     -> DescribeWorkflowTypeResponse describeWorkflowTypeResponse pResponseStatus_ pTypeInfo_ pConfiguration_ =-    DescribeWorkflowTypeResponse'-    { _dwtrsResponseStatus = pResponseStatus_-    , _dwtrsTypeInfo = pTypeInfo_-    , _dwtrsConfiguration = pConfiguration_-    }+  DescribeWorkflowTypeResponse'+  { _dwtrsResponseStatus = pResponseStatus_+  , _dwtrsTypeInfo = pTypeInfo_+  , _dwtrsConfiguration = pConfiguration_+  } + -- | -- | The response status code. dwtrsResponseStatus :: Lens' DescribeWorkflowTypeResponse Int dwtrsResponseStatus = lens _dwtrsResponseStatus (\ s a -> s{_dwtrsResponseStatus = a}); --- | General information about the workflow type. The status of the workflow type (returned in the WorkflowTypeInfo structure) can be one of the following.     * __REGISTERED__ : The type is registered and available. Workers supporting this type should be running.    * __DEPRECATED__ : The type was deprecated using 'DeprecateWorkflowType' , but is still in use. You should keep workers supporting this type running. You cannot create new workflow executions of this type.+-- | General information about the workflow type. The status of the workflow type (returned in the WorkflowTypeInfo structure) can be one of the following.     * @REGISTERED@ – The type is registered and available. Workers supporting this type should be running.     * @DEPRECATED@ – The type was deprecated using 'DeprecateWorkflowType' , but is still in use. You should keep workers supporting this type running. You cannot create new workflow executions of this type. dwtrsTypeInfo :: Lens' DescribeWorkflowTypeResponse WorkflowTypeInfo dwtrsTypeInfo = lens _dwtrsTypeInfo (\ s a -> s{_dwtrsTypeInfo = a}); @@ -169,4 +181,4 @@ dwtrsConfiguration :: Lens' DescribeWorkflowTypeResponse WorkflowTypeConfiguration dwtrsConfiguration = lens _dwtrsConfiguration (\ s a -> s{_dwtrsConfiguration = a}); -instance NFData DescribeWorkflowTypeResponse+instance NFData DescribeWorkflowTypeResponse where
gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.GetWorkflowExecutionHistory--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,11 +25,17 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters. --+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+-- -- This operation returns paginated results. module Network.AWS.SWF.GetWorkflowExecutionHistory     (@@ -52,23 +58,24 @@     , gwehrsEvents     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'getWorkflowExecutionHistory' smart constructor. data GetWorkflowExecutionHistory = GetWorkflowExecutionHistory'-    { _gwehNextPageToken   :: !(Maybe Text)-    , _gwehReverseOrder    :: !(Maybe Bool)-    , _gwehMaximumPageSize :: !(Maybe Nat)-    , _gwehDomain          :: !Text-    , _gwehExecution       :: !WorkflowExecution-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gwehNextPageToken   :: !(Maybe Text)+  , _gwehReverseOrder    :: !(Maybe Bool)+  , _gwehMaximumPageSize :: !(Maybe Nat)+  , _gwehDomain          :: !Text+  , _gwehExecution       :: !WorkflowExecution+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetWorkflowExecutionHistory' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,7 +84,7 @@ -- -- * 'gwehReverseOrder' - When set to @true@ , returns the events in reverse order. By default the results are returned in ascending order of the @eventTimeStamp@ of the events. ----- * 'gwehMaximumPageSize' - The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'gwehMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -- -- * 'gwehDomain' - The name of the domain containing the workflow execution. --@@ -87,14 +94,15 @@     -> WorkflowExecution -- ^ 'gwehExecution'     -> GetWorkflowExecutionHistory getWorkflowExecutionHistory pDomain_ pExecution_ =-    GetWorkflowExecutionHistory'-    { _gwehNextPageToken = Nothing-    , _gwehReverseOrder = Nothing-    , _gwehMaximumPageSize = Nothing-    , _gwehDomain = pDomain_-    , _gwehExecution = pExecution_-    }+  GetWorkflowExecutionHistory'+  { _gwehNextPageToken = Nothing+  , _gwehReverseOrder = Nothing+  , _gwehMaximumPageSize = Nothing+  , _gwehDomain = pDomain_+  , _gwehExecution = pExecution_+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. gwehNextPageToken :: Lens' GetWorkflowExecutionHistory (Maybe Text) gwehNextPageToken = lens _gwehNextPageToken (\ s a -> s{_gwehNextPageToken = a});@@ -103,7 +111,7 @@ gwehReverseOrder :: Lens' GetWorkflowExecutionHistory (Maybe Bool) gwehReverseOrder = lens _gwehReverseOrder (\ s a -> s{_gwehReverseOrder = a}); --- | The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. gwehMaximumPageSize :: Lens' GetWorkflowExecutionHistory (Maybe Natural) gwehMaximumPageSize = lens _gwehMaximumPageSize (\ s a -> s{_gwehMaximumPageSize = a}) . mapping _Nat; @@ -134,9 +142,9 @@                    (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*>                      (x .?> "events" .!@ mempty)) -instance Hashable GetWorkflowExecutionHistory+instance Hashable GetWorkflowExecutionHistory where -instance NFData GetWorkflowExecutionHistory+instance NFData GetWorkflowExecutionHistory where  instance ToHeaders GetWorkflowExecutionHistory where         toHeaders@@ -170,11 +178,12 @@ -- -- /See:/ 'getWorkflowExecutionHistoryResponse' smart constructor. data GetWorkflowExecutionHistoryResponse = GetWorkflowExecutionHistoryResponse'-    { _gwehrsNextPageToken  :: !(Maybe Text)-    , _gwehrsResponseStatus :: !Int-    , _gwehrsEvents         :: ![HistoryEvent]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gwehrsNextPageToken  :: !(Maybe Text)+  , _gwehrsResponseStatus :: !Int+  , _gwehrsEvents         :: ![HistoryEvent]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetWorkflowExecutionHistoryResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -188,12 +197,13 @@     :: Int -- ^ 'gwehrsResponseStatus'     -> GetWorkflowExecutionHistoryResponse getWorkflowExecutionHistoryResponse pResponseStatus_ =-    GetWorkflowExecutionHistoryResponse'-    { _gwehrsNextPageToken = Nothing-    , _gwehrsResponseStatus = pResponseStatus_-    , _gwehrsEvents = mempty-    }+  GetWorkflowExecutionHistoryResponse'+  { _gwehrsNextPageToken = Nothing+  , _gwehrsResponseStatus = pResponseStatus_+  , _gwehrsEvents = mempty+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. gwehrsNextPageToken :: Lens' GetWorkflowExecutionHistoryResponse (Maybe Text) gwehrsNextPageToken = lens _gwehrsNextPageToken (\ s a -> s{_gwehrsNextPageToken = a});@@ -207,3 +217,4 @@ gwehrsEvents = lens _gwehrsEvents (\ s a -> s{_gwehrsEvents = a}) . _Coerce;  instance NFData GetWorkflowExecutionHistoryResponse+         where
gen/Network/AWS/SWF/ListActivityTypes.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.ListActivityTypes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,11 +25,17 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters. --+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+-- -- This operation returns paginated results. module Network.AWS.SWF.ListActivityTypes     (@@ -53,24 +59,25 @@     , latrsTypeInfos     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'listActivityTypes' smart constructor. data ListActivityTypes = ListActivityTypes'-    { _latNextPageToken      :: !(Maybe Text)-    , _latReverseOrder       :: !(Maybe Bool)-    , _latName               :: !(Maybe Text)-    , _latMaximumPageSize    :: !(Maybe Nat)-    , _latDomain             :: !Text-    , _latRegistrationStatus :: !RegistrationStatus-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _latNextPageToken      :: !(Maybe Text)+  , _latReverseOrder       :: !(Maybe Bool)+  , _latName               :: !(Maybe Text)+  , _latMaximumPageSize    :: !(Maybe Nat)+  , _latDomain             :: !Text+  , _latRegistrationStatus :: !RegistrationStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListActivityTypes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,7 +88,7 @@ -- -- * 'latName' - If specified, only lists the activity types that have this name. ----- * 'latMaximumPageSize' - The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'latMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -- -- * 'latDomain' - The name of the domain in which the activity types have been registered. --@@ -91,15 +98,16 @@     -> RegistrationStatus -- ^ 'latRegistrationStatus'     -> ListActivityTypes listActivityTypes pDomain_ pRegistrationStatus_ =-    ListActivityTypes'-    { _latNextPageToken = Nothing-    , _latReverseOrder = Nothing-    , _latName = Nothing-    , _latMaximumPageSize = Nothing-    , _latDomain = pDomain_-    , _latRegistrationStatus = pRegistrationStatus_-    }+  ListActivityTypes'+  { _latNextPageToken = Nothing+  , _latReverseOrder = Nothing+  , _latName = Nothing+  , _latMaximumPageSize = Nothing+  , _latDomain = pDomain_+  , _latRegistrationStatus = pRegistrationStatus_+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. latNextPageToken :: Lens' ListActivityTypes (Maybe Text) latNextPageToken = lens _latNextPageToken (\ s a -> s{_latNextPageToken = a});@@ -112,7 +120,7 @@ latName :: Lens' ListActivityTypes (Maybe Text) latName = lens _latName (\ s a -> s{_latName = a}); --- | The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. latMaximumPageSize :: Lens' ListActivityTypes (Maybe Natural) latMaximumPageSize = lens _latMaximumPageSize (\ s a -> s{_latMaximumPageSize = a}) . mapping _Nat; @@ -142,9 +150,9 @@                    (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*>                      (x .?> "typeInfos" .!@ mempty)) -instance Hashable ListActivityTypes+instance Hashable ListActivityTypes where -instance NFData ListActivityTypes+instance NFData ListActivityTypes where  instance ToHeaders ListActivityTypes where         toHeaders@@ -180,11 +188,12 @@ -- -- /See:/ 'listActivityTypesResponse' smart constructor. data ListActivityTypesResponse = ListActivityTypesResponse'-    { _latrsNextPageToken  :: !(Maybe Text)-    , _latrsResponseStatus :: !Int-    , _latrsTypeInfos      :: ![ActivityTypeInfo]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _latrsNextPageToken  :: !(Maybe Text)+  , _latrsResponseStatus :: !Int+  , _latrsTypeInfos      :: ![ActivityTypeInfo]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListActivityTypesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -198,12 +207,13 @@     :: Int -- ^ 'latrsResponseStatus'     -> ListActivityTypesResponse listActivityTypesResponse pResponseStatus_ =-    ListActivityTypesResponse'-    { _latrsNextPageToken = Nothing-    , _latrsResponseStatus = pResponseStatus_-    , _latrsTypeInfos = mempty-    }+  ListActivityTypesResponse'+  { _latrsNextPageToken = Nothing+  , _latrsResponseStatus = pResponseStatus_+  , _latrsTypeInfos = mempty+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. latrsNextPageToken :: Lens' ListActivityTypesResponse (Maybe Text) latrsNextPageToken = lens _latrsNextPageToken (\ s a -> s{_latrsNextPageToken = a});@@ -216,4 +226,4 @@ latrsTypeInfos :: Lens' ListActivityTypesResponse [ActivityTypeInfo] latrsTypeInfos = lens _latrsTypeInfos (\ s a -> s{_latrsTypeInfos = a}) . _Coerce; -instance NFData ListActivityTypesResponse+instance NFData ListActivityTypesResponse where
gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.ListClosedWorkflowExecutions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,13 +25,25 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ .    * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ .    * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ . --+--     * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ . --+--     * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+-- -- This operation returns paginated results. module Network.AWS.SWF.ListClosedWorkflowExecutions     (@@ -58,28 +70,29 @@     , weiExecutionInfos     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'listClosedWorkflowExecutions' smart constructor. data ListClosedWorkflowExecutions = ListClosedWorkflowExecutions'-    { _lcweNextPageToken     :: !(Maybe Text)-    , _lcweExecutionFilter   :: !(Maybe WorkflowExecutionFilter)-    , _lcweCloseStatusFilter :: !(Maybe CloseStatusFilter)-    , _lcweTypeFilter        :: !(Maybe WorkflowTypeFilter)-    , _lcweCloseTimeFilter   :: !(Maybe ExecutionTimeFilter)-    , _lcweReverseOrder      :: !(Maybe Bool)-    , _lcweTagFilter         :: !(Maybe TagFilter)-    , _lcweStartTimeFilter   :: !(Maybe ExecutionTimeFilter)-    , _lcweMaximumPageSize   :: !(Maybe Nat)-    , _lcweDomain            :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lcweNextPageToken     :: !(Maybe Text)+  , _lcweExecutionFilter   :: !(Maybe WorkflowExecutionFilter)+  , _lcweCloseStatusFilter :: !(Maybe CloseStatusFilter)+  , _lcweTypeFilter        :: !(Maybe WorkflowTypeFilter)+  , _lcweCloseTimeFilter   :: !(Maybe ExecutionTimeFilter)+  , _lcweReverseOrder      :: !(Maybe Bool)+  , _lcweTagFilter         :: !(Maybe TagFilter)+  , _lcweStartTimeFilter   :: !(Maybe ExecutionTimeFilter)+  , _lcweMaximumPageSize   :: !(Maybe Nat)+  , _lcweDomain            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListClosedWorkflowExecutions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -100,26 +113,27 @@ -- -- * 'lcweStartTimeFilter' - If specified, the workflow executions are included in the returned results based on whether their start times are within the range specified by this filter. Also, if this parameter is specified, the returned results are ordered by their start times. ----- * 'lcweMaximumPageSize' - The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'lcweMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -- -- * 'lcweDomain' - The name of the domain that contains the workflow executions to list. listClosedWorkflowExecutions     :: Text -- ^ 'lcweDomain'     -> ListClosedWorkflowExecutions listClosedWorkflowExecutions pDomain_ =-    ListClosedWorkflowExecutions'-    { _lcweNextPageToken = Nothing-    , _lcweExecutionFilter = Nothing-    , _lcweCloseStatusFilter = Nothing-    , _lcweTypeFilter = Nothing-    , _lcweCloseTimeFilter = Nothing-    , _lcweReverseOrder = Nothing-    , _lcweTagFilter = Nothing-    , _lcweStartTimeFilter = Nothing-    , _lcweMaximumPageSize = Nothing-    , _lcweDomain = pDomain_-    }+  ListClosedWorkflowExecutions'+  { _lcweNextPageToken = Nothing+  , _lcweExecutionFilter = Nothing+  , _lcweCloseStatusFilter = Nothing+  , _lcweTypeFilter = Nothing+  , _lcweCloseTimeFilter = Nothing+  , _lcweReverseOrder = Nothing+  , _lcweTagFilter = Nothing+  , _lcweStartTimeFilter = Nothing+  , _lcweMaximumPageSize = Nothing+  , _lcweDomain = pDomain_+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. lcweNextPageToken :: Lens' ListClosedWorkflowExecutions (Maybe Text) lcweNextPageToken = lens _lcweNextPageToken (\ s a -> s{_lcweNextPageToken = a});@@ -152,7 +166,7 @@ lcweStartTimeFilter :: Lens' ListClosedWorkflowExecutions (Maybe ExecutionTimeFilter) lcweStartTimeFilter = lens _lcweStartTimeFilter (\ s a -> s{_lcweStartTimeFilter = a}); --- | The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. lcweMaximumPageSize :: Lens' ListClosedWorkflowExecutions (Maybe Natural) lcweMaximumPageSize = lens _lcweMaximumPageSize (\ s a -> s{_lcweMaximumPageSize = a}) . mapping _Nat; @@ -175,9 +189,9 @@         request = postJSON swf         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable ListClosedWorkflowExecutions+instance Hashable ListClosedWorkflowExecutions where -instance NFData ListClosedWorkflowExecutions+instance NFData ListClosedWorkflowExecutions where  instance ToHeaders ListClosedWorkflowExecutions where         toHeaders
gen/Network/AWS/SWF/ListDomains.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.ListDomains--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,11 +25,17 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains. The element must be set to @arn:aws:swf::AccountID:domain/*@ , where /AccountID/ is the account ID, with no dashes.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. The element must be set to @arn:aws:swf::AccountID:domain/*@ , where /AccountID/ is the account ID, with no dashes. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters. --+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+-- -- This operation returns paginated results. module Network.AWS.SWF.ListDomains     (@@ -51,22 +57,23 @@     , ldrsDomainInfos     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'listDomains' smart constructor. data ListDomains = ListDomains'-    { _ldNextPageToken      :: !(Maybe Text)-    , _ldReverseOrder       :: !(Maybe Bool)-    , _ldMaximumPageSize    :: !(Maybe Nat)-    , _ldRegistrationStatus :: !RegistrationStatus-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ldNextPageToken      :: !(Maybe Text)+  , _ldReverseOrder       :: !(Maybe Bool)+  , _ldMaximumPageSize    :: !(Maybe Nat)+  , _ldRegistrationStatus :: !RegistrationStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDomains' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,20 +82,21 @@ -- -- * 'ldReverseOrder' - When set to @true@ , returns the results in reverse order. By default, the results are returned in ascending alphabetical order by @name@ of the domains. ----- * 'ldMaximumPageSize' - The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'ldMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -- -- * 'ldRegistrationStatus' - Specifies the registration status of the domains to list. listDomains     :: RegistrationStatus -- ^ 'ldRegistrationStatus'     -> ListDomains listDomains pRegistrationStatus_ =-    ListDomains'-    { _ldNextPageToken = Nothing-    , _ldReverseOrder = Nothing-    , _ldMaximumPageSize = Nothing-    , _ldRegistrationStatus = pRegistrationStatus_-    }+  ListDomains'+  { _ldNextPageToken = Nothing+  , _ldReverseOrder = Nothing+  , _ldMaximumPageSize = Nothing+  , _ldRegistrationStatus = pRegistrationStatus_+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. ldNextPageToken :: Lens' ListDomains (Maybe Text) ldNextPageToken = lens _ldNextPageToken (\ s a -> s{_ldNextPageToken = a});@@ -97,7 +105,7 @@ ldReverseOrder :: Lens' ListDomains (Maybe Bool) ldReverseOrder = lens _ldReverseOrder (\ s a -> s{_ldReverseOrder = a}); --- | The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. ldMaximumPageSize :: Lens' ListDomains (Maybe Natural) ldMaximumPageSize = lens _ldMaximumPageSize (\ s a -> s{_ldMaximumPageSize = a}) . mapping _Nat; @@ -123,9 +131,9 @@                    (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*>                      (x .?> "domainInfos" .!@ mempty)) -instance Hashable ListDomains+instance Hashable ListDomains where -instance NFData ListDomains+instance NFData ListDomains where  instance ToHeaders ListDomains where         toHeaders@@ -158,11 +166,12 @@ -- -- /See:/ 'listDomainsResponse' smart constructor. data ListDomainsResponse = ListDomainsResponse'-    { _ldrsNextPageToken  :: !(Maybe Text)-    , _ldrsResponseStatus :: !Int-    , _ldrsDomainInfos    :: ![DomainInfo]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ldrsNextPageToken  :: !(Maybe Text)+  , _ldrsResponseStatus :: !Int+  , _ldrsDomainInfos    :: ![DomainInfo]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDomainsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -176,12 +185,13 @@     :: Int -- ^ 'ldrsResponseStatus'     -> ListDomainsResponse listDomainsResponse pResponseStatus_ =-    ListDomainsResponse'-    { _ldrsNextPageToken = Nothing-    , _ldrsResponseStatus = pResponseStatus_-    , _ldrsDomainInfos = mempty-    }+  ListDomainsResponse'+  { _ldrsNextPageToken = Nothing+  , _ldrsResponseStatus = pResponseStatus_+  , _ldrsDomainInfos = mempty+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. ldrsNextPageToken :: Lens' ListDomainsResponse (Maybe Text) ldrsNextPageToken = lens _ldrsNextPageToken (\ s a -> s{_ldrsNextPageToken = a});@@ -194,4 +204,4 @@ ldrsDomainInfos :: Lens' ListDomainsResponse [DomainInfo] ldrsDomainInfos = lens _ldrsDomainInfos (\ s a -> s{_ldrsDomainInfos = a}) . _Coerce; -instance NFData ListDomainsResponse+instance NFData ListDomainsResponse where
gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.ListOpenWorkflowExecutions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,13 +25,25 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ .    * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ .    * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ . --+--     * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ . --+--     * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+-- -- This operation returns paginated results. module Network.AWS.SWF.ListOpenWorkflowExecutions     (@@ -56,26 +68,27 @@     , weiExecutionInfos     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'listOpenWorkflowExecutions' smart constructor. data ListOpenWorkflowExecutions = ListOpenWorkflowExecutions'-    { _loweNextPageToken   :: !(Maybe Text)-    , _loweExecutionFilter :: !(Maybe WorkflowExecutionFilter)-    , _loweTypeFilter      :: !(Maybe WorkflowTypeFilter)-    , _loweReverseOrder    :: !(Maybe Bool)-    , _loweTagFilter       :: !(Maybe TagFilter)-    , _loweMaximumPageSize :: !(Maybe Nat)-    , _loweDomain          :: !Text-    , _loweStartTimeFilter :: !ExecutionTimeFilter-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _loweNextPageToken   :: !(Maybe Text)+  , _loweExecutionFilter :: !(Maybe WorkflowExecutionFilter)+  , _loweTypeFilter      :: !(Maybe WorkflowTypeFilter)+  , _loweReverseOrder    :: !(Maybe Bool)+  , _loweTagFilter       :: !(Maybe TagFilter)+  , _loweMaximumPageSize :: !(Maybe Nat)+  , _loweDomain          :: !Text+  , _loweStartTimeFilter :: !ExecutionTimeFilter+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListOpenWorkflowExecutions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -90,7 +103,7 @@ -- -- * 'loweTagFilter' - If specified, only executions that have the matching tag are listed. ----- * 'loweMaximumPageSize' - The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'loweMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -- -- * 'loweDomain' - The name of the domain that contains the workflow executions to list. --@@ -100,17 +113,18 @@     -> ExecutionTimeFilter -- ^ 'loweStartTimeFilter'     -> ListOpenWorkflowExecutions listOpenWorkflowExecutions pDomain_ pStartTimeFilter_ =-    ListOpenWorkflowExecutions'-    { _loweNextPageToken = Nothing-    , _loweExecutionFilter = Nothing-    , _loweTypeFilter = Nothing-    , _loweReverseOrder = Nothing-    , _loweTagFilter = Nothing-    , _loweMaximumPageSize = Nothing-    , _loweDomain = pDomain_-    , _loweStartTimeFilter = pStartTimeFilter_-    }+  ListOpenWorkflowExecutions'+  { _loweNextPageToken = Nothing+  , _loweExecutionFilter = Nothing+  , _loweTypeFilter = Nothing+  , _loweReverseOrder = Nothing+  , _loweTagFilter = Nothing+  , _loweMaximumPageSize = Nothing+  , _loweDomain = pDomain_+  , _loweStartTimeFilter = pStartTimeFilter_+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. loweNextPageToken :: Lens' ListOpenWorkflowExecutions (Maybe Text) loweNextPageToken = lens _loweNextPageToken (\ s a -> s{_loweNextPageToken = a});@@ -131,7 +145,7 @@ loweTagFilter :: Lens' ListOpenWorkflowExecutions (Maybe TagFilter) loweTagFilter = lens _loweTagFilter (\ s a -> s{_loweTagFilter = a}); --- | The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. loweMaximumPageSize :: Lens' ListOpenWorkflowExecutions (Maybe Natural) loweMaximumPageSize = lens _loweMaximumPageSize (\ s a -> s{_loweMaximumPageSize = a}) . mapping _Nat; @@ -157,9 +171,9 @@         request = postJSON swf         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable ListOpenWorkflowExecutions+instance Hashable ListOpenWorkflowExecutions where -instance NFData ListOpenWorkflowExecutions+instance NFData ListOpenWorkflowExecutions where  instance ToHeaders ListOpenWorkflowExecutions where         toHeaders
gen/Network/AWS/SWF/ListWorkflowTypes.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.ListWorkflowTypes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,11 +25,17 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters. --+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+-- -- This operation returns paginated results. module Network.AWS.SWF.ListWorkflowTypes     (@@ -53,24 +59,25 @@     , lwtrsTypeInfos     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'listWorkflowTypes' smart constructor. data ListWorkflowTypes = ListWorkflowTypes'-    { _lwtNextPageToken      :: !(Maybe Text)-    , _lwtReverseOrder       :: !(Maybe Bool)-    , _lwtName               :: !(Maybe Text)-    , _lwtMaximumPageSize    :: !(Maybe Nat)-    , _lwtDomain             :: !Text-    , _lwtRegistrationStatus :: !RegistrationStatus-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lwtNextPageToken      :: !(Maybe Text)+  , _lwtReverseOrder       :: !(Maybe Bool)+  , _lwtName               :: !(Maybe Text)+  , _lwtMaximumPageSize    :: !(Maybe Nat)+  , _lwtDomain             :: !Text+  , _lwtRegistrationStatus :: !RegistrationStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListWorkflowTypes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,7 +88,7 @@ -- -- * 'lwtName' - If specified, lists the workflow type with this name. ----- * 'lwtMaximumPageSize' - The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'lwtMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -- -- * 'lwtDomain' - The name of the domain in which the workflow types have been registered. --@@ -91,15 +98,16 @@     -> RegistrationStatus -- ^ 'lwtRegistrationStatus'     -> ListWorkflowTypes listWorkflowTypes pDomain_ pRegistrationStatus_ =-    ListWorkflowTypes'-    { _lwtNextPageToken = Nothing-    , _lwtReverseOrder = Nothing-    , _lwtName = Nothing-    , _lwtMaximumPageSize = Nothing-    , _lwtDomain = pDomain_-    , _lwtRegistrationStatus = pRegistrationStatus_-    }+  ListWorkflowTypes'+  { _lwtNextPageToken = Nothing+  , _lwtReverseOrder = Nothing+  , _lwtName = Nothing+  , _lwtMaximumPageSize = Nothing+  , _lwtDomain = pDomain_+  , _lwtRegistrationStatus = pRegistrationStatus_+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. lwtNextPageToken :: Lens' ListWorkflowTypes (Maybe Text) lwtNextPageToken = lens _lwtNextPageToken (\ s a -> s{_lwtNextPageToken = a});@@ -112,7 +120,7 @@ lwtName :: Lens' ListWorkflowTypes (Maybe Text) lwtName = lens _lwtName (\ s a -> s{_lwtName = a}); --- | The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. lwtMaximumPageSize :: Lens' ListWorkflowTypes (Maybe Natural) lwtMaximumPageSize = lens _lwtMaximumPageSize (\ s a -> s{_lwtMaximumPageSize = a}) . mapping _Nat; @@ -142,9 +150,9 @@                    (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*>                      (x .?> "typeInfos" .!@ mempty)) -instance Hashable ListWorkflowTypes+instance Hashable ListWorkflowTypes where -instance NFData ListWorkflowTypes+instance NFData ListWorkflowTypes where  instance ToHeaders ListWorkflowTypes where         toHeaders@@ -180,11 +188,12 @@ -- -- /See:/ 'listWorkflowTypesResponse' smart constructor. data ListWorkflowTypesResponse = ListWorkflowTypesResponse'-    { _lwtrsNextPageToken  :: !(Maybe Text)-    , _lwtrsResponseStatus :: !Int-    , _lwtrsTypeInfos      :: ![WorkflowTypeInfo]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lwtrsNextPageToken  :: !(Maybe Text)+  , _lwtrsResponseStatus :: !Int+  , _lwtrsTypeInfos      :: ![WorkflowTypeInfo]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListWorkflowTypesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -198,12 +207,13 @@     :: Int -- ^ 'lwtrsResponseStatus'     -> ListWorkflowTypesResponse listWorkflowTypesResponse pResponseStatus_ =-    ListWorkflowTypesResponse'-    { _lwtrsNextPageToken = Nothing-    , _lwtrsResponseStatus = pResponseStatus_-    , _lwtrsTypeInfos = mempty-    }+  ListWorkflowTypesResponse'+  { _lwtrsNextPageToken = Nothing+  , _lwtrsResponseStatus = pResponseStatus_+  , _lwtrsTypeInfos = mempty+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. lwtrsNextPageToken :: Lens' ListWorkflowTypesResponse (Maybe Text) lwtrsNextPageToken = lens _lwtrsNextPageToken (\ s a -> s{_lwtrsNextPageToken = a});@@ -216,4 +226,4 @@ lwtrsTypeInfos :: Lens' ListWorkflowTypesResponse [WorkflowTypeInfo] lwtrsTypeInfos = lens _lwtrsTypeInfos (\ s a -> s{_lwtrsTypeInfos = a}) . _Coerce; -instance NFData ListWorkflowTypesResponse+instance NFData ListWorkflowTypesResponse where
gen/Network/AWS/SWF/PollForActivityTask.hs view
@@ -12,23 +12,31 @@  -- | -- Module      : Network.AWS.SWF.PollForActivityTask--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Used by workers to get an 'ActivityTask' from the specified activity @taskList@ . This initiates a long poll, where the service holds the HTTP connection open and responds as soon as a task becomes available. The maximum time the service holds on to the request before responding is 60 seconds. If no task is available within 60 seconds, the poll will return an empty result. An empty result, in this context, means that an ActivityTask is returned, but that the value of taskToken is an empty string. If a task is returned, the worker should use its type to identify and process it correctly.+-- Used by workers to get an 'ActivityTask' from the specified activity @taskList@ . This initiates a long poll, where the service holds the HTTP connection open and responds as soon as a task becomes available. The maximum time the service holds on to the request before responding is 60 seconds. If no task is available within 60 seconds, the poll returns an empty result. An empty result, in this context, means that an ActivityTask is returned, but that the value of taskToken is an empty string. If a task is returned, the worker should use its type to identify and process it correctly. -- ----- /Important:/ Workers should set their client side socket timeout to at least 70 seconds (10 seconds higher than the maximum time service may hold the poll request).__Access Control__+-- /Important:/ Workers should set their client side socket timeout to at least 70 seconds (10 seconds higher than the maximum time service may hold the poll request). --+-- __Access Control__+-- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the @taskList.name@ parameter by using a __Condition__ element with the @swf:taskList.name@ key to allow the action to access only certain task lists.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the @taskList.name@ parameter by using a @Condition@ element with the @swf:taskList.name@ key to allow the action to access only certain task lists.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.PollForActivityTask     (     -- * Creating a Request@@ -52,20 +60,21 @@     , pfatrsStartedEventId     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'pollForActivityTask' smart constructor. data PollForActivityTask = PollForActivityTask'-    { _pfatIdentity :: !(Maybe Text)-    , _pfatDomain   :: !Text-    , _pfatTaskList :: !TaskList-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pfatIdentity :: !(Maybe Text)+  , _pfatDomain   :: !Text+  , _pfatTaskList :: !TaskList+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PollForActivityTask' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,18 +83,16 @@ -- -- * 'pfatDomain' - The name of the domain that contains the task lists being polled. ----- * 'pfatTaskList' - Specifies the task list to poll for activity tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- * 'pfatTaskList' - Specifies the task list to poll for activity tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . pollForActivityTask     :: Text -- ^ 'pfatDomain'     -> TaskList -- ^ 'pfatTaskList'     -> PollForActivityTask pollForActivityTask pDomain_ pTaskList_ =-    PollForActivityTask'-    { _pfatIdentity = Nothing-    , _pfatDomain = pDomain_-    , _pfatTaskList = pTaskList_-    }+  PollForActivityTask'+  {_pfatIdentity = Nothing, _pfatDomain = pDomain_, _pfatTaskList = pTaskList_} + -- | Identity of the worker making the request, recorded in the @ActivityTaskStarted@ event in the workflow history. This enables diagnostic tracing when problems arise. The form of this identity is user defined. pfatIdentity :: Lens' PollForActivityTask (Maybe Text) pfatIdentity = lens _pfatIdentity (\ s a -> s{_pfatIdentity = a});@@ -94,7 +101,7 @@ pfatDomain :: Lens' PollForActivityTask Text pfatDomain = lens _pfatDomain (\ s a -> s{_pfatDomain = a}); --- | Specifies the task list to poll for activity tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- | Specifies the task list to poll for activity tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . pfatTaskList :: Lens' PollForActivityTask TaskList pfatTaskList = lens _pfatTaskList (\ s a -> s{_pfatTaskList = a}); @@ -113,9 +120,9 @@                      <*> (pure (fromEnum s))                      <*> (x .:> "startedEventId")) -instance Hashable PollForActivityTask+instance Hashable PollForActivityTask where -instance NFData PollForActivityTask+instance NFData PollForActivityTask where  instance ToHeaders PollForActivityTask where         toHeaders@@ -147,15 +154,16 @@ -- -- /See:/ 'pollForActivityTaskResponse' smart constructor. data PollForActivityTaskResponse = PollForActivityTaskResponse'-    { _pfatrsActivityType      :: !(Maybe ActivityType)-    , _pfatrsActivityId        :: !(Maybe Text)-    , _pfatrsInput             :: !(Maybe Text)-    , _pfatrsTaskToken         :: !(Maybe Text)-    , _pfatrsWorkflowExecution :: !(Maybe WorkflowExecution)-    , _pfatrsResponseStatus    :: !Int-    , _pfatrsStartedEventId    :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pfatrsActivityType      :: !(Maybe ActivityType)+  , _pfatrsActivityId        :: !(Maybe Text)+  , _pfatrsInput             :: !(Maybe Text)+  , _pfatrsTaskToken         :: !(Maybe Text)+  , _pfatrsWorkflowExecution :: !(Maybe WorkflowExecution)+  , _pfatrsResponseStatus    :: !Int+  , _pfatrsStartedEventId    :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PollForActivityTaskResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -178,16 +186,17 @@     -> Integer -- ^ 'pfatrsStartedEventId'     -> PollForActivityTaskResponse pollForActivityTaskResponse pResponseStatus_ pStartedEventId_ =-    PollForActivityTaskResponse'-    { _pfatrsActivityType = Nothing-    , _pfatrsActivityId = Nothing-    , _pfatrsInput = Nothing-    , _pfatrsTaskToken = Nothing-    , _pfatrsWorkflowExecution = Nothing-    , _pfatrsResponseStatus = pResponseStatus_-    , _pfatrsStartedEventId = pStartedEventId_-    }+  PollForActivityTaskResponse'+  { _pfatrsActivityType = Nothing+  , _pfatrsActivityId = Nothing+  , _pfatrsInput = Nothing+  , _pfatrsTaskToken = Nothing+  , _pfatrsWorkflowExecution = Nothing+  , _pfatrsResponseStatus = pResponseStatus_+  , _pfatrsStartedEventId = pStartedEventId_+  } + -- | The type of this activity task. pfatrsActivityType :: Lens' PollForActivityTaskResponse (Maybe ActivityType) pfatrsActivityType = lens _pfatrsActivityType (\ s a -> s{_pfatrsActivityType = a});@@ -216,4 +225,4 @@ pfatrsStartedEventId :: Lens' PollForActivityTaskResponse Integer pfatrsStartedEventId = lens _pfatrsStartedEventId (\ s a -> s{_pfatrsStartedEventId = a}); -instance NFData PollForActivityTaskResponse+instance NFData PollForActivityTaskResponse where
gen/Network/AWS/SWF/PollForDecisionTask.hs view
@@ -12,26 +12,36 @@  -- | -- Module      : Network.AWS.SWF.PollForDecisionTask--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Used by deciders to get a 'DecisionTask' from the specified decision @taskList@ . A decision task may be returned for any open workflow execution that is using the specified task list. The task includes a paginated view of the history of the workflow execution. The decider should use the workflow type and the history to determine how to properly handle the task. -- ----- This action initiates a long poll, where the service holds the HTTP connection open and responds as soon a task becomes available. If no decision task is available in the specified task list before the timeout of 60 seconds expires, an empty result is returned. An empty result, in this context, means that a DecisionTask is returned, but that the value of @taskToken@ is an empty string.+-- This action initiates a long poll, where the service holds the HTTP connection open and responds as soon a task becomes available. If no decision task is available in the specified task list before the timeout of 60 seconds expires, an empty result is returned. An empty result, in this context, means that a DecisionTask is returned, but that the value of taskToken is an empty string. ----- /Important:/ Deciders should set their client-side socket timeout to at least 70 seconds (10 seconds higher than the timeout)./Important:/ Because the number of workflow history events for a single workflow execution might be very large, the result returned might be split up across a number of pages. To retrieve subsequent pages, make additional calls to @PollForDecisionTask@ using the @nextPageToken@ returned by the initial call. Note that you do __not__ call @GetWorkflowExecutionHistory@ with this @nextPageToken@ . Instead, call @PollForDecisionTask@ again.__Access Control__+-- /Important:/ Deciders should set their client side socket timeout to at least 70 seconds (10 seconds higher than the timeout). --+-- /Important:/ Because the number of workflow history events for a single workflow execution might be very large, the result returned might be split up across a number of pages. To retrieve subsequent pages, make additional calls to @PollForDecisionTask@ using the @nextPageToken@ returned by the initial call. Note that you do /not/ call @GetWorkflowExecutionHistory@ with this @nextPageToken@ . Instead, call @PollForDecisionTask@ again.+--+-- __Access Control__+-- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the @taskList.name@ parameter by using a __Condition__ element with the @swf:taskList.name@ key to allow the action to access only certain task lists.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the @taskList.name@ parameter by using a @Condition@ element with the @swf:taskList.name@ key to allow the action to access only certain task lists. --+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+-- -- This operation returns paginated results. module Network.AWS.SWF.PollForDecisionTask     (@@ -60,54 +70,56 @@     , pfdtrsStartedEventId     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'pollForDecisionTask' smart constructor. data PollForDecisionTask = PollForDecisionTask'-    { _pfdtNextPageToken   :: !(Maybe Text)-    , _pfdtReverseOrder    :: !(Maybe Bool)-    , _pfdtMaximumPageSize :: !(Maybe Nat)-    , _pfdtIdentity        :: !(Maybe Text)-    , _pfdtDomain          :: !Text-    , _pfdtTaskList        :: !TaskList-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pfdtNextPageToken   :: !(Maybe Text)+  , _pfdtReverseOrder    :: !(Maybe Bool)+  , _pfdtMaximumPageSize :: !(Maybe Nat)+  , _pfdtIdentity        :: !(Maybe Text)+  , _pfdtDomain          :: !Text+  , _pfdtTaskList        :: !TaskList+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PollForDecisionTask' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pfdtNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. .+-- * 'pfdtNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -- -- * 'pfdtReverseOrder' - When set to @true@ , returns the events in reverse order. By default the results are returned in ascending order of the @eventTimestamp@ of the events. ----- * 'pfdtMaximumPageSize' - The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'pfdtMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -- -- * 'pfdtIdentity' - Identity of the decider making the request, which is recorded in the DecisionTaskStarted event in the workflow history. This enables diagnostic tracing when problems arise. The form of this identity is user defined. -- -- * 'pfdtDomain' - The name of the domain containing the task lists to poll. ----- * 'pfdtTaskList' - Specifies the task list to poll for decision tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- * 'pfdtTaskList' - Specifies the task list to poll for decision tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . pollForDecisionTask     :: Text -- ^ 'pfdtDomain'     -> TaskList -- ^ 'pfdtTaskList'     -> PollForDecisionTask pollForDecisionTask pDomain_ pTaskList_ =-    PollForDecisionTask'-    { _pfdtNextPageToken = Nothing-    , _pfdtReverseOrder = Nothing-    , _pfdtMaximumPageSize = Nothing-    , _pfdtIdentity = Nothing-    , _pfdtDomain = pDomain_-    , _pfdtTaskList = pTaskList_-    }+  PollForDecisionTask'+  { _pfdtNextPageToken = Nothing+  , _pfdtReverseOrder = Nothing+  , _pfdtMaximumPageSize = Nothing+  , _pfdtIdentity = Nothing+  , _pfdtDomain = pDomain_+  , _pfdtTaskList = pTaskList_+  } --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. .++-- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. pfdtNextPageToken :: Lens' PollForDecisionTask (Maybe Text) pfdtNextPageToken = lens _pfdtNextPageToken (\ s a -> s{_pfdtNextPageToken = a}); @@ -115,7 +127,7 @@ pfdtReverseOrder :: Lens' PollForDecisionTask (Maybe Bool) pfdtReverseOrder = lens _pfdtReverseOrder (\ s a -> s{_pfdtReverseOrder = a}); --- | The maximum number of results that will be returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. pfdtMaximumPageSize :: Lens' PollForDecisionTask (Maybe Natural) pfdtMaximumPageSize = lens _pfdtMaximumPageSize (\ s a -> s{_pfdtMaximumPageSize = a}) . mapping _Nat; @@ -127,7 +139,7 @@ pfdtDomain :: Lens' PollForDecisionTask Text pfdtDomain = lens _pfdtDomain (\ s a -> s{_pfdtDomain = a}); --- | Specifies the task list to poll for decision tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- | Specifies the task list to poll for decision tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . pfdtTaskList :: Lens' PollForDecisionTask TaskList pfdtTaskList = lens _pfdtTaskList (\ s a -> s{_pfdtTaskList = a}); @@ -155,9 +167,9 @@                      <*> (pure (fromEnum s))                      <*> (x .:> "startedEventId")) -instance Hashable PollForDecisionTask+instance Hashable PollForDecisionTask where -instance NFData PollForDecisionTask+instance NFData PollForDecisionTask where  instance ToHeaders PollForDecisionTask where         toHeaders@@ -192,16 +204,17 @@ -- -- /See:/ 'pollForDecisionTaskResponse' smart constructor. data PollForDecisionTaskResponse = PollForDecisionTaskResponse'-    { _pfdtrsNextPageToken          :: !(Maybe Text)-    , _pfdtrsWorkflowType           :: !(Maybe WorkflowType)-    , _pfdtrsPreviousStartedEventId :: !(Maybe Integer)-    , _pfdtrsEvents                 :: !(Maybe [HistoryEvent])-    , _pfdtrsTaskToken              :: !(Maybe Text)-    , _pfdtrsWorkflowExecution      :: !(Maybe WorkflowExecution)-    , _pfdtrsResponseStatus         :: !Int-    , _pfdtrsStartedEventId         :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pfdtrsNextPageToken          :: !(Maybe Text)+  , _pfdtrsWorkflowType           :: !(Maybe WorkflowType)+  , _pfdtrsPreviousStartedEventId :: !(Maybe Integer)+  , _pfdtrsEvents                 :: !(Maybe [HistoryEvent])+  , _pfdtrsTaskToken              :: !(Maybe Text)+  , _pfdtrsWorkflowExecution      :: !(Maybe WorkflowExecution)+  , _pfdtrsResponseStatus         :: !Int+  , _pfdtrsStartedEventId         :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PollForDecisionTaskResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -226,17 +239,18 @@     -> Integer -- ^ 'pfdtrsStartedEventId'     -> PollForDecisionTaskResponse pollForDecisionTaskResponse pResponseStatus_ pStartedEventId_ =-    PollForDecisionTaskResponse'-    { _pfdtrsNextPageToken = Nothing-    , _pfdtrsWorkflowType = Nothing-    , _pfdtrsPreviousStartedEventId = Nothing-    , _pfdtrsEvents = Nothing-    , _pfdtrsTaskToken = Nothing-    , _pfdtrsWorkflowExecution = Nothing-    , _pfdtrsResponseStatus = pResponseStatus_-    , _pfdtrsStartedEventId = pStartedEventId_-    }+  PollForDecisionTaskResponse'+  { _pfdtrsNextPageToken = Nothing+  , _pfdtrsWorkflowType = Nothing+  , _pfdtrsPreviousStartedEventId = Nothing+  , _pfdtrsEvents = Nothing+  , _pfdtrsTaskToken = Nothing+  , _pfdtrsWorkflowExecution = Nothing+  , _pfdtrsResponseStatus = pResponseStatus_+  , _pfdtrsStartedEventId = pStartedEventId_+  } + -- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. pfdtrsNextPageToken :: Lens' PollForDecisionTaskResponse (Maybe Text) pfdtrsNextPageToken = lens _pfdtrsNextPageToken (\ s a -> s{_pfdtrsNextPageToken = a});@@ -269,4 +283,4 @@ pfdtrsStartedEventId :: Lens' PollForDecisionTaskResponse Integer pfdtrsStartedEventId = lens _pfdtrsStartedEventId (\ s a -> s{_pfdtrsStartedEventId = a}); -instance NFData PollForDecisionTaskResponse+instance NFData PollForDecisionTaskResponse where
gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs view
@@ -12,27 +12,35 @@  -- | -- Module      : Network.AWS.SWF.RecordActivityTaskHeartbeat--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Used by activity workers to report to the service that the 'ActivityTask' represented by the specified @taskToken@ is still making progress. The worker can also (optionally) specify details of the progress, for example percent complete, using the @details@ parameter. This action can also be used by the worker as a mechanism to check if cancellation is being requested for the activity task. If a cancellation is being attempted for the specified task, then the boolean @cancelRequested@ flag returned by the service is set to @true@ .+-- Used by activity workers to report to the service that the 'ActivityTask' represented by the specified @taskToken@ is still making progress. The worker can also specify details of the progress, for example percent complete, using the @details@ parameter. This action can also be used by the worker as a mechanism to check if cancellation is being requested for the activity task. If a cancellation is being attempted for the specified task, then the boolean @cancelRequested@ flag returned by the service is set to @true@ . -- -- -- This action resets the @taskHeartbeatTimeout@ clock. The @taskHeartbeatTimeout@ is specified in 'RegisterActivityType' . ----- This action does not in itself create an event in the workflow execution history. However, if the task times out, the workflow execution history will contain a @ActivityTaskTimedOut@ event that contains the information from the last heartbeat generated by the activity worker.+-- This action doesn't in itself create an event in the workflow execution history. However, if the task times out, the workflow execution history contains a @ActivityTaskTimedOut@ event that contains the information from the last heartbeat generated by the activity worker. ----- /Important:/ If the @cancelRequested@ flag returns @true@ , a cancellation is being attempted. If the worker can cancel the activity, it should respond with 'RespondActivityTaskCanceled' . Otherwise, it should ignore the cancellation request.__Access Control__+-- /Important:/ If the @cancelRequested@ flag returns @true@ , a cancellation is being attempted. If the worker can cancel the activity, it should respond with 'RespondActivityTaskCanceled' . Otherwise, it should ignore the cancellation request. --+-- __Access Control__+-- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.RecordActivityTaskHeartbeat     (     -- * Creating a Request@@ -50,19 +58,20 @@     , rathrsCancelRequested     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'recordActivityTaskHeartbeat' smart constructor. data RecordActivityTaskHeartbeat = RecordActivityTaskHeartbeat'-    { _rathDetails   :: !(Maybe Text)-    , _rathTaskToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rathDetails   :: !(Maybe Text)+  , _rathTaskToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RecordActivityTaskHeartbeat' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,11 +83,10 @@     :: Text -- ^ 'rathTaskToken'     -> RecordActivityTaskHeartbeat recordActivityTaskHeartbeat pTaskToken_ =-    RecordActivityTaskHeartbeat'-    { _rathDetails = Nothing-    , _rathTaskToken = pTaskToken_-    }+  RecordActivityTaskHeartbeat'+  {_rathDetails = Nothing, _rathTaskToken = pTaskToken_} + -- | If specified, contains details about the progress of the task. rathDetails :: Lens' RecordActivityTaskHeartbeat (Maybe Text) rathDetails = lens _rathDetails (\ s a -> s{_rathDetails = a});@@ -97,9 +105,9 @@                  RecordActivityTaskHeartbeatResponse' <$>                    (pure (fromEnum s)) <*> (x .:> "cancelRequested")) -instance Hashable RecordActivityTaskHeartbeat+instance Hashable RecordActivityTaskHeartbeat where -instance NFData RecordActivityTaskHeartbeat+instance NFData RecordActivityTaskHeartbeat where  instance ToHeaders RecordActivityTaskHeartbeat where         toHeaders@@ -130,10 +138,11 @@ -- -- /See:/ 'recordActivityTaskHeartbeatResponse' smart constructor. data RecordActivityTaskHeartbeatResponse = RecordActivityTaskHeartbeatResponse'-    { _rathrsResponseStatus  :: !Int-    , _rathrsCancelRequested :: !Bool-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rathrsResponseStatus  :: !Int+  , _rathrsCancelRequested :: !Bool+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RecordActivityTaskHeartbeatResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -146,11 +155,12 @@     -> Bool -- ^ 'rathrsCancelRequested'     -> RecordActivityTaskHeartbeatResponse recordActivityTaskHeartbeatResponse pResponseStatus_ pCancelRequested_ =-    RecordActivityTaskHeartbeatResponse'-    { _rathrsResponseStatus = pResponseStatus_-    , _rathrsCancelRequested = pCancelRequested_-    }+  RecordActivityTaskHeartbeatResponse'+  { _rathrsResponseStatus = pResponseStatus_+  , _rathrsCancelRequested = pCancelRequested_+  } + -- | -- | The response status code. rathrsResponseStatus :: Lens' RecordActivityTaskHeartbeatResponse Int rathrsResponseStatus = lens _rathrsResponseStatus (\ s a -> s{_rathrsResponseStatus = a});@@ -160,3 +170,4 @@ rathrsCancelRequested = lens _rathrsCancelRequested (\ s a -> s{_rathrsCancelRequested = a});  instance NFData RecordActivityTaskHeartbeatResponse+         where
gen/Network/AWS/SWF/RegisterActivityType.hs view
@@ -12,25 +12,39 @@  -- | -- Module      : Network.AWS.SWF.RegisterActivityType--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Registers a new /activity type/ along with its configuration settings in the specified domain. -- ----- /Important:/ A @TypeAlreadyExists@ fault is returned if the type already exists in the domain. You cannot change any configuration settings of the type after its registration, and it must be registered as a new version.__Access Control__+-- /Important:/ A @TypeAlreadyExists@ fault is returned if the type already exists in the domain. You cannot change any configuration settings of the type after its registration, and it must be registered as a new version. --+-- __Access Control__+-- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @defaultTaskList.name@ : String constraint. The key is @swf:defaultTaskList.name@ .    * @name@ : String constraint. The key is @swf:name@ .    * @version@ : String constraint. The key is @swf:version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @defaultTaskList.name@ : String constraint. The key is @swf:defaultTaskList.name@ . --+--     * @name@ : String constraint. The key is @swf:name@ .+--+--     * @version@ : String constraint. The key is @swf:version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.RegisterActivityType     (     -- * Creating a Request@@ -53,90 +67,92 @@     , RegisterActivityTypeResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'registerActivityType' smart constructor. data RegisterActivityType = RegisterActivityType'-    { _ratDefaultTaskScheduleToStartTimeout :: !(Maybe Text)-    , _ratDefaultTaskList                   :: !(Maybe TaskList)-    , _ratDefaultTaskPriority               :: !(Maybe Text)-    , _ratDefaultTaskHeartbeatTimeout       :: !(Maybe Text)-    , _ratDefaultTaskScheduleToCloseTimeout :: !(Maybe Text)-    , _ratDefaultTaskStartToCloseTimeout    :: !(Maybe Text)-    , _ratDescription                       :: !(Maybe Text)-    , _ratDomain                            :: !Text-    , _ratName                              :: !Text-    , _ratVersion                           :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ratDefaultTaskScheduleToStartTimeout :: !(Maybe Text)+  , _ratDefaultTaskList                   :: !(Maybe TaskList)+  , _ratDefaultTaskPriority               :: !(Maybe Text)+  , _ratDefaultTaskHeartbeatTimeout       :: !(Maybe Text)+  , _ratDefaultTaskScheduleToCloseTimeout :: !(Maybe Text)+  , _ratDefaultTaskStartToCloseTimeout    :: !(Maybe Text)+  , _ratDescription                       :: !(Maybe Text)+  , _ratDomain                            :: !Text+  , _ratName                              :: !Text+  , _ratVersion                           :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterActivityType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ratDefaultTaskScheduleToStartTimeout' - If set, specifies the default maximum duration that a task of this activity type can wait before being assigned to a worker. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- * 'ratDefaultTaskScheduleToStartTimeout' - If set, specifies the default maximum duration that a task of this activity type can wait before being assigned to a worker. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. ----- * 'ratDefaultTaskList' - If set, specifies the default task list to use for scheduling tasks of this activity type. This default task list is used if a task list is not provided when a task is scheduled through the @ScheduleActivityTask@ decision.+-- * 'ratDefaultTaskList' - If set, specifies the default task list to use for scheduling tasks of this activity type. This default task list is used if a task list isn't provided when a task is scheduled through the @ScheduleActivityTask@ 'Decision' . ----- * 'ratDefaultTaskPriority' - The default task priority to assign to the activity type. If not assigned, then "0" will be used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .+-- * 'ratDefaultTaskPriority' - The default task priority to assign to the activity type. If not assigned, then @0@ is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /in the \/Amazon SWF Developer Guide\/ ./ . ----- * 'ratDefaultTaskHeartbeatTimeout' - If set, specifies the default maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ decision. If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- * 'ratDefaultTaskHeartbeatTimeout' - If set, specifies the default maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. ----- * 'ratDefaultTaskScheduleToCloseTimeout' - If set, specifies the default maximum duration for a task of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- * 'ratDefaultTaskScheduleToCloseTimeout' - If set, specifies the default maximum duration for a task of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. ----- * 'ratDefaultTaskStartToCloseTimeout' - If set, specifies the default maximum duration that a worker can take to process tasks of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- * 'ratDefaultTaskStartToCloseTimeout' - If set, specifies the default maximum duration that a worker can take to process tasks of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -- -- * 'ratDescription' - A textual description of the activity type. -- -- * 'ratDomain' - The name of the domain in which this activity is to be registered. ----- * 'ratName' - The name of the activity type within the domain. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- * 'ratName' - The name of the activity type within the domain. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . ----- * 'ratVersion' - The version of the activity type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- * 'ratVersion' - The version of the activity type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . registerActivityType     :: Text -- ^ 'ratDomain'     -> Text -- ^ 'ratName'     -> Text -- ^ 'ratVersion'     -> RegisterActivityType registerActivityType pDomain_ pName_ pVersion_ =-    RegisterActivityType'-    { _ratDefaultTaskScheduleToStartTimeout = Nothing-    , _ratDefaultTaskList = Nothing-    , _ratDefaultTaskPriority = Nothing-    , _ratDefaultTaskHeartbeatTimeout = Nothing-    , _ratDefaultTaskScheduleToCloseTimeout = Nothing-    , _ratDefaultTaskStartToCloseTimeout = Nothing-    , _ratDescription = Nothing-    , _ratDomain = pDomain_-    , _ratName = pName_-    , _ratVersion = pVersion_-    }+  RegisterActivityType'+  { _ratDefaultTaskScheduleToStartTimeout = Nothing+  , _ratDefaultTaskList = Nothing+  , _ratDefaultTaskPriority = Nothing+  , _ratDefaultTaskHeartbeatTimeout = Nothing+  , _ratDefaultTaskScheduleToCloseTimeout = Nothing+  , _ratDefaultTaskStartToCloseTimeout = Nothing+  , _ratDescription = Nothing+  , _ratDomain = pDomain_+  , _ratName = pName_+  , _ratVersion = pVersion_+  } --- | If set, specifies the default maximum duration that a task of this activity type can wait before being assigned to a worker. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.++-- | If set, specifies the default maximum duration that a task of this activity type can wait before being assigned to a worker. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. ratDefaultTaskScheduleToStartTimeout :: Lens' RegisterActivityType (Maybe Text) ratDefaultTaskScheduleToStartTimeout = lens _ratDefaultTaskScheduleToStartTimeout (\ s a -> s{_ratDefaultTaskScheduleToStartTimeout = a}); --- | If set, specifies the default task list to use for scheduling tasks of this activity type. This default task list is used if a task list is not provided when a task is scheduled through the @ScheduleActivityTask@ decision.+-- | If set, specifies the default task list to use for scheduling tasks of this activity type. This default task list is used if a task list isn't provided when a task is scheduled through the @ScheduleActivityTask@ 'Decision' . ratDefaultTaskList :: Lens' RegisterActivityType (Maybe TaskList) ratDefaultTaskList = lens _ratDefaultTaskList (\ s a -> s{_ratDefaultTaskList = a}); --- | The default task priority to assign to the activity type. If not assigned, then "0" will be used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .+-- | The default task priority to assign to the activity type. If not assigned, then @0@ is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /in the \/Amazon SWF Developer Guide\/ ./ . ratDefaultTaskPriority :: Lens' RegisterActivityType (Maybe Text) ratDefaultTaskPriority = lens _ratDefaultTaskPriority (\ s a -> s{_ratDefaultTaskPriority = a}); --- | If set, specifies the default maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ decision. If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- | If set, specifies the default maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. ratDefaultTaskHeartbeatTimeout :: Lens' RegisterActivityType (Maybe Text) ratDefaultTaskHeartbeatTimeout = lens _ratDefaultTaskHeartbeatTimeout (\ s a -> s{_ratDefaultTaskHeartbeatTimeout = a}); --- | If set, specifies the default maximum duration for a task of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- | If set, specifies the default maximum duration for a task of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. ratDefaultTaskScheduleToCloseTimeout :: Lens' RegisterActivityType (Maybe Text) ratDefaultTaskScheduleToCloseTimeout = lens _ratDefaultTaskScheduleToCloseTimeout (\ s a -> s{_ratDefaultTaskScheduleToCloseTimeout = a}); --- | If set, specifies the default maximum duration that a worker can take to process tasks of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- | If set, specifies the default maximum duration that a worker can take to process tasks of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. ratDefaultTaskStartToCloseTimeout :: Lens' RegisterActivityType (Maybe Text) ratDefaultTaskStartToCloseTimeout = lens _ratDefaultTaskStartToCloseTimeout (\ s a -> s{_ratDefaultTaskStartToCloseTimeout = a}); @@ -148,11 +164,11 @@ ratDomain :: Lens' RegisterActivityType Text ratDomain = lens _ratDomain (\ s a -> s{_ratDomain = a}); --- | The name of the activity type within the domain. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- | The name of the activity type within the domain. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . ratName :: Lens' RegisterActivityType Text ratName = lens _ratName (\ s a -> s{_ratName = a}); --- | The version of the activity type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- | The version of the activity type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . ratVersion :: Lens' RegisterActivityType Text ratVersion = lens _ratVersion (\ s a -> s{_ratVersion = a}); @@ -162,9 +178,9 @@         request = postJSON swf         response = receiveNull RegisterActivityTypeResponse' -instance Hashable RegisterActivityType+instance Hashable RegisterActivityType where -instance NFData RegisterActivityType+instance NFData RegisterActivityType where  instance ToHeaders RegisterActivityType where         toHeaders@@ -204,13 +220,15 @@  -- | /See:/ 'registerActivityTypeResponse' smart constructor. data RegisterActivityTypeResponse =-    RegisterActivityTypeResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RegisterActivityTypeResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterActivityTypeResponse' with the minimum fields required to make a request. -- registerActivityTypeResponse     :: RegisterActivityTypeResponse registerActivityTypeResponse = RegisterActivityTypeResponse' -instance NFData RegisterActivityTypeResponse++instance NFData RegisterActivityTypeResponse where
gen/Network/AWS/SWF/RegisterDomain.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.RegisterDomain--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,10 +25,16 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * You cannot use an IAM policy to control domain access for this action. The name of the domain being registered is available as the resource of this action.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * You cannot use an IAM policy to control domain access for this action. The name of the domain being registered is available as the resource of this action. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.RegisterDomain     (     -- * Creating a Request@@ -44,49 +50,52 @@     , RegisterDomainResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'registerDomain' smart constructor. data RegisterDomain = RegisterDomain'-    { _rdDescription                            :: !(Maybe Text)-    , _rdName                                   :: !Text-    , _rdWorkflowExecutionRetentionPeriodInDays :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdDescription                            :: !(Maybe Text)+  , _rdName                                   :: !Text+  , _rdWorkflowExecutionRetentionPeriodInDays :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'rdDescription' - A text description of the domain. ----- * 'rdName' - Name of the domain to register. The name must be unique in the region that the domain is registered in. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- * 'rdName' - Name of the domain to register. The name must be unique in the region that the domain is registered in. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . ----- * 'rdWorkflowExecutionRetentionPeriodInDays' - The duration (in days) that records and histories of workflow executions on the domain should be kept by the service. After the retention period, the workflow execution is not available in the results of visibility calls. If you pass the value @NONE@ or @0@ (zero), then the workflow execution history will not be retained. As soon as the workflow execution completes, the execution record and its history are deleted. The maximum workflow execution retention period is 90 days. For more information about Amazon SWF service limits, see: <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dg-limits.html Amazon SWF Service Limits> in the /Amazon SWF Developer Guide/ .+-- * 'rdWorkflowExecutionRetentionPeriodInDays' - The duration (in days) that records and histories of workflow executions on the domain should be kept by the service. After the retention period, the workflow execution isn't available in the results of visibility calls. If you pass the value @NONE@ or @0@ (zero), then the workflow execution history isn't retained. As soon as the workflow execution completes, the execution record and its history are deleted. The maximum workflow execution retention period is 90 days. For more information about Amazon SWF service limits, see: <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dg-limits.html Amazon SWF Service Limits> in the /Amazon SWF Developer Guide/ . registerDomain     :: Text -- ^ 'rdName'     -> Text -- ^ 'rdWorkflowExecutionRetentionPeriodInDays'     -> RegisterDomain registerDomain pName_ pWorkflowExecutionRetentionPeriodInDays_ =-    RegisterDomain'-    { _rdDescription = Nothing-    , _rdName = pName_-    , _rdWorkflowExecutionRetentionPeriodInDays = pWorkflowExecutionRetentionPeriodInDays_-    }+  RegisterDomain'+  { _rdDescription = Nothing+  , _rdName = pName_+  , _rdWorkflowExecutionRetentionPeriodInDays =+      pWorkflowExecutionRetentionPeriodInDays_+  } + -- | A text description of the domain. rdDescription :: Lens' RegisterDomain (Maybe Text) rdDescription = lens _rdDescription (\ s a -> s{_rdDescription = a}); --- | Name of the domain to register. The name must be unique in the region that the domain is registered in. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- | Name of the domain to register. The name must be unique in the region that the domain is registered in. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . rdName :: Lens' RegisterDomain Text rdName = lens _rdName (\ s a -> s{_rdName = a}); --- | The duration (in days) that records and histories of workflow executions on the domain should be kept by the service. After the retention period, the workflow execution is not available in the results of visibility calls. If you pass the value @NONE@ or @0@ (zero), then the workflow execution history will not be retained. As soon as the workflow execution completes, the execution record and its history are deleted. The maximum workflow execution retention period is 90 days. For more information about Amazon SWF service limits, see: <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dg-limits.html Amazon SWF Service Limits> in the /Amazon SWF Developer Guide/ .+-- | The duration (in days) that records and histories of workflow executions on the domain should be kept by the service. After the retention period, the workflow execution isn't available in the results of visibility calls. If you pass the value @NONE@ or @0@ (zero), then the workflow execution history isn't retained. As soon as the workflow execution completes, the execution record and its history are deleted. The maximum workflow execution retention period is 90 days. For more information about Amazon SWF service limits, see: <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dg-limits.html Amazon SWF Service Limits> in the /Amazon SWF Developer Guide/ . rdWorkflowExecutionRetentionPeriodInDays :: Lens' RegisterDomain Text rdWorkflowExecutionRetentionPeriodInDays = lens _rdWorkflowExecutionRetentionPeriodInDays (\ s a -> s{_rdWorkflowExecutionRetentionPeriodInDays = a}); @@ -95,9 +104,9 @@         request = postJSON swf         response = receiveNull RegisterDomainResponse' -instance Hashable RegisterDomain+instance Hashable RegisterDomain where -instance NFData RegisterDomain+instance NFData RegisterDomain where  instance ToHeaders RegisterDomain where         toHeaders@@ -127,13 +136,15 @@  -- | /See:/ 'registerDomainResponse' smart constructor. data RegisterDomainResponse =-    RegisterDomainResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RegisterDomainResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterDomainResponse' with the minimum fields required to make a request. -- registerDomainResponse     :: RegisterDomainResponse registerDomainResponse = RegisterDomainResponse' -instance NFData RegisterDomainResponse++instance NFData RegisterDomainResponse where
gen/Network/AWS/SWF/RegisterWorkflowType.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.RegisterWorkflowType--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,16 +23,30 @@ -- -- The retention period for the workflow history is set by the 'RegisterDomain' action. ----- /Important:/ If the type already exists, then a @TypeAlreadyExists@ fault is returned. You cannot change the configuration settings of a workflow type once it is registered and it must be registered as a new version.__Access Control__+-- /Important:/ If the type already exists, then a @TypeAlreadyExists@ fault is returned. You cannot change the configuration settings of a workflow type once it is registered and it must be registered as a new version. --+-- __Access Control__+-- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @defaultTaskList.name@ : String constraint. The key is @swf:defaultTaskList.name@ .    * @name@ : String constraint. The key is @swf:name@ .    * @version@ : String constraint. The key is @swf:version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @defaultTaskList.name@ : String constraint. The key is @swf:defaultTaskList.name@ . --+--     * @name@ : String constraint. The key is @swf:name@ .+--+--     * @version@ : String constraint. The key is @swf:version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.RegisterWorkflowType     (     -- * Creating a Request@@ -55,90 +69,92 @@     , RegisterWorkflowTypeResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'registerWorkflowType' smart constructor. data RegisterWorkflowType = RegisterWorkflowType'-    { _rwtDefaultLambdaRole                   :: !(Maybe Text)-    , _rwtDefaultChildPolicy                  :: !(Maybe ChildPolicy)-    , _rwtDefaultTaskList                     :: !(Maybe TaskList)-    , _rwtDefaultTaskPriority                 :: !(Maybe Text)-    , _rwtDefaultExecutionStartToCloseTimeout :: !(Maybe Text)-    , _rwtDefaultTaskStartToCloseTimeout      :: !(Maybe Text)-    , _rwtDescription                         :: !(Maybe Text)-    , _rwtDomain                              :: !Text-    , _rwtName                                :: !Text-    , _rwtVersion                             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rwtDefaultLambdaRole                   :: !(Maybe Text)+  , _rwtDefaultChildPolicy                  :: !(Maybe ChildPolicy)+  , _rwtDefaultTaskList                     :: !(Maybe TaskList)+  , _rwtDefaultTaskPriority                 :: !(Maybe Text)+  , _rwtDefaultExecutionStartToCloseTimeout :: !(Maybe Text)+  , _rwtDefaultTaskStartToCloseTimeout      :: !(Maybe Text)+  , _rwtDescription                         :: !(Maybe Text)+  , _rwtDomain                              :: !Text+  , _rwtName                                :: !Text+  , _rwtVersion                             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterWorkflowType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rwtDefaultLambdaRole' - The ARN of the default IAM role to use when a workflow execution of this type invokes AWS Lambda functions. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ and @ContinueAsNewWorkflowExecution@ decision.+-- * 'rwtDefaultLambdaRole' - The default IAM role attached to this workflow type. ----- * 'rwtDefaultChildPolicy' - If set, specifies the default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.+-- * 'rwtDefaultChildPolicy' - If set, specifies the default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run. ----- * 'rwtDefaultTaskList' - If set, specifies the default task list to use for scheduling decision tasks for executions of this workflow type. This default is used only if a task list is not provided when starting the execution through the 'StartWorkflowExecution' action or @StartChildWorkflowExecution@ decision.+-- * 'rwtDefaultTaskList' - If set, specifies the default task list to use for scheduling decision tasks for executions of this workflow type. This default is used only if a task list isn't provided when starting the execution through the 'StartWorkflowExecution' Action or @StartChildWorkflowExecution@ 'Decision' . ----- * 'rwtDefaultTaskPriority' - The default task priority to assign to the workflow type. If not assigned, then "0" will be used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .+-- * 'rwtDefaultTaskPriority' - The default task priority to assign to the workflow type. If not assigned, then @0@ is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ . ----- * 'rwtDefaultExecutionStartToCloseTimeout' - If set, specifies the default maximum duration for executions of this workflow type. You can override this default when starting an execution through the 'StartWorkflowExecution' action or @StartChildWorkflowExecution@ decision. The duration is specified in seconds; an integer greater than or equal to 0. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for @defaultExecutionStartToCloseTimeout@ ; there is a one-year max limit on the time that a workflow execution can run. Exceeding this limit will always cause the workflow execution to time out.+-- * 'rwtDefaultExecutionStartToCloseTimeout' - If set, specifies the default maximum duration for executions of this workflow type. You can override this default when starting an execution through the 'StartWorkflowExecution' Action or @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds; an integer greater than or equal to 0. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for @defaultExecutionStartToCloseTimeout@ ; there is a one-year max limit on the time that a workflow execution can run. Exceeding this limit always causes the workflow execution to time out. ----- * 'rwtDefaultTaskStartToCloseTimeout' - If set, specifies the default maximum duration of decision tasks for this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- * 'rwtDefaultTaskStartToCloseTimeout' - If set, specifies the default maximum duration of decision tasks for this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -- -- * 'rwtDescription' - Textual description of the workflow type. -- -- * 'rwtDomain' - The name of the domain in which to register the workflow type. ----- * 'rwtName' - The name of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- * 'rwtName' - The name of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . ----- * 'rwtVersion' - The version of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- * 'rwtVersion' - The version of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . registerWorkflowType     :: Text -- ^ 'rwtDomain'     -> Text -- ^ 'rwtName'     -> Text -- ^ 'rwtVersion'     -> RegisterWorkflowType registerWorkflowType pDomain_ pName_ pVersion_ =-    RegisterWorkflowType'-    { _rwtDefaultLambdaRole = Nothing-    , _rwtDefaultChildPolicy = Nothing-    , _rwtDefaultTaskList = Nothing-    , _rwtDefaultTaskPriority = Nothing-    , _rwtDefaultExecutionStartToCloseTimeout = Nothing-    , _rwtDefaultTaskStartToCloseTimeout = Nothing-    , _rwtDescription = Nothing-    , _rwtDomain = pDomain_-    , _rwtName = pName_-    , _rwtVersion = pVersion_-    }+  RegisterWorkflowType'+  { _rwtDefaultLambdaRole = Nothing+  , _rwtDefaultChildPolicy = Nothing+  , _rwtDefaultTaskList = Nothing+  , _rwtDefaultTaskPriority = Nothing+  , _rwtDefaultExecutionStartToCloseTimeout = Nothing+  , _rwtDefaultTaskStartToCloseTimeout = Nothing+  , _rwtDescription = Nothing+  , _rwtDomain = pDomain_+  , _rwtName = pName_+  , _rwtVersion = pVersion_+  } --- | The ARN of the default IAM role to use when a workflow execution of this type invokes AWS Lambda functions. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ and @ContinueAsNewWorkflowExecution@ decision.++-- | The default IAM role attached to this workflow type. rwtDefaultLambdaRole :: Lens' RegisterWorkflowType (Maybe Text) rwtDefaultLambdaRole = lens _rwtDefaultLambdaRole (\ s a -> s{_rwtDefaultLambdaRole = a}); --- | If set, specifies the default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.+-- | If set, specifies the default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run. rwtDefaultChildPolicy :: Lens' RegisterWorkflowType (Maybe ChildPolicy) rwtDefaultChildPolicy = lens _rwtDefaultChildPolicy (\ s a -> s{_rwtDefaultChildPolicy = a}); --- | If set, specifies the default task list to use for scheduling decision tasks for executions of this workflow type. This default is used only if a task list is not provided when starting the execution through the 'StartWorkflowExecution' action or @StartChildWorkflowExecution@ decision.+-- | If set, specifies the default task list to use for scheduling decision tasks for executions of this workflow type. This default is used only if a task list isn't provided when starting the execution through the 'StartWorkflowExecution' Action or @StartChildWorkflowExecution@ 'Decision' . rwtDefaultTaskList :: Lens' RegisterWorkflowType (Maybe TaskList) rwtDefaultTaskList = lens _rwtDefaultTaskList (\ s a -> s{_rwtDefaultTaskList = a}); --- | The default task priority to assign to the workflow type. If not assigned, then "0" will be used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .+-- | The default task priority to assign to the workflow type. If not assigned, then @0@ is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ . rwtDefaultTaskPriority :: Lens' RegisterWorkflowType (Maybe Text) rwtDefaultTaskPriority = lens _rwtDefaultTaskPriority (\ s a -> s{_rwtDefaultTaskPriority = a}); --- | If set, specifies the default maximum duration for executions of this workflow type. You can override this default when starting an execution through the 'StartWorkflowExecution' action or @StartChildWorkflowExecution@ decision. The duration is specified in seconds; an integer greater than or equal to 0. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for @defaultExecutionStartToCloseTimeout@ ; there is a one-year max limit on the time that a workflow execution can run. Exceeding this limit will always cause the workflow execution to time out.+-- | If set, specifies the default maximum duration for executions of this workflow type. You can override this default when starting an execution through the 'StartWorkflowExecution' Action or @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds; an integer greater than or equal to 0. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for @defaultExecutionStartToCloseTimeout@ ; there is a one-year max limit on the time that a workflow execution can run. Exceeding this limit always causes the workflow execution to time out. rwtDefaultExecutionStartToCloseTimeout :: Lens' RegisterWorkflowType (Maybe Text) rwtDefaultExecutionStartToCloseTimeout = lens _rwtDefaultExecutionStartToCloseTimeout (\ s a -> s{_rwtDefaultExecutionStartToCloseTimeout = a}); --- | If set, specifies the default maximum duration of decision tasks for this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- | If set, specifies the default maximum duration of decision tasks for this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. rwtDefaultTaskStartToCloseTimeout :: Lens' RegisterWorkflowType (Maybe Text) rwtDefaultTaskStartToCloseTimeout = lens _rwtDefaultTaskStartToCloseTimeout (\ s a -> s{_rwtDefaultTaskStartToCloseTimeout = a}); @@ -150,11 +166,11 @@ rwtDomain :: Lens' RegisterWorkflowType Text rwtDomain = lens _rwtDomain (\ s a -> s{_rwtDomain = a}); --- | The name of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- | The name of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . rwtName :: Lens' RegisterWorkflowType Text rwtName = lens _rwtName (\ s a -> s{_rwtName = a}); --- | The version of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- | The version of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . rwtVersion :: Lens' RegisterWorkflowType Text rwtVersion = lens _rwtVersion (\ s a -> s{_rwtVersion = a}); @@ -164,9 +180,9 @@         request = postJSON swf         response = receiveNull RegisterWorkflowTypeResponse' -instance Hashable RegisterWorkflowType+instance Hashable RegisterWorkflowType where -instance NFData RegisterWorkflowType+instance NFData RegisterWorkflowType where  instance ToHeaders RegisterWorkflowType where         toHeaders@@ -204,13 +220,15 @@  -- | /See:/ 'registerWorkflowTypeResponse' smart constructor. data RegisterWorkflowTypeResponse =-    RegisterWorkflowTypeResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RegisterWorkflowTypeResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterWorkflowTypeResponse' with the minimum fields required to make a request. -- registerWorkflowTypeResponse     :: RegisterWorkflowTypeResponse registerWorkflowTypeResponse = RegisterWorkflowTypeResponse' -instance NFData RegisterWorkflowTypeResponse++instance NFData RegisterWorkflowTypeResponse where
gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.RequestCancelWorkflowExecution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,10 +25,16 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.RequestCancelWorkflowExecution     (     -- * Creating a Request@@ -44,20 +50,21 @@     , RequestCancelWorkflowExecutionResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'requestCancelWorkflowExecution' smart constructor. data RequestCancelWorkflowExecution = RequestCancelWorkflowExecution'-    { _rcweRunId      :: !(Maybe Text)-    , _rcweDomain     :: !Text-    , _rcweWorkflowId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rcweRunId      :: !(Maybe Text)+  , _rcweDomain     :: !Text+  , _rcweWorkflowId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RequestCancelWorkflowExecution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +79,10 @@     -> Text -- ^ 'rcweWorkflowId'     -> RequestCancelWorkflowExecution requestCancelWorkflowExecution pDomain_ pWorkflowId_ =-    RequestCancelWorkflowExecution'-    { _rcweRunId = Nothing-    , _rcweDomain = pDomain_-    , _rcweWorkflowId = pWorkflowId_-    }+  RequestCancelWorkflowExecution'+  {_rcweRunId = Nothing, _rcweDomain = pDomain_, _rcweWorkflowId = pWorkflowId_} + -- | The runId of the workflow execution to cancel. rcweRunId :: Lens' RequestCancelWorkflowExecution (Maybe Text) rcweRunId = lens _rcweRunId (\ s a -> s{_rcweRunId = a});@@ -99,8 +104,9 @@           = receiveNull RequestCancelWorkflowExecutionResponse'  instance Hashable RequestCancelWorkflowExecution+         where -instance NFData RequestCancelWorkflowExecution+instance NFData RequestCancelWorkflowExecution where  instance ToHeaders RequestCancelWorkflowExecution          where@@ -129,15 +135,17 @@  -- | /See:/ 'requestCancelWorkflowExecutionResponse' smart constructor. data RequestCancelWorkflowExecutionResponse =-    RequestCancelWorkflowExecutionResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RequestCancelWorkflowExecutionResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RequestCancelWorkflowExecutionResponse' with the minimum fields required to make a request. -- requestCancelWorkflowExecutionResponse     :: RequestCancelWorkflowExecutionResponse-requestCancelWorkflowExecutionResponse =-    RequestCancelWorkflowExecutionResponse'+requestCancelWorkflowExecutionResponse = RequestCancelWorkflowExecutionResponse' + instance NFData-         RequestCancelWorkflowExecutionResponse+           RequestCancelWorkflowExecutionResponse+         where
gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs view
@@ -12,27 +12,35 @@  -- | -- Module      : Network.AWS.SWF.RespondActivityTaskCanceled--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Used by workers to tell the service that the 'ActivityTask' identified by the @taskToken@ was successfully canceled. Additional @details@ can be optionally provided using the @details@ argument.+-- Used by workers to tell the service that the 'ActivityTask' identified by the @taskToken@ was successfully canceled. Additional @details@ can be provided using the @details@ argument. -- -- -- These @details@ (if provided) appear in the @ActivityTaskCanceled@ event added to the workflow history. ----- /Important:/ Only use this operation if the @canceled@ flag of a 'RecordActivityTaskHeartbeat' request returns @true@ and if the activity can be safely undone or abandoned.A task is considered open from the time that it is scheduled until it is closed. Therefore a task is reported as open while a worker is processing it. A task is closed after it has been specified in a call to 'RespondActivityTaskCompleted' , RespondActivityTaskCanceled, 'RespondActivityTaskFailed' , or the task has <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dg-basic.html#swf-dev-timeout-types timed out> .+-- /Important:/ Only use this operation if the @canceled@ flag of a 'RecordActivityTaskHeartbeat' request returns @true@ and if the activity can be safely undone or abandoned. --+-- A task is considered open from the time that it is scheduled until it is closed. Therefore a task is reported as open while a worker is processing it. A task is closed after it has been specified in a call to 'RespondActivityTaskCompleted' , RespondActivityTaskCanceled, 'RespondActivityTaskFailed' , or the task has <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dg-basic.html#swf-dev-timeout-types timed out> .+-- -- __Access Control__ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.RespondActivityTaskCanceled     (     -- * Creating a Request@@ -47,36 +55,35 @@     , RespondActivityTaskCanceledResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'respondActivityTaskCanceled' smart constructor. data RespondActivityTaskCanceled = RespondActivityTaskCanceled'-    { _rDetails   :: !(Maybe Text)-    , _rTaskToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rDetails   :: !(Maybe Text)+  , _rTaskToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RespondActivityTaskCanceled' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rDetails' - /Optional./ Information about the cancellation.+-- * 'rDetails' - Information about the cancellation. -- -- * 'rTaskToken' - The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. respondActivityTaskCanceled     :: Text -- ^ 'rTaskToken'     -> RespondActivityTaskCanceled respondActivityTaskCanceled pTaskToken_ =-    RespondActivityTaskCanceled'-    { _rDetails = Nothing-    , _rTaskToken = pTaskToken_-    }+  RespondActivityTaskCanceled' {_rDetails = Nothing, _rTaskToken = pTaskToken_} --- | /Optional./ Information about the cancellation.++-- | Information about the cancellation. rDetails :: Lens' RespondActivityTaskCanceled (Maybe Text) rDetails = lens _rDetails (\ s a -> s{_rDetails = a}); @@ -91,9 +98,9 @@         response           = receiveNull RespondActivityTaskCanceledResponse' -instance Hashable RespondActivityTaskCanceled+instance Hashable RespondActivityTaskCanceled where -instance NFData RespondActivityTaskCanceled+instance NFData RespondActivityTaskCanceled where  instance ToHeaders RespondActivityTaskCanceled where         toHeaders@@ -120,13 +127,16 @@  -- | /See:/ 'respondActivityTaskCanceledResponse' smart constructor. data RespondActivityTaskCanceledResponse =-    RespondActivityTaskCanceledResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RespondActivityTaskCanceledResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RespondActivityTaskCanceledResponse' with the minimum fields required to make a request. -- respondActivityTaskCanceledResponse     :: RespondActivityTaskCanceledResponse respondActivityTaskCanceledResponse = RespondActivityTaskCanceledResponse' + instance NFData RespondActivityTaskCanceledResponse+         where
gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs view
@@ -12,25 +12,33 @@  -- | -- Module      : Network.AWS.SWF.RespondActivityTaskCompleted--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Used by workers to tell the service that the 'ActivityTask' identified by the @taskToken@ completed successfully with a @result@ (if provided). The @result@ appears in the @ActivityTaskCompleted@ event in the workflow history. -- ----- /Important:/ If the requested task does not complete successfully, use 'RespondActivityTaskFailed' instead. If the worker finds that the task is canceled through the @canceled@ flag returned by 'RecordActivityTaskHeartbeat' , it should cancel the task, clean up and then call 'RespondActivityTaskCanceled' .A task is considered open from the time that it is scheduled until it is closed. Therefore a task is reported as open while a worker is processing it. A task is closed after it has been specified in a call to RespondActivityTaskCompleted, 'RespondActivityTaskCanceled' , 'RespondActivityTaskFailed' , or the task has <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dg-basic.html#swf-dev-timeout-types timed out> .+-- /Important:/ If the requested task doesn't complete successfully, use 'RespondActivityTaskFailed' instead. If the worker finds that the task is canceled through the @canceled@ flag returned by 'RecordActivityTaskHeartbeat' , it should cancel the task, clean up and then call 'RespondActivityTaskCanceled' . --+-- A task is considered open from the time that it is scheduled until it is closed. Therefore a task is reported as open while a worker is processing it. A task is closed after it has been specified in a call to RespondActivityTaskCompleted, 'RespondActivityTaskCanceled' , 'RespondActivityTaskFailed' , or the task has <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dg-basic.html#swf-dev-timeout-types timed out> .+-- -- __Access Control__ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.RespondActivityTaskCompleted     (     -- * Creating a Request@@ -45,19 +53,20 @@     , RespondActivityTaskCompletedResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'respondActivityTaskCompleted' smart constructor. data RespondActivityTaskCompleted = RespondActivityTaskCompleted'-    { _ratcResult    :: !(Maybe Text)-    , _ratcTaskToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ratcResult    :: !(Maybe Text)+  , _ratcTaskToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RespondActivityTaskCompleted' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,11 +78,10 @@     :: Text -- ^ 'ratcTaskToken'     -> RespondActivityTaskCompleted respondActivityTaskCompleted pTaskToken_ =-    RespondActivityTaskCompleted'-    { _ratcResult = Nothing-    , _ratcTaskToken = pTaskToken_-    }+  RespondActivityTaskCompleted'+  {_ratcResult = Nothing, _ratcTaskToken = pTaskToken_} + -- | The result of the activity task. It is a free form string that is implementation specific. ratcResult :: Lens' RespondActivityTaskCompleted (Maybe Text) ratcResult = lens _ratcResult (\ s a -> s{_ratcResult = a});@@ -90,9 +98,9 @@         response           = receiveNull RespondActivityTaskCompletedResponse' -instance Hashable RespondActivityTaskCompleted+instance Hashable RespondActivityTaskCompleted where -instance NFData RespondActivityTaskCompleted+instance NFData RespondActivityTaskCompleted where  instance ToHeaders RespondActivityTaskCompleted where         toHeaders@@ -119,13 +127,16 @@  -- | /See:/ 'respondActivityTaskCompletedResponse' smart constructor. data RespondActivityTaskCompletedResponse =-    RespondActivityTaskCompletedResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RespondActivityTaskCompletedResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RespondActivityTaskCompletedResponse' with the minimum fields required to make a request. -- respondActivityTaskCompletedResponse     :: RespondActivityTaskCompletedResponse respondActivityTaskCompletedResponse = RespondActivityTaskCompletedResponse' + instance NFData RespondActivityTaskCompletedResponse+         where
gen/Network/AWS/SWF/RespondActivityTaskFailed.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.RespondActivityTaskFailed--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -27,10 +27,16 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.RespondActivityTaskFailed     (     -- * Creating a Request@@ -46,44 +52,43 @@     , RespondActivityTaskFailedResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'respondActivityTaskFailed' smart constructor. data RespondActivityTaskFailed = RespondActivityTaskFailed'-    { _ratfReason    :: !(Maybe Text)-    , _ratfDetails   :: !(Maybe Text)-    , _ratfTaskToken :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ratfReason    :: !(Maybe Text)+  , _ratfDetails   :: !(Maybe Text)+  , _ratfTaskToken :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RespondActivityTaskFailed' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ratfReason' - Description of the error that may assist in diagnostics. ----- * 'ratfDetails' - /Optional./ Detailed information about the failure.+-- * 'ratfDetails' - Detailed information about the failure. -- -- * 'ratfTaskToken' - The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. respondActivityTaskFailed     :: Text -- ^ 'ratfTaskToken'     -> RespondActivityTaskFailed respondActivityTaskFailed pTaskToken_ =-    RespondActivityTaskFailed'-    { _ratfReason = Nothing-    , _ratfDetails = Nothing-    , _ratfTaskToken = pTaskToken_-    }+  RespondActivityTaskFailed'+  {_ratfReason = Nothing, _ratfDetails = Nothing, _ratfTaskToken = pTaskToken_} + -- | Description of the error that may assist in diagnostics. ratfReason :: Lens' RespondActivityTaskFailed (Maybe Text) ratfReason = lens _ratfReason (\ s a -> s{_ratfReason = a}); --- | /Optional./ Detailed information about the failure.+-- | Detailed information about the failure. ratfDetails :: Lens' RespondActivityTaskFailed (Maybe Text) ratfDetails = lens _ratfDetails (\ s a -> s{_ratfDetails = a}); @@ -98,9 +103,9 @@         response           = receiveNull RespondActivityTaskFailedResponse' -instance Hashable RespondActivityTaskFailed+instance Hashable RespondActivityTaskFailed where -instance NFData RespondActivityTaskFailed+instance NFData RespondActivityTaskFailed where  instance ToHeaders RespondActivityTaskFailed where         toHeaders@@ -128,13 +133,16 @@  -- | /See:/ 'respondActivityTaskFailedResponse' smart constructor. data RespondActivityTaskFailedResponse =-    RespondActivityTaskFailedResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RespondActivityTaskFailedResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RespondActivityTaskFailedResponse' with the minimum fields required to make a request. -- respondActivityTaskFailedResponse     :: RespondActivityTaskFailedResponse respondActivityTaskFailedResponse = RespondActivityTaskFailedResponse' + instance NFData RespondActivityTaskFailedResponse+         where
gen/Network/AWS/SWF/RespondDecisionTaskCompleted.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.RespondDecisionTaskCompleted--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,7 +25,7 @@ -- -- __Access Control__ ----- If an IAM policy grants permission to use @RespondDecisionTaskCompleted@ , it can express permissions for the list of decisions in the @decisions@ parameter. Each of the decisions has one or more parameters, much like a regular API call. To allow for policies to be as readable as possible, you can express permissions on decisions as if they were actual API calls, including applying conditions to some parameters. For more information, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+-- If an IAM policy grants permission to use @RespondDecisionTaskCompleted@ , it can express permissions for the list of decisions in the @decisions@ parameter. Each of the decisions has one or more parameters, much like a regular API call. To allow for policies to be as readable as possible, you can express permissions on decisions as if they were actual API calls, including applying conditions to some parameters. For more information, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ . -- module Network.AWS.SWF.RespondDecisionTaskCompleted     (@@ -42,25 +42,30 @@     , RespondDecisionTaskCompletedResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product --- | /See:/ 'respondDecisionTaskCompleted' smart constructor.+-- | Input data for a TaskCompleted response to a decision task.+--+--+--+-- /See:/ 'respondDecisionTaskCompleted' smart constructor. data RespondDecisionTaskCompleted = RespondDecisionTaskCompleted'-    { _rdtcDecisions        :: !(Maybe [Decision])-    , _rdtcExecutionContext :: !(Maybe Text)-    , _rdtcTaskToken        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdtcDecisions        :: !(Maybe [Decision])+  , _rdtcExecutionContext :: !(Maybe Text)+  , _rdtcTaskToken        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RespondDecisionTaskCompleted' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdtcDecisions' - The list of decisions (possibly empty) made by the decider while processing this decision task. See the docs for the decision structure for details.+-- * 'rdtcDecisions' - The list of decisions (possibly empty) made by the decider while processing this decision task. See the docs for the 'Decision' structure for details. -- -- * 'rdtcExecutionContext' - User defined context to add to workflow execution. --@@ -69,13 +74,14 @@     :: Text -- ^ 'rdtcTaskToken'     -> RespondDecisionTaskCompleted respondDecisionTaskCompleted pTaskToken_ =-    RespondDecisionTaskCompleted'-    { _rdtcDecisions = Nothing-    , _rdtcExecutionContext = Nothing-    , _rdtcTaskToken = pTaskToken_-    }+  RespondDecisionTaskCompleted'+  { _rdtcDecisions = Nothing+  , _rdtcExecutionContext = Nothing+  , _rdtcTaskToken = pTaskToken_+  } --- | The list of decisions (possibly empty) made by the decider while processing this decision task. See the docs for the decision structure for details.++-- | The list of decisions (possibly empty) made by the decider while processing this decision task. See the docs for the 'Decision' structure for details. rdtcDecisions :: Lens' RespondDecisionTaskCompleted [Decision] rdtcDecisions = lens _rdtcDecisions (\ s a -> s{_rdtcDecisions = a}) . _Default . _Coerce; @@ -95,9 +101,9 @@         response           = receiveNull RespondDecisionTaskCompletedResponse' -instance Hashable RespondDecisionTaskCompleted+instance Hashable RespondDecisionTaskCompleted where -instance NFData RespondDecisionTaskCompleted+instance NFData RespondDecisionTaskCompleted where  instance ToHeaders RespondDecisionTaskCompleted where         toHeaders@@ -125,13 +131,16 @@  -- | /See:/ 'respondDecisionTaskCompletedResponse' smart constructor. data RespondDecisionTaskCompletedResponse =-    RespondDecisionTaskCompletedResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RespondDecisionTaskCompletedResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RespondDecisionTaskCompletedResponse' with the minimum fields required to make a request. -- respondDecisionTaskCompletedResponse     :: RespondDecisionTaskCompletedResponse respondDecisionTaskCompletedResponse = RespondDecisionTaskCompletedResponse' + instance NFData RespondDecisionTaskCompletedResponse+         where
gen/Network/AWS/SWF/SignalWorkflowExecution.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.SignalWorkflowExecution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,10 +25,16 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.SignalWorkflowExecution     (     -- * Creating a Request@@ -46,22 +52,23 @@     , SignalWorkflowExecutionResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'signalWorkflowExecution' smart constructor. data SignalWorkflowExecution = SignalWorkflowExecution'-    { _sweInput      :: !(Maybe Text)-    , _sweRunId      :: !(Maybe Text)-    , _sweDomain     :: !Text-    , _sweWorkflowId :: !Text-    , _sweSignalName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sweInput      :: !(Maybe Text)+  , _sweRunId      :: !(Maybe Text)+  , _sweDomain     :: !Text+  , _sweWorkflowId :: !Text+  , _sweSignalName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SignalWorkflowExecution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,14 +88,15 @@     -> Text -- ^ 'sweSignalName'     -> SignalWorkflowExecution signalWorkflowExecution pDomain_ pWorkflowId_ pSignalName_ =-    SignalWorkflowExecution'-    { _sweInput = Nothing-    , _sweRunId = Nothing-    , _sweDomain = pDomain_-    , _sweWorkflowId = pWorkflowId_-    , _sweSignalName = pSignalName_-    }+  SignalWorkflowExecution'+  { _sweInput = Nothing+  , _sweRunId = Nothing+  , _sweDomain = pDomain_+  , _sweWorkflowId = pWorkflowId_+  , _sweSignalName = pSignalName_+  } + -- | Data to attach to the @WorkflowExecutionSignaled@ event in the target workflow execution's history. sweInput :: Lens' SignalWorkflowExecution (Maybe Text) sweInput = lens _sweInput (\ s a -> s{_sweInput = a});@@ -116,9 +124,9 @@         response           = receiveNull SignalWorkflowExecutionResponse' -instance Hashable SignalWorkflowExecution+instance Hashable SignalWorkflowExecution where -instance NFData SignalWorkflowExecution+instance NFData SignalWorkflowExecution where  instance ToHeaders SignalWorkflowExecution where         toHeaders@@ -148,13 +156,15 @@  -- | /See:/ 'signalWorkflowExecutionResponse' smart constructor. data SignalWorkflowExecutionResponse =-    SignalWorkflowExecutionResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  SignalWorkflowExecutionResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SignalWorkflowExecutionResponse' with the minimum fields required to make a request. -- signalWorkflowExecutionResponse     :: SignalWorkflowExecutionResponse signalWorkflowExecutionResponse = SignalWorkflowExecutionResponse' -instance NFData SignalWorkflowExecutionResponse++instance NFData SignalWorkflowExecutionResponse where
gen/Network/AWS/SWF/StartWorkflowExecution.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.SWF.StartWorkflowExecution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -27,12 +27,34 @@ -- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @tagList.member.0@ : The key is @swf:tagList.member.0@ .    * @tagList.member.1@ : The key is @swf:tagList.member.1@ .    * @tagList.member.2@ : The key is @swf:tagList.member.2@ .    * @tagList.member.3@ : The key is @swf:tagList.member.3@ .    * @tagList.member.4@ : The key is @swf:tagList.member.4@ .    * @taskList@ : String constraint. The key is @swf:taskList.name@ .    * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ .    * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ .+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. --+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * @tagList.member.0@ : The key is @swf:tagList.member.0@ . --+--     * @tagList.member.1@ : The key is @swf:tagList.member.1@ .+--+--     * @tagList.member.2@ : The key is @swf:tagList.member.2@ .+--+--     * @tagList.member.3@ : The key is @swf:tagList.member.3@ .+--+--     * @tagList.member.4@ : The key is @swf:tagList.member.4@ .+--+--     * @taskList@ : String constraint. The key is @swf:taskList.name@ .+--+--     * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ .+--+--     * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.StartWorkflowExecution     (     -- * Creating a Request@@ -59,51 +81,52 @@     , swersResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'startWorkflowExecution' smart constructor. data StartWorkflowExecution = StartWorkflowExecution'-    { _sTagList                      :: !(Maybe [Text])-    , _sTaskStartToCloseTimeout      :: !(Maybe Text)-    , _sLambdaRole                   :: !(Maybe Text)-    , _sInput                        :: !(Maybe Text)-    , _sExecutionStartToCloseTimeout :: !(Maybe Text)-    , _sTaskList                     :: !(Maybe TaskList)-    , _sTaskPriority                 :: !(Maybe Text)-    , _sChildPolicy                  :: !(Maybe ChildPolicy)-    , _sDomain                       :: !Text-    , _sWorkflowId                   :: !Text-    , _sWorkflowType                 :: !WorkflowType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sTagList                      :: !(Maybe [Text])+  , _sTaskStartToCloseTimeout      :: !(Maybe Text)+  , _sLambdaRole                   :: !(Maybe Text)+  , _sInput                        :: !(Maybe Text)+  , _sExecutionStartToCloseTimeout :: !(Maybe Text)+  , _sTaskList                     :: !(Maybe TaskList)+  , _sTaskPriority                 :: !(Maybe Text)+  , _sChildPolicy                  :: !(Maybe ChildPolicy)+  , _sDomain                       :: !Text+  , _sWorkflowId                   :: !Text+  , _sWorkflowType                 :: !WorkflowType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartWorkflowExecution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'sTagList' - The list of tags to associate with the workflow execution. You can specify a maximum of 5 tags. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' . ----- * 'sTaskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- * 'sTaskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. ----- * 'sLambdaRole' - The ARN of an IAM role that authorizes Amazon SWF to invoke AWS Lambda functions.+-- * 'sLambdaRole' - The IAM role to attach to this workflow execution. -- -- * 'sInput' - The input for the workflow execution. This is a free form string which should be meaningful to the workflow you are starting. This @input@ is made available to the new workflow execution in the @WorkflowExecutionStarted@ history event. ----- * 'sExecutionStartToCloseTimeout' - The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to 0. Exceeding this limit will cause the workflow execution to time out. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for this timeout; there is a one-year max limit on the time that a workflow execution can run.+-- * 'sExecutionStartToCloseTimeout' - The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to @0@ . Exceeding this limit causes the workflow execution to time out. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for this timeout; there is a one-year max limit on the time that a workflow execution can run. ----- * 'sTaskList' - The task list to use for the decision tasks generated for this workflow execution. This overrides the @defaultTaskList@ specified when registering the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- * 'sTaskList' - The task list to use for the decision tasks generated for this workflow execution. This overrides the @defaultTaskList@ specified when registering the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . ----- * 'sTaskPriority' - The task priority to use for this workflow execution. This will override any default priority that was assigned when the workflow type was registered. If not set, then the default task priority for the workflow type will be used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .+-- * 'sTaskPriority' - The task priority to use for this workflow execution. This overrides any default priority that was assigned when the workflow type was registered. If not set, then the default task priority for the workflow type is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ . ----- * 'sChildPolicy' - If set, specifies the policy to use for the child workflow executions of this workflow execution if it is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.+-- * 'sChildPolicy' - If set, specifies the policy to use for the child workflow executions of this workflow execution if it is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run. -- -- * 'sDomain' - The name of the domain in which the workflow execution is created. ----- * 'sWorkflowId' - The user defined identifier associated with the workflow execution. You can use this to associate a custom identifier with the workflow execution. You may specify the same identifier if a workflow execution is logically a /restart/ of a previous execution. You cannot have two open workflow executions with the same @workflowId@ at the same time. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- * 'sWorkflowId' - The user defined identifier associated with the workflow execution. You can use this to associate a custom identifier with the workflow execution. You may specify the same identifier if a workflow execution is logically a /restart/ of a previous execution. You cannot have two open workflow executions with the same @workflowId@ at the same time. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -- -- * 'sWorkflowType' - The type of the workflow to start. startWorkflowExecution@@ -112,29 +135,30 @@     -> WorkflowType -- ^ 'sWorkflowType'     -> StartWorkflowExecution startWorkflowExecution pDomain_ pWorkflowId_ pWorkflowType_ =-    StartWorkflowExecution'-    { _sTagList = Nothing-    , _sTaskStartToCloseTimeout = Nothing-    , _sLambdaRole = Nothing-    , _sInput = Nothing-    , _sExecutionStartToCloseTimeout = Nothing-    , _sTaskList = Nothing-    , _sTaskPriority = Nothing-    , _sChildPolicy = Nothing-    , _sDomain = pDomain_-    , _sWorkflowId = pWorkflowId_-    , _sWorkflowType = pWorkflowType_-    }+  StartWorkflowExecution'+  { _sTagList = Nothing+  , _sTaskStartToCloseTimeout = Nothing+  , _sLambdaRole = Nothing+  , _sInput = Nothing+  , _sExecutionStartToCloseTimeout = Nothing+  , _sTaskList = Nothing+  , _sTaskPriority = Nothing+  , _sChildPolicy = Nothing+  , _sDomain = pDomain_+  , _sWorkflowId = pWorkflowId_+  , _sWorkflowType = pWorkflowType_+  } + -- | The list of tags to associate with the workflow execution. You can specify a maximum of 5 tags. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' . sTagList :: Lens' StartWorkflowExecution [Text] sTagList = lens _sTagList (\ s a -> s{_sTagList = a}) . _Default . _Coerce; --- | Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.+-- | Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. sTaskStartToCloseTimeout :: Lens' StartWorkflowExecution (Maybe Text) sTaskStartToCloseTimeout = lens _sTaskStartToCloseTimeout (\ s a -> s{_sTaskStartToCloseTimeout = a}); --- | The ARN of an IAM role that authorizes Amazon SWF to invoke AWS Lambda functions.+-- | The IAM role to attach to this workflow execution. sLambdaRole :: Lens' StartWorkflowExecution (Maybe Text) sLambdaRole = lens _sLambdaRole (\ s a -> s{_sLambdaRole = a}); @@ -142,19 +166,19 @@ sInput :: Lens' StartWorkflowExecution (Maybe Text) sInput = lens _sInput (\ s a -> s{_sInput = a}); --- | The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to 0. Exceeding this limit will cause the workflow execution to time out. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for this timeout; there is a one-year max limit on the time that a workflow execution can run.+-- | The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to @0@ . Exceeding this limit causes the workflow execution to time out. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for this timeout; there is a one-year max limit on the time that a workflow execution can run. sExecutionStartToCloseTimeout :: Lens' StartWorkflowExecution (Maybe Text) sExecutionStartToCloseTimeout = lens _sExecutionStartToCloseTimeout (\ s a -> s{_sExecutionStartToCloseTimeout = a}); --- | The task list to use for the decision tasks generated for this workflow execution. This overrides the @defaultTaskList@ specified when registering the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- | The task list to use for the decision tasks generated for this workflow execution. This overrides the @defaultTaskList@ specified when registering the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . sTaskList :: Lens' StartWorkflowExecution (Maybe TaskList) sTaskList = lens _sTaskList (\ s a -> s{_sTaskList = a}); --- | The task priority to use for this workflow execution. This will override any default priority that was assigned when the workflow type was registered. If not set, then the default task priority for the workflow type will be used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .+-- | The task priority to use for this workflow execution. This overrides any default priority that was assigned when the workflow type was registered. If not set, then the default task priority for the workflow type is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ . sTaskPriority :: Lens' StartWorkflowExecution (Maybe Text) sTaskPriority = lens _sTaskPriority (\ s a -> s{_sTaskPriority = a}); --- | If set, specifies the policy to use for the child workflow executions of this workflow execution if it is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.+-- | If set, specifies the policy to use for the child workflow executions of this workflow execution if it is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run. sChildPolicy :: Lens' StartWorkflowExecution (Maybe ChildPolicy) sChildPolicy = lens _sChildPolicy (\ s a -> s{_sChildPolicy = a}); @@ -162,7 +186,7 @@ sDomain :: Lens' StartWorkflowExecution Text sDomain = lens _sDomain (\ s a -> s{_sDomain = a}); --- | The user defined identifier associated with the workflow execution. You can use this to associate a custom identifier with the workflow execution. You may specify the same identifier if a workflow execution is logically a /restart/ of a previous execution. You cannot have two open workflow executions with the same @workflowId@ at the same time. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.+-- | The user defined identifier associated with the workflow execution. You can use this to associate a custom identifier with the workflow execution. You may specify the same identifier if a workflow execution is logically a /restart/ of a previous execution. You cannot have two open workflow executions with the same @workflowId@ at the same time. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . sWorkflowId :: Lens' StartWorkflowExecution Text sWorkflowId = lens _sWorkflowId (\ s a -> s{_sWorkflowId = a}); @@ -180,9 +204,9 @@                  StartWorkflowExecutionResponse' <$>                    (x .?> "runId") <*> (pure (fromEnum s))) -instance Hashable StartWorkflowExecution+instance Hashable StartWorkflowExecution where -instance NFData StartWorkflowExecution+instance NFData StartWorkflowExecution where  instance ToHeaders StartWorkflowExecution where         toHeaders@@ -224,10 +248,11 @@ -- -- /See:/ 'startWorkflowExecutionResponse' smart constructor. data StartWorkflowExecutionResponse = StartWorkflowExecutionResponse'-    { _swersRunId          :: !(Maybe Text)-    , _swersResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _swersRunId          :: !(Maybe Text)+  , _swersResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartWorkflowExecutionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -239,11 +264,10 @@     :: Int -- ^ 'swersResponseStatus'     -> StartWorkflowExecutionResponse startWorkflowExecutionResponse pResponseStatus_ =-    StartWorkflowExecutionResponse'-    { _swersRunId = Nothing-    , _swersResponseStatus = pResponseStatus_-    }+  StartWorkflowExecutionResponse'+  {_swersRunId = Nothing, _swersResponseStatus = pResponseStatus_} + -- | The @runId@ of a workflow execution. This ID is generated by the service and can be used to uniquely identify the workflow execution within a domain. swersRunId :: Lens' StartWorkflowExecutionResponse (Maybe Text) swersRunId = lens _swersRunId (\ s a -> s{_swersRunId = a});@@ -252,4 +276,4 @@ swersResponseStatus :: Lens' StartWorkflowExecutionResponse Int swersResponseStatus = lens _swersResponseStatus (\ s a -> s{_swersResponseStatus = a}); -instance NFData StartWorkflowExecutionResponse+instance NFData StartWorkflowExecutionResponse where
gen/Network/AWS/SWF/TerminateWorkflowExecution.hs view
@@ -12,23 +12,31 @@  -- | -- Module      : Network.AWS.SWF.TerminateWorkflowExecution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Records a @WorkflowExecutionTerminated@ event and forces closure of the workflow execution identified by the given domain, runId, and workflowId. The child policy, registered with the workflow type or specified when starting this execution, is applied to any open child workflow executions of this workflow execution. -- ----- /Important:/ If the identified workflow execution was in progress, it is terminated immediately.__Access Control__+-- /Important:/ If the identified workflow execution was in progress, it is terminated immediately. --+-- __Access Control__+-- -- You can use IAM policies to control this action's access to Amazon SWF resources as follows: -----     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains. ----- If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .+--     * Use an @Action@ element to allow or deny permission to call this action. --+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+-- module Network.AWS.SWF.TerminateWorkflowExecution     (     -- * Creating a Request@@ -47,34 +55,35 @@     , TerminateWorkflowExecutionResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.SWF.Types-import           Network.AWS.SWF.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SWF.Types+import Network.AWS.SWF.Types.Product  -- | /See:/ 'terminateWorkflowExecution' smart constructor. data TerminateWorkflowExecution = TerminateWorkflowExecution'-    { _tweReason      :: !(Maybe Text)-    , _tweRunId       :: !(Maybe Text)-    , _tweChildPolicy :: !(Maybe ChildPolicy)-    , _tweDetails     :: !(Maybe Text)-    , _tweDomain      :: !Text-    , _tweWorkflowId  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _tweReason      :: !(Maybe Text)+  , _tweRunId       :: !(Maybe Text)+  , _tweChildPolicy :: !(Maybe ChildPolicy)+  , _tweDetails     :: !(Maybe Text)+  , _tweDomain      :: !Text+  , _tweWorkflowId  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TerminateWorkflowExecution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tweReason' - /Optional./ A descriptive reason for terminating the workflow execution.+-- * 'tweReason' - A descriptive reason for terminating the workflow execution. -- -- * 'tweRunId' - The runId of the workflow execution to terminate. ----- * 'tweChildPolicy' - If set, specifies the policy to use for the child workflow executions of the workflow execution being terminated. This policy overrides the child policy specified for the workflow execution at registration time or when starting the execution. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.+-- * 'tweChildPolicy' - If set, specifies the policy to use for the child workflow executions of the workflow execution being terminated. This policy overrides the child policy specified for the workflow execution at registration time or when starting the execution. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run. ----- * 'tweDetails' - /Optional./ Details for terminating the workflow execution.+-- * 'tweDetails' - Details for terminating the workflow execution. -- -- * 'tweDomain' - The domain of the workflow execution to terminate. --@@ -84,16 +93,17 @@     -> Text -- ^ 'tweWorkflowId'     -> TerminateWorkflowExecution terminateWorkflowExecution pDomain_ pWorkflowId_ =-    TerminateWorkflowExecution'-    { _tweReason = Nothing-    , _tweRunId = Nothing-    , _tweChildPolicy = Nothing-    , _tweDetails = Nothing-    , _tweDomain = pDomain_-    , _tweWorkflowId = pWorkflowId_-    }+  TerminateWorkflowExecution'+  { _tweReason = Nothing+  , _tweRunId = Nothing+  , _tweChildPolicy = Nothing+  , _tweDetails = Nothing+  , _tweDomain = pDomain_+  , _tweWorkflowId = pWorkflowId_+  } --- | /Optional./ A descriptive reason for terminating the workflow execution.++-- | A descriptive reason for terminating the workflow execution. tweReason :: Lens' TerminateWorkflowExecution (Maybe Text) tweReason = lens _tweReason (\ s a -> s{_tweReason = a}); @@ -101,11 +111,11 @@ tweRunId :: Lens' TerminateWorkflowExecution (Maybe Text) tweRunId = lens _tweRunId (\ s a -> s{_tweRunId = a}); --- | If set, specifies the policy to use for the child workflow executions of the workflow execution being terminated. This policy overrides the child policy specified for the workflow execution at registration time or when starting the execution. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.+-- | If set, specifies the policy to use for the child workflow executions of the workflow execution being terminated. This policy overrides the child policy specified for the workflow execution at registration time or when starting the execution. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run. tweChildPolicy :: Lens' TerminateWorkflowExecution (Maybe ChildPolicy) tweChildPolicy = lens _tweChildPolicy (\ s a -> s{_tweChildPolicy = a}); --- | /Optional./ Details for terminating the workflow execution.+-- | Details for terminating the workflow execution. tweDetails :: Lens' TerminateWorkflowExecution (Maybe Text) tweDetails = lens _tweDetails (\ s a -> s{_tweDetails = a}); @@ -124,9 +134,9 @@         response           = receiveNull TerminateWorkflowExecutionResponse' -instance Hashable TerminateWorkflowExecution+instance Hashable TerminateWorkflowExecution where -instance NFData TerminateWorkflowExecution+instance NFData TerminateWorkflowExecution where  instance ToHeaders TerminateWorkflowExecution where         toHeaders@@ -157,13 +167,16 @@  -- | /See:/ 'terminateWorkflowExecutionResponse' smart constructor. data TerminateWorkflowExecutionResponse =-    TerminateWorkflowExecutionResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  TerminateWorkflowExecutionResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TerminateWorkflowExecutionResponse' with the minimum fields required to make a request. -- terminateWorkflowExecutionResponse     :: TerminateWorkflowExecutionResponse terminateWorkflowExecutionResponse = TerminateWorkflowExecutionResponse' + instance NFData TerminateWorkflowExecutionResponse+         where
gen/Network/AWS/SWF/Types.hs view
@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.SWF.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -463,6 +463,7 @@     -- * LambdaFunctionScheduledEventAttributes     , LambdaFunctionScheduledEventAttributes     , lambdaFunctionScheduledEventAttributes+    , lfseaControl     , lfseaInput     , lfseaStartToCloseTimeout     , lfseaId@@ -569,6 +570,7 @@     -- * ScheduleLambdaFunctionDecisionAttributes     , ScheduleLambdaFunctionDecisionAttributes     , scheduleLambdaFunctionDecisionAttributes+    , slfdaControl     , slfdaInput     , slfdaStartToCloseTimeout     , slfdaId@@ -870,38 +872,40 @@     , wtiCreationDate     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Sign.V4-import           Network.AWS.SWF.Types.Product-import           Network.AWS.SWF.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4+import Network.AWS.SWF.Types.Product+import Network.AWS.SWF.Types.Sum  -- | API version @2012-01-25@ of the Amazon Simple Workflow Service SDK configuration. swf :: Service swf =-    Service-    { _svcAbbrev = "SWF"-    , _svcSigner = v4-    , _svcPrefix = "swf"-    , _svcVersion = "2012-01-25"-    , _svcEndpoint = defaultEndpoint swf-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseJSONError "SWF"-    , _svcRetry = retry-    }+  Service+  { _svcAbbrev = "SWF"+  , _svcSigner = v4+  , _svcPrefix = "swf"+  , _svcVersion = "2012-01-25"+  , _svcEndpoint = defaultEndpoint swf+  , _svcTimeout = Just 70+  , _svcCheck = statusSuccess+  , _svcError = parseJSONError "SWF"+  , _svcRetry = retry+  }   where     retry =-        Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -910,56 +914,70 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing --- | Returned if the specified domain already exists. You will get this fault even if the existing domain is in deprecated status.++-- | Returned if the specified domain already exists. You get this fault even if the existing domain is in deprecated status. -- -- _DomainAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_DomainAlreadyExistsFault = _ServiceError . hasCode "DomainAlreadyExistsFault"+_DomainAlreadyExistsFault = _MatchServiceError swf "DomainAlreadyExistsFault" + -- | Returned by any operation if a system imposed limitation has been reached. To address this fault you should either clean up unused resources or increase the limit by contacting AWS. -- -- _LimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_LimitExceededFault = _ServiceError . hasCode "LimitExceededFault"+_LimitExceededFault = _MatchServiceError swf "LimitExceededFault" + -- | Returned by 'StartWorkflowExecution' when an open execution with the same workflowId is already running in the specified domain. -- -- _WorkflowExecutionAlreadyStartedFault :: AsError a => Getting (First ServiceError) a ServiceError _WorkflowExecutionAlreadyStartedFault =-    _ServiceError . hasCode "WorkflowExecutionAlreadyStartedFault"+  _MatchServiceError swf "WorkflowExecutionAlreadyStartedFault" --- | Returned when the caller does not have sufficient permissions to invoke the action.++-- | Returned when the caller doesn't have sufficient permissions to invoke the action. -- -- _OperationNotPermittedFault :: AsError a => Getting (First ServiceError) a ServiceError _OperationNotPermittedFault =-    _ServiceError . hasCode "OperationNotPermittedFault"+  _MatchServiceError swf "OperationNotPermittedFault" + -- | Returned when the named resource cannot be found with in the scope of this operation (region or domain). This could happen if the named resource was never created or is no longer available for this operation. -- -- _UnknownResourceFault :: AsError a => Getting (First ServiceError) a ServiceError-_UnknownResourceFault = _ServiceError . hasCode "UnknownResourceFault"+_UnknownResourceFault = _MatchServiceError swf "UnknownResourceFault" --- | Prism for DefaultUndefinedFault' errors.++-- | The @StartWorkflowExecution@ API action was called without the required parameters set.+--+--+-- Some workflow execution parameters, such as the decision @taskList@ , must be set to start the execution. However, these parameters might have been set as defaults when the workflow type was registered. In this case, you can omit these parameters from the @StartWorkflowExecution@ call and Amazon SWF uses the values defined in the workflow type.+-- _DefaultUndefinedFault :: AsError a => Getting (First ServiceError) a ServiceError-_DefaultUndefinedFault = _ServiceError . hasCode "DefaultUndefinedFault"+_DefaultUndefinedFault = _MatchServiceError swf "DefaultUndefinedFault" + -- | Returned when the specified activity or workflow type was already deprecated. -- -- _TypeDeprecatedFault :: AsError a => Getting (First ServiceError) a ServiceError-_TypeDeprecatedFault = _ServiceError . hasCode "TypeDeprecatedFault"+_TypeDeprecatedFault = _MatchServiceError swf "TypeDeprecatedFault" --- | Returned if the type already exists in the specified domain. You will get this fault even if the existing type is in deprecated status. You can specify another version if the intent is to create a new distinct version of the type.++-- | Returned if the type already exists in the specified domain. You get this fault even if the existing type is in deprecated status. You can specify another version if the intent is to create a new distinct version of the type. -- -- _TypeAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_TypeAlreadyExistsFault = _ServiceError . hasCode "TypeAlreadyExistsFault"+_TypeAlreadyExistsFault = _MatchServiceError swf "TypeAlreadyExistsFault" + -- | Returned when the specified domain has been deprecated. -- -- _DomainDeprecatedFault :: AsError a => Getting (First ServiceError) a ServiceError-_DomainDeprecatedFault = _ServiceError . hasCode "DomainDeprecatedFault"+_DomainDeprecatedFault = _MatchServiceError swf "DomainDeprecatedFault"+
gen/Network/AWS/SWF/Types/Product.hs view
@@ -9,6650 +9,7202 @@  -- | -- Module      : Network.AWS.SWF.Types.Product--- Copyright   : (c) 2013-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.SWF.Types.Product where--import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.SWF.Types.Sum---- | Provides details of the @ActivityTaskCancelRequested@ event.------------ /See:/ 'activityTaskCancelRequestedEventAttributes' smart constructor.-data ActivityTaskCancelRequestedEventAttributes = ActivityTaskCancelRequestedEventAttributes'-    { _atcreaDecisionTaskCompletedEventId :: !Integer-    , _atcreaActivityId                   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityTaskCancelRequestedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atcreaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'atcreaActivityId' - The unique ID of the task.-activityTaskCancelRequestedEventAttributes-    :: Integer -- ^ 'atcreaDecisionTaskCompletedEventId'-    -> Text -- ^ 'atcreaActivityId'-    -> ActivityTaskCancelRequestedEventAttributes-activityTaskCancelRequestedEventAttributes pDecisionTaskCompletedEventId_ pActivityId_ =-    ActivityTaskCancelRequestedEventAttributes'-    { _atcreaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    , _atcreaActivityId = pActivityId_-    }---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-atcreaDecisionTaskCompletedEventId :: Lens' ActivityTaskCancelRequestedEventAttributes Integer-atcreaDecisionTaskCompletedEventId = lens _atcreaDecisionTaskCompletedEventId (\ s a -> s{_atcreaDecisionTaskCompletedEventId = a});---- | The unique ID of the task.-atcreaActivityId :: Lens' ActivityTaskCancelRequestedEventAttributes Text-atcreaActivityId = lens _atcreaActivityId (\ s a -> s{_atcreaActivityId = a});--instance FromJSON-         ActivityTaskCancelRequestedEventAttributes where-        parseJSON-          = withObject-              "ActivityTaskCancelRequestedEventAttributes"-              (\ x ->-                 ActivityTaskCancelRequestedEventAttributes' <$>-                   (x .: "decisionTaskCompletedEventId") <*>-                     (x .: "activityId"))--instance Hashable-         ActivityTaskCancelRequestedEventAttributes--instance NFData-         ActivityTaskCancelRequestedEventAttributes---- | Provides details of the @ActivityTaskCanceled@ event.------------ /See:/ 'activityTaskCanceledEventAttributes' smart constructor.-data ActivityTaskCanceledEventAttributes = ActivityTaskCanceledEventAttributes'-    { _aLatestCancelRequestedEventId :: !(Maybe Integer)-    , _aDetails                      :: !(Maybe Text)-    , _aScheduledEventId             :: !Integer-    , _aStartedEventId               :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityTaskCanceledEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aLatestCancelRequestedEventId' - If set, contains the ID of the last @ActivityTaskCancelRequested@ event recorded for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'aDetails' - Details of the cancellation (if any).------ * 'aScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'aStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-activityTaskCanceledEventAttributes-    :: Integer -- ^ 'aScheduledEventId'-    -> Integer -- ^ 'aStartedEventId'-    -> ActivityTaskCanceledEventAttributes-activityTaskCanceledEventAttributes pScheduledEventId_ pStartedEventId_ =-    ActivityTaskCanceledEventAttributes'-    { _aLatestCancelRequestedEventId = Nothing-    , _aDetails = Nothing-    , _aScheduledEventId = pScheduledEventId_-    , _aStartedEventId = pStartedEventId_-    }---- | If set, contains the ID of the last @ActivityTaskCancelRequested@ event recorded for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-aLatestCancelRequestedEventId :: Lens' ActivityTaskCanceledEventAttributes (Maybe Integer)-aLatestCancelRequestedEventId = lens _aLatestCancelRequestedEventId (\ s a -> s{_aLatestCancelRequestedEventId = a});---- | Details of the cancellation (if any).-aDetails :: Lens' ActivityTaskCanceledEventAttributes (Maybe Text)-aDetails = lens _aDetails (\ s a -> s{_aDetails = a});---- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-aScheduledEventId :: Lens' ActivityTaskCanceledEventAttributes Integer-aScheduledEventId = lens _aScheduledEventId (\ s a -> s{_aScheduledEventId = a});---- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-aStartedEventId :: Lens' ActivityTaskCanceledEventAttributes Integer-aStartedEventId = lens _aStartedEventId (\ s a -> s{_aStartedEventId = a});--instance FromJSON ActivityTaskCanceledEventAttributes-         where-        parseJSON-          = withObject "ActivityTaskCanceledEventAttributes"-              (\ x ->-                 ActivityTaskCanceledEventAttributes' <$>-                   (x .:? "latestCancelRequestedEventId") <*>-                     (x .:? "details")-                     <*> (x .: "scheduledEventId")-                     <*> (x .: "startedEventId"))--instance Hashable ActivityTaskCanceledEventAttributes--instance NFData ActivityTaskCanceledEventAttributes---- | Provides details of the @ActivityTaskCompleted@ event.------------ /See:/ 'activityTaskCompletedEventAttributes' smart constructor.-data ActivityTaskCompletedEventAttributes = ActivityTaskCompletedEventAttributes'-    { _atceaResult           :: !(Maybe Text)-    , _atceaScheduledEventId :: !Integer-    , _atceaStartedEventId   :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityTaskCompletedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atceaResult' - The results of the activity task (if any).------ * 'atceaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'atceaStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-activityTaskCompletedEventAttributes-    :: Integer -- ^ 'atceaScheduledEventId'-    -> Integer -- ^ 'atceaStartedEventId'-    -> ActivityTaskCompletedEventAttributes-activityTaskCompletedEventAttributes pScheduledEventId_ pStartedEventId_ =-    ActivityTaskCompletedEventAttributes'-    { _atceaResult = Nothing-    , _atceaScheduledEventId = pScheduledEventId_-    , _atceaStartedEventId = pStartedEventId_-    }---- | The results of the activity task (if any).-atceaResult :: Lens' ActivityTaskCompletedEventAttributes (Maybe Text)-atceaResult = lens _atceaResult (\ s a -> s{_atceaResult = a});---- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-atceaScheduledEventId :: Lens' ActivityTaskCompletedEventAttributes Integer-atceaScheduledEventId = lens _atceaScheduledEventId (\ s a -> s{_atceaScheduledEventId = a});---- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-atceaStartedEventId :: Lens' ActivityTaskCompletedEventAttributes Integer-atceaStartedEventId = lens _atceaStartedEventId (\ s a -> s{_atceaStartedEventId = a});--instance FromJSON-         ActivityTaskCompletedEventAttributes where-        parseJSON-          = withObject "ActivityTaskCompletedEventAttributes"-              (\ x ->-                 ActivityTaskCompletedEventAttributes' <$>-                   (x .:? "result") <*> (x .: "scheduledEventId") <*>-                     (x .: "startedEventId"))--instance Hashable-         ActivityTaskCompletedEventAttributes--instance NFData ActivityTaskCompletedEventAttributes---- | Provides details of the @ActivityTaskFailed@ event.------------ /See:/ 'activityTaskFailedEventAttributes' smart constructor.-data ActivityTaskFailedEventAttributes = ActivityTaskFailedEventAttributes'-    { _atfeaReason           :: !(Maybe Text)-    , _atfeaDetails          :: !(Maybe Text)-    , _atfeaScheduledEventId :: !Integer-    , _atfeaStartedEventId   :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityTaskFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atfeaReason' - The reason provided for the failure (if any).------ * 'atfeaDetails' - The details of the failure (if any).------ * 'atfeaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'atfeaStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-activityTaskFailedEventAttributes-    :: Integer -- ^ 'atfeaScheduledEventId'-    -> Integer -- ^ 'atfeaStartedEventId'-    -> ActivityTaskFailedEventAttributes-activityTaskFailedEventAttributes pScheduledEventId_ pStartedEventId_ =-    ActivityTaskFailedEventAttributes'-    { _atfeaReason = Nothing-    , _atfeaDetails = Nothing-    , _atfeaScheduledEventId = pScheduledEventId_-    , _atfeaStartedEventId = pStartedEventId_-    }---- | The reason provided for the failure (if any).-atfeaReason :: Lens' ActivityTaskFailedEventAttributes (Maybe Text)-atfeaReason = lens _atfeaReason (\ s a -> s{_atfeaReason = a});---- | The details of the failure (if any).-atfeaDetails :: Lens' ActivityTaskFailedEventAttributes (Maybe Text)-atfeaDetails = lens _atfeaDetails (\ s a -> s{_atfeaDetails = a});---- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-atfeaScheduledEventId :: Lens' ActivityTaskFailedEventAttributes Integer-atfeaScheduledEventId = lens _atfeaScheduledEventId (\ s a -> s{_atfeaScheduledEventId = a});---- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-atfeaStartedEventId :: Lens' ActivityTaskFailedEventAttributes Integer-atfeaStartedEventId = lens _atfeaStartedEventId (\ s a -> s{_atfeaStartedEventId = a});--instance FromJSON ActivityTaskFailedEventAttributes-         where-        parseJSON-          = withObject "ActivityTaskFailedEventAttributes"-              (\ x ->-                 ActivityTaskFailedEventAttributes' <$>-                   (x .:? "reason") <*> (x .:? "details") <*>-                     (x .: "scheduledEventId")-                     <*> (x .: "startedEventId"))--instance Hashable ActivityTaskFailedEventAttributes--instance NFData ActivityTaskFailedEventAttributes---- | Provides details of the @ActivityTaskScheduled@ event.------------ /See:/ 'activityTaskScheduledEventAttributes' smart constructor.-data ActivityTaskScheduledEventAttributes = ActivityTaskScheduledEventAttributes'-    { _atseaControl                      :: !(Maybe Text)-    , _atseaHeartbeatTimeout             :: !(Maybe Text)-    , _atseaScheduleToCloseTimeout       :: !(Maybe Text)-    , _atseaInput                        :: !(Maybe Text)-    , _atseaTaskPriority                 :: !(Maybe Text)-    , _atseaScheduleToStartTimeout       :: !(Maybe Text)-    , _atseaStartToCloseTimeout          :: !(Maybe Text)-    , _atseaActivityType                 :: !ActivityType-    , _atseaActivityId                   :: !Text-    , _atseaTaskList                     :: !TaskList-    , _atseaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityTaskScheduledEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atseaControl' - /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks. This data is not sent to the activity.------ * 'atseaHeartbeatTimeout' - The maximum time before which the worker processing this task must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or return a result, it will be ignored.------ * 'atseaScheduleToCloseTimeout' - The maximum amount of time for this activity task.------ * 'atseaInput' - The input provided to the activity task.------ * 'atseaTaskPriority' - /Optional./ The priority to assign to the scheduled activity task. If set, this will override any default priority value that was assigned when the activity type was registered. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .------ * 'atseaScheduleToStartTimeout' - The maximum amount of time the activity task can wait to be assigned to a worker.------ * 'atseaStartToCloseTimeout' - The maximum amount of time a worker may take to process the activity task.------ * 'atseaActivityType' - The type of the activity task.------ * 'atseaActivityId' - The unique ID of the activity task.------ * 'atseaTaskList' - The task list in which the activity task has been scheduled.------ * 'atseaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-activityTaskScheduledEventAttributes-    :: ActivityType -- ^ 'atseaActivityType'-    -> Text -- ^ 'atseaActivityId'-    -> TaskList -- ^ 'atseaTaskList'-    -> Integer -- ^ 'atseaDecisionTaskCompletedEventId'-    -> ActivityTaskScheduledEventAttributes-activityTaskScheduledEventAttributes pActivityType_ pActivityId_ pTaskList_ pDecisionTaskCompletedEventId_ =-    ActivityTaskScheduledEventAttributes'-    { _atseaControl = Nothing-    , _atseaHeartbeatTimeout = Nothing-    , _atseaScheduleToCloseTimeout = Nothing-    , _atseaInput = Nothing-    , _atseaTaskPriority = Nothing-    , _atseaScheduleToStartTimeout = Nothing-    , _atseaStartToCloseTimeout = Nothing-    , _atseaActivityType = pActivityType_-    , _atseaActivityId = pActivityId_-    , _atseaTaskList = pTaskList_-    , _atseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks. This data is not sent to the activity.-atseaControl :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)-atseaControl = lens _atseaControl (\ s a -> s{_atseaControl = a});---- | The maximum time before which the worker processing this task must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or return a result, it will be ignored.-atseaHeartbeatTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)-atseaHeartbeatTimeout = lens _atseaHeartbeatTimeout (\ s a -> s{_atseaHeartbeatTimeout = a});---- | The maximum amount of time for this activity task.-atseaScheduleToCloseTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)-atseaScheduleToCloseTimeout = lens _atseaScheduleToCloseTimeout (\ s a -> s{_atseaScheduleToCloseTimeout = a});---- | The input provided to the activity task.-atseaInput :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)-atseaInput = lens _atseaInput (\ s a -> s{_atseaInput = a});---- | /Optional./ The priority to assign to the scheduled activity task. If set, this will override any default priority value that was assigned when the activity type was registered. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .-atseaTaskPriority :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)-atseaTaskPriority = lens _atseaTaskPriority (\ s a -> s{_atseaTaskPriority = a});---- | The maximum amount of time the activity task can wait to be assigned to a worker.-atseaScheduleToStartTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)-atseaScheduleToStartTimeout = lens _atseaScheduleToStartTimeout (\ s a -> s{_atseaScheduleToStartTimeout = a});---- | The maximum amount of time a worker may take to process the activity task.-atseaStartToCloseTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)-atseaStartToCloseTimeout = lens _atseaStartToCloseTimeout (\ s a -> s{_atseaStartToCloseTimeout = a});---- | The type of the activity task.-atseaActivityType :: Lens' ActivityTaskScheduledEventAttributes ActivityType-atseaActivityType = lens _atseaActivityType (\ s a -> s{_atseaActivityType = a});---- | The unique ID of the activity task.-atseaActivityId :: Lens' ActivityTaskScheduledEventAttributes Text-atseaActivityId = lens _atseaActivityId (\ s a -> s{_atseaActivityId = a});---- | The task list in which the activity task has been scheduled.-atseaTaskList :: Lens' ActivityTaskScheduledEventAttributes TaskList-atseaTaskList = lens _atseaTaskList (\ s a -> s{_atseaTaskList = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-atseaDecisionTaskCompletedEventId :: Lens' ActivityTaskScheduledEventAttributes Integer-atseaDecisionTaskCompletedEventId = lens _atseaDecisionTaskCompletedEventId (\ s a -> s{_atseaDecisionTaskCompletedEventId = a});--instance FromJSON-         ActivityTaskScheduledEventAttributes where-        parseJSON-          = withObject "ActivityTaskScheduledEventAttributes"-              (\ x ->-                 ActivityTaskScheduledEventAttributes' <$>-                   (x .:? "control") <*> (x .:? "heartbeatTimeout") <*>-                     (x .:? "scheduleToCloseTimeout")-                     <*> (x .:? "input")-                     <*> (x .:? "taskPriority")-                     <*> (x .:? "scheduleToStartTimeout")-                     <*> (x .:? "startToCloseTimeout")-                     <*> (x .: "activityType")-                     <*> (x .: "activityId")-                     <*> (x .: "taskList")-                     <*> (x .: "decisionTaskCompletedEventId"))--instance Hashable-         ActivityTaskScheduledEventAttributes--instance NFData ActivityTaskScheduledEventAttributes---- | Provides details of the @ActivityTaskStarted@ event.------------ /See:/ 'activityTaskStartedEventAttributes' smart constructor.-data ActivityTaskStartedEventAttributes = ActivityTaskStartedEventAttributes'-    { _atseaIdentity         :: !(Maybe Text)-    , _atseaScheduledEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityTaskStartedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atseaIdentity' - Identity of the worker that was assigned this task. This aids diagnostics when problems arise. The form of this identity is user defined.------ * 'atseaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-activityTaskStartedEventAttributes-    :: Integer -- ^ 'atseaScheduledEventId'-    -> ActivityTaskStartedEventAttributes-activityTaskStartedEventAttributes pScheduledEventId_ =-    ActivityTaskStartedEventAttributes'-    { _atseaIdentity = Nothing-    , _atseaScheduledEventId = pScheduledEventId_-    }---- | Identity of the worker that was assigned this task. This aids diagnostics when problems arise. The form of this identity is user defined.-atseaIdentity :: Lens' ActivityTaskStartedEventAttributes (Maybe Text)-atseaIdentity = lens _atseaIdentity (\ s a -> s{_atseaIdentity = a});---- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-atseaScheduledEventId :: Lens' ActivityTaskStartedEventAttributes Integer-atseaScheduledEventId = lens _atseaScheduledEventId (\ s a -> s{_atseaScheduledEventId = a});--instance FromJSON ActivityTaskStartedEventAttributes-         where-        parseJSON-          = withObject "ActivityTaskStartedEventAttributes"-              (\ x ->-                 ActivityTaskStartedEventAttributes' <$>-                   (x .:? "identity") <*> (x .: "scheduledEventId"))--instance Hashable ActivityTaskStartedEventAttributes--instance NFData ActivityTaskStartedEventAttributes---- | Provides details of the @ActivityTaskTimedOut@ event.------------ /See:/ 'activityTaskTimedOutEventAttributes' smart constructor.-data ActivityTaskTimedOutEventAttributes = ActivityTaskTimedOutEventAttributes'-    { _attoeaDetails          :: !(Maybe Text)-    , _attoeaTimeoutType      :: !ActivityTaskTimeoutType-    , _attoeaScheduledEventId :: !Integer-    , _attoeaStartedEventId   :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityTaskTimedOutEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'attoeaDetails' - Contains the content of the @details@ parameter for the last call made by the activity to @RecordActivityTaskHeartbeat@ .------ * 'attoeaTimeoutType' - The type of the timeout that caused this event.------ * 'attoeaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'attoeaStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-activityTaskTimedOutEventAttributes-    :: ActivityTaskTimeoutType -- ^ 'attoeaTimeoutType'-    -> Integer -- ^ 'attoeaScheduledEventId'-    -> Integer -- ^ 'attoeaStartedEventId'-    -> ActivityTaskTimedOutEventAttributes-activityTaskTimedOutEventAttributes pTimeoutType_ pScheduledEventId_ pStartedEventId_ =-    ActivityTaskTimedOutEventAttributes'-    { _attoeaDetails = Nothing-    , _attoeaTimeoutType = pTimeoutType_-    , _attoeaScheduledEventId = pScheduledEventId_-    , _attoeaStartedEventId = pStartedEventId_-    }---- | Contains the content of the @details@ parameter for the last call made by the activity to @RecordActivityTaskHeartbeat@ .-attoeaDetails :: Lens' ActivityTaskTimedOutEventAttributes (Maybe Text)-attoeaDetails = lens _attoeaDetails (\ s a -> s{_attoeaDetails = a});---- | The type of the timeout that caused this event.-attoeaTimeoutType :: Lens' ActivityTaskTimedOutEventAttributes ActivityTaskTimeoutType-attoeaTimeoutType = lens _attoeaTimeoutType (\ s a -> s{_attoeaTimeoutType = a});---- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-attoeaScheduledEventId :: Lens' ActivityTaskTimedOutEventAttributes Integer-attoeaScheduledEventId = lens _attoeaScheduledEventId (\ s a -> s{_attoeaScheduledEventId = a});---- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-attoeaStartedEventId :: Lens' ActivityTaskTimedOutEventAttributes Integer-attoeaStartedEventId = lens _attoeaStartedEventId (\ s a -> s{_attoeaStartedEventId = a});--instance FromJSON ActivityTaskTimedOutEventAttributes-         where-        parseJSON-          = withObject "ActivityTaskTimedOutEventAttributes"-              (\ x ->-                 ActivityTaskTimedOutEventAttributes' <$>-                   (x .:? "details") <*> (x .: "timeoutType") <*>-                     (x .: "scheduledEventId")-                     <*> (x .: "startedEventId"))--instance Hashable ActivityTaskTimedOutEventAttributes--instance NFData ActivityTaskTimedOutEventAttributes---- | Represents an activity type.------------ /See:/ 'activityType' smart constructor.-data ActivityType = ActivityType'-    { _atName    :: !Text-    , _atVersion :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityType' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atName' - The name of this activity.------ * 'atVersion' - The version of this activity.-activityType-    :: Text -- ^ 'atName'-    -> Text -- ^ 'atVersion'-    -> ActivityType-activityType pName_ pVersion_ =-    ActivityType'-    { _atName = pName_-    , _atVersion = pVersion_-    }---- | The name of this activity.-atName :: Lens' ActivityType Text-atName = lens _atName (\ s a -> s{_atName = a});---- | The version of this activity.-atVersion :: Lens' ActivityType Text-atVersion = lens _atVersion (\ s a -> s{_atVersion = a});--instance FromJSON ActivityType where-        parseJSON-          = withObject "ActivityType"-              (\ x ->-                 ActivityType' <$> (x .: "name") <*> (x .: "version"))--instance Hashable ActivityType--instance NFData ActivityType--instance ToJSON ActivityType where-        toJSON ActivityType'{..}-          = object-              (catMaybes-                 [Just ("name" .= _atName),-                  Just ("version" .= _atVersion)])---- | Configuration settings registered with the activity type.------------ /See:/ 'activityTypeConfiguration' smart constructor.-data ActivityTypeConfiguration = ActivityTypeConfiguration'-    { _atcDefaultTaskScheduleToStartTimeout :: !(Maybe Text)-    , _atcDefaultTaskList                   :: !(Maybe TaskList)-    , _atcDefaultTaskPriority               :: !(Maybe Text)-    , _atcDefaultTaskHeartbeatTimeout       :: !(Maybe Text)-    , _atcDefaultTaskScheduleToCloseTimeout :: !(Maybe Text)-    , _atcDefaultTaskStartToCloseTimeout    :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityTypeConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atcDefaultTaskScheduleToStartTimeout' - /Optional./ The default maximum duration, specified when registering the activity type, that a task of an activity type can wait before being assigned to a worker. You can override this default when scheduling a task through the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'atcDefaultTaskList' - /Optional./ The default task list specified for this activity type at registration. This default is used if a task list is not provided when a task is scheduled through the @ScheduleActivityTask@ decision. You can override the default registered task list when scheduling a task through the @ScheduleActivityTask@ decision.------ * 'atcDefaultTaskPriority' - /Optional./ The default task priority for tasks of this activity type, specified at registration. If not set, then "0" will be used as the default priority. This default can be overridden when scheduling an activity task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .------ * 'atcDefaultTaskHeartbeatTimeout' - /Optional./ The default maximum time, in seconds, before which a worker processing a task must report progress by calling 'RecordActivityTaskHeartbeat' . You can specify this value only when /registering/ an activity type. The registered default value can be overridden when you schedule a task through the @ScheduleActivityTask@ decision. If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'atcDefaultTaskScheduleToCloseTimeout' - /Optional./ The default maximum duration, specified when registering the activity type, for tasks of this activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'atcDefaultTaskStartToCloseTimeout' - /Optional./ The default maximum duration for tasks of an activity type specified when registering the activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-activityTypeConfiguration-    :: ActivityTypeConfiguration-activityTypeConfiguration =-    ActivityTypeConfiguration'-    { _atcDefaultTaskScheduleToStartTimeout = Nothing-    , _atcDefaultTaskList = Nothing-    , _atcDefaultTaskPriority = Nothing-    , _atcDefaultTaskHeartbeatTimeout = Nothing-    , _atcDefaultTaskScheduleToCloseTimeout = Nothing-    , _atcDefaultTaskStartToCloseTimeout = Nothing-    }---- | /Optional./ The default maximum duration, specified when registering the activity type, that a task of an activity type can wait before being assigned to a worker. You can override this default when scheduling a task through the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-atcDefaultTaskScheduleToStartTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)-atcDefaultTaskScheduleToStartTimeout = lens _atcDefaultTaskScheduleToStartTimeout (\ s a -> s{_atcDefaultTaskScheduleToStartTimeout = a});---- | /Optional./ The default task list specified for this activity type at registration. This default is used if a task list is not provided when a task is scheduled through the @ScheduleActivityTask@ decision. You can override the default registered task list when scheduling a task through the @ScheduleActivityTask@ decision.-atcDefaultTaskList :: Lens' ActivityTypeConfiguration (Maybe TaskList)-atcDefaultTaskList = lens _atcDefaultTaskList (\ s a -> s{_atcDefaultTaskList = a});---- | /Optional./ The default task priority for tasks of this activity type, specified at registration. If not set, then "0" will be used as the default priority. This default can be overridden when scheduling an activity task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .-atcDefaultTaskPriority :: Lens' ActivityTypeConfiguration (Maybe Text)-atcDefaultTaskPriority = lens _atcDefaultTaskPriority (\ s a -> s{_atcDefaultTaskPriority = a});---- | /Optional./ The default maximum time, in seconds, before which a worker processing a task must report progress by calling 'RecordActivityTaskHeartbeat' . You can specify this value only when /registering/ an activity type. The registered default value can be overridden when you schedule a task through the @ScheduleActivityTask@ decision. If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-atcDefaultTaskHeartbeatTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)-atcDefaultTaskHeartbeatTimeout = lens _atcDefaultTaskHeartbeatTimeout (\ s a -> s{_atcDefaultTaskHeartbeatTimeout = a});---- | /Optional./ The default maximum duration, specified when registering the activity type, for tasks of this activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-atcDefaultTaskScheduleToCloseTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)-atcDefaultTaskScheduleToCloseTimeout = lens _atcDefaultTaskScheduleToCloseTimeout (\ s a -> s{_atcDefaultTaskScheduleToCloseTimeout = a});---- | /Optional./ The default maximum duration for tasks of an activity type specified when registering the activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-atcDefaultTaskStartToCloseTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)-atcDefaultTaskStartToCloseTimeout = lens _atcDefaultTaskStartToCloseTimeout (\ s a -> s{_atcDefaultTaskStartToCloseTimeout = a});--instance FromJSON ActivityTypeConfiguration where-        parseJSON-          = withObject "ActivityTypeConfiguration"-              (\ x ->-                 ActivityTypeConfiguration' <$>-                   (x .:? "defaultTaskScheduleToStartTimeout") <*>-                     (x .:? "defaultTaskList")-                     <*> (x .:? "defaultTaskPriority")-                     <*> (x .:? "defaultTaskHeartbeatTimeout")-                     <*> (x .:? "defaultTaskScheduleToCloseTimeout")-                     <*> (x .:? "defaultTaskStartToCloseTimeout"))--instance Hashable ActivityTypeConfiguration--instance NFData ActivityTypeConfiguration---- | Detailed information about an activity type.------------ /See:/ 'activityTypeInfo' smart constructor.-data ActivityTypeInfo = ActivityTypeInfo'-    { _atiDeprecationDate :: !(Maybe POSIX)-    , _atiDescription     :: !(Maybe Text)-    , _atiActivityType    :: !ActivityType-    , _atiStatus          :: !RegistrationStatus-    , _atiCreationDate    :: !POSIX-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ActivityTypeInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'atiDeprecationDate' - If DEPRECATED, the date and time 'DeprecateActivityType' was called.------ * 'atiDescription' - The description of the activity type provided in 'RegisterActivityType' .------ * 'atiActivityType' - The 'ActivityType' type structure representing the activity type.------ * 'atiStatus' - The current status of the activity type.------ * 'atiCreationDate' - The date and time this activity type was created through 'RegisterActivityType' .-activityTypeInfo-    :: ActivityType -- ^ 'atiActivityType'-    -> RegistrationStatus -- ^ 'atiStatus'-    -> UTCTime -- ^ 'atiCreationDate'-    -> ActivityTypeInfo-activityTypeInfo pActivityType_ pStatus_ pCreationDate_ =-    ActivityTypeInfo'-    { _atiDeprecationDate = Nothing-    , _atiDescription = Nothing-    , _atiActivityType = pActivityType_-    , _atiStatus = pStatus_-    , _atiCreationDate = _Time # pCreationDate_-    }---- | If DEPRECATED, the date and time 'DeprecateActivityType' was called.-atiDeprecationDate :: Lens' ActivityTypeInfo (Maybe UTCTime)-atiDeprecationDate = lens _atiDeprecationDate (\ s a -> s{_atiDeprecationDate = a}) . mapping _Time;---- | The description of the activity type provided in 'RegisterActivityType' .-atiDescription :: Lens' ActivityTypeInfo (Maybe Text)-atiDescription = lens _atiDescription (\ s a -> s{_atiDescription = a});---- | The 'ActivityType' type structure representing the activity type.-atiActivityType :: Lens' ActivityTypeInfo ActivityType-atiActivityType = lens _atiActivityType (\ s a -> s{_atiActivityType = a});---- | The current status of the activity type.-atiStatus :: Lens' ActivityTypeInfo RegistrationStatus-atiStatus = lens _atiStatus (\ s a -> s{_atiStatus = a});---- | The date and time this activity type was created through 'RegisterActivityType' .-atiCreationDate :: Lens' ActivityTypeInfo UTCTime-atiCreationDate = lens _atiCreationDate (\ s a -> s{_atiCreationDate = a}) . _Time;--instance FromJSON ActivityTypeInfo where-        parseJSON-          = withObject "ActivityTypeInfo"-              (\ x ->-                 ActivityTypeInfo' <$>-                   (x .:? "deprecationDate") <*> (x .:? "description")-                     <*> (x .: "activityType")-                     <*> (x .: "status")-                     <*> (x .: "creationDate"))--instance Hashable ActivityTypeInfo--instance NFData ActivityTypeInfo---- | Provides details of the @CancelTimer@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'cancelTimerDecisionAttributes' smart constructor.-newtype CancelTimerDecisionAttributes = CancelTimerDecisionAttributes'-    { _ctdaTimerId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CancelTimerDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ctdaTimerId' - __Required.__ The unique ID of the timer to cancel.-cancelTimerDecisionAttributes-    :: Text -- ^ 'ctdaTimerId'-    -> CancelTimerDecisionAttributes-cancelTimerDecisionAttributes pTimerId_ =-    CancelTimerDecisionAttributes'-    { _ctdaTimerId = pTimerId_-    }---- | __Required.__ The unique ID of the timer to cancel.-ctdaTimerId :: Lens' CancelTimerDecisionAttributes Text-ctdaTimerId = lens _ctdaTimerId (\ s a -> s{_ctdaTimerId = a});--instance Hashable CancelTimerDecisionAttributes--instance NFData CancelTimerDecisionAttributes--instance ToJSON CancelTimerDecisionAttributes where-        toJSON CancelTimerDecisionAttributes'{..}-          = object-              (catMaybes [Just ("timerId" .= _ctdaTimerId)])---- | Provides details of the @CancelTimerFailed@ event.------------ /See:/ 'cancelTimerFailedEventAttributes' smart constructor.-data CancelTimerFailedEventAttributes = CancelTimerFailedEventAttributes'-    { _ctfeaTimerId                      :: !Text-    , _ctfeaCause                        :: !CancelTimerFailedCause-    , _ctfeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CancelTimerFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ctfeaTimerId' - The timerId provided in the @CancelTimer@ decision that failed.------ * 'ctfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'ctfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cancelTimerFailedEventAttributes-    :: Text -- ^ 'ctfeaTimerId'-    -> CancelTimerFailedCause -- ^ 'ctfeaCause'-    -> Integer -- ^ 'ctfeaDecisionTaskCompletedEventId'-    -> CancelTimerFailedEventAttributes-cancelTimerFailedEventAttributes pTimerId_ pCause_ pDecisionTaskCompletedEventId_ =-    CancelTimerFailedEventAttributes'-    { _ctfeaTimerId = pTimerId_-    , _ctfeaCause = pCause_-    , _ctfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The timerId provided in the @CancelTimer@ decision that failed.-ctfeaTimerId :: Lens' CancelTimerFailedEventAttributes Text-ctfeaTimerId = lens _ctfeaTimerId (\ s a -> s{_ctfeaTimerId = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-ctfeaCause :: Lens' CancelTimerFailedEventAttributes CancelTimerFailedCause-ctfeaCause = lens _ctfeaCause (\ s a -> s{_ctfeaCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-ctfeaDecisionTaskCompletedEventId :: Lens' CancelTimerFailedEventAttributes Integer-ctfeaDecisionTaskCompletedEventId = lens _ctfeaDecisionTaskCompletedEventId (\ s a -> s{_ctfeaDecisionTaskCompletedEventId = a});--instance FromJSON CancelTimerFailedEventAttributes-         where-        parseJSON-          = withObject "CancelTimerFailedEventAttributes"-              (\ x ->-                 CancelTimerFailedEventAttributes' <$>-                   (x .: "timerId") <*> (x .: "cause") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable CancelTimerFailedEventAttributes--instance NFData CancelTimerFailedEventAttributes---- | Provides details of the @CancelWorkflowExecution@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'cancelWorkflowExecutionDecisionAttributes' smart constructor.-newtype CancelWorkflowExecutionDecisionAttributes = CancelWorkflowExecutionDecisionAttributes'-    { _cwedaDetails :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CancelWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cwedaDetails' - /Optional./ details of the cancellation.-cancelWorkflowExecutionDecisionAttributes-    :: CancelWorkflowExecutionDecisionAttributes-cancelWorkflowExecutionDecisionAttributes =-    CancelWorkflowExecutionDecisionAttributes'-    { _cwedaDetails = Nothing-    }---- | /Optional./ details of the cancellation.-cwedaDetails :: Lens' CancelWorkflowExecutionDecisionAttributes (Maybe Text)-cwedaDetails = lens _cwedaDetails (\ s a -> s{_cwedaDetails = a});--instance Hashable-         CancelWorkflowExecutionDecisionAttributes--instance NFData-         CancelWorkflowExecutionDecisionAttributes--instance ToJSON-         CancelWorkflowExecutionDecisionAttributes where-        toJSON CancelWorkflowExecutionDecisionAttributes'{..}-          = object-              (catMaybes [("details" .=) <$> _cwedaDetails])---- | Provides details of the @CancelWorkflowExecutionFailed@ event.------------ /See:/ 'cancelWorkflowExecutionFailedEventAttributes' smart constructor.-data CancelWorkflowExecutionFailedEventAttributes = CancelWorkflowExecutionFailedEventAttributes'-    { _cCause                        :: !CancelWorkflowExecutionFailedCause-    , _cDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CancelWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'cDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cancelWorkflowExecutionFailedEventAttributes-    :: CancelWorkflowExecutionFailedCause -- ^ 'cCause'-    -> Integer -- ^ 'cDecisionTaskCompletedEventId'-    -> CancelWorkflowExecutionFailedEventAttributes-cancelWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =-    CancelWorkflowExecutionFailedEventAttributes'-    { _cCause = pCause_-    , _cDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-cCause :: Lens' CancelWorkflowExecutionFailedEventAttributes CancelWorkflowExecutionFailedCause-cCause = lens _cCause (\ s a -> s{_cCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cDecisionTaskCompletedEventId :: Lens' CancelWorkflowExecutionFailedEventAttributes Integer-cDecisionTaskCompletedEventId = lens _cDecisionTaskCompletedEventId (\ s a -> s{_cDecisionTaskCompletedEventId = a});--instance FromJSON-         CancelWorkflowExecutionFailedEventAttributes where-        parseJSON-          = withObject-              "CancelWorkflowExecutionFailedEventAttributes"-              (\ x ->-                 CancelWorkflowExecutionFailedEventAttributes' <$>-                   (x .: "cause") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable-         CancelWorkflowExecutionFailedEventAttributes--instance NFData-         CancelWorkflowExecutionFailedEventAttributes---- | Provide details of the @ChildWorkflowExecutionCanceled@ event.------------ /See:/ 'childWorkflowExecutionCanceledEventAttributes' smart constructor.-data ChildWorkflowExecutionCanceledEventAttributes = ChildWorkflowExecutionCanceledEventAttributes'-    { _cDetails           :: !(Maybe Text)-    , _cWorkflowExecution :: !WorkflowExecution-    , _cWorkflowType      :: !WorkflowType-    , _cInitiatedEventId  :: !Integer-    , _cStartedEventId    :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ChildWorkflowExecutionCanceledEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cDetails' - Details of the cancellation (if provided).------ * 'cWorkflowExecution' - The child workflow execution that was canceled.------ * 'cWorkflowType' - The type of the child workflow execution.------ * 'cInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'cStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-childWorkflowExecutionCanceledEventAttributes-    :: WorkflowExecution -- ^ 'cWorkflowExecution'-    -> WorkflowType -- ^ 'cWorkflowType'-    -> Integer -- ^ 'cInitiatedEventId'-    -> Integer -- ^ 'cStartedEventId'-    -> ChildWorkflowExecutionCanceledEventAttributes-childWorkflowExecutionCanceledEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =-    ChildWorkflowExecutionCanceledEventAttributes'-    { _cDetails = Nothing-    , _cWorkflowExecution = pWorkflowExecution_-    , _cWorkflowType = pWorkflowType_-    , _cInitiatedEventId = pInitiatedEventId_-    , _cStartedEventId = pStartedEventId_-    }---- | Details of the cancellation (if provided).-cDetails :: Lens' ChildWorkflowExecutionCanceledEventAttributes (Maybe Text)-cDetails = lens _cDetails (\ s a -> s{_cDetails = a});---- | The child workflow execution that was canceled.-cWorkflowExecution :: Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowExecution-cWorkflowExecution = lens _cWorkflowExecution (\ s a -> s{_cWorkflowExecution = a});---- | The type of the child workflow execution.-cWorkflowType :: Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowType-cWorkflowType = lens _cWorkflowType (\ s a -> s{_cWorkflowType = a});---- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cInitiatedEventId :: Lens' ChildWorkflowExecutionCanceledEventAttributes Integer-cInitiatedEventId = lens _cInitiatedEventId (\ s a -> s{_cInitiatedEventId = a});---- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cStartedEventId :: Lens' ChildWorkflowExecutionCanceledEventAttributes Integer-cStartedEventId = lens _cStartedEventId (\ s a -> s{_cStartedEventId = a});--instance FromJSON-         ChildWorkflowExecutionCanceledEventAttributes where-        parseJSON-          = withObject-              "ChildWorkflowExecutionCanceledEventAttributes"-              (\ x ->-                 ChildWorkflowExecutionCanceledEventAttributes' <$>-                   (x .:? "details") <*> (x .: "workflowExecution") <*>-                     (x .: "workflowType")-                     <*> (x .: "initiatedEventId")-                     <*> (x .: "startedEventId"))--instance Hashable-         ChildWorkflowExecutionCanceledEventAttributes--instance NFData-         ChildWorkflowExecutionCanceledEventAttributes---- | Provides details of the @ChildWorkflowExecutionCompleted@ event.------------ /See:/ 'childWorkflowExecutionCompletedEventAttributes' smart constructor.-data ChildWorkflowExecutionCompletedEventAttributes = ChildWorkflowExecutionCompletedEventAttributes'-    { _cweceaResult            :: !(Maybe Text)-    , _cweceaWorkflowExecution :: !WorkflowExecution-    , _cweceaWorkflowType      :: !WorkflowType-    , _cweceaInitiatedEventId  :: !Integer-    , _cweceaStartedEventId    :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ChildWorkflowExecutionCompletedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cweceaResult' - The result of the child workflow execution (if any).------ * 'cweceaWorkflowExecution' - The child workflow execution that was completed.------ * 'cweceaWorkflowType' - The type of the child workflow execution.------ * 'cweceaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'cweceaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-childWorkflowExecutionCompletedEventAttributes-    :: WorkflowExecution -- ^ 'cweceaWorkflowExecution'-    -> WorkflowType -- ^ 'cweceaWorkflowType'-    -> Integer -- ^ 'cweceaInitiatedEventId'-    -> Integer -- ^ 'cweceaStartedEventId'-    -> ChildWorkflowExecutionCompletedEventAttributes-childWorkflowExecutionCompletedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =-    ChildWorkflowExecutionCompletedEventAttributes'-    { _cweceaResult = Nothing-    , _cweceaWorkflowExecution = pWorkflowExecution_-    , _cweceaWorkflowType = pWorkflowType_-    , _cweceaInitiatedEventId = pInitiatedEventId_-    , _cweceaStartedEventId = pStartedEventId_-    }---- | The result of the child workflow execution (if any).-cweceaResult :: Lens' ChildWorkflowExecutionCompletedEventAttributes (Maybe Text)-cweceaResult = lens _cweceaResult (\ s a -> s{_cweceaResult = a});---- | The child workflow execution that was completed.-cweceaWorkflowExecution :: Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowExecution-cweceaWorkflowExecution = lens _cweceaWorkflowExecution (\ s a -> s{_cweceaWorkflowExecution = a});---- | The type of the child workflow execution.-cweceaWorkflowType :: Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowType-cweceaWorkflowType = lens _cweceaWorkflowType (\ s a -> s{_cweceaWorkflowType = a});---- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cweceaInitiatedEventId :: Lens' ChildWorkflowExecutionCompletedEventAttributes Integer-cweceaInitiatedEventId = lens _cweceaInitiatedEventId (\ s a -> s{_cweceaInitiatedEventId = a});---- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cweceaStartedEventId :: Lens' ChildWorkflowExecutionCompletedEventAttributes Integer-cweceaStartedEventId = lens _cweceaStartedEventId (\ s a -> s{_cweceaStartedEventId = a});--instance FromJSON-         ChildWorkflowExecutionCompletedEventAttributes where-        parseJSON-          = withObject-              "ChildWorkflowExecutionCompletedEventAttributes"-              (\ x ->-                 ChildWorkflowExecutionCompletedEventAttributes' <$>-                   (x .:? "result") <*> (x .: "workflowExecution") <*>-                     (x .: "workflowType")-                     <*> (x .: "initiatedEventId")-                     <*> (x .: "startedEventId"))--instance Hashable-         ChildWorkflowExecutionCompletedEventAttributes--instance NFData-         ChildWorkflowExecutionCompletedEventAttributes---- | Provides details of the @ChildWorkflowExecutionFailed@ event.------------ /See:/ 'childWorkflowExecutionFailedEventAttributes' smart constructor.-data ChildWorkflowExecutionFailedEventAttributes = ChildWorkflowExecutionFailedEventAttributes'-    { _cwefeaReason            :: !(Maybe Text)-    , _cwefeaDetails           :: !(Maybe Text)-    , _cwefeaWorkflowExecution :: !WorkflowExecution-    , _cwefeaWorkflowType      :: !WorkflowType-    , _cwefeaInitiatedEventId  :: !Integer-    , _cwefeaStartedEventId    :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ChildWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cwefeaReason' - The reason for the failure (if provided).------ * 'cwefeaDetails' - The details of the failure (if provided).------ * 'cwefeaWorkflowExecution' - The child workflow execution that failed.------ * 'cwefeaWorkflowType' - The type of the child workflow execution.------ * 'cwefeaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'cwefeaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-childWorkflowExecutionFailedEventAttributes-    :: WorkflowExecution -- ^ 'cwefeaWorkflowExecution'-    -> WorkflowType -- ^ 'cwefeaWorkflowType'-    -> Integer -- ^ 'cwefeaInitiatedEventId'-    -> Integer -- ^ 'cwefeaStartedEventId'-    -> ChildWorkflowExecutionFailedEventAttributes-childWorkflowExecutionFailedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =-    ChildWorkflowExecutionFailedEventAttributes'-    { _cwefeaReason = Nothing-    , _cwefeaDetails = Nothing-    , _cwefeaWorkflowExecution = pWorkflowExecution_-    , _cwefeaWorkflowType = pWorkflowType_-    , _cwefeaInitiatedEventId = pInitiatedEventId_-    , _cwefeaStartedEventId = pStartedEventId_-    }---- | The reason for the failure (if provided).-cwefeaReason :: Lens' ChildWorkflowExecutionFailedEventAttributes (Maybe Text)-cwefeaReason = lens _cwefeaReason (\ s a -> s{_cwefeaReason = a});---- | The details of the failure (if provided).-cwefeaDetails :: Lens' ChildWorkflowExecutionFailedEventAttributes (Maybe Text)-cwefeaDetails = lens _cwefeaDetails (\ s a -> s{_cwefeaDetails = a});---- | The child workflow execution that failed.-cwefeaWorkflowExecution :: Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowExecution-cwefeaWorkflowExecution = lens _cwefeaWorkflowExecution (\ s a -> s{_cwefeaWorkflowExecution = a});---- | The type of the child workflow execution.-cwefeaWorkflowType :: Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowType-cwefeaWorkflowType = lens _cwefeaWorkflowType (\ s a -> s{_cwefeaWorkflowType = a});---- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cwefeaInitiatedEventId :: Lens' ChildWorkflowExecutionFailedEventAttributes Integer-cwefeaInitiatedEventId = lens _cwefeaInitiatedEventId (\ s a -> s{_cwefeaInitiatedEventId = a});---- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cwefeaStartedEventId :: Lens' ChildWorkflowExecutionFailedEventAttributes Integer-cwefeaStartedEventId = lens _cwefeaStartedEventId (\ s a -> s{_cwefeaStartedEventId = a});--instance FromJSON-         ChildWorkflowExecutionFailedEventAttributes where-        parseJSON-          = withObject-              "ChildWorkflowExecutionFailedEventAttributes"-              (\ x ->-                 ChildWorkflowExecutionFailedEventAttributes' <$>-                   (x .:? "reason") <*> (x .:? "details") <*>-                     (x .: "workflowExecution")-                     <*> (x .: "workflowType")-                     <*> (x .: "initiatedEventId")-                     <*> (x .: "startedEventId"))--instance Hashable-         ChildWorkflowExecutionFailedEventAttributes--instance NFData-         ChildWorkflowExecutionFailedEventAttributes---- | Provides details of the @ChildWorkflowExecutionStarted@ event.------------ /See:/ 'childWorkflowExecutionStartedEventAttributes' smart constructor.-data ChildWorkflowExecutionStartedEventAttributes = ChildWorkflowExecutionStartedEventAttributes'-    { _cweseaWorkflowExecution :: !WorkflowExecution-    , _cweseaWorkflowType      :: !WorkflowType-    , _cweseaInitiatedEventId  :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ChildWorkflowExecutionStartedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cweseaWorkflowExecution' - The child workflow execution that was started.------ * 'cweseaWorkflowType' - The type of the child workflow execution.------ * 'cweseaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-childWorkflowExecutionStartedEventAttributes-    :: WorkflowExecution -- ^ 'cweseaWorkflowExecution'-    -> WorkflowType -- ^ 'cweseaWorkflowType'-    -> Integer -- ^ 'cweseaInitiatedEventId'-    -> ChildWorkflowExecutionStartedEventAttributes-childWorkflowExecutionStartedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ =-    ChildWorkflowExecutionStartedEventAttributes'-    { _cweseaWorkflowExecution = pWorkflowExecution_-    , _cweseaWorkflowType = pWorkflowType_-    , _cweseaInitiatedEventId = pInitiatedEventId_-    }---- | The child workflow execution that was started.-cweseaWorkflowExecution :: Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowExecution-cweseaWorkflowExecution = lens _cweseaWorkflowExecution (\ s a -> s{_cweseaWorkflowExecution = a});---- | The type of the child workflow execution.-cweseaWorkflowType :: Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowType-cweseaWorkflowType = lens _cweseaWorkflowType (\ s a -> s{_cweseaWorkflowType = a});---- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cweseaInitiatedEventId :: Lens' ChildWorkflowExecutionStartedEventAttributes Integer-cweseaInitiatedEventId = lens _cweseaInitiatedEventId (\ s a -> s{_cweseaInitiatedEventId = a});--instance FromJSON-         ChildWorkflowExecutionStartedEventAttributes where-        parseJSON-          = withObject-              "ChildWorkflowExecutionStartedEventAttributes"-              (\ x ->-                 ChildWorkflowExecutionStartedEventAttributes' <$>-                   (x .: "workflowExecution") <*> (x .: "workflowType")-                     <*> (x .: "initiatedEventId"))--instance Hashable-         ChildWorkflowExecutionStartedEventAttributes--instance NFData-         ChildWorkflowExecutionStartedEventAttributes---- | Provides details of the @ChildWorkflowExecutionTerminated@ event.------------ /See:/ 'childWorkflowExecutionTerminatedEventAttributes' smart constructor.-data ChildWorkflowExecutionTerminatedEventAttributes = ChildWorkflowExecutionTerminatedEventAttributes'-    { _cweteaWorkflowExecution :: !WorkflowExecution-    , _cweteaWorkflowType      :: !WorkflowType-    , _cweteaInitiatedEventId  :: !Integer-    , _cweteaStartedEventId    :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ChildWorkflowExecutionTerminatedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cweteaWorkflowExecution' - The child workflow execution that was terminated.------ * 'cweteaWorkflowType' - The type of the child workflow execution.------ * 'cweteaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'cweteaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-childWorkflowExecutionTerminatedEventAttributes-    :: WorkflowExecution -- ^ 'cweteaWorkflowExecution'-    -> WorkflowType -- ^ 'cweteaWorkflowType'-    -> Integer -- ^ 'cweteaInitiatedEventId'-    -> Integer -- ^ 'cweteaStartedEventId'-    -> ChildWorkflowExecutionTerminatedEventAttributes-childWorkflowExecutionTerminatedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =-    ChildWorkflowExecutionTerminatedEventAttributes'-    { _cweteaWorkflowExecution = pWorkflowExecution_-    , _cweteaWorkflowType = pWorkflowType_-    , _cweteaInitiatedEventId = pInitiatedEventId_-    , _cweteaStartedEventId = pStartedEventId_-    }---- | The child workflow execution that was terminated.-cweteaWorkflowExecution :: Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowExecution-cweteaWorkflowExecution = lens _cweteaWorkflowExecution (\ s a -> s{_cweteaWorkflowExecution = a});---- | The type of the child workflow execution.-cweteaWorkflowType :: Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowType-cweteaWorkflowType = lens _cweteaWorkflowType (\ s a -> s{_cweteaWorkflowType = a});---- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cweteaInitiatedEventId :: Lens' ChildWorkflowExecutionTerminatedEventAttributes Integer-cweteaInitiatedEventId = lens _cweteaInitiatedEventId (\ s a -> s{_cweteaInitiatedEventId = a});---- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cweteaStartedEventId :: Lens' ChildWorkflowExecutionTerminatedEventAttributes Integer-cweteaStartedEventId = lens _cweteaStartedEventId (\ s a -> s{_cweteaStartedEventId = a});--instance FromJSON-         ChildWorkflowExecutionTerminatedEventAttributes where-        parseJSON-          = withObject-              "ChildWorkflowExecutionTerminatedEventAttributes"-              (\ x ->-                 ChildWorkflowExecutionTerminatedEventAttributes' <$>-                   (x .: "workflowExecution") <*> (x .: "workflowType")-                     <*> (x .: "initiatedEventId")-                     <*> (x .: "startedEventId"))--instance Hashable-         ChildWorkflowExecutionTerminatedEventAttributes--instance NFData-         ChildWorkflowExecutionTerminatedEventAttributes---- | Provides details of the @ChildWorkflowExecutionTimedOut@ event.------------ /See:/ 'childWorkflowExecutionTimedOutEventAttributes' smart constructor.-data ChildWorkflowExecutionTimedOutEventAttributes = ChildWorkflowExecutionTimedOutEventAttributes'-    { _cwetoeaWorkflowExecution :: !WorkflowExecution-    , _cwetoeaWorkflowType      :: !WorkflowType-    , _cwetoeaTimeoutType       :: !WorkflowExecutionTimeoutType-    , _cwetoeaInitiatedEventId  :: !Integer-    , _cwetoeaStartedEventId    :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ChildWorkflowExecutionTimedOutEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cwetoeaWorkflowExecution' - The child workflow execution that timed out.------ * 'cwetoeaWorkflowType' - The type of the child workflow execution.------ * 'cwetoeaTimeoutType' - The type of the timeout that caused the child workflow execution to time out.------ * 'cwetoeaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'cwetoeaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-childWorkflowExecutionTimedOutEventAttributes-    :: WorkflowExecution -- ^ 'cwetoeaWorkflowExecution'-    -> WorkflowType -- ^ 'cwetoeaWorkflowType'-    -> WorkflowExecutionTimeoutType -- ^ 'cwetoeaTimeoutType'-    -> Integer -- ^ 'cwetoeaInitiatedEventId'-    -> Integer -- ^ 'cwetoeaStartedEventId'-    -> ChildWorkflowExecutionTimedOutEventAttributes-childWorkflowExecutionTimedOutEventAttributes pWorkflowExecution_ pWorkflowType_ pTimeoutType_ pInitiatedEventId_ pStartedEventId_ =-    ChildWorkflowExecutionTimedOutEventAttributes'-    { _cwetoeaWorkflowExecution = pWorkflowExecution_-    , _cwetoeaWorkflowType = pWorkflowType_-    , _cwetoeaTimeoutType = pTimeoutType_-    , _cwetoeaInitiatedEventId = pInitiatedEventId_-    , _cwetoeaStartedEventId = pStartedEventId_-    }---- | The child workflow execution that timed out.-cwetoeaWorkflowExecution :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecution-cwetoeaWorkflowExecution = lens _cwetoeaWorkflowExecution (\ s a -> s{_cwetoeaWorkflowExecution = a});---- | The type of the child workflow execution.-cwetoeaWorkflowType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowType-cwetoeaWorkflowType = lens _cwetoeaWorkflowType (\ s a -> s{_cwetoeaWorkflowType = a});---- | The type of the timeout that caused the child workflow execution to time out.-cwetoeaTimeoutType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType-cwetoeaTimeoutType = lens _cwetoeaTimeoutType (\ s a -> s{_cwetoeaTimeoutType = a});---- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cwetoeaInitiatedEventId :: Lens' ChildWorkflowExecutionTimedOutEventAttributes Integer-cwetoeaInitiatedEventId = lens _cwetoeaInitiatedEventId (\ s a -> s{_cwetoeaInitiatedEventId = a});---- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cwetoeaStartedEventId :: Lens' ChildWorkflowExecutionTimedOutEventAttributes Integer-cwetoeaStartedEventId = lens _cwetoeaStartedEventId (\ s a -> s{_cwetoeaStartedEventId = a});--instance FromJSON-         ChildWorkflowExecutionTimedOutEventAttributes where-        parseJSON-          = withObject-              "ChildWorkflowExecutionTimedOutEventAttributes"-              (\ x ->-                 ChildWorkflowExecutionTimedOutEventAttributes' <$>-                   (x .: "workflowExecution") <*> (x .: "workflowType")-                     <*> (x .: "timeoutType")-                     <*> (x .: "initiatedEventId")-                     <*> (x .: "startedEventId"))--instance Hashable-         ChildWorkflowExecutionTimedOutEventAttributes--instance NFData-         ChildWorkflowExecutionTimedOutEventAttributes---- | Used to filter the closed workflow executions in visibility APIs by their close status.------------ /See:/ 'closeStatusFilter' smart constructor.-newtype CloseStatusFilter = CloseStatusFilter'-    { _csfStatus :: CloseStatus-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CloseStatusFilter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csfStatus' - __Required.__ The close status that must match the close status of an execution for it to meet the criteria of this filter.-closeStatusFilter-    :: CloseStatus -- ^ 'csfStatus'-    -> CloseStatusFilter-closeStatusFilter pStatus_ =-    CloseStatusFilter'-    { _csfStatus = pStatus_-    }---- | __Required.__ The close status that must match the close status of an execution for it to meet the criteria of this filter.-csfStatus :: Lens' CloseStatusFilter CloseStatus-csfStatus = lens _csfStatus (\ s a -> s{_csfStatus = a});--instance Hashable CloseStatusFilter--instance NFData CloseStatusFilter--instance ToJSON CloseStatusFilter where-        toJSON CloseStatusFilter'{..}-          = object (catMaybes [Just ("status" .= _csfStatus)])---- | Provides details of the @CompleteWorkflowExecution@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'completeWorkflowExecutionDecisionAttributes' smart constructor.-newtype CompleteWorkflowExecutionDecisionAttributes = CompleteWorkflowExecutionDecisionAttributes'-    { _cwedaResult :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CompleteWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cwedaResult' - The result of the workflow execution. The form of the result is implementation defined.-completeWorkflowExecutionDecisionAttributes-    :: CompleteWorkflowExecutionDecisionAttributes-completeWorkflowExecutionDecisionAttributes =-    CompleteWorkflowExecutionDecisionAttributes'-    { _cwedaResult = Nothing-    }---- | The result of the workflow execution. The form of the result is implementation defined.-cwedaResult :: Lens' CompleteWorkflowExecutionDecisionAttributes (Maybe Text)-cwedaResult = lens _cwedaResult (\ s a -> s{_cwedaResult = a});--instance Hashable-         CompleteWorkflowExecutionDecisionAttributes--instance NFData-         CompleteWorkflowExecutionDecisionAttributes--instance ToJSON-         CompleteWorkflowExecutionDecisionAttributes where-        toJSON-          CompleteWorkflowExecutionDecisionAttributes'{..}-          = object (catMaybes [("result" .=) <$> _cwedaResult])---- | Provides details of the @CompleteWorkflowExecutionFailed@ event.------------ /See:/ 'completeWorkflowExecutionFailedEventAttributes' smart constructor.-data CompleteWorkflowExecutionFailedEventAttributes = CompleteWorkflowExecutionFailedEventAttributes'-    { _cwefeaCause                        :: !CompleteWorkflowExecutionFailedCause-    , _cwefeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CompleteWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'cwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-completeWorkflowExecutionFailedEventAttributes-    :: CompleteWorkflowExecutionFailedCause -- ^ 'cwefeaCause'-    -> Integer -- ^ 'cwefeaDecisionTaskCompletedEventId'-    -> CompleteWorkflowExecutionFailedEventAttributes-completeWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =-    CompleteWorkflowExecutionFailedEventAttributes'-    { _cwefeaCause = pCause_-    , _cwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-cwefeaCause :: Lens' CompleteWorkflowExecutionFailedEventAttributes CompleteWorkflowExecutionFailedCause-cwefeaCause = lens _cwefeaCause (\ s a -> s{_cwefeaCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-cwefeaDecisionTaskCompletedEventId :: Lens' CompleteWorkflowExecutionFailedEventAttributes Integer-cwefeaDecisionTaskCompletedEventId = lens _cwefeaDecisionTaskCompletedEventId (\ s a -> s{_cwefeaDecisionTaskCompletedEventId = a});--instance FromJSON-         CompleteWorkflowExecutionFailedEventAttributes where-        parseJSON-          = withObject-              "CompleteWorkflowExecutionFailedEventAttributes"-              (\ x ->-                 CompleteWorkflowExecutionFailedEventAttributes' <$>-                   (x .: "cause") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable-         CompleteWorkflowExecutionFailedEventAttributes--instance NFData-         CompleteWorkflowExecutionFailedEventAttributes---- | Provides details of the @ContinueAsNewWorkflowExecution@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @tag@ : /Optional./ . A tag used to identify the workflow execution    * @taskList@ : String constraint. The key is @swf:taskList.name@ .    * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ .------------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'continueAsNewWorkflowExecutionDecisionAttributes' smart constructor.-data ContinueAsNewWorkflowExecutionDecisionAttributes = ContinueAsNewWorkflowExecutionDecisionAttributes'-    { _canwedaTagList                      :: !(Maybe [Text])-    , _canwedaTaskStartToCloseTimeout      :: !(Maybe Text)-    , _canwedaLambdaRole                   :: !(Maybe Text)-    , _canwedaInput                        :: !(Maybe Text)-    , _canwedaWorkflowTypeVersion          :: !(Maybe Text)-    , _canwedaExecutionStartToCloseTimeout :: !(Maybe Text)-    , _canwedaTaskList                     :: !(Maybe TaskList)-    , _canwedaTaskPriority                 :: !(Maybe Text)-    , _canwedaChildPolicy                  :: !(Maybe ChildPolicy)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ContinueAsNewWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'canwedaTagList' - The list of tags to associate with the new workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' .------ * 'canwedaTaskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for the new workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'canwedaLambdaRole' - The ARN of an IAM role that authorizes Amazon SWF to invoke AWS Lambda functions.------ * 'canwedaInput' - The input provided to the new workflow execution.------ * 'canwedaWorkflowTypeVersion' - Undocumented member.------ * 'canwedaExecutionStartToCloseTimeout' - If set, specifies the total duration for this workflow execution. This overrides the @defaultExecutionStartToCloseTimeout@ specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'canwedaTaskList' - Undocumented member.------ * 'canwedaTaskPriority' - /Optional./ The task priority that, if set, specifies the priority for the decision tasks for this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .------ * 'canwedaChildPolicy' - If set, specifies the policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-continueAsNewWorkflowExecutionDecisionAttributes-    :: ContinueAsNewWorkflowExecutionDecisionAttributes-continueAsNewWorkflowExecutionDecisionAttributes =-    ContinueAsNewWorkflowExecutionDecisionAttributes'-    { _canwedaTagList = Nothing-    , _canwedaTaskStartToCloseTimeout = Nothing-    , _canwedaLambdaRole = Nothing-    , _canwedaInput = Nothing-    , _canwedaWorkflowTypeVersion = Nothing-    , _canwedaExecutionStartToCloseTimeout = Nothing-    , _canwedaTaskList = Nothing-    , _canwedaTaskPriority = Nothing-    , _canwedaChildPolicy = Nothing-    }---- | The list of tags to associate with the new workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' .-canwedaTagList :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes [Text]-canwedaTagList = lens _canwedaTagList (\ s a -> s{_canwedaTagList = a}) . _Default . _Coerce;---- | Specifies the maximum duration of decision tasks for the new workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-canwedaTaskStartToCloseTimeout :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)-canwedaTaskStartToCloseTimeout = lens _canwedaTaskStartToCloseTimeout (\ s a -> s{_canwedaTaskStartToCloseTimeout = a});---- | The ARN of an IAM role that authorizes Amazon SWF to invoke AWS Lambda functions.-canwedaLambdaRole :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)-canwedaLambdaRole = lens _canwedaLambdaRole (\ s a -> s{_canwedaLambdaRole = a});---- | The input provided to the new workflow execution.-canwedaInput :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)-canwedaInput = lens _canwedaInput (\ s a -> s{_canwedaInput = a});---- | Undocumented member.-canwedaWorkflowTypeVersion :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)-canwedaWorkflowTypeVersion = lens _canwedaWorkflowTypeVersion (\ s a -> s{_canwedaWorkflowTypeVersion = a});---- | If set, specifies the total duration for this workflow execution. This overrides the @defaultExecutionStartToCloseTimeout@ specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-canwedaExecutionStartToCloseTimeout :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)-canwedaExecutionStartToCloseTimeout = lens _canwedaExecutionStartToCloseTimeout (\ s a -> s{_canwedaExecutionStartToCloseTimeout = a});---- | Undocumented member.-canwedaTaskList :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe TaskList)-canwedaTaskList = lens _canwedaTaskList (\ s a -> s{_canwedaTaskList = a});---- | /Optional./ The task priority that, if set, specifies the priority for the decision tasks for this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .-canwedaTaskPriority :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)-canwedaTaskPriority = lens _canwedaTaskPriority (\ s a -> s{_canwedaTaskPriority = a});---- | If set, specifies the policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-canwedaChildPolicy :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe ChildPolicy)-canwedaChildPolicy = lens _canwedaChildPolicy (\ s a -> s{_canwedaChildPolicy = a});--instance Hashable-         ContinueAsNewWorkflowExecutionDecisionAttributes--instance NFData-         ContinueAsNewWorkflowExecutionDecisionAttributes--instance ToJSON-         ContinueAsNewWorkflowExecutionDecisionAttributes-         where-        toJSON-          ContinueAsNewWorkflowExecutionDecisionAttributes'{..}-          = object-              (catMaybes-                 [("tagList" .=) <$> _canwedaTagList,-                  ("taskStartToCloseTimeout" .=) <$>-                    _canwedaTaskStartToCloseTimeout,-                  ("lambdaRole" .=) <$> _canwedaLambdaRole,-                  ("input" .=) <$> _canwedaInput,-                  ("workflowTypeVersion" .=) <$>-                    _canwedaWorkflowTypeVersion,-                  ("executionStartToCloseTimeout" .=) <$>-                    _canwedaExecutionStartToCloseTimeout,-                  ("taskList" .=) <$> _canwedaTaskList,-                  ("taskPriority" .=) <$> _canwedaTaskPriority,-                  ("childPolicy" .=) <$> _canwedaChildPolicy])---- | Provides details of the @ContinueAsNewWorkflowExecutionFailed@ event.------------ /See:/ 'continueAsNewWorkflowExecutionFailedEventAttributes' smart constructor.-data ContinueAsNewWorkflowExecutionFailedEventAttributes = ContinueAsNewWorkflowExecutionFailedEventAttributes'-    { _canwefeaCause                        :: !ContinueAsNewWorkflowExecutionFailedCause-    , _canwefeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ContinueAsNewWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'canwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'canwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-continueAsNewWorkflowExecutionFailedEventAttributes-    :: ContinueAsNewWorkflowExecutionFailedCause -- ^ 'canwefeaCause'-    -> Integer -- ^ 'canwefeaDecisionTaskCompletedEventId'-    -> ContinueAsNewWorkflowExecutionFailedEventAttributes-continueAsNewWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =-    ContinueAsNewWorkflowExecutionFailedEventAttributes'-    { _canwefeaCause = pCause_-    , _canwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-canwefeaCause :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes ContinueAsNewWorkflowExecutionFailedCause-canwefeaCause = lens _canwefeaCause (\ s a -> s{_canwefeaCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-canwefeaDecisionTaskCompletedEventId :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes Integer-canwefeaDecisionTaskCompletedEventId = lens _canwefeaDecisionTaskCompletedEventId (\ s a -> s{_canwefeaDecisionTaskCompletedEventId = a});--instance FromJSON-         ContinueAsNewWorkflowExecutionFailedEventAttributes-         where-        parseJSON-          = withObject-              "ContinueAsNewWorkflowExecutionFailedEventAttributes"-              (\ x ->-                 ContinueAsNewWorkflowExecutionFailedEventAttributes'-                   <$>-                   (x .: "cause") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable-         ContinueAsNewWorkflowExecutionFailedEventAttributes--instance NFData-         ContinueAsNewWorkflowExecutionFailedEventAttributes---- | Specifies a decision made by the decider. A decision can be one of these types:---------     * __CancelTimer__ : cancels a previously started timer and records a @TimerCanceled@ event in the history.    * __CancelWorkflowExecution__ : closes the workflow execution and records a @WorkflowExecutionCanceled@ event in the history.    * __CompleteWorkflowExecution__ : closes the workflow execution and records a @WorkflowExecutionCompleted@ event in the history .    * __ContinueAsNewWorkflowExecution__ : closes the workflow execution and starts a new workflow execution of the same type using the same workflow ID and a unique run ID. A @WorkflowExecutionContinuedAsNew@ event is recorded in the history.    * __FailWorkflowExecution__ : closes the workflow execution and records a @WorkflowExecutionFailed@ event in the history.    * __RecordMarker__ : records a @MarkerRecorded@ event in the history. Markers can be used for adding custom information in the history for instance to let deciders know that they do not need to look at the history beyond the marker event.    * __RequestCancelActivityTask__ : attempts to cancel a previously scheduled activity task. If the activity task was scheduled but has not been assigned to a worker, then it will be canceled. If the activity task was already assigned to a worker, then the worker will be informed that cancellation has been requested in the response to 'RecordActivityTaskHeartbeat' .    * __RequestCancelExternalWorkflowExecution__ : requests that a request be made to cancel the specified external workflow execution and records a @RequestCancelExternalWorkflowExecutionInitiated@ event in the history.    * __ScheduleActivityTask__ : schedules an activity task.    * __ScheduleLambdaFunction__ : schedules a AWS Lambda function.    * __SignalExternalWorkflowExecution__ : requests a signal to be delivered to the specified external workflow execution and records a @SignalExternalWorkflowExecutionInitiated@ event in the history.    * __StartChildWorkflowExecution__ : requests that a child workflow execution be started and records a @StartChildWorkflowExecutionInitiated@ event in the history. The child workflow execution is a separate workflow execution with its own history.    * __StartTimer__ : starts a timer for this workflow execution and records a @TimerStarted@ event in the history. This timer will fire after the specified delay and record a @TimerFired@ event.------ __Access Control__------ If you grant permission to use @RespondDecisionTaskCompleted@ , you can use IAM policies to express permissions for the list of decisions returned by this action as if they were members of the API. Treating decisions as a pseudo API maintains a uniform conceptual model and helps keep policies readable. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .------ __Decision Failure__------ Decisions can fail for several reasons------     * The ordering of decisions should follow a logical flow. Some decisions might not make sense in the current context of the workflow execution and will therefore fail.    * A limit on your account was reached.    * The decision lacks sufficient permissions.------ One of the following events might be added to the history to indicate an error. The event attribute's __cause__ parameter indicates the cause. If __cause__ is set to OPERATION_NOT_PERMITTED, the decision failed because it lacked sufficient permissions. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .------     * __ScheduleActivityTaskFailed__ : a ScheduleActivityTask decision failed. This could happen if the activity type specified in the decision is not registered, is in a deprecated state, or the decision is not properly configured.    * __ScheduleLambdaFunctionFailed__ : a ScheduleLambdaFunctionFailed decision failed. This could happen if the AWS Lambda function specified in the decision does not exist, or the AWS Lambda service's limits are exceeded.    * __RequestCancelActivityTaskFailed__ : a RequestCancelActivityTask decision failed. This could happen if there is no open activity task with the specified activityId.    * __StartTimerFailed__ : a StartTimer decision failed. This could happen if there is another open timer with the same timerId.    * __CancelTimerFailed__ : a CancelTimer decision failed. This could happen if there is no open timer with the specified timerId.    * __StartChildWorkflowExecutionFailed__ : a StartChildWorkflowExecution decision failed. This could happen if the workflow type specified is not registered, is deprecated, or the decision is not properly configured.    * __SignalExternalWorkflowExecutionFailed__ : a SignalExternalWorkflowExecution decision failed. This could happen if the @workflowID@ specified in the decision was incorrect.    * __RequestCancelExternalWorkflowExecutionFailed__ : a RequestCancelExternalWorkflowExecution decision failed. This could happen if the @workflowID@ specified in the decision was incorrect.    * __CancelWorkflowExecutionFailed__ : a CancelWorkflowExecution decision failed. This could happen if there is an unhandled decision task pending in the workflow execution.    * __CompleteWorkflowExecutionFailed__ : a CompleteWorkflowExecution decision failed. This could happen if there is an unhandled decision task pending in the workflow execution.    * __ContinueAsNewWorkflowExecutionFailed__ : a ContinueAsNewWorkflowExecution decision failed. This could happen if there is an unhandled decision task pending in the workflow execution or the ContinueAsNewWorkflowExecution decision was not configured correctly.    * __FailWorkflowExecutionFailed__ : a FailWorkflowExecution decision failed. This could happen if there is an unhandled decision task pending in the workflow execution.------ The preceding error events might occur due to an error in the decider logic, which might put the workflow execution in an unstable state The cause field in the event structure for the error event indicates the cause of the error.------ __How to code a decision__------ You code a decision by first setting the decision type field to one of the above decision values, and then set the corresponding attributes field shown below:------     * 'ScheduleActivityTaskDecisionAttributes'     * 'ScheduleLambdaFunctionDecisionAttributes'     * 'RequestCancelActivityTaskDecisionAttributes'     * 'CompleteWorkflowExecutionDecisionAttributes'     * 'FailWorkflowExecutionDecisionAttributes'     * 'CancelWorkflowExecutionDecisionAttributes'     * 'ContinueAsNewWorkflowExecutionDecisionAttributes'     * 'RecordMarkerDecisionAttributes'     * 'StartTimerDecisionAttributes'     * 'CancelTimerDecisionAttributes'     * 'SignalExternalWorkflowExecutionDecisionAttributes'     * 'RequestCancelExternalWorkflowExecutionDecisionAttributes'     * 'StartChildWorkflowExecutionDecisionAttributes'--------- /See:/ 'decision' smart constructor.-data Decision = Decision'-    { _dRequestCancelExternalWorkflowExecutionDecisionAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes)-    , _dScheduleActivityTaskDecisionAttributes                   :: !(Maybe ScheduleActivityTaskDecisionAttributes)-    , _dSignalExternalWorkflowExecutionDecisionAttributes        :: !(Maybe SignalExternalWorkflowExecutionDecisionAttributes)-    , _dStartTimerDecisionAttributes                             :: !(Maybe StartTimerDecisionAttributes)-    , _dRecordMarkerDecisionAttributes                           :: !(Maybe RecordMarkerDecisionAttributes)-    , _dFailWorkflowExecutionDecisionAttributes                  :: !(Maybe FailWorkflowExecutionDecisionAttributes)-    , _dStartChildWorkflowExecutionDecisionAttributes            :: !(Maybe StartChildWorkflowExecutionDecisionAttributes)-    , _dCompleteWorkflowExecutionDecisionAttributes              :: !(Maybe CompleteWorkflowExecutionDecisionAttributes)-    , _dScheduleLambdaFunctionDecisionAttributes                 :: !(Maybe ScheduleLambdaFunctionDecisionAttributes)-    , _dRequestCancelActivityTaskDecisionAttributes              :: !(Maybe RequestCancelActivityTaskDecisionAttributes)-    , _dCancelWorkflowExecutionDecisionAttributes                :: !(Maybe CancelWorkflowExecutionDecisionAttributes)-    , _dCancelTimerDecisionAttributes                            :: !(Maybe CancelTimerDecisionAttributes)-    , _dContinueAsNewWorkflowExecutionDecisionAttributes         :: !(Maybe ContinueAsNewWorkflowExecutionDecisionAttributes)-    , _dDecisionType                                             :: !DecisionType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Decision' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dRequestCancelExternalWorkflowExecutionDecisionAttributes' - Provides details of the @RequestCancelExternalWorkflowExecution@ decision. It is not set for other decision types.------ * 'dScheduleActivityTaskDecisionAttributes' - Provides details of the @ScheduleActivityTask@ decision. It is not set for other decision types.------ * 'dSignalExternalWorkflowExecutionDecisionAttributes' - Provides details of the @SignalExternalWorkflowExecution@ decision. It is not set for other decision types.------ * 'dStartTimerDecisionAttributes' - Provides details of the @StartTimer@ decision. It is not set for other decision types.------ * 'dRecordMarkerDecisionAttributes' - Provides details of the @RecordMarker@ decision. It is not set for other decision types.------ * 'dFailWorkflowExecutionDecisionAttributes' - Provides details of the @FailWorkflowExecution@ decision. It is not set for other decision types.------ * 'dStartChildWorkflowExecutionDecisionAttributes' - Provides details of the @StartChildWorkflowExecution@ decision. It is not set for other decision types.------ * 'dCompleteWorkflowExecutionDecisionAttributes' - Provides details of the @CompleteWorkflowExecution@ decision. It is not set for other decision types.------ * 'dScheduleLambdaFunctionDecisionAttributes' - Undocumented member.------ * 'dRequestCancelActivityTaskDecisionAttributes' - Provides details of the @RequestCancelActivityTask@ decision. It is not set for other decision types.------ * 'dCancelWorkflowExecutionDecisionAttributes' - Provides details of the @CancelWorkflowExecution@ decision. It is not set for other decision types.------ * 'dCancelTimerDecisionAttributes' - Provides details of the @CancelTimer@ decision. It is not set for other decision types.------ * 'dContinueAsNewWorkflowExecutionDecisionAttributes' - Provides details of the @ContinueAsNewWorkflowExecution@ decision. It is not set for other decision types.------ * 'dDecisionType' - Specifies the type of the decision.-decision-    :: DecisionType -- ^ 'dDecisionType'-    -> Decision-decision pDecisionType_ =-    Decision'-    { _dRequestCancelExternalWorkflowExecutionDecisionAttributes = Nothing-    , _dScheduleActivityTaskDecisionAttributes = Nothing-    , _dSignalExternalWorkflowExecutionDecisionAttributes = Nothing-    , _dStartTimerDecisionAttributes = Nothing-    , _dRecordMarkerDecisionAttributes = Nothing-    , _dFailWorkflowExecutionDecisionAttributes = Nothing-    , _dStartChildWorkflowExecutionDecisionAttributes = Nothing-    , _dCompleteWorkflowExecutionDecisionAttributes = Nothing-    , _dScheduleLambdaFunctionDecisionAttributes = Nothing-    , _dRequestCancelActivityTaskDecisionAttributes = Nothing-    , _dCancelWorkflowExecutionDecisionAttributes = Nothing-    , _dCancelTimerDecisionAttributes = Nothing-    , _dContinueAsNewWorkflowExecutionDecisionAttributes = Nothing-    , _dDecisionType = pDecisionType_-    }---- | Provides details of the @RequestCancelExternalWorkflowExecution@ decision. It is not set for other decision types.-dRequestCancelExternalWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes)-dRequestCancelExternalWorkflowExecutionDecisionAttributes = lens _dRequestCancelExternalWorkflowExecutionDecisionAttributes (\ s a -> s{_dRequestCancelExternalWorkflowExecutionDecisionAttributes = a});---- | Provides details of the @ScheduleActivityTask@ decision. It is not set for other decision types.-dScheduleActivityTaskDecisionAttributes :: Lens' Decision (Maybe ScheduleActivityTaskDecisionAttributes)-dScheduleActivityTaskDecisionAttributes = lens _dScheduleActivityTaskDecisionAttributes (\ s a -> s{_dScheduleActivityTaskDecisionAttributes = a});---- | Provides details of the @SignalExternalWorkflowExecution@ decision. It is not set for other decision types.-dSignalExternalWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe SignalExternalWorkflowExecutionDecisionAttributes)-dSignalExternalWorkflowExecutionDecisionAttributes = lens _dSignalExternalWorkflowExecutionDecisionAttributes (\ s a -> s{_dSignalExternalWorkflowExecutionDecisionAttributes = a});---- | Provides details of the @StartTimer@ decision. It is not set for other decision types.-dStartTimerDecisionAttributes :: Lens' Decision (Maybe StartTimerDecisionAttributes)-dStartTimerDecisionAttributes = lens _dStartTimerDecisionAttributes (\ s a -> s{_dStartTimerDecisionAttributes = a});---- | Provides details of the @RecordMarker@ decision. It is not set for other decision types.-dRecordMarkerDecisionAttributes :: Lens' Decision (Maybe RecordMarkerDecisionAttributes)-dRecordMarkerDecisionAttributes = lens _dRecordMarkerDecisionAttributes (\ s a -> s{_dRecordMarkerDecisionAttributes = a});---- | Provides details of the @FailWorkflowExecution@ decision. It is not set for other decision types.-dFailWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe FailWorkflowExecutionDecisionAttributes)-dFailWorkflowExecutionDecisionAttributes = lens _dFailWorkflowExecutionDecisionAttributes (\ s a -> s{_dFailWorkflowExecutionDecisionAttributes = a});---- | Provides details of the @StartChildWorkflowExecution@ decision. It is not set for other decision types.-dStartChildWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe StartChildWorkflowExecutionDecisionAttributes)-dStartChildWorkflowExecutionDecisionAttributes = lens _dStartChildWorkflowExecutionDecisionAttributes (\ s a -> s{_dStartChildWorkflowExecutionDecisionAttributes = a});---- | Provides details of the @CompleteWorkflowExecution@ decision. It is not set for other decision types.-dCompleteWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe CompleteWorkflowExecutionDecisionAttributes)-dCompleteWorkflowExecutionDecisionAttributes = lens _dCompleteWorkflowExecutionDecisionAttributes (\ s a -> s{_dCompleteWorkflowExecutionDecisionAttributes = a});---- | Undocumented member.-dScheduleLambdaFunctionDecisionAttributes :: Lens' Decision (Maybe ScheduleLambdaFunctionDecisionAttributes)-dScheduleLambdaFunctionDecisionAttributes = lens _dScheduleLambdaFunctionDecisionAttributes (\ s a -> s{_dScheduleLambdaFunctionDecisionAttributes = a});---- | Provides details of the @RequestCancelActivityTask@ decision. It is not set for other decision types.-dRequestCancelActivityTaskDecisionAttributes :: Lens' Decision (Maybe RequestCancelActivityTaskDecisionAttributes)-dRequestCancelActivityTaskDecisionAttributes = lens _dRequestCancelActivityTaskDecisionAttributes (\ s a -> s{_dRequestCancelActivityTaskDecisionAttributes = a});---- | Provides details of the @CancelWorkflowExecution@ decision. It is not set for other decision types.-dCancelWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe CancelWorkflowExecutionDecisionAttributes)-dCancelWorkflowExecutionDecisionAttributes = lens _dCancelWorkflowExecutionDecisionAttributes (\ s a -> s{_dCancelWorkflowExecutionDecisionAttributes = a});---- | Provides details of the @CancelTimer@ decision. It is not set for other decision types.-dCancelTimerDecisionAttributes :: Lens' Decision (Maybe CancelTimerDecisionAttributes)-dCancelTimerDecisionAttributes = lens _dCancelTimerDecisionAttributes (\ s a -> s{_dCancelTimerDecisionAttributes = a});---- | Provides details of the @ContinueAsNewWorkflowExecution@ decision. It is not set for other decision types.-dContinueAsNewWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe ContinueAsNewWorkflowExecutionDecisionAttributes)-dContinueAsNewWorkflowExecutionDecisionAttributes = lens _dContinueAsNewWorkflowExecutionDecisionAttributes (\ s a -> s{_dContinueAsNewWorkflowExecutionDecisionAttributes = a});---- | Specifies the type of the decision.-dDecisionType :: Lens' Decision DecisionType-dDecisionType = lens _dDecisionType (\ s a -> s{_dDecisionType = a});--instance Hashable Decision--instance NFData Decision--instance ToJSON Decision where-        toJSON Decision'{..}-          = object-              (catMaybes-                 [("requestCancelExternalWorkflowExecutionDecisionAttributes"-                     .=)-                    <$>-                    _dRequestCancelExternalWorkflowExecutionDecisionAttributes,-                  ("scheduleActivityTaskDecisionAttributes" .=) <$>-                    _dScheduleActivityTaskDecisionAttributes,-                  ("signalExternalWorkflowExecutionDecisionAttributes"-                     .=)-                    <$>-                    _dSignalExternalWorkflowExecutionDecisionAttributes,-                  ("startTimerDecisionAttributes" .=) <$>-                    _dStartTimerDecisionAttributes,-                  ("recordMarkerDecisionAttributes" .=) <$>-                    _dRecordMarkerDecisionAttributes,-                  ("failWorkflowExecutionDecisionAttributes" .=) <$>-                    _dFailWorkflowExecutionDecisionAttributes,-                  ("startChildWorkflowExecutionDecisionAttributes" .=)-                    <$> _dStartChildWorkflowExecutionDecisionAttributes,-                  ("completeWorkflowExecutionDecisionAttributes" .=)-                    <$> _dCompleteWorkflowExecutionDecisionAttributes,-                  ("scheduleLambdaFunctionDecisionAttributes" .=) <$>-                    _dScheduleLambdaFunctionDecisionAttributes,-                  ("requestCancelActivityTaskDecisionAttributes" .=)-                    <$> _dRequestCancelActivityTaskDecisionAttributes,-                  ("cancelWorkflowExecutionDecisionAttributes" .=) <$>-                    _dCancelWorkflowExecutionDecisionAttributes,-                  ("cancelTimerDecisionAttributes" .=) <$>-                    _dCancelTimerDecisionAttributes,-                  ("continueAsNewWorkflowExecutionDecisionAttributes"-                     .=)-                    <$>-                    _dContinueAsNewWorkflowExecutionDecisionAttributes,-                  Just ("decisionType" .= _dDecisionType)])---- | Provides details of the @DecisionTaskCompleted@ event.------------ /See:/ 'decisionTaskCompletedEventAttributes' smart constructor.-data DecisionTaskCompletedEventAttributes = DecisionTaskCompletedEventAttributes'-    { _dtceaExecutionContext :: !(Maybe Text)-    , _dtceaScheduledEventId :: !Integer-    , _dtceaStartedEventId   :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DecisionTaskCompletedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtceaExecutionContext' - User defined context for the workflow execution.------ * 'dtceaScheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'dtceaStartedEventId' - The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-decisionTaskCompletedEventAttributes-    :: Integer -- ^ 'dtceaScheduledEventId'-    -> Integer -- ^ 'dtceaStartedEventId'-    -> DecisionTaskCompletedEventAttributes-decisionTaskCompletedEventAttributes pScheduledEventId_ pStartedEventId_ =-    DecisionTaskCompletedEventAttributes'-    { _dtceaExecutionContext = Nothing-    , _dtceaScheduledEventId = pScheduledEventId_-    , _dtceaStartedEventId = pStartedEventId_-    }---- | User defined context for the workflow execution.-dtceaExecutionContext :: Lens' DecisionTaskCompletedEventAttributes (Maybe Text)-dtceaExecutionContext = lens _dtceaExecutionContext (\ s a -> s{_dtceaExecutionContext = a});---- | The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-dtceaScheduledEventId :: Lens' DecisionTaskCompletedEventAttributes Integer-dtceaScheduledEventId = lens _dtceaScheduledEventId (\ s a -> s{_dtceaScheduledEventId = a});---- | The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-dtceaStartedEventId :: Lens' DecisionTaskCompletedEventAttributes Integer-dtceaStartedEventId = lens _dtceaStartedEventId (\ s a -> s{_dtceaStartedEventId = a});--instance FromJSON-         DecisionTaskCompletedEventAttributes where-        parseJSON-          = withObject "DecisionTaskCompletedEventAttributes"-              (\ x ->-                 DecisionTaskCompletedEventAttributes' <$>-                   (x .:? "executionContext") <*>-                     (x .: "scheduledEventId")-                     <*> (x .: "startedEventId"))--instance Hashable-         DecisionTaskCompletedEventAttributes--instance NFData DecisionTaskCompletedEventAttributes---- | Provides details about the @DecisionTaskScheduled@ event.------------ /See:/ 'decisionTaskScheduledEventAttributes' smart constructor.-data DecisionTaskScheduledEventAttributes = DecisionTaskScheduledEventAttributes'-    { _dtseaTaskPriority        :: !(Maybe Text)-    , _dtseaStartToCloseTimeout :: !(Maybe Text)-    , _dtseaTaskList            :: !TaskList-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DecisionTaskScheduledEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtseaTaskPriority' - /Optional./ A task priority that, if set, specifies the priority for this decision task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .------ * 'dtseaStartToCloseTimeout' - The maximum duration for this decision task. The task is considered timed out if it does not completed within this duration. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'dtseaTaskList' - The name of the task list in which the decision task was scheduled.-decisionTaskScheduledEventAttributes-    :: TaskList -- ^ 'dtseaTaskList'-    -> DecisionTaskScheduledEventAttributes-decisionTaskScheduledEventAttributes pTaskList_ =-    DecisionTaskScheduledEventAttributes'-    { _dtseaTaskPriority = Nothing-    , _dtseaStartToCloseTimeout = Nothing-    , _dtseaTaskList = pTaskList_-    }---- | /Optional./ A task priority that, if set, specifies the priority for this decision task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .-dtseaTaskPriority :: Lens' DecisionTaskScheduledEventAttributes (Maybe Text)-dtseaTaskPriority = lens _dtseaTaskPriority (\ s a -> s{_dtseaTaskPriority = a});---- | The maximum duration for this decision task. The task is considered timed out if it does not completed within this duration. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-dtseaStartToCloseTimeout :: Lens' DecisionTaskScheduledEventAttributes (Maybe Text)-dtseaStartToCloseTimeout = lens _dtseaStartToCloseTimeout (\ s a -> s{_dtseaStartToCloseTimeout = a});---- | The name of the task list in which the decision task was scheduled.-dtseaTaskList :: Lens' DecisionTaskScheduledEventAttributes TaskList-dtseaTaskList = lens _dtseaTaskList (\ s a -> s{_dtseaTaskList = a});--instance FromJSON-         DecisionTaskScheduledEventAttributes where-        parseJSON-          = withObject "DecisionTaskScheduledEventAttributes"-              (\ x ->-                 DecisionTaskScheduledEventAttributes' <$>-                   (x .:? "taskPriority") <*>-                     (x .:? "startToCloseTimeout")-                     <*> (x .: "taskList"))--instance Hashable-         DecisionTaskScheduledEventAttributes--instance NFData DecisionTaskScheduledEventAttributes---- | Provides details of the @DecisionTaskStarted@ event.------------ /See:/ 'decisionTaskStartedEventAttributes' smart constructor.-data DecisionTaskStartedEventAttributes = DecisionTaskStartedEventAttributes'-    { _dtseaIdentity         :: !(Maybe Text)-    , _dtseaScheduledEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DecisionTaskStartedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtseaIdentity' - Identity of the decider making the request. This enables diagnostic tracing when problems arise. The form of this identity is user defined.------ * 'dtseaScheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-decisionTaskStartedEventAttributes-    :: Integer -- ^ 'dtseaScheduledEventId'-    -> DecisionTaskStartedEventAttributes-decisionTaskStartedEventAttributes pScheduledEventId_ =-    DecisionTaskStartedEventAttributes'-    { _dtseaIdentity = Nothing-    , _dtseaScheduledEventId = pScheduledEventId_-    }---- | Identity of the decider making the request. This enables diagnostic tracing when problems arise. The form of this identity is user defined.-dtseaIdentity :: Lens' DecisionTaskStartedEventAttributes (Maybe Text)-dtseaIdentity = lens _dtseaIdentity (\ s a -> s{_dtseaIdentity = a});---- | The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-dtseaScheduledEventId :: Lens' DecisionTaskStartedEventAttributes Integer-dtseaScheduledEventId = lens _dtseaScheduledEventId (\ s a -> s{_dtseaScheduledEventId = a});--instance FromJSON DecisionTaskStartedEventAttributes-         where-        parseJSON-          = withObject "DecisionTaskStartedEventAttributes"-              (\ x ->-                 DecisionTaskStartedEventAttributes' <$>-                   (x .:? "identity") <*> (x .: "scheduledEventId"))--instance Hashable DecisionTaskStartedEventAttributes--instance NFData DecisionTaskStartedEventAttributes---- | Provides details of the @DecisionTaskTimedOut@ event.------------ /See:/ 'decisionTaskTimedOutEventAttributes' smart constructor.-data DecisionTaskTimedOutEventAttributes = DecisionTaskTimedOutEventAttributes'-    { _dttoeaTimeoutType      :: !DecisionTaskTimeoutType-    , _dttoeaScheduledEventId :: !Integer-    , _dttoeaStartedEventId   :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DecisionTaskTimedOutEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dttoeaTimeoutType' - The type of timeout that expired before the decision task could be completed.------ * 'dttoeaScheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'dttoeaStartedEventId' - The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-decisionTaskTimedOutEventAttributes-    :: DecisionTaskTimeoutType -- ^ 'dttoeaTimeoutType'-    -> Integer -- ^ 'dttoeaScheduledEventId'-    -> Integer -- ^ 'dttoeaStartedEventId'-    -> DecisionTaskTimedOutEventAttributes-decisionTaskTimedOutEventAttributes pTimeoutType_ pScheduledEventId_ pStartedEventId_ =-    DecisionTaskTimedOutEventAttributes'-    { _dttoeaTimeoutType = pTimeoutType_-    , _dttoeaScheduledEventId = pScheduledEventId_-    , _dttoeaStartedEventId = pStartedEventId_-    }---- | The type of timeout that expired before the decision task could be completed.-dttoeaTimeoutType :: Lens' DecisionTaskTimedOutEventAttributes DecisionTaskTimeoutType-dttoeaTimeoutType = lens _dttoeaTimeoutType (\ s a -> s{_dttoeaTimeoutType = a});---- | The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-dttoeaScheduledEventId :: Lens' DecisionTaskTimedOutEventAttributes Integer-dttoeaScheduledEventId = lens _dttoeaScheduledEventId (\ s a -> s{_dttoeaScheduledEventId = a});---- | The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-dttoeaStartedEventId :: Lens' DecisionTaskTimedOutEventAttributes Integer-dttoeaStartedEventId = lens _dttoeaStartedEventId (\ s a -> s{_dttoeaStartedEventId = a});--instance FromJSON DecisionTaskTimedOutEventAttributes-         where-        parseJSON-          = withObject "DecisionTaskTimedOutEventAttributes"-              (\ x ->-                 DecisionTaskTimedOutEventAttributes' <$>-                   (x .: "timeoutType") <*> (x .: "scheduledEventId")-                     <*> (x .: "startedEventId"))--instance Hashable DecisionTaskTimedOutEventAttributes--instance NFData DecisionTaskTimedOutEventAttributes---- | Contains the configuration settings of a domain.------------ /See:/ 'domainConfiguration' smart constructor.-newtype DomainConfiguration = DomainConfiguration'-    { _dcWorkflowExecutionRetentionPeriodInDays :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DomainConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcWorkflowExecutionRetentionPeriodInDays' - The retention period for workflow executions in this domain.-domainConfiguration-    :: Text -- ^ 'dcWorkflowExecutionRetentionPeriodInDays'-    -> DomainConfiguration-domainConfiguration pWorkflowExecutionRetentionPeriodInDays_ =-    DomainConfiguration'-    { _dcWorkflowExecutionRetentionPeriodInDays = pWorkflowExecutionRetentionPeriodInDays_-    }---- | The retention period for workflow executions in this domain.-dcWorkflowExecutionRetentionPeriodInDays :: Lens' DomainConfiguration Text-dcWorkflowExecutionRetentionPeriodInDays = lens _dcWorkflowExecutionRetentionPeriodInDays (\ s a -> s{_dcWorkflowExecutionRetentionPeriodInDays = a});--instance FromJSON DomainConfiguration where-        parseJSON-          = withObject "DomainConfiguration"-              (\ x ->-                 DomainConfiguration' <$>-                   (x .: "workflowExecutionRetentionPeriodInDays"))--instance Hashable DomainConfiguration--instance NFData DomainConfiguration---- | Contains general information about a domain.------------ /See:/ 'domainInfo' smart constructor.-data DomainInfo = DomainInfo'-    { _diDescription :: !(Maybe Text)-    , _diName        :: !Text-    , _diStatus      :: !RegistrationStatus-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DomainInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'diDescription' - The description of the domain provided through 'RegisterDomain' .------ * 'diName' - The name of the domain. This name is unique within the account.------ * 'diStatus' - The status of the domain:     * __REGISTERED__ : The domain is properly registered and available. You can use this domain for registering types and creating new workflow executions.     * __DEPRECATED__ : The domain was deprecated using 'DeprecateDomain' , but is still in use. You should not create new workflow executions in this domain.-domainInfo-    :: Text -- ^ 'diName'-    -> RegistrationStatus -- ^ 'diStatus'-    -> DomainInfo-domainInfo pName_ pStatus_ =-    DomainInfo'-    { _diDescription = Nothing-    , _diName = pName_-    , _diStatus = pStatus_-    }---- | The description of the domain provided through 'RegisterDomain' .-diDescription :: Lens' DomainInfo (Maybe Text)-diDescription = lens _diDescription (\ s a -> s{_diDescription = a});---- | The name of the domain. This name is unique within the account.-diName :: Lens' DomainInfo Text-diName = lens _diName (\ s a -> s{_diName = a});---- | The status of the domain:     * __REGISTERED__ : The domain is properly registered and available. You can use this domain for registering types and creating new workflow executions.     * __DEPRECATED__ : The domain was deprecated using 'DeprecateDomain' , but is still in use. You should not create new workflow executions in this domain.-diStatus :: Lens' DomainInfo RegistrationStatus-diStatus = lens _diStatus (\ s a -> s{_diStatus = a});--instance FromJSON DomainInfo where-        parseJSON-          = withObject "DomainInfo"-              (\ x ->-                 DomainInfo' <$>-                   (x .:? "description") <*> (x .: "name") <*>-                     (x .: "status"))--instance Hashable DomainInfo--instance NFData DomainInfo---- | Used to filter the workflow executions in visibility APIs by various time-based rules. Each parameter, if specified, defines a rule that must be satisfied by each returned query result. The parameter values are in the <https://en.wikipedia.org/wiki/Unix_time Unix Time format> . For example: @"oldestDate": 1325376070.@------------ /See:/ 'executionTimeFilter' smart constructor.-data ExecutionTimeFilter = ExecutionTimeFilter'-    { _etfLatestDate :: !(Maybe POSIX)-    , _etfOldestDate :: !POSIX-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ExecutionTimeFilter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'etfLatestDate' - Specifies the latest start or close date and time to return.------ * 'etfOldestDate' - Specifies the oldest start or close date and time to return.-executionTimeFilter-    :: UTCTime -- ^ 'etfOldestDate'-    -> ExecutionTimeFilter-executionTimeFilter pOldestDate_ =-    ExecutionTimeFilter'-    { _etfLatestDate = Nothing-    , _etfOldestDate = _Time # pOldestDate_-    }---- | Specifies the latest start or close date and time to return.-etfLatestDate :: Lens' ExecutionTimeFilter (Maybe UTCTime)-etfLatestDate = lens _etfLatestDate (\ s a -> s{_etfLatestDate = a}) . mapping _Time;---- | Specifies the oldest start or close date and time to return.-etfOldestDate :: Lens' ExecutionTimeFilter UTCTime-etfOldestDate = lens _etfOldestDate (\ s a -> s{_etfOldestDate = a}) . _Time;--instance Hashable ExecutionTimeFilter--instance NFData ExecutionTimeFilter--instance ToJSON ExecutionTimeFilter where-        toJSON ExecutionTimeFilter'{..}-          = object-              (catMaybes-                 [("latestDate" .=) <$> _etfLatestDate,-                  Just ("oldestDate" .= _etfOldestDate)])---- | Provides details of the @ExternalWorkflowExecutionCancelRequested@ event.------------ /See:/ 'externalWorkflowExecutionCancelRequestedEventAttributes' smart constructor.-data ExternalWorkflowExecutionCancelRequestedEventAttributes = ExternalWorkflowExecutionCancelRequestedEventAttributes'-    { _ewecreaWorkflowExecution :: !WorkflowExecution-    , _ewecreaInitiatedEventId  :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ExternalWorkflowExecutionCancelRequestedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ewecreaWorkflowExecution' - The external workflow execution to which the cancellation request was delivered.------ * 'ewecreaInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-externalWorkflowExecutionCancelRequestedEventAttributes-    :: WorkflowExecution -- ^ 'ewecreaWorkflowExecution'-    -> Integer -- ^ 'ewecreaInitiatedEventId'-    -> ExternalWorkflowExecutionCancelRequestedEventAttributes-externalWorkflowExecutionCancelRequestedEventAttributes pWorkflowExecution_ pInitiatedEventId_ =-    ExternalWorkflowExecutionCancelRequestedEventAttributes'-    { _ewecreaWorkflowExecution = pWorkflowExecution_-    , _ewecreaInitiatedEventId = pInitiatedEventId_-    }---- | The external workflow execution to which the cancellation request was delivered.-ewecreaWorkflowExecution :: Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes WorkflowExecution-ewecreaWorkflowExecution = lens _ewecreaWorkflowExecution (\ s a -> s{_ewecreaWorkflowExecution = a});---- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-ewecreaInitiatedEventId :: Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes Integer-ewecreaInitiatedEventId = lens _ewecreaInitiatedEventId (\ s a -> s{_ewecreaInitiatedEventId = a});--instance FromJSON-         ExternalWorkflowExecutionCancelRequestedEventAttributes-         where-        parseJSON-          = withObject-              "ExternalWorkflowExecutionCancelRequestedEventAttributes"-              (\ x ->-                 ExternalWorkflowExecutionCancelRequestedEventAttributes'-                   <$>-                   (x .: "workflowExecution") <*>-                     (x .: "initiatedEventId"))--instance Hashable-         ExternalWorkflowExecutionCancelRequestedEventAttributes--instance NFData-         ExternalWorkflowExecutionCancelRequestedEventAttributes---- | Provides details of the @ExternalWorkflowExecutionSignaled@ event.------------ /See:/ 'externalWorkflowExecutionSignaledEventAttributes' smart constructor.-data ExternalWorkflowExecutionSignaledEventAttributes = ExternalWorkflowExecutionSignaledEventAttributes'-    { _eweseaWorkflowExecution :: !WorkflowExecution-    , _eweseaInitiatedEventId  :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ExternalWorkflowExecutionSignaledEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eweseaWorkflowExecution' - The external workflow execution that the signal was delivered to.------ * 'eweseaInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-externalWorkflowExecutionSignaledEventAttributes-    :: WorkflowExecution -- ^ 'eweseaWorkflowExecution'-    -> Integer -- ^ 'eweseaInitiatedEventId'-    -> ExternalWorkflowExecutionSignaledEventAttributes-externalWorkflowExecutionSignaledEventAttributes pWorkflowExecution_ pInitiatedEventId_ =-    ExternalWorkflowExecutionSignaledEventAttributes'-    { _eweseaWorkflowExecution = pWorkflowExecution_-    , _eweseaInitiatedEventId = pInitiatedEventId_-    }---- | The external workflow execution that the signal was delivered to.-eweseaWorkflowExecution :: Lens' ExternalWorkflowExecutionSignaledEventAttributes WorkflowExecution-eweseaWorkflowExecution = lens _eweseaWorkflowExecution (\ s a -> s{_eweseaWorkflowExecution = a});---- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-eweseaInitiatedEventId :: Lens' ExternalWorkflowExecutionSignaledEventAttributes Integer-eweseaInitiatedEventId = lens _eweseaInitiatedEventId (\ s a -> s{_eweseaInitiatedEventId = a});--instance FromJSON-         ExternalWorkflowExecutionSignaledEventAttributes-         where-        parseJSON-          = withObject-              "ExternalWorkflowExecutionSignaledEventAttributes"-              (\ x ->-                 ExternalWorkflowExecutionSignaledEventAttributes' <$>-                   (x .: "workflowExecution") <*>-                     (x .: "initiatedEventId"))--instance Hashable-         ExternalWorkflowExecutionSignaledEventAttributes--instance NFData-         ExternalWorkflowExecutionSignaledEventAttributes---- | Provides details of the @FailWorkflowExecution@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'failWorkflowExecutionDecisionAttributes' smart constructor.-data FailWorkflowExecutionDecisionAttributes = FailWorkflowExecutionDecisionAttributes'-    { _fwedaReason  :: !(Maybe Text)-    , _fwedaDetails :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'FailWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fwedaReason' - A descriptive reason for the failure that may help in diagnostics.------ * 'fwedaDetails' - /Optional./ Details of the failure.-failWorkflowExecutionDecisionAttributes-    :: FailWorkflowExecutionDecisionAttributes-failWorkflowExecutionDecisionAttributes =-    FailWorkflowExecutionDecisionAttributes'-    { _fwedaReason = Nothing-    , _fwedaDetails = Nothing-    }---- | A descriptive reason for the failure that may help in diagnostics.-fwedaReason :: Lens' FailWorkflowExecutionDecisionAttributes (Maybe Text)-fwedaReason = lens _fwedaReason (\ s a -> s{_fwedaReason = a});---- | /Optional./ Details of the failure.-fwedaDetails :: Lens' FailWorkflowExecutionDecisionAttributes (Maybe Text)-fwedaDetails = lens _fwedaDetails (\ s a -> s{_fwedaDetails = a});--instance Hashable-         FailWorkflowExecutionDecisionAttributes--instance NFData-         FailWorkflowExecutionDecisionAttributes--instance ToJSON-         FailWorkflowExecutionDecisionAttributes where-        toJSON FailWorkflowExecutionDecisionAttributes'{..}-          = object-              (catMaybes-                 [("reason" .=) <$> _fwedaReason,-                  ("details" .=) <$> _fwedaDetails])---- | Provides details of the @FailWorkflowExecutionFailed@ event.------------ /See:/ 'failWorkflowExecutionFailedEventAttributes' smart constructor.-data FailWorkflowExecutionFailedEventAttributes = FailWorkflowExecutionFailedEventAttributes'-    { _fwefeaCause                        :: !FailWorkflowExecutionFailedCause-    , _fwefeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'FailWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'fwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-failWorkflowExecutionFailedEventAttributes-    :: FailWorkflowExecutionFailedCause -- ^ 'fwefeaCause'-    -> Integer -- ^ 'fwefeaDecisionTaskCompletedEventId'-    -> FailWorkflowExecutionFailedEventAttributes-failWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =-    FailWorkflowExecutionFailedEventAttributes'-    { _fwefeaCause = pCause_-    , _fwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-fwefeaCause :: Lens' FailWorkflowExecutionFailedEventAttributes FailWorkflowExecutionFailedCause-fwefeaCause = lens _fwefeaCause (\ s a -> s{_fwefeaCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-fwefeaDecisionTaskCompletedEventId :: Lens' FailWorkflowExecutionFailedEventAttributes Integer-fwefeaDecisionTaskCompletedEventId = lens _fwefeaDecisionTaskCompletedEventId (\ s a -> s{_fwefeaDecisionTaskCompletedEventId = a});--instance FromJSON-         FailWorkflowExecutionFailedEventAttributes where-        parseJSON-          = withObject-              "FailWorkflowExecutionFailedEventAttributes"-              (\ x ->-                 FailWorkflowExecutionFailedEventAttributes' <$>-                   (x .: "cause") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable-         FailWorkflowExecutionFailedEventAttributes--instance NFData-         FailWorkflowExecutionFailedEventAttributes---- | Event within a workflow execution. A history event can be one of these types:---------     * __WorkflowExecutionStarted__ : The workflow execution was started.    * __WorkflowExecutionCompleted__ : The workflow execution was closed due to successful completion.    * __WorkflowExecutionFailed__ : The workflow execution closed due to a failure.    * __WorkflowExecutionTimedOut__ : The workflow execution was closed because a time out was exceeded.    * __WorkflowExecutionCanceled__ : The workflow execution was successfully canceled and closed.    * __WorkflowExecutionTerminated__ : The workflow execution was terminated.    * __WorkflowExecutionContinuedAsNew__ : The workflow execution was closed and a new execution of the same type was created with the same workflowId.    * __WorkflowExecutionCancelRequested__ : A request to cancel this workflow execution was made.    * __DecisionTaskScheduled__ : A decision task was scheduled for the workflow execution.    * __DecisionTaskStarted__ : The decision task was dispatched to a decider.    * __DecisionTaskCompleted__ : The decider successfully completed a decision task by calling 'RespondDecisionTaskCompleted' .    * __DecisionTaskTimedOut__ : The decision task timed out.    * __ActivityTaskScheduled__ : An activity task was scheduled for execution.    * __ScheduleActivityTaskFailed__ : Failed to process ScheduleActivityTask decision. This happens when the decision is not configured properly, for example the activity type specified is not registered.    * __ActivityTaskStarted__ : The scheduled activity task was dispatched to a worker.    * __ActivityTaskCompleted__ : An activity worker successfully completed an activity task by calling 'RespondActivityTaskCompleted' .    * __ActivityTaskFailed__ : An activity worker failed an activity task by calling 'RespondActivityTaskFailed' .    * __ActivityTaskTimedOut__ : The activity task timed out.    * __ActivityTaskCanceled__ : The activity task was successfully canceled.    * __ActivityTaskCancelRequested__ : A @RequestCancelActivityTask@ decision was received by the system.    * __RequestCancelActivityTaskFailed__ : Failed to process RequestCancelActivityTask decision. This happens when the decision is not configured properly.    * __WorkflowExecutionSignaled__ : An external signal was received for the workflow execution.    * __MarkerRecorded__ : A marker was recorded in the workflow history as the result of a @RecordMarker@ decision.    * __TimerStarted__ : A timer was started for the workflow execution due to a @StartTimer@ decision.    * __StartTimerFailed__ : Failed to process StartTimer decision. This happens when the decision is not configured properly, for example a timer already exists with the specified timer ID.    * __TimerFired__ : A timer, previously started for this workflow execution, fired.    * __TimerCanceled__ : A timer, previously started for this workflow execution, was successfully canceled.    * __CancelTimerFailed__ : Failed to process CancelTimer decision. This happens when the decision is not configured properly, for example no timer exists with the specified timer ID.    * __StartChildWorkflowExecutionInitiated__ : A request was made to start a child workflow execution.    * __StartChildWorkflowExecutionFailed__ : Failed to process StartChildWorkflowExecution decision. This happens when the decision is not configured properly, for example the workflow type specified is not registered.    * __ChildWorkflowExecutionStarted__ : A child workflow execution was successfully started.    * __ChildWorkflowExecutionCompleted__ : A child workflow execution, started by this workflow execution, completed successfully and was closed.    * __ChildWorkflowExecutionFailed__ : A child workflow execution, started by this workflow execution, failed to complete successfully and was closed.    * __ChildWorkflowExecutionTimedOut__ : A child workflow execution, started by this workflow execution, timed out and was closed.    * __ChildWorkflowExecutionCanceled__ : A child workflow execution, started by this workflow execution, was canceled and closed.    * __ChildWorkflowExecutionTerminated__ : A child workflow execution, started by this workflow execution, was terminated.    * __SignalExternalWorkflowExecutionInitiated__ : A request to signal an external workflow was made.    * __ExternalWorkflowExecutionSignaled__ : A signal, requested by this workflow execution, was successfully delivered to the target external workflow execution.    * __SignalExternalWorkflowExecutionFailed__ : The request to signal an external workflow execution failed.    * __RequestCancelExternalWorkflowExecutionInitiated__ : A request was made to request the cancellation of an external workflow execution.    * __ExternalWorkflowExecutionCancelRequested__ : Request to cancel an external workflow execution was successfully delivered to the target execution.    * __RequestCancelExternalWorkflowExecutionFailed__ : Request to cancel an external workflow execution failed.    * __LambdaFunctionScheduled__ : An AWS Lambda function was scheduled for execution.    * __LambdaFunctionStarted__ : The scheduled function was invoked in the AWS Lambda service.    * __LambdaFunctionCompleted__ : The AWS Lambda function successfully completed.    * __LambdaFunctionFailed__ : The AWS Lambda function execution failed.    * __LambdaFunctionTimedOut__ : The AWS Lambda function execution timed out.    * __ScheduleLambdaFunctionFailed__ : Failed to process ScheduleLambdaFunction decision. This happens when the workflow execution does not have the proper IAM role attached to invoke AWS Lambda functions.    * __StartLambdaFunctionFailed__ : Failed to invoke the scheduled function in the AWS Lambda service. This happens when the AWS Lambda service is not available in the current region, or received too many requests.--------- /See:/ 'historyEvent' smart constructor.-data HistoryEvent = HistoryEvent'-    { _heWorkflowExecutionCancelRequestedEventAttributes                :: !(Maybe WorkflowExecutionCancelRequestedEventAttributes)-    , _heRecordMarkerFailedEventAttributes                              :: !(Maybe RecordMarkerFailedEventAttributes)-    , _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes)-    , _heLambdaFunctionStartedEventAttributes                           :: !(Maybe LambdaFunctionStartedEventAttributes)-    , _heDecisionTaskScheduledEventAttributes                           :: !(Maybe DecisionTaskScheduledEventAttributes)-    , _heWorkflowExecutionCompletedEventAttributes                      :: !(Maybe WorkflowExecutionCompletedEventAttributes)-    , _heStartTimerFailedEventAttributes                                :: !(Maybe StartTimerFailedEventAttributes)-    , _heActivityTaskScheduledEventAttributes                           :: !(Maybe ActivityTaskScheduledEventAttributes)-    , _heScheduleActivityTaskFailedEventAttributes                      :: !(Maybe ScheduleActivityTaskFailedEventAttributes)-    , _heChildWorkflowExecutionCompletedEventAttributes                 :: !(Maybe ChildWorkflowExecutionCompletedEventAttributes)-    , _heMarkerRecordedEventAttributes                                  :: !(Maybe MarkerRecordedEventAttributes)-    , _heScheduleLambdaFunctionFailedEventAttributes                    :: !(Maybe ScheduleLambdaFunctionFailedEventAttributes)-    , _heCompleteWorkflowExecutionFailedEventAttributes                 :: !(Maybe CompleteWorkflowExecutionFailedEventAttributes)-    , _heLambdaFunctionCompletedEventAttributes                         :: !(Maybe LambdaFunctionCompletedEventAttributes)-    , _heRequestCancelExternalWorkflowExecutionFailedEventAttributes    :: !(Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes)-    , _heTimerCanceledEventAttributes                                   :: !(Maybe TimerCanceledEventAttributes)-    , _heWorkflowExecutionStartedEventAttributes                        :: !(Maybe WorkflowExecutionStartedEventAttributes)-    , _heActivityTaskCompletedEventAttributes                           :: !(Maybe ActivityTaskCompletedEventAttributes)-    , _heDecisionTaskTimedOutEventAttributes                            :: !(Maybe DecisionTaskTimedOutEventAttributes)-    , _heCancelTimerFailedEventAttributes                               :: !(Maybe CancelTimerFailedEventAttributes)-    , _heChildWorkflowExecutionStartedEventAttributes                   :: !(Maybe ChildWorkflowExecutionStartedEventAttributes)-    , _heActivityTaskCanceledEventAttributes                            :: !(Maybe ActivityTaskCanceledEventAttributes)-    , _heActivityTaskTimedOutEventAttributes                            :: !(Maybe ActivityTaskTimedOutEventAttributes)-    , _heDecisionTaskStartedEventAttributes                             :: !(Maybe DecisionTaskStartedEventAttributes)-    , _heWorkflowExecutionTerminatedEventAttributes                     :: !(Maybe WorkflowExecutionTerminatedEventAttributes)-    , _heChildWorkflowExecutionCanceledEventAttributes                  :: !(Maybe ChildWorkflowExecutionCanceledEventAttributes)-    , _heRequestCancelActivityTaskFailedEventAttributes                 :: !(Maybe RequestCancelActivityTaskFailedEventAttributes)-    , _heLambdaFunctionScheduledEventAttributes                         :: !(Maybe LambdaFunctionScheduledEventAttributes)-    , _heChildWorkflowExecutionTimedOutEventAttributes                  :: !(Maybe ChildWorkflowExecutionTimedOutEventAttributes)-    , _heCancelWorkflowExecutionFailedEventAttributes                   :: !(Maybe CancelWorkflowExecutionFailedEventAttributes)-    , _heStartChildWorkflowExecutionInitiatedEventAttributes            :: !(Maybe StartChildWorkflowExecutionInitiatedEventAttributes)-    , _heSignalExternalWorkflowExecutionFailedEventAttributes           :: !(Maybe SignalExternalWorkflowExecutionFailedEventAttributes)-    , _heActivityTaskStartedEventAttributes                             :: !(Maybe ActivityTaskStartedEventAttributes)-    , _heStartLambdaFunctionFailedEventAttributes                       :: !(Maybe StartLambdaFunctionFailedEventAttributes)-    , _heChildWorkflowExecutionTerminatedEventAttributes                :: !(Maybe ChildWorkflowExecutionTerminatedEventAttributes)-    , _heLambdaFunctionFailedEventAttributes                            :: !(Maybe LambdaFunctionFailedEventAttributes)-    , _heWorkflowExecutionCanceledEventAttributes                       :: !(Maybe WorkflowExecutionCanceledEventAttributes)-    , _heTimerStartedEventAttributes                                    :: !(Maybe TimerStartedEventAttributes)-    , _heActivityTaskCancelRequestedEventAttributes                     :: !(Maybe ActivityTaskCancelRequestedEventAttributes)-    , _heWorkflowExecutionTimedOutEventAttributes                       :: !(Maybe WorkflowExecutionTimedOutEventAttributes)-    , _heWorkflowExecutionSignaledEventAttributes                       :: !(Maybe WorkflowExecutionSignaledEventAttributes)-    , _heTimerFiredEventAttributes                                      :: !(Maybe TimerFiredEventAttributes)-    , _heActivityTaskFailedEventAttributes                              :: !(Maybe ActivityTaskFailedEventAttributes)-    , _heExternalWorkflowExecutionSignaledEventAttributes               :: !(Maybe ExternalWorkflowExecutionSignaledEventAttributes)-    , _heDecisionTaskCompletedEventAttributes                           :: !(Maybe DecisionTaskCompletedEventAttributes)-    , _heStartChildWorkflowExecutionFailedEventAttributes               :: !(Maybe StartChildWorkflowExecutionFailedEventAttributes)-    , _heChildWorkflowExecutionFailedEventAttributes                    :: !(Maybe ChildWorkflowExecutionFailedEventAttributes)-    , _heFailWorkflowExecutionFailedEventAttributes                     :: !(Maybe FailWorkflowExecutionFailedEventAttributes)-    , _heContinueAsNewWorkflowExecutionFailedEventAttributes            :: !(Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes)-    , _heSignalExternalWorkflowExecutionInitiatedEventAttributes        :: !(Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes)-    , _heLambdaFunctionTimedOutEventAttributes                          :: !(Maybe LambdaFunctionTimedOutEventAttributes)-    , _heWorkflowExecutionFailedEventAttributes                         :: !(Maybe WorkflowExecutionFailedEventAttributes)-    , _heWorkflowExecutionContinuedAsNewEventAttributes                 :: !(Maybe WorkflowExecutionContinuedAsNewEventAttributes)-    , _heExternalWorkflowExecutionCancelRequestedEventAttributes        :: !(Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes)-    , _heEventTimestamp                                                 :: !POSIX-    , _heEventType                                                      :: !EventType-    , _heEventId                                                        :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'HistoryEvent' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'heWorkflowExecutionCancelRequestedEventAttributes' - If the event is of type @WorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heRecordMarkerFailedEventAttributes' - If the event is of type @DecisionTaskFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes' - If the event is of type @RequestCancelExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heLambdaFunctionStartedEventAttributes' - Undocumented member.------ * 'heDecisionTaskScheduledEventAttributes' - If the event is of type @DecisionTaskScheduled@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heWorkflowExecutionCompletedEventAttributes' - If the event is of type @WorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heStartTimerFailedEventAttributes' - If the event is of type @StartTimerFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heActivityTaskScheduledEventAttributes' - If the event is of type @ActivityTaskScheduled@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heScheduleActivityTaskFailedEventAttributes' - If the event is of type @ScheduleActivityTaskFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heChildWorkflowExecutionCompletedEventAttributes' - If the event is of type @ChildWorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heMarkerRecordedEventAttributes' - If the event is of type @MarkerRecorded@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heScheduleLambdaFunctionFailedEventAttributes' - Undocumented member.------ * 'heCompleteWorkflowExecutionFailedEventAttributes' - If the event is of type @CompleteWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heLambdaFunctionCompletedEventAttributes' - Undocumented member.------ * 'heRequestCancelExternalWorkflowExecutionFailedEventAttributes' - If the event is of type @RequestCancelExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heTimerCanceledEventAttributes' - If the event is of type @TimerCanceled@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heWorkflowExecutionStartedEventAttributes' - If the event is of type @WorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heActivityTaskCompletedEventAttributes' - If the event is of type @ActivityTaskCompleted@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heDecisionTaskTimedOutEventAttributes' - If the event is of type @DecisionTaskTimedOut@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heCancelTimerFailedEventAttributes' - If the event is of type @CancelTimerFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heChildWorkflowExecutionStartedEventAttributes' - If the event is of type @ChildWorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heActivityTaskCanceledEventAttributes' - If the event is of type @ActivityTaskCanceled@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heActivityTaskTimedOutEventAttributes' - If the event is of type @ActivityTaskTimedOut@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heDecisionTaskStartedEventAttributes' - If the event is of type @DecisionTaskStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heWorkflowExecutionTerminatedEventAttributes' - If the event is of type @WorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heChildWorkflowExecutionCanceledEventAttributes' - If the event is of type @ChildWorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heRequestCancelActivityTaskFailedEventAttributes' - If the event is of type @RequestCancelActivityTaskFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heLambdaFunctionScheduledEventAttributes' - Undocumented member.------ * 'heChildWorkflowExecutionTimedOutEventAttributes' - If the event is of type @ChildWorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heCancelWorkflowExecutionFailedEventAttributes' - If the event is of type @CancelWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heStartChildWorkflowExecutionInitiatedEventAttributes' - If the event is of type @StartChildWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heSignalExternalWorkflowExecutionFailedEventAttributes' - If the event is of type @SignalExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heActivityTaskStartedEventAttributes' - If the event is of type @ActivityTaskStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heStartLambdaFunctionFailedEventAttributes' - Undocumented member.------ * 'heChildWorkflowExecutionTerminatedEventAttributes' - If the event is of type @ChildWorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heLambdaFunctionFailedEventAttributes' - Undocumented member.------ * 'heWorkflowExecutionCanceledEventAttributes' - If the event is of type @WorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heTimerStartedEventAttributes' - If the event is of type @TimerStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heActivityTaskCancelRequestedEventAttributes' - If the event is of type @ActivityTaskcancelRequested@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heWorkflowExecutionTimedOutEventAttributes' - If the event is of type @WorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heWorkflowExecutionSignaledEventAttributes' - If the event is of type @WorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heTimerFiredEventAttributes' - If the event is of type @TimerFired@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heActivityTaskFailedEventAttributes' - If the event is of type @ActivityTaskFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heExternalWorkflowExecutionSignaledEventAttributes' - If the event is of type @ExternalWorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heDecisionTaskCompletedEventAttributes' - If the event is of type @DecisionTaskCompleted@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heStartChildWorkflowExecutionFailedEventAttributes' - If the event is of type @StartChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heChildWorkflowExecutionFailedEventAttributes' - If the event is of type @ChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heFailWorkflowExecutionFailedEventAttributes' - If the event is of type @FailWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heContinueAsNewWorkflowExecutionFailedEventAttributes' - If the event is of type @ContinueAsNewWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heSignalExternalWorkflowExecutionInitiatedEventAttributes' - If the event is of type @SignalExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heLambdaFunctionTimedOutEventAttributes' - Undocumented member.------ * 'heWorkflowExecutionFailedEventAttributes' - If the event is of type @WorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heWorkflowExecutionContinuedAsNewEventAttributes' - If the event is of type @WorkflowExecutionContinuedAsNew@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heExternalWorkflowExecutionCancelRequestedEventAttributes' - If the event is of type @ExternalWorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It is not set for other event types.------ * 'heEventTimestamp' - The date and time when the event occurred.------ * 'heEventType' - The type of the history event.------ * 'heEventId' - The system generated ID of the event. This ID uniquely identifies the event with in the workflow execution history.-historyEvent-    :: UTCTime -- ^ 'heEventTimestamp'-    -> EventType -- ^ 'heEventType'-    -> Integer -- ^ 'heEventId'-    -> HistoryEvent-historyEvent pEventTimestamp_ pEventType_ pEventId_ =-    HistoryEvent'-    { _heWorkflowExecutionCancelRequestedEventAttributes = Nothing-    , _heRecordMarkerFailedEventAttributes = Nothing-    , _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = Nothing-    , _heLambdaFunctionStartedEventAttributes = Nothing-    , _heDecisionTaskScheduledEventAttributes = Nothing-    , _heWorkflowExecutionCompletedEventAttributes = Nothing-    , _heStartTimerFailedEventAttributes = Nothing-    , _heActivityTaskScheduledEventAttributes = Nothing-    , _heScheduleActivityTaskFailedEventAttributes = Nothing-    , _heChildWorkflowExecutionCompletedEventAttributes = Nothing-    , _heMarkerRecordedEventAttributes = Nothing-    , _heScheduleLambdaFunctionFailedEventAttributes = Nothing-    , _heCompleteWorkflowExecutionFailedEventAttributes = Nothing-    , _heLambdaFunctionCompletedEventAttributes = Nothing-    , _heRequestCancelExternalWorkflowExecutionFailedEventAttributes = Nothing-    , _heTimerCanceledEventAttributes = Nothing-    , _heWorkflowExecutionStartedEventAttributes = Nothing-    , _heActivityTaskCompletedEventAttributes = Nothing-    , _heDecisionTaskTimedOutEventAttributes = Nothing-    , _heCancelTimerFailedEventAttributes = Nothing-    , _heChildWorkflowExecutionStartedEventAttributes = Nothing-    , _heActivityTaskCanceledEventAttributes = Nothing-    , _heActivityTaskTimedOutEventAttributes = Nothing-    , _heDecisionTaskStartedEventAttributes = Nothing-    , _heWorkflowExecutionTerminatedEventAttributes = Nothing-    , _heChildWorkflowExecutionCanceledEventAttributes = Nothing-    , _heRequestCancelActivityTaskFailedEventAttributes = Nothing-    , _heLambdaFunctionScheduledEventAttributes = Nothing-    , _heChildWorkflowExecutionTimedOutEventAttributes = Nothing-    , _heCancelWorkflowExecutionFailedEventAttributes = Nothing-    , _heStartChildWorkflowExecutionInitiatedEventAttributes = Nothing-    , _heSignalExternalWorkflowExecutionFailedEventAttributes = Nothing-    , _heActivityTaskStartedEventAttributes = Nothing-    , _heStartLambdaFunctionFailedEventAttributes = Nothing-    , _heChildWorkflowExecutionTerminatedEventAttributes = Nothing-    , _heLambdaFunctionFailedEventAttributes = Nothing-    , _heWorkflowExecutionCanceledEventAttributes = Nothing-    , _heTimerStartedEventAttributes = Nothing-    , _heActivityTaskCancelRequestedEventAttributes = Nothing-    , _heWorkflowExecutionTimedOutEventAttributes = Nothing-    , _heWorkflowExecutionSignaledEventAttributes = Nothing-    , _heTimerFiredEventAttributes = Nothing-    , _heActivityTaskFailedEventAttributes = Nothing-    , _heExternalWorkflowExecutionSignaledEventAttributes = Nothing-    , _heDecisionTaskCompletedEventAttributes = Nothing-    , _heStartChildWorkflowExecutionFailedEventAttributes = Nothing-    , _heChildWorkflowExecutionFailedEventAttributes = Nothing-    , _heFailWorkflowExecutionFailedEventAttributes = Nothing-    , _heContinueAsNewWorkflowExecutionFailedEventAttributes = Nothing-    , _heSignalExternalWorkflowExecutionInitiatedEventAttributes = Nothing-    , _heLambdaFunctionTimedOutEventAttributes = Nothing-    , _heWorkflowExecutionFailedEventAttributes = Nothing-    , _heWorkflowExecutionContinuedAsNewEventAttributes = Nothing-    , _heExternalWorkflowExecutionCancelRequestedEventAttributes = Nothing-    , _heEventTimestamp = _Time # pEventTimestamp_-    , _heEventType = pEventType_-    , _heEventId = pEventId_-    }---- | If the event is of type @WorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It is not set for other event types.-heWorkflowExecutionCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCancelRequestedEventAttributes)-heWorkflowExecutionCancelRequestedEventAttributes = lens _heWorkflowExecutionCancelRequestedEventAttributes (\ s a -> s{_heWorkflowExecutionCancelRequestedEventAttributes = a});---- | If the event is of type @DecisionTaskFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heRecordMarkerFailedEventAttributes :: Lens' HistoryEvent (Maybe RecordMarkerFailedEventAttributes)-heRecordMarkerFailedEventAttributes = lens _heRecordMarkerFailedEventAttributes (\ s a -> s{_heRecordMarkerFailedEventAttributes = a});---- | If the event is of type @RequestCancelExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It is not set for other event types.-heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes)-heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = lens _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = a});---- | Undocumented member.-heLambdaFunctionStartedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionStartedEventAttributes)-heLambdaFunctionStartedEventAttributes = lens _heLambdaFunctionStartedEventAttributes (\ s a -> s{_heLambdaFunctionStartedEventAttributes = a});---- | If the event is of type @DecisionTaskScheduled@ then this member is set and provides detailed information about the event. It is not set for other event types.-heDecisionTaskScheduledEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskScheduledEventAttributes)-heDecisionTaskScheduledEventAttributes = lens _heDecisionTaskScheduledEventAttributes (\ s a -> s{_heDecisionTaskScheduledEventAttributes = a});---- | If the event is of type @WorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It is not set for other event types.-heWorkflowExecutionCompletedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCompletedEventAttributes)-heWorkflowExecutionCompletedEventAttributes = lens _heWorkflowExecutionCompletedEventAttributes (\ s a -> s{_heWorkflowExecutionCompletedEventAttributes = a});---- | If the event is of type @StartTimerFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heStartTimerFailedEventAttributes :: Lens' HistoryEvent (Maybe StartTimerFailedEventAttributes)-heStartTimerFailedEventAttributes = lens _heStartTimerFailedEventAttributes (\ s a -> s{_heStartTimerFailedEventAttributes = a});---- | If the event is of type @ActivityTaskScheduled@ then this member is set and provides detailed information about the event. It is not set for other event types.-heActivityTaskScheduledEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskScheduledEventAttributes)-heActivityTaskScheduledEventAttributes = lens _heActivityTaskScheduledEventAttributes (\ s a -> s{_heActivityTaskScheduledEventAttributes = a});---- | If the event is of type @ScheduleActivityTaskFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heScheduleActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe ScheduleActivityTaskFailedEventAttributes)-heScheduleActivityTaskFailedEventAttributes = lens _heScheduleActivityTaskFailedEventAttributes (\ s a -> s{_heScheduleActivityTaskFailedEventAttributes = a});---- | If the event is of type @ChildWorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It is not set for other event types.-heChildWorkflowExecutionCompletedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionCompletedEventAttributes)-heChildWorkflowExecutionCompletedEventAttributes = lens _heChildWorkflowExecutionCompletedEventAttributes (\ s a -> s{_heChildWorkflowExecutionCompletedEventAttributes = a});---- | If the event is of type @MarkerRecorded@ then this member is set and provides detailed information about the event. It is not set for other event types.-heMarkerRecordedEventAttributes :: Lens' HistoryEvent (Maybe MarkerRecordedEventAttributes)-heMarkerRecordedEventAttributes = lens _heMarkerRecordedEventAttributes (\ s a -> s{_heMarkerRecordedEventAttributes = a});---- | Undocumented member.-heScheduleLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe ScheduleLambdaFunctionFailedEventAttributes)-heScheduleLambdaFunctionFailedEventAttributes = lens _heScheduleLambdaFunctionFailedEventAttributes (\ s a -> s{_heScheduleLambdaFunctionFailedEventAttributes = a});---- | If the event is of type @CompleteWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heCompleteWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe CompleteWorkflowExecutionFailedEventAttributes)-heCompleteWorkflowExecutionFailedEventAttributes = lens _heCompleteWorkflowExecutionFailedEventAttributes (\ s a -> s{_heCompleteWorkflowExecutionFailedEventAttributes = a});---- | Undocumented member.-heLambdaFunctionCompletedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionCompletedEventAttributes)-heLambdaFunctionCompletedEventAttributes = lens _heLambdaFunctionCompletedEventAttributes (\ s a -> s{_heLambdaFunctionCompletedEventAttributes = a});---- | If the event is of type @RequestCancelExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heRequestCancelExternalWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes)-heRequestCancelExternalWorkflowExecutionFailedEventAttributes = lens _heRequestCancelExternalWorkflowExecutionFailedEventAttributes (\ s a -> s{_heRequestCancelExternalWorkflowExecutionFailedEventAttributes = a});---- | If the event is of type @TimerCanceled@ then this member is set and provides detailed information about the event. It is not set for other event types.-heTimerCanceledEventAttributes :: Lens' HistoryEvent (Maybe TimerCanceledEventAttributes)-heTimerCanceledEventAttributes = lens _heTimerCanceledEventAttributes (\ s a -> s{_heTimerCanceledEventAttributes = a});---- | If the event is of type @WorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.-heWorkflowExecutionStartedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionStartedEventAttributes)-heWorkflowExecutionStartedEventAttributes = lens _heWorkflowExecutionStartedEventAttributes (\ s a -> s{_heWorkflowExecutionStartedEventAttributes = a});---- | If the event is of type @ActivityTaskCompleted@ then this member is set and provides detailed information about the event. It is not set for other event types.-heActivityTaskCompletedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCompletedEventAttributes)-heActivityTaskCompletedEventAttributes = lens _heActivityTaskCompletedEventAttributes (\ s a -> s{_heActivityTaskCompletedEventAttributes = a});---- | If the event is of type @DecisionTaskTimedOut@ then this member is set and provides detailed information about the event. It is not set for other event types.-heDecisionTaskTimedOutEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskTimedOutEventAttributes)-heDecisionTaskTimedOutEventAttributes = lens _heDecisionTaskTimedOutEventAttributes (\ s a -> s{_heDecisionTaskTimedOutEventAttributes = a});---- | If the event is of type @CancelTimerFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heCancelTimerFailedEventAttributes :: Lens' HistoryEvent (Maybe CancelTimerFailedEventAttributes)-heCancelTimerFailedEventAttributes = lens _heCancelTimerFailedEventAttributes (\ s a -> s{_heCancelTimerFailedEventAttributes = a});---- | If the event is of type @ChildWorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.-heChildWorkflowExecutionStartedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionStartedEventAttributes)-heChildWorkflowExecutionStartedEventAttributes = lens _heChildWorkflowExecutionStartedEventAttributes (\ s a -> s{_heChildWorkflowExecutionStartedEventAttributes = a});---- | If the event is of type @ActivityTaskCanceled@ then this member is set and provides detailed information about the event. It is not set for other event types.-heActivityTaskCanceledEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCanceledEventAttributes)-heActivityTaskCanceledEventAttributes = lens _heActivityTaskCanceledEventAttributes (\ s a -> s{_heActivityTaskCanceledEventAttributes = a});---- | If the event is of type @ActivityTaskTimedOut@ then this member is set and provides detailed information about the event. It is not set for other event types.-heActivityTaskTimedOutEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskTimedOutEventAttributes)-heActivityTaskTimedOutEventAttributes = lens _heActivityTaskTimedOutEventAttributes (\ s a -> s{_heActivityTaskTimedOutEventAttributes = a});---- | If the event is of type @DecisionTaskStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.-heDecisionTaskStartedEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskStartedEventAttributes)-heDecisionTaskStartedEventAttributes = lens _heDecisionTaskStartedEventAttributes (\ s a -> s{_heDecisionTaskStartedEventAttributes = a});---- | If the event is of type @WorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It is not set for other event types.-heWorkflowExecutionTerminatedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionTerminatedEventAttributes)-heWorkflowExecutionTerminatedEventAttributes = lens _heWorkflowExecutionTerminatedEventAttributes (\ s a -> s{_heWorkflowExecutionTerminatedEventAttributes = a});---- | If the event is of type @ChildWorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It is not set for other event types.-heChildWorkflowExecutionCanceledEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionCanceledEventAttributes)-heChildWorkflowExecutionCanceledEventAttributes = lens _heChildWorkflowExecutionCanceledEventAttributes (\ s a -> s{_heChildWorkflowExecutionCanceledEventAttributes = a});---- | If the event is of type @RequestCancelActivityTaskFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heRequestCancelActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelActivityTaskFailedEventAttributes)-heRequestCancelActivityTaskFailedEventAttributes = lens _heRequestCancelActivityTaskFailedEventAttributes (\ s a -> s{_heRequestCancelActivityTaskFailedEventAttributes = a});---- | Undocumented member.-heLambdaFunctionScheduledEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionScheduledEventAttributes)-heLambdaFunctionScheduledEventAttributes = lens _heLambdaFunctionScheduledEventAttributes (\ s a -> s{_heLambdaFunctionScheduledEventAttributes = a});---- | If the event is of type @ChildWorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It is not set for other event types.-heChildWorkflowExecutionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionTimedOutEventAttributes)-heChildWorkflowExecutionTimedOutEventAttributes = lens _heChildWorkflowExecutionTimedOutEventAttributes (\ s a -> s{_heChildWorkflowExecutionTimedOutEventAttributes = a});---- | If the event is of type @CancelWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heCancelWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe CancelWorkflowExecutionFailedEventAttributes)-heCancelWorkflowExecutionFailedEventAttributes = lens _heCancelWorkflowExecutionFailedEventAttributes (\ s a -> s{_heCancelWorkflowExecutionFailedEventAttributes = a});---- | If the event is of type @StartChildWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It is not set for other event types.-heStartChildWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe StartChildWorkflowExecutionInitiatedEventAttributes)-heStartChildWorkflowExecutionInitiatedEventAttributes = lens _heStartChildWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heStartChildWorkflowExecutionInitiatedEventAttributes = a});---- | If the event is of type @SignalExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heSignalExternalWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe SignalExternalWorkflowExecutionFailedEventAttributes)-heSignalExternalWorkflowExecutionFailedEventAttributes = lens _heSignalExternalWorkflowExecutionFailedEventAttributes (\ s a -> s{_heSignalExternalWorkflowExecutionFailedEventAttributes = a});---- | If the event is of type @ActivityTaskStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.-heActivityTaskStartedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskStartedEventAttributes)-heActivityTaskStartedEventAttributes = lens _heActivityTaskStartedEventAttributes (\ s a -> s{_heActivityTaskStartedEventAttributes = a});---- | Undocumented member.-heStartLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe StartLambdaFunctionFailedEventAttributes)-heStartLambdaFunctionFailedEventAttributes = lens _heStartLambdaFunctionFailedEventAttributes (\ s a -> s{_heStartLambdaFunctionFailedEventAttributes = a});---- | If the event is of type @ChildWorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It is not set for other event types.-heChildWorkflowExecutionTerminatedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionTerminatedEventAttributes)-heChildWorkflowExecutionTerminatedEventAttributes = lens _heChildWorkflowExecutionTerminatedEventAttributes (\ s a -> s{_heChildWorkflowExecutionTerminatedEventAttributes = a});---- | Undocumented member.-heLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionFailedEventAttributes)-heLambdaFunctionFailedEventAttributes = lens _heLambdaFunctionFailedEventAttributes (\ s a -> s{_heLambdaFunctionFailedEventAttributes = a});---- | If the event is of type @WorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It is not set for other event types.-heWorkflowExecutionCanceledEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCanceledEventAttributes)-heWorkflowExecutionCanceledEventAttributes = lens _heWorkflowExecutionCanceledEventAttributes (\ s a -> s{_heWorkflowExecutionCanceledEventAttributes = a});---- | If the event is of type @TimerStarted@ then this member is set and provides detailed information about the event. It is not set for other event types.-heTimerStartedEventAttributes :: Lens' HistoryEvent (Maybe TimerStartedEventAttributes)-heTimerStartedEventAttributes = lens _heTimerStartedEventAttributes (\ s a -> s{_heTimerStartedEventAttributes = a});---- | If the event is of type @ActivityTaskcancelRequested@ then this member is set and provides detailed information about the event. It is not set for other event types.-heActivityTaskCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCancelRequestedEventAttributes)-heActivityTaskCancelRequestedEventAttributes = lens _heActivityTaskCancelRequestedEventAttributes (\ s a -> s{_heActivityTaskCancelRequestedEventAttributes = a});---- | If the event is of type @WorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It is not set for other event types.-heWorkflowExecutionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionTimedOutEventAttributes)-heWorkflowExecutionTimedOutEventAttributes = lens _heWorkflowExecutionTimedOutEventAttributes (\ s a -> s{_heWorkflowExecutionTimedOutEventAttributes = a});---- | If the event is of type @WorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It is not set for other event types.-heWorkflowExecutionSignaledEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionSignaledEventAttributes)-heWorkflowExecutionSignaledEventAttributes = lens _heWorkflowExecutionSignaledEventAttributes (\ s a -> s{_heWorkflowExecutionSignaledEventAttributes = a});---- | If the event is of type @TimerFired@ then this member is set and provides detailed information about the event. It is not set for other event types.-heTimerFiredEventAttributes :: Lens' HistoryEvent (Maybe TimerFiredEventAttributes)-heTimerFiredEventAttributes = lens _heTimerFiredEventAttributes (\ s a -> s{_heTimerFiredEventAttributes = a});---- | If the event is of type @ActivityTaskFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskFailedEventAttributes)-heActivityTaskFailedEventAttributes = lens _heActivityTaskFailedEventAttributes (\ s a -> s{_heActivityTaskFailedEventAttributes = a});---- | If the event is of type @ExternalWorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It is not set for other event types.-heExternalWorkflowExecutionSignaledEventAttributes :: Lens' HistoryEvent (Maybe ExternalWorkflowExecutionSignaledEventAttributes)-heExternalWorkflowExecutionSignaledEventAttributes = lens _heExternalWorkflowExecutionSignaledEventAttributes (\ s a -> s{_heExternalWorkflowExecutionSignaledEventAttributes = a});---- | If the event is of type @DecisionTaskCompleted@ then this member is set and provides detailed information about the event. It is not set for other event types.-heDecisionTaskCompletedEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskCompletedEventAttributes)-heDecisionTaskCompletedEventAttributes = lens _heDecisionTaskCompletedEventAttributes (\ s a -> s{_heDecisionTaskCompletedEventAttributes = a});---- | If the event is of type @StartChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heStartChildWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe StartChildWorkflowExecutionFailedEventAttributes)-heStartChildWorkflowExecutionFailedEventAttributes = lens _heStartChildWorkflowExecutionFailedEventAttributes (\ s a -> s{_heStartChildWorkflowExecutionFailedEventAttributes = a});---- | If the event is of type @ChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heChildWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionFailedEventAttributes)-heChildWorkflowExecutionFailedEventAttributes = lens _heChildWorkflowExecutionFailedEventAttributes (\ s a -> s{_heChildWorkflowExecutionFailedEventAttributes = a});---- | If the event is of type @FailWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heFailWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe FailWorkflowExecutionFailedEventAttributes)-heFailWorkflowExecutionFailedEventAttributes = lens _heFailWorkflowExecutionFailedEventAttributes (\ s a -> s{_heFailWorkflowExecutionFailedEventAttributes = a});---- | If the event is of type @ContinueAsNewWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heContinueAsNewWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes)-heContinueAsNewWorkflowExecutionFailedEventAttributes = lens _heContinueAsNewWorkflowExecutionFailedEventAttributes (\ s a -> s{_heContinueAsNewWorkflowExecutionFailedEventAttributes = a});---- | If the event is of type @SignalExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It is not set for other event types.-heSignalExternalWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes)-heSignalExternalWorkflowExecutionInitiatedEventAttributes = lens _heSignalExternalWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heSignalExternalWorkflowExecutionInitiatedEventAttributes = a});---- | Undocumented member.-heLambdaFunctionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionTimedOutEventAttributes)-heLambdaFunctionTimedOutEventAttributes = lens _heLambdaFunctionTimedOutEventAttributes (\ s a -> s{_heLambdaFunctionTimedOutEventAttributes = a});---- | If the event is of type @WorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It is not set for other event types.-heWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionFailedEventAttributes)-heWorkflowExecutionFailedEventAttributes = lens _heWorkflowExecutionFailedEventAttributes (\ s a -> s{_heWorkflowExecutionFailedEventAttributes = a});---- | If the event is of type @WorkflowExecutionContinuedAsNew@ then this member is set and provides detailed information about the event. It is not set for other event types.-heWorkflowExecutionContinuedAsNewEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionContinuedAsNewEventAttributes)-heWorkflowExecutionContinuedAsNewEventAttributes = lens _heWorkflowExecutionContinuedAsNewEventAttributes (\ s a -> s{_heWorkflowExecutionContinuedAsNewEventAttributes = a});---- | If the event is of type @ExternalWorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It is not set for other event types.-heExternalWorkflowExecutionCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes)-heExternalWorkflowExecutionCancelRequestedEventAttributes = lens _heExternalWorkflowExecutionCancelRequestedEventAttributes (\ s a -> s{_heExternalWorkflowExecutionCancelRequestedEventAttributes = a});---- | The date and time when the event occurred.-heEventTimestamp :: Lens' HistoryEvent UTCTime-heEventTimestamp = lens _heEventTimestamp (\ s a -> s{_heEventTimestamp = a}) . _Time;---- | The type of the history event.-heEventType :: Lens' HistoryEvent EventType-heEventType = lens _heEventType (\ s a -> s{_heEventType = a});---- | The system generated ID of the event. This ID uniquely identifies the event with in the workflow execution history.-heEventId :: Lens' HistoryEvent Integer-heEventId = lens _heEventId (\ s a -> s{_heEventId = a});--instance FromJSON HistoryEvent where-        parseJSON-          = withObject "HistoryEvent"-              (\ x ->-                 HistoryEvent' <$>-                   (x .:?-                      "workflowExecutionCancelRequestedEventAttributes")-                     <*> (x .:? "recordMarkerFailedEventAttributes")-                     <*>-                     (x .:?-                        "requestCancelExternalWorkflowExecutionInitiatedEventAttributes")-                     <*> (x .:? "lambdaFunctionStartedEventAttributes")-                     <*> (x .:? "decisionTaskScheduledEventAttributes")-                     <*>-                     (x .:? "workflowExecutionCompletedEventAttributes")-                     <*> (x .:? "startTimerFailedEventAttributes")-                     <*> (x .:? "activityTaskScheduledEventAttributes")-                     <*>-                     (x .:? "scheduleActivityTaskFailedEventAttributes")-                     <*>-                     (x .:?-                        "childWorkflowExecutionCompletedEventAttributes")-                     <*> (x .:? "markerRecordedEventAttributes")-                     <*>-                     (x .:? "scheduleLambdaFunctionFailedEventAttributes")-                     <*>-                     (x .:?-                        "completeWorkflowExecutionFailedEventAttributes")-                     <*> (x .:? "lambdaFunctionCompletedEventAttributes")-                     <*>-                     (x .:?-                        "requestCancelExternalWorkflowExecutionFailedEventAttributes")-                     <*> (x .:? "timerCanceledEventAttributes")-                     <*> (x .:? "workflowExecutionStartedEventAttributes")-                     <*> (x .:? "activityTaskCompletedEventAttributes")-                     <*> (x .:? "decisionTaskTimedOutEventAttributes")-                     <*> (x .:? "cancelTimerFailedEventAttributes")-                     <*>-                     (x .:?-                        "childWorkflowExecutionStartedEventAttributes")-                     <*> (x .:? "activityTaskCanceledEventAttributes")-                     <*> (x .:? "activityTaskTimedOutEventAttributes")-                     <*> (x .:? "decisionTaskStartedEventAttributes")-                     <*>-                     (x .:? "workflowExecutionTerminatedEventAttributes")-                     <*>-                     (x .:?-                        "childWorkflowExecutionCanceledEventAttributes")-                     <*>-                     (x .:?-                        "requestCancelActivityTaskFailedEventAttributes")-                     <*> (x .:? "lambdaFunctionScheduledEventAttributes")-                     <*>-                     (x .:?-                        "childWorkflowExecutionTimedOutEventAttributes")-                     <*>-                     (x .:?-                        "cancelWorkflowExecutionFailedEventAttributes")-                     <*>-                     (x .:?-                        "startChildWorkflowExecutionInitiatedEventAttributes")-                     <*>-                     (x .:?-                        "signalExternalWorkflowExecutionFailedEventAttributes")-                     <*> (x .:? "activityTaskStartedEventAttributes")-                     <*>-                     (x .:? "startLambdaFunctionFailedEventAttributes")-                     <*>-                     (x .:?-                        "childWorkflowExecutionTerminatedEventAttributes")-                     <*> (x .:? "lambdaFunctionFailedEventAttributes")-                     <*>-                     (x .:? "workflowExecutionCanceledEventAttributes")-                     <*> (x .:? "timerStartedEventAttributes")-                     <*>-                     (x .:? "activityTaskCancelRequestedEventAttributes")-                     <*>-                     (x .:? "workflowExecutionTimedOutEventAttributes")-                     <*>-                     (x .:? "workflowExecutionSignaledEventAttributes")-                     <*> (x .:? "timerFiredEventAttributes")-                     <*> (x .:? "activityTaskFailedEventAttributes")-                     <*>-                     (x .:?-                        "externalWorkflowExecutionSignaledEventAttributes")-                     <*> (x .:? "decisionTaskCompletedEventAttributes")-                     <*>-                     (x .:?-                        "startChildWorkflowExecutionFailedEventAttributes")-                     <*>-                     (x .:? "childWorkflowExecutionFailedEventAttributes")-                     <*>-                     (x .:? "failWorkflowExecutionFailedEventAttributes")-                     <*>-                     (x .:?-                        "continueAsNewWorkflowExecutionFailedEventAttributes")-                     <*>-                     (x .:?-                        "signalExternalWorkflowExecutionInitiatedEventAttributes")-                     <*> (x .:? "lambdaFunctionTimedOutEventAttributes")-                     <*> (x .:? "workflowExecutionFailedEventAttributes")-                     <*>-                     (x .:?-                        "workflowExecutionContinuedAsNewEventAttributes")-                     <*>-                     (x .:?-                        "externalWorkflowExecutionCancelRequestedEventAttributes")-                     <*> (x .: "eventTimestamp")-                     <*> (x .: "eventType")-                     <*> (x .: "eventId"))--instance Hashable HistoryEvent--instance NFData HistoryEvent---- | Provides details for the @LambdaFunctionCompleted@ event.------------ /See:/ 'lambdaFunctionCompletedEventAttributes' smart constructor.-data LambdaFunctionCompletedEventAttributes = LambdaFunctionCompletedEventAttributes'-    { _lfceaResult           :: !(Maybe Text)-    , _lfceaScheduledEventId :: !Integer-    , _lfceaStartedEventId   :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'LambdaFunctionCompletedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lfceaResult' - The result of the function execution (if any).------ * 'lfceaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'lfceaStartedEventId' - The ID of the @LambdaFunctionStarted@ event recorded in the history.-lambdaFunctionCompletedEventAttributes-    :: Integer -- ^ 'lfceaScheduledEventId'-    -> Integer -- ^ 'lfceaStartedEventId'-    -> LambdaFunctionCompletedEventAttributes-lambdaFunctionCompletedEventAttributes pScheduledEventId_ pStartedEventId_ =-    LambdaFunctionCompletedEventAttributes'-    { _lfceaResult = Nothing-    , _lfceaScheduledEventId = pScheduledEventId_-    , _lfceaStartedEventId = pStartedEventId_-    }---- | The result of the function execution (if any).-lfceaResult :: Lens' LambdaFunctionCompletedEventAttributes (Maybe Text)-lfceaResult = lens _lfceaResult (\ s a -> s{_lfceaResult = a});---- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-lfceaScheduledEventId :: Lens' LambdaFunctionCompletedEventAttributes Integer-lfceaScheduledEventId = lens _lfceaScheduledEventId (\ s a -> s{_lfceaScheduledEventId = a});---- | The ID of the @LambdaFunctionStarted@ event recorded in the history.-lfceaStartedEventId :: Lens' LambdaFunctionCompletedEventAttributes Integer-lfceaStartedEventId = lens _lfceaStartedEventId (\ s a -> s{_lfceaStartedEventId = a});--instance FromJSON-         LambdaFunctionCompletedEventAttributes where-        parseJSON-          = withObject "LambdaFunctionCompletedEventAttributes"-              (\ x ->-                 LambdaFunctionCompletedEventAttributes' <$>-                   (x .:? "result") <*> (x .: "scheduledEventId") <*>-                     (x .: "startedEventId"))--instance Hashable-         LambdaFunctionCompletedEventAttributes--instance NFData-         LambdaFunctionCompletedEventAttributes---- | Provides details for the @LambdaFunctionFailed@ event.------------ /See:/ 'lambdaFunctionFailedEventAttributes' smart constructor.-data LambdaFunctionFailedEventAttributes = LambdaFunctionFailedEventAttributes'-    { _lffeaReason           :: !(Maybe Text)-    , _lffeaDetails          :: !(Maybe Text)-    , _lffeaScheduledEventId :: !Integer-    , _lffeaStartedEventId   :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'LambdaFunctionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lffeaReason' - The reason provided for the failure (if any).------ * 'lffeaDetails' - The details of the failure (if any).------ * 'lffeaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'lffeaStartedEventId' - The ID of the @LambdaFunctionStarted@ event recorded in the history.-lambdaFunctionFailedEventAttributes-    :: Integer -- ^ 'lffeaScheduledEventId'-    -> Integer -- ^ 'lffeaStartedEventId'-    -> LambdaFunctionFailedEventAttributes-lambdaFunctionFailedEventAttributes pScheduledEventId_ pStartedEventId_ =-    LambdaFunctionFailedEventAttributes'-    { _lffeaReason = Nothing-    , _lffeaDetails = Nothing-    , _lffeaScheduledEventId = pScheduledEventId_-    , _lffeaStartedEventId = pStartedEventId_-    }---- | The reason provided for the failure (if any).-lffeaReason :: Lens' LambdaFunctionFailedEventAttributes (Maybe Text)-lffeaReason = lens _lffeaReason (\ s a -> s{_lffeaReason = a});---- | The details of the failure (if any).-lffeaDetails :: Lens' LambdaFunctionFailedEventAttributes (Maybe Text)-lffeaDetails = lens _lffeaDetails (\ s a -> s{_lffeaDetails = a});---- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-lffeaScheduledEventId :: Lens' LambdaFunctionFailedEventAttributes Integer-lffeaScheduledEventId = lens _lffeaScheduledEventId (\ s a -> s{_lffeaScheduledEventId = a});---- | The ID of the @LambdaFunctionStarted@ event recorded in the history.-lffeaStartedEventId :: Lens' LambdaFunctionFailedEventAttributes Integer-lffeaStartedEventId = lens _lffeaStartedEventId (\ s a -> s{_lffeaStartedEventId = a});--instance FromJSON LambdaFunctionFailedEventAttributes-         where-        parseJSON-          = withObject "LambdaFunctionFailedEventAttributes"-              (\ x ->-                 LambdaFunctionFailedEventAttributes' <$>-                   (x .:? "reason") <*> (x .:? "details") <*>-                     (x .: "scheduledEventId")-                     <*> (x .: "startedEventId"))--instance Hashable LambdaFunctionFailedEventAttributes--instance NFData LambdaFunctionFailedEventAttributes---- | Provides details for the @LambdaFunctionScheduled@ event.------------ /See:/ 'lambdaFunctionScheduledEventAttributes' smart constructor.-data LambdaFunctionScheduledEventAttributes = LambdaFunctionScheduledEventAttributes'-    { _lfseaInput                        :: !(Maybe Text)-    , _lfseaStartToCloseTimeout          :: !(Maybe Text)-    , _lfseaId                           :: !Text-    , _lfseaName                         :: !Text-    , _lfseaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'LambdaFunctionScheduledEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lfseaInput' - Input provided to the AWS Lambda function.------ * 'lfseaStartToCloseTimeout' - The maximum time, in seconds, that the AWS Lambda function can take to execute from start to close before it is marked as failed.------ * 'lfseaId' - The unique Amazon SWF ID for the AWS Lambda task.------ * 'lfseaName' - The name of the scheduled AWS Lambda function.------ * 'lfseaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event for the decision that resulted in the scheduling of this AWS Lambda function. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-lambdaFunctionScheduledEventAttributes-    :: Text -- ^ 'lfseaId'-    -> Text -- ^ 'lfseaName'-    -> Integer -- ^ 'lfseaDecisionTaskCompletedEventId'-    -> LambdaFunctionScheduledEventAttributes-lambdaFunctionScheduledEventAttributes pId_ pName_ pDecisionTaskCompletedEventId_ =-    LambdaFunctionScheduledEventAttributes'-    { _lfseaInput = Nothing-    , _lfseaStartToCloseTimeout = Nothing-    , _lfseaId = pId_-    , _lfseaName = pName_-    , _lfseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | Input provided to the AWS Lambda function.-lfseaInput :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text)-lfseaInput = lens _lfseaInput (\ s a -> s{_lfseaInput = a});---- | The maximum time, in seconds, that the AWS Lambda function can take to execute from start to close before it is marked as failed.-lfseaStartToCloseTimeout :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text)-lfseaStartToCloseTimeout = lens _lfseaStartToCloseTimeout (\ s a -> s{_lfseaStartToCloseTimeout = a});---- | The unique Amazon SWF ID for the AWS Lambda task.-lfseaId :: Lens' LambdaFunctionScheduledEventAttributes Text-lfseaId = lens _lfseaId (\ s a -> s{_lfseaId = a});---- | The name of the scheduled AWS Lambda function.-lfseaName :: Lens' LambdaFunctionScheduledEventAttributes Text-lfseaName = lens _lfseaName (\ s a -> s{_lfseaName = a});---- | The ID of the @DecisionTaskCompleted@ event for the decision that resulted in the scheduling of this AWS Lambda function. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-lfseaDecisionTaskCompletedEventId :: Lens' LambdaFunctionScheduledEventAttributes Integer-lfseaDecisionTaskCompletedEventId = lens _lfseaDecisionTaskCompletedEventId (\ s a -> s{_lfseaDecisionTaskCompletedEventId = a});--instance FromJSON-         LambdaFunctionScheduledEventAttributes where-        parseJSON-          = withObject "LambdaFunctionScheduledEventAttributes"-              (\ x ->-                 LambdaFunctionScheduledEventAttributes' <$>-                   (x .:? "input") <*> (x .:? "startToCloseTimeout") <*>-                     (x .: "id")-                     <*> (x .: "name")-                     <*> (x .: "decisionTaskCompletedEventId"))--instance Hashable-         LambdaFunctionScheduledEventAttributes--instance NFData-         LambdaFunctionScheduledEventAttributes---- | Provides details for the @LambdaFunctionStarted@ event.------------ /See:/ 'lambdaFunctionStartedEventAttributes' smart constructor.-newtype LambdaFunctionStartedEventAttributes = LambdaFunctionStartedEventAttributes'-    { _lfseaScheduledEventId :: Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'LambdaFunctionStartedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lfseaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-lambdaFunctionStartedEventAttributes-    :: Integer -- ^ 'lfseaScheduledEventId'-    -> LambdaFunctionStartedEventAttributes-lambdaFunctionStartedEventAttributes pScheduledEventId_ =-    LambdaFunctionStartedEventAttributes'-    { _lfseaScheduledEventId = pScheduledEventId_-    }---- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-lfseaScheduledEventId :: Lens' LambdaFunctionStartedEventAttributes Integer-lfseaScheduledEventId = lens _lfseaScheduledEventId (\ s a -> s{_lfseaScheduledEventId = a});--instance FromJSON-         LambdaFunctionStartedEventAttributes where-        parseJSON-          = withObject "LambdaFunctionStartedEventAttributes"-              (\ x ->-                 LambdaFunctionStartedEventAttributes' <$>-                   (x .: "scheduledEventId"))--instance Hashable-         LambdaFunctionStartedEventAttributes--instance NFData LambdaFunctionStartedEventAttributes---- | Provides details for the @LambdaFunctionTimedOut@ event.------------ /See:/ 'lambdaFunctionTimedOutEventAttributes' smart constructor.-data LambdaFunctionTimedOutEventAttributes = LambdaFunctionTimedOutEventAttributes'-    { _lftoeaTimeoutType      :: !(Maybe LambdaFunctionTimeoutType)-    , _lftoeaScheduledEventId :: !Integer-    , _lftoeaStartedEventId   :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'LambdaFunctionTimedOutEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lftoeaTimeoutType' - The type of the timeout that caused this event.------ * 'lftoeaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'lftoeaStartedEventId' - The ID of the @LambdaFunctionStarted@ event recorded in the history.-lambdaFunctionTimedOutEventAttributes-    :: Integer -- ^ 'lftoeaScheduledEventId'-    -> Integer -- ^ 'lftoeaStartedEventId'-    -> LambdaFunctionTimedOutEventAttributes-lambdaFunctionTimedOutEventAttributes pScheduledEventId_ pStartedEventId_ =-    LambdaFunctionTimedOutEventAttributes'-    { _lftoeaTimeoutType = Nothing-    , _lftoeaScheduledEventId = pScheduledEventId_-    , _lftoeaStartedEventId = pStartedEventId_-    }---- | The type of the timeout that caused this event.-lftoeaTimeoutType :: Lens' LambdaFunctionTimedOutEventAttributes (Maybe LambdaFunctionTimeoutType)-lftoeaTimeoutType = lens _lftoeaTimeoutType (\ s a -> s{_lftoeaTimeoutType = a});---- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-lftoeaScheduledEventId :: Lens' LambdaFunctionTimedOutEventAttributes Integer-lftoeaScheduledEventId = lens _lftoeaScheduledEventId (\ s a -> s{_lftoeaScheduledEventId = a});---- | The ID of the @LambdaFunctionStarted@ event recorded in the history.-lftoeaStartedEventId :: Lens' LambdaFunctionTimedOutEventAttributes Integer-lftoeaStartedEventId = lens _lftoeaStartedEventId (\ s a -> s{_lftoeaStartedEventId = a});--instance FromJSON-         LambdaFunctionTimedOutEventAttributes where-        parseJSON-          = withObject "LambdaFunctionTimedOutEventAttributes"-              (\ x ->-                 LambdaFunctionTimedOutEventAttributes' <$>-                   (x .:? "timeoutType") <*> (x .: "scheduledEventId")-                     <*> (x .: "startedEventId"))--instance Hashable-         LambdaFunctionTimedOutEventAttributes--instance NFData LambdaFunctionTimedOutEventAttributes---- | Provides details of the @MarkerRecorded@ event.------------ /See:/ 'markerRecordedEventAttributes' smart constructor.-data MarkerRecordedEventAttributes = MarkerRecordedEventAttributes'-    { _mreaDetails                      :: !(Maybe Text)-    , _mreaMarkerName                   :: !Text-    , _mreaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'MarkerRecordedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mreaDetails' - Details of the marker (if any).------ * 'mreaMarkerName' - The name of the marker.------ * 'mreaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarker@ decision that requested this marker. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-markerRecordedEventAttributes-    :: Text -- ^ 'mreaMarkerName'-    -> Integer -- ^ 'mreaDecisionTaskCompletedEventId'-    -> MarkerRecordedEventAttributes-markerRecordedEventAttributes pMarkerName_ pDecisionTaskCompletedEventId_ =-    MarkerRecordedEventAttributes'-    { _mreaDetails = Nothing-    , _mreaMarkerName = pMarkerName_-    , _mreaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | Details of the marker (if any).-mreaDetails :: Lens' MarkerRecordedEventAttributes (Maybe Text)-mreaDetails = lens _mreaDetails (\ s a -> s{_mreaDetails = a});---- | The name of the marker.-mreaMarkerName :: Lens' MarkerRecordedEventAttributes Text-mreaMarkerName = lens _mreaMarkerName (\ s a -> s{_mreaMarkerName = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarker@ decision that requested this marker. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-mreaDecisionTaskCompletedEventId :: Lens' MarkerRecordedEventAttributes Integer-mreaDecisionTaskCompletedEventId = lens _mreaDecisionTaskCompletedEventId (\ s a -> s{_mreaDecisionTaskCompletedEventId = a});--instance FromJSON MarkerRecordedEventAttributes where-        parseJSON-          = withObject "MarkerRecordedEventAttributes"-              (\ x ->-                 MarkerRecordedEventAttributes' <$>-                   (x .:? "details") <*> (x .: "markerName") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable MarkerRecordedEventAttributes--instance NFData MarkerRecordedEventAttributes---- | Contains the count of tasks in a task list.------------ /See:/ 'pendingTaskCount' smart constructor.-data PendingTaskCount = PendingTaskCount'-    { _ptcTruncated :: !(Maybe Bool)-    , _ptcCount     :: !Nat-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'PendingTaskCount' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ptcTruncated' - If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value.------ * 'ptcCount' - The number of tasks in the task list.-pendingTaskCount-    :: Natural -- ^ 'ptcCount'-    -> PendingTaskCount-pendingTaskCount pCount_ =-    PendingTaskCount'-    { _ptcTruncated = Nothing-    , _ptcCount = _Nat # pCount_-    }---- | If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value.-ptcTruncated :: Lens' PendingTaskCount (Maybe Bool)-ptcTruncated = lens _ptcTruncated (\ s a -> s{_ptcTruncated = a});---- | The number of tasks in the task list.-ptcCount :: Lens' PendingTaskCount Natural-ptcCount = lens _ptcCount (\ s a -> s{_ptcCount = a}) . _Nat;--instance FromJSON PendingTaskCount where-        parseJSON-          = withObject "PendingTaskCount"-              (\ x ->-                 PendingTaskCount' <$>-                   (x .:? "truncated") <*> (x .: "count"))--instance Hashable PendingTaskCount--instance NFData PendingTaskCount---- | Provides details of the @RecordMarker@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'recordMarkerDecisionAttributes' smart constructor.-data RecordMarkerDecisionAttributes = RecordMarkerDecisionAttributes'-    { _rmdaDetails    :: !(Maybe Text)-    , _rmdaMarkerName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RecordMarkerDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rmdaDetails' - /Optional./ details of the marker.------ * 'rmdaMarkerName' - __Required.__ The name of the marker.-recordMarkerDecisionAttributes-    :: Text -- ^ 'rmdaMarkerName'-    -> RecordMarkerDecisionAttributes-recordMarkerDecisionAttributes pMarkerName_ =-    RecordMarkerDecisionAttributes'-    { _rmdaDetails = Nothing-    , _rmdaMarkerName = pMarkerName_-    }---- | /Optional./ details of the marker.-rmdaDetails :: Lens' RecordMarkerDecisionAttributes (Maybe Text)-rmdaDetails = lens _rmdaDetails (\ s a -> s{_rmdaDetails = a});---- | __Required.__ The name of the marker.-rmdaMarkerName :: Lens' RecordMarkerDecisionAttributes Text-rmdaMarkerName = lens _rmdaMarkerName (\ s a -> s{_rmdaMarkerName = a});--instance Hashable RecordMarkerDecisionAttributes--instance NFData RecordMarkerDecisionAttributes--instance ToJSON RecordMarkerDecisionAttributes where-        toJSON RecordMarkerDecisionAttributes'{..}-          = object-              (catMaybes-                 [("details" .=) <$> _rmdaDetails,-                  Just ("markerName" .= _rmdaMarkerName)])---- | Provides details of the @RecordMarkerFailed@ event.------------ /See:/ 'recordMarkerFailedEventAttributes' smart constructor.-data RecordMarkerFailedEventAttributes = RecordMarkerFailedEventAttributes'-    { _rmfeaMarkerName                   :: !Text-    , _rmfeaCause                        :: !RecordMarkerFailedCause-    , _rmfeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RecordMarkerFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rmfeaMarkerName' - The marker's name.------ * 'rmfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'rmfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarkerFailed@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-recordMarkerFailedEventAttributes-    :: Text -- ^ 'rmfeaMarkerName'-    -> RecordMarkerFailedCause -- ^ 'rmfeaCause'-    -> Integer -- ^ 'rmfeaDecisionTaskCompletedEventId'-    -> RecordMarkerFailedEventAttributes-recordMarkerFailedEventAttributes pMarkerName_ pCause_ pDecisionTaskCompletedEventId_ =-    RecordMarkerFailedEventAttributes'-    { _rmfeaMarkerName = pMarkerName_-    , _rmfeaCause = pCause_-    , _rmfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The marker's name.-rmfeaMarkerName :: Lens' RecordMarkerFailedEventAttributes Text-rmfeaMarkerName = lens _rmfeaMarkerName (\ s a -> s{_rmfeaMarkerName = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-rmfeaCause :: Lens' RecordMarkerFailedEventAttributes RecordMarkerFailedCause-rmfeaCause = lens _rmfeaCause (\ s a -> s{_rmfeaCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarkerFailed@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-rmfeaDecisionTaskCompletedEventId :: Lens' RecordMarkerFailedEventAttributes Integer-rmfeaDecisionTaskCompletedEventId = lens _rmfeaDecisionTaskCompletedEventId (\ s a -> s{_rmfeaDecisionTaskCompletedEventId = a});--instance FromJSON RecordMarkerFailedEventAttributes-         where-        parseJSON-          = withObject "RecordMarkerFailedEventAttributes"-              (\ x ->-                 RecordMarkerFailedEventAttributes' <$>-                   (x .: "markerName") <*> (x .: "cause") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable RecordMarkerFailedEventAttributes--instance NFData RecordMarkerFailedEventAttributes---- | Provides details of the @RequestCancelActivityTask@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'requestCancelActivityTaskDecisionAttributes' smart constructor.-newtype RequestCancelActivityTaskDecisionAttributes = RequestCancelActivityTaskDecisionAttributes'-    { _rcatdaActivityId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RequestCancelActivityTaskDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcatdaActivityId' - The @activityId@ of the activity task to be canceled.-requestCancelActivityTaskDecisionAttributes-    :: Text -- ^ 'rcatdaActivityId'-    -> RequestCancelActivityTaskDecisionAttributes-requestCancelActivityTaskDecisionAttributes pActivityId_ =-    RequestCancelActivityTaskDecisionAttributes'-    { _rcatdaActivityId = pActivityId_-    }---- | The @activityId@ of the activity task to be canceled.-rcatdaActivityId :: Lens' RequestCancelActivityTaskDecisionAttributes Text-rcatdaActivityId = lens _rcatdaActivityId (\ s a -> s{_rcatdaActivityId = a});--instance Hashable-         RequestCancelActivityTaskDecisionAttributes--instance NFData-         RequestCancelActivityTaskDecisionAttributes--instance ToJSON-         RequestCancelActivityTaskDecisionAttributes where-        toJSON-          RequestCancelActivityTaskDecisionAttributes'{..}-          = object-              (catMaybes-                 [Just ("activityId" .= _rcatdaActivityId)])---- | Provides details of the @RequestCancelActivityTaskFailed@ event.------------ /See:/ 'requestCancelActivityTaskFailedEventAttributes' smart constructor.-data RequestCancelActivityTaskFailedEventAttributes = RequestCancelActivityTaskFailedEventAttributes'-    { _rcatfeaActivityId                   :: !Text-    , _rcatfeaCause                        :: !RequestCancelActivityTaskFailedCause-    , _rcatfeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RequestCancelActivityTaskFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcatfeaActivityId' - The activityId provided in the @RequestCancelActivityTask@ decision that failed.------ * 'rcatfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'rcatfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-requestCancelActivityTaskFailedEventAttributes-    :: Text -- ^ 'rcatfeaActivityId'-    -> RequestCancelActivityTaskFailedCause -- ^ 'rcatfeaCause'-    -> Integer -- ^ 'rcatfeaDecisionTaskCompletedEventId'-    -> RequestCancelActivityTaskFailedEventAttributes-requestCancelActivityTaskFailedEventAttributes pActivityId_ pCause_ pDecisionTaskCompletedEventId_ =-    RequestCancelActivityTaskFailedEventAttributes'-    { _rcatfeaActivityId = pActivityId_-    , _rcatfeaCause = pCause_-    , _rcatfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The activityId provided in the @RequestCancelActivityTask@ decision that failed.-rcatfeaActivityId :: Lens' RequestCancelActivityTaskFailedEventAttributes Text-rcatfeaActivityId = lens _rcatfeaActivityId (\ s a -> s{_rcatfeaActivityId = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-rcatfeaCause :: Lens' RequestCancelActivityTaskFailedEventAttributes RequestCancelActivityTaskFailedCause-rcatfeaCause = lens _rcatfeaCause (\ s a -> s{_rcatfeaCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-rcatfeaDecisionTaskCompletedEventId :: Lens' RequestCancelActivityTaskFailedEventAttributes Integer-rcatfeaDecisionTaskCompletedEventId = lens _rcatfeaDecisionTaskCompletedEventId (\ s a -> s{_rcatfeaDecisionTaskCompletedEventId = a});--instance FromJSON-         RequestCancelActivityTaskFailedEventAttributes where-        parseJSON-          = withObject-              "RequestCancelActivityTaskFailedEventAttributes"-              (\ x ->-                 RequestCancelActivityTaskFailedEventAttributes' <$>-                   (x .: "activityId") <*> (x .: "cause") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable-         RequestCancelActivityTaskFailedEventAttributes--instance NFData-         RequestCancelActivityTaskFailedEventAttributes---- | Provides details of the @RequestCancelExternalWorkflowExecution@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'requestCancelExternalWorkflowExecutionDecisionAttributes' smart constructor.-data RequestCancelExternalWorkflowExecutionDecisionAttributes = RequestCancelExternalWorkflowExecutionDecisionAttributes'-    { _rcewedaControl    :: !(Maybe Text)-    , _rcewedaRunId      :: !(Maybe Text)-    , _rcewedaWorkflowId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RequestCancelExternalWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcewedaControl' - /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks.------ * 'rcewedaRunId' - The @runId@ of the external workflow execution to cancel.------ * 'rcewedaWorkflowId' - __Required.__ The @workflowId@ of the external workflow execution to cancel.-requestCancelExternalWorkflowExecutionDecisionAttributes-    :: Text -- ^ 'rcewedaWorkflowId'-    -> RequestCancelExternalWorkflowExecutionDecisionAttributes-requestCancelExternalWorkflowExecutionDecisionAttributes pWorkflowId_ =-    RequestCancelExternalWorkflowExecutionDecisionAttributes'-    { _rcewedaControl = Nothing-    , _rcewedaRunId = Nothing-    , _rcewedaWorkflowId = pWorkflowId_-    }---- | /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks.-rcewedaControl :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Maybe Text)-rcewedaControl = lens _rcewedaControl (\ s a -> s{_rcewedaControl = a});---- | The @runId@ of the external workflow execution to cancel.-rcewedaRunId :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Maybe Text)-rcewedaRunId = lens _rcewedaRunId (\ s a -> s{_rcewedaRunId = a});---- | __Required.__ The @workflowId@ of the external workflow execution to cancel.-rcewedaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes Text-rcewedaWorkflowId = lens _rcewedaWorkflowId (\ s a -> s{_rcewedaWorkflowId = a});--instance Hashable-         RequestCancelExternalWorkflowExecutionDecisionAttributes--instance NFData-         RequestCancelExternalWorkflowExecutionDecisionAttributes--instance ToJSON-         RequestCancelExternalWorkflowExecutionDecisionAttributes-         where-        toJSON-          RequestCancelExternalWorkflowExecutionDecisionAttributes'{..}-          = object-              (catMaybes-                 [("control" .=) <$> _rcewedaControl,-                  ("runId" .=) <$> _rcewedaRunId,-                  Just ("workflowId" .= _rcewedaWorkflowId)])---- | Provides details of the @RequestCancelExternalWorkflowExecutionFailed@ event.------------ /See:/ 'requestCancelExternalWorkflowExecutionFailedEventAttributes' smart constructor.-data RequestCancelExternalWorkflowExecutionFailedEventAttributes = RequestCancelExternalWorkflowExecutionFailedEventAttributes'-    { _rcewefeaControl                      :: !(Maybe Text)-    , _rcewefeaRunId                        :: !(Maybe Text)-    , _rcewefeaWorkflowId                   :: !Text-    , _rcewefeaCause                        :: !RequestCancelExternalWorkflowExecutionFailedCause-    , _rcewefeaInitiatedEventId             :: !Integer-    , _rcewefeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RequestCancelExternalWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcewefeaControl' - Undocumented member.------ * 'rcewefeaRunId' - The @runId@ of the external workflow execution.------ * 'rcewefeaWorkflowId' - The @workflowId@ of the external workflow to which the cancel request was to be delivered.------ * 'rcewefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'rcewefeaInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'rcewefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-requestCancelExternalWorkflowExecutionFailedEventAttributes-    :: Text -- ^ 'rcewefeaWorkflowId'-    -> RequestCancelExternalWorkflowExecutionFailedCause -- ^ 'rcewefeaCause'-    -> Integer -- ^ 'rcewefeaInitiatedEventId'-    -> Integer -- ^ 'rcewefeaDecisionTaskCompletedEventId'-    -> RequestCancelExternalWorkflowExecutionFailedEventAttributes-requestCancelExternalWorkflowExecutionFailedEventAttributes pWorkflowId_ pCause_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ =-    RequestCancelExternalWorkflowExecutionFailedEventAttributes'-    { _rcewefeaControl = Nothing-    , _rcewefeaRunId = Nothing-    , _rcewefeaWorkflowId = pWorkflowId_-    , _rcewefeaCause = pCause_-    , _rcewefeaInitiatedEventId = pInitiatedEventId_-    , _rcewefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | Undocumented member.-rcewefeaControl :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Maybe Text)-rcewefeaControl = lens _rcewefeaControl (\ s a -> s{_rcewefeaControl = a});---- | The @runId@ of the external workflow execution.-rcewefeaRunId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Maybe Text)-rcewefeaRunId = lens _rcewefeaRunId (\ s a -> s{_rcewefeaRunId = a});---- | The @workflowId@ of the external workflow to which the cancel request was to be delivered.-rcewefeaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Text-rcewefeaWorkflowId = lens _rcewefeaWorkflowId (\ s a -> s{_rcewefeaWorkflowId = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-rcewefeaCause :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes RequestCancelExternalWorkflowExecutionFailedCause-rcewefeaCause = lens _rcewefeaCause (\ s a -> s{_rcewefeaCause = a});---- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-rcewefeaInitiatedEventId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Integer-rcewefeaInitiatedEventId = lens _rcewefeaInitiatedEventId (\ s a -> s{_rcewefeaInitiatedEventId = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-rcewefeaDecisionTaskCompletedEventId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Integer-rcewefeaDecisionTaskCompletedEventId = lens _rcewefeaDecisionTaskCompletedEventId (\ s a -> s{_rcewefeaDecisionTaskCompletedEventId = a});--instance FromJSON-         RequestCancelExternalWorkflowExecutionFailedEventAttributes-         where-        parseJSON-          = withObject-              "RequestCancelExternalWorkflowExecutionFailedEventAttributes"-              (\ x ->-                 RequestCancelExternalWorkflowExecutionFailedEventAttributes'-                   <$>-                   (x .:? "control") <*> (x .:? "runId") <*>-                     (x .: "workflowId")-                     <*> (x .: "cause")-                     <*> (x .: "initiatedEventId")-                     <*> (x .: "decisionTaskCompletedEventId"))--instance Hashable-         RequestCancelExternalWorkflowExecutionFailedEventAttributes--instance NFData-         RequestCancelExternalWorkflowExecutionFailedEventAttributes---- | Provides details of the @RequestCancelExternalWorkflowExecutionInitiated@ event.------------ /See:/ 'requestCancelExternalWorkflowExecutionInitiatedEventAttributes' smart constructor.-data RequestCancelExternalWorkflowExecutionInitiatedEventAttributes = RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'-    { _rceweieaControl                      :: !(Maybe Text)-    , _rceweieaRunId                        :: !(Maybe Text)-    , _rceweieaWorkflowId                   :: !Text-    , _rceweieaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rceweieaControl' - /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks.------ * 'rceweieaRunId' - The @runId@ of the external workflow execution to be canceled.------ * 'rceweieaWorkflowId' - The @workflowId@ of the external workflow execution to be canceled.------ * 'rceweieaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-requestCancelExternalWorkflowExecutionInitiatedEventAttributes-    :: Text -- ^ 'rceweieaWorkflowId'-    -> Integer -- ^ 'rceweieaDecisionTaskCompletedEventId'-    -> RequestCancelExternalWorkflowExecutionInitiatedEventAttributes-requestCancelExternalWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pDecisionTaskCompletedEventId_ =-    RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'-    { _rceweieaControl = Nothing-    , _rceweieaRunId = Nothing-    , _rceweieaWorkflowId = pWorkflowId_-    , _rceweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks.-rceweieaControl :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)-rceweieaControl = lens _rceweieaControl (\ s a -> s{_rceweieaControl = a});---- | The @runId@ of the external workflow execution to be canceled.-rceweieaRunId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)-rceweieaRunId = lens _rceweieaRunId (\ s a -> s{_rceweieaRunId = a});---- | The @workflowId@ of the external workflow execution to be canceled.-rceweieaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Text-rceweieaWorkflowId = lens _rceweieaWorkflowId (\ s a -> s{_rceweieaWorkflowId = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-rceweieaDecisionTaskCompletedEventId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Integer-rceweieaDecisionTaskCompletedEventId = lens _rceweieaDecisionTaskCompletedEventId (\ s a -> s{_rceweieaDecisionTaskCompletedEventId = a});--instance FromJSON-         RequestCancelExternalWorkflowExecutionInitiatedEventAttributes-         where-        parseJSON-          = withObject-              "RequestCancelExternalWorkflowExecutionInitiatedEventAttributes"-              (\ x ->-                 RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'-                   <$>-                   (x .:? "control") <*> (x .:? "runId") <*>-                     (x .: "workflowId")-                     <*> (x .: "decisionTaskCompletedEventId"))--instance Hashable-         RequestCancelExternalWorkflowExecutionInitiatedEventAttributes--instance NFData-         RequestCancelExternalWorkflowExecutionInitiatedEventAttributes---- | Provides details of the @ScheduleActivityTask@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @activityType.name@ : String constraint. The key is @swf:activityType.name@ .    * @activityType.version@ : String constraint. The key is @swf:activityType.version@ .    * @taskList@ : String constraint. The key is @swf:taskList.name@ .------------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'scheduleActivityTaskDecisionAttributes' smart constructor.-data ScheduleActivityTaskDecisionAttributes = ScheduleActivityTaskDecisionAttributes'-    { _satdaControl                :: !(Maybe Text)-    , _satdaHeartbeatTimeout       :: !(Maybe Text)-    , _satdaScheduleToCloseTimeout :: !(Maybe Text)-    , _satdaInput                  :: !(Maybe Text)-    , _satdaTaskList               :: !(Maybe TaskList)-    , _satdaTaskPriority           :: !(Maybe Text)-    , _satdaScheduleToStartTimeout :: !(Maybe Text)-    , _satdaStartToCloseTimeout    :: !(Maybe Text)-    , _satdaActivityType           :: !ActivityType-    , _satdaActivityId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ScheduleActivityTaskDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'satdaControl' - /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks. This data is not sent to the activity.------ * 'satdaHeartbeatTimeout' - If set, specifies the maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or returns a result, it will be ignored. This overrides the default heartbeat timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'satdaScheduleToCloseTimeout' - The maximum duration for this activity task. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'satdaInput' - The input provided to the activity task.------ * 'satdaTaskList' - If set, specifies the name of the task list in which to schedule the activity task. If not specified, the @defaultTaskList@ registered with the activity type will be used. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.------ * 'satdaTaskPriority' - /Optional./ If set, specifies the priority with which the activity task is to be assigned to a worker. This overrides the defaultTaskPriority specified when registering the activity type using 'RegisterActivityType' . Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .------ * 'satdaScheduleToStartTimeout' - /Optional./ If set, specifies the maximum duration the activity task can wait to be assigned to a worker. This overrides the default schedule-to-start timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'satdaStartToCloseTimeout' - If set, specifies the maximum duration a worker may take to process this activity task. This overrides the default start-to-close timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'satdaActivityType' - __Required.__ The type of the activity task to schedule.------ * 'satdaActivityId' - __Required.__ The @activityId@ of the activity task. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.-scheduleActivityTaskDecisionAttributes-    :: ActivityType -- ^ 'satdaActivityType'-    -> Text -- ^ 'satdaActivityId'-    -> ScheduleActivityTaskDecisionAttributes-scheduleActivityTaskDecisionAttributes pActivityType_ pActivityId_ =-    ScheduleActivityTaskDecisionAttributes'-    { _satdaControl = Nothing-    , _satdaHeartbeatTimeout = Nothing-    , _satdaScheduleToCloseTimeout = Nothing-    , _satdaInput = Nothing-    , _satdaTaskList = Nothing-    , _satdaTaskPriority = Nothing-    , _satdaScheduleToStartTimeout = Nothing-    , _satdaStartToCloseTimeout = Nothing-    , _satdaActivityType = pActivityType_-    , _satdaActivityId = pActivityId_-    }---- | /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks. This data is not sent to the activity.-satdaControl :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)-satdaControl = lens _satdaControl (\ s a -> s{_satdaControl = a});---- | If set, specifies the maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or returns a result, it will be ignored. This overrides the default heartbeat timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-satdaHeartbeatTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)-satdaHeartbeatTimeout = lens _satdaHeartbeatTimeout (\ s a -> s{_satdaHeartbeatTimeout = a});---- | The maximum duration for this activity task. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-satdaScheduleToCloseTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)-satdaScheduleToCloseTimeout = lens _satdaScheduleToCloseTimeout (\ s a -> s{_satdaScheduleToCloseTimeout = a});---- | The input provided to the activity task.-satdaInput :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)-satdaInput = lens _satdaInput (\ s a -> s{_satdaInput = a});---- | If set, specifies the name of the task list in which to schedule the activity task. If not specified, the @defaultTaskList@ registered with the activity type will be used. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.-satdaTaskList :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe TaskList)-satdaTaskList = lens _satdaTaskList (\ s a -> s{_satdaTaskList = a});---- | /Optional./ If set, specifies the priority with which the activity task is to be assigned to a worker. This overrides the defaultTaskPriority specified when registering the activity type using 'RegisterActivityType' . Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .-satdaTaskPriority :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)-satdaTaskPriority = lens _satdaTaskPriority (\ s a -> s{_satdaTaskPriority = a});---- | /Optional./ If set, specifies the maximum duration the activity task can wait to be assigned to a worker. This overrides the default schedule-to-start timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-satdaScheduleToStartTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)-satdaScheduleToStartTimeout = lens _satdaScheduleToStartTimeout (\ s a -> s{_satdaScheduleToStartTimeout = a});---- | If set, specifies the maximum duration a worker may take to process this activity task. This overrides the default start-to-close timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-satdaStartToCloseTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)-satdaStartToCloseTimeout = lens _satdaStartToCloseTimeout (\ s a -> s{_satdaStartToCloseTimeout = a});---- | __Required.__ The type of the activity task to schedule.-satdaActivityType :: Lens' ScheduleActivityTaskDecisionAttributes ActivityType-satdaActivityType = lens _satdaActivityType (\ s a -> s{_satdaActivityType = a});---- | __Required.__ The @activityId@ of the activity task. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.-satdaActivityId :: Lens' ScheduleActivityTaskDecisionAttributes Text-satdaActivityId = lens _satdaActivityId (\ s a -> s{_satdaActivityId = a});--instance Hashable-         ScheduleActivityTaskDecisionAttributes--instance NFData-         ScheduleActivityTaskDecisionAttributes--instance ToJSON-         ScheduleActivityTaskDecisionAttributes where-        toJSON ScheduleActivityTaskDecisionAttributes'{..}-          = object-              (catMaybes-                 [("control" .=) <$> _satdaControl,-                  ("heartbeatTimeout" .=) <$> _satdaHeartbeatTimeout,-                  ("scheduleToCloseTimeout" .=) <$>-                    _satdaScheduleToCloseTimeout,-                  ("input" .=) <$> _satdaInput,-                  ("taskList" .=) <$> _satdaTaskList,-                  ("taskPriority" .=) <$> _satdaTaskPriority,-                  ("scheduleToStartTimeout" .=) <$>-                    _satdaScheduleToStartTimeout,-                  ("startToCloseTimeout" .=) <$>-                    _satdaStartToCloseTimeout,-                  Just ("activityType" .= _satdaActivityType),-                  Just ("activityId" .= _satdaActivityId)])---- | Provides details of the @ScheduleActivityTaskFailed@ event.------------ /See:/ 'scheduleActivityTaskFailedEventAttributes' smart constructor.-data ScheduleActivityTaskFailedEventAttributes = ScheduleActivityTaskFailedEventAttributes'-    { _satfeaActivityType                 :: !ActivityType-    , _satfeaActivityId                   :: !Text-    , _satfeaCause                        :: !ScheduleActivityTaskFailedCause-    , _satfeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ScheduleActivityTaskFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'satfeaActivityType' - The activity type provided in the @ScheduleActivityTask@ decision that failed.------ * 'satfeaActivityId' - The activityId provided in the @ScheduleActivityTask@ decision that failed.------ * 'satfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'satfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-scheduleActivityTaskFailedEventAttributes-    :: ActivityType -- ^ 'satfeaActivityType'-    -> Text -- ^ 'satfeaActivityId'-    -> ScheduleActivityTaskFailedCause -- ^ 'satfeaCause'-    -> Integer -- ^ 'satfeaDecisionTaskCompletedEventId'-    -> ScheduleActivityTaskFailedEventAttributes-scheduleActivityTaskFailedEventAttributes pActivityType_ pActivityId_ pCause_ pDecisionTaskCompletedEventId_ =-    ScheduleActivityTaskFailedEventAttributes'-    { _satfeaActivityType = pActivityType_-    , _satfeaActivityId = pActivityId_-    , _satfeaCause = pCause_-    , _satfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The activity type provided in the @ScheduleActivityTask@ decision that failed.-satfeaActivityType :: Lens' ScheduleActivityTaskFailedEventAttributes ActivityType-satfeaActivityType = lens _satfeaActivityType (\ s a -> s{_satfeaActivityType = a});---- | The activityId provided in the @ScheduleActivityTask@ decision that failed.-satfeaActivityId :: Lens' ScheduleActivityTaskFailedEventAttributes Text-satfeaActivityId = lens _satfeaActivityId (\ s a -> s{_satfeaActivityId = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-satfeaCause :: Lens' ScheduleActivityTaskFailedEventAttributes ScheduleActivityTaskFailedCause-satfeaCause = lens _satfeaCause (\ s a -> s{_satfeaCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-satfeaDecisionTaskCompletedEventId :: Lens' ScheduleActivityTaskFailedEventAttributes Integer-satfeaDecisionTaskCompletedEventId = lens _satfeaDecisionTaskCompletedEventId (\ s a -> s{_satfeaDecisionTaskCompletedEventId = a});--instance FromJSON-         ScheduleActivityTaskFailedEventAttributes where-        parseJSON-          = withObject-              "ScheduleActivityTaskFailedEventAttributes"-              (\ x ->-                 ScheduleActivityTaskFailedEventAttributes' <$>-                   (x .: "activityType") <*> (x .: "activityId") <*>-                     (x .: "cause")-                     <*> (x .: "decisionTaskCompletedEventId"))--instance Hashable-         ScheduleActivityTaskFailedEventAttributes--instance NFData-         ScheduleActivityTaskFailedEventAttributes---- | Provides details of the @ScheduleLambdaFunction@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @activityType.name@ : String constraint. The key is @swf:activityType.name@ .    * @activityType.version@ : String constraint. The key is @swf:activityType.version@ .    * @taskList@ : String constraint. The key is @swf:taskList.name@ .------------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'scheduleLambdaFunctionDecisionAttributes' smart constructor.-data ScheduleLambdaFunctionDecisionAttributes = ScheduleLambdaFunctionDecisionAttributes'-    { _slfdaInput               :: !(Maybe Text)-    , _slfdaStartToCloseTimeout :: !(Maybe Text)-    , _slfdaId                  :: !Text-    , _slfdaName                :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ScheduleLambdaFunctionDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'slfdaInput' - The input provided to the AWS Lambda function.------ * 'slfdaStartToCloseTimeout' - If set, specifies the maximum duration the function may take to execute.------ * 'slfdaId' - __Required.__ The SWF @id@ of the AWS Lambda task. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.------ * 'slfdaName' - __Required.__ The name of the AWS Lambda function to invoke.-scheduleLambdaFunctionDecisionAttributes-    :: Text -- ^ 'slfdaId'-    -> Text -- ^ 'slfdaName'-    -> ScheduleLambdaFunctionDecisionAttributes-scheduleLambdaFunctionDecisionAttributes pId_ pName_ =-    ScheduleLambdaFunctionDecisionAttributes'-    { _slfdaInput = Nothing-    , _slfdaStartToCloseTimeout = Nothing-    , _slfdaId = pId_-    , _slfdaName = pName_-    }---- | The input provided to the AWS Lambda function.-slfdaInput :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text)-slfdaInput = lens _slfdaInput (\ s a -> s{_slfdaInput = a});---- | If set, specifies the maximum duration the function may take to execute.-slfdaStartToCloseTimeout :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text)-slfdaStartToCloseTimeout = lens _slfdaStartToCloseTimeout (\ s a -> s{_slfdaStartToCloseTimeout = a});---- | __Required.__ The SWF @id@ of the AWS Lambda task. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.-slfdaId :: Lens' ScheduleLambdaFunctionDecisionAttributes Text-slfdaId = lens _slfdaId (\ s a -> s{_slfdaId = a});---- | __Required.__ The name of the AWS Lambda function to invoke.-slfdaName :: Lens' ScheduleLambdaFunctionDecisionAttributes Text-slfdaName = lens _slfdaName (\ s a -> s{_slfdaName = a});--instance Hashable-         ScheduleLambdaFunctionDecisionAttributes--instance NFData-         ScheduleLambdaFunctionDecisionAttributes--instance ToJSON-         ScheduleLambdaFunctionDecisionAttributes where-        toJSON ScheduleLambdaFunctionDecisionAttributes'{..}-          = object-              (catMaybes-                 [("input" .=) <$> _slfdaInput,-                  ("startToCloseTimeout" .=) <$>-                    _slfdaStartToCloseTimeout,-                  Just ("id" .= _slfdaId),-                  Just ("name" .= _slfdaName)])---- | Provides details for the @ScheduleLambdaFunctionFailed@ event.------------ /See:/ 'scheduleLambdaFunctionFailedEventAttributes' smart constructor.-data ScheduleLambdaFunctionFailedEventAttributes = ScheduleLambdaFunctionFailedEventAttributes'-    { _slffeaId                           :: !Text-    , _slffeaName                         :: !Text-    , _slffeaCause                        :: !ScheduleLambdaFunctionFailedCause-    , _slffeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ScheduleLambdaFunctionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'slffeaId' - The unique Amazon SWF ID of the AWS Lambda task.------ * 'slffeaName' - The name of the scheduled AWS Lambda function.------ * 'slffeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'slffeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this AWS Lambda function. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-scheduleLambdaFunctionFailedEventAttributes-    :: Text -- ^ 'slffeaId'-    -> Text -- ^ 'slffeaName'-    -> ScheduleLambdaFunctionFailedCause -- ^ 'slffeaCause'-    -> Integer -- ^ 'slffeaDecisionTaskCompletedEventId'-    -> ScheduleLambdaFunctionFailedEventAttributes-scheduleLambdaFunctionFailedEventAttributes pId_ pName_ pCause_ pDecisionTaskCompletedEventId_ =-    ScheduleLambdaFunctionFailedEventAttributes'-    { _slffeaId = pId_-    , _slffeaName = pName_-    , _slffeaCause = pCause_-    , _slffeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The unique Amazon SWF ID of the AWS Lambda task.-slffeaId :: Lens' ScheduleLambdaFunctionFailedEventAttributes Text-slffeaId = lens _slffeaId (\ s a -> s{_slffeaId = a});---- | The name of the scheduled AWS Lambda function.-slffeaName :: Lens' ScheduleLambdaFunctionFailedEventAttributes Text-slffeaName = lens _slffeaName (\ s a -> s{_slffeaName = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-slffeaCause :: Lens' ScheduleLambdaFunctionFailedEventAttributes ScheduleLambdaFunctionFailedCause-slffeaCause = lens _slffeaCause (\ s a -> s{_slffeaCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this AWS Lambda function. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-slffeaDecisionTaskCompletedEventId :: Lens' ScheduleLambdaFunctionFailedEventAttributes Integer-slffeaDecisionTaskCompletedEventId = lens _slffeaDecisionTaskCompletedEventId (\ s a -> s{_slffeaDecisionTaskCompletedEventId = a});--instance FromJSON-         ScheduleLambdaFunctionFailedEventAttributes where-        parseJSON-          = withObject-              "ScheduleLambdaFunctionFailedEventAttributes"-              (\ x ->-                 ScheduleLambdaFunctionFailedEventAttributes' <$>-                   (x .: "id") <*> (x .: "name") <*> (x .: "cause") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable-         ScheduleLambdaFunctionFailedEventAttributes--instance NFData-         ScheduleLambdaFunctionFailedEventAttributes---- | Provides details of the @SignalExternalWorkflowExecution@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'signalExternalWorkflowExecutionDecisionAttributes' smart constructor.-data SignalExternalWorkflowExecutionDecisionAttributes = SignalExternalWorkflowExecutionDecisionAttributes'-    { _sewedaControl    :: !(Maybe Text)-    , _sewedaInput      :: !(Maybe Text)-    , _sewedaRunId      :: !(Maybe Text)-    , _sewedaWorkflowId :: !Text-    , _sewedaSignalName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'SignalExternalWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sewedaControl' - /Optional./ Data attached to the event that can be used by the decider in subsequent decision tasks.------ * 'sewedaInput' - /Optional./ Input data to be provided with the signal. The target workflow execution will use the signal name and input data to process the signal.------ * 'sewedaRunId' - The @runId@ of the workflow execution to be signaled.------ * 'sewedaWorkflowId' - __Required.__ The @workflowId@ of the workflow execution to be signaled.------ * 'sewedaSignalName' - __Required.__ The name of the signal.The target workflow execution will use the signal name and input to process the signal.-signalExternalWorkflowExecutionDecisionAttributes-    :: Text -- ^ 'sewedaWorkflowId'-    -> Text -- ^ 'sewedaSignalName'-    -> SignalExternalWorkflowExecutionDecisionAttributes-signalExternalWorkflowExecutionDecisionAttributes pWorkflowId_ pSignalName_ =-    SignalExternalWorkflowExecutionDecisionAttributes'-    { _sewedaControl = Nothing-    , _sewedaInput = Nothing-    , _sewedaRunId = Nothing-    , _sewedaWorkflowId = pWorkflowId_-    , _sewedaSignalName = pSignalName_-    }---- | /Optional./ Data attached to the event that can be used by the decider in subsequent decision tasks.-sewedaControl :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text)-sewedaControl = lens _sewedaControl (\ s a -> s{_sewedaControl = a});---- | /Optional./ Input data to be provided with the signal. The target workflow execution will use the signal name and input data to process the signal.-sewedaInput :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text)-sewedaInput = lens _sewedaInput (\ s a -> s{_sewedaInput = a});---- | The @runId@ of the workflow execution to be signaled.-sewedaRunId :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text)-sewedaRunId = lens _sewedaRunId (\ s a -> s{_sewedaRunId = a});---- | __Required.__ The @workflowId@ of the workflow execution to be signaled.-sewedaWorkflowId :: Lens' SignalExternalWorkflowExecutionDecisionAttributes Text-sewedaWorkflowId = lens _sewedaWorkflowId (\ s a -> s{_sewedaWorkflowId = a});---- | __Required.__ The name of the signal.The target workflow execution will use the signal name and input to process the signal.-sewedaSignalName :: Lens' SignalExternalWorkflowExecutionDecisionAttributes Text-sewedaSignalName = lens _sewedaSignalName (\ s a -> s{_sewedaSignalName = a});--instance Hashable-         SignalExternalWorkflowExecutionDecisionAttributes--instance NFData-         SignalExternalWorkflowExecutionDecisionAttributes--instance ToJSON-         SignalExternalWorkflowExecutionDecisionAttributes-         where-        toJSON-          SignalExternalWorkflowExecutionDecisionAttributes'{..}-          = object-              (catMaybes-                 [("control" .=) <$> _sewedaControl,-                  ("input" .=) <$> _sewedaInput,-                  ("runId" .=) <$> _sewedaRunId,-                  Just ("workflowId" .= _sewedaWorkflowId),-                  Just ("signalName" .= _sewedaSignalName)])---- | Provides details of the @SignalExternalWorkflowExecutionFailed@ event.------------ /See:/ 'signalExternalWorkflowExecutionFailedEventAttributes' smart constructor.-data SignalExternalWorkflowExecutionFailedEventAttributes = SignalExternalWorkflowExecutionFailedEventAttributes'-    { _sewefeaControl                      :: !(Maybe Text)-    , _sewefeaRunId                        :: !(Maybe Text)-    , _sewefeaWorkflowId                   :: !Text-    , _sewefeaCause                        :: !SignalExternalWorkflowExecutionFailedCause-    , _sewefeaInitiatedEventId             :: !Integer-    , _sewefeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'SignalExternalWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sewefeaControl' - Undocumented member.------ * 'sewefeaRunId' - The @runId@ of the external workflow execution that the signal was being delivered to.------ * 'sewefeaWorkflowId' - The @workflowId@ of the external workflow execution that the signal was being delivered to.------ * 'sewefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'sewefeaInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'sewefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-signalExternalWorkflowExecutionFailedEventAttributes-    :: Text -- ^ 'sewefeaWorkflowId'-    -> SignalExternalWorkflowExecutionFailedCause -- ^ 'sewefeaCause'-    -> Integer -- ^ 'sewefeaInitiatedEventId'-    -> Integer -- ^ 'sewefeaDecisionTaskCompletedEventId'-    -> SignalExternalWorkflowExecutionFailedEventAttributes-signalExternalWorkflowExecutionFailedEventAttributes pWorkflowId_ pCause_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ =-    SignalExternalWorkflowExecutionFailedEventAttributes'-    { _sewefeaControl = Nothing-    , _sewefeaRunId = Nothing-    , _sewefeaWorkflowId = pWorkflowId_-    , _sewefeaCause = pCause_-    , _sewefeaInitiatedEventId = pInitiatedEventId_-    , _sewefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | Undocumented member.-sewefeaControl :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Maybe Text)-sewefeaControl = lens _sewefeaControl (\ s a -> s{_sewefeaControl = a});---- | The @runId@ of the external workflow execution that the signal was being delivered to.-sewefeaRunId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Maybe Text)-sewefeaRunId = lens _sewefeaRunId (\ s a -> s{_sewefeaRunId = a});---- | The @workflowId@ of the external workflow execution that the signal was being delivered to.-sewefeaWorkflowId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Text-sewefeaWorkflowId = lens _sewefeaWorkflowId (\ s a -> s{_sewefeaWorkflowId = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-sewefeaCause :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes SignalExternalWorkflowExecutionFailedCause-sewefeaCause = lens _sewefeaCause (\ s a -> s{_sewefeaCause = a});---- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-sewefeaInitiatedEventId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Integer-sewefeaInitiatedEventId = lens _sewefeaInitiatedEventId (\ s a -> s{_sewefeaInitiatedEventId = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-sewefeaDecisionTaskCompletedEventId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Integer-sewefeaDecisionTaskCompletedEventId = lens _sewefeaDecisionTaskCompletedEventId (\ s a -> s{_sewefeaDecisionTaskCompletedEventId = a});--instance FromJSON-         SignalExternalWorkflowExecutionFailedEventAttributes-         where-        parseJSON-          = withObject-              "SignalExternalWorkflowExecutionFailedEventAttributes"-              (\ x ->-                 SignalExternalWorkflowExecutionFailedEventAttributes'-                   <$>-                   (x .:? "control") <*> (x .:? "runId") <*>-                     (x .: "workflowId")-                     <*> (x .: "cause")-                     <*> (x .: "initiatedEventId")-                     <*> (x .: "decisionTaskCompletedEventId"))--instance Hashable-         SignalExternalWorkflowExecutionFailedEventAttributes--instance NFData-         SignalExternalWorkflowExecutionFailedEventAttributes---- | Provides details of the @SignalExternalWorkflowExecutionInitiated@ event.------------ /See:/ 'signalExternalWorkflowExecutionInitiatedEventAttributes' smart constructor.-data SignalExternalWorkflowExecutionInitiatedEventAttributes = SignalExternalWorkflowExecutionInitiatedEventAttributes'-    { _seweieaControl                      :: !(Maybe Text)-    , _seweieaInput                        :: !(Maybe Text)-    , _seweieaRunId                        :: !(Maybe Text)-    , _seweieaWorkflowId                   :: !Text-    , _seweieaSignalName                   :: !Text-    , _seweieaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'SignalExternalWorkflowExecutionInitiatedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'seweieaControl' - /Optional./ data attached to the event that can be used by the decider in subsequent decision tasks.------ * 'seweieaInput' - Input provided to the signal (if any).------ * 'seweieaRunId' - The @runId@ of the external workflow execution to send the signal to.------ * 'seweieaWorkflowId' - The @workflowId@ of the external workflow execution.------ * 'seweieaSignalName' - The name of the signal.------ * 'seweieaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-signalExternalWorkflowExecutionInitiatedEventAttributes-    :: Text -- ^ 'seweieaWorkflowId'-    -> Text -- ^ 'seweieaSignalName'-    -> Integer -- ^ 'seweieaDecisionTaskCompletedEventId'-    -> SignalExternalWorkflowExecutionInitiatedEventAttributes-signalExternalWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pSignalName_ pDecisionTaskCompletedEventId_ =-    SignalExternalWorkflowExecutionInitiatedEventAttributes'-    { _seweieaControl = Nothing-    , _seweieaInput = Nothing-    , _seweieaRunId = Nothing-    , _seweieaWorkflowId = pWorkflowId_-    , _seweieaSignalName = pSignalName_-    , _seweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | /Optional./ data attached to the event that can be used by the decider in subsequent decision tasks.-seweieaControl :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)-seweieaControl = lens _seweieaControl (\ s a -> s{_seweieaControl = a});---- | Input provided to the signal (if any).-seweieaInput :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)-seweieaInput = lens _seweieaInput (\ s a -> s{_seweieaInput = a});---- | The @runId@ of the external workflow execution to send the signal to.-seweieaRunId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)-seweieaRunId = lens _seweieaRunId (\ s a -> s{_seweieaRunId = a});---- | The @workflowId@ of the external workflow execution.-seweieaWorkflowId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Text-seweieaWorkflowId = lens _seweieaWorkflowId (\ s a -> s{_seweieaWorkflowId = a});---- | The name of the signal.-seweieaSignalName :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Text-seweieaSignalName = lens _seweieaSignalName (\ s a -> s{_seweieaSignalName = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-seweieaDecisionTaskCompletedEventId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Integer-seweieaDecisionTaskCompletedEventId = lens _seweieaDecisionTaskCompletedEventId (\ s a -> s{_seweieaDecisionTaskCompletedEventId = a});--instance FromJSON-         SignalExternalWorkflowExecutionInitiatedEventAttributes-         where-        parseJSON-          = withObject-              "SignalExternalWorkflowExecutionInitiatedEventAttributes"-              (\ x ->-                 SignalExternalWorkflowExecutionInitiatedEventAttributes'-                   <$>-                   (x .:? "control") <*> (x .:? "input") <*>-                     (x .:? "runId")-                     <*> (x .: "workflowId")-                     <*> (x .: "signalName")-                     <*> (x .: "decisionTaskCompletedEventId"))--instance Hashable-         SignalExternalWorkflowExecutionInitiatedEventAttributes--instance NFData-         SignalExternalWorkflowExecutionInitiatedEventAttributes---- | Provides details of the @StartChildWorkflowExecution@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * Constrain the following parameters by using a @Condition@ element with the appropriate keys.     * @tagList.member.N@ : The key is "swf:tagList.N" where N is the tag number from 0 to 4, inclusive.    * @taskList@ : String constraint. The key is @swf:taskList.name@ .    * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ .    * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ .------------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'startChildWorkflowExecutionDecisionAttributes' smart constructor.-data StartChildWorkflowExecutionDecisionAttributes = StartChildWorkflowExecutionDecisionAttributes'-    { _scwedaControl                      :: !(Maybe Text)-    , _scwedaTagList                      :: !(Maybe [Text])-    , _scwedaTaskStartToCloseTimeout      :: !(Maybe Text)-    , _scwedaLambdaRole                   :: !(Maybe Text)-    , _scwedaInput                        :: !(Maybe Text)-    , _scwedaExecutionStartToCloseTimeout :: !(Maybe Text)-    , _scwedaTaskList                     :: !(Maybe TaskList)-    , _scwedaTaskPriority                 :: !(Maybe Text)-    , _scwedaChildPolicy                  :: !(Maybe ChildPolicy)-    , _scwedaWorkflowType                 :: !WorkflowType-    , _scwedaWorkflowId                   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'StartChildWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scwedaControl' - /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks. This data is not sent to the child workflow execution.------ * 'scwedaTagList' - The list of tags to associate with the child workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' .------ * 'scwedaTaskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'scwedaLambdaRole' - The ARN of an IAM role that authorizes Amazon SWF to invoke AWS Lambda functions.------ * 'scwedaInput' - The input to be provided to the workflow execution.------ * 'scwedaExecutionStartToCloseTimeout' - The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'scwedaTaskList' - The name of the task list to be used for decision tasks of the child workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.------ * 'scwedaTaskPriority' - /Optional./ A task priority that, if set, specifies the priority for a decision task of this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .------ * 'scwedaChildPolicy' - /Optional./ If set, specifies the policy to use for the child workflow executions if the workflow execution being started is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.------ * 'scwedaWorkflowType' - __Required.__ The type of the workflow execution to be started.------ * 'scwedaWorkflowId' - __Required.__ The @workflowId@ of the workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.-startChildWorkflowExecutionDecisionAttributes-    :: WorkflowType -- ^ 'scwedaWorkflowType'-    -> Text -- ^ 'scwedaWorkflowId'-    -> StartChildWorkflowExecutionDecisionAttributes-startChildWorkflowExecutionDecisionAttributes pWorkflowType_ pWorkflowId_ =-    StartChildWorkflowExecutionDecisionAttributes'-    { _scwedaControl = Nothing-    , _scwedaTagList = Nothing-    , _scwedaTaskStartToCloseTimeout = Nothing-    , _scwedaLambdaRole = Nothing-    , _scwedaInput = Nothing-    , _scwedaExecutionStartToCloseTimeout = Nothing-    , _scwedaTaskList = Nothing-    , _scwedaTaskPriority = Nothing-    , _scwedaChildPolicy = Nothing-    , _scwedaWorkflowType = pWorkflowType_-    , _scwedaWorkflowId = pWorkflowId_-    }---- | /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks. This data is not sent to the child workflow execution.-scwedaControl :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)-scwedaControl = lens _scwedaControl (\ s a -> s{_scwedaControl = a});---- | The list of tags to associate with the child workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' .-scwedaTagList :: Lens' StartChildWorkflowExecutionDecisionAttributes [Text]-scwedaTagList = lens _scwedaTagList (\ s a -> s{_scwedaTagList = a}) . _Default . _Coerce;---- | Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-scwedaTaskStartToCloseTimeout :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)-scwedaTaskStartToCloseTimeout = lens _scwedaTaskStartToCloseTimeout (\ s a -> s{_scwedaTaskStartToCloseTimeout = a});---- | The ARN of an IAM role that authorizes Amazon SWF to invoke AWS Lambda functions.-scwedaLambdaRole :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)-scwedaLambdaRole = lens _scwedaLambdaRole (\ s a -> s{_scwedaLambdaRole = a});---- | The input to be provided to the workflow execution.-scwedaInput :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)-scwedaInput = lens _scwedaInput (\ s a -> s{_scwedaInput = a});---- | The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-scwedaExecutionStartToCloseTimeout :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)-scwedaExecutionStartToCloseTimeout = lens _scwedaExecutionStartToCloseTimeout (\ s a -> s{_scwedaExecutionStartToCloseTimeout = a});---- | The name of the task list to be used for decision tasks of the child workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.-scwedaTaskList :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe TaskList)-scwedaTaskList = lens _scwedaTaskList (\ s a -> s{_scwedaTaskList = a});---- | /Optional./ A task priority that, if set, specifies the priority for a decision task of this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .-scwedaTaskPriority :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)-scwedaTaskPriority = lens _scwedaTaskPriority (\ s a -> s{_scwedaTaskPriority = a});---- | /Optional./ If set, specifies the policy to use for the child workflow executions if the workflow execution being started is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-scwedaChildPolicy :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe ChildPolicy)-scwedaChildPolicy = lens _scwedaChildPolicy (\ s a -> s{_scwedaChildPolicy = a});---- | __Required.__ The type of the workflow execution to be started.-scwedaWorkflowType :: Lens' StartChildWorkflowExecutionDecisionAttributes WorkflowType-scwedaWorkflowType = lens _scwedaWorkflowType (\ s a -> s{_scwedaWorkflowType = a});---- | __Required.__ The @workflowId@ of the workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.-scwedaWorkflowId :: Lens' StartChildWorkflowExecutionDecisionAttributes Text-scwedaWorkflowId = lens _scwedaWorkflowId (\ s a -> s{_scwedaWorkflowId = a});--instance Hashable-         StartChildWorkflowExecutionDecisionAttributes--instance NFData-         StartChildWorkflowExecutionDecisionAttributes--instance ToJSON-         StartChildWorkflowExecutionDecisionAttributes where-        toJSON-          StartChildWorkflowExecutionDecisionAttributes'{..}-          = object-              (catMaybes-                 [("control" .=) <$> _scwedaControl,-                  ("tagList" .=) <$> _scwedaTagList,-                  ("taskStartToCloseTimeout" .=) <$>-                    _scwedaTaskStartToCloseTimeout,-                  ("lambdaRole" .=) <$> _scwedaLambdaRole,-                  ("input" .=) <$> _scwedaInput,-                  ("executionStartToCloseTimeout" .=) <$>-                    _scwedaExecutionStartToCloseTimeout,-                  ("taskList" .=) <$> _scwedaTaskList,-                  ("taskPriority" .=) <$> _scwedaTaskPriority,-                  ("childPolicy" .=) <$> _scwedaChildPolicy,-                  Just ("workflowType" .= _scwedaWorkflowType),-                  Just ("workflowId" .= _scwedaWorkflowId)])---- | Provides details of the @StartChildWorkflowExecutionFailed@ event.------------ /See:/ 'startChildWorkflowExecutionFailedEventAttributes' smart constructor.-data StartChildWorkflowExecutionFailedEventAttributes = StartChildWorkflowExecutionFailedEventAttributes'-    { _scwefeaControl                      :: !(Maybe Text)-    , _scwefeaWorkflowType                 :: !WorkflowType-    , _scwefeaCause                        :: !StartChildWorkflowExecutionFailedCause-    , _scwefeaWorkflowId                   :: !Text-    , _scwefeaInitiatedEventId             :: !Integer-    , _scwefeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'StartChildWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scwefeaControl' - Undocumented member.------ * 'scwefeaWorkflowType' - The workflow type provided in the @StartChildWorkflowExecution@ decision that failed.------ * 'scwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'scwefeaWorkflowId' - The @workflowId@ of the child workflow execution.------ * 'scwefeaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'scwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ decision to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the cause of events.-startChildWorkflowExecutionFailedEventAttributes-    :: WorkflowType -- ^ 'scwefeaWorkflowType'-    -> StartChildWorkflowExecutionFailedCause -- ^ 'scwefeaCause'-    -> Text -- ^ 'scwefeaWorkflowId'-    -> Integer -- ^ 'scwefeaInitiatedEventId'-    -> Integer -- ^ 'scwefeaDecisionTaskCompletedEventId'-    -> StartChildWorkflowExecutionFailedEventAttributes-startChildWorkflowExecutionFailedEventAttributes pWorkflowType_ pCause_ pWorkflowId_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ =-    StartChildWorkflowExecutionFailedEventAttributes'-    { _scwefeaControl = Nothing-    , _scwefeaWorkflowType = pWorkflowType_-    , _scwefeaCause = pCause_-    , _scwefeaWorkflowId = pWorkflowId_-    , _scwefeaInitiatedEventId = pInitiatedEventId_-    , _scwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | Undocumented member.-scwefeaControl :: Lens' StartChildWorkflowExecutionFailedEventAttributes (Maybe Text)-scwefeaControl = lens _scwefeaControl (\ s a -> s{_scwefeaControl = a});---- | The workflow type provided in the @StartChildWorkflowExecution@ decision that failed.-scwefeaWorkflowType :: Lens' StartChildWorkflowExecutionFailedEventAttributes WorkflowType-scwefeaWorkflowType = lens _scwefeaWorkflowType (\ s a -> s{_scwefeaWorkflowType = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-scwefeaCause :: Lens' StartChildWorkflowExecutionFailedEventAttributes StartChildWorkflowExecutionFailedCause-scwefeaCause = lens _scwefeaCause (\ s a -> s{_scwefeaCause = a});---- | The @workflowId@ of the child workflow execution.-scwefeaWorkflowId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Text-scwefeaWorkflowId = lens _scwefeaWorkflowId (\ s a -> s{_scwefeaWorkflowId = a});---- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-scwefeaInitiatedEventId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Integer-scwefeaInitiatedEventId = lens _scwefeaInitiatedEventId (\ s a -> s{_scwefeaInitiatedEventId = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ decision to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the cause of events.-scwefeaDecisionTaskCompletedEventId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Integer-scwefeaDecisionTaskCompletedEventId = lens _scwefeaDecisionTaskCompletedEventId (\ s a -> s{_scwefeaDecisionTaskCompletedEventId = a});--instance FromJSON-         StartChildWorkflowExecutionFailedEventAttributes-         where-        parseJSON-          = withObject-              "StartChildWorkflowExecutionFailedEventAttributes"-              (\ x ->-                 StartChildWorkflowExecutionFailedEventAttributes' <$>-                   (x .:? "control") <*> (x .: "workflowType") <*>-                     (x .: "cause")-                     <*> (x .: "workflowId")-                     <*> (x .: "initiatedEventId")-                     <*> (x .: "decisionTaskCompletedEventId"))--instance Hashable-         StartChildWorkflowExecutionFailedEventAttributes--instance NFData-         StartChildWorkflowExecutionFailedEventAttributes---- | Provides details of the @StartChildWorkflowExecutionInitiated@ event.------------ /See:/ 'startChildWorkflowExecutionInitiatedEventAttributes' smart constructor.-data StartChildWorkflowExecutionInitiatedEventAttributes = StartChildWorkflowExecutionInitiatedEventAttributes'-    { _scweieaControl                      :: !(Maybe Text)-    , _scweieaTagList                      :: !(Maybe [Text])-    , _scweieaTaskStartToCloseTimeout      :: !(Maybe Text)-    , _scweieaLambdaRole                   :: !(Maybe Text)-    , _scweieaInput                        :: !(Maybe Text)-    , _scweieaExecutionStartToCloseTimeout :: !(Maybe Text)-    , _scweieaTaskPriority                 :: !(Maybe Text)-    , _scweieaWorkflowId                   :: !Text-    , _scweieaWorkflowType                 :: !WorkflowType-    , _scweieaTaskList                     :: !TaskList-    , _scweieaDecisionTaskCompletedEventId :: !Integer-    , _scweieaChildPolicy                  :: !ChildPolicy-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'StartChildWorkflowExecutionInitiatedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scweieaControl' - /Optional./ Data attached to the event that can be used by the decider in subsequent decision tasks. This data is not sent to the activity.------ * 'scweieaTagList' - The list of tags to associated with the child workflow execution.------ * 'scweieaTaskStartToCloseTimeout' - The maximum duration allowed for the decision tasks for this workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'scweieaLambdaRole' - The IAM role attached to this workflow execution to use when invoking AWS Lambda functions.------ * 'scweieaInput' - The inputs provided to the child workflow execution (if any).------ * 'scweieaExecutionStartToCloseTimeout' - The maximum duration for the child workflow execution. If the workflow execution is not closed within this duration, it will be timed out and force terminated. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'scweieaTaskPriority' - /Optional./ The priority assigned for the decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .------ * 'scweieaWorkflowId' - The @workflowId@ of the child workflow execution.------ * 'scweieaWorkflowType' - The type of the child workflow execution.------ * 'scweieaTaskList' - The name of the task list used for the decision tasks of the child workflow execution.------ * 'scweieaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ decision to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the cause of events.------ * 'scweieaChildPolicy' - The policy to use for the child workflow executions if this execution gets terminated by explicitly calling the 'TerminateWorkflowExecution' action or due to an expired timeout. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-startChildWorkflowExecutionInitiatedEventAttributes-    :: Text -- ^ 'scweieaWorkflowId'-    -> WorkflowType -- ^ 'scweieaWorkflowType'-    -> TaskList -- ^ 'scweieaTaskList'-    -> Integer -- ^ 'scweieaDecisionTaskCompletedEventId'-    -> ChildPolicy -- ^ 'scweieaChildPolicy'-    -> StartChildWorkflowExecutionInitiatedEventAttributes-startChildWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pWorkflowType_ pTaskList_ pDecisionTaskCompletedEventId_ pChildPolicy_ =-    StartChildWorkflowExecutionInitiatedEventAttributes'-    { _scweieaControl = Nothing-    , _scweieaTagList = Nothing-    , _scweieaTaskStartToCloseTimeout = Nothing-    , _scweieaLambdaRole = Nothing-    , _scweieaInput = Nothing-    , _scweieaExecutionStartToCloseTimeout = Nothing-    , _scweieaTaskPriority = Nothing-    , _scweieaWorkflowId = pWorkflowId_-    , _scweieaWorkflowType = pWorkflowType_-    , _scweieaTaskList = pTaskList_-    , _scweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    , _scweieaChildPolicy = pChildPolicy_-    }---- | /Optional./ Data attached to the event that can be used by the decider in subsequent decision tasks. This data is not sent to the activity.-scweieaControl :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)-scweieaControl = lens _scweieaControl (\ s a -> s{_scweieaControl = a});---- | The list of tags to associated with the child workflow execution.-scweieaTagList :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes [Text]-scweieaTagList = lens _scweieaTagList (\ s a -> s{_scweieaTagList = a}) . _Default . _Coerce;---- | The maximum duration allowed for the decision tasks for this workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-scweieaTaskStartToCloseTimeout :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)-scweieaTaskStartToCloseTimeout = lens _scweieaTaskStartToCloseTimeout (\ s a -> s{_scweieaTaskStartToCloseTimeout = a});---- | The IAM role attached to this workflow execution to use when invoking AWS Lambda functions.-scweieaLambdaRole :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)-scweieaLambdaRole = lens _scweieaLambdaRole (\ s a -> s{_scweieaLambdaRole = a});---- | The inputs provided to the child workflow execution (if any).-scweieaInput :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)-scweieaInput = lens _scweieaInput (\ s a -> s{_scweieaInput = a});---- | The maximum duration for the child workflow execution. If the workflow execution is not closed within this duration, it will be timed out and force terminated. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-scweieaExecutionStartToCloseTimeout :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)-scweieaExecutionStartToCloseTimeout = lens _scweieaExecutionStartToCloseTimeout (\ s a -> s{_scweieaExecutionStartToCloseTimeout = a});---- | /Optional./ The priority assigned for the decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .-scweieaTaskPriority :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)-scweieaTaskPriority = lens _scweieaTaskPriority (\ s a -> s{_scweieaTaskPriority = a});---- | The @workflowId@ of the child workflow execution.-scweieaWorkflowId :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes Text-scweieaWorkflowId = lens _scweieaWorkflowId (\ s a -> s{_scweieaWorkflowId = a});---- | The type of the child workflow execution.-scweieaWorkflowType :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes WorkflowType-scweieaWorkflowType = lens _scweieaWorkflowType (\ s a -> s{_scweieaWorkflowType = a});---- | The name of the task list used for the decision tasks of the child workflow execution.-scweieaTaskList :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes TaskList-scweieaTaskList = lens _scweieaTaskList (\ s a -> s{_scweieaTaskList = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ decision to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the cause of events.-scweieaDecisionTaskCompletedEventId :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes Integer-scweieaDecisionTaskCompletedEventId = lens _scweieaDecisionTaskCompletedEventId (\ s a -> s{_scweieaDecisionTaskCompletedEventId = a});---- | The policy to use for the child workflow executions if this execution gets terminated by explicitly calling the 'TerminateWorkflowExecution' action or due to an expired timeout. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-scweieaChildPolicy :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes ChildPolicy-scweieaChildPolicy = lens _scweieaChildPolicy (\ s a -> s{_scweieaChildPolicy = a});--instance FromJSON-         StartChildWorkflowExecutionInitiatedEventAttributes-         where-        parseJSON-          = withObject-              "StartChildWorkflowExecutionInitiatedEventAttributes"-              (\ x ->-                 StartChildWorkflowExecutionInitiatedEventAttributes'-                   <$>-                   (x .:? "control") <*> (x .:? "tagList" .!= mempty)-                     <*> (x .:? "taskStartToCloseTimeout")-                     <*> (x .:? "lambdaRole")-                     <*> (x .:? "input")-                     <*> (x .:? "executionStartToCloseTimeout")-                     <*> (x .:? "taskPriority")-                     <*> (x .: "workflowId")-                     <*> (x .: "workflowType")-                     <*> (x .: "taskList")-                     <*> (x .: "decisionTaskCompletedEventId")-                     <*> (x .: "childPolicy"))--instance Hashable-         StartChildWorkflowExecutionInitiatedEventAttributes--instance NFData-         StartChildWorkflowExecutionInitiatedEventAttributes---- | Provides details for the @StartLambdaFunctionFailed@ event.------------ /See:/ 'startLambdaFunctionFailedEventAttributes' smart constructor.-data StartLambdaFunctionFailedEventAttributes = StartLambdaFunctionFailedEventAttributes'-    { _sScheduledEventId :: !(Maybe Integer)-    , _sCause            :: !(Maybe StartLambdaFunctionFailedCause)-    , _sMessage          :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'StartLambdaFunctionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'sCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'sMessage' - The error message (if any).-startLambdaFunctionFailedEventAttributes-    :: StartLambdaFunctionFailedEventAttributes-startLambdaFunctionFailedEventAttributes =-    StartLambdaFunctionFailedEventAttributes'-    { _sScheduledEventId = Nothing-    , _sCause = Nothing-    , _sMessage = Nothing-    }---- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this AWS Lambda function was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-sScheduledEventId :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe Integer)-sScheduledEventId = lens _sScheduledEventId (\ s a -> s{_sScheduledEventId = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-sCause :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe StartLambdaFunctionFailedCause)-sCause = lens _sCause (\ s a -> s{_sCause = a});---- | The error message (if any).-sMessage :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe Text)-sMessage = lens _sMessage (\ s a -> s{_sMessage = a});--instance FromJSON-         StartLambdaFunctionFailedEventAttributes where-        parseJSON-          = withObject-              "StartLambdaFunctionFailedEventAttributes"-              (\ x ->-                 StartLambdaFunctionFailedEventAttributes' <$>-                   (x .:? "scheduledEventId") <*> (x .:? "cause") <*>-                     (x .:? "message"))--instance Hashable-         StartLambdaFunctionFailedEventAttributes--instance NFData-         StartLambdaFunctionFailedEventAttributes---- | Provides details of the @StartTimer@ decision.--------- __Access Control__------ You can use IAM policies to control this decision's access to Amazon SWF resources as follows:------     * Use a @Resource@ element with the domain name to limit the action to only specified domains.    * Use an @Action@ element to allow or deny permission to call this action.    * You cannot use an IAM policy to constrain this action's parameters.------ If the caller does not have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's __cause__ parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> .--------- /See:/ 'startTimerDecisionAttributes' smart constructor.-data StartTimerDecisionAttributes = StartTimerDecisionAttributes'-    { _stdaControl            :: !(Maybe Text)-    , _stdaTimerId            :: !Text-    , _stdaStartToFireTimeout :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'StartTimerDecisionAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'stdaControl' - /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks.------ * 'stdaTimerId' - __Required.__ The unique ID of the timer. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.------ * 'stdaStartToFireTimeout' - __Required.__ The duration to wait before firing the timer. The duration is specified in seconds; an integer greater than or equal to 0.-startTimerDecisionAttributes-    :: Text -- ^ 'stdaTimerId'-    -> Text -- ^ 'stdaStartToFireTimeout'-    -> StartTimerDecisionAttributes-startTimerDecisionAttributes pTimerId_ pStartToFireTimeout_ =-    StartTimerDecisionAttributes'-    { _stdaControl = Nothing-    , _stdaTimerId = pTimerId_-    , _stdaStartToFireTimeout = pStartToFireTimeout_-    }---- | /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks.-stdaControl :: Lens' StartTimerDecisionAttributes (Maybe Text)-stdaControl = lens _stdaControl (\ s a -> s{_stdaControl = a});---- | __Required.__ The unique ID of the timer. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (\u0000-\u001f | \u007f - \u009f). Also, it must not contain the literal string quotarnquot.-stdaTimerId :: Lens' StartTimerDecisionAttributes Text-stdaTimerId = lens _stdaTimerId (\ s a -> s{_stdaTimerId = a});---- | __Required.__ The duration to wait before firing the timer. The duration is specified in seconds; an integer greater than or equal to 0.-stdaStartToFireTimeout :: Lens' StartTimerDecisionAttributes Text-stdaStartToFireTimeout = lens _stdaStartToFireTimeout (\ s a -> s{_stdaStartToFireTimeout = a});--instance Hashable StartTimerDecisionAttributes--instance NFData StartTimerDecisionAttributes--instance ToJSON StartTimerDecisionAttributes where-        toJSON StartTimerDecisionAttributes'{..}-          = object-              (catMaybes-                 [("control" .=) <$> _stdaControl,-                  Just ("timerId" .= _stdaTimerId),-                  Just-                    ("startToFireTimeout" .= _stdaStartToFireTimeout)])---- | Provides details of the @StartTimerFailed@ event.------------ /See:/ 'startTimerFailedEventAttributes' smart constructor.-data StartTimerFailedEventAttributes = StartTimerFailedEventAttributes'-    { _stfeaTimerId                      :: !Text-    , _stfeaCause                        :: !StartTimerFailedCause-    , _stfeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'StartTimerFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'stfeaTimerId' - The timerId provided in the @StartTimer@ decision that failed.------ * 'stfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.------ * 'stfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-startTimerFailedEventAttributes-    :: Text -- ^ 'stfeaTimerId'-    -> StartTimerFailedCause -- ^ 'stfeaCause'-    -> Integer -- ^ 'stfeaDecisionTaskCompletedEventId'-    -> StartTimerFailedEventAttributes-startTimerFailedEventAttributes pTimerId_ pCause_ pDecisionTaskCompletedEventId_ =-    StartTimerFailedEventAttributes'-    { _stfeaTimerId = pTimerId_-    , _stfeaCause = pCause_-    , _stfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The timerId provided in the @StartTimer@ decision that failed.-stfeaTimerId :: Lens' StartTimerFailedEventAttributes Text-stfeaTimerId = lens _stfeaTimerId (\ s a -> s{_stfeaTimerId = a});---- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.-stfeaCause :: Lens' StartTimerFailedEventAttributes StartTimerFailedCause-stfeaCause = lens _stfeaCause (\ s a -> s{_stfeaCause = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-stfeaDecisionTaskCompletedEventId :: Lens' StartTimerFailedEventAttributes Integer-stfeaDecisionTaskCompletedEventId = lens _stfeaDecisionTaskCompletedEventId (\ s a -> s{_stfeaDecisionTaskCompletedEventId = a});--instance FromJSON StartTimerFailedEventAttributes-         where-        parseJSON-          = withObject "StartTimerFailedEventAttributes"-              (\ x ->-                 StartTimerFailedEventAttributes' <$>-                   (x .: "timerId") <*> (x .: "cause") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable StartTimerFailedEventAttributes--instance NFData StartTimerFailedEventAttributes---- | Used to filter the workflow executions in visibility APIs based on a tag.------------ /See:/ 'tagFilter' smart constructor.-newtype TagFilter = TagFilter'-    { _tfTag :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'TagFilter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tfTag' - __Required.__ Specifies the tag that must be associated with the execution for it to meet the filter criteria.-tagFilter-    :: Text -- ^ 'tfTag'-    -> TagFilter-tagFilter pTag_ =-    TagFilter'-    { _tfTag = pTag_-    }---- | __Required.__ Specifies the tag that must be associated with the execution for it to meet the filter criteria.-tfTag :: Lens' TagFilter Text-tfTag = lens _tfTag (\ s a -> s{_tfTag = a});--instance Hashable TagFilter--instance NFData TagFilter--instance ToJSON TagFilter where-        toJSON TagFilter'{..}-          = object (catMaybes [Just ("tag" .= _tfTag)])---- | Represents a task list.------------ /See:/ 'taskList' smart constructor.-newtype TaskList = TaskList'-    { _tlName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'TaskList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tlName' - The name of the task list.-taskList-    :: Text -- ^ 'tlName'-    -> TaskList-taskList pName_ =-    TaskList'-    { _tlName = pName_-    }---- | The name of the task list.-tlName :: Lens' TaskList Text-tlName = lens _tlName (\ s a -> s{_tlName = a});--instance FromJSON TaskList where-        parseJSON-          = withObject "TaskList"-              (\ x -> TaskList' <$> (x .: "name"))--instance Hashable TaskList--instance NFData TaskList--instance ToJSON TaskList where-        toJSON TaskList'{..}-          = object (catMaybes [Just ("name" .= _tlName)])---- | Provides details of the @TimerCanceled@ event.------------ /See:/ 'timerCanceledEventAttributes' smart constructor.-data TimerCanceledEventAttributes = TimerCanceledEventAttributes'-    { _tceaTimerId                      :: !Text-    , _tceaStartedEventId               :: !Integer-    , _tceaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'TimerCanceledEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tceaTimerId' - The unique ID of the timer that was canceled.------ * 'tceaStartedEventId' - The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'tceaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-timerCanceledEventAttributes-    :: Text -- ^ 'tceaTimerId'-    -> Integer -- ^ 'tceaStartedEventId'-    -> Integer -- ^ 'tceaDecisionTaskCompletedEventId'-    -> TimerCanceledEventAttributes-timerCanceledEventAttributes pTimerId_ pStartedEventId_ pDecisionTaskCompletedEventId_ =-    TimerCanceledEventAttributes'-    { _tceaTimerId = pTimerId_-    , _tceaStartedEventId = pStartedEventId_-    , _tceaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The unique ID of the timer that was canceled.-tceaTimerId :: Lens' TimerCanceledEventAttributes Text-tceaTimerId = lens _tceaTimerId (\ s a -> s{_tceaTimerId = a});---- | The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-tceaStartedEventId :: Lens' TimerCanceledEventAttributes Integer-tceaStartedEventId = lens _tceaStartedEventId (\ s a -> s{_tceaStartedEventId = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-tceaDecisionTaskCompletedEventId :: Lens' TimerCanceledEventAttributes Integer-tceaDecisionTaskCompletedEventId = lens _tceaDecisionTaskCompletedEventId (\ s a -> s{_tceaDecisionTaskCompletedEventId = a});--instance FromJSON TimerCanceledEventAttributes where-        parseJSON-          = withObject "TimerCanceledEventAttributes"-              (\ x ->-                 TimerCanceledEventAttributes' <$>-                   (x .: "timerId") <*> (x .: "startedEventId") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable TimerCanceledEventAttributes--instance NFData TimerCanceledEventAttributes---- | Provides details of the @TimerFired@ event.------------ /See:/ 'timerFiredEventAttributes' smart constructor.-data TimerFiredEventAttributes = TimerFiredEventAttributes'-    { _tfeaTimerId        :: !Text-    , _tfeaStartedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'TimerFiredEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tfeaTimerId' - The unique ID of the timer that fired.------ * 'tfeaStartedEventId' - The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-timerFiredEventAttributes-    :: Text -- ^ 'tfeaTimerId'-    -> Integer -- ^ 'tfeaStartedEventId'-    -> TimerFiredEventAttributes-timerFiredEventAttributes pTimerId_ pStartedEventId_ =-    TimerFiredEventAttributes'-    { _tfeaTimerId = pTimerId_-    , _tfeaStartedEventId = pStartedEventId_-    }---- | The unique ID of the timer that fired.-tfeaTimerId :: Lens' TimerFiredEventAttributes Text-tfeaTimerId = lens _tfeaTimerId (\ s a -> s{_tfeaTimerId = a});---- | The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-tfeaStartedEventId :: Lens' TimerFiredEventAttributes Integer-tfeaStartedEventId = lens _tfeaStartedEventId (\ s a -> s{_tfeaStartedEventId = a});--instance FromJSON TimerFiredEventAttributes where-        parseJSON-          = withObject "TimerFiredEventAttributes"-              (\ x ->-                 TimerFiredEventAttributes' <$>-                   (x .: "timerId") <*> (x .: "startedEventId"))--instance Hashable TimerFiredEventAttributes--instance NFData TimerFiredEventAttributes---- | Provides details of the @TimerStarted@ event.------------ /See:/ 'timerStartedEventAttributes' smart constructor.-data TimerStartedEventAttributes = TimerStartedEventAttributes'-    { _tseaControl                      :: !(Maybe Text)-    , _tseaTimerId                      :: !Text-    , _tseaStartToFireTimeout           :: !Text-    , _tseaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'TimerStartedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tseaControl' - /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks.------ * 'tseaTimerId' - The unique ID of the timer that was started.------ * 'tseaStartToFireTimeout' - The duration of time after which the timer will fire. The duration is specified in seconds; an integer greater than or equal to 0.------ * 'tseaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-timerStartedEventAttributes-    :: Text -- ^ 'tseaTimerId'-    -> Text -- ^ 'tseaStartToFireTimeout'-    -> Integer -- ^ 'tseaDecisionTaskCompletedEventId'-    -> TimerStartedEventAttributes-timerStartedEventAttributes pTimerId_ pStartToFireTimeout_ pDecisionTaskCompletedEventId_ =-    TimerStartedEventAttributes'-    { _tseaControl = Nothing-    , _tseaTimerId = pTimerId_-    , _tseaStartToFireTimeout = pStartToFireTimeout_-    , _tseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | /Optional./ Data attached to the event that can be used by the decider in subsequent workflow tasks.-tseaControl :: Lens' TimerStartedEventAttributes (Maybe Text)-tseaControl = lens _tseaControl (\ s a -> s{_tseaControl = a});---- | The unique ID of the timer that was started.-tseaTimerId :: Lens' TimerStartedEventAttributes Text-tseaTimerId = lens _tseaTimerId (\ s a -> s{_tseaTimerId = a});---- | The duration of time after which the timer will fire. The duration is specified in seconds; an integer greater than or equal to 0.-tseaStartToFireTimeout :: Lens' TimerStartedEventAttributes Text-tseaStartToFireTimeout = lens _tseaStartToFireTimeout (\ s a -> s{_tseaStartToFireTimeout = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-tseaDecisionTaskCompletedEventId :: Lens' TimerStartedEventAttributes Integer-tseaDecisionTaskCompletedEventId = lens _tseaDecisionTaskCompletedEventId (\ s a -> s{_tseaDecisionTaskCompletedEventId = a});--instance FromJSON TimerStartedEventAttributes where-        parseJSON-          = withObject "TimerStartedEventAttributes"-              (\ x ->-                 TimerStartedEventAttributes' <$>-                   (x .:? "control") <*> (x .: "timerId") <*>-                     (x .: "startToFireTimeout")-                     <*> (x .: "decisionTaskCompletedEventId"))--instance Hashable TimerStartedEventAttributes--instance NFData TimerStartedEventAttributes---- | Represents a workflow execution.------------ /See:/ 'workflowExecution' smart constructor.-data WorkflowExecution = WorkflowExecution'-    { _weWorkflowId :: !Text-    , _weRunId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecution' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'weWorkflowId' - The user defined identifier associated with the workflow execution.------ * 'weRunId' - A system-generated unique identifier for the workflow execution.-workflowExecution-    :: Text -- ^ 'weWorkflowId'-    -> Text -- ^ 'weRunId'-    -> WorkflowExecution-workflowExecution pWorkflowId_ pRunId_ =-    WorkflowExecution'-    { _weWorkflowId = pWorkflowId_-    , _weRunId = pRunId_-    }---- | The user defined identifier associated with the workflow execution.-weWorkflowId :: Lens' WorkflowExecution Text-weWorkflowId = lens _weWorkflowId (\ s a -> s{_weWorkflowId = a});---- | A system-generated unique identifier for the workflow execution.-weRunId :: Lens' WorkflowExecution Text-weRunId = lens _weRunId (\ s a -> s{_weRunId = a});--instance FromJSON WorkflowExecution where-        parseJSON-          = withObject "WorkflowExecution"-              (\ x ->-                 WorkflowExecution' <$>-                   (x .: "workflowId") <*> (x .: "runId"))--instance Hashable WorkflowExecution--instance NFData WorkflowExecution--instance ToJSON WorkflowExecution where-        toJSON WorkflowExecution'{..}-          = object-              (catMaybes-                 [Just ("workflowId" .= _weWorkflowId),-                  Just ("runId" .= _weRunId)])---- | Provides details of the @WorkflowExecutionCancelRequested@ event.------------ /See:/ 'workflowExecutionCancelRequestedEventAttributes' smart constructor.-data WorkflowExecutionCancelRequestedEventAttributes = WorkflowExecutionCancelRequestedEventAttributes'-    { _wecreaExternalWorkflowExecution :: !(Maybe WorkflowExecution)-    , _wecreaExternalInitiatedEventId  :: !(Maybe Integer)-    , _wecreaCause                     :: !(Maybe WorkflowExecutionCancelRequestedCause)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionCancelRequestedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wecreaExternalWorkflowExecution' - The external workflow execution for which the cancellation was requested.------ * 'wecreaExternalInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'wecreaCause' - If set, indicates that the request to cancel the workflow execution was automatically generated, and specifies the cause. This happens if the parent workflow execution times out or is terminated, and the child policy is set to cancel child executions.-workflowExecutionCancelRequestedEventAttributes-    :: WorkflowExecutionCancelRequestedEventAttributes-workflowExecutionCancelRequestedEventAttributes =-    WorkflowExecutionCancelRequestedEventAttributes'-    { _wecreaExternalWorkflowExecution = Nothing-    , _wecreaExternalInitiatedEventId = Nothing-    , _wecreaCause = Nothing-    }---- | The external workflow execution for which the cancellation was requested.-wecreaExternalWorkflowExecution :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe WorkflowExecution)-wecreaExternalWorkflowExecution = lens _wecreaExternalWorkflowExecution (\ s a -> s{_wecreaExternalWorkflowExecution = a});---- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-wecreaExternalInitiatedEventId :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe Integer)-wecreaExternalInitiatedEventId = lens _wecreaExternalInitiatedEventId (\ s a -> s{_wecreaExternalInitiatedEventId = a});---- | If set, indicates that the request to cancel the workflow execution was automatically generated, and specifies the cause. This happens if the parent workflow execution times out or is terminated, and the child policy is set to cancel child executions.-wecreaCause :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe WorkflowExecutionCancelRequestedCause)-wecreaCause = lens _wecreaCause (\ s a -> s{_wecreaCause = a});--instance FromJSON-         WorkflowExecutionCancelRequestedEventAttributes where-        parseJSON-          = withObject-              "WorkflowExecutionCancelRequestedEventAttributes"-              (\ x ->-                 WorkflowExecutionCancelRequestedEventAttributes' <$>-                   (x .:? "externalWorkflowExecution") <*>-                     (x .:? "externalInitiatedEventId")-                     <*> (x .:? "cause"))--instance Hashable-         WorkflowExecutionCancelRequestedEventAttributes--instance NFData-         WorkflowExecutionCancelRequestedEventAttributes---- | Provides details of the @WorkflowExecutionCanceled@ event.------------ /See:/ 'workflowExecutionCanceledEventAttributes' smart constructor.-data WorkflowExecutionCanceledEventAttributes = WorkflowExecutionCanceledEventAttributes'-    { _wDetails                      :: !(Maybe Text)-    , _wDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionCanceledEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wDetails' - Details for the cancellation (if any).------ * 'wDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-workflowExecutionCanceledEventAttributes-    :: Integer -- ^ 'wDecisionTaskCompletedEventId'-    -> WorkflowExecutionCanceledEventAttributes-workflowExecutionCanceledEventAttributes pDecisionTaskCompletedEventId_ =-    WorkflowExecutionCanceledEventAttributes'-    { _wDetails = Nothing-    , _wDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | Details for the cancellation (if any).-wDetails :: Lens' WorkflowExecutionCanceledEventAttributes (Maybe Text)-wDetails = lens _wDetails (\ s a -> s{_wDetails = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-wDecisionTaskCompletedEventId :: Lens' WorkflowExecutionCanceledEventAttributes Integer-wDecisionTaskCompletedEventId = lens _wDecisionTaskCompletedEventId (\ s a -> s{_wDecisionTaskCompletedEventId = a});--instance FromJSON-         WorkflowExecutionCanceledEventAttributes where-        parseJSON-          = withObject-              "WorkflowExecutionCanceledEventAttributes"-              (\ x ->-                 WorkflowExecutionCanceledEventAttributes' <$>-                   (x .:? "details") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable-         WorkflowExecutionCanceledEventAttributes--instance NFData-         WorkflowExecutionCanceledEventAttributes---- | Provides details of the @WorkflowExecutionCompleted@ event.------------ /See:/ 'workflowExecutionCompletedEventAttributes' smart constructor.-data WorkflowExecutionCompletedEventAttributes = WorkflowExecutionCompletedEventAttributes'-    { _weceaResult                       :: !(Maybe Text)-    , _weceaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionCompletedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'weceaResult' - The result produced by the workflow execution upon successful completion.------ * 'weceaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-workflowExecutionCompletedEventAttributes-    :: Integer -- ^ 'weceaDecisionTaskCompletedEventId'-    -> WorkflowExecutionCompletedEventAttributes-workflowExecutionCompletedEventAttributes pDecisionTaskCompletedEventId_ =-    WorkflowExecutionCompletedEventAttributes'-    { _weceaResult = Nothing-    , _weceaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The result produced by the workflow execution upon successful completion.-weceaResult :: Lens' WorkflowExecutionCompletedEventAttributes (Maybe Text)-weceaResult = lens _weceaResult (\ s a -> s{_weceaResult = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-weceaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionCompletedEventAttributes Integer-weceaDecisionTaskCompletedEventId = lens _weceaDecisionTaskCompletedEventId (\ s a -> s{_weceaDecisionTaskCompletedEventId = a});--instance FromJSON-         WorkflowExecutionCompletedEventAttributes where-        parseJSON-          = withObject-              "WorkflowExecutionCompletedEventAttributes"-              (\ x ->-                 WorkflowExecutionCompletedEventAttributes' <$>-                   (x .:? "result") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable-         WorkflowExecutionCompletedEventAttributes--instance NFData-         WorkflowExecutionCompletedEventAttributes---- | The configuration settings for a workflow execution including timeout values, tasklist etc. These configuration settings are determined from the defaults specified when registering the workflow type and those specified when starting the workflow execution.------------ /See:/ 'workflowExecutionConfiguration' smart constructor.-data WorkflowExecutionConfiguration = WorkflowExecutionConfiguration'-    { _wecLambdaRole                   :: !(Maybe Text)-    , _wecTaskPriority                 :: !(Maybe Text)-    , _wecTaskStartToCloseTimeout      :: !Text-    , _wecExecutionStartToCloseTimeout :: !Text-    , _wecTaskList                     :: !TaskList-    , _wecChildPolicy                  :: !ChildPolicy-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wecLambdaRole' - The IAM role used by this workflow execution when invoking AWS Lambda functions.------ * 'wecTaskPriority' - The priority assigned to decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .------ * 'wecTaskStartToCloseTimeout' - The maximum duration allowed for decision tasks for this workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'wecExecutionStartToCloseTimeout' - The total duration for this workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'wecTaskList' - The task list used for the decision tasks generated for this workflow execution.------ * 'wecChildPolicy' - The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-workflowExecutionConfiguration-    :: Text -- ^ 'wecTaskStartToCloseTimeout'-    -> Text -- ^ 'wecExecutionStartToCloseTimeout'-    -> TaskList -- ^ 'wecTaskList'-    -> ChildPolicy -- ^ 'wecChildPolicy'-    -> WorkflowExecutionConfiguration-workflowExecutionConfiguration pTaskStartToCloseTimeout_ pExecutionStartToCloseTimeout_ pTaskList_ pChildPolicy_ =-    WorkflowExecutionConfiguration'-    { _wecLambdaRole = Nothing-    , _wecTaskPriority = Nothing-    , _wecTaskStartToCloseTimeout = pTaskStartToCloseTimeout_-    , _wecExecutionStartToCloseTimeout = pExecutionStartToCloseTimeout_-    , _wecTaskList = pTaskList_-    , _wecChildPolicy = pChildPolicy_-    }---- | The IAM role used by this workflow execution when invoking AWS Lambda functions.-wecLambdaRole :: Lens' WorkflowExecutionConfiguration (Maybe Text)-wecLambdaRole = lens _wecLambdaRole (\ s a -> s{_wecLambdaRole = a});---- | The priority assigned to decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .-wecTaskPriority :: Lens' WorkflowExecutionConfiguration (Maybe Text)-wecTaskPriority = lens _wecTaskPriority (\ s a -> s{_wecTaskPriority = a});---- | The maximum duration allowed for decision tasks for this workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-wecTaskStartToCloseTimeout :: Lens' WorkflowExecutionConfiguration Text-wecTaskStartToCloseTimeout = lens _wecTaskStartToCloseTimeout (\ s a -> s{_wecTaskStartToCloseTimeout = a});---- | The total duration for this workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-wecExecutionStartToCloseTimeout :: Lens' WorkflowExecutionConfiguration Text-wecExecutionStartToCloseTimeout = lens _wecExecutionStartToCloseTimeout (\ s a -> s{_wecExecutionStartToCloseTimeout = a});---- | The task list used for the decision tasks generated for this workflow execution.-wecTaskList :: Lens' WorkflowExecutionConfiguration TaskList-wecTaskList = lens _wecTaskList (\ s a -> s{_wecTaskList = a});---- | The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-wecChildPolicy :: Lens' WorkflowExecutionConfiguration ChildPolicy-wecChildPolicy = lens _wecChildPolicy (\ s a -> s{_wecChildPolicy = a});--instance FromJSON WorkflowExecutionConfiguration-         where-        parseJSON-          = withObject "WorkflowExecutionConfiguration"-              (\ x ->-                 WorkflowExecutionConfiguration' <$>-                   (x .:? "lambdaRole") <*> (x .:? "taskPriority") <*>-                     (x .: "taskStartToCloseTimeout")-                     <*> (x .: "executionStartToCloseTimeout")-                     <*> (x .: "taskList")-                     <*> (x .: "childPolicy"))--instance Hashable WorkflowExecutionConfiguration--instance NFData WorkflowExecutionConfiguration---- | Provides details of the @WorkflowExecutionContinuedAsNew@ event.------------ /See:/ 'workflowExecutionContinuedAsNewEventAttributes' smart constructor.-data WorkflowExecutionContinuedAsNewEventAttributes = WorkflowExecutionContinuedAsNewEventAttributes'-    { _wecaneaTagList                      :: !(Maybe [Text])-    , _wecaneaTaskStartToCloseTimeout      :: !(Maybe Text)-    , _wecaneaLambdaRole                   :: !(Maybe Text)-    , _wecaneaInput                        :: !(Maybe Text)-    , _wecaneaExecutionStartToCloseTimeout :: !(Maybe Text)-    , _wecaneaTaskPriority                 :: !(Maybe Text)-    , _wecaneaDecisionTaskCompletedEventId :: !Integer-    , _wecaneaNewExecutionRunId            :: !Text-    , _wecaneaTaskList                     :: !TaskList-    , _wecaneaChildPolicy                  :: !ChildPolicy-    , _wecaneaWorkflowType                 :: !WorkflowType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionContinuedAsNewEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wecaneaTagList' - The list of tags associated with the new workflow execution.------ * 'wecaneaTaskStartToCloseTimeout' - The maximum duration of decision tasks for the new workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'wecaneaLambdaRole' - The IAM role attached to this workflow execution to use when invoking AWS Lambda functions.------ * 'wecaneaInput' - The input provided to the new workflow execution.------ * 'wecaneaExecutionStartToCloseTimeout' - The total duration allowed for the new workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'wecaneaTaskPriority' - Undocumented member.------ * 'wecaneaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'wecaneaNewExecutionRunId' - The @runId@ of the new workflow execution.------ * 'wecaneaTaskList' - Undocumented member.------ * 'wecaneaChildPolicy' - The policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.------ * 'wecaneaWorkflowType' - Undocumented member.-workflowExecutionContinuedAsNewEventAttributes-    :: Integer -- ^ 'wecaneaDecisionTaskCompletedEventId'-    -> Text -- ^ 'wecaneaNewExecutionRunId'-    -> TaskList -- ^ 'wecaneaTaskList'-    -> ChildPolicy -- ^ 'wecaneaChildPolicy'-    -> WorkflowType -- ^ 'wecaneaWorkflowType'-    -> WorkflowExecutionContinuedAsNewEventAttributes-workflowExecutionContinuedAsNewEventAttributes pDecisionTaskCompletedEventId_ pNewExecutionRunId_ pTaskList_ pChildPolicy_ pWorkflowType_ =-    WorkflowExecutionContinuedAsNewEventAttributes'-    { _wecaneaTagList = Nothing-    , _wecaneaTaskStartToCloseTimeout = Nothing-    , _wecaneaLambdaRole = Nothing-    , _wecaneaInput = Nothing-    , _wecaneaExecutionStartToCloseTimeout = Nothing-    , _wecaneaTaskPriority = Nothing-    , _wecaneaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    , _wecaneaNewExecutionRunId = pNewExecutionRunId_-    , _wecaneaTaskList = pTaskList_-    , _wecaneaChildPolicy = pChildPolicy_-    , _wecaneaWorkflowType = pWorkflowType_-    }---- | The list of tags associated with the new workflow execution.-wecaneaTagList :: Lens' WorkflowExecutionContinuedAsNewEventAttributes [Text]-wecaneaTagList = lens _wecaneaTagList (\ s a -> s{_wecaneaTagList = a}) . _Default . _Coerce;---- | The maximum duration of decision tasks for the new workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-wecaneaTaskStartToCloseTimeout :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)-wecaneaTaskStartToCloseTimeout = lens _wecaneaTaskStartToCloseTimeout (\ s a -> s{_wecaneaTaskStartToCloseTimeout = a});---- | The IAM role attached to this workflow execution to use when invoking AWS Lambda functions.-wecaneaLambdaRole :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)-wecaneaLambdaRole = lens _wecaneaLambdaRole (\ s a -> s{_wecaneaLambdaRole = a});---- | The input provided to the new workflow execution.-wecaneaInput :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)-wecaneaInput = lens _wecaneaInput (\ s a -> s{_wecaneaInput = a});---- | The total duration allowed for the new workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-wecaneaExecutionStartToCloseTimeout :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)-wecaneaExecutionStartToCloseTimeout = lens _wecaneaExecutionStartToCloseTimeout (\ s a -> s{_wecaneaExecutionStartToCloseTimeout = a});---- | Undocumented member.-wecaneaTaskPriority :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)-wecaneaTaskPriority = lens _wecaneaTaskPriority (\ s a -> s{_wecaneaTaskPriority = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-wecaneaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionContinuedAsNewEventAttributes Integer-wecaneaDecisionTaskCompletedEventId = lens _wecaneaDecisionTaskCompletedEventId (\ s a -> s{_wecaneaDecisionTaskCompletedEventId = a});---- | The @runId@ of the new workflow execution.-wecaneaNewExecutionRunId :: Lens' WorkflowExecutionContinuedAsNewEventAttributes Text-wecaneaNewExecutionRunId = lens _wecaneaNewExecutionRunId (\ s a -> s{_wecaneaNewExecutionRunId = a});---- | Undocumented member.-wecaneaTaskList :: Lens' WorkflowExecutionContinuedAsNewEventAttributes TaskList-wecaneaTaskList = lens _wecaneaTaskList (\ s a -> s{_wecaneaTaskList = a});---- | The policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-wecaneaChildPolicy :: Lens' WorkflowExecutionContinuedAsNewEventAttributes ChildPolicy-wecaneaChildPolicy = lens _wecaneaChildPolicy (\ s a -> s{_wecaneaChildPolicy = a});---- | Undocumented member.-wecaneaWorkflowType :: Lens' WorkflowExecutionContinuedAsNewEventAttributes WorkflowType-wecaneaWorkflowType = lens _wecaneaWorkflowType (\ s a -> s{_wecaneaWorkflowType = a});--instance FromJSON-         WorkflowExecutionContinuedAsNewEventAttributes where-        parseJSON-          = withObject-              "WorkflowExecutionContinuedAsNewEventAttributes"-              (\ x ->-                 WorkflowExecutionContinuedAsNewEventAttributes' <$>-                   (x .:? "tagList" .!= mempty) <*>-                     (x .:? "taskStartToCloseTimeout")-                     <*> (x .:? "lambdaRole")-                     <*> (x .:? "input")-                     <*> (x .:? "executionStartToCloseTimeout")-                     <*> (x .:? "taskPriority")-                     <*> (x .: "decisionTaskCompletedEventId")-                     <*> (x .: "newExecutionRunId")-                     <*> (x .: "taskList")-                     <*> (x .: "childPolicy")-                     <*> (x .: "workflowType"))--instance Hashable-         WorkflowExecutionContinuedAsNewEventAttributes--instance NFData-         WorkflowExecutionContinuedAsNewEventAttributes---- | Contains the count of workflow executions returned from 'CountOpenWorkflowExecutions' or 'CountClosedWorkflowExecutions'------------ /See:/ 'workflowExecutionCount' smart constructor.-data WorkflowExecutionCount = WorkflowExecutionCount'-    { _wecTruncated :: !(Maybe Bool)-    , _wecCount     :: !Nat-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionCount' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wecTruncated' - If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value.------ * 'wecCount' - The number of workflow executions.-workflowExecutionCount-    :: Natural -- ^ 'wecCount'-    -> WorkflowExecutionCount-workflowExecutionCount pCount_ =-    WorkflowExecutionCount'-    { _wecTruncated = Nothing-    , _wecCount = _Nat # pCount_-    }---- | If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value.-wecTruncated :: Lens' WorkflowExecutionCount (Maybe Bool)-wecTruncated = lens _wecTruncated (\ s a -> s{_wecTruncated = a});---- | The number of workflow executions.-wecCount :: Lens' WorkflowExecutionCount Natural-wecCount = lens _wecCount (\ s a -> s{_wecCount = a}) . _Nat;--instance FromJSON WorkflowExecutionCount where-        parseJSON-          = withObject "WorkflowExecutionCount"-              (\ x ->-                 WorkflowExecutionCount' <$>-                   (x .:? "truncated") <*> (x .: "count"))--instance Hashable WorkflowExecutionCount--instance NFData WorkflowExecutionCount---- | Provides details of the @WorkflowExecutionFailed@ event.------------ /See:/ 'workflowExecutionFailedEventAttributes' smart constructor.-data WorkflowExecutionFailedEventAttributes = WorkflowExecutionFailedEventAttributes'-    { _wefeaReason                       :: !(Maybe Text)-    , _wefeaDetails                      :: !(Maybe Text)-    , _wefeaDecisionTaskCompletedEventId :: !Integer-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wefeaReason' - The descriptive reason provided for the failure (if any).------ * 'wefeaDetails' - The details of the failure (if any).------ * 'wefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-workflowExecutionFailedEventAttributes-    :: Integer -- ^ 'wefeaDecisionTaskCompletedEventId'-    -> WorkflowExecutionFailedEventAttributes-workflowExecutionFailedEventAttributes pDecisionTaskCompletedEventId_ =-    WorkflowExecutionFailedEventAttributes'-    { _wefeaReason = Nothing-    , _wefeaDetails = Nothing-    , _wefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_-    }---- | The descriptive reason provided for the failure (if any).-wefeaReason :: Lens' WorkflowExecutionFailedEventAttributes (Maybe Text)-wefeaReason = lens _wefeaReason (\ s a -> s{_wefeaReason = a});---- | The details of the failure (if any).-wefeaDetails :: Lens' WorkflowExecutionFailedEventAttributes (Maybe Text)-wefeaDetails = lens _wefeaDetails (\ s a -> s{_wefeaDetails = a});---- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-wefeaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionFailedEventAttributes Integer-wefeaDecisionTaskCompletedEventId = lens _wefeaDecisionTaskCompletedEventId (\ s a -> s{_wefeaDecisionTaskCompletedEventId = a});--instance FromJSON-         WorkflowExecutionFailedEventAttributes where-        parseJSON-          = withObject "WorkflowExecutionFailedEventAttributes"-              (\ x ->-                 WorkflowExecutionFailedEventAttributes' <$>-                   (x .:? "reason") <*> (x .:? "details") <*>-                     (x .: "decisionTaskCompletedEventId"))--instance Hashable-         WorkflowExecutionFailedEventAttributes--instance NFData-         WorkflowExecutionFailedEventAttributes---- | Used to filter the workflow executions in visibility APIs by their @workflowId@ .------------ /See:/ 'workflowExecutionFilter' smart constructor.-newtype WorkflowExecutionFilter = WorkflowExecutionFilter'-    { _wefWorkflowId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionFilter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wefWorkflowId' - The workflowId to pass of match the criteria of this filter.-workflowExecutionFilter-    :: Text -- ^ 'wefWorkflowId'-    -> WorkflowExecutionFilter-workflowExecutionFilter pWorkflowId_ =-    WorkflowExecutionFilter'-    { _wefWorkflowId = pWorkflowId_-    }---- | The workflowId to pass of match the criteria of this filter.-wefWorkflowId :: Lens' WorkflowExecutionFilter Text-wefWorkflowId = lens _wefWorkflowId (\ s a -> s{_wefWorkflowId = a});--instance Hashable WorkflowExecutionFilter--instance NFData WorkflowExecutionFilter--instance ToJSON WorkflowExecutionFilter where-        toJSON WorkflowExecutionFilter'{..}-          = object-              (catMaybes [Just ("workflowId" .= _wefWorkflowId)])---- | Contains information about a workflow execution.------------ /See:/ 'workflowExecutionInfo' smart constructor.-data WorkflowExecutionInfo = WorkflowExecutionInfo'-    { _weiParent          :: !(Maybe WorkflowExecution)-    , _weiTagList         :: !(Maybe [Text])-    , _weiCloseStatus     :: !(Maybe CloseStatus)-    , _weiCloseTimestamp  :: !(Maybe POSIX)-    , _weiCancelRequested :: !(Maybe Bool)-    , _weiExecution       :: !WorkflowExecution-    , _weiWorkflowType    :: !WorkflowType-    , _weiStartTimestamp  :: !POSIX-    , _weiExecutionStatus :: !ExecutionStatus-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'weiParent' - If this workflow execution is a child of another execution then contains the workflow execution that started this execution.------ * 'weiTagList' - The list of tags associated with the workflow execution. Tags can be used to identify and list workflow executions of interest through the visibility APIs. A workflow execution can have a maximum of 5 tags.------ * 'weiCloseStatus' - If the execution status is closed then this specifies how the execution was closed:     * @COMPLETED@ : the execution was successfully completed.    * @CANCELED@ : the execution was canceled.Cancellation allows the implementation to gracefully clean up before the execution is closed.    * @TERMINATED@ : the execution was force terminated.    * @FAILED@ : the execution failed to complete.    * @TIMED_OUT@ : the execution did not complete in the alloted time and was automatically timed out.    * @CONTINUED_AS_NEW@ : the execution is logically continued. This means the current execution was completed and a new execution was started to carry on the workflow.------ * 'weiCloseTimestamp' - The time when the workflow execution was closed. Set only if the execution status is CLOSED.------ * 'weiCancelRequested' - Set to true if a cancellation is requested for this workflow execution.------ * 'weiExecution' - The workflow execution this information is about.------ * 'weiWorkflowType' - The type of the workflow execution.------ * 'weiStartTimestamp' - The time when the execution was started.------ * 'weiExecutionStatus' - The current status of the execution.-workflowExecutionInfo-    :: WorkflowExecution -- ^ 'weiExecution'-    -> WorkflowType -- ^ 'weiWorkflowType'-    -> UTCTime -- ^ 'weiStartTimestamp'-    -> ExecutionStatus -- ^ 'weiExecutionStatus'-    -> WorkflowExecutionInfo-workflowExecutionInfo pExecution_ pWorkflowType_ pStartTimestamp_ pExecutionStatus_ =-    WorkflowExecutionInfo'-    { _weiParent = Nothing-    , _weiTagList = Nothing-    , _weiCloseStatus = Nothing-    , _weiCloseTimestamp = Nothing-    , _weiCancelRequested = Nothing-    , _weiExecution = pExecution_-    , _weiWorkflowType = pWorkflowType_-    , _weiStartTimestamp = _Time # pStartTimestamp_-    , _weiExecutionStatus = pExecutionStatus_-    }---- | If this workflow execution is a child of another execution then contains the workflow execution that started this execution.-weiParent :: Lens' WorkflowExecutionInfo (Maybe WorkflowExecution)-weiParent = lens _weiParent (\ s a -> s{_weiParent = a});---- | The list of tags associated with the workflow execution. Tags can be used to identify and list workflow executions of interest through the visibility APIs. A workflow execution can have a maximum of 5 tags.-weiTagList :: Lens' WorkflowExecutionInfo [Text]-weiTagList = lens _weiTagList (\ s a -> s{_weiTagList = a}) . _Default . _Coerce;---- | If the execution status is closed then this specifies how the execution was closed:     * @COMPLETED@ : the execution was successfully completed.    * @CANCELED@ : the execution was canceled.Cancellation allows the implementation to gracefully clean up before the execution is closed.    * @TERMINATED@ : the execution was force terminated.    * @FAILED@ : the execution failed to complete.    * @TIMED_OUT@ : the execution did not complete in the alloted time and was automatically timed out.    * @CONTINUED_AS_NEW@ : the execution is logically continued. This means the current execution was completed and a new execution was started to carry on the workflow.-weiCloseStatus :: Lens' WorkflowExecutionInfo (Maybe CloseStatus)-weiCloseStatus = lens _weiCloseStatus (\ s a -> s{_weiCloseStatus = a});---- | The time when the workflow execution was closed. Set only if the execution status is CLOSED.-weiCloseTimestamp :: Lens' WorkflowExecutionInfo (Maybe UTCTime)-weiCloseTimestamp = lens _weiCloseTimestamp (\ s a -> s{_weiCloseTimestamp = a}) . mapping _Time;---- | Set to true if a cancellation is requested for this workflow execution.-weiCancelRequested :: Lens' WorkflowExecutionInfo (Maybe Bool)-weiCancelRequested = lens _weiCancelRequested (\ s a -> s{_weiCancelRequested = a});---- | The workflow execution this information is about.-weiExecution :: Lens' WorkflowExecutionInfo WorkflowExecution-weiExecution = lens _weiExecution (\ s a -> s{_weiExecution = a});---- | The type of the workflow execution.-weiWorkflowType :: Lens' WorkflowExecutionInfo WorkflowType-weiWorkflowType = lens _weiWorkflowType (\ s a -> s{_weiWorkflowType = a});---- | The time when the execution was started.-weiStartTimestamp :: Lens' WorkflowExecutionInfo UTCTime-weiStartTimestamp = lens _weiStartTimestamp (\ s a -> s{_weiStartTimestamp = a}) . _Time;---- | The current status of the execution.-weiExecutionStatus :: Lens' WorkflowExecutionInfo ExecutionStatus-weiExecutionStatus = lens _weiExecutionStatus (\ s a -> s{_weiExecutionStatus = a});--instance FromJSON WorkflowExecutionInfo where-        parseJSON-          = withObject "WorkflowExecutionInfo"-              (\ x ->-                 WorkflowExecutionInfo' <$>-                   (x .:? "parent") <*> (x .:? "tagList" .!= mempty) <*>-                     (x .:? "closeStatus")-                     <*> (x .:? "closeTimestamp")-                     <*> (x .:? "cancelRequested")-                     <*> (x .: "execution")-                     <*> (x .: "workflowType")-                     <*> (x .: "startTimestamp")-                     <*> (x .: "executionStatus"))--instance Hashable WorkflowExecutionInfo--instance NFData WorkflowExecutionInfo---- | Contains a paginated list of information about workflow executions.------------ /See:/ 'workflowExecutionInfos' smart constructor.-data WorkflowExecutionInfos = WorkflowExecutionInfos'-    { _weiNextPageToken  :: !(Maybe Text)-    , _weiExecutionInfos :: ![WorkflowExecutionInfo]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionInfos' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'weiNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call.------ * 'weiExecutionInfos' - The list of workflow information structures.-workflowExecutionInfos-    :: WorkflowExecutionInfos-workflowExecutionInfos =-    WorkflowExecutionInfos'-    { _weiNextPageToken = Nothing-    , _weiExecutionInfos = mempty-    }---- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call.-weiNextPageToken :: Lens' WorkflowExecutionInfos (Maybe Text)-weiNextPageToken = lens _weiNextPageToken (\ s a -> s{_weiNextPageToken = a});---- | The list of workflow information structures.-weiExecutionInfos :: Lens' WorkflowExecutionInfos [WorkflowExecutionInfo]-weiExecutionInfos = lens _weiExecutionInfos (\ s a -> s{_weiExecutionInfos = a}) . _Coerce;--instance FromJSON WorkflowExecutionInfos where-        parseJSON-          = withObject "WorkflowExecutionInfos"-              (\ x ->-                 WorkflowExecutionInfos' <$>-                   (x .:? "nextPageToken") <*>-                     (x .:? "executionInfos" .!= mempty))--instance Hashable WorkflowExecutionInfos--instance NFData WorkflowExecutionInfos---- | Contains the counts of open tasks, child workflow executions and timers for a workflow execution.------------ /See:/ 'workflowExecutionOpenCounts' smart constructor.-data WorkflowExecutionOpenCounts = WorkflowExecutionOpenCounts'-    { _weocOpenLambdaFunctions         :: !(Maybe Nat)-    , _weocOpenActivityTasks           :: !Nat-    , _weocOpenDecisionTasks           :: !Nat-    , _weocOpenTimers                  :: !Nat-    , _weocOpenChildWorkflowExecutions :: !Nat-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionOpenCounts' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'weocOpenLambdaFunctions' - The count of AWS Lambda functions that are currently executing.------ * 'weocOpenActivityTasks' - The count of activity tasks whose status is OPEN.------ * 'weocOpenDecisionTasks' - The count of decision tasks whose status is OPEN. A workflow execution can have at most one open decision task.------ * 'weocOpenTimers' - The count of timers started by this workflow execution that have not fired yet.------ * 'weocOpenChildWorkflowExecutions' - The count of child workflow executions whose status is OPEN.-workflowExecutionOpenCounts-    :: Natural -- ^ 'weocOpenActivityTasks'-    -> Natural -- ^ 'weocOpenDecisionTasks'-    -> Natural -- ^ 'weocOpenTimers'-    -> Natural -- ^ 'weocOpenChildWorkflowExecutions'-    -> WorkflowExecutionOpenCounts-workflowExecutionOpenCounts pOpenActivityTasks_ pOpenDecisionTasks_ pOpenTimers_ pOpenChildWorkflowExecutions_ =-    WorkflowExecutionOpenCounts'-    { _weocOpenLambdaFunctions = Nothing-    , _weocOpenActivityTasks = _Nat # pOpenActivityTasks_-    , _weocOpenDecisionTasks = _Nat # pOpenDecisionTasks_-    , _weocOpenTimers = _Nat # pOpenTimers_-    , _weocOpenChildWorkflowExecutions = _Nat # pOpenChildWorkflowExecutions_-    }---- | The count of AWS Lambda functions that are currently executing.-weocOpenLambdaFunctions :: Lens' WorkflowExecutionOpenCounts (Maybe Natural)-weocOpenLambdaFunctions = lens _weocOpenLambdaFunctions (\ s a -> s{_weocOpenLambdaFunctions = a}) . mapping _Nat;---- | The count of activity tasks whose status is OPEN.-weocOpenActivityTasks :: Lens' WorkflowExecutionOpenCounts Natural-weocOpenActivityTasks = lens _weocOpenActivityTasks (\ s a -> s{_weocOpenActivityTasks = a}) . _Nat;---- | The count of decision tasks whose status is OPEN. A workflow execution can have at most one open decision task.-weocOpenDecisionTasks :: Lens' WorkflowExecutionOpenCounts Natural-weocOpenDecisionTasks = lens _weocOpenDecisionTasks (\ s a -> s{_weocOpenDecisionTasks = a}) . _Nat;---- | The count of timers started by this workflow execution that have not fired yet.-weocOpenTimers :: Lens' WorkflowExecutionOpenCounts Natural-weocOpenTimers = lens _weocOpenTimers (\ s a -> s{_weocOpenTimers = a}) . _Nat;---- | The count of child workflow executions whose status is OPEN.-weocOpenChildWorkflowExecutions :: Lens' WorkflowExecutionOpenCounts Natural-weocOpenChildWorkflowExecutions = lens _weocOpenChildWorkflowExecutions (\ s a -> s{_weocOpenChildWorkflowExecutions = a}) . _Nat;--instance FromJSON WorkflowExecutionOpenCounts where-        parseJSON-          = withObject "WorkflowExecutionOpenCounts"-              (\ x ->-                 WorkflowExecutionOpenCounts' <$>-                   (x .:? "openLambdaFunctions") <*>-                     (x .: "openActivityTasks")-                     <*> (x .: "openDecisionTasks")-                     <*> (x .: "openTimers")-                     <*> (x .: "openChildWorkflowExecutions"))--instance Hashable WorkflowExecutionOpenCounts--instance NFData WorkflowExecutionOpenCounts---- | Provides details of the @WorkflowExecutionSignaled@ event.------------ /See:/ 'workflowExecutionSignaledEventAttributes' smart constructor.-data WorkflowExecutionSignaledEventAttributes = WorkflowExecutionSignaledEventAttributes'-    { _wExternalWorkflowExecution :: !(Maybe WorkflowExecution)-    , _wExternalInitiatedEventId  :: !(Maybe Integer)-    , _wInput                     :: !(Maybe Text)-    , _wSignalName                :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionSignaledEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wExternalWorkflowExecution' - The workflow execution that sent the signal. This is set only of the signal was sent by another workflow execution.------ * 'wExternalInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflow@ decision to signal this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. This field is set only if the signal was initiated by another workflow execution.------ * 'wInput' - Inputs provided with the signal (if any). The decider can use the signal name and inputs to determine how to process the signal.------ * 'wSignalName' - The name of the signal received. The decider can use the signal name and inputs to determine how to the process the signal.-workflowExecutionSignaledEventAttributes-    :: Text -- ^ 'wSignalName'-    -> WorkflowExecutionSignaledEventAttributes-workflowExecutionSignaledEventAttributes pSignalName_ =-    WorkflowExecutionSignaledEventAttributes'-    { _wExternalWorkflowExecution = Nothing-    , _wExternalInitiatedEventId = Nothing-    , _wInput = Nothing-    , _wSignalName = pSignalName_-    }---- | The workflow execution that sent the signal. This is set only of the signal was sent by another workflow execution.-wExternalWorkflowExecution :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe WorkflowExecution)-wExternalWorkflowExecution = lens _wExternalWorkflowExecution (\ s a -> s{_wExternalWorkflowExecution = a});---- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflow@ decision to signal this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. This field is set only if the signal was initiated by another workflow execution.-wExternalInitiatedEventId :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe Integer)-wExternalInitiatedEventId = lens _wExternalInitiatedEventId (\ s a -> s{_wExternalInitiatedEventId = a});---- | Inputs provided with the signal (if any). The decider can use the signal name and inputs to determine how to process the signal.-wInput :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe Text)-wInput = lens _wInput (\ s a -> s{_wInput = a});---- | The name of the signal received. The decider can use the signal name and inputs to determine how to the process the signal.-wSignalName :: Lens' WorkflowExecutionSignaledEventAttributes Text-wSignalName = lens _wSignalName (\ s a -> s{_wSignalName = a});--instance FromJSON-         WorkflowExecutionSignaledEventAttributes where-        parseJSON-          = withObject-              "WorkflowExecutionSignaledEventAttributes"-              (\ x ->-                 WorkflowExecutionSignaledEventAttributes' <$>-                   (x .:? "externalWorkflowExecution") <*>-                     (x .:? "externalInitiatedEventId")-                     <*> (x .:? "input")-                     <*> (x .: "signalName"))--instance Hashable-         WorkflowExecutionSignaledEventAttributes--instance NFData-         WorkflowExecutionSignaledEventAttributes---- | Provides details of @WorkflowExecutionStarted@ event.------------ /See:/ 'workflowExecutionStartedEventAttributes' smart constructor.-data WorkflowExecutionStartedEventAttributes = WorkflowExecutionStartedEventAttributes'-    { _weseaParentInitiatedEventId       :: !(Maybe Integer)-    , _weseaTagList                      :: !(Maybe [Text])-    , _weseaTaskStartToCloseTimeout      :: !(Maybe Text)-    , _weseaLambdaRole                   :: !(Maybe Text)-    , _weseaInput                        :: !(Maybe Text)-    , _weseaExecutionStartToCloseTimeout :: !(Maybe Text)-    , _weseaTaskPriority                 :: !(Maybe Text)-    , _weseaParentWorkflowExecution      :: !(Maybe WorkflowExecution)-    , _weseaContinuedExecutionRunId      :: !(Maybe Text)-    , _weseaChildPolicy                  :: !ChildPolicy-    , _weseaTaskList                     :: !TaskList-    , _weseaWorkflowType                 :: !WorkflowType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionStartedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'weseaParentInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this workflow execution. The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.------ * 'weseaTagList' - The list of tags associated with this workflow execution. An execution can have up to 5 tags.------ * 'weseaTaskStartToCloseTimeout' - The maximum duration of decision tasks for this workflow type. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'weseaLambdaRole' - The IAM role attached to this workflow execution to use when invoking AWS Lambda functions.------ * 'weseaInput' - The input provided to the workflow execution (if any).------ * 'weseaExecutionStartToCloseTimeout' - The maximum duration for this workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'weseaTaskPriority' - Undocumented member.------ * 'weseaParentWorkflowExecution' - The source workflow execution that started this workflow execution. The member is not set if the workflow execution was not started by a workflow.------ * 'weseaContinuedExecutionRunId' - If this workflow execution was started due to a @ContinueAsNewWorkflowExecution@ decision, then it contains the @runId@ of the previous workflow execution that was closed and continued as this execution.------ * 'weseaChildPolicy' - The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.------ * 'weseaTaskList' - The name of the task list for scheduling the decision tasks for this workflow execution.------ * 'weseaWorkflowType' - The workflow type of this execution.-workflowExecutionStartedEventAttributes-    :: ChildPolicy -- ^ 'weseaChildPolicy'-    -> TaskList -- ^ 'weseaTaskList'-    -> WorkflowType -- ^ 'weseaWorkflowType'-    -> WorkflowExecutionStartedEventAttributes-workflowExecutionStartedEventAttributes pChildPolicy_ pTaskList_ pWorkflowType_ =-    WorkflowExecutionStartedEventAttributes'-    { _weseaParentInitiatedEventId = Nothing-    , _weseaTagList = Nothing-    , _weseaTaskStartToCloseTimeout = Nothing-    , _weseaLambdaRole = Nothing-    , _weseaInput = Nothing-    , _weseaExecutionStartToCloseTimeout = Nothing-    , _weseaTaskPriority = Nothing-    , _weseaParentWorkflowExecution = Nothing-    , _weseaContinuedExecutionRunId = Nothing-    , _weseaChildPolicy = pChildPolicy_-    , _weseaTaskList = pTaskList_-    , _weseaWorkflowType = pWorkflowType_-    }---- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ decision to start this workflow execution. The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.-weseaParentInitiatedEventId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Integer)-weseaParentInitiatedEventId = lens _weseaParentInitiatedEventId (\ s a -> s{_weseaParentInitiatedEventId = a});---- | The list of tags associated with this workflow execution. An execution can have up to 5 tags.-weseaTagList :: Lens' WorkflowExecutionStartedEventAttributes [Text]-weseaTagList = lens _weseaTagList (\ s a -> s{_weseaTagList = a}) . _Default . _Coerce;---- | The maximum duration of decision tasks for this workflow type. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-weseaTaskStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)-weseaTaskStartToCloseTimeout = lens _weseaTaskStartToCloseTimeout (\ s a -> s{_weseaTaskStartToCloseTimeout = a});---- | The IAM role attached to this workflow execution to use when invoking AWS Lambda functions.-weseaLambdaRole :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)-weseaLambdaRole = lens _weseaLambdaRole (\ s a -> s{_weseaLambdaRole = a});---- | The input provided to the workflow execution (if any).-weseaInput :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)-weseaInput = lens _weseaInput (\ s a -> s{_weseaInput = a});---- | The maximum duration for this workflow execution. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-weseaExecutionStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)-weseaExecutionStartToCloseTimeout = lens _weseaExecutionStartToCloseTimeout (\ s a -> s{_weseaExecutionStartToCloseTimeout = a});---- | Undocumented member.-weseaTaskPriority :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)-weseaTaskPriority = lens _weseaTaskPriority (\ s a -> s{_weseaTaskPriority = a});---- | The source workflow execution that started this workflow execution. The member is not set if the workflow execution was not started by a workflow.-weseaParentWorkflowExecution :: Lens' WorkflowExecutionStartedEventAttributes (Maybe WorkflowExecution)-weseaParentWorkflowExecution = lens _weseaParentWorkflowExecution (\ s a -> s{_weseaParentWorkflowExecution = a});---- | If this workflow execution was started due to a @ContinueAsNewWorkflowExecution@ decision, then it contains the @runId@ of the previous workflow execution that was closed and continued as this execution.-weseaContinuedExecutionRunId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)-weseaContinuedExecutionRunId = lens _weseaContinuedExecutionRunId (\ s a -> s{_weseaContinuedExecutionRunId = a});---- | The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-weseaChildPolicy :: Lens' WorkflowExecutionStartedEventAttributes ChildPolicy-weseaChildPolicy = lens _weseaChildPolicy (\ s a -> s{_weseaChildPolicy = a});---- | The name of the task list for scheduling the decision tasks for this workflow execution.-weseaTaskList :: Lens' WorkflowExecutionStartedEventAttributes TaskList-weseaTaskList = lens _weseaTaskList (\ s a -> s{_weseaTaskList = a});---- | The workflow type of this execution.-weseaWorkflowType :: Lens' WorkflowExecutionStartedEventAttributes WorkflowType-weseaWorkflowType = lens _weseaWorkflowType (\ s a -> s{_weseaWorkflowType = a});--instance FromJSON-         WorkflowExecutionStartedEventAttributes where-        parseJSON-          = withObject-              "WorkflowExecutionStartedEventAttributes"-              (\ x ->-                 WorkflowExecutionStartedEventAttributes' <$>-                   (x .:? "parentInitiatedEventId") <*>-                     (x .:? "tagList" .!= mempty)-                     <*> (x .:? "taskStartToCloseTimeout")-                     <*> (x .:? "lambdaRole")-                     <*> (x .:? "input")-                     <*> (x .:? "executionStartToCloseTimeout")-                     <*> (x .:? "taskPriority")-                     <*> (x .:? "parentWorkflowExecution")-                     <*> (x .:? "continuedExecutionRunId")-                     <*> (x .: "childPolicy")-                     <*> (x .: "taskList")-                     <*> (x .: "workflowType"))--instance Hashable-         WorkflowExecutionStartedEventAttributes--instance NFData-         WorkflowExecutionStartedEventAttributes---- | Provides details of the @WorkflowExecutionTerminated@ event.------------ /See:/ 'workflowExecutionTerminatedEventAttributes' smart constructor.-data WorkflowExecutionTerminatedEventAttributes = WorkflowExecutionTerminatedEventAttributes'-    { _weteaCause       :: !(Maybe WorkflowExecutionTerminatedCause)-    , _weteaReason      :: !(Maybe Text)-    , _weteaDetails     :: !(Maybe Text)-    , _weteaChildPolicy :: !ChildPolicy-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionTerminatedEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'weteaCause' - If set, indicates that the workflow execution was automatically terminated, and specifies the cause. This happens if the parent workflow execution times out or is terminated and the child policy is set to terminate child executions.------ * 'weteaReason' - The reason provided for the termination (if any).------ * 'weteaDetails' - The details provided for the termination (if any).------ * 'weteaChildPolicy' - The policy used for the child workflow executions of this workflow execution. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-workflowExecutionTerminatedEventAttributes-    :: ChildPolicy -- ^ 'weteaChildPolicy'-    -> WorkflowExecutionTerminatedEventAttributes-workflowExecutionTerminatedEventAttributes pChildPolicy_ =-    WorkflowExecutionTerminatedEventAttributes'-    { _weteaCause = Nothing-    , _weteaReason = Nothing-    , _weteaDetails = Nothing-    , _weteaChildPolicy = pChildPolicy_-    }---- | If set, indicates that the workflow execution was automatically terminated, and specifies the cause. This happens if the parent workflow execution times out or is terminated and the child policy is set to terminate child executions.-weteaCause :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe WorkflowExecutionTerminatedCause)-weteaCause = lens _weteaCause (\ s a -> s{_weteaCause = a});---- | The reason provided for the termination (if any).-weteaReason :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe Text)-weteaReason = lens _weteaReason (\ s a -> s{_weteaReason = a});---- | The details provided for the termination (if any).-weteaDetails :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe Text)-weteaDetails = lens _weteaDetails (\ s a -> s{_weteaDetails = a});---- | The policy used for the child workflow executions of this workflow execution. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-weteaChildPolicy :: Lens' WorkflowExecutionTerminatedEventAttributes ChildPolicy-weteaChildPolicy = lens _weteaChildPolicy (\ s a -> s{_weteaChildPolicy = a});--instance FromJSON-         WorkflowExecutionTerminatedEventAttributes where-        parseJSON-          = withObject-              "WorkflowExecutionTerminatedEventAttributes"-              (\ x ->-                 WorkflowExecutionTerminatedEventAttributes' <$>-                   (x .:? "cause") <*> (x .:? "reason") <*>-                     (x .:? "details")-                     <*> (x .: "childPolicy"))--instance Hashable-         WorkflowExecutionTerminatedEventAttributes--instance NFData-         WorkflowExecutionTerminatedEventAttributes---- | Provides details of the @WorkflowExecutionTimedOut@ event.------------ /See:/ 'workflowExecutionTimedOutEventAttributes' smart constructor.-data WorkflowExecutionTimedOutEventAttributes = WorkflowExecutionTimedOutEventAttributes'-    { _wetoeaTimeoutType :: !WorkflowExecutionTimeoutType-    , _wetoeaChildPolicy :: !ChildPolicy-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowExecutionTimedOutEventAttributes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wetoeaTimeoutType' - The type of timeout that caused this event.------ * 'wetoeaChildPolicy' - The policy used for the child workflow executions of this workflow execution. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-workflowExecutionTimedOutEventAttributes-    :: WorkflowExecutionTimeoutType -- ^ 'wetoeaTimeoutType'-    -> ChildPolicy -- ^ 'wetoeaChildPolicy'-    -> WorkflowExecutionTimedOutEventAttributes-workflowExecutionTimedOutEventAttributes pTimeoutType_ pChildPolicy_ =-    WorkflowExecutionTimedOutEventAttributes'-    { _wetoeaTimeoutType = pTimeoutType_-    , _wetoeaChildPolicy = pChildPolicy_-    }---- | The type of timeout that caused this event.-wetoeaTimeoutType :: Lens' WorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType-wetoeaTimeoutType = lens _wetoeaTimeoutType (\ s a -> s{_wetoeaTimeoutType = a});---- | The policy used for the child workflow executions of this workflow execution. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-wetoeaChildPolicy :: Lens' WorkflowExecutionTimedOutEventAttributes ChildPolicy-wetoeaChildPolicy = lens _wetoeaChildPolicy (\ s a -> s{_wetoeaChildPolicy = a});--instance FromJSON-         WorkflowExecutionTimedOutEventAttributes where-        parseJSON-          = withObject-              "WorkflowExecutionTimedOutEventAttributes"-              (\ x ->-                 WorkflowExecutionTimedOutEventAttributes' <$>-                   (x .: "timeoutType") <*> (x .: "childPolicy"))--instance Hashable-         WorkflowExecutionTimedOutEventAttributes--instance NFData-         WorkflowExecutionTimedOutEventAttributes---- | Represents a workflow type.------------ /See:/ 'workflowType' smart constructor.-data WorkflowType = WorkflowType'-    { _wtName    :: !Text-    , _wtVersion :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowType' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wtName' - __Required.__ The name of the workflow type.------ * 'wtVersion' - __Required.__ The version of the workflow type.-workflowType-    :: Text -- ^ 'wtName'-    -> Text -- ^ 'wtVersion'-    -> WorkflowType-workflowType pName_ pVersion_ =-    WorkflowType'-    { _wtName = pName_-    , _wtVersion = pVersion_-    }---- | __Required.__ The name of the workflow type.-wtName :: Lens' WorkflowType Text-wtName = lens _wtName (\ s a -> s{_wtName = a});---- | __Required.__ The version of the workflow type.-wtVersion :: Lens' WorkflowType Text-wtVersion = lens _wtVersion (\ s a -> s{_wtVersion = a});--instance FromJSON WorkflowType where-        parseJSON-          = withObject "WorkflowType"-              (\ x ->-                 WorkflowType' <$> (x .: "name") <*> (x .: "version"))--instance Hashable WorkflowType--instance NFData WorkflowType--instance ToJSON WorkflowType where-        toJSON WorkflowType'{..}-          = object-              (catMaybes-                 [Just ("name" .= _wtName),-                  Just ("version" .= _wtVersion)])---- | The configuration settings of a workflow type.------------ /See:/ 'workflowTypeConfiguration' smart constructor.-data WorkflowTypeConfiguration = WorkflowTypeConfiguration'-    { _wtcDefaultLambdaRole                   :: !(Maybe Text)-    , _wtcDefaultChildPolicy                  :: !(Maybe ChildPolicy)-    , _wtcDefaultTaskList                     :: !(Maybe TaskList)-    , _wtcDefaultTaskPriority                 :: !(Maybe Text)-    , _wtcDefaultExecutionStartToCloseTimeout :: !(Maybe Text)-    , _wtcDefaultTaskStartToCloseTimeout      :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowTypeConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wtcDefaultLambdaRole' - The default IAM role to use when a workflow execution invokes a AWS Lambda function.------ * 'wtcDefaultChildPolicy' - /Optional./ The default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.------ * 'wtcDefaultTaskList' - /Optional./ The default task list, specified when registering the workflow type, for decisions tasks scheduled for workflow executions of this type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision.------ * 'wtcDefaultTaskPriority' - /Optional./ The default task priority, specified when registering the workflow type, for all decision tasks of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .------ * 'wtcDefaultExecutionStartToCloseTimeout' - /Optional./ The default maximum duration, specified when registering the workflow type, for executions of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.------ * 'wtcDefaultTaskStartToCloseTimeout' - /Optional./ The default maximum duration, specified when registering the workflow type, that a decision task for executions of this workflow type might take before returning completion or failure. If the task does not close in the specified time then the task is automatically timed out and rescheduled. If the decider eventually reports a completion or failure, it is ignored. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-workflowTypeConfiguration-    :: WorkflowTypeConfiguration-workflowTypeConfiguration =-    WorkflowTypeConfiguration'-    { _wtcDefaultLambdaRole = Nothing-    , _wtcDefaultChildPolicy = Nothing-    , _wtcDefaultTaskList = Nothing-    , _wtcDefaultTaskPriority = Nothing-    , _wtcDefaultExecutionStartToCloseTimeout = Nothing-    , _wtcDefaultTaskStartToCloseTimeout = Nothing-    }---- | The default IAM role to use when a workflow execution invokes a AWS Lambda function.-wtcDefaultLambdaRole :: Lens' WorkflowTypeConfiguration (Maybe Text)-wtcDefaultLambdaRole = lens _wtcDefaultLambdaRole (\ s a -> s{_wtcDefaultLambdaRole = a});---- | /Optional./ The default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The supported child policies are:     * __TERMINATE:__ the child executions will be terminated.    * __REQUEST_CANCEL:__ a request to cancel will be attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.    * __ABANDON:__ no action will be taken. The child executions will continue to run.-wtcDefaultChildPolicy :: Lens' WorkflowTypeConfiguration (Maybe ChildPolicy)-wtcDefaultChildPolicy = lens _wtcDefaultChildPolicy (\ s a -> s{_wtcDefaultChildPolicy = a});---- | /Optional./ The default task list, specified when registering the workflow type, for decisions tasks scheduled for workflow executions of this type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision.-wtcDefaultTaskList :: Lens' WorkflowTypeConfiguration (Maybe TaskList)-wtcDefaultTaskList = lens _wtcDefaultTaskList (\ s a -> s{_wtcDefaultTaskList = a});---- | /Optional./ The default task priority, specified when registering the workflow type, for all decision tasks of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon Simple Workflow Developer Guide/ .-wtcDefaultTaskPriority :: Lens' WorkflowTypeConfiguration (Maybe Text)-wtcDefaultTaskPriority = lens _wtcDefaultTaskPriority (\ s a -> s{_wtcDefaultTaskPriority = a});---- | /Optional./ The default maximum duration, specified when registering the workflow type, for executions of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-wtcDefaultExecutionStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text)-wtcDefaultExecutionStartToCloseTimeout = lens _wtcDefaultExecutionStartToCloseTimeout (\ s a -> s{_wtcDefaultExecutionStartToCloseTimeout = a});---- | /Optional./ The default maximum duration, specified when registering the workflow type, that a decision task for executions of this workflow type might take before returning completion or failure. If the task does not close in the specified time then the task is automatically timed out and rescheduled. If the decider eventually reports a completion or failure, it is ignored. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. The duration is specified in seconds; an integer greater than or equal to 0. The value "NONE" can be used to specify unlimited duration.-wtcDefaultTaskStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text)-wtcDefaultTaskStartToCloseTimeout = lens _wtcDefaultTaskStartToCloseTimeout (\ s a -> s{_wtcDefaultTaskStartToCloseTimeout = a});--instance FromJSON WorkflowTypeConfiguration where-        parseJSON-          = withObject "WorkflowTypeConfiguration"-              (\ x ->-                 WorkflowTypeConfiguration' <$>-                   (x .:? "defaultLambdaRole") <*>-                     (x .:? "defaultChildPolicy")-                     <*> (x .:? "defaultTaskList")-                     <*> (x .:? "defaultTaskPriority")-                     <*> (x .:? "defaultExecutionStartToCloseTimeout")-                     <*> (x .:? "defaultTaskStartToCloseTimeout"))--instance Hashable WorkflowTypeConfiguration--instance NFData WorkflowTypeConfiguration---- | Used to filter workflow execution query results by type. Each parameter, if specified, defines a rule that must be satisfied by each returned result.------------ /See:/ 'workflowTypeFilter' smart constructor.-data WorkflowTypeFilter = WorkflowTypeFilter'-    { _wtfVersion :: !(Maybe Text)-    , _wtfName    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowTypeFilter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wtfVersion' - Version of the workflow type.------ * 'wtfName' - __Required.__ Name of the workflow type.-workflowTypeFilter-    :: Text -- ^ 'wtfName'-    -> WorkflowTypeFilter-workflowTypeFilter pName_ =-    WorkflowTypeFilter'-    { _wtfVersion = Nothing-    , _wtfName = pName_-    }---- | Version of the workflow type.-wtfVersion :: Lens' WorkflowTypeFilter (Maybe Text)-wtfVersion = lens _wtfVersion (\ s a -> s{_wtfVersion = a});---- | __Required.__ Name of the workflow type.-wtfName :: Lens' WorkflowTypeFilter Text-wtfName = lens _wtfName (\ s a -> s{_wtfName = a});--instance Hashable WorkflowTypeFilter--instance NFData WorkflowTypeFilter--instance ToJSON WorkflowTypeFilter where-        toJSON WorkflowTypeFilter'{..}-          = object-              (catMaybes-                 [("version" .=) <$> _wtfVersion,-                  Just ("name" .= _wtfName)])---- | Contains information about a workflow type.------------ /See:/ 'workflowTypeInfo' smart constructor.-data WorkflowTypeInfo = WorkflowTypeInfo'-    { _wtiDeprecationDate :: !(Maybe POSIX)-    , _wtiDescription     :: !(Maybe Text)-    , _wtiWorkflowType    :: !WorkflowType-    , _wtiStatus          :: !RegistrationStatus-    , _wtiCreationDate    :: !POSIX-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'WorkflowTypeInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wtiDeprecationDate' - If the type is in deprecated state, then it is set to the date when the type was deprecated.------ * 'wtiDescription' - The description of the type registered through 'RegisterWorkflowType' .------ * 'wtiWorkflowType' - The workflow type this information is about.------ * 'wtiStatus' - The current status of the workflow type.------ * 'wtiCreationDate' - The date when this type was registered.-workflowTypeInfo-    :: WorkflowType -- ^ 'wtiWorkflowType'-    -> RegistrationStatus -- ^ 'wtiStatus'-    -> UTCTime -- ^ 'wtiCreationDate'-    -> WorkflowTypeInfo-workflowTypeInfo pWorkflowType_ pStatus_ pCreationDate_ =-    WorkflowTypeInfo'-    { _wtiDeprecationDate = Nothing-    , _wtiDescription = Nothing-    , _wtiWorkflowType = pWorkflowType_-    , _wtiStatus = pStatus_-    , _wtiCreationDate = _Time # pCreationDate_-    }---- | If the type is in deprecated state, then it is set to the date when the type was deprecated.-wtiDeprecationDate :: Lens' WorkflowTypeInfo (Maybe UTCTime)-wtiDeprecationDate = lens _wtiDeprecationDate (\ s a -> s{_wtiDeprecationDate = a}) . mapping _Time;---- | The description of the type registered through 'RegisterWorkflowType' .-wtiDescription :: Lens' WorkflowTypeInfo (Maybe Text)-wtiDescription = lens _wtiDescription (\ s a -> s{_wtiDescription = a});---- | The workflow type this information is about.-wtiWorkflowType :: Lens' WorkflowTypeInfo WorkflowType-wtiWorkflowType = lens _wtiWorkflowType (\ s a -> s{_wtiWorkflowType = a});---- | The current status of the workflow type.-wtiStatus :: Lens' WorkflowTypeInfo RegistrationStatus-wtiStatus = lens _wtiStatus (\ s a -> s{_wtiStatus = a});---- | The date when this type was registered.-wtiCreationDate :: Lens' WorkflowTypeInfo UTCTime-wtiCreationDate = lens _wtiCreationDate (\ s a -> s{_wtiCreationDate = a}) . _Time;--instance FromJSON WorkflowTypeInfo where-        parseJSON-          = withObject "WorkflowTypeInfo"-              (\ x ->-                 WorkflowTypeInfo' <$>-                   (x .:? "deprecationDate") <*> (x .:? "description")-                     <*> (x .: "workflowType")-                     <*> (x .: "status")-                     <*> (x .: "creationDate"))--instance Hashable WorkflowTypeInfo--instance NFData WorkflowTypeInfo+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.SWF.Types.Product where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.SWF.Types.Sum++-- | Provides the details of the @ActivityTaskCancelRequested@ event.+--+--+--+-- /See:/ 'activityTaskCancelRequestedEventAttributes' smart constructor.+data ActivityTaskCancelRequestedEventAttributes = ActivityTaskCancelRequestedEventAttributes'+  { _atcreaDecisionTaskCompletedEventId :: !Integer+  , _atcreaActivityId                   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityTaskCancelRequestedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atcreaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'atcreaActivityId' - The unique ID of the task.+activityTaskCancelRequestedEventAttributes+    :: Integer -- ^ 'atcreaDecisionTaskCompletedEventId'+    -> Text -- ^ 'atcreaActivityId'+    -> ActivityTaskCancelRequestedEventAttributes+activityTaskCancelRequestedEventAttributes pDecisionTaskCompletedEventId_ pActivityId_ =+  ActivityTaskCancelRequestedEventAttributes'+  { _atcreaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  , _atcreaActivityId = pActivityId_+  }+++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+atcreaDecisionTaskCompletedEventId :: Lens' ActivityTaskCancelRequestedEventAttributes Integer+atcreaDecisionTaskCompletedEventId = lens _atcreaDecisionTaskCompletedEventId (\ s a -> s{_atcreaDecisionTaskCompletedEventId = a});++-- | The unique ID of the task.+atcreaActivityId :: Lens' ActivityTaskCancelRequestedEventAttributes Text+atcreaActivityId = lens _atcreaActivityId (\ s a -> s{_atcreaActivityId = a});++instance FromJSON+           ActivityTaskCancelRequestedEventAttributes+         where+        parseJSON+          = withObject+              "ActivityTaskCancelRequestedEventAttributes"+              (\ x ->+                 ActivityTaskCancelRequestedEventAttributes' <$>+                   (x .: "decisionTaskCompletedEventId") <*>+                     (x .: "activityId"))++instance Hashable+           ActivityTaskCancelRequestedEventAttributes+         where++instance NFData+           ActivityTaskCancelRequestedEventAttributes+         where++-- | Provides the details of the @ActivityTaskCanceled@ event.+--+--+--+-- /See:/ 'activityTaskCanceledEventAttributes' smart constructor.+data ActivityTaskCanceledEventAttributes = ActivityTaskCanceledEventAttributes'+  { _aLatestCancelRequestedEventId :: !(Maybe Integer)+  , _aDetails                      :: !(Maybe Text)+  , _aScheduledEventId             :: !Integer+  , _aStartedEventId               :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityTaskCanceledEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aLatestCancelRequestedEventId' - If set, contains the ID of the last @ActivityTaskCancelRequested@ event recorded for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'aDetails' - Details of the cancellation.+--+-- * 'aScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'aStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+activityTaskCanceledEventAttributes+    :: Integer -- ^ 'aScheduledEventId'+    -> Integer -- ^ 'aStartedEventId'+    -> ActivityTaskCanceledEventAttributes+activityTaskCanceledEventAttributes pScheduledEventId_ pStartedEventId_ =+  ActivityTaskCanceledEventAttributes'+  { _aLatestCancelRequestedEventId = Nothing+  , _aDetails = Nothing+  , _aScheduledEventId = pScheduledEventId_+  , _aStartedEventId = pStartedEventId_+  }+++-- | If set, contains the ID of the last @ActivityTaskCancelRequested@ event recorded for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+aLatestCancelRequestedEventId :: Lens' ActivityTaskCanceledEventAttributes (Maybe Integer)+aLatestCancelRequestedEventId = lens _aLatestCancelRequestedEventId (\ s a -> s{_aLatestCancelRequestedEventId = a});++-- | Details of the cancellation.+aDetails :: Lens' ActivityTaskCanceledEventAttributes (Maybe Text)+aDetails = lens _aDetails (\ s a -> s{_aDetails = a});++-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+aScheduledEventId :: Lens' ActivityTaskCanceledEventAttributes Integer+aScheduledEventId = lens _aScheduledEventId (\ s a -> s{_aScheduledEventId = a});++-- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+aStartedEventId :: Lens' ActivityTaskCanceledEventAttributes Integer+aStartedEventId = lens _aStartedEventId (\ s a -> s{_aStartedEventId = a});++instance FromJSON ActivityTaskCanceledEventAttributes+         where+        parseJSON+          = withObject "ActivityTaskCanceledEventAttributes"+              (\ x ->+                 ActivityTaskCanceledEventAttributes' <$>+                   (x .:? "latestCancelRequestedEventId") <*>+                     (x .:? "details")+                     <*> (x .: "scheduledEventId")+                     <*> (x .: "startedEventId"))++instance Hashable ActivityTaskCanceledEventAttributes+         where++instance NFData ActivityTaskCanceledEventAttributes+         where++-- | Provides the details of the @ActivityTaskCompleted@ event.+--+--+--+-- /See:/ 'activityTaskCompletedEventAttributes' smart constructor.+data ActivityTaskCompletedEventAttributes = ActivityTaskCompletedEventAttributes'+  { _atceaResult           :: !(Maybe Text)+  , _atceaScheduledEventId :: !Integer+  , _atceaStartedEventId   :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityTaskCompletedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atceaResult' - The results of the activity task.+--+-- * 'atceaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'atceaStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+activityTaskCompletedEventAttributes+    :: Integer -- ^ 'atceaScheduledEventId'+    -> Integer -- ^ 'atceaStartedEventId'+    -> ActivityTaskCompletedEventAttributes+activityTaskCompletedEventAttributes pScheduledEventId_ pStartedEventId_ =+  ActivityTaskCompletedEventAttributes'+  { _atceaResult = Nothing+  , _atceaScheduledEventId = pScheduledEventId_+  , _atceaStartedEventId = pStartedEventId_+  }+++-- | The results of the activity task.+atceaResult :: Lens' ActivityTaskCompletedEventAttributes (Maybe Text)+atceaResult = lens _atceaResult (\ s a -> s{_atceaResult = a});++-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+atceaScheduledEventId :: Lens' ActivityTaskCompletedEventAttributes Integer+atceaScheduledEventId = lens _atceaScheduledEventId (\ s a -> s{_atceaScheduledEventId = a});++-- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+atceaStartedEventId :: Lens' ActivityTaskCompletedEventAttributes Integer+atceaStartedEventId = lens _atceaStartedEventId (\ s a -> s{_atceaStartedEventId = a});++instance FromJSON+           ActivityTaskCompletedEventAttributes+         where+        parseJSON+          = withObject "ActivityTaskCompletedEventAttributes"+              (\ x ->+                 ActivityTaskCompletedEventAttributes' <$>+                   (x .:? "result") <*> (x .: "scheduledEventId") <*>+                     (x .: "startedEventId"))++instance Hashable+           ActivityTaskCompletedEventAttributes+         where++instance NFData ActivityTaskCompletedEventAttributes+         where++-- | Provides the details of the @ActivityTaskFailed@ event.+--+--+--+-- /See:/ 'activityTaskFailedEventAttributes' smart constructor.+data ActivityTaskFailedEventAttributes = ActivityTaskFailedEventAttributes'+  { _atfeaReason           :: !(Maybe Text)+  , _atfeaDetails          :: !(Maybe Text)+  , _atfeaScheduledEventId :: !Integer+  , _atfeaStartedEventId   :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityTaskFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atfeaReason' - The reason provided for the failure.+--+-- * 'atfeaDetails' - The details of the failure.+--+-- * 'atfeaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'atfeaStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+activityTaskFailedEventAttributes+    :: Integer -- ^ 'atfeaScheduledEventId'+    -> Integer -- ^ 'atfeaStartedEventId'+    -> ActivityTaskFailedEventAttributes+activityTaskFailedEventAttributes pScheduledEventId_ pStartedEventId_ =+  ActivityTaskFailedEventAttributes'+  { _atfeaReason = Nothing+  , _atfeaDetails = Nothing+  , _atfeaScheduledEventId = pScheduledEventId_+  , _atfeaStartedEventId = pStartedEventId_+  }+++-- | The reason provided for the failure.+atfeaReason :: Lens' ActivityTaskFailedEventAttributes (Maybe Text)+atfeaReason = lens _atfeaReason (\ s a -> s{_atfeaReason = a});++-- | The details of the failure.+atfeaDetails :: Lens' ActivityTaskFailedEventAttributes (Maybe Text)+atfeaDetails = lens _atfeaDetails (\ s a -> s{_atfeaDetails = a});++-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+atfeaScheduledEventId :: Lens' ActivityTaskFailedEventAttributes Integer+atfeaScheduledEventId = lens _atfeaScheduledEventId (\ s a -> s{_atfeaScheduledEventId = a});++-- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+atfeaStartedEventId :: Lens' ActivityTaskFailedEventAttributes Integer+atfeaStartedEventId = lens _atfeaStartedEventId (\ s a -> s{_atfeaStartedEventId = a});++instance FromJSON ActivityTaskFailedEventAttributes+         where+        parseJSON+          = withObject "ActivityTaskFailedEventAttributes"+              (\ x ->+                 ActivityTaskFailedEventAttributes' <$>+                   (x .:? "reason") <*> (x .:? "details") <*>+                     (x .: "scheduledEventId")+                     <*> (x .: "startedEventId"))++instance Hashable ActivityTaskFailedEventAttributes+         where++instance NFData ActivityTaskFailedEventAttributes+         where++-- | Provides the details of the @ActivityTaskScheduled@ event.+--+--+--+-- /See:/ 'activityTaskScheduledEventAttributes' smart constructor.+data ActivityTaskScheduledEventAttributes = ActivityTaskScheduledEventAttributes'+  { _atseaControl                      :: !(Maybe Text)+  , _atseaHeartbeatTimeout             :: !(Maybe Text)+  , _atseaScheduleToCloseTimeout       :: !(Maybe Text)+  , _atseaInput                        :: !(Maybe Text)+  , _atseaTaskPriority                 :: !(Maybe Text)+  , _atseaScheduleToStartTimeout       :: !(Maybe Text)+  , _atseaStartToCloseTimeout          :: !(Maybe Text)+  , _atseaActivityType                 :: !ActivityType+  , _atseaActivityId                   :: !Text+  , _atseaTaskList                     :: !TaskList+  , _atseaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityTaskScheduledEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atseaControl' - Data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the activity.+--+-- * 'atseaHeartbeatTimeout' - The maximum time before which the worker processing this task must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or return a result, it is ignored.+--+-- * 'atseaScheduleToCloseTimeout' - The maximum amount of time for this activity task.+--+-- * 'atseaInput' - The input provided to the activity task.+--+-- * 'atseaTaskPriority' - The priority to assign to the scheduled activity task. If set, this overrides any default priority value that was assigned when the activity type was registered. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+--+-- * 'atseaScheduleToStartTimeout' - The maximum amount of time the activity task can wait to be assigned to a worker.+--+-- * 'atseaStartToCloseTimeout' - The maximum amount of time a worker may take to process the activity task.+--+-- * 'atseaActivityType' - The type of the activity task.+--+-- * 'atseaActivityId' - The unique ID of the activity task.+--+-- * 'atseaTaskList' - The task list in which the activity task has been scheduled.+--+-- * 'atseaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+activityTaskScheduledEventAttributes+    :: ActivityType -- ^ 'atseaActivityType'+    -> Text -- ^ 'atseaActivityId'+    -> TaskList -- ^ 'atseaTaskList'+    -> Integer -- ^ 'atseaDecisionTaskCompletedEventId'+    -> ActivityTaskScheduledEventAttributes+activityTaskScheduledEventAttributes pActivityType_ pActivityId_ pTaskList_ pDecisionTaskCompletedEventId_ =+  ActivityTaskScheduledEventAttributes'+  { _atseaControl = Nothing+  , _atseaHeartbeatTimeout = Nothing+  , _atseaScheduleToCloseTimeout = Nothing+  , _atseaInput = Nothing+  , _atseaTaskPriority = Nothing+  , _atseaScheduleToStartTimeout = Nothing+  , _atseaStartToCloseTimeout = Nothing+  , _atseaActivityType = pActivityType_+  , _atseaActivityId = pActivityId_+  , _atseaTaskList = pTaskList_+  , _atseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | Data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the activity.+atseaControl :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)+atseaControl = lens _atseaControl (\ s a -> s{_atseaControl = a});++-- | The maximum time before which the worker processing this task must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or return a result, it is ignored.+atseaHeartbeatTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)+atseaHeartbeatTimeout = lens _atseaHeartbeatTimeout (\ s a -> s{_atseaHeartbeatTimeout = a});++-- | The maximum amount of time for this activity task.+atseaScheduleToCloseTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)+atseaScheduleToCloseTimeout = lens _atseaScheduleToCloseTimeout (\ s a -> s{_atseaScheduleToCloseTimeout = a});++-- | The input provided to the activity task.+atseaInput :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)+atseaInput = lens _atseaInput (\ s a -> s{_atseaInput = a});++-- | The priority to assign to the scheduled activity task. If set, this overrides any default priority value that was assigned when the activity type was registered. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+atseaTaskPriority :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)+atseaTaskPriority = lens _atseaTaskPriority (\ s a -> s{_atseaTaskPriority = a});++-- | The maximum amount of time the activity task can wait to be assigned to a worker.+atseaScheduleToStartTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)+atseaScheduleToStartTimeout = lens _atseaScheduleToStartTimeout (\ s a -> s{_atseaScheduleToStartTimeout = a});++-- | The maximum amount of time a worker may take to process the activity task.+atseaStartToCloseTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)+atseaStartToCloseTimeout = lens _atseaStartToCloseTimeout (\ s a -> s{_atseaStartToCloseTimeout = a});++-- | The type of the activity task.+atseaActivityType :: Lens' ActivityTaskScheduledEventAttributes ActivityType+atseaActivityType = lens _atseaActivityType (\ s a -> s{_atseaActivityType = a});++-- | The unique ID of the activity task.+atseaActivityId :: Lens' ActivityTaskScheduledEventAttributes Text+atseaActivityId = lens _atseaActivityId (\ s a -> s{_atseaActivityId = a});++-- | The task list in which the activity task has been scheduled.+atseaTaskList :: Lens' ActivityTaskScheduledEventAttributes TaskList+atseaTaskList = lens _atseaTaskList (\ s a -> s{_atseaTaskList = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+atseaDecisionTaskCompletedEventId :: Lens' ActivityTaskScheduledEventAttributes Integer+atseaDecisionTaskCompletedEventId = lens _atseaDecisionTaskCompletedEventId (\ s a -> s{_atseaDecisionTaskCompletedEventId = a});++instance FromJSON+           ActivityTaskScheduledEventAttributes+         where+        parseJSON+          = withObject "ActivityTaskScheduledEventAttributes"+              (\ x ->+                 ActivityTaskScheduledEventAttributes' <$>+                   (x .:? "control") <*> (x .:? "heartbeatTimeout") <*>+                     (x .:? "scheduleToCloseTimeout")+                     <*> (x .:? "input")+                     <*> (x .:? "taskPriority")+                     <*> (x .:? "scheduleToStartTimeout")+                     <*> (x .:? "startToCloseTimeout")+                     <*> (x .: "activityType")+                     <*> (x .: "activityId")+                     <*> (x .: "taskList")+                     <*> (x .: "decisionTaskCompletedEventId"))++instance Hashable+           ActivityTaskScheduledEventAttributes+         where++instance NFData ActivityTaskScheduledEventAttributes+         where++-- | Provides the details of the @ActivityTaskStarted@ event.+--+--+--+-- /See:/ 'activityTaskStartedEventAttributes' smart constructor.+data ActivityTaskStartedEventAttributes = ActivityTaskStartedEventAttributes'+  { _atseaIdentity         :: !(Maybe Text)+  , _atseaScheduledEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityTaskStartedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atseaIdentity' - Identity of the worker that was assigned this task. This aids diagnostics when problems arise. The form of this identity is user defined.+--+-- * 'atseaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+activityTaskStartedEventAttributes+    :: Integer -- ^ 'atseaScheduledEventId'+    -> ActivityTaskStartedEventAttributes+activityTaskStartedEventAttributes pScheduledEventId_ =+  ActivityTaskStartedEventAttributes'+  {_atseaIdentity = Nothing, _atseaScheduledEventId = pScheduledEventId_}+++-- | Identity of the worker that was assigned this task. This aids diagnostics when problems arise. The form of this identity is user defined.+atseaIdentity :: Lens' ActivityTaskStartedEventAttributes (Maybe Text)+atseaIdentity = lens _atseaIdentity (\ s a -> s{_atseaIdentity = a});++-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+atseaScheduledEventId :: Lens' ActivityTaskStartedEventAttributes Integer+atseaScheduledEventId = lens _atseaScheduledEventId (\ s a -> s{_atseaScheduledEventId = a});++instance FromJSON ActivityTaskStartedEventAttributes+         where+        parseJSON+          = withObject "ActivityTaskStartedEventAttributes"+              (\ x ->+                 ActivityTaskStartedEventAttributes' <$>+                   (x .:? "identity") <*> (x .: "scheduledEventId"))++instance Hashable ActivityTaskStartedEventAttributes+         where++instance NFData ActivityTaskStartedEventAttributes+         where++-- | Provides the details of the @ActivityTaskTimedOut@ event.+--+--+--+-- /See:/ 'activityTaskTimedOutEventAttributes' smart constructor.+data ActivityTaskTimedOutEventAttributes = ActivityTaskTimedOutEventAttributes'+  { _attoeaDetails          :: !(Maybe Text)+  , _attoeaTimeoutType      :: !ActivityTaskTimeoutType+  , _attoeaScheduledEventId :: !Integer+  , _attoeaStartedEventId   :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityTaskTimedOutEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'attoeaDetails' - Contains the content of the @details@ parameter for the last call made by the activity to @RecordActivityTaskHeartbeat@ .+--+-- * 'attoeaTimeoutType' - The type of the timeout that caused this event.+--+-- * 'attoeaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'attoeaStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+activityTaskTimedOutEventAttributes+    :: ActivityTaskTimeoutType -- ^ 'attoeaTimeoutType'+    -> Integer -- ^ 'attoeaScheduledEventId'+    -> Integer -- ^ 'attoeaStartedEventId'+    -> ActivityTaskTimedOutEventAttributes+activityTaskTimedOutEventAttributes pTimeoutType_ pScheduledEventId_ pStartedEventId_ =+  ActivityTaskTimedOutEventAttributes'+  { _attoeaDetails = Nothing+  , _attoeaTimeoutType = pTimeoutType_+  , _attoeaScheduledEventId = pScheduledEventId_+  , _attoeaStartedEventId = pStartedEventId_+  }+++-- | Contains the content of the @details@ parameter for the last call made by the activity to @RecordActivityTaskHeartbeat@ .+attoeaDetails :: Lens' ActivityTaskTimedOutEventAttributes (Maybe Text)+attoeaDetails = lens _attoeaDetails (\ s a -> s{_attoeaDetails = a});++-- | The type of the timeout that caused this event.+attoeaTimeoutType :: Lens' ActivityTaskTimedOutEventAttributes ActivityTaskTimeoutType+attoeaTimeoutType = lens _attoeaTimeoutType (\ s a -> s{_attoeaTimeoutType = a});++-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+attoeaScheduledEventId :: Lens' ActivityTaskTimedOutEventAttributes Integer+attoeaScheduledEventId = lens _attoeaScheduledEventId (\ s a -> s{_attoeaScheduledEventId = a});++-- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+attoeaStartedEventId :: Lens' ActivityTaskTimedOutEventAttributes Integer+attoeaStartedEventId = lens _attoeaStartedEventId (\ s a -> s{_attoeaStartedEventId = a});++instance FromJSON ActivityTaskTimedOutEventAttributes+         where+        parseJSON+          = withObject "ActivityTaskTimedOutEventAttributes"+              (\ x ->+                 ActivityTaskTimedOutEventAttributes' <$>+                   (x .:? "details") <*> (x .: "timeoutType") <*>+                     (x .: "scheduledEventId")+                     <*> (x .: "startedEventId"))++instance Hashable ActivityTaskTimedOutEventAttributes+         where++instance NFData ActivityTaskTimedOutEventAttributes+         where++-- | Represents an activity type.+--+--+--+-- /See:/ 'activityType' smart constructor.+data ActivityType = ActivityType'+  { _atName    :: !Text+  , _atVersion :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atName' - The name of this activity.+--+-- * 'atVersion' - The version of this activity.+activityType+    :: Text -- ^ 'atName'+    -> Text -- ^ 'atVersion'+    -> ActivityType+activityType pName_ pVersion_ =+  ActivityType' {_atName = pName_, _atVersion = pVersion_}+++-- | The name of this activity.+atName :: Lens' ActivityType Text+atName = lens _atName (\ s a -> s{_atName = a});++-- | The version of this activity.+atVersion :: Lens' ActivityType Text+atVersion = lens _atVersion (\ s a -> s{_atVersion = a});++instance FromJSON ActivityType where+        parseJSON+          = withObject "ActivityType"+              (\ x ->+                 ActivityType' <$> (x .: "name") <*> (x .: "version"))++instance Hashable ActivityType where++instance NFData ActivityType where++instance ToJSON ActivityType where+        toJSON ActivityType'{..}+          = object+              (catMaybes+                 [Just ("name" .= _atName),+                  Just ("version" .= _atVersion)])++-- | Configuration settings registered with the activity type.+--+--+--+-- /See:/ 'activityTypeConfiguration' smart constructor.+data ActivityTypeConfiguration = ActivityTypeConfiguration'+  { _atcDefaultTaskScheduleToStartTimeout :: !(Maybe Text)+  , _atcDefaultTaskList                   :: !(Maybe TaskList)+  , _atcDefaultTaskPriority               :: !(Maybe Text)+  , _atcDefaultTaskHeartbeatTimeout       :: !(Maybe Text)+  , _atcDefaultTaskScheduleToCloseTimeout :: !(Maybe Text)+  , _atcDefaultTaskStartToCloseTimeout    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityTypeConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atcDefaultTaskScheduleToStartTimeout' - The default maximum duration, specified when registering the activity type, that a task of an activity type can wait before being assigned to a worker. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'atcDefaultTaskList' - The default task list specified for this activity type at registration. This default is used if a task list isn't provided when a task is scheduled through the @ScheduleActivityTask@ 'Decision' . You can override the default registered task list when scheduling a task through the @ScheduleActivityTask@ 'Decision' .+--+-- * 'atcDefaultTaskPriority' - The default task priority for tasks of this activity type, specified at registration. If not set, then @0@ is used as the default priority. This default can be overridden when scheduling an activity task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+--+-- * 'atcDefaultTaskHeartbeatTimeout' - The default maximum time, in seconds, before which a worker processing a task must report progress by calling 'RecordActivityTaskHeartbeat' . You can specify this value only when /registering/ an activity type. The registered default value can be overridden when you schedule a task through the @ScheduleActivityTask@ 'Decision' . If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'atcDefaultTaskScheduleToCloseTimeout' - The default maximum duration, specified when registering the activity type, for tasks of this activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'atcDefaultTaskStartToCloseTimeout' - The default maximum duration for tasks of an activity type specified when registering the activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+activityTypeConfiguration+    :: ActivityTypeConfiguration+activityTypeConfiguration =+  ActivityTypeConfiguration'+  { _atcDefaultTaskScheduleToStartTimeout = Nothing+  , _atcDefaultTaskList = Nothing+  , _atcDefaultTaskPriority = Nothing+  , _atcDefaultTaskHeartbeatTimeout = Nothing+  , _atcDefaultTaskScheduleToCloseTimeout = Nothing+  , _atcDefaultTaskStartToCloseTimeout = Nothing+  }+++-- | The default maximum duration, specified when registering the activity type, that a task of an activity type can wait before being assigned to a worker. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+atcDefaultTaskScheduleToStartTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)+atcDefaultTaskScheduleToStartTimeout = lens _atcDefaultTaskScheduleToStartTimeout (\ s a -> s{_atcDefaultTaskScheduleToStartTimeout = a});++-- | The default task list specified for this activity type at registration. This default is used if a task list isn't provided when a task is scheduled through the @ScheduleActivityTask@ 'Decision' . You can override the default registered task list when scheduling a task through the @ScheduleActivityTask@ 'Decision' .+atcDefaultTaskList :: Lens' ActivityTypeConfiguration (Maybe TaskList)+atcDefaultTaskList = lens _atcDefaultTaskList (\ s a -> s{_atcDefaultTaskList = a});++-- | The default task priority for tasks of this activity type, specified at registration. If not set, then @0@ is used as the default priority. This default can be overridden when scheduling an activity task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+atcDefaultTaskPriority :: Lens' ActivityTypeConfiguration (Maybe Text)+atcDefaultTaskPriority = lens _atcDefaultTaskPriority (\ s a -> s{_atcDefaultTaskPriority = a});++-- | The default maximum time, in seconds, before which a worker processing a task must report progress by calling 'RecordActivityTaskHeartbeat' . You can specify this value only when /registering/ an activity type. The registered default value can be overridden when you schedule a task through the @ScheduleActivityTask@ 'Decision' . If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+atcDefaultTaskHeartbeatTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)+atcDefaultTaskHeartbeatTimeout = lens _atcDefaultTaskHeartbeatTimeout (\ s a -> s{_atcDefaultTaskHeartbeatTimeout = a});++-- | The default maximum duration, specified when registering the activity type, for tasks of this activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+atcDefaultTaskScheduleToCloseTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)+atcDefaultTaskScheduleToCloseTimeout = lens _atcDefaultTaskScheduleToCloseTimeout (\ s a -> s{_atcDefaultTaskScheduleToCloseTimeout = a});++-- | The default maximum duration for tasks of an activity type specified when registering the activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+atcDefaultTaskStartToCloseTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)+atcDefaultTaskStartToCloseTimeout = lens _atcDefaultTaskStartToCloseTimeout (\ s a -> s{_atcDefaultTaskStartToCloseTimeout = a});++instance FromJSON ActivityTypeConfiguration where+        parseJSON+          = withObject "ActivityTypeConfiguration"+              (\ x ->+                 ActivityTypeConfiguration' <$>+                   (x .:? "defaultTaskScheduleToStartTimeout") <*>+                     (x .:? "defaultTaskList")+                     <*> (x .:? "defaultTaskPriority")+                     <*> (x .:? "defaultTaskHeartbeatTimeout")+                     <*> (x .:? "defaultTaskScheduleToCloseTimeout")+                     <*> (x .:? "defaultTaskStartToCloseTimeout"))++instance Hashable ActivityTypeConfiguration where++instance NFData ActivityTypeConfiguration where++-- | Detailed information about an activity type.+--+--+--+-- /See:/ 'activityTypeInfo' smart constructor.+data ActivityTypeInfo = ActivityTypeInfo'+  { _atiDeprecationDate :: !(Maybe POSIX)+  , _atiDescription     :: !(Maybe Text)+  , _atiActivityType    :: !ActivityType+  , _atiStatus          :: !RegistrationStatus+  , _atiCreationDate    :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ActivityTypeInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'atiDeprecationDate' - If DEPRECATED, the date and time 'DeprecateActivityType' was called.+--+-- * 'atiDescription' - The description of the activity type provided in 'RegisterActivityType' .+--+-- * 'atiActivityType' - The 'ActivityType' type structure representing the activity type.+--+-- * 'atiStatus' - The current status of the activity type.+--+-- * 'atiCreationDate' - The date and time this activity type was created through 'RegisterActivityType' .+activityTypeInfo+    :: ActivityType -- ^ 'atiActivityType'+    -> RegistrationStatus -- ^ 'atiStatus'+    -> UTCTime -- ^ 'atiCreationDate'+    -> ActivityTypeInfo+activityTypeInfo pActivityType_ pStatus_ pCreationDate_ =+  ActivityTypeInfo'+  { _atiDeprecationDate = Nothing+  , _atiDescription = Nothing+  , _atiActivityType = pActivityType_+  , _atiStatus = pStatus_+  , _atiCreationDate = _Time # pCreationDate_+  }+++-- | If DEPRECATED, the date and time 'DeprecateActivityType' was called.+atiDeprecationDate :: Lens' ActivityTypeInfo (Maybe UTCTime)+atiDeprecationDate = lens _atiDeprecationDate (\ s a -> s{_atiDeprecationDate = a}) . mapping _Time;++-- | The description of the activity type provided in 'RegisterActivityType' .+atiDescription :: Lens' ActivityTypeInfo (Maybe Text)+atiDescription = lens _atiDescription (\ s a -> s{_atiDescription = a});++-- | The 'ActivityType' type structure representing the activity type.+atiActivityType :: Lens' ActivityTypeInfo ActivityType+atiActivityType = lens _atiActivityType (\ s a -> s{_atiActivityType = a});++-- | The current status of the activity type.+atiStatus :: Lens' ActivityTypeInfo RegistrationStatus+atiStatus = lens _atiStatus (\ s a -> s{_atiStatus = a});++-- | The date and time this activity type was created through 'RegisterActivityType' .+atiCreationDate :: Lens' ActivityTypeInfo UTCTime+atiCreationDate = lens _atiCreationDate (\ s a -> s{_atiCreationDate = a}) . _Time;++instance FromJSON ActivityTypeInfo where+        parseJSON+          = withObject "ActivityTypeInfo"+              (\ x ->+                 ActivityTypeInfo' <$>+                   (x .:? "deprecationDate") <*> (x .:? "description")+                     <*> (x .: "activityType")+                     <*> (x .: "status")+                     <*> (x .: "creationDate"))++instance Hashable ActivityTypeInfo where++instance NFData ActivityTypeInfo where++-- | Provides the details of the @CancelTimer@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'cancelTimerDecisionAttributes' smart constructor.+newtype CancelTimerDecisionAttributes = CancelTimerDecisionAttributes'+  { _ctdaTimerId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CancelTimerDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ctdaTimerId' - The unique ID of the timer to cancel.+cancelTimerDecisionAttributes+    :: Text -- ^ 'ctdaTimerId'+    -> CancelTimerDecisionAttributes+cancelTimerDecisionAttributes pTimerId_ =+  CancelTimerDecisionAttributes' {_ctdaTimerId = pTimerId_}+++-- | The unique ID of the timer to cancel.+ctdaTimerId :: Lens' CancelTimerDecisionAttributes Text+ctdaTimerId = lens _ctdaTimerId (\ s a -> s{_ctdaTimerId = a});++instance Hashable CancelTimerDecisionAttributes where++instance NFData CancelTimerDecisionAttributes where++instance ToJSON CancelTimerDecisionAttributes where+        toJSON CancelTimerDecisionAttributes'{..}+          = object+              (catMaybes [Just ("timerId" .= _ctdaTimerId)])++-- | Provides the details of the @CancelTimerFailed@ event.+--+--+--+-- /See:/ 'cancelTimerFailedEventAttributes' smart constructor.+data CancelTimerFailedEventAttributes = CancelTimerFailedEventAttributes'+  { _ctfeaTimerId                      :: !Text+  , _ctfeaCause                        :: !CancelTimerFailedCause+  , _ctfeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CancelTimerFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ctfeaTimerId' - The timerId provided in the @CancelTimer@ decision that failed.+--+-- * 'ctfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'ctfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cancelTimerFailedEventAttributes+    :: Text -- ^ 'ctfeaTimerId'+    -> CancelTimerFailedCause -- ^ 'ctfeaCause'+    -> Integer -- ^ 'ctfeaDecisionTaskCompletedEventId'+    -> CancelTimerFailedEventAttributes+cancelTimerFailedEventAttributes pTimerId_ pCause_ pDecisionTaskCompletedEventId_ =+  CancelTimerFailedEventAttributes'+  { _ctfeaTimerId = pTimerId_+  , _ctfeaCause = pCause_+  , _ctfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The timerId provided in the @CancelTimer@ decision that failed.+ctfeaTimerId :: Lens' CancelTimerFailedEventAttributes Text+ctfeaTimerId = lens _ctfeaTimerId (\ s a -> s{_ctfeaTimerId = a});++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+ctfeaCause :: Lens' CancelTimerFailedEventAttributes CancelTimerFailedCause+ctfeaCause = lens _ctfeaCause (\ s a -> s{_ctfeaCause = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+ctfeaDecisionTaskCompletedEventId :: Lens' CancelTimerFailedEventAttributes Integer+ctfeaDecisionTaskCompletedEventId = lens _ctfeaDecisionTaskCompletedEventId (\ s a -> s{_ctfeaDecisionTaskCompletedEventId = a});++instance FromJSON CancelTimerFailedEventAttributes+         where+        parseJSON+          = withObject "CancelTimerFailedEventAttributes"+              (\ x ->+                 CancelTimerFailedEventAttributes' <$>+                   (x .: "timerId") <*> (x .: "cause") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable CancelTimerFailedEventAttributes+         where++instance NFData CancelTimerFailedEventAttributes+         where++-- | Provides the details of the @CancelWorkflowExecution@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'cancelWorkflowExecutionDecisionAttributes' smart constructor.+newtype CancelWorkflowExecutionDecisionAttributes = CancelWorkflowExecutionDecisionAttributes'+  { _cwedaDetails :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CancelWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cwedaDetails' - Details of the cancellation.+cancelWorkflowExecutionDecisionAttributes+    :: CancelWorkflowExecutionDecisionAttributes+cancelWorkflowExecutionDecisionAttributes =+  CancelWorkflowExecutionDecisionAttributes' {_cwedaDetails = Nothing}+++-- | Details of the cancellation.+cwedaDetails :: Lens' CancelWorkflowExecutionDecisionAttributes (Maybe Text)+cwedaDetails = lens _cwedaDetails (\ s a -> s{_cwedaDetails = a});++instance Hashable+           CancelWorkflowExecutionDecisionAttributes+         where++instance NFData+           CancelWorkflowExecutionDecisionAttributes+         where++instance ToJSON+           CancelWorkflowExecutionDecisionAttributes+         where+        toJSON CancelWorkflowExecutionDecisionAttributes'{..}+          = object+              (catMaybes [("details" .=) <$> _cwedaDetails])++-- | Provides the details of the @CancelWorkflowExecutionFailed@ event.+--+--+--+-- /See:/ 'cancelWorkflowExecutionFailedEventAttributes' smart constructor.+data CancelWorkflowExecutionFailedEventAttributes = CancelWorkflowExecutionFailedEventAttributes'+  { _cCause                        :: !CancelWorkflowExecutionFailedCause+  , _cDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CancelWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'cDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cancelWorkflowExecutionFailedEventAttributes+    :: CancelWorkflowExecutionFailedCause -- ^ 'cCause'+    -> Integer -- ^ 'cDecisionTaskCompletedEventId'+    -> CancelWorkflowExecutionFailedEventAttributes+cancelWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =+  CancelWorkflowExecutionFailedEventAttributes'+  { _cCause = pCause_+  , _cDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+cCause :: Lens' CancelWorkflowExecutionFailedEventAttributes CancelWorkflowExecutionFailedCause+cCause = lens _cCause (\ s a -> s{_cCause = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cDecisionTaskCompletedEventId :: Lens' CancelWorkflowExecutionFailedEventAttributes Integer+cDecisionTaskCompletedEventId = lens _cDecisionTaskCompletedEventId (\ s a -> s{_cDecisionTaskCompletedEventId = a});++instance FromJSON+           CancelWorkflowExecutionFailedEventAttributes+         where+        parseJSON+          = withObject+              "CancelWorkflowExecutionFailedEventAttributes"+              (\ x ->+                 CancelWorkflowExecutionFailedEventAttributes' <$>+                   (x .: "cause") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable+           CancelWorkflowExecutionFailedEventAttributes+         where++instance NFData+           CancelWorkflowExecutionFailedEventAttributes+         where++-- | Provide details of the @ChildWorkflowExecutionCanceled@ event.+--+--+--+-- /See:/ 'childWorkflowExecutionCanceledEventAttributes' smart constructor.+data ChildWorkflowExecutionCanceledEventAttributes = ChildWorkflowExecutionCanceledEventAttributes'+  { _cDetails           :: !(Maybe Text)+  , _cWorkflowExecution :: !WorkflowExecution+  , _cWorkflowType      :: !WorkflowType+  , _cInitiatedEventId  :: !Integer+  , _cStartedEventId    :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ChildWorkflowExecutionCanceledEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cDetails' - Details of the cancellation (if provided).+--+-- * 'cWorkflowExecution' - The child workflow execution that was canceled.+--+-- * 'cWorkflowType' - The type of the child workflow execution.+--+-- * 'cInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'cStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+childWorkflowExecutionCanceledEventAttributes+    :: WorkflowExecution -- ^ 'cWorkflowExecution'+    -> WorkflowType -- ^ 'cWorkflowType'+    -> Integer -- ^ 'cInitiatedEventId'+    -> Integer -- ^ 'cStartedEventId'+    -> ChildWorkflowExecutionCanceledEventAttributes+childWorkflowExecutionCanceledEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =+  ChildWorkflowExecutionCanceledEventAttributes'+  { _cDetails = Nothing+  , _cWorkflowExecution = pWorkflowExecution_+  , _cWorkflowType = pWorkflowType_+  , _cInitiatedEventId = pInitiatedEventId_+  , _cStartedEventId = pStartedEventId_+  }+++-- | Details of the cancellation (if provided).+cDetails :: Lens' ChildWorkflowExecutionCanceledEventAttributes (Maybe Text)+cDetails = lens _cDetails (\ s a -> s{_cDetails = a});++-- | The child workflow execution that was canceled.+cWorkflowExecution :: Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowExecution+cWorkflowExecution = lens _cWorkflowExecution (\ s a -> s{_cWorkflowExecution = a});++-- | The type of the child workflow execution.+cWorkflowType :: Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowType+cWorkflowType = lens _cWorkflowType (\ s a -> s{_cWorkflowType = a});++-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cInitiatedEventId :: Lens' ChildWorkflowExecutionCanceledEventAttributes Integer+cInitiatedEventId = lens _cInitiatedEventId (\ s a -> s{_cInitiatedEventId = a});++-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cStartedEventId :: Lens' ChildWorkflowExecutionCanceledEventAttributes Integer+cStartedEventId = lens _cStartedEventId (\ s a -> s{_cStartedEventId = a});++instance FromJSON+           ChildWorkflowExecutionCanceledEventAttributes+         where+        parseJSON+          = withObject+              "ChildWorkflowExecutionCanceledEventAttributes"+              (\ x ->+                 ChildWorkflowExecutionCanceledEventAttributes' <$>+                   (x .:? "details") <*> (x .: "workflowExecution") <*>+                     (x .: "workflowType")+                     <*> (x .: "initiatedEventId")+                     <*> (x .: "startedEventId"))++instance Hashable+           ChildWorkflowExecutionCanceledEventAttributes+         where++instance NFData+           ChildWorkflowExecutionCanceledEventAttributes+         where++-- | Provides the details of the @ChildWorkflowExecutionCompleted@ event.+--+--+--+-- /See:/ 'childWorkflowExecutionCompletedEventAttributes' smart constructor.+data ChildWorkflowExecutionCompletedEventAttributes = ChildWorkflowExecutionCompletedEventAttributes'+  { _cweceaResult            :: !(Maybe Text)+  , _cweceaWorkflowExecution :: !WorkflowExecution+  , _cweceaWorkflowType      :: !WorkflowType+  , _cweceaInitiatedEventId  :: !Integer+  , _cweceaStartedEventId    :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ChildWorkflowExecutionCompletedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cweceaResult' - The result of the child workflow execution.+--+-- * 'cweceaWorkflowExecution' - The child workflow execution that was completed.+--+-- * 'cweceaWorkflowType' - The type of the child workflow execution.+--+-- * 'cweceaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'cweceaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+childWorkflowExecutionCompletedEventAttributes+    :: WorkflowExecution -- ^ 'cweceaWorkflowExecution'+    -> WorkflowType -- ^ 'cweceaWorkflowType'+    -> Integer -- ^ 'cweceaInitiatedEventId'+    -> Integer -- ^ 'cweceaStartedEventId'+    -> ChildWorkflowExecutionCompletedEventAttributes+childWorkflowExecutionCompletedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =+  ChildWorkflowExecutionCompletedEventAttributes'+  { _cweceaResult = Nothing+  , _cweceaWorkflowExecution = pWorkflowExecution_+  , _cweceaWorkflowType = pWorkflowType_+  , _cweceaInitiatedEventId = pInitiatedEventId_+  , _cweceaStartedEventId = pStartedEventId_+  }+++-- | The result of the child workflow execution.+cweceaResult :: Lens' ChildWorkflowExecutionCompletedEventAttributes (Maybe Text)+cweceaResult = lens _cweceaResult (\ s a -> s{_cweceaResult = a});++-- | The child workflow execution that was completed.+cweceaWorkflowExecution :: Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowExecution+cweceaWorkflowExecution = lens _cweceaWorkflowExecution (\ s a -> s{_cweceaWorkflowExecution = a});++-- | The type of the child workflow execution.+cweceaWorkflowType :: Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowType+cweceaWorkflowType = lens _cweceaWorkflowType (\ s a -> s{_cweceaWorkflowType = a});++-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cweceaInitiatedEventId :: Lens' ChildWorkflowExecutionCompletedEventAttributes Integer+cweceaInitiatedEventId = lens _cweceaInitiatedEventId (\ s a -> s{_cweceaInitiatedEventId = a});++-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cweceaStartedEventId :: Lens' ChildWorkflowExecutionCompletedEventAttributes Integer+cweceaStartedEventId = lens _cweceaStartedEventId (\ s a -> s{_cweceaStartedEventId = a});++instance FromJSON+           ChildWorkflowExecutionCompletedEventAttributes+         where+        parseJSON+          = withObject+              "ChildWorkflowExecutionCompletedEventAttributes"+              (\ x ->+                 ChildWorkflowExecutionCompletedEventAttributes' <$>+                   (x .:? "result") <*> (x .: "workflowExecution") <*>+                     (x .: "workflowType")+                     <*> (x .: "initiatedEventId")+                     <*> (x .: "startedEventId"))++instance Hashable+           ChildWorkflowExecutionCompletedEventAttributes+         where++instance NFData+           ChildWorkflowExecutionCompletedEventAttributes+         where++-- | Provides the details of the @ChildWorkflowExecutionFailed@ event.+--+--+--+-- /See:/ 'childWorkflowExecutionFailedEventAttributes' smart constructor.+data ChildWorkflowExecutionFailedEventAttributes = ChildWorkflowExecutionFailedEventAttributes'+  { _cwefeaReason            :: !(Maybe Text)+  , _cwefeaDetails           :: !(Maybe Text)+  , _cwefeaWorkflowExecution :: !WorkflowExecution+  , _cwefeaWorkflowType      :: !WorkflowType+  , _cwefeaInitiatedEventId  :: !Integer+  , _cwefeaStartedEventId    :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ChildWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cwefeaReason' - The reason for the failure (if provided).+--+-- * 'cwefeaDetails' - The details of the failure (if provided).+--+-- * 'cwefeaWorkflowExecution' - The child workflow execution that failed.+--+-- * 'cwefeaWorkflowType' - The type of the child workflow execution.+--+-- * 'cwefeaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'cwefeaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+childWorkflowExecutionFailedEventAttributes+    :: WorkflowExecution -- ^ 'cwefeaWorkflowExecution'+    -> WorkflowType -- ^ 'cwefeaWorkflowType'+    -> Integer -- ^ 'cwefeaInitiatedEventId'+    -> Integer -- ^ 'cwefeaStartedEventId'+    -> ChildWorkflowExecutionFailedEventAttributes+childWorkflowExecutionFailedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =+  ChildWorkflowExecutionFailedEventAttributes'+  { _cwefeaReason = Nothing+  , _cwefeaDetails = Nothing+  , _cwefeaWorkflowExecution = pWorkflowExecution_+  , _cwefeaWorkflowType = pWorkflowType_+  , _cwefeaInitiatedEventId = pInitiatedEventId_+  , _cwefeaStartedEventId = pStartedEventId_+  }+++-- | The reason for the failure (if provided).+cwefeaReason :: Lens' ChildWorkflowExecutionFailedEventAttributes (Maybe Text)+cwefeaReason = lens _cwefeaReason (\ s a -> s{_cwefeaReason = a});++-- | The details of the failure (if provided).+cwefeaDetails :: Lens' ChildWorkflowExecutionFailedEventAttributes (Maybe Text)+cwefeaDetails = lens _cwefeaDetails (\ s a -> s{_cwefeaDetails = a});++-- | The child workflow execution that failed.+cwefeaWorkflowExecution :: Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowExecution+cwefeaWorkflowExecution = lens _cwefeaWorkflowExecution (\ s a -> s{_cwefeaWorkflowExecution = a});++-- | The type of the child workflow execution.+cwefeaWorkflowType :: Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowType+cwefeaWorkflowType = lens _cwefeaWorkflowType (\ s a -> s{_cwefeaWorkflowType = a});++-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cwefeaInitiatedEventId :: Lens' ChildWorkflowExecutionFailedEventAttributes Integer+cwefeaInitiatedEventId = lens _cwefeaInitiatedEventId (\ s a -> s{_cwefeaInitiatedEventId = a});++-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cwefeaStartedEventId :: Lens' ChildWorkflowExecutionFailedEventAttributes Integer+cwefeaStartedEventId = lens _cwefeaStartedEventId (\ s a -> s{_cwefeaStartedEventId = a});++instance FromJSON+           ChildWorkflowExecutionFailedEventAttributes+         where+        parseJSON+          = withObject+              "ChildWorkflowExecutionFailedEventAttributes"+              (\ x ->+                 ChildWorkflowExecutionFailedEventAttributes' <$>+                   (x .:? "reason") <*> (x .:? "details") <*>+                     (x .: "workflowExecution")+                     <*> (x .: "workflowType")+                     <*> (x .: "initiatedEventId")+                     <*> (x .: "startedEventId"))++instance Hashable+           ChildWorkflowExecutionFailedEventAttributes+         where++instance NFData+           ChildWorkflowExecutionFailedEventAttributes+         where++-- | Provides the details of the @ChildWorkflowExecutionStarted@ event.+--+--+--+-- /See:/ 'childWorkflowExecutionStartedEventAttributes' smart constructor.+data ChildWorkflowExecutionStartedEventAttributes = ChildWorkflowExecutionStartedEventAttributes'+  { _cweseaWorkflowExecution :: !WorkflowExecution+  , _cweseaWorkflowType      :: !WorkflowType+  , _cweseaInitiatedEventId  :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ChildWorkflowExecutionStartedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cweseaWorkflowExecution' - The child workflow execution that was started.+--+-- * 'cweseaWorkflowType' - The type of the child workflow execution.+--+-- * 'cweseaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+childWorkflowExecutionStartedEventAttributes+    :: WorkflowExecution -- ^ 'cweseaWorkflowExecution'+    -> WorkflowType -- ^ 'cweseaWorkflowType'+    -> Integer -- ^ 'cweseaInitiatedEventId'+    -> ChildWorkflowExecutionStartedEventAttributes+childWorkflowExecutionStartedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ =+  ChildWorkflowExecutionStartedEventAttributes'+  { _cweseaWorkflowExecution = pWorkflowExecution_+  , _cweseaWorkflowType = pWorkflowType_+  , _cweseaInitiatedEventId = pInitiatedEventId_+  }+++-- | The child workflow execution that was started.+cweseaWorkflowExecution :: Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowExecution+cweseaWorkflowExecution = lens _cweseaWorkflowExecution (\ s a -> s{_cweseaWorkflowExecution = a});++-- | The type of the child workflow execution.+cweseaWorkflowType :: Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowType+cweseaWorkflowType = lens _cweseaWorkflowType (\ s a -> s{_cweseaWorkflowType = a});++-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cweseaInitiatedEventId :: Lens' ChildWorkflowExecutionStartedEventAttributes Integer+cweseaInitiatedEventId = lens _cweseaInitiatedEventId (\ s a -> s{_cweseaInitiatedEventId = a});++instance FromJSON+           ChildWorkflowExecutionStartedEventAttributes+         where+        parseJSON+          = withObject+              "ChildWorkflowExecutionStartedEventAttributes"+              (\ x ->+                 ChildWorkflowExecutionStartedEventAttributes' <$>+                   (x .: "workflowExecution") <*> (x .: "workflowType")+                     <*> (x .: "initiatedEventId"))++instance Hashable+           ChildWorkflowExecutionStartedEventAttributes+         where++instance NFData+           ChildWorkflowExecutionStartedEventAttributes+         where++-- | Provides the details of the @ChildWorkflowExecutionTerminated@ event.+--+--+--+-- /See:/ 'childWorkflowExecutionTerminatedEventAttributes' smart constructor.+data ChildWorkflowExecutionTerminatedEventAttributes = ChildWorkflowExecutionTerminatedEventAttributes'+  { _cweteaWorkflowExecution :: !WorkflowExecution+  , _cweteaWorkflowType      :: !WorkflowType+  , _cweteaInitiatedEventId  :: !Integer+  , _cweteaStartedEventId    :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ChildWorkflowExecutionTerminatedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cweteaWorkflowExecution' - The child workflow execution that was terminated.+--+-- * 'cweteaWorkflowType' - The type of the child workflow execution.+--+-- * 'cweteaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'cweteaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+childWorkflowExecutionTerminatedEventAttributes+    :: WorkflowExecution -- ^ 'cweteaWorkflowExecution'+    -> WorkflowType -- ^ 'cweteaWorkflowType'+    -> Integer -- ^ 'cweteaInitiatedEventId'+    -> Integer -- ^ 'cweteaStartedEventId'+    -> ChildWorkflowExecutionTerminatedEventAttributes+childWorkflowExecutionTerminatedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =+  ChildWorkflowExecutionTerminatedEventAttributes'+  { _cweteaWorkflowExecution = pWorkflowExecution_+  , _cweteaWorkflowType = pWorkflowType_+  , _cweteaInitiatedEventId = pInitiatedEventId_+  , _cweteaStartedEventId = pStartedEventId_+  }+++-- | The child workflow execution that was terminated.+cweteaWorkflowExecution :: Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowExecution+cweteaWorkflowExecution = lens _cweteaWorkflowExecution (\ s a -> s{_cweteaWorkflowExecution = a});++-- | The type of the child workflow execution.+cweteaWorkflowType :: Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowType+cweteaWorkflowType = lens _cweteaWorkflowType (\ s a -> s{_cweteaWorkflowType = a});++-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cweteaInitiatedEventId :: Lens' ChildWorkflowExecutionTerminatedEventAttributes Integer+cweteaInitiatedEventId = lens _cweteaInitiatedEventId (\ s a -> s{_cweteaInitiatedEventId = a});++-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cweteaStartedEventId :: Lens' ChildWorkflowExecutionTerminatedEventAttributes Integer+cweteaStartedEventId = lens _cweteaStartedEventId (\ s a -> s{_cweteaStartedEventId = a});++instance FromJSON+           ChildWorkflowExecutionTerminatedEventAttributes+         where+        parseJSON+          = withObject+              "ChildWorkflowExecutionTerminatedEventAttributes"+              (\ x ->+                 ChildWorkflowExecutionTerminatedEventAttributes' <$>+                   (x .: "workflowExecution") <*> (x .: "workflowType")+                     <*> (x .: "initiatedEventId")+                     <*> (x .: "startedEventId"))++instance Hashable+           ChildWorkflowExecutionTerminatedEventAttributes+         where++instance NFData+           ChildWorkflowExecutionTerminatedEventAttributes+         where++-- | Provides the details of the @ChildWorkflowExecutionTimedOut@ event.+--+--+--+-- /See:/ 'childWorkflowExecutionTimedOutEventAttributes' smart constructor.+data ChildWorkflowExecutionTimedOutEventAttributes = ChildWorkflowExecutionTimedOutEventAttributes'+  { _cwetoeaWorkflowExecution :: !WorkflowExecution+  , _cwetoeaWorkflowType      :: !WorkflowType+  , _cwetoeaTimeoutType       :: !WorkflowExecutionTimeoutType+  , _cwetoeaInitiatedEventId  :: !Integer+  , _cwetoeaStartedEventId    :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ChildWorkflowExecutionTimedOutEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cwetoeaWorkflowExecution' - The child workflow execution that timed out.+--+-- * 'cwetoeaWorkflowType' - The type of the child workflow execution.+--+-- * 'cwetoeaTimeoutType' - The type of the timeout that caused the child workflow execution to time out.+--+-- * 'cwetoeaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'cwetoeaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+childWorkflowExecutionTimedOutEventAttributes+    :: WorkflowExecution -- ^ 'cwetoeaWorkflowExecution'+    -> WorkflowType -- ^ 'cwetoeaWorkflowType'+    -> WorkflowExecutionTimeoutType -- ^ 'cwetoeaTimeoutType'+    -> Integer -- ^ 'cwetoeaInitiatedEventId'+    -> Integer -- ^ 'cwetoeaStartedEventId'+    -> ChildWorkflowExecutionTimedOutEventAttributes+childWorkflowExecutionTimedOutEventAttributes pWorkflowExecution_ pWorkflowType_ pTimeoutType_ pInitiatedEventId_ pStartedEventId_ =+  ChildWorkflowExecutionTimedOutEventAttributes'+  { _cwetoeaWorkflowExecution = pWorkflowExecution_+  , _cwetoeaWorkflowType = pWorkflowType_+  , _cwetoeaTimeoutType = pTimeoutType_+  , _cwetoeaInitiatedEventId = pInitiatedEventId_+  , _cwetoeaStartedEventId = pStartedEventId_+  }+++-- | The child workflow execution that timed out.+cwetoeaWorkflowExecution :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecution+cwetoeaWorkflowExecution = lens _cwetoeaWorkflowExecution (\ s a -> s{_cwetoeaWorkflowExecution = a});++-- | The type of the child workflow execution.+cwetoeaWorkflowType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowType+cwetoeaWorkflowType = lens _cwetoeaWorkflowType (\ s a -> s{_cwetoeaWorkflowType = a});++-- | The type of the timeout that caused the child workflow execution to time out.+cwetoeaTimeoutType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType+cwetoeaTimeoutType = lens _cwetoeaTimeoutType (\ s a -> s{_cwetoeaTimeoutType = a});++-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cwetoeaInitiatedEventId :: Lens' ChildWorkflowExecutionTimedOutEventAttributes Integer+cwetoeaInitiatedEventId = lens _cwetoeaInitiatedEventId (\ s a -> s{_cwetoeaInitiatedEventId = a});++-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cwetoeaStartedEventId :: Lens' ChildWorkflowExecutionTimedOutEventAttributes Integer+cwetoeaStartedEventId = lens _cwetoeaStartedEventId (\ s a -> s{_cwetoeaStartedEventId = a});++instance FromJSON+           ChildWorkflowExecutionTimedOutEventAttributes+         where+        parseJSON+          = withObject+              "ChildWorkflowExecutionTimedOutEventAttributes"+              (\ x ->+                 ChildWorkflowExecutionTimedOutEventAttributes' <$>+                   (x .: "workflowExecution") <*> (x .: "workflowType")+                     <*> (x .: "timeoutType")+                     <*> (x .: "initiatedEventId")+                     <*> (x .: "startedEventId"))++instance Hashable+           ChildWorkflowExecutionTimedOutEventAttributes+         where++instance NFData+           ChildWorkflowExecutionTimedOutEventAttributes+         where++-- | Used to filter the closed workflow executions in visibility APIs by their close status.+--+--+--+-- /See:/ 'closeStatusFilter' smart constructor.+newtype CloseStatusFilter = CloseStatusFilter'+  { _csfStatus :: CloseStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CloseStatusFilter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csfStatus' - The close status that must match the close status of an execution for it to meet the criteria of this filter.+closeStatusFilter+    :: CloseStatus -- ^ 'csfStatus'+    -> CloseStatusFilter+closeStatusFilter pStatus_ = CloseStatusFilter' {_csfStatus = pStatus_}+++-- | The close status that must match the close status of an execution for it to meet the criteria of this filter.+csfStatus :: Lens' CloseStatusFilter CloseStatus+csfStatus = lens _csfStatus (\ s a -> s{_csfStatus = a});++instance Hashable CloseStatusFilter where++instance NFData CloseStatusFilter where++instance ToJSON CloseStatusFilter where+        toJSON CloseStatusFilter'{..}+          = object (catMaybes [Just ("status" .= _csfStatus)])++-- | Provides the details of the @CompleteWorkflowExecution@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'completeWorkflowExecutionDecisionAttributes' smart constructor.+newtype CompleteWorkflowExecutionDecisionAttributes = CompleteWorkflowExecutionDecisionAttributes'+  { _cwedaResult :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CompleteWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cwedaResult' - The result of the workflow execution. The form of the result is implementation defined.+completeWorkflowExecutionDecisionAttributes+    :: CompleteWorkflowExecutionDecisionAttributes+completeWorkflowExecutionDecisionAttributes =+  CompleteWorkflowExecutionDecisionAttributes' {_cwedaResult = Nothing}+++-- | The result of the workflow execution. The form of the result is implementation defined.+cwedaResult :: Lens' CompleteWorkflowExecutionDecisionAttributes (Maybe Text)+cwedaResult = lens _cwedaResult (\ s a -> s{_cwedaResult = a});++instance Hashable+           CompleteWorkflowExecutionDecisionAttributes+         where++instance NFData+           CompleteWorkflowExecutionDecisionAttributes+         where++instance ToJSON+           CompleteWorkflowExecutionDecisionAttributes+         where+        toJSON+          CompleteWorkflowExecutionDecisionAttributes'{..}+          = object (catMaybes [("result" .=) <$> _cwedaResult])++-- | Provides the details of the @CompleteWorkflowExecutionFailed@ event.+--+--+--+-- /See:/ 'completeWorkflowExecutionFailedEventAttributes' smart constructor.+data CompleteWorkflowExecutionFailedEventAttributes = CompleteWorkflowExecutionFailedEventAttributes'+  { _cwefeaCause                        :: !CompleteWorkflowExecutionFailedCause+  , _cwefeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CompleteWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'cwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+completeWorkflowExecutionFailedEventAttributes+    :: CompleteWorkflowExecutionFailedCause -- ^ 'cwefeaCause'+    -> Integer -- ^ 'cwefeaDecisionTaskCompletedEventId'+    -> CompleteWorkflowExecutionFailedEventAttributes+completeWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =+  CompleteWorkflowExecutionFailedEventAttributes'+  { _cwefeaCause = pCause_+  , _cwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+cwefeaCause :: Lens' CompleteWorkflowExecutionFailedEventAttributes CompleteWorkflowExecutionFailedCause+cwefeaCause = lens _cwefeaCause (\ s a -> s{_cwefeaCause = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+cwefeaDecisionTaskCompletedEventId :: Lens' CompleteWorkflowExecutionFailedEventAttributes Integer+cwefeaDecisionTaskCompletedEventId = lens _cwefeaDecisionTaskCompletedEventId (\ s a -> s{_cwefeaDecisionTaskCompletedEventId = a});++instance FromJSON+           CompleteWorkflowExecutionFailedEventAttributes+         where+        parseJSON+          = withObject+              "CompleteWorkflowExecutionFailedEventAttributes"+              (\ x ->+                 CompleteWorkflowExecutionFailedEventAttributes' <$>+                   (x .: "cause") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable+           CompleteWorkflowExecutionFailedEventAttributes+         where++instance NFData+           CompleteWorkflowExecutionFailedEventAttributes+         where++-- | Provides the details of the @ContinueAsNewWorkflowExecution@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys.+--+--     * @tag@ – A tag used to identify the workflow execution+--+--     * @taskList@ – String constraint. The key is @swf:taskList.name@ .+--+--     * @workflowType.version@ – String constraint. The key is @swf:workflowType.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'continueAsNewWorkflowExecutionDecisionAttributes' smart constructor.+data ContinueAsNewWorkflowExecutionDecisionAttributes = ContinueAsNewWorkflowExecutionDecisionAttributes'+  { _canwedaTagList                      :: !(Maybe [Text])+  , _canwedaTaskStartToCloseTimeout      :: !(Maybe Text)+  , _canwedaLambdaRole                   :: !(Maybe Text)+  , _canwedaInput                        :: !(Maybe Text)+  , _canwedaWorkflowTypeVersion          :: !(Maybe Text)+  , _canwedaExecutionStartToCloseTimeout :: !(Maybe Text)+  , _canwedaTaskList                     :: !(Maybe TaskList)+  , _canwedaTaskPriority                 :: !(Maybe Text)+  , _canwedaChildPolicy                  :: !(Maybe ChildPolicy)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContinueAsNewWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'canwedaTagList' - The list of tags to associate with the new workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' .+--+-- * 'canwedaTaskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for the new workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'canwedaLambdaRole' - The IAM role to attach to the new (continued) execution.+--+-- * 'canwedaInput' - The input provided to the new workflow execution.+--+-- * 'canwedaWorkflowTypeVersion' - The version of the workflow to start.+--+-- * 'canwedaExecutionStartToCloseTimeout' - If set, specifies the total duration for this workflow execution. This overrides the @defaultExecutionStartToCloseTimeout@ specified when registering the workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'canwedaTaskList' - The task list to use for the decisions of the new (continued) workflow execution.+--+-- * 'canwedaTaskPriority' - The task priority that, if set, specifies the priority for the decision tasks for this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+--+-- * 'canwedaChildPolicy' - If set, specifies the policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+continueAsNewWorkflowExecutionDecisionAttributes+    :: ContinueAsNewWorkflowExecutionDecisionAttributes+continueAsNewWorkflowExecutionDecisionAttributes =+  ContinueAsNewWorkflowExecutionDecisionAttributes'+  { _canwedaTagList = Nothing+  , _canwedaTaskStartToCloseTimeout = Nothing+  , _canwedaLambdaRole = Nothing+  , _canwedaInput = Nothing+  , _canwedaWorkflowTypeVersion = Nothing+  , _canwedaExecutionStartToCloseTimeout = Nothing+  , _canwedaTaskList = Nothing+  , _canwedaTaskPriority = Nothing+  , _canwedaChildPolicy = Nothing+  }+++-- | The list of tags to associate with the new workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' .+canwedaTagList :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes [Text]+canwedaTagList = lens _canwedaTagList (\ s a -> s{_canwedaTagList = a}) . _Default . _Coerce;++-- | Specifies the maximum duration of decision tasks for the new workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+canwedaTaskStartToCloseTimeout :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)+canwedaTaskStartToCloseTimeout = lens _canwedaTaskStartToCloseTimeout (\ s a -> s{_canwedaTaskStartToCloseTimeout = a});++-- | The IAM role to attach to the new (continued) execution.+canwedaLambdaRole :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)+canwedaLambdaRole = lens _canwedaLambdaRole (\ s a -> s{_canwedaLambdaRole = a});++-- | The input provided to the new workflow execution.+canwedaInput :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)+canwedaInput = lens _canwedaInput (\ s a -> s{_canwedaInput = a});++-- | The version of the workflow to start.+canwedaWorkflowTypeVersion :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)+canwedaWorkflowTypeVersion = lens _canwedaWorkflowTypeVersion (\ s a -> s{_canwedaWorkflowTypeVersion = a});++-- | If set, specifies the total duration for this workflow execution. This overrides the @defaultExecutionStartToCloseTimeout@ specified when registering the workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+canwedaExecutionStartToCloseTimeout :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)+canwedaExecutionStartToCloseTimeout = lens _canwedaExecutionStartToCloseTimeout (\ s a -> s{_canwedaExecutionStartToCloseTimeout = a});++-- | The task list to use for the decisions of the new (continued) workflow execution.+canwedaTaskList :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe TaskList)+canwedaTaskList = lens _canwedaTaskList (\ s a -> s{_canwedaTaskList = a});++-- | The task priority that, if set, specifies the priority for the decision tasks for this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+canwedaTaskPriority :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)+canwedaTaskPriority = lens _canwedaTaskPriority (\ s a -> s{_canwedaTaskPriority = a});++-- | If set, specifies the policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+canwedaChildPolicy :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe ChildPolicy)+canwedaChildPolicy = lens _canwedaChildPolicy (\ s a -> s{_canwedaChildPolicy = a});++instance Hashable+           ContinueAsNewWorkflowExecutionDecisionAttributes+         where++instance NFData+           ContinueAsNewWorkflowExecutionDecisionAttributes+         where++instance ToJSON+           ContinueAsNewWorkflowExecutionDecisionAttributes+         where+        toJSON+          ContinueAsNewWorkflowExecutionDecisionAttributes'{..}+          = object+              (catMaybes+                 [("tagList" .=) <$> _canwedaTagList,+                  ("taskStartToCloseTimeout" .=) <$>+                    _canwedaTaskStartToCloseTimeout,+                  ("lambdaRole" .=) <$> _canwedaLambdaRole,+                  ("input" .=) <$> _canwedaInput,+                  ("workflowTypeVersion" .=) <$>+                    _canwedaWorkflowTypeVersion,+                  ("executionStartToCloseTimeout" .=) <$>+                    _canwedaExecutionStartToCloseTimeout,+                  ("taskList" .=) <$> _canwedaTaskList,+                  ("taskPriority" .=) <$> _canwedaTaskPriority,+                  ("childPolicy" .=) <$> _canwedaChildPolicy])++-- | Provides the details of the @ContinueAsNewWorkflowExecutionFailed@ event.+--+--+--+-- /See:/ 'continueAsNewWorkflowExecutionFailedEventAttributes' smart constructor.+data ContinueAsNewWorkflowExecutionFailedEventAttributes = ContinueAsNewWorkflowExecutionFailedEventAttributes'+  { _canwefeaCause :: !ContinueAsNewWorkflowExecutionFailedCause+  , _canwefeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContinueAsNewWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'canwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'canwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+continueAsNewWorkflowExecutionFailedEventAttributes+    :: ContinueAsNewWorkflowExecutionFailedCause -- ^ 'canwefeaCause'+    -> Integer -- ^ 'canwefeaDecisionTaskCompletedEventId'+    -> ContinueAsNewWorkflowExecutionFailedEventAttributes+continueAsNewWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =+  ContinueAsNewWorkflowExecutionFailedEventAttributes'+  { _canwefeaCause = pCause_+  , _canwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+canwefeaCause :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes ContinueAsNewWorkflowExecutionFailedCause+canwefeaCause = lens _canwefeaCause (\ s a -> s{_canwefeaCause = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+canwefeaDecisionTaskCompletedEventId :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes Integer+canwefeaDecisionTaskCompletedEventId = lens _canwefeaDecisionTaskCompletedEventId (\ s a -> s{_canwefeaDecisionTaskCompletedEventId = a});++instance FromJSON+           ContinueAsNewWorkflowExecutionFailedEventAttributes+         where+        parseJSON+          = withObject+              "ContinueAsNewWorkflowExecutionFailedEventAttributes"+              (\ x ->+                 ContinueAsNewWorkflowExecutionFailedEventAttributes'+                   <$>+                   (x .: "cause") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable+           ContinueAsNewWorkflowExecutionFailedEventAttributes+         where++instance NFData+           ContinueAsNewWorkflowExecutionFailedEventAttributes+         where++-- | Specifies a decision made by the decider. A decision can be one of these types:+--+--+--     * @CancelTimer@ – Cancels a previously started timer and records a @TimerCanceled@ event in the history.+--+--     * @CancelWorkflowExecution@ – Closes the workflow execution and records a @WorkflowExecutionCanceled@ event in the history.+--+--     * @CompleteWorkflowExecution@ – Closes the workflow execution and records a @WorkflowExecutionCompleted@ event in the history .+--+--     * @ContinueAsNewWorkflowExecution@ – Closes the workflow execution and starts a new workflow execution of the same type using the same workflow ID and a unique run Id. A @WorkflowExecutionContinuedAsNew@ event is recorded in the history.+--+--     * @FailWorkflowExecution@ – Closes the workflow execution and records a @WorkflowExecutionFailed@ event in the history.+--+--     * @RecordMarker@ – Records a @MarkerRecorded@ event in the history. Markers can be used for adding custom information in the history for instance to let deciders know that they don't need to look at the history beyond the marker event.+--+--     * @RequestCancelActivityTask@ – Attempts to cancel a previously scheduled activity task. If the activity task was scheduled but has not been assigned to a worker, then it is canceled. If the activity task was already assigned to a worker, then the worker is informed that cancellation has been requested in the response to 'RecordActivityTaskHeartbeat' .+--+--     * @RequestCancelExternalWorkflowExecution@ – Requests that a request be made to cancel the specified external workflow execution and records a @RequestCancelExternalWorkflowExecutionInitiated@ event in the history.+--+--     * @ScheduleActivityTask@ – Schedules an activity task.+--+--     * @SignalExternalWorkflowExecution@ – Requests a signal to be delivered to the specified external workflow execution and records a @SignalExternalWorkflowExecutionInitiated@ event in the history.+--+--     * @StartChildWorkflowExecution@ – Requests that a child workflow execution be started and records a @StartChildWorkflowExecutionInitiated@ event in the history. The child workflow execution is a separate workflow execution with its own history.+--+--     * @StartTimer@ – Starts a timer for this workflow execution and records a @TimerStarted@ event in the history. This timer fires after the specified delay and record a @TimerFired@ event.+--+--+--+-- __Access Control__+--+-- If you grant permission to use @RespondDecisionTaskCompleted@ , you can use IAM policies to express permissions for the list of decisions returned by this action as if they were members of the API. Treating decisions as a pseudo API maintains a uniform conceptual model and helps keep policies readable. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+-- __Decision Failure__+--+-- Decisions can fail for several reasons+--+--     * The ordering of decisions should follow a logical flow. Some decisions might not make sense in the current context of the workflow execution and therefore fails.+--+--     * A limit on your account was reached.+--+--     * The decision lacks sufficient permissions.+--+--+--+-- One of the following events might be added to the history to indicate an error. The event attribute's @cause@ parameter indicates the cause. If @cause@ is set to @OPERATION_NOT_PERMITTED@ , the decision failed because it lacked sufficient permissions. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--     * @ScheduleActivityTaskFailed@ – A @ScheduleActivityTask@ decision failed. This could happen if the activity type specified in the decision isn't registered, is in a deprecated state, or the decision isn't properly configured.+--+--     * @RequestCancelActivityTaskFailed@ – A @RequestCancelActivityTask@ decision failed. This could happen if there is no open activity task with the specified activityId.+--+--     * @StartTimerFailed@ – A @StartTimer@ decision failed. This could happen if there is another open timer with the same timerId.+--+--     * @CancelTimerFailed@ – A @CancelTimer@ decision failed. This could happen if there is no open timer with the specified timerId.+--+--     * @StartChildWorkflowExecutionFailed@ – A @StartChildWorkflowExecution@ decision failed. This could happen if the workflow type specified isn't registered, is deprecated, or the decision isn't properly configured.+--+--     * @SignalExternalWorkflowExecutionFailed@ – A @SignalExternalWorkflowExecution@ decision failed. This could happen if the @workflowID@ specified in the decision was incorrect.+--+--     * @RequestCancelExternalWorkflowExecutionFailed@ – A @RequestCancelExternalWorkflowExecution@ decision failed. This could happen if the @workflowID@ specified in the decision was incorrect.+--+--     * @CancelWorkflowExecutionFailed@ – A @CancelWorkflowExecution@ decision failed. This could happen if there is an unhandled decision task pending in the workflow execution.+--+--     * @CompleteWorkflowExecutionFailed@ – A @CompleteWorkflowExecution@ decision failed. This could happen if there is an unhandled decision task pending in the workflow execution.+--+--     * @ContinueAsNewWorkflowExecutionFailed@ – A @ContinueAsNewWorkflowExecution@ decision failed. This could happen if there is an unhandled decision task pending in the workflow execution or the ContinueAsNewWorkflowExecution decision was not configured correctly.+--+--     * @FailWorkflowExecutionFailed@ – A @FailWorkflowExecution@ decision failed. This could happen if there is an unhandled decision task pending in the workflow execution.+--+--+--+-- The preceding error events might occur due to an error in the decider logic, which might put the workflow execution in an unstable state The cause field in the event structure for the error event indicates the cause of the error.+--+-- __How to Code a Decision__+--+-- You code a decision by first setting the decision type field to one of the above decision values, and then set the corresponding attributes field shown below:+--+--     * @'ScheduleActivityTaskDecisionAttributes' @+--+--     * @'RequestCancelActivityTaskDecisionAttributes' @+--+--     * @'CompleteWorkflowExecutionDecisionAttributes' @+--+--     * @'FailWorkflowExecutionDecisionAttributes' @+--+--     * @'CancelWorkflowExecutionDecisionAttributes' @+--+--     * @'ContinueAsNewWorkflowExecutionDecisionAttributes' @+--+--     * @'RecordMarkerDecisionAttributes' @+--+--     * @'StartTimerDecisionAttributes' @+--+--     * @'CancelTimerDecisionAttributes' @+--+--     * @'SignalExternalWorkflowExecutionDecisionAttributes' @+--+--     * @'RequestCancelExternalWorkflowExecutionDecisionAttributes' @+--+--     * @'StartChildWorkflowExecutionDecisionAttributes' @+--+--+--+--+-- /See:/ 'decision' smart constructor.+data Decision = Decision'+  { _dRequestCancelExternalWorkflowExecutionDecisionAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes)+  , _dScheduleActivityTaskDecisionAttributes :: !(Maybe ScheduleActivityTaskDecisionAttributes)+  , _dSignalExternalWorkflowExecutionDecisionAttributes :: !(Maybe SignalExternalWorkflowExecutionDecisionAttributes)+  , _dStartTimerDecisionAttributes :: !(Maybe StartTimerDecisionAttributes)+  , _dRecordMarkerDecisionAttributes :: !(Maybe RecordMarkerDecisionAttributes)+  , _dFailWorkflowExecutionDecisionAttributes :: !(Maybe FailWorkflowExecutionDecisionAttributes)+  , _dStartChildWorkflowExecutionDecisionAttributes :: !(Maybe StartChildWorkflowExecutionDecisionAttributes)+  , _dCompleteWorkflowExecutionDecisionAttributes :: !(Maybe CompleteWorkflowExecutionDecisionAttributes)+  , _dScheduleLambdaFunctionDecisionAttributes :: !(Maybe ScheduleLambdaFunctionDecisionAttributes)+  , _dRequestCancelActivityTaskDecisionAttributes :: !(Maybe RequestCancelActivityTaskDecisionAttributes)+  , _dCancelWorkflowExecutionDecisionAttributes :: !(Maybe CancelWorkflowExecutionDecisionAttributes)+  , _dCancelTimerDecisionAttributes :: !(Maybe CancelTimerDecisionAttributes)+  , _dContinueAsNewWorkflowExecutionDecisionAttributes :: !(Maybe ContinueAsNewWorkflowExecutionDecisionAttributes)+  , _dDecisionType :: !DecisionType+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Decision' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dRequestCancelExternalWorkflowExecutionDecisionAttributes' - Provides the details of the @RequestCancelExternalWorkflowExecution@ decision. It isn't set for other decision types.+--+-- * 'dScheduleActivityTaskDecisionAttributes' - Provides the details of the @ScheduleActivityTask@ decision. It isn't set for other decision types.+--+-- * 'dSignalExternalWorkflowExecutionDecisionAttributes' - Provides the details of the @SignalExternalWorkflowExecution@ decision. It isn't set for other decision types.+--+-- * 'dStartTimerDecisionAttributes' - Provides the details of the @StartTimer@ decision. It isn't set for other decision types.+--+-- * 'dRecordMarkerDecisionAttributes' - Provides the details of the @RecordMarker@ decision. It isn't set for other decision types.+--+-- * 'dFailWorkflowExecutionDecisionAttributes' - Provides the details of the @FailWorkflowExecution@ decision. It isn't set for other decision types.+--+-- * 'dStartChildWorkflowExecutionDecisionAttributes' - Provides the details of the @StartChildWorkflowExecution@ decision. It isn't set for other decision types.+--+-- * 'dCompleteWorkflowExecutionDecisionAttributes' - Provides the details of the @CompleteWorkflowExecution@ decision. It isn't set for other decision types.+--+-- * 'dScheduleLambdaFunctionDecisionAttributes' - Provides the details of the @ScheduleLambdaFunction@ decision. It isn't set for other decision types.+--+-- * 'dRequestCancelActivityTaskDecisionAttributes' - Provides the details of the @RequestCancelActivityTask@ decision. It isn't set for other decision types.+--+-- * 'dCancelWorkflowExecutionDecisionAttributes' - Provides the details of the @CancelWorkflowExecution@ decision. It isn't set for other decision types.+--+-- * 'dCancelTimerDecisionAttributes' - Provides the details of the @CancelTimer@ decision. It isn't set for other decision types.+--+-- * 'dContinueAsNewWorkflowExecutionDecisionAttributes' - Provides the details of the @ContinueAsNewWorkflowExecution@ decision. It isn't set for other decision types.+--+-- * 'dDecisionType' - Specifies the type of the decision.+decision+    :: DecisionType -- ^ 'dDecisionType'+    -> Decision+decision pDecisionType_ =+  Decision'+  { _dRequestCancelExternalWorkflowExecutionDecisionAttributes = Nothing+  , _dScheduleActivityTaskDecisionAttributes = Nothing+  , _dSignalExternalWorkflowExecutionDecisionAttributes = Nothing+  , _dStartTimerDecisionAttributes = Nothing+  , _dRecordMarkerDecisionAttributes = Nothing+  , _dFailWorkflowExecutionDecisionAttributes = Nothing+  , _dStartChildWorkflowExecutionDecisionAttributes = Nothing+  , _dCompleteWorkflowExecutionDecisionAttributes = Nothing+  , _dScheduleLambdaFunctionDecisionAttributes = Nothing+  , _dRequestCancelActivityTaskDecisionAttributes = Nothing+  , _dCancelWorkflowExecutionDecisionAttributes = Nothing+  , _dCancelTimerDecisionAttributes = Nothing+  , _dContinueAsNewWorkflowExecutionDecisionAttributes = Nothing+  , _dDecisionType = pDecisionType_+  }+++-- | Provides the details of the @RequestCancelExternalWorkflowExecution@ decision. It isn't set for other decision types.+dRequestCancelExternalWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes)+dRequestCancelExternalWorkflowExecutionDecisionAttributes = lens _dRequestCancelExternalWorkflowExecutionDecisionAttributes (\ s a -> s{_dRequestCancelExternalWorkflowExecutionDecisionAttributes = a});++-- | Provides the details of the @ScheduleActivityTask@ decision. It isn't set for other decision types.+dScheduleActivityTaskDecisionAttributes :: Lens' Decision (Maybe ScheduleActivityTaskDecisionAttributes)+dScheduleActivityTaskDecisionAttributes = lens _dScheduleActivityTaskDecisionAttributes (\ s a -> s{_dScheduleActivityTaskDecisionAttributes = a});++-- | Provides the details of the @SignalExternalWorkflowExecution@ decision. It isn't set for other decision types.+dSignalExternalWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe SignalExternalWorkflowExecutionDecisionAttributes)+dSignalExternalWorkflowExecutionDecisionAttributes = lens _dSignalExternalWorkflowExecutionDecisionAttributes (\ s a -> s{_dSignalExternalWorkflowExecutionDecisionAttributes = a});++-- | Provides the details of the @StartTimer@ decision. It isn't set for other decision types.+dStartTimerDecisionAttributes :: Lens' Decision (Maybe StartTimerDecisionAttributes)+dStartTimerDecisionAttributes = lens _dStartTimerDecisionAttributes (\ s a -> s{_dStartTimerDecisionAttributes = a});++-- | Provides the details of the @RecordMarker@ decision. It isn't set for other decision types.+dRecordMarkerDecisionAttributes :: Lens' Decision (Maybe RecordMarkerDecisionAttributes)+dRecordMarkerDecisionAttributes = lens _dRecordMarkerDecisionAttributes (\ s a -> s{_dRecordMarkerDecisionAttributes = a});++-- | Provides the details of the @FailWorkflowExecution@ decision. It isn't set for other decision types.+dFailWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe FailWorkflowExecutionDecisionAttributes)+dFailWorkflowExecutionDecisionAttributes = lens _dFailWorkflowExecutionDecisionAttributes (\ s a -> s{_dFailWorkflowExecutionDecisionAttributes = a});++-- | Provides the details of the @StartChildWorkflowExecution@ decision. It isn't set for other decision types.+dStartChildWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe StartChildWorkflowExecutionDecisionAttributes)+dStartChildWorkflowExecutionDecisionAttributes = lens _dStartChildWorkflowExecutionDecisionAttributes (\ s a -> s{_dStartChildWorkflowExecutionDecisionAttributes = a});++-- | Provides the details of the @CompleteWorkflowExecution@ decision. It isn't set for other decision types.+dCompleteWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe CompleteWorkflowExecutionDecisionAttributes)+dCompleteWorkflowExecutionDecisionAttributes = lens _dCompleteWorkflowExecutionDecisionAttributes (\ s a -> s{_dCompleteWorkflowExecutionDecisionAttributes = a});++-- | Provides the details of the @ScheduleLambdaFunction@ decision. It isn't set for other decision types.+dScheduleLambdaFunctionDecisionAttributes :: Lens' Decision (Maybe ScheduleLambdaFunctionDecisionAttributes)+dScheduleLambdaFunctionDecisionAttributes = lens _dScheduleLambdaFunctionDecisionAttributes (\ s a -> s{_dScheduleLambdaFunctionDecisionAttributes = a});++-- | Provides the details of the @RequestCancelActivityTask@ decision. It isn't set for other decision types.+dRequestCancelActivityTaskDecisionAttributes :: Lens' Decision (Maybe RequestCancelActivityTaskDecisionAttributes)+dRequestCancelActivityTaskDecisionAttributes = lens _dRequestCancelActivityTaskDecisionAttributes (\ s a -> s{_dRequestCancelActivityTaskDecisionAttributes = a});++-- | Provides the details of the @CancelWorkflowExecution@ decision. It isn't set for other decision types.+dCancelWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe CancelWorkflowExecutionDecisionAttributes)+dCancelWorkflowExecutionDecisionAttributes = lens _dCancelWorkflowExecutionDecisionAttributes (\ s a -> s{_dCancelWorkflowExecutionDecisionAttributes = a});++-- | Provides the details of the @CancelTimer@ decision. It isn't set for other decision types.+dCancelTimerDecisionAttributes :: Lens' Decision (Maybe CancelTimerDecisionAttributes)+dCancelTimerDecisionAttributes = lens _dCancelTimerDecisionAttributes (\ s a -> s{_dCancelTimerDecisionAttributes = a});++-- | Provides the details of the @ContinueAsNewWorkflowExecution@ decision. It isn't set for other decision types.+dContinueAsNewWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe ContinueAsNewWorkflowExecutionDecisionAttributes)+dContinueAsNewWorkflowExecutionDecisionAttributes = lens _dContinueAsNewWorkflowExecutionDecisionAttributes (\ s a -> s{_dContinueAsNewWorkflowExecutionDecisionAttributes = a});++-- | Specifies the type of the decision.+dDecisionType :: Lens' Decision DecisionType+dDecisionType = lens _dDecisionType (\ s a -> s{_dDecisionType = a});++instance Hashable Decision where++instance NFData Decision where++instance ToJSON Decision where+        toJSON Decision'{..}+          = object+              (catMaybes+                 [("requestCancelExternalWorkflowExecutionDecisionAttributes"+                     .=)+                    <$>+                    _dRequestCancelExternalWorkflowExecutionDecisionAttributes,+                  ("scheduleActivityTaskDecisionAttributes" .=) <$>+                    _dScheduleActivityTaskDecisionAttributes,+                  ("signalExternalWorkflowExecutionDecisionAttributes"+                     .=)+                    <$>+                    _dSignalExternalWorkflowExecutionDecisionAttributes,+                  ("startTimerDecisionAttributes" .=) <$>+                    _dStartTimerDecisionAttributes,+                  ("recordMarkerDecisionAttributes" .=) <$>+                    _dRecordMarkerDecisionAttributes,+                  ("failWorkflowExecutionDecisionAttributes" .=) <$>+                    _dFailWorkflowExecutionDecisionAttributes,+                  ("startChildWorkflowExecutionDecisionAttributes" .=)+                    <$> _dStartChildWorkflowExecutionDecisionAttributes,+                  ("completeWorkflowExecutionDecisionAttributes" .=)+                    <$> _dCompleteWorkflowExecutionDecisionAttributes,+                  ("scheduleLambdaFunctionDecisionAttributes" .=) <$>+                    _dScheduleLambdaFunctionDecisionAttributes,+                  ("requestCancelActivityTaskDecisionAttributes" .=)+                    <$> _dRequestCancelActivityTaskDecisionAttributes,+                  ("cancelWorkflowExecutionDecisionAttributes" .=) <$>+                    _dCancelWorkflowExecutionDecisionAttributes,+                  ("cancelTimerDecisionAttributes" .=) <$>+                    _dCancelTimerDecisionAttributes,+                  ("continueAsNewWorkflowExecutionDecisionAttributes"+                     .=)+                    <$>+                    _dContinueAsNewWorkflowExecutionDecisionAttributes,+                  Just ("decisionType" .= _dDecisionType)])++-- | Provides the details of the @DecisionTaskCompleted@ event.+--+--+--+-- /See:/ 'decisionTaskCompletedEventAttributes' smart constructor.+data DecisionTaskCompletedEventAttributes = DecisionTaskCompletedEventAttributes'+  { _dtceaExecutionContext :: !(Maybe Text)+  , _dtceaScheduledEventId :: !Integer+  , _dtceaStartedEventId   :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DecisionTaskCompletedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtceaExecutionContext' - User defined context for the workflow execution.+--+-- * 'dtceaScheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'dtceaStartedEventId' - The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+decisionTaskCompletedEventAttributes+    :: Integer -- ^ 'dtceaScheduledEventId'+    -> Integer -- ^ 'dtceaStartedEventId'+    -> DecisionTaskCompletedEventAttributes+decisionTaskCompletedEventAttributes pScheduledEventId_ pStartedEventId_ =+  DecisionTaskCompletedEventAttributes'+  { _dtceaExecutionContext = Nothing+  , _dtceaScheduledEventId = pScheduledEventId_+  , _dtceaStartedEventId = pStartedEventId_+  }+++-- | User defined context for the workflow execution.+dtceaExecutionContext :: Lens' DecisionTaskCompletedEventAttributes (Maybe Text)+dtceaExecutionContext = lens _dtceaExecutionContext (\ s a -> s{_dtceaExecutionContext = a});++-- | The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+dtceaScheduledEventId :: Lens' DecisionTaskCompletedEventAttributes Integer+dtceaScheduledEventId = lens _dtceaScheduledEventId (\ s a -> s{_dtceaScheduledEventId = a});++-- | The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+dtceaStartedEventId :: Lens' DecisionTaskCompletedEventAttributes Integer+dtceaStartedEventId = lens _dtceaStartedEventId (\ s a -> s{_dtceaStartedEventId = a});++instance FromJSON+           DecisionTaskCompletedEventAttributes+         where+        parseJSON+          = withObject "DecisionTaskCompletedEventAttributes"+              (\ x ->+                 DecisionTaskCompletedEventAttributes' <$>+                   (x .:? "executionContext") <*>+                     (x .: "scheduledEventId")+                     <*> (x .: "startedEventId"))++instance Hashable+           DecisionTaskCompletedEventAttributes+         where++instance NFData DecisionTaskCompletedEventAttributes+         where++-- | Provides details about the @DecisionTaskScheduled@ event.+--+--+--+-- /See:/ 'decisionTaskScheduledEventAttributes' smart constructor.+data DecisionTaskScheduledEventAttributes = DecisionTaskScheduledEventAttributes'+  { _dtseaTaskPriority        :: !(Maybe Text)+  , _dtseaStartToCloseTimeout :: !(Maybe Text)+  , _dtseaTaskList            :: !TaskList+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DecisionTaskScheduledEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtseaTaskPriority' - A task priority that, if set, specifies the priority for this decision task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+--+-- * 'dtseaStartToCloseTimeout' - The maximum duration for this decision task. The task is considered timed out if it doesn't completed within this duration. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'dtseaTaskList' - The name of the task list in which the decision task was scheduled.+decisionTaskScheduledEventAttributes+    :: TaskList -- ^ 'dtseaTaskList'+    -> DecisionTaskScheduledEventAttributes+decisionTaskScheduledEventAttributes pTaskList_ =+  DecisionTaskScheduledEventAttributes'+  { _dtseaTaskPriority = Nothing+  , _dtseaStartToCloseTimeout = Nothing+  , _dtseaTaskList = pTaskList_+  }+++-- | A task priority that, if set, specifies the priority for this decision task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+dtseaTaskPriority :: Lens' DecisionTaskScheduledEventAttributes (Maybe Text)+dtseaTaskPriority = lens _dtseaTaskPriority (\ s a -> s{_dtseaTaskPriority = a});++-- | The maximum duration for this decision task. The task is considered timed out if it doesn't completed within this duration. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+dtseaStartToCloseTimeout :: Lens' DecisionTaskScheduledEventAttributes (Maybe Text)+dtseaStartToCloseTimeout = lens _dtseaStartToCloseTimeout (\ s a -> s{_dtseaStartToCloseTimeout = a});++-- | The name of the task list in which the decision task was scheduled.+dtseaTaskList :: Lens' DecisionTaskScheduledEventAttributes TaskList+dtseaTaskList = lens _dtseaTaskList (\ s a -> s{_dtseaTaskList = a});++instance FromJSON+           DecisionTaskScheduledEventAttributes+         where+        parseJSON+          = withObject "DecisionTaskScheduledEventAttributes"+              (\ x ->+                 DecisionTaskScheduledEventAttributes' <$>+                   (x .:? "taskPriority") <*>+                     (x .:? "startToCloseTimeout")+                     <*> (x .: "taskList"))++instance Hashable+           DecisionTaskScheduledEventAttributes+         where++instance NFData DecisionTaskScheduledEventAttributes+         where++-- | Provides the details of the @DecisionTaskStarted@ event.+--+--+--+-- /See:/ 'decisionTaskStartedEventAttributes' smart constructor.+data DecisionTaskStartedEventAttributes = DecisionTaskStartedEventAttributes'+  { _dtseaIdentity         :: !(Maybe Text)+  , _dtseaScheduledEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DecisionTaskStartedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtseaIdentity' - Identity of the decider making the request. This enables diagnostic tracing when problems arise. The form of this identity is user defined.+--+-- * 'dtseaScheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+decisionTaskStartedEventAttributes+    :: Integer -- ^ 'dtseaScheduledEventId'+    -> DecisionTaskStartedEventAttributes+decisionTaskStartedEventAttributes pScheduledEventId_ =+  DecisionTaskStartedEventAttributes'+  {_dtseaIdentity = Nothing, _dtseaScheduledEventId = pScheduledEventId_}+++-- | Identity of the decider making the request. This enables diagnostic tracing when problems arise. The form of this identity is user defined.+dtseaIdentity :: Lens' DecisionTaskStartedEventAttributes (Maybe Text)+dtseaIdentity = lens _dtseaIdentity (\ s a -> s{_dtseaIdentity = a});++-- | The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+dtseaScheduledEventId :: Lens' DecisionTaskStartedEventAttributes Integer+dtseaScheduledEventId = lens _dtseaScheduledEventId (\ s a -> s{_dtseaScheduledEventId = a});++instance FromJSON DecisionTaskStartedEventAttributes+         where+        parseJSON+          = withObject "DecisionTaskStartedEventAttributes"+              (\ x ->+                 DecisionTaskStartedEventAttributes' <$>+                   (x .:? "identity") <*> (x .: "scheduledEventId"))++instance Hashable DecisionTaskStartedEventAttributes+         where++instance NFData DecisionTaskStartedEventAttributes+         where++-- | Provides the details of the @DecisionTaskTimedOut@ event.+--+--+--+-- /See:/ 'decisionTaskTimedOutEventAttributes' smart constructor.+data DecisionTaskTimedOutEventAttributes = DecisionTaskTimedOutEventAttributes'+  { _dttoeaTimeoutType      :: !DecisionTaskTimeoutType+  , _dttoeaScheduledEventId :: !Integer+  , _dttoeaStartedEventId   :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DecisionTaskTimedOutEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dttoeaTimeoutType' - The type of timeout that expired before the decision task could be completed.+--+-- * 'dttoeaScheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'dttoeaStartedEventId' - The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+decisionTaskTimedOutEventAttributes+    :: DecisionTaskTimeoutType -- ^ 'dttoeaTimeoutType'+    -> Integer -- ^ 'dttoeaScheduledEventId'+    -> Integer -- ^ 'dttoeaStartedEventId'+    -> DecisionTaskTimedOutEventAttributes+decisionTaskTimedOutEventAttributes pTimeoutType_ pScheduledEventId_ pStartedEventId_ =+  DecisionTaskTimedOutEventAttributes'+  { _dttoeaTimeoutType = pTimeoutType_+  , _dttoeaScheduledEventId = pScheduledEventId_+  , _dttoeaStartedEventId = pStartedEventId_+  }+++-- | The type of timeout that expired before the decision task could be completed.+dttoeaTimeoutType :: Lens' DecisionTaskTimedOutEventAttributes DecisionTaskTimeoutType+dttoeaTimeoutType = lens _dttoeaTimeoutType (\ s a -> s{_dttoeaTimeoutType = a});++-- | The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+dttoeaScheduledEventId :: Lens' DecisionTaskTimedOutEventAttributes Integer+dttoeaScheduledEventId = lens _dttoeaScheduledEventId (\ s a -> s{_dttoeaScheduledEventId = a});++-- | The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+dttoeaStartedEventId :: Lens' DecisionTaskTimedOutEventAttributes Integer+dttoeaStartedEventId = lens _dttoeaStartedEventId (\ s a -> s{_dttoeaStartedEventId = a});++instance FromJSON DecisionTaskTimedOutEventAttributes+         where+        parseJSON+          = withObject "DecisionTaskTimedOutEventAttributes"+              (\ x ->+                 DecisionTaskTimedOutEventAttributes' <$>+                   (x .: "timeoutType") <*> (x .: "scheduledEventId")+                     <*> (x .: "startedEventId"))++instance Hashable DecisionTaskTimedOutEventAttributes+         where++instance NFData DecisionTaskTimedOutEventAttributes+         where++-- | Contains the configuration settings of a domain.+--+--+--+-- /See:/ 'domainConfiguration' smart constructor.+newtype DomainConfiguration = DomainConfiguration'+  { _dcWorkflowExecutionRetentionPeriodInDays :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DomainConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcWorkflowExecutionRetentionPeriodInDays' - The retention period for workflow executions in this domain.+domainConfiguration+    :: Text -- ^ 'dcWorkflowExecutionRetentionPeriodInDays'+    -> DomainConfiguration+domainConfiguration pWorkflowExecutionRetentionPeriodInDays_ =+  DomainConfiguration'+  { _dcWorkflowExecutionRetentionPeriodInDays =+      pWorkflowExecutionRetentionPeriodInDays_+  }+++-- | The retention period for workflow executions in this domain.+dcWorkflowExecutionRetentionPeriodInDays :: Lens' DomainConfiguration Text+dcWorkflowExecutionRetentionPeriodInDays = lens _dcWorkflowExecutionRetentionPeriodInDays (\ s a -> s{_dcWorkflowExecutionRetentionPeriodInDays = a});++instance FromJSON DomainConfiguration where+        parseJSON+          = withObject "DomainConfiguration"+              (\ x ->+                 DomainConfiguration' <$>+                   (x .: "workflowExecutionRetentionPeriodInDays"))++instance Hashable DomainConfiguration where++instance NFData DomainConfiguration where++-- | Contains general information about a domain.+--+--+--+-- /See:/ 'domainInfo' smart constructor.+data DomainInfo = DomainInfo'+  { _diDescription :: !(Maybe Text)+  , _diName        :: !Text+  , _diStatus      :: !RegistrationStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DomainInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diDescription' - The description of the domain provided through 'RegisterDomain' .+--+-- * 'diName' - The name of the domain. This name is unique within the account.+--+-- * 'diStatus' - The status of the domain:     * @REGISTERED@ – The domain is properly registered and available. You can use this domain for registering types and creating new workflow executions.      * @DEPRECATED@ – The domain was deprecated using 'DeprecateDomain' , but is still in use. You should not create new workflow executions in this domain.+domainInfo+    :: Text -- ^ 'diName'+    -> RegistrationStatus -- ^ 'diStatus'+    -> DomainInfo+domainInfo pName_ pStatus_ =+  DomainInfo' {_diDescription = Nothing, _diName = pName_, _diStatus = pStatus_}+++-- | The description of the domain provided through 'RegisterDomain' .+diDescription :: Lens' DomainInfo (Maybe Text)+diDescription = lens _diDescription (\ s a -> s{_diDescription = a});++-- | The name of the domain. This name is unique within the account.+diName :: Lens' DomainInfo Text+diName = lens _diName (\ s a -> s{_diName = a});++-- | The status of the domain:     * @REGISTERED@ – The domain is properly registered and available. You can use this domain for registering types and creating new workflow executions.      * @DEPRECATED@ – The domain was deprecated using 'DeprecateDomain' , but is still in use. You should not create new workflow executions in this domain.+diStatus :: Lens' DomainInfo RegistrationStatus+diStatus = lens _diStatus (\ s a -> s{_diStatus = a});++instance FromJSON DomainInfo where+        parseJSON+          = withObject "DomainInfo"+              (\ x ->+                 DomainInfo' <$>+                   (x .:? "description") <*> (x .: "name") <*>+                     (x .: "status"))++instance Hashable DomainInfo where++instance NFData DomainInfo where++-- | Used to filter the workflow executions in visibility APIs by various time-based rules. Each parameter, if specified, defines a rule that must be satisfied by each returned query result. The parameter values are in the <https://en.wikipedia.org/wiki/Unix_time Unix Time format> . For example: @"oldestDate": 1325376070.@+--+--+--+-- /See:/ 'executionTimeFilter' smart constructor.+data ExecutionTimeFilter = ExecutionTimeFilter'+  { _etfLatestDate :: !(Maybe POSIX)+  , _etfOldestDate :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ExecutionTimeFilter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'etfLatestDate' - Specifies the latest start or close date and time to return.+--+-- * 'etfOldestDate' - Specifies the oldest start or close date and time to return.+executionTimeFilter+    :: UTCTime -- ^ 'etfOldestDate'+    -> ExecutionTimeFilter+executionTimeFilter pOldestDate_ =+  ExecutionTimeFilter'+  {_etfLatestDate = Nothing, _etfOldestDate = _Time # pOldestDate_}+++-- | Specifies the latest start or close date and time to return.+etfLatestDate :: Lens' ExecutionTimeFilter (Maybe UTCTime)+etfLatestDate = lens _etfLatestDate (\ s a -> s{_etfLatestDate = a}) . mapping _Time;++-- | Specifies the oldest start or close date and time to return.+etfOldestDate :: Lens' ExecutionTimeFilter UTCTime+etfOldestDate = lens _etfOldestDate (\ s a -> s{_etfOldestDate = a}) . _Time;++instance Hashable ExecutionTimeFilter where++instance NFData ExecutionTimeFilter where++instance ToJSON ExecutionTimeFilter where+        toJSON ExecutionTimeFilter'{..}+          = object+              (catMaybes+                 [("latestDate" .=) <$> _etfLatestDate,+                  Just ("oldestDate" .= _etfOldestDate)])++-- | Provides the details of the @ExternalWorkflowExecutionCancelRequested@ event.+--+--+--+-- /See:/ 'externalWorkflowExecutionCancelRequestedEventAttributes' smart constructor.+data ExternalWorkflowExecutionCancelRequestedEventAttributes = ExternalWorkflowExecutionCancelRequestedEventAttributes'+  { _ewecreaWorkflowExecution :: !WorkflowExecution+  , _ewecreaInitiatedEventId  :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ExternalWorkflowExecutionCancelRequestedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ewecreaWorkflowExecution' - The external workflow execution to which the cancellation request was delivered.+--+-- * 'ewecreaInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+externalWorkflowExecutionCancelRequestedEventAttributes+    :: WorkflowExecution -- ^ 'ewecreaWorkflowExecution'+    -> Integer -- ^ 'ewecreaInitiatedEventId'+    -> ExternalWorkflowExecutionCancelRequestedEventAttributes+externalWorkflowExecutionCancelRequestedEventAttributes pWorkflowExecution_ pInitiatedEventId_ =+  ExternalWorkflowExecutionCancelRequestedEventAttributes'+  { _ewecreaWorkflowExecution = pWorkflowExecution_+  , _ewecreaInitiatedEventId = pInitiatedEventId_+  }+++-- | The external workflow execution to which the cancellation request was delivered.+ewecreaWorkflowExecution :: Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes WorkflowExecution+ewecreaWorkflowExecution = lens _ewecreaWorkflowExecution (\ s a -> s{_ewecreaWorkflowExecution = a});++-- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+ewecreaInitiatedEventId :: Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes Integer+ewecreaInitiatedEventId = lens _ewecreaInitiatedEventId (\ s a -> s{_ewecreaInitiatedEventId = a});++instance FromJSON+           ExternalWorkflowExecutionCancelRequestedEventAttributes+         where+        parseJSON+          = withObject+              "ExternalWorkflowExecutionCancelRequestedEventAttributes"+              (\ x ->+                 ExternalWorkflowExecutionCancelRequestedEventAttributes'+                   <$>+                   (x .: "workflowExecution") <*>+                     (x .: "initiatedEventId"))++instance Hashable+           ExternalWorkflowExecutionCancelRequestedEventAttributes+         where++instance NFData+           ExternalWorkflowExecutionCancelRequestedEventAttributes+         where++-- | Provides the details of the @ExternalWorkflowExecutionSignaled@ event.+--+--+--+-- /See:/ 'externalWorkflowExecutionSignaledEventAttributes' smart constructor.+data ExternalWorkflowExecutionSignaledEventAttributes = ExternalWorkflowExecutionSignaledEventAttributes'+  { _eweseaWorkflowExecution :: !WorkflowExecution+  , _eweseaInitiatedEventId  :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ExternalWorkflowExecutionSignaledEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eweseaWorkflowExecution' - The external workflow execution that the signal was delivered to.+--+-- * 'eweseaInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+externalWorkflowExecutionSignaledEventAttributes+    :: WorkflowExecution -- ^ 'eweseaWorkflowExecution'+    -> Integer -- ^ 'eweseaInitiatedEventId'+    -> ExternalWorkflowExecutionSignaledEventAttributes+externalWorkflowExecutionSignaledEventAttributes pWorkflowExecution_ pInitiatedEventId_ =+  ExternalWorkflowExecutionSignaledEventAttributes'+  { _eweseaWorkflowExecution = pWorkflowExecution_+  , _eweseaInitiatedEventId = pInitiatedEventId_+  }+++-- | The external workflow execution that the signal was delivered to.+eweseaWorkflowExecution :: Lens' ExternalWorkflowExecutionSignaledEventAttributes WorkflowExecution+eweseaWorkflowExecution = lens _eweseaWorkflowExecution (\ s a -> s{_eweseaWorkflowExecution = a});++-- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+eweseaInitiatedEventId :: Lens' ExternalWorkflowExecutionSignaledEventAttributes Integer+eweseaInitiatedEventId = lens _eweseaInitiatedEventId (\ s a -> s{_eweseaInitiatedEventId = a});++instance FromJSON+           ExternalWorkflowExecutionSignaledEventAttributes+         where+        parseJSON+          = withObject+              "ExternalWorkflowExecutionSignaledEventAttributes"+              (\ x ->+                 ExternalWorkflowExecutionSignaledEventAttributes' <$>+                   (x .: "workflowExecution") <*>+                     (x .: "initiatedEventId"))++instance Hashable+           ExternalWorkflowExecutionSignaledEventAttributes+         where++instance NFData+           ExternalWorkflowExecutionSignaledEventAttributes+         where++-- | Provides the details of the @FailWorkflowExecution@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'failWorkflowExecutionDecisionAttributes' smart constructor.+data FailWorkflowExecutionDecisionAttributes = FailWorkflowExecutionDecisionAttributes'+  { _fwedaReason  :: !(Maybe Text)+  , _fwedaDetails :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FailWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fwedaReason' - A descriptive reason for the failure that may help in diagnostics.+--+-- * 'fwedaDetails' - Details of the failure.+failWorkflowExecutionDecisionAttributes+    :: FailWorkflowExecutionDecisionAttributes+failWorkflowExecutionDecisionAttributes =+  FailWorkflowExecutionDecisionAttributes'+  {_fwedaReason = Nothing, _fwedaDetails = Nothing}+++-- | A descriptive reason for the failure that may help in diagnostics.+fwedaReason :: Lens' FailWorkflowExecutionDecisionAttributes (Maybe Text)+fwedaReason = lens _fwedaReason (\ s a -> s{_fwedaReason = a});++-- | Details of the failure.+fwedaDetails :: Lens' FailWorkflowExecutionDecisionAttributes (Maybe Text)+fwedaDetails = lens _fwedaDetails (\ s a -> s{_fwedaDetails = a});++instance Hashable+           FailWorkflowExecutionDecisionAttributes+         where++instance NFData+           FailWorkflowExecutionDecisionAttributes+         where++instance ToJSON+           FailWorkflowExecutionDecisionAttributes+         where+        toJSON FailWorkflowExecutionDecisionAttributes'{..}+          = object+              (catMaybes+                 [("reason" .=) <$> _fwedaReason,+                  ("details" .=) <$> _fwedaDetails])++-- | Provides the details of the @FailWorkflowExecutionFailed@ event.+--+--+--+-- /See:/ 'failWorkflowExecutionFailedEventAttributes' smart constructor.+data FailWorkflowExecutionFailedEventAttributes = FailWorkflowExecutionFailedEventAttributes'+  { _fwefeaCause                        :: !FailWorkflowExecutionFailedCause+  , _fwefeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FailWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'fwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+failWorkflowExecutionFailedEventAttributes+    :: FailWorkflowExecutionFailedCause -- ^ 'fwefeaCause'+    -> Integer -- ^ 'fwefeaDecisionTaskCompletedEventId'+    -> FailWorkflowExecutionFailedEventAttributes+failWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =+  FailWorkflowExecutionFailedEventAttributes'+  { _fwefeaCause = pCause_+  , _fwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+fwefeaCause :: Lens' FailWorkflowExecutionFailedEventAttributes FailWorkflowExecutionFailedCause+fwefeaCause = lens _fwefeaCause (\ s a -> s{_fwefeaCause = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+fwefeaDecisionTaskCompletedEventId :: Lens' FailWorkflowExecutionFailedEventAttributes Integer+fwefeaDecisionTaskCompletedEventId = lens _fwefeaDecisionTaskCompletedEventId (\ s a -> s{_fwefeaDecisionTaskCompletedEventId = a});++instance FromJSON+           FailWorkflowExecutionFailedEventAttributes+         where+        parseJSON+          = withObject+              "FailWorkflowExecutionFailedEventAttributes"+              (\ x ->+                 FailWorkflowExecutionFailedEventAttributes' <$>+                   (x .: "cause") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable+           FailWorkflowExecutionFailedEventAttributes+         where++instance NFData+           FailWorkflowExecutionFailedEventAttributes+         where++-- | Event within a workflow execution. A history event can be one of these types:+--+--+--     * @ActivityTaskCancelRequested@ – A @RequestCancelActivityTask@ decision was received by the system.+--+--     * @ActivityTaskCanceled@ – The activity task was successfully canceled.+--+--     * @ActivityTaskCompleted@ – An activity worker successfully completed an activity task by calling 'RespondActivityTaskCompleted' .+--+--     * @ActivityTaskFailed@ – An activity worker failed an activity task by calling 'RespondActivityTaskFailed' .+--+--     * @ActivityTaskScheduled@ – An activity task was scheduled for execution.+--+--     * @ActivityTaskStarted@ – The scheduled activity task was dispatched to a worker.+--+--     * @ActivityTaskTimedOut@ – The activity task timed out.+--+--     * @CancelTimerFailed@ – Failed to process CancelTimer decision. This happens when the decision isn't configured properly, for example no timer exists with the specified timer Id.+--+--     * @CancelWorkflowExecutionFailed@ – A request to cancel a workflow execution failed.+--+--     * @ChildWorkflowExecutionCanceled@ – A child workflow execution, started by this workflow execution, was canceled and closed.+--+--     * @ChildWorkflowExecutionCompleted@ – A child workflow execution, started by this workflow execution, completed successfully and was closed.+--+--     * @ChildWorkflowExecutionFailed@ – A child workflow execution, started by this workflow execution, failed to complete successfully and was closed.+--+--     * @ChildWorkflowExecutionStarted@ – A child workflow execution was successfully started.+--+--     * @ChildWorkflowExecutionTerminated@ – A child workflow execution, started by this workflow execution, was terminated.+--+--     * @ChildWorkflowExecutionTimedOut@ – A child workflow execution, started by this workflow execution, timed out and was closed.+--+--     * @CompleteWorkflowExecutionFailed@ – The workflow execution failed to complete.+--+--     * @ContinueAsNewWorkflowExecutionFailed@ – The workflow execution failed to complete after being continued as a new workflow execution.+--+--     * @DecisionTaskCompleted@ – The decider successfully completed a decision task by calling 'RespondDecisionTaskCompleted' .+--+--     * @DecisionTaskScheduled@ – A decision task was scheduled for the workflow execution.+--+--     * @DecisionTaskStarted@ – The decision task was dispatched to a decider.+--+--     * @DecisionTaskTimedOut@ – The decision task timed out.+--+--     * @ExternalWorkflowExecutionCancelRequested@ – Request to cancel an external workflow execution was successfully delivered to the target execution.+--+--     * @ExternalWorkflowExecutionSignaled@ – A signal, requested by this workflow execution, was successfully delivered to the target external workflow execution.+--+--     * @FailWorkflowExecutionFailed@ – A request to mark a workflow execution as failed, itself failed.+--+--     * @MarkerRecorded@ – A marker was recorded in the workflow history as the result of a @RecordMarker@ decision.+--+--     * @RecordMarkerFailed@ – A @RecordMarker@ decision was returned as failed.+--+--     * @RequestCancelActivityTaskFailed@ – Failed to process RequestCancelActivityTask decision. This happens when the decision isn't configured properly.+--+--     * @RequestCancelExternalWorkflowExecutionFailed@ – Request to cancel an external workflow execution failed.+--+--     * @RequestCancelExternalWorkflowExecutionInitiated@ – A request was made to request the cancellation of an external workflow execution.+--+--     * @ScheduleActivityTaskFailed@ – Failed to process ScheduleActivityTask decision. This happens when the decision isn't configured properly, for example the activity type specified isn't registered.+--+--     * @SignalExternalWorkflowExecutionFailed@ – The request to signal an external workflow execution failed.+--+--     * @SignalExternalWorkflowExecutionInitiated@ – A request to signal an external workflow was made.+--+--     * @StartActivityTaskFailed@ – A scheduled activity task failed to start.+--+--     * @StartChildWorkflowExecutionFailed@ – Failed to process StartChildWorkflowExecution decision. This happens when the decision isn't configured properly, for example the workflow type specified isn't registered.+--+--     * @StartChildWorkflowExecutionInitiated@ – A request was made to start a child workflow execution.+--+--     * @StartTimerFailed@ – Failed to process StartTimer decision. This happens when the decision isn't configured properly, for example a timer already exists with the specified timer Id.+--+--     * @TimerCanceled@ – A timer, previously started for this workflow execution, was successfully canceled.+--+--     * @TimerFired@ – A timer, previously started for this workflow execution, fired.+--+--     * @TimerStarted@ – A timer was started for the workflow execution due to a @StartTimer@ decision.+--+--     * @WorkflowExecutionCancelRequested@ – A request to cancel this workflow execution was made.+--+--     * @WorkflowExecutionCanceled@ – The workflow execution was successfully canceled and closed.+--+--     * @WorkflowExecutionCompleted@ – The workflow execution was closed due to successful completion.+--+--     * @WorkflowExecutionContinuedAsNew@ – The workflow execution was closed and a new execution of the same type was created with the same workflowId.+--+--     * @WorkflowExecutionFailed@ – The workflow execution closed due to a failure.+--+--     * @WorkflowExecutionSignaled@ – An external signal was received for the workflow execution.+--+--     * @WorkflowExecutionStarted@ – The workflow execution was started.+--+--     * @WorkflowExecutionTerminated@ – The workflow execution was terminated.+--+--     * @WorkflowExecutionTimedOut@ – The workflow execution was closed because a time out was exceeded.+--+--+--+--+-- /See:/ 'historyEvent' smart constructor.+data HistoryEvent = HistoryEvent'+  { _heWorkflowExecutionCancelRequestedEventAttributes :: !(Maybe WorkflowExecutionCancelRequestedEventAttributes)+  , _heRecordMarkerFailedEventAttributes :: !(Maybe RecordMarkerFailedEventAttributes)+  , _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes)+  , _heLambdaFunctionStartedEventAttributes :: !(Maybe LambdaFunctionStartedEventAttributes)+  , _heDecisionTaskScheduledEventAttributes :: !(Maybe DecisionTaskScheduledEventAttributes)+  , _heWorkflowExecutionCompletedEventAttributes :: !(Maybe WorkflowExecutionCompletedEventAttributes)+  , _heStartTimerFailedEventAttributes :: !(Maybe StartTimerFailedEventAttributes)+  , _heActivityTaskScheduledEventAttributes :: !(Maybe ActivityTaskScheduledEventAttributes)+  , _heScheduleActivityTaskFailedEventAttributes :: !(Maybe ScheduleActivityTaskFailedEventAttributes)+  , _heChildWorkflowExecutionCompletedEventAttributes :: !(Maybe ChildWorkflowExecutionCompletedEventAttributes)+  , _heMarkerRecordedEventAttributes :: !(Maybe MarkerRecordedEventAttributes)+  , _heScheduleLambdaFunctionFailedEventAttributes :: !(Maybe ScheduleLambdaFunctionFailedEventAttributes)+  , _heCompleteWorkflowExecutionFailedEventAttributes :: !(Maybe CompleteWorkflowExecutionFailedEventAttributes)+  , _heLambdaFunctionCompletedEventAttributes :: !(Maybe LambdaFunctionCompletedEventAttributes)+  , _heRequestCancelExternalWorkflowExecutionFailedEventAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes)+  , _heTimerCanceledEventAttributes :: !(Maybe TimerCanceledEventAttributes)+  , _heWorkflowExecutionStartedEventAttributes :: !(Maybe WorkflowExecutionStartedEventAttributes)+  , _heActivityTaskCompletedEventAttributes :: !(Maybe ActivityTaskCompletedEventAttributes)+  , _heDecisionTaskTimedOutEventAttributes :: !(Maybe DecisionTaskTimedOutEventAttributes)+  , _heCancelTimerFailedEventAttributes :: !(Maybe CancelTimerFailedEventAttributes)+  , _heChildWorkflowExecutionStartedEventAttributes :: !(Maybe ChildWorkflowExecutionStartedEventAttributes)+  , _heActivityTaskCanceledEventAttributes :: !(Maybe ActivityTaskCanceledEventAttributes)+  , _heActivityTaskTimedOutEventAttributes :: !(Maybe ActivityTaskTimedOutEventAttributes)+  , _heDecisionTaskStartedEventAttributes :: !(Maybe DecisionTaskStartedEventAttributes)+  , _heWorkflowExecutionTerminatedEventAttributes :: !(Maybe WorkflowExecutionTerminatedEventAttributes)+  , _heChildWorkflowExecutionCanceledEventAttributes :: !(Maybe ChildWorkflowExecutionCanceledEventAttributes)+  , _heRequestCancelActivityTaskFailedEventAttributes :: !(Maybe RequestCancelActivityTaskFailedEventAttributes)+  , _heLambdaFunctionScheduledEventAttributes :: !(Maybe LambdaFunctionScheduledEventAttributes)+  , _heChildWorkflowExecutionTimedOutEventAttributes :: !(Maybe ChildWorkflowExecutionTimedOutEventAttributes)+  , _heCancelWorkflowExecutionFailedEventAttributes :: !(Maybe CancelWorkflowExecutionFailedEventAttributes)+  , _heStartChildWorkflowExecutionInitiatedEventAttributes :: !(Maybe StartChildWorkflowExecutionInitiatedEventAttributes)+  , _heSignalExternalWorkflowExecutionFailedEventAttributes :: !(Maybe SignalExternalWorkflowExecutionFailedEventAttributes)+  , _heActivityTaskStartedEventAttributes :: !(Maybe ActivityTaskStartedEventAttributes)+  , _heStartLambdaFunctionFailedEventAttributes :: !(Maybe StartLambdaFunctionFailedEventAttributes)+  , _heChildWorkflowExecutionTerminatedEventAttributes :: !(Maybe ChildWorkflowExecutionTerminatedEventAttributes)+  , _heLambdaFunctionFailedEventAttributes :: !(Maybe LambdaFunctionFailedEventAttributes)+  , _heWorkflowExecutionCanceledEventAttributes :: !(Maybe WorkflowExecutionCanceledEventAttributes)+  , _heTimerStartedEventAttributes :: !(Maybe TimerStartedEventAttributes)+  , _heActivityTaskCancelRequestedEventAttributes :: !(Maybe ActivityTaskCancelRequestedEventAttributes)+  , _heWorkflowExecutionTimedOutEventAttributes :: !(Maybe WorkflowExecutionTimedOutEventAttributes)+  , _heWorkflowExecutionSignaledEventAttributes :: !(Maybe WorkflowExecutionSignaledEventAttributes)+  , _heTimerFiredEventAttributes :: !(Maybe TimerFiredEventAttributes)+  , _heActivityTaskFailedEventAttributes :: !(Maybe ActivityTaskFailedEventAttributes)+  , _heExternalWorkflowExecutionSignaledEventAttributes :: !(Maybe ExternalWorkflowExecutionSignaledEventAttributes)+  , _heDecisionTaskCompletedEventAttributes :: !(Maybe DecisionTaskCompletedEventAttributes)+  , _heStartChildWorkflowExecutionFailedEventAttributes :: !(Maybe StartChildWorkflowExecutionFailedEventAttributes)+  , _heChildWorkflowExecutionFailedEventAttributes :: !(Maybe ChildWorkflowExecutionFailedEventAttributes)+  , _heFailWorkflowExecutionFailedEventAttributes :: !(Maybe FailWorkflowExecutionFailedEventAttributes)+  , _heContinueAsNewWorkflowExecutionFailedEventAttributes :: !(Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes)+  , _heSignalExternalWorkflowExecutionInitiatedEventAttributes :: !(Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes)+  , _heLambdaFunctionTimedOutEventAttributes :: !(Maybe LambdaFunctionTimedOutEventAttributes)+  , _heWorkflowExecutionFailedEventAttributes :: !(Maybe WorkflowExecutionFailedEventAttributes)+  , _heWorkflowExecutionContinuedAsNewEventAttributes :: !(Maybe WorkflowExecutionContinuedAsNewEventAttributes)+  , _heExternalWorkflowExecutionCancelRequestedEventAttributes :: !(Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes)+  , _heEventTimestamp :: !POSIX+  , _heEventType :: !EventType+  , _heEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'HistoryEvent' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'heWorkflowExecutionCancelRequestedEventAttributes' - If the event is of type @WorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heRecordMarkerFailedEventAttributes' - If the event is of type @DecisionTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes' - If the event is of type @RequestCancelExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heLambdaFunctionStartedEventAttributes' - Provides the details of the @LambdaFunctionStarted@ event. It isn't set for other event types.+--+-- * 'heDecisionTaskScheduledEventAttributes' - If the event is of type @DecisionTaskScheduled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heWorkflowExecutionCompletedEventAttributes' - If the event is of type @WorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heStartTimerFailedEventAttributes' - If the event is of type @StartTimerFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heActivityTaskScheduledEventAttributes' - If the event is of type @ActivityTaskScheduled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heScheduleActivityTaskFailedEventAttributes' - If the event is of type @ScheduleActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heChildWorkflowExecutionCompletedEventAttributes' - If the event is of type @ChildWorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heMarkerRecordedEventAttributes' - If the event is of type @MarkerRecorded@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heScheduleLambdaFunctionFailedEventAttributes' - Provides the details of the @ScheduleLambdaFunctionFailed@ event. It isn't set for other event types.+--+-- * 'heCompleteWorkflowExecutionFailedEventAttributes' - If the event is of type @CompleteWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heLambdaFunctionCompletedEventAttributes' - Provides the details of the @LambdaFunctionCompleted@ event. It isn't set for other event types.+--+-- * 'heRequestCancelExternalWorkflowExecutionFailedEventAttributes' - If the event is of type @RequestCancelExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heTimerCanceledEventAttributes' - If the event is of type @TimerCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heWorkflowExecutionStartedEventAttributes' - If the event is of type @WorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heActivityTaskCompletedEventAttributes' - If the event is of type @ActivityTaskCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heDecisionTaskTimedOutEventAttributes' - If the event is of type @DecisionTaskTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heCancelTimerFailedEventAttributes' - If the event is of type @CancelTimerFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heChildWorkflowExecutionStartedEventAttributes' - If the event is of type @ChildWorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heActivityTaskCanceledEventAttributes' - If the event is of type @ActivityTaskCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heActivityTaskTimedOutEventAttributes' - If the event is of type @ActivityTaskTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heDecisionTaskStartedEventAttributes' - If the event is of type @DecisionTaskStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heWorkflowExecutionTerminatedEventAttributes' - If the event is of type @WorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heChildWorkflowExecutionCanceledEventAttributes' - If the event is of type @ChildWorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heRequestCancelActivityTaskFailedEventAttributes' - If the event is of type @RequestCancelActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heLambdaFunctionScheduledEventAttributes' - Provides the details of the @LambdaFunctionScheduled@ event. It isn't set for other event types.+--+-- * 'heChildWorkflowExecutionTimedOutEventAttributes' - If the event is of type @ChildWorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heCancelWorkflowExecutionFailedEventAttributes' - If the event is of type @CancelWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heStartChildWorkflowExecutionInitiatedEventAttributes' - If the event is of type @StartChildWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heSignalExternalWorkflowExecutionFailedEventAttributes' - If the event is of type @SignalExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heActivityTaskStartedEventAttributes' - If the event is of type @ActivityTaskStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heStartLambdaFunctionFailedEventAttributes' - Provides the details of the @StartLambdaFunctionFailed@ event. It isn't set for other event types.+--+-- * 'heChildWorkflowExecutionTerminatedEventAttributes' - If the event is of type @ChildWorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heLambdaFunctionFailedEventAttributes' - Provides the details of the @LambdaFunctionFailed@ event. It isn't set for other event types.+--+-- * 'heWorkflowExecutionCanceledEventAttributes' - If the event is of type @WorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heTimerStartedEventAttributes' - If the event is of type @TimerStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heActivityTaskCancelRequestedEventAttributes' - If the event is of type @ActivityTaskcancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heWorkflowExecutionTimedOutEventAttributes' - If the event is of type @WorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heWorkflowExecutionSignaledEventAttributes' - If the event is of type @WorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heTimerFiredEventAttributes' - If the event is of type @TimerFired@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heActivityTaskFailedEventAttributes' - If the event is of type @ActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heExternalWorkflowExecutionSignaledEventAttributes' - If the event is of type @ExternalWorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heDecisionTaskCompletedEventAttributes' - If the event is of type @DecisionTaskCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heStartChildWorkflowExecutionFailedEventAttributes' - If the event is of type @StartChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heChildWorkflowExecutionFailedEventAttributes' - If the event is of type @ChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heFailWorkflowExecutionFailedEventAttributes' - If the event is of type @FailWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heContinueAsNewWorkflowExecutionFailedEventAttributes' - If the event is of type @ContinueAsNewWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heSignalExternalWorkflowExecutionInitiatedEventAttributes' - If the event is of type @SignalExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heLambdaFunctionTimedOutEventAttributes' - Provides the details of the @LambdaFunctionTimedOut@ event. It isn't set for other event types.+--+-- * 'heWorkflowExecutionFailedEventAttributes' - If the event is of type @WorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heWorkflowExecutionContinuedAsNewEventAttributes' - If the event is of type @WorkflowExecutionContinuedAsNew@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heExternalWorkflowExecutionCancelRequestedEventAttributes' - If the event is of type @ExternalWorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types.+--+-- * 'heEventTimestamp' - The date and time when the event occurred.+--+-- * 'heEventType' - The type of the history event.+--+-- * 'heEventId' - The system generated ID of the event. This ID uniquely identifies the event with in the workflow execution history.+historyEvent+    :: UTCTime -- ^ 'heEventTimestamp'+    -> EventType -- ^ 'heEventType'+    -> Integer -- ^ 'heEventId'+    -> HistoryEvent+historyEvent pEventTimestamp_ pEventType_ pEventId_ =+  HistoryEvent'+  { _heWorkflowExecutionCancelRequestedEventAttributes = Nothing+  , _heRecordMarkerFailedEventAttributes = Nothing+  , _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = Nothing+  , _heLambdaFunctionStartedEventAttributes = Nothing+  , _heDecisionTaskScheduledEventAttributes = Nothing+  , _heWorkflowExecutionCompletedEventAttributes = Nothing+  , _heStartTimerFailedEventAttributes = Nothing+  , _heActivityTaskScheduledEventAttributes = Nothing+  , _heScheduleActivityTaskFailedEventAttributes = Nothing+  , _heChildWorkflowExecutionCompletedEventAttributes = Nothing+  , _heMarkerRecordedEventAttributes = Nothing+  , _heScheduleLambdaFunctionFailedEventAttributes = Nothing+  , _heCompleteWorkflowExecutionFailedEventAttributes = Nothing+  , _heLambdaFunctionCompletedEventAttributes = Nothing+  , _heRequestCancelExternalWorkflowExecutionFailedEventAttributes = Nothing+  , _heTimerCanceledEventAttributes = Nothing+  , _heWorkflowExecutionStartedEventAttributes = Nothing+  , _heActivityTaskCompletedEventAttributes = Nothing+  , _heDecisionTaskTimedOutEventAttributes = Nothing+  , _heCancelTimerFailedEventAttributes = Nothing+  , _heChildWorkflowExecutionStartedEventAttributes = Nothing+  , _heActivityTaskCanceledEventAttributes = Nothing+  , _heActivityTaskTimedOutEventAttributes = Nothing+  , _heDecisionTaskStartedEventAttributes = Nothing+  , _heWorkflowExecutionTerminatedEventAttributes = Nothing+  , _heChildWorkflowExecutionCanceledEventAttributes = Nothing+  , _heRequestCancelActivityTaskFailedEventAttributes = Nothing+  , _heLambdaFunctionScheduledEventAttributes = Nothing+  , _heChildWorkflowExecutionTimedOutEventAttributes = Nothing+  , _heCancelWorkflowExecutionFailedEventAttributes = Nothing+  , _heStartChildWorkflowExecutionInitiatedEventAttributes = Nothing+  , _heSignalExternalWorkflowExecutionFailedEventAttributes = Nothing+  , _heActivityTaskStartedEventAttributes = Nothing+  , _heStartLambdaFunctionFailedEventAttributes = Nothing+  , _heChildWorkflowExecutionTerminatedEventAttributes = Nothing+  , _heLambdaFunctionFailedEventAttributes = Nothing+  , _heWorkflowExecutionCanceledEventAttributes = Nothing+  , _heTimerStartedEventAttributes = Nothing+  , _heActivityTaskCancelRequestedEventAttributes = Nothing+  , _heWorkflowExecutionTimedOutEventAttributes = Nothing+  , _heWorkflowExecutionSignaledEventAttributes = Nothing+  , _heTimerFiredEventAttributes = Nothing+  , _heActivityTaskFailedEventAttributes = Nothing+  , _heExternalWorkflowExecutionSignaledEventAttributes = Nothing+  , _heDecisionTaskCompletedEventAttributes = Nothing+  , _heStartChildWorkflowExecutionFailedEventAttributes = Nothing+  , _heChildWorkflowExecutionFailedEventAttributes = Nothing+  , _heFailWorkflowExecutionFailedEventAttributes = Nothing+  , _heContinueAsNewWorkflowExecutionFailedEventAttributes = Nothing+  , _heSignalExternalWorkflowExecutionInitiatedEventAttributes = Nothing+  , _heLambdaFunctionTimedOutEventAttributes = Nothing+  , _heWorkflowExecutionFailedEventAttributes = Nothing+  , _heWorkflowExecutionContinuedAsNewEventAttributes = Nothing+  , _heExternalWorkflowExecutionCancelRequestedEventAttributes = Nothing+  , _heEventTimestamp = _Time # pEventTimestamp_+  , _heEventType = pEventType_+  , _heEventId = pEventId_+  }+++-- | If the event is of type @WorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heWorkflowExecutionCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCancelRequestedEventAttributes)+heWorkflowExecutionCancelRequestedEventAttributes = lens _heWorkflowExecutionCancelRequestedEventAttributes (\ s a -> s{_heWorkflowExecutionCancelRequestedEventAttributes = a});++-- | If the event is of type @DecisionTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heRecordMarkerFailedEventAttributes :: Lens' HistoryEvent (Maybe RecordMarkerFailedEventAttributes)+heRecordMarkerFailedEventAttributes = lens _heRecordMarkerFailedEventAttributes (\ s a -> s{_heRecordMarkerFailedEventAttributes = a});++-- | If the event is of type @RequestCancelExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes)+heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = lens _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = a});++-- | Provides the details of the @LambdaFunctionStarted@ event. It isn't set for other event types.+heLambdaFunctionStartedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionStartedEventAttributes)+heLambdaFunctionStartedEventAttributes = lens _heLambdaFunctionStartedEventAttributes (\ s a -> s{_heLambdaFunctionStartedEventAttributes = a});++-- | If the event is of type @DecisionTaskScheduled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heDecisionTaskScheduledEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskScheduledEventAttributes)+heDecisionTaskScheduledEventAttributes = lens _heDecisionTaskScheduledEventAttributes (\ s a -> s{_heDecisionTaskScheduledEventAttributes = a});++-- | If the event is of type @WorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heWorkflowExecutionCompletedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCompletedEventAttributes)+heWorkflowExecutionCompletedEventAttributes = lens _heWorkflowExecutionCompletedEventAttributes (\ s a -> s{_heWorkflowExecutionCompletedEventAttributes = a});++-- | If the event is of type @StartTimerFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heStartTimerFailedEventAttributes :: Lens' HistoryEvent (Maybe StartTimerFailedEventAttributes)+heStartTimerFailedEventAttributes = lens _heStartTimerFailedEventAttributes (\ s a -> s{_heStartTimerFailedEventAttributes = a});++-- | If the event is of type @ActivityTaskScheduled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heActivityTaskScheduledEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskScheduledEventAttributes)+heActivityTaskScheduledEventAttributes = lens _heActivityTaskScheduledEventAttributes (\ s a -> s{_heActivityTaskScheduledEventAttributes = a});++-- | If the event is of type @ScheduleActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heScheduleActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe ScheduleActivityTaskFailedEventAttributes)+heScheduleActivityTaskFailedEventAttributes = lens _heScheduleActivityTaskFailedEventAttributes (\ s a -> s{_heScheduleActivityTaskFailedEventAttributes = a});++-- | If the event is of type @ChildWorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heChildWorkflowExecutionCompletedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionCompletedEventAttributes)+heChildWorkflowExecutionCompletedEventAttributes = lens _heChildWorkflowExecutionCompletedEventAttributes (\ s a -> s{_heChildWorkflowExecutionCompletedEventAttributes = a});++-- | If the event is of type @MarkerRecorded@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heMarkerRecordedEventAttributes :: Lens' HistoryEvent (Maybe MarkerRecordedEventAttributes)+heMarkerRecordedEventAttributes = lens _heMarkerRecordedEventAttributes (\ s a -> s{_heMarkerRecordedEventAttributes = a});++-- | Provides the details of the @ScheduleLambdaFunctionFailed@ event. It isn't set for other event types.+heScheduleLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe ScheduleLambdaFunctionFailedEventAttributes)+heScheduleLambdaFunctionFailedEventAttributes = lens _heScheduleLambdaFunctionFailedEventAttributes (\ s a -> s{_heScheduleLambdaFunctionFailedEventAttributes = a});++-- | If the event is of type @CompleteWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heCompleteWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe CompleteWorkflowExecutionFailedEventAttributes)+heCompleteWorkflowExecutionFailedEventAttributes = lens _heCompleteWorkflowExecutionFailedEventAttributes (\ s a -> s{_heCompleteWorkflowExecutionFailedEventAttributes = a});++-- | Provides the details of the @LambdaFunctionCompleted@ event. It isn't set for other event types.+heLambdaFunctionCompletedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionCompletedEventAttributes)+heLambdaFunctionCompletedEventAttributes = lens _heLambdaFunctionCompletedEventAttributes (\ s a -> s{_heLambdaFunctionCompletedEventAttributes = a});++-- | If the event is of type @RequestCancelExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heRequestCancelExternalWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes)+heRequestCancelExternalWorkflowExecutionFailedEventAttributes = lens _heRequestCancelExternalWorkflowExecutionFailedEventAttributes (\ s a -> s{_heRequestCancelExternalWorkflowExecutionFailedEventAttributes = a});++-- | If the event is of type @TimerCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heTimerCanceledEventAttributes :: Lens' HistoryEvent (Maybe TimerCanceledEventAttributes)+heTimerCanceledEventAttributes = lens _heTimerCanceledEventAttributes (\ s a -> s{_heTimerCanceledEventAttributes = a});++-- | If the event is of type @WorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heWorkflowExecutionStartedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionStartedEventAttributes)+heWorkflowExecutionStartedEventAttributes = lens _heWorkflowExecutionStartedEventAttributes (\ s a -> s{_heWorkflowExecutionStartedEventAttributes = a});++-- | If the event is of type @ActivityTaskCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heActivityTaskCompletedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCompletedEventAttributes)+heActivityTaskCompletedEventAttributes = lens _heActivityTaskCompletedEventAttributes (\ s a -> s{_heActivityTaskCompletedEventAttributes = a});++-- | If the event is of type @DecisionTaskTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heDecisionTaskTimedOutEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskTimedOutEventAttributes)+heDecisionTaskTimedOutEventAttributes = lens _heDecisionTaskTimedOutEventAttributes (\ s a -> s{_heDecisionTaskTimedOutEventAttributes = a});++-- | If the event is of type @CancelTimerFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heCancelTimerFailedEventAttributes :: Lens' HistoryEvent (Maybe CancelTimerFailedEventAttributes)+heCancelTimerFailedEventAttributes = lens _heCancelTimerFailedEventAttributes (\ s a -> s{_heCancelTimerFailedEventAttributes = a});++-- | If the event is of type @ChildWorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heChildWorkflowExecutionStartedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionStartedEventAttributes)+heChildWorkflowExecutionStartedEventAttributes = lens _heChildWorkflowExecutionStartedEventAttributes (\ s a -> s{_heChildWorkflowExecutionStartedEventAttributes = a});++-- | If the event is of type @ActivityTaskCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heActivityTaskCanceledEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCanceledEventAttributes)+heActivityTaskCanceledEventAttributes = lens _heActivityTaskCanceledEventAttributes (\ s a -> s{_heActivityTaskCanceledEventAttributes = a});++-- | If the event is of type @ActivityTaskTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heActivityTaskTimedOutEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskTimedOutEventAttributes)+heActivityTaskTimedOutEventAttributes = lens _heActivityTaskTimedOutEventAttributes (\ s a -> s{_heActivityTaskTimedOutEventAttributes = a});++-- | If the event is of type @DecisionTaskStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heDecisionTaskStartedEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskStartedEventAttributes)+heDecisionTaskStartedEventAttributes = lens _heDecisionTaskStartedEventAttributes (\ s a -> s{_heDecisionTaskStartedEventAttributes = a});++-- | If the event is of type @WorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heWorkflowExecutionTerminatedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionTerminatedEventAttributes)+heWorkflowExecutionTerminatedEventAttributes = lens _heWorkflowExecutionTerminatedEventAttributes (\ s a -> s{_heWorkflowExecutionTerminatedEventAttributes = a});++-- | If the event is of type @ChildWorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heChildWorkflowExecutionCanceledEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionCanceledEventAttributes)+heChildWorkflowExecutionCanceledEventAttributes = lens _heChildWorkflowExecutionCanceledEventAttributes (\ s a -> s{_heChildWorkflowExecutionCanceledEventAttributes = a});++-- | If the event is of type @RequestCancelActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heRequestCancelActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelActivityTaskFailedEventAttributes)+heRequestCancelActivityTaskFailedEventAttributes = lens _heRequestCancelActivityTaskFailedEventAttributes (\ s a -> s{_heRequestCancelActivityTaskFailedEventAttributes = a});++-- | Provides the details of the @LambdaFunctionScheduled@ event. It isn't set for other event types.+heLambdaFunctionScheduledEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionScheduledEventAttributes)+heLambdaFunctionScheduledEventAttributes = lens _heLambdaFunctionScheduledEventAttributes (\ s a -> s{_heLambdaFunctionScheduledEventAttributes = a});++-- | If the event is of type @ChildWorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heChildWorkflowExecutionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionTimedOutEventAttributes)+heChildWorkflowExecutionTimedOutEventAttributes = lens _heChildWorkflowExecutionTimedOutEventAttributes (\ s a -> s{_heChildWorkflowExecutionTimedOutEventAttributes = a});++-- | If the event is of type @CancelWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heCancelWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe CancelWorkflowExecutionFailedEventAttributes)+heCancelWorkflowExecutionFailedEventAttributes = lens _heCancelWorkflowExecutionFailedEventAttributes (\ s a -> s{_heCancelWorkflowExecutionFailedEventAttributes = a});++-- | If the event is of type @StartChildWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heStartChildWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe StartChildWorkflowExecutionInitiatedEventAttributes)+heStartChildWorkflowExecutionInitiatedEventAttributes = lens _heStartChildWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heStartChildWorkflowExecutionInitiatedEventAttributes = a});++-- | If the event is of type @SignalExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heSignalExternalWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe SignalExternalWorkflowExecutionFailedEventAttributes)+heSignalExternalWorkflowExecutionFailedEventAttributes = lens _heSignalExternalWorkflowExecutionFailedEventAttributes (\ s a -> s{_heSignalExternalWorkflowExecutionFailedEventAttributes = a});++-- | If the event is of type @ActivityTaskStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heActivityTaskStartedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskStartedEventAttributes)+heActivityTaskStartedEventAttributes = lens _heActivityTaskStartedEventAttributes (\ s a -> s{_heActivityTaskStartedEventAttributes = a});++-- | Provides the details of the @StartLambdaFunctionFailed@ event. It isn't set for other event types.+heStartLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe StartLambdaFunctionFailedEventAttributes)+heStartLambdaFunctionFailedEventAttributes = lens _heStartLambdaFunctionFailedEventAttributes (\ s a -> s{_heStartLambdaFunctionFailedEventAttributes = a});++-- | If the event is of type @ChildWorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heChildWorkflowExecutionTerminatedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionTerminatedEventAttributes)+heChildWorkflowExecutionTerminatedEventAttributes = lens _heChildWorkflowExecutionTerminatedEventAttributes (\ s a -> s{_heChildWorkflowExecutionTerminatedEventAttributes = a});++-- | Provides the details of the @LambdaFunctionFailed@ event. It isn't set for other event types.+heLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionFailedEventAttributes)+heLambdaFunctionFailedEventAttributes = lens _heLambdaFunctionFailedEventAttributes (\ s a -> s{_heLambdaFunctionFailedEventAttributes = a});++-- | If the event is of type @WorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heWorkflowExecutionCanceledEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCanceledEventAttributes)+heWorkflowExecutionCanceledEventAttributes = lens _heWorkflowExecutionCanceledEventAttributes (\ s a -> s{_heWorkflowExecutionCanceledEventAttributes = a});++-- | If the event is of type @TimerStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heTimerStartedEventAttributes :: Lens' HistoryEvent (Maybe TimerStartedEventAttributes)+heTimerStartedEventAttributes = lens _heTimerStartedEventAttributes (\ s a -> s{_heTimerStartedEventAttributes = a});++-- | If the event is of type @ActivityTaskcancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heActivityTaskCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCancelRequestedEventAttributes)+heActivityTaskCancelRequestedEventAttributes = lens _heActivityTaskCancelRequestedEventAttributes (\ s a -> s{_heActivityTaskCancelRequestedEventAttributes = a});++-- | If the event is of type @WorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heWorkflowExecutionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionTimedOutEventAttributes)+heWorkflowExecutionTimedOutEventAttributes = lens _heWorkflowExecutionTimedOutEventAttributes (\ s a -> s{_heWorkflowExecutionTimedOutEventAttributes = a});++-- | If the event is of type @WorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heWorkflowExecutionSignaledEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionSignaledEventAttributes)+heWorkflowExecutionSignaledEventAttributes = lens _heWorkflowExecutionSignaledEventAttributes (\ s a -> s{_heWorkflowExecutionSignaledEventAttributes = a});++-- | If the event is of type @TimerFired@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heTimerFiredEventAttributes :: Lens' HistoryEvent (Maybe TimerFiredEventAttributes)+heTimerFiredEventAttributes = lens _heTimerFiredEventAttributes (\ s a -> s{_heTimerFiredEventAttributes = a});++-- | If the event is of type @ActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskFailedEventAttributes)+heActivityTaskFailedEventAttributes = lens _heActivityTaskFailedEventAttributes (\ s a -> s{_heActivityTaskFailedEventAttributes = a});++-- | If the event is of type @ExternalWorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heExternalWorkflowExecutionSignaledEventAttributes :: Lens' HistoryEvent (Maybe ExternalWorkflowExecutionSignaledEventAttributes)+heExternalWorkflowExecutionSignaledEventAttributes = lens _heExternalWorkflowExecutionSignaledEventAttributes (\ s a -> s{_heExternalWorkflowExecutionSignaledEventAttributes = a});++-- | If the event is of type @DecisionTaskCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heDecisionTaskCompletedEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskCompletedEventAttributes)+heDecisionTaskCompletedEventAttributes = lens _heDecisionTaskCompletedEventAttributes (\ s a -> s{_heDecisionTaskCompletedEventAttributes = a});++-- | If the event is of type @StartChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heStartChildWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe StartChildWorkflowExecutionFailedEventAttributes)+heStartChildWorkflowExecutionFailedEventAttributes = lens _heStartChildWorkflowExecutionFailedEventAttributes (\ s a -> s{_heStartChildWorkflowExecutionFailedEventAttributes = a});++-- | If the event is of type @ChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heChildWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionFailedEventAttributes)+heChildWorkflowExecutionFailedEventAttributes = lens _heChildWorkflowExecutionFailedEventAttributes (\ s a -> s{_heChildWorkflowExecutionFailedEventAttributes = a});++-- | If the event is of type @FailWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heFailWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe FailWorkflowExecutionFailedEventAttributes)+heFailWorkflowExecutionFailedEventAttributes = lens _heFailWorkflowExecutionFailedEventAttributes (\ s a -> s{_heFailWorkflowExecutionFailedEventAttributes = a});++-- | If the event is of type @ContinueAsNewWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heContinueAsNewWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes)+heContinueAsNewWorkflowExecutionFailedEventAttributes = lens _heContinueAsNewWorkflowExecutionFailedEventAttributes (\ s a -> s{_heContinueAsNewWorkflowExecutionFailedEventAttributes = a});++-- | If the event is of type @SignalExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heSignalExternalWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes)+heSignalExternalWorkflowExecutionInitiatedEventAttributes = lens _heSignalExternalWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heSignalExternalWorkflowExecutionInitiatedEventAttributes = a});++-- | Provides the details of the @LambdaFunctionTimedOut@ event. It isn't set for other event types.+heLambdaFunctionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionTimedOutEventAttributes)+heLambdaFunctionTimedOutEventAttributes = lens _heLambdaFunctionTimedOutEventAttributes (\ s a -> s{_heLambdaFunctionTimedOutEventAttributes = a});++-- | If the event is of type @WorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionFailedEventAttributes)+heWorkflowExecutionFailedEventAttributes = lens _heWorkflowExecutionFailedEventAttributes (\ s a -> s{_heWorkflowExecutionFailedEventAttributes = a});++-- | If the event is of type @WorkflowExecutionContinuedAsNew@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heWorkflowExecutionContinuedAsNewEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionContinuedAsNewEventAttributes)+heWorkflowExecutionContinuedAsNewEventAttributes = lens _heWorkflowExecutionContinuedAsNewEventAttributes (\ s a -> s{_heWorkflowExecutionContinuedAsNewEventAttributes = a});++-- | If the event is of type @ExternalWorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types.+heExternalWorkflowExecutionCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes)+heExternalWorkflowExecutionCancelRequestedEventAttributes = lens _heExternalWorkflowExecutionCancelRequestedEventAttributes (\ s a -> s{_heExternalWorkflowExecutionCancelRequestedEventAttributes = a});++-- | The date and time when the event occurred.+heEventTimestamp :: Lens' HistoryEvent UTCTime+heEventTimestamp = lens _heEventTimestamp (\ s a -> s{_heEventTimestamp = a}) . _Time;++-- | The type of the history event.+heEventType :: Lens' HistoryEvent EventType+heEventType = lens _heEventType (\ s a -> s{_heEventType = a});++-- | The system generated ID of the event. This ID uniquely identifies the event with in the workflow execution history.+heEventId :: Lens' HistoryEvent Integer+heEventId = lens _heEventId (\ s a -> s{_heEventId = a});++instance FromJSON HistoryEvent where+        parseJSON+          = withObject "HistoryEvent"+              (\ x ->+                 HistoryEvent' <$>+                   (x .:?+                      "workflowExecutionCancelRequestedEventAttributes")+                     <*> (x .:? "recordMarkerFailedEventAttributes")+                     <*>+                     (x .:?+                        "requestCancelExternalWorkflowExecutionInitiatedEventAttributes")+                     <*> (x .:? "lambdaFunctionStartedEventAttributes")+                     <*> (x .:? "decisionTaskScheduledEventAttributes")+                     <*>+                     (x .:? "workflowExecutionCompletedEventAttributes")+                     <*> (x .:? "startTimerFailedEventAttributes")+                     <*> (x .:? "activityTaskScheduledEventAttributes")+                     <*>+                     (x .:? "scheduleActivityTaskFailedEventAttributes")+                     <*>+                     (x .:?+                        "childWorkflowExecutionCompletedEventAttributes")+                     <*> (x .:? "markerRecordedEventAttributes")+                     <*>+                     (x .:? "scheduleLambdaFunctionFailedEventAttributes")+                     <*>+                     (x .:?+                        "completeWorkflowExecutionFailedEventAttributes")+                     <*> (x .:? "lambdaFunctionCompletedEventAttributes")+                     <*>+                     (x .:?+                        "requestCancelExternalWorkflowExecutionFailedEventAttributes")+                     <*> (x .:? "timerCanceledEventAttributes")+                     <*> (x .:? "workflowExecutionStartedEventAttributes")+                     <*> (x .:? "activityTaskCompletedEventAttributes")+                     <*> (x .:? "decisionTaskTimedOutEventAttributes")+                     <*> (x .:? "cancelTimerFailedEventAttributes")+                     <*>+                     (x .:?+                        "childWorkflowExecutionStartedEventAttributes")+                     <*> (x .:? "activityTaskCanceledEventAttributes")+                     <*> (x .:? "activityTaskTimedOutEventAttributes")+                     <*> (x .:? "decisionTaskStartedEventAttributes")+                     <*>+                     (x .:? "workflowExecutionTerminatedEventAttributes")+                     <*>+                     (x .:?+                        "childWorkflowExecutionCanceledEventAttributes")+                     <*>+                     (x .:?+                        "requestCancelActivityTaskFailedEventAttributes")+                     <*> (x .:? "lambdaFunctionScheduledEventAttributes")+                     <*>+                     (x .:?+                        "childWorkflowExecutionTimedOutEventAttributes")+                     <*>+                     (x .:?+                        "cancelWorkflowExecutionFailedEventAttributes")+                     <*>+                     (x .:?+                        "startChildWorkflowExecutionInitiatedEventAttributes")+                     <*>+                     (x .:?+                        "signalExternalWorkflowExecutionFailedEventAttributes")+                     <*> (x .:? "activityTaskStartedEventAttributes")+                     <*>+                     (x .:? "startLambdaFunctionFailedEventAttributes")+                     <*>+                     (x .:?+                        "childWorkflowExecutionTerminatedEventAttributes")+                     <*> (x .:? "lambdaFunctionFailedEventAttributes")+                     <*>+                     (x .:? "workflowExecutionCanceledEventAttributes")+                     <*> (x .:? "timerStartedEventAttributes")+                     <*>+                     (x .:? "activityTaskCancelRequestedEventAttributes")+                     <*>+                     (x .:? "workflowExecutionTimedOutEventAttributes")+                     <*>+                     (x .:? "workflowExecutionSignaledEventAttributes")+                     <*> (x .:? "timerFiredEventAttributes")+                     <*> (x .:? "activityTaskFailedEventAttributes")+                     <*>+                     (x .:?+                        "externalWorkflowExecutionSignaledEventAttributes")+                     <*> (x .:? "decisionTaskCompletedEventAttributes")+                     <*>+                     (x .:?+                        "startChildWorkflowExecutionFailedEventAttributes")+                     <*>+                     (x .:? "childWorkflowExecutionFailedEventAttributes")+                     <*>+                     (x .:? "failWorkflowExecutionFailedEventAttributes")+                     <*>+                     (x .:?+                        "continueAsNewWorkflowExecutionFailedEventAttributes")+                     <*>+                     (x .:?+                        "signalExternalWorkflowExecutionInitiatedEventAttributes")+                     <*> (x .:? "lambdaFunctionTimedOutEventAttributes")+                     <*> (x .:? "workflowExecutionFailedEventAttributes")+                     <*>+                     (x .:?+                        "workflowExecutionContinuedAsNewEventAttributes")+                     <*>+                     (x .:?+                        "externalWorkflowExecutionCancelRequestedEventAttributes")+                     <*> (x .: "eventTimestamp")+                     <*> (x .: "eventType")+                     <*> (x .: "eventId"))++instance Hashable HistoryEvent where++instance NFData HistoryEvent where++-- | Provides the details of the @LambdaFunctionCompleted@ event. It isn't set for other event types.+--+--+--+-- /See:/ 'lambdaFunctionCompletedEventAttributes' smart constructor.+data LambdaFunctionCompletedEventAttributes = LambdaFunctionCompletedEventAttributes'+  { _lfceaResult           :: !(Maybe Text)+  , _lfceaScheduledEventId :: !Integer+  , _lfceaStartedEventId   :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LambdaFunctionCompletedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lfceaResult' - The results of the Lambda task.+--+-- * 'lfceaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this Lambda task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+--+-- * 'lfceaStartedEventId' - The ID of the @LambdaFunctionStarted@ event recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lambdaFunctionCompletedEventAttributes+    :: Integer -- ^ 'lfceaScheduledEventId'+    -> Integer -- ^ 'lfceaStartedEventId'+    -> LambdaFunctionCompletedEventAttributes+lambdaFunctionCompletedEventAttributes pScheduledEventId_ pStartedEventId_ =+  LambdaFunctionCompletedEventAttributes'+  { _lfceaResult = Nothing+  , _lfceaScheduledEventId = pScheduledEventId_+  , _lfceaStartedEventId = pStartedEventId_+  }+++-- | The results of the Lambda task.+lfceaResult :: Lens' LambdaFunctionCompletedEventAttributes (Maybe Text)+lfceaResult = lens _lfceaResult (\ s a -> s{_lfceaResult = a});++-- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this Lambda task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lfceaScheduledEventId :: Lens' LambdaFunctionCompletedEventAttributes Integer+lfceaScheduledEventId = lens _lfceaScheduledEventId (\ s a -> s{_lfceaScheduledEventId = a});++-- | The ID of the @LambdaFunctionStarted@ event recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lfceaStartedEventId :: Lens' LambdaFunctionCompletedEventAttributes Integer+lfceaStartedEventId = lens _lfceaStartedEventId (\ s a -> s{_lfceaStartedEventId = a});++instance FromJSON+           LambdaFunctionCompletedEventAttributes+         where+        parseJSON+          = withObject "LambdaFunctionCompletedEventAttributes"+              (\ x ->+                 LambdaFunctionCompletedEventAttributes' <$>+                   (x .:? "result") <*> (x .: "scheduledEventId") <*>+                     (x .: "startedEventId"))++instance Hashable+           LambdaFunctionCompletedEventAttributes+         where++instance NFData+           LambdaFunctionCompletedEventAttributes+         where++-- | Provides the details of the @LambdaFunctionFailed@ event. It isn't set for other event types.+--+--+--+-- /See:/ 'lambdaFunctionFailedEventAttributes' smart constructor.+data LambdaFunctionFailedEventAttributes = LambdaFunctionFailedEventAttributes'+  { _lffeaReason           :: !(Maybe Text)+  , _lffeaDetails          :: !(Maybe Text)+  , _lffeaScheduledEventId :: !Integer+  , _lffeaStartedEventId   :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LambdaFunctionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lffeaReason' - The reason provided for the failure.+--+-- * 'lffeaDetails' - The details of the failure.+--+-- * 'lffeaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+--+-- * 'lffeaStartedEventId' - The ID of the @LambdaFunctionStarted@ event recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lambdaFunctionFailedEventAttributes+    :: Integer -- ^ 'lffeaScheduledEventId'+    -> Integer -- ^ 'lffeaStartedEventId'+    -> LambdaFunctionFailedEventAttributes+lambdaFunctionFailedEventAttributes pScheduledEventId_ pStartedEventId_ =+  LambdaFunctionFailedEventAttributes'+  { _lffeaReason = Nothing+  , _lffeaDetails = Nothing+  , _lffeaScheduledEventId = pScheduledEventId_+  , _lffeaStartedEventId = pStartedEventId_+  }+++-- | The reason provided for the failure.+lffeaReason :: Lens' LambdaFunctionFailedEventAttributes (Maybe Text)+lffeaReason = lens _lffeaReason (\ s a -> s{_lffeaReason = a});++-- | The details of the failure.+lffeaDetails :: Lens' LambdaFunctionFailedEventAttributes (Maybe Text)+lffeaDetails = lens _lffeaDetails (\ s a -> s{_lffeaDetails = a});++-- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lffeaScheduledEventId :: Lens' LambdaFunctionFailedEventAttributes Integer+lffeaScheduledEventId = lens _lffeaScheduledEventId (\ s a -> s{_lffeaScheduledEventId = a});++-- | The ID of the @LambdaFunctionStarted@ event recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lffeaStartedEventId :: Lens' LambdaFunctionFailedEventAttributes Integer+lffeaStartedEventId = lens _lffeaStartedEventId (\ s a -> s{_lffeaStartedEventId = a});++instance FromJSON LambdaFunctionFailedEventAttributes+         where+        parseJSON+          = withObject "LambdaFunctionFailedEventAttributes"+              (\ x ->+                 LambdaFunctionFailedEventAttributes' <$>+                   (x .:? "reason") <*> (x .:? "details") <*>+                     (x .: "scheduledEventId")+                     <*> (x .: "startedEventId"))++instance Hashable LambdaFunctionFailedEventAttributes+         where++instance NFData LambdaFunctionFailedEventAttributes+         where++-- | Provides the details of the @LambdaFunctionScheduled@ event. It isn't set for other event types.+--+--+--+-- /See:/ 'lambdaFunctionScheduledEventAttributes' smart constructor.+data LambdaFunctionScheduledEventAttributes = LambdaFunctionScheduledEventAttributes'+  { _lfseaControl                      :: !(Maybe Text)+  , _lfseaInput                        :: !(Maybe Text)+  , _lfseaStartToCloseTimeout          :: !(Maybe Text)+  , _lfseaId                           :: !Text+  , _lfseaName                         :: !Text+  , _lfseaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LambdaFunctionScheduledEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lfseaControl' - Data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the Lambda task.+--+-- * 'lfseaInput' - The input provided to the Lambda task.+--+-- * 'lfseaStartToCloseTimeout' - The maximum amount of time a worker can take to process the Lambda task.+--+-- * 'lfseaId' - The unique ID of the Lambda task.+--+-- * 'lfseaName' - The name of the Lambda function.+--+-- * 'lfseaDecisionTaskCompletedEventId' - The ID of the @LambdaFunctionCompleted@ event corresponding to the decision that resulted in scheduling this activity task. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lambdaFunctionScheduledEventAttributes+    :: Text -- ^ 'lfseaId'+    -> Text -- ^ 'lfseaName'+    -> Integer -- ^ 'lfseaDecisionTaskCompletedEventId'+    -> LambdaFunctionScheduledEventAttributes+lambdaFunctionScheduledEventAttributes pId_ pName_ pDecisionTaskCompletedEventId_ =+  LambdaFunctionScheduledEventAttributes'+  { _lfseaControl = Nothing+  , _lfseaInput = Nothing+  , _lfseaStartToCloseTimeout = Nothing+  , _lfseaId = pId_+  , _lfseaName = pName_+  , _lfseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | Data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the Lambda task.+lfseaControl :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text)+lfseaControl = lens _lfseaControl (\ s a -> s{_lfseaControl = a});++-- | The input provided to the Lambda task.+lfseaInput :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text)+lfseaInput = lens _lfseaInput (\ s a -> s{_lfseaInput = a});++-- | The maximum amount of time a worker can take to process the Lambda task.+lfseaStartToCloseTimeout :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text)+lfseaStartToCloseTimeout = lens _lfseaStartToCloseTimeout (\ s a -> s{_lfseaStartToCloseTimeout = a});++-- | The unique ID of the Lambda task.+lfseaId :: Lens' LambdaFunctionScheduledEventAttributes Text+lfseaId = lens _lfseaId (\ s a -> s{_lfseaId = a});++-- | The name of the Lambda function.+lfseaName :: Lens' LambdaFunctionScheduledEventAttributes Text+lfseaName = lens _lfseaName (\ s a -> s{_lfseaName = a});++-- | The ID of the @LambdaFunctionCompleted@ event corresponding to the decision that resulted in scheduling this activity task. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lfseaDecisionTaskCompletedEventId :: Lens' LambdaFunctionScheduledEventAttributes Integer+lfseaDecisionTaskCompletedEventId = lens _lfseaDecisionTaskCompletedEventId (\ s a -> s{_lfseaDecisionTaskCompletedEventId = a});++instance FromJSON+           LambdaFunctionScheduledEventAttributes+         where+        parseJSON+          = withObject "LambdaFunctionScheduledEventAttributes"+              (\ x ->+                 LambdaFunctionScheduledEventAttributes' <$>+                   (x .:? "control") <*> (x .:? "input") <*>+                     (x .:? "startToCloseTimeout")+                     <*> (x .: "id")+                     <*> (x .: "name")+                     <*> (x .: "decisionTaskCompletedEventId"))++instance Hashable+           LambdaFunctionScheduledEventAttributes+         where++instance NFData+           LambdaFunctionScheduledEventAttributes+         where++-- | Provides the details of the @LambdaFunctionStarted@ event. It isn't set for other event types.+--+--+--+-- /See:/ 'lambdaFunctionStartedEventAttributes' smart constructor.+newtype LambdaFunctionStartedEventAttributes = LambdaFunctionStartedEventAttributes'+  { _lfseaScheduledEventId :: Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LambdaFunctionStartedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lfseaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lambdaFunctionStartedEventAttributes+    :: Integer -- ^ 'lfseaScheduledEventId'+    -> LambdaFunctionStartedEventAttributes+lambdaFunctionStartedEventAttributes pScheduledEventId_ =+  LambdaFunctionStartedEventAttributes'+  {_lfseaScheduledEventId = pScheduledEventId_}+++-- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lfseaScheduledEventId :: Lens' LambdaFunctionStartedEventAttributes Integer+lfseaScheduledEventId = lens _lfseaScheduledEventId (\ s a -> s{_lfseaScheduledEventId = a});++instance FromJSON+           LambdaFunctionStartedEventAttributes+         where+        parseJSON+          = withObject "LambdaFunctionStartedEventAttributes"+              (\ x ->+                 LambdaFunctionStartedEventAttributes' <$>+                   (x .: "scheduledEventId"))++instance Hashable+           LambdaFunctionStartedEventAttributes+         where++instance NFData LambdaFunctionStartedEventAttributes+         where++-- | Provides details of the @LambdaFunctionTimedOut@ event.+--+--+--+-- /See:/ 'lambdaFunctionTimedOutEventAttributes' smart constructor.+data LambdaFunctionTimedOutEventAttributes = LambdaFunctionTimedOutEventAttributes'+  { _lftoeaTimeoutType      :: !(Maybe LambdaFunctionTimeoutType)+  , _lftoeaScheduledEventId :: !Integer+  , _lftoeaStartedEventId   :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LambdaFunctionTimedOutEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lftoeaTimeoutType' - The type of the timeout that caused this event.+--+-- * 'lftoeaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+--+-- * 'lftoeaStartedEventId' - The ID of the @ActivityTaskStarted@ event that was recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lambdaFunctionTimedOutEventAttributes+    :: Integer -- ^ 'lftoeaScheduledEventId'+    -> Integer -- ^ 'lftoeaStartedEventId'+    -> LambdaFunctionTimedOutEventAttributes+lambdaFunctionTimedOutEventAttributes pScheduledEventId_ pStartedEventId_ =+  LambdaFunctionTimedOutEventAttributes'+  { _lftoeaTimeoutType = Nothing+  , _lftoeaScheduledEventId = pScheduledEventId_+  , _lftoeaStartedEventId = pStartedEventId_+  }+++-- | The type of the timeout that caused this event.+lftoeaTimeoutType :: Lens' LambdaFunctionTimedOutEventAttributes (Maybe LambdaFunctionTimeoutType)+lftoeaTimeoutType = lens _lftoeaTimeoutType (\ s a -> s{_lftoeaTimeoutType = a});++-- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lftoeaScheduledEventId :: Lens' LambdaFunctionTimedOutEventAttributes Integer+lftoeaScheduledEventId = lens _lftoeaScheduledEventId (\ s a -> s{_lftoeaScheduledEventId = a});++-- | The ID of the @ActivityTaskStarted@ event that was recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+lftoeaStartedEventId :: Lens' LambdaFunctionTimedOutEventAttributes Integer+lftoeaStartedEventId = lens _lftoeaStartedEventId (\ s a -> s{_lftoeaStartedEventId = a});++instance FromJSON+           LambdaFunctionTimedOutEventAttributes+         where+        parseJSON+          = withObject "LambdaFunctionTimedOutEventAttributes"+              (\ x ->+                 LambdaFunctionTimedOutEventAttributes' <$>+                   (x .:? "timeoutType") <*> (x .: "scheduledEventId")+                     <*> (x .: "startedEventId"))++instance Hashable+           LambdaFunctionTimedOutEventAttributes+         where++instance NFData LambdaFunctionTimedOutEventAttributes+         where++-- | Provides the details of the @MarkerRecorded@ event.+--+--+--+-- /See:/ 'markerRecordedEventAttributes' smart constructor.+data MarkerRecordedEventAttributes = MarkerRecordedEventAttributes'+  { _mreaDetails                      :: !(Maybe Text)+  , _mreaMarkerName                   :: !Text+  , _mreaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'MarkerRecordedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mreaDetails' - The details of the marker.+--+-- * 'mreaMarkerName' - The name of the marker.+--+-- * 'mreaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarker@ decision that requested this marker. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+markerRecordedEventAttributes+    :: Text -- ^ 'mreaMarkerName'+    -> Integer -- ^ 'mreaDecisionTaskCompletedEventId'+    -> MarkerRecordedEventAttributes+markerRecordedEventAttributes pMarkerName_ pDecisionTaskCompletedEventId_ =+  MarkerRecordedEventAttributes'+  { _mreaDetails = Nothing+  , _mreaMarkerName = pMarkerName_+  , _mreaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The details of the marker.+mreaDetails :: Lens' MarkerRecordedEventAttributes (Maybe Text)+mreaDetails = lens _mreaDetails (\ s a -> s{_mreaDetails = a});++-- | The name of the marker.+mreaMarkerName :: Lens' MarkerRecordedEventAttributes Text+mreaMarkerName = lens _mreaMarkerName (\ s a -> s{_mreaMarkerName = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarker@ decision that requested this marker. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+mreaDecisionTaskCompletedEventId :: Lens' MarkerRecordedEventAttributes Integer+mreaDecisionTaskCompletedEventId = lens _mreaDecisionTaskCompletedEventId (\ s a -> s{_mreaDecisionTaskCompletedEventId = a});++instance FromJSON MarkerRecordedEventAttributes where+        parseJSON+          = withObject "MarkerRecordedEventAttributes"+              (\ x ->+                 MarkerRecordedEventAttributes' <$>+                   (x .:? "details") <*> (x .: "markerName") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable MarkerRecordedEventAttributes where++instance NFData MarkerRecordedEventAttributes where++-- | Contains the count of tasks in a task list.+--+--+--+-- /See:/ 'pendingTaskCount' smart constructor.+data PendingTaskCount = PendingTaskCount'+  { _ptcTruncated :: !(Maybe Bool)+  , _ptcCount     :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PendingTaskCount' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ptcTruncated' - If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value.+--+-- * 'ptcCount' - The number of tasks in the task list.+pendingTaskCount+    :: Natural -- ^ 'ptcCount'+    -> PendingTaskCount+pendingTaskCount pCount_ =+  PendingTaskCount' {_ptcTruncated = Nothing, _ptcCount = _Nat # pCount_}+++-- | If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value.+ptcTruncated :: Lens' PendingTaskCount (Maybe Bool)+ptcTruncated = lens _ptcTruncated (\ s a -> s{_ptcTruncated = a});++-- | The number of tasks in the task list.+ptcCount :: Lens' PendingTaskCount Natural+ptcCount = lens _ptcCount (\ s a -> s{_ptcCount = a}) . _Nat;++instance FromJSON PendingTaskCount where+        parseJSON+          = withObject "PendingTaskCount"+              (\ x ->+                 PendingTaskCount' <$>+                   (x .:? "truncated") <*> (x .: "count"))++instance Hashable PendingTaskCount where++instance NFData PendingTaskCount where++-- | Provides the details of the @RecordMarker@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'recordMarkerDecisionAttributes' smart constructor.+data RecordMarkerDecisionAttributes = RecordMarkerDecisionAttributes'+  { _rmdaDetails    :: !(Maybe Text)+  , _rmdaMarkerName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RecordMarkerDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rmdaDetails' - The details of the marker.+--+-- * 'rmdaMarkerName' - The name of the marker.+recordMarkerDecisionAttributes+    :: Text -- ^ 'rmdaMarkerName'+    -> RecordMarkerDecisionAttributes+recordMarkerDecisionAttributes pMarkerName_ =+  RecordMarkerDecisionAttributes'+  {_rmdaDetails = Nothing, _rmdaMarkerName = pMarkerName_}+++-- | The details of the marker.+rmdaDetails :: Lens' RecordMarkerDecisionAttributes (Maybe Text)+rmdaDetails = lens _rmdaDetails (\ s a -> s{_rmdaDetails = a});++-- | The name of the marker.+rmdaMarkerName :: Lens' RecordMarkerDecisionAttributes Text+rmdaMarkerName = lens _rmdaMarkerName (\ s a -> s{_rmdaMarkerName = a});++instance Hashable RecordMarkerDecisionAttributes+         where++instance NFData RecordMarkerDecisionAttributes where++instance ToJSON RecordMarkerDecisionAttributes where+        toJSON RecordMarkerDecisionAttributes'{..}+          = object+              (catMaybes+                 [("details" .=) <$> _rmdaDetails,+                  Just ("markerName" .= _rmdaMarkerName)])++-- | Provides the details of the @RecordMarkerFailed@ event.+--+--+--+-- /See:/ 'recordMarkerFailedEventAttributes' smart constructor.+data RecordMarkerFailedEventAttributes = RecordMarkerFailedEventAttributes'+  { _rmfeaMarkerName                   :: !Text+  , _rmfeaCause                        :: !RecordMarkerFailedCause+  , _rmfeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RecordMarkerFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rmfeaMarkerName' - The marker's name.+--+-- * 'rmfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'rmfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarkerFailed@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+recordMarkerFailedEventAttributes+    :: Text -- ^ 'rmfeaMarkerName'+    -> RecordMarkerFailedCause -- ^ 'rmfeaCause'+    -> Integer -- ^ 'rmfeaDecisionTaskCompletedEventId'+    -> RecordMarkerFailedEventAttributes+recordMarkerFailedEventAttributes pMarkerName_ pCause_ pDecisionTaskCompletedEventId_ =+  RecordMarkerFailedEventAttributes'+  { _rmfeaMarkerName = pMarkerName_+  , _rmfeaCause = pCause_+  , _rmfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The marker's name.+rmfeaMarkerName :: Lens' RecordMarkerFailedEventAttributes Text+rmfeaMarkerName = lens _rmfeaMarkerName (\ s a -> s{_rmfeaMarkerName = a});++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+rmfeaCause :: Lens' RecordMarkerFailedEventAttributes RecordMarkerFailedCause+rmfeaCause = lens _rmfeaCause (\ s a -> s{_rmfeaCause = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarkerFailed@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+rmfeaDecisionTaskCompletedEventId :: Lens' RecordMarkerFailedEventAttributes Integer+rmfeaDecisionTaskCompletedEventId = lens _rmfeaDecisionTaskCompletedEventId (\ s a -> s{_rmfeaDecisionTaskCompletedEventId = a});++instance FromJSON RecordMarkerFailedEventAttributes+         where+        parseJSON+          = withObject "RecordMarkerFailedEventAttributes"+              (\ x ->+                 RecordMarkerFailedEventAttributes' <$>+                   (x .: "markerName") <*> (x .: "cause") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable RecordMarkerFailedEventAttributes+         where++instance NFData RecordMarkerFailedEventAttributes+         where++-- | Provides the details of the @RequestCancelActivityTask@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'requestCancelActivityTaskDecisionAttributes' smart constructor.+newtype RequestCancelActivityTaskDecisionAttributes = RequestCancelActivityTaskDecisionAttributes'+  { _rcatdaActivityId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RequestCancelActivityTaskDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcatdaActivityId' - The @activityId@ of the activity task to be canceled.+requestCancelActivityTaskDecisionAttributes+    :: Text -- ^ 'rcatdaActivityId'+    -> RequestCancelActivityTaskDecisionAttributes+requestCancelActivityTaskDecisionAttributes pActivityId_ =+  RequestCancelActivityTaskDecisionAttributes'+  {_rcatdaActivityId = pActivityId_}+++-- | The @activityId@ of the activity task to be canceled.+rcatdaActivityId :: Lens' RequestCancelActivityTaskDecisionAttributes Text+rcatdaActivityId = lens _rcatdaActivityId (\ s a -> s{_rcatdaActivityId = a});++instance Hashable+           RequestCancelActivityTaskDecisionAttributes+         where++instance NFData+           RequestCancelActivityTaskDecisionAttributes+         where++instance ToJSON+           RequestCancelActivityTaskDecisionAttributes+         where+        toJSON+          RequestCancelActivityTaskDecisionAttributes'{..}+          = object+              (catMaybes+                 [Just ("activityId" .= _rcatdaActivityId)])++-- | Provides the details of the @RequestCancelActivityTaskFailed@ event.+--+--+--+-- /See:/ 'requestCancelActivityTaskFailedEventAttributes' smart constructor.+data RequestCancelActivityTaskFailedEventAttributes = RequestCancelActivityTaskFailedEventAttributes'+  { _rcatfeaActivityId :: !Text+  , _rcatfeaCause :: !RequestCancelActivityTaskFailedCause+  , _rcatfeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RequestCancelActivityTaskFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcatfeaActivityId' - The activityId provided in the @RequestCancelActivityTask@ decision that failed.+--+-- * 'rcatfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'rcatfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+requestCancelActivityTaskFailedEventAttributes+    :: Text -- ^ 'rcatfeaActivityId'+    -> RequestCancelActivityTaskFailedCause -- ^ 'rcatfeaCause'+    -> Integer -- ^ 'rcatfeaDecisionTaskCompletedEventId'+    -> RequestCancelActivityTaskFailedEventAttributes+requestCancelActivityTaskFailedEventAttributes pActivityId_ pCause_ pDecisionTaskCompletedEventId_ =+  RequestCancelActivityTaskFailedEventAttributes'+  { _rcatfeaActivityId = pActivityId_+  , _rcatfeaCause = pCause_+  , _rcatfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The activityId provided in the @RequestCancelActivityTask@ decision that failed.+rcatfeaActivityId :: Lens' RequestCancelActivityTaskFailedEventAttributes Text+rcatfeaActivityId = lens _rcatfeaActivityId (\ s a -> s{_rcatfeaActivityId = a});++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+rcatfeaCause :: Lens' RequestCancelActivityTaskFailedEventAttributes RequestCancelActivityTaskFailedCause+rcatfeaCause = lens _rcatfeaCause (\ s a -> s{_rcatfeaCause = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+rcatfeaDecisionTaskCompletedEventId :: Lens' RequestCancelActivityTaskFailedEventAttributes Integer+rcatfeaDecisionTaskCompletedEventId = lens _rcatfeaDecisionTaskCompletedEventId (\ s a -> s{_rcatfeaDecisionTaskCompletedEventId = a});++instance FromJSON+           RequestCancelActivityTaskFailedEventAttributes+         where+        parseJSON+          = withObject+              "RequestCancelActivityTaskFailedEventAttributes"+              (\ x ->+                 RequestCancelActivityTaskFailedEventAttributes' <$>+                   (x .: "activityId") <*> (x .: "cause") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable+           RequestCancelActivityTaskFailedEventAttributes+         where++instance NFData+           RequestCancelActivityTaskFailedEventAttributes+         where++-- | Provides the details of the @RequestCancelExternalWorkflowExecution@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'requestCancelExternalWorkflowExecutionDecisionAttributes' smart constructor.+data RequestCancelExternalWorkflowExecutionDecisionAttributes = RequestCancelExternalWorkflowExecutionDecisionAttributes'+  { _rcewedaControl    :: !(Maybe Text)+  , _rcewedaRunId      :: !(Maybe Text)+  , _rcewedaWorkflowId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RequestCancelExternalWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcewedaControl' - The data attached to the event that can be used by the decider in subsequent workflow tasks.+--+-- * 'rcewedaRunId' - The @runId@ of the external workflow execution to cancel.+--+-- * 'rcewedaWorkflowId' - The @workflowId@ of the external workflow execution to cancel.+requestCancelExternalWorkflowExecutionDecisionAttributes+    :: Text -- ^ 'rcewedaWorkflowId'+    -> RequestCancelExternalWorkflowExecutionDecisionAttributes+requestCancelExternalWorkflowExecutionDecisionAttributes pWorkflowId_ =+  RequestCancelExternalWorkflowExecutionDecisionAttributes'+  { _rcewedaControl = Nothing+  , _rcewedaRunId = Nothing+  , _rcewedaWorkflowId = pWorkflowId_+  }+++-- | The data attached to the event that can be used by the decider in subsequent workflow tasks.+rcewedaControl :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Maybe Text)+rcewedaControl = lens _rcewedaControl (\ s a -> s{_rcewedaControl = a});++-- | The @runId@ of the external workflow execution to cancel.+rcewedaRunId :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Maybe Text)+rcewedaRunId = lens _rcewedaRunId (\ s a -> s{_rcewedaRunId = a});++-- | The @workflowId@ of the external workflow execution to cancel.+rcewedaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes Text+rcewedaWorkflowId = lens _rcewedaWorkflowId (\ s a -> s{_rcewedaWorkflowId = a});++instance Hashable+           RequestCancelExternalWorkflowExecutionDecisionAttributes+         where++instance NFData+           RequestCancelExternalWorkflowExecutionDecisionAttributes+         where++instance ToJSON+           RequestCancelExternalWorkflowExecutionDecisionAttributes+         where+        toJSON+          RequestCancelExternalWorkflowExecutionDecisionAttributes'{..}+          = object+              (catMaybes+                 [("control" .=) <$> _rcewedaControl,+                  ("runId" .=) <$> _rcewedaRunId,+                  Just ("workflowId" .= _rcewedaWorkflowId)])++-- | Provides the details of the @RequestCancelExternalWorkflowExecutionFailed@ event.+--+--+--+-- /See:/ 'requestCancelExternalWorkflowExecutionFailedEventAttributes' smart constructor.+data RequestCancelExternalWorkflowExecutionFailedEventAttributes = RequestCancelExternalWorkflowExecutionFailedEventAttributes'+  { _rcewefeaControl :: !(Maybe Text)+  , _rcewefeaRunId :: !(Maybe Text)+  , _rcewefeaWorkflowId :: !Text+  , _rcewefeaCause :: !RequestCancelExternalWorkflowExecutionFailedCause+  , _rcewefeaInitiatedEventId :: !Integer+  , _rcewefeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RequestCancelExternalWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcewefeaControl' - The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the workflow execution.+--+-- * 'rcewefeaRunId' - The @runId@ of the external workflow execution.+--+-- * 'rcewefeaWorkflowId' - The @workflowId@ of the external workflow to which the cancel request was to be delivered.+--+-- * 'rcewefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'rcewefeaInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'rcewefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+requestCancelExternalWorkflowExecutionFailedEventAttributes+    :: Text -- ^ 'rcewefeaWorkflowId'+    -> RequestCancelExternalWorkflowExecutionFailedCause -- ^ 'rcewefeaCause'+    -> Integer -- ^ 'rcewefeaInitiatedEventId'+    -> Integer -- ^ 'rcewefeaDecisionTaskCompletedEventId'+    -> RequestCancelExternalWorkflowExecutionFailedEventAttributes+requestCancelExternalWorkflowExecutionFailedEventAttributes pWorkflowId_ pCause_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ =+  RequestCancelExternalWorkflowExecutionFailedEventAttributes'+  { _rcewefeaControl = Nothing+  , _rcewefeaRunId = Nothing+  , _rcewefeaWorkflowId = pWorkflowId_+  , _rcewefeaCause = pCause_+  , _rcewefeaInitiatedEventId = pInitiatedEventId_+  , _rcewefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the workflow execution.+rcewefeaControl :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Maybe Text)+rcewefeaControl = lens _rcewefeaControl (\ s a -> s{_rcewefeaControl = a});++-- | The @runId@ of the external workflow execution.+rcewefeaRunId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Maybe Text)+rcewefeaRunId = lens _rcewefeaRunId (\ s a -> s{_rcewefeaRunId = a});++-- | The @workflowId@ of the external workflow to which the cancel request was to be delivered.+rcewefeaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Text+rcewefeaWorkflowId = lens _rcewefeaWorkflowId (\ s a -> s{_rcewefeaWorkflowId = a});++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+rcewefeaCause :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes RequestCancelExternalWorkflowExecutionFailedCause+rcewefeaCause = lens _rcewefeaCause (\ s a -> s{_rcewefeaCause = a});++-- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+rcewefeaInitiatedEventId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Integer+rcewefeaInitiatedEventId = lens _rcewefeaInitiatedEventId (\ s a -> s{_rcewefeaInitiatedEventId = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+rcewefeaDecisionTaskCompletedEventId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Integer+rcewefeaDecisionTaskCompletedEventId = lens _rcewefeaDecisionTaskCompletedEventId (\ s a -> s{_rcewefeaDecisionTaskCompletedEventId = a});++instance FromJSON+           RequestCancelExternalWorkflowExecutionFailedEventAttributes+         where+        parseJSON+          = withObject+              "RequestCancelExternalWorkflowExecutionFailedEventAttributes"+              (\ x ->+                 RequestCancelExternalWorkflowExecutionFailedEventAttributes'+                   <$>+                   (x .:? "control") <*> (x .:? "runId") <*>+                     (x .: "workflowId")+                     <*> (x .: "cause")+                     <*> (x .: "initiatedEventId")+                     <*> (x .: "decisionTaskCompletedEventId"))++instance Hashable+           RequestCancelExternalWorkflowExecutionFailedEventAttributes+         where++instance NFData+           RequestCancelExternalWorkflowExecutionFailedEventAttributes+         where++-- | Provides the details of the @RequestCancelExternalWorkflowExecutionInitiated@ event.+--+--+--+-- /See:/ 'requestCancelExternalWorkflowExecutionInitiatedEventAttributes' smart constructor.+data RequestCancelExternalWorkflowExecutionInitiatedEventAttributes = RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'+  { _rceweieaControl                      :: !(Maybe Text)+  , _rceweieaRunId                        :: !(Maybe Text)+  , _rceweieaWorkflowId                   :: !Text+  , _rceweieaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rceweieaControl' - Data attached to the event that can be used by the decider in subsequent workflow tasks.+--+-- * 'rceweieaRunId' - The @runId@ of the external workflow execution to be canceled.+--+-- * 'rceweieaWorkflowId' - The @workflowId@ of the external workflow execution to be canceled.+--+-- * 'rceweieaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+requestCancelExternalWorkflowExecutionInitiatedEventAttributes+    :: Text -- ^ 'rceweieaWorkflowId'+    -> Integer -- ^ 'rceweieaDecisionTaskCompletedEventId'+    -> RequestCancelExternalWorkflowExecutionInitiatedEventAttributes+requestCancelExternalWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pDecisionTaskCompletedEventId_ =+  RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'+  { _rceweieaControl = Nothing+  , _rceweieaRunId = Nothing+  , _rceweieaWorkflowId = pWorkflowId_+  , _rceweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | Data attached to the event that can be used by the decider in subsequent workflow tasks.+rceweieaControl :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)+rceweieaControl = lens _rceweieaControl (\ s a -> s{_rceweieaControl = a});++-- | The @runId@ of the external workflow execution to be canceled.+rceweieaRunId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)+rceweieaRunId = lens _rceweieaRunId (\ s a -> s{_rceweieaRunId = a});++-- | The @workflowId@ of the external workflow execution to be canceled.+rceweieaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Text+rceweieaWorkflowId = lens _rceweieaWorkflowId (\ s a -> s{_rceweieaWorkflowId = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+rceweieaDecisionTaskCompletedEventId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Integer+rceweieaDecisionTaskCompletedEventId = lens _rceweieaDecisionTaskCompletedEventId (\ s a -> s{_rceweieaDecisionTaskCompletedEventId = a});++instance FromJSON+           RequestCancelExternalWorkflowExecutionInitiatedEventAttributes+         where+        parseJSON+          = withObject+              "RequestCancelExternalWorkflowExecutionInitiatedEventAttributes"+              (\ x ->+                 RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'+                   <$>+                   (x .:? "control") <*> (x .:? "runId") <*>+                     (x .: "workflowId")+                     <*> (x .: "decisionTaskCompletedEventId"))++instance Hashable+           RequestCancelExternalWorkflowExecutionInitiatedEventAttributes+         where++instance NFData+           RequestCancelExternalWorkflowExecutionInitiatedEventAttributes+         where++-- | Provides the details of the @ScheduleActivityTask@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys.+--+--     * @activityType.name@ – String constraint. The key is @swf:activityType.name@ .+--+--     * @activityType.version@ – String constraint. The key is @swf:activityType.version@ .+--+--     * @taskList@ – String constraint. The key is @swf:taskList.name@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'scheduleActivityTaskDecisionAttributes' smart constructor.+data ScheduleActivityTaskDecisionAttributes = ScheduleActivityTaskDecisionAttributes'+  { _satdaControl                :: !(Maybe Text)+  , _satdaHeartbeatTimeout       :: !(Maybe Text)+  , _satdaScheduleToCloseTimeout :: !(Maybe Text)+  , _satdaInput                  :: !(Maybe Text)+  , _satdaTaskList               :: !(Maybe TaskList)+  , _satdaTaskPriority           :: !(Maybe Text)+  , _satdaScheduleToStartTimeout :: !(Maybe Text)+  , _satdaStartToCloseTimeout    :: !(Maybe Text)+  , _satdaActivityType           :: !ActivityType+  , _satdaActivityId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ScheduleActivityTaskDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'satdaControl' - Data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the activity.+--+-- * 'satdaHeartbeatTimeout' - If set, specifies the maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or returns a result, it is ignored. This overrides the default heartbeat timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'satdaScheduleToCloseTimeout' - The maximum duration for this activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'satdaInput' - The input provided to the activity task.+--+-- * 'satdaTaskList' - If set, specifies the name of the task list in which to schedule the activity task. If not specified, the @defaultTaskList@ registered with the activity type is used. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+--+-- * 'satdaTaskPriority' - If set, specifies the priority with which the activity task is to be assigned to a worker. This overrides the defaultTaskPriority specified when registering the activity type using 'RegisterActivityType' . Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+--+-- * 'satdaScheduleToStartTimeout' - If set, specifies the maximum duration the activity task can wait to be assigned to a worker. This overrides the default schedule-to-start timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'satdaStartToCloseTimeout' - If set, specifies the maximum duration a worker may take to process this activity task. This overrides the default start-to-close timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'satdaActivityType' - The type of the activity task to schedule.+--+-- * 'satdaActivityId' - The @activityId@ of the activity task. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+scheduleActivityTaskDecisionAttributes+    :: ActivityType -- ^ 'satdaActivityType'+    -> Text -- ^ 'satdaActivityId'+    -> ScheduleActivityTaskDecisionAttributes+scheduleActivityTaskDecisionAttributes pActivityType_ pActivityId_ =+  ScheduleActivityTaskDecisionAttributes'+  { _satdaControl = Nothing+  , _satdaHeartbeatTimeout = Nothing+  , _satdaScheduleToCloseTimeout = Nothing+  , _satdaInput = Nothing+  , _satdaTaskList = Nothing+  , _satdaTaskPriority = Nothing+  , _satdaScheduleToStartTimeout = Nothing+  , _satdaStartToCloseTimeout = Nothing+  , _satdaActivityType = pActivityType_+  , _satdaActivityId = pActivityId_+  }+++-- | Data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the activity.+satdaControl :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)+satdaControl = lens _satdaControl (\ s a -> s{_satdaControl = a});++-- | If set, specifies the maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or returns a result, it is ignored. This overrides the default heartbeat timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+satdaHeartbeatTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)+satdaHeartbeatTimeout = lens _satdaHeartbeatTimeout (\ s a -> s{_satdaHeartbeatTimeout = a});++-- | The maximum duration for this activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+satdaScheduleToCloseTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)+satdaScheduleToCloseTimeout = lens _satdaScheduleToCloseTimeout (\ s a -> s{_satdaScheduleToCloseTimeout = a});++-- | The input provided to the activity task.+satdaInput :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)+satdaInput = lens _satdaInput (\ s a -> s{_satdaInput = a});++-- | If set, specifies the name of the task list in which to schedule the activity task. If not specified, the @defaultTaskList@ registered with the activity type is used. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+satdaTaskList :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe TaskList)+satdaTaskList = lens _satdaTaskList (\ s a -> s{_satdaTaskList = a});++-- | If set, specifies the priority with which the activity task is to be assigned to a worker. This overrides the defaultTaskPriority specified when registering the activity type using 'RegisterActivityType' . Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+satdaTaskPriority :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)+satdaTaskPriority = lens _satdaTaskPriority (\ s a -> s{_satdaTaskPriority = a});++-- | If set, specifies the maximum duration the activity task can wait to be assigned to a worker. This overrides the default schedule-to-start timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+satdaScheduleToStartTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)+satdaScheduleToStartTimeout = lens _satdaScheduleToStartTimeout (\ s a -> s{_satdaScheduleToStartTimeout = a});++-- | If set, specifies the maximum duration a worker may take to process this activity task. This overrides the default start-to-close timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+satdaStartToCloseTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)+satdaStartToCloseTimeout = lens _satdaStartToCloseTimeout (\ s a -> s{_satdaStartToCloseTimeout = a});++-- | The type of the activity task to schedule.+satdaActivityType :: Lens' ScheduleActivityTaskDecisionAttributes ActivityType+satdaActivityType = lens _satdaActivityType (\ s a -> s{_satdaActivityType = a});++-- | The @activityId@ of the activity task. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+satdaActivityId :: Lens' ScheduleActivityTaskDecisionAttributes Text+satdaActivityId = lens _satdaActivityId (\ s a -> s{_satdaActivityId = a});++instance Hashable+           ScheduleActivityTaskDecisionAttributes+         where++instance NFData+           ScheduleActivityTaskDecisionAttributes+         where++instance ToJSON+           ScheduleActivityTaskDecisionAttributes+         where+        toJSON ScheduleActivityTaskDecisionAttributes'{..}+          = object+              (catMaybes+                 [("control" .=) <$> _satdaControl,+                  ("heartbeatTimeout" .=) <$> _satdaHeartbeatTimeout,+                  ("scheduleToCloseTimeout" .=) <$>+                    _satdaScheduleToCloseTimeout,+                  ("input" .=) <$> _satdaInput,+                  ("taskList" .=) <$> _satdaTaskList,+                  ("taskPriority" .=) <$> _satdaTaskPriority,+                  ("scheduleToStartTimeout" .=) <$>+                    _satdaScheduleToStartTimeout,+                  ("startToCloseTimeout" .=) <$>+                    _satdaStartToCloseTimeout,+                  Just ("activityType" .= _satdaActivityType),+                  Just ("activityId" .= _satdaActivityId)])++-- | Provides the details of the @ScheduleActivityTaskFailed@ event.+--+--+--+-- /See:/ 'scheduleActivityTaskFailedEventAttributes' smart constructor.+data ScheduleActivityTaskFailedEventAttributes = ScheduleActivityTaskFailedEventAttributes'+  { _satfeaActivityType                 :: !ActivityType+  , _satfeaActivityId                   :: !Text+  , _satfeaCause                        :: !ScheduleActivityTaskFailedCause+  , _satfeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ScheduleActivityTaskFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'satfeaActivityType' - The activity type provided in the @ScheduleActivityTask@ decision that failed.+--+-- * 'satfeaActivityId' - The activityId provided in the @ScheduleActivityTask@ decision that failed.+--+-- * 'satfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'satfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+scheduleActivityTaskFailedEventAttributes+    :: ActivityType -- ^ 'satfeaActivityType'+    -> Text -- ^ 'satfeaActivityId'+    -> ScheduleActivityTaskFailedCause -- ^ 'satfeaCause'+    -> Integer -- ^ 'satfeaDecisionTaskCompletedEventId'+    -> ScheduleActivityTaskFailedEventAttributes+scheduleActivityTaskFailedEventAttributes pActivityType_ pActivityId_ pCause_ pDecisionTaskCompletedEventId_ =+  ScheduleActivityTaskFailedEventAttributes'+  { _satfeaActivityType = pActivityType_+  , _satfeaActivityId = pActivityId_+  , _satfeaCause = pCause_+  , _satfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The activity type provided in the @ScheduleActivityTask@ decision that failed.+satfeaActivityType :: Lens' ScheduleActivityTaskFailedEventAttributes ActivityType+satfeaActivityType = lens _satfeaActivityType (\ s a -> s{_satfeaActivityType = a});++-- | The activityId provided in the @ScheduleActivityTask@ decision that failed.+satfeaActivityId :: Lens' ScheduleActivityTaskFailedEventAttributes Text+satfeaActivityId = lens _satfeaActivityId (\ s a -> s{_satfeaActivityId = a});++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+satfeaCause :: Lens' ScheduleActivityTaskFailedEventAttributes ScheduleActivityTaskFailedCause+satfeaCause = lens _satfeaCause (\ s a -> s{_satfeaCause = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+satfeaDecisionTaskCompletedEventId :: Lens' ScheduleActivityTaskFailedEventAttributes Integer+satfeaDecisionTaskCompletedEventId = lens _satfeaDecisionTaskCompletedEventId (\ s a -> s{_satfeaDecisionTaskCompletedEventId = a});++instance FromJSON+           ScheduleActivityTaskFailedEventAttributes+         where+        parseJSON+          = withObject+              "ScheduleActivityTaskFailedEventAttributes"+              (\ x ->+                 ScheduleActivityTaskFailedEventAttributes' <$>+                   (x .: "activityType") <*> (x .: "activityId") <*>+                     (x .: "cause")+                     <*> (x .: "decisionTaskCompletedEventId"))++instance Hashable+           ScheduleActivityTaskFailedEventAttributes+         where++instance NFData+           ScheduleActivityTaskFailedEventAttributes+         where++-- | Decision attributes specified in @scheduleLambdaFunctionDecisionAttributes@ within the list of decisions @decisions@ passed to 'RespondDecisionTaskCompleted' .+--+--+--+-- /See:/ 'scheduleLambdaFunctionDecisionAttributes' smart constructor.+data ScheduleLambdaFunctionDecisionAttributes = ScheduleLambdaFunctionDecisionAttributes'+  { _slfdaControl             :: !(Maybe Text)+  , _slfdaInput               :: !(Maybe Text)+  , _slfdaStartToCloseTimeout :: !(Maybe Text)+  , _slfdaId                  :: !Text+  , _slfdaName                :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ScheduleLambdaFunctionDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'slfdaControl' - The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the Lambda task.+--+-- * 'slfdaInput' - The optional input data to be supplied to the Lambda function.+--+-- * 'slfdaStartToCloseTimeout' - The timeout value, in seconds, after which the Lambda function is considered to be failed once it has started. This can be any integer from 1-300 (1s-5m). If no value is supplied, than a default value of 300s is assumed.+--+-- * 'slfdaId' - A string that identifies the Lambda function execution in the event history.+--+-- * 'slfdaName' - The name, or ARN, of the Lambda function to schedule.+scheduleLambdaFunctionDecisionAttributes+    :: Text -- ^ 'slfdaId'+    -> Text -- ^ 'slfdaName'+    -> ScheduleLambdaFunctionDecisionAttributes+scheduleLambdaFunctionDecisionAttributes pId_ pName_ =+  ScheduleLambdaFunctionDecisionAttributes'+  { _slfdaControl = Nothing+  , _slfdaInput = Nothing+  , _slfdaStartToCloseTimeout = Nothing+  , _slfdaId = pId_+  , _slfdaName = pName_+  }+++-- | The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the Lambda task.+slfdaControl :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text)+slfdaControl = lens _slfdaControl (\ s a -> s{_slfdaControl = a});++-- | The optional input data to be supplied to the Lambda function.+slfdaInput :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text)+slfdaInput = lens _slfdaInput (\ s a -> s{_slfdaInput = a});++-- | The timeout value, in seconds, after which the Lambda function is considered to be failed once it has started. This can be any integer from 1-300 (1s-5m). If no value is supplied, than a default value of 300s is assumed.+slfdaStartToCloseTimeout :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text)+slfdaStartToCloseTimeout = lens _slfdaStartToCloseTimeout (\ s a -> s{_slfdaStartToCloseTimeout = a});++-- | A string that identifies the Lambda function execution in the event history.+slfdaId :: Lens' ScheduleLambdaFunctionDecisionAttributes Text+slfdaId = lens _slfdaId (\ s a -> s{_slfdaId = a});++-- | The name, or ARN, of the Lambda function to schedule.+slfdaName :: Lens' ScheduleLambdaFunctionDecisionAttributes Text+slfdaName = lens _slfdaName (\ s a -> s{_slfdaName = a});++instance Hashable+           ScheduleLambdaFunctionDecisionAttributes+         where++instance NFData+           ScheduleLambdaFunctionDecisionAttributes+         where++instance ToJSON+           ScheduleLambdaFunctionDecisionAttributes+         where+        toJSON ScheduleLambdaFunctionDecisionAttributes'{..}+          = object+              (catMaybes+                 [("control" .=) <$> _slfdaControl,+                  ("input" .=) <$> _slfdaInput,+                  ("startToCloseTimeout" .=) <$>+                    _slfdaStartToCloseTimeout,+                  Just ("id" .= _slfdaId),+                  Just ("name" .= _slfdaName)])++-- | Provides the details of the @ScheduleLambdaFunctionFailed@ event. It isn't set for other event types.+--+--+--+-- /See:/ 'scheduleLambdaFunctionFailedEventAttributes' smart constructor.+data ScheduleLambdaFunctionFailedEventAttributes = ScheduleLambdaFunctionFailedEventAttributes'+  { _slffeaId                           :: !Text+  , _slffeaName                         :: !Text+  , _slffeaCause                        :: !ScheduleLambdaFunctionFailedCause+  , _slffeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ScheduleLambdaFunctionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'slffeaId' - The ID provided in the @ScheduleLambdaFunction@ decision that failed.+--+-- * 'slffeaName' - The name of the Lambda function.+--+-- * 'slffeaCause' - The cause of the failure. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+--+-- * 'slffeaDecisionTaskCompletedEventId' - The ID of the @LambdaFunctionCompleted@ event corresponding to the decision that resulted in scheduling this Lambda task. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+scheduleLambdaFunctionFailedEventAttributes+    :: Text -- ^ 'slffeaId'+    -> Text -- ^ 'slffeaName'+    -> ScheduleLambdaFunctionFailedCause -- ^ 'slffeaCause'+    -> Integer -- ^ 'slffeaDecisionTaskCompletedEventId'+    -> ScheduleLambdaFunctionFailedEventAttributes+scheduleLambdaFunctionFailedEventAttributes pId_ pName_ pCause_ pDecisionTaskCompletedEventId_ =+  ScheduleLambdaFunctionFailedEventAttributes'+  { _slffeaId = pId_+  , _slffeaName = pName_+  , _slffeaCause = pCause_+  , _slffeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The ID provided in the @ScheduleLambdaFunction@ decision that failed.+slffeaId :: Lens' ScheduleLambdaFunctionFailedEventAttributes Text+slffeaId = lens _slffeaId (\ s a -> s{_slffeaId = a});++-- | The name of the Lambda function.+slffeaName :: Lens' ScheduleLambdaFunctionFailedEventAttributes Text+slffeaName = lens _slffeaName (\ s a -> s{_slffeaName = a});++-- | The cause of the failure. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+slffeaCause :: Lens' ScheduleLambdaFunctionFailedEventAttributes ScheduleLambdaFunctionFailedCause+slffeaCause = lens _slffeaCause (\ s a -> s{_slffeaCause = a});++-- | The ID of the @LambdaFunctionCompleted@ event corresponding to the decision that resulted in scheduling this Lambda task. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+slffeaDecisionTaskCompletedEventId :: Lens' ScheduleLambdaFunctionFailedEventAttributes Integer+slffeaDecisionTaskCompletedEventId = lens _slffeaDecisionTaskCompletedEventId (\ s a -> s{_slffeaDecisionTaskCompletedEventId = a});++instance FromJSON+           ScheduleLambdaFunctionFailedEventAttributes+         where+        parseJSON+          = withObject+              "ScheduleLambdaFunctionFailedEventAttributes"+              (\ x ->+                 ScheduleLambdaFunctionFailedEventAttributes' <$>+                   (x .: "id") <*> (x .: "name") <*> (x .: "cause") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable+           ScheduleLambdaFunctionFailedEventAttributes+         where++instance NFData+           ScheduleLambdaFunctionFailedEventAttributes+         where++-- | Provides the details of the @SignalExternalWorkflowExecution@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'signalExternalWorkflowExecutionDecisionAttributes' smart constructor.+data SignalExternalWorkflowExecutionDecisionAttributes = SignalExternalWorkflowExecutionDecisionAttributes'+  { _sewedaControl    :: !(Maybe Text)+  , _sewedaInput      :: !(Maybe Text)+  , _sewedaRunId      :: !(Maybe Text)+  , _sewedaWorkflowId :: !Text+  , _sewedaSignalName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SignalExternalWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sewedaControl' - The data attached to the event that can be used by the decider in subsequent decision tasks.+--+-- * 'sewedaInput' - The input data to be provided with the signal. The target workflow execution uses the signal name and input data to process the signal.+--+-- * 'sewedaRunId' - The @runId@ of the workflow execution to be signaled.+--+-- * 'sewedaWorkflowId' - The @workflowId@ of the workflow execution to be signaled.+--+-- * 'sewedaSignalName' - The name of the signal.The target workflow execution uses the signal name and input to process the signal.+signalExternalWorkflowExecutionDecisionAttributes+    :: Text -- ^ 'sewedaWorkflowId'+    -> Text -- ^ 'sewedaSignalName'+    -> SignalExternalWorkflowExecutionDecisionAttributes+signalExternalWorkflowExecutionDecisionAttributes pWorkflowId_ pSignalName_ =+  SignalExternalWorkflowExecutionDecisionAttributes'+  { _sewedaControl = Nothing+  , _sewedaInput = Nothing+  , _sewedaRunId = Nothing+  , _sewedaWorkflowId = pWorkflowId_+  , _sewedaSignalName = pSignalName_+  }+++-- | The data attached to the event that can be used by the decider in subsequent decision tasks.+sewedaControl :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text)+sewedaControl = lens _sewedaControl (\ s a -> s{_sewedaControl = a});++-- | The input data to be provided with the signal. The target workflow execution uses the signal name and input data to process the signal.+sewedaInput :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text)+sewedaInput = lens _sewedaInput (\ s a -> s{_sewedaInput = a});++-- | The @runId@ of the workflow execution to be signaled.+sewedaRunId :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text)+sewedaRunId = lens _sewedaRunId (\ s a -> s{_sewedaRunId = a});++-- | The @workflowId@ of the workflow execution to be signaled.+sewedaWorkflowId :: Lens' SignalExternalWorkflowExecutionDecisionAttributes Text+sewedaWorkflowId = lens _sewedaWorkflowId (\ s a -> s{_sewedaWorkflowId = a});++-- | The name of the signal.The target workflow execution uses the signal name and input to process the signal.+sewedaSignalName :: Lens' SignalExternalWorkflowExecutionDecisionAttributes Text+sewedaSignalName = lens _sewedaSignalName (\ s a -> s{_sewedaSignalName = a});++instance Hashable+           SignalExternalWorkflowExecutionDecisionAttributes+         where++instance NFData+           SignalExternalWorkflowExecutionDecisionAttributes+         where++instance ToJSON+           SignalExternalWorkflowExecutionDecisionAttributes+         where+        toJSON+          SignalExternalWorkflowExecutionDecisionAttributes'{..}+          = object+              (catMaybes+                 [("control" .=) <$> _sewedaControl,+                  ("input" .=) <$> _sewedaInput,+                  ("runId" .=) <$> _sewedaRunId,+                  Just ("workflowId" .= _sewedaWorkflowId),+                  Just ("signalName" .= _sewedaSignalName)])++-- | Provides the details of the @SignalExternalWorkflowExecutionFailed@ event.+--+--+--+-- /See:/ 'signalExternalWorkflowExecutionFailedEventAttributes' smart constructor.+data SignalExternalWorkflowExecutionFailedEventAttributes = SignalExternalWorkflowExecutionFailedEventAttributes'+  { _sewefeaControl :: !(Maybe Text)+  , _sewefeaRunId :: !(Maybe Text)+  , _sewefeaWorkflowId :: !Text+  , _sewefeaCause :: !SignalExternalWorkflowExecutionFailedCause+  , _sewefeaInitiatedEventId :: !Integer+  , _sewefeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SignalExternalWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sewefeaControl' - The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the workflow execution.+--+-- * 'sewefeaRunId' - The @runId@ of the external workflow execution that the signal was being delivered to.+--+-- * 'sewefeaWorkflowId' - The @workflowId@ of the external workflow execution that the signal was being delivered to.+--+-- * 'sewefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'sewefeaInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'sewefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+signalExternalWorkflowExecutionFailedEventAttributes+    :: Text -- ^ 'sewefeaWorkflowId'+    -> SignalExternalWorkflowExecutionFailedCause -- ^ 'sewefeaCause'+    -> Integer -- ^ 'sewefeaInitiatedEventId'+    -> Integer -- ^ 'sewefeaDecisionTaskCompletedEventId'+    -> SignalExternalWorkflowExecutionFailedEventAttributes+signalExternalWorkflowExecutionFailedEventAttributes pWorkflowId_ pCause_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ =+  SignalExternalWorkflowExecutionFailedEventAttributes'+  { _sewefeaControl = Nothing+  , _sewefeaRunId = Nothing+  , _sewefeaWorkflowId = pWorkflowId_+  , _sewefeaCause = pCause_+  , _sewefeaInitiatedEventId = pInitiatedEventId_+  , _sewefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the workflow execution.+sewefeaControl :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Maybe Text)+sewefeaControl = lens _sewefeaControl (\ s a -> s{_sewefeaControl = a});++-- | The @runId@ of the external workflow execution that the signal was being delivered to.+sewefeaRunId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Maybe Text)+sewefeaRunId = lens _sewefeaRunId (\ s a -> s{_sewefeaRunId = a});++-- | The @workflowId@ of the external workflow execution that the signal was being delivered to.+sewefeaWorkflowId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Text+sewefeaWorkflowId = lens _sewefeaWorkflowId (\ s a -> s{_sewefeaWorkflowId = a});++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+sewefeaCause :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes SignalExternalWorkflowExecutionFailedCause+sewefeaCause = lens _sewefeaCause (\ s a -> s{_sewefeaCause = a});++-- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+sewefeaInitiatedEventId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Integer+sewefeaInitiatedEventId = lens _sewefeaInitiatedEventId (\ s a -> s{_sewefeaInitiatedEventId = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+sewefeaDecisionTaskCompletedEventId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Integer+sewefeaDecisionTaskCompletedEventId = lens _sewefeaDecisionTaskCompletedEventId (\ s a -> s{_sewefeaDecisionTaskCompletedEventId = a});++instance FromJSON+           SignalExternalWorkflowExecutionFailedEventAttributes+         where+        parseJSON+          = withObject+              "SignalExternalWorkflowExecutionFailedEventAttributes"+              (\ x ->+                 SignalExternalWorkflowExecutionFailedEventAttributes'+                   <$>+                   (x .:? "control") <*> (x .:? "runId") <*>+                     (x .: "workflowId")+                     <*> (x .: "cause")+                     <*> (x .: "initiatedEventId")+                     <*> (x .: "decisionTaskCompletedEventId"))++instance Hashable+           SignalExternalWorkflowExecutionFailedEventAttributes+         where++instance NFData+           SignalExternalWorkflowExecutionFailedEventAttributes+         where++-- | Provides the details of the @SignalExternalWorkflowExecutionInitiated@ event.+--+--+--+-- /See:/ 'signalExternalWorkflowExecutionInitiatedEventAttributes' smart constructor.+data SignalExternalWorkflowExecutionInitiatedEventAttributes = SignalExternalWorkflowExecutionInitiatedEventAttributes'+  { _seweieaControl                      :: !(Maybe Text)+  , _seweieaInput                        :: !(Maybe Text)+  , _seweieaRunId                        :: !(Maybe Text)+  , _seweieaWorkflowId                   :: !Text+  , _seweieaSignalName                   :: !Text+  , _seweieaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SignalExternalWorkflowExecutionInitiatedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'seweieaControl' - Data attached to the event that can be used by the decider in subsequent decision tasks.+--+-- * 'seweieaInput' - The input provided to the signal.+--+-- * 'seweieaRunId' - The @runId@ of the external workflow execution to send the signal to.+--+-- * 'seweieaWorkflowId' - The @workflowId@ of the external workflow execution.+--+-- * 'seweieaSignalName' - The name of the signal.+--+-- * 'seweieaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+signalExternalWorkflowExecutionInitiatedEventAttributes+    :: Text -- ^ 'seweieaWorkflowId'+    -> Text -- ^ 'seweieaSignalName'+    -> Integer -- ^ 'seweieaDecisionTaskCompletedEventId'+    -> SignalExternalWorkflowExecutionInitiatedEventAttributes+signalExternalWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pSignalName_ pDecisionTaskCompletedEventId_ =+  SignalExternalWorkflowExecutionInitiatedEventAttributes'+  { _seweieaControl = Nothing+  , _seweieaInput = Nothing+  , _seweieaRunId = Nothing+  , _seweieaWorkflowId = pWorkflowId_+  , _seweieaSignalName = pSignalName_+  , _seweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | Data attached to the event that can be used by the decider in subsequent decision tasks.+seweieaControl :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)+seweieaControl = lens _seweieaControl (\ s a -> s{_seweieaControl = a});++-- | The input provided to the signal.+seweieaInput :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)+seweieaInput = lens _seweieaInput (\ s a -> s{_seweieaInput = a});++-- | The @runId@ of the external workflow execution to send the signal to.+seweieaRunId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)+seweieaRunId = lens _seweieaRunId (\ s a -> s{_seweieaRunId = a});++-- | The @workflowId@ of the external workflow execution.+seweieaWorkflowId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Text+seweieaWorkflowId = lens _seweieaWorkflowId (\ s a -> s{_seweieaWorkflowId = a});++-- | The name of the signal.+seweieaSignalName :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Text+seweieaSignalName = lens _seweieaSignalName (\ s a -> s{_seweieaSignalName = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+seweieaDecisionTaskCompletedEventId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Integer+seweieaDecisionTaskCompletedEventId = lens _seweieaDecisionTaskCompletedEventId (\ s a -> s{_seweieaDecisionTaskCompletedEventId = a});++instance FromJSON+           SignalExternalWorkflowExecutionInitiatedEventAttributes+         where+        parseJSON+          = withObject+              "SignalExternalWorkflowExecutionInitiatedEventAttributes"+              (\ x ->+                 SignalExternalWorkflowExecutionInitiatedEventAttributes'+                   <$>+                   (x .:? "control") <*> (x .:? "input") <*>+                     (x .:? "runId")+                     <*> (x .: "workflowId")+                     <*> (x .: "signalName")+                     <*> (x .: "decisionTaskCompletedEventId"))++instance Hashable+           SignalExternalWorkflowExecutionInitiatedEventAttributes+         where++instance NFData+           SignalExternalWorkflowExecutionInitiatedEventAttributes+         where++-- | Provides the details of the @StartChildWorkflowExecution@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * Constrain the following parameters by using a @Condition@ element with the appropriate keys.+--+--     * @tagList.member.N@ – The key is "swf:tagList.N" where N is the tag number from 0 to 4, inclusive.+--+--     * @taskList@ – String constraint. The key is @swf:taskList.name@ .+--+--     * @workflowType.name@ – String constraint. The key is @swf:workflowType.name@ .+--+--     * @workflowType.version@ – String constraint. The key is @swf:workflowType.version@ .+--+--+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'startChildWorkflowExecutionDecisionAttributes' smart constructor.+data StartChildWorkflowExecutionDecisionAttributes = StartChildWorkflowExecutionDecisionAttributes'+  { _scwedaControl                      :: !(Maybe Text)+  , _scwedaTagList                      :: !(Maybe [Text])+  , _scwedaTaskStartToCloseTimeout      :: !(Maybe Text)+  , _scwedaLambdaRole                   :: !(Maybe Text)+  , _scwedaInput                        :: !(Maybe Text)+  , _scwedaExecutionStartToCloseTimeout :: !(Maybe Text)+  , _scwedaTaskList                     :: !(Maybe TaskList)+  , _scwedaTaskPriority                 :: !(Maybe Text)+  , _scwedaChildPolicy                  :: !(Maybe ChildPolicy)+  , _scwedaWorkflowType                 :: !WorkflowType+  , _scwedaWorkflowId                   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartChildWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scwedaControl' - The data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the child workflow execution.+--+-- * 'scwedaTagList' - The list of tags to associate with the child workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' .+--+-- * 'scwedaTaskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'scwedaLambdaRole' - The IAM role attached to the child workflow execution.+--+-- * 'scwedaInput' - The input to be provided to the workflow execution.+--+-- * 'scwedaExecutionStartToCloseTimeout' - The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'scwedaTaskList' - The name of the task list to be used for decision tasks of the child workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+--+-- * 'scwedaTaskPriority' - A task priority that, if set, specifies the priority for a decision task of this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+--+-- * 'scwedaChildPolicy' - If set, specifies the policy to use for the child workflow executions if the workflow execution being started is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+--+-- * 'scwedaWorkflowType' - The type of the workflow execution to be started.+--+-- * 'scwedaWorkflowId' - The @workflowId@ of the workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+startChildWorkflowExecutionDecisionAttributes+    :: WorkflowType -- ^ 'scwedaWorkflowType'+    -> Text -- ^ 'scwedaWorkflowId'+    -> StartChildWorkflowExecutionDecisionAttributes+startChildWorkflowExecutionDecisionAttributes pWorkflowType_ pWorkflowId_ =+  StartChildWorkflowExecutionDecisionAttributes'+  { _scwedaControl = Nothing+  , _scwedaTagList = Nothing+  , _scwedaTaskStartToCloseTimeout = Nothing+  , _scwedaLambdaRole = Nothing+  , _scwedaInput = Nothing+  , _scwedaExecutionStartToCloseTimeout = Nothing+  , _scwedaTaskList = Nothing+  , _scwedaTaskPriority = Nothing+  , _scwedaChildPolicy = Nothing+  , _scwedaWorkflowType = pWorkflowType_+  , _scwedaWorkflowId = pWorkflowId_+  }+++-- | The data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the child workflow execution.+scwedaControl :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)+scwedaControl = lens _scwedaControl (\ s a -> s{_scwedaControl = a});++-- | The list of tags to associate with the child workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' .+scwedaTagList :: Lens' StartChildWorkflowExecutionDecisionAttributes [Text]+scwedaTagList = lens _scwedaTagList (\ s a -> s{_scwedaTagList = a}) . _Default . _Coerce;++-- | Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+scwedaTaskStartToCloseTimeout :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)+scwedaTaskStartToCloseTimeout = lens _scwedaTaskStartToCloseTimeout (\ s a -> s{_scwedaTaskStartToCloseTimeout = a});++-- | The IAM role attached to the child workflow execution.+scwedaLambdaRole :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)+scwedaLambdaRole = lens _scwedaLambdaRole (\ s a -> s{_scwedaLambdaRole = a});++-- | The input to be provided to the workflow execution.+scwedaInput :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)+scwedaInput = lens _scwedaInput (\ s a -> s{_scwedaInput = a});++-- | The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+scwedaExecutionStartToCloseTimeout :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)+scwedaExecutionStartToCloseTimeout = lens _scwedaExecutionStartToCloseTimeout (\ s a -> s{_scwedaExecutionStartToCloseTimeout = a});++-- | The name of the task list to be used for decision tasks of the child workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+scwedaTaskList :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe TaskList)+scwedaTaskList = lens _scwedaTaskList (\ s a -> s{_scwedaTaskList = a});++-- | A task priority that, if set, specifies the priority for a decision task of this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+scwedaTaskPriority :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)+scwedaTaskPriority = lens _scwedaTaskPriority (\ s a -> s{_scwedaTaskPriority = a});++-- | If set, specifies the policy to use for the child workflow executions if the workflow execution being started is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+scwedaChildPolicy :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe ChildPolicy)+scwedaChildPolicy = lens _scwedaChildPolicy (\ s a -> s{_scwedaChildPolicy = a});++-- | The type of the workflow execution to be started.+scwedaWorkflowType :: Lens' StartChildWorkflowExecutionDecisionAttributes WorkflowType+scwedaWorkflowType = lens _scwedaWorkflowType (\ s a -> s{_scwedaWorkflowType = a});++-- | The @workflowId@ of the workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+scwedaWorkflowId :: Lens' StartChildWorkflowExecutionDecisionAttributes Text+scwedaWorkflowId = lens _scwedaWorkflowId (\ s a -> s{_scwedaWorkflowId = a});++instance Hashable+           StartChildWorkflowExecutionDecisionAttributes+         where++instance NFData+           StartChildWorkflowExecutionDecisionAttributes+         where++instance ToJSON+           StartChildWorkflowExecutionDecisionAttributes+         where+        toJSON+          StartChildWorkflowExecutionDecisionAttributes'{..}+          = object+              (catMaybes+                 [("control" .=) <$> _scwedaControl,+                  ("tagList" .=) <$> _scwedaTagList,+                  ("taskStartToCloseTimeout" .=) <$>+                    _scwedaTaskStartToCloseTimeout,+                  ("lambdaRole" .=) <$> _scwedaLambdaRole,+                  ("input" .=) <$> _scwedaInput,+                  ("executionStartToCloseTimeout" .=) <$>+                    _scwedaExecutionStartToCloseTimeout,+                  ("taskList" .=) <$> _scwedaTaskList,+                  ("taskPriority" .=) <$> _scwedaTaskPriority,+                  ("childPolicy" .=) <$> _scwedaChildPolicy,+                  Just ("workflowType" .= _scwedaWorkflowType),+                  Just ("workflowId" .= _scwedaWorkflowId)])++-- | Provides the details of the @StartChildWorkflowExecutionFailed@ event.+--+--+--+-- /See:/ 'startChildWorkflowExecutionFailedEventAttributes' smart constructor.+data StartChildWorkflowExecutionFailedEventAttributes = StartChildWorkflowExecutionFailedEventAttributes'+  { _scwefeaControl :: !(Maybe Text)+  , _scwefeaWorkflowType :: !WorkflowType+  , _scwefeaCause :: !StartChildWorkflowExecutionFailedCause+  , _scwefeaWorkflowId :: !Text+  , _scwefeaInitiatedEventId :: !Integer+  , _scwefeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartChildWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scwefeaControl' - The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the child workflow execution.+--+-- * 'scwefeaWorkflowType' - The workflow type provided in the @StartChildWorkflowExecution@ 'Decision' that failed.+--+-- * 'scwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'scwefeaWorkflowId' - The @workflowId@ of the child workflow execution.+--+-- * 'scwefeaInitiatedEventId' - When the @cause@ is @WORKFLOW_ALREADY_RUNNING@ , @initiatedEventId@ is the ID of the @StartChildWorkflowExecutionInitiated@ event that corresponds to the @StartChildWorkflowExecution@ 'Decision' to start the workflow execution. You can use this information to diagnose problems by tracing back the chain of events leading up to this event. When the @cause@ isn't @WORKFLOW_ALREADY_RUNNING@ , @initiatedEventId@ is set to @0@ because the @StartChildWorkflowExecutionInitiated@ event doesn't exist.+--+-- * 'scwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ 'Decision' to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events.+startChildWorkflowExecutionFailedEventAttributes+    :: WorkflowType -- ^ 'scwefeaWorkflowType'+    -> StartChildWorkflowExecutionFailedCause -- ^ 'scwefeaCause'+    -> Text -- ^ 'scwefeaWorkflowId'+    -> Integer -- ^ 'scwefeaInitiatedEventId'+    -> Integer -- ^ 'scwefeaDecisionTaskCompletedEventId'+    -> StartChildWorkflowExecutionFailedEventAttributes+startChildWorkflowExecutionFailedEventAttributes pWorkflowType_ pCause_ pWorkflowId_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ =+  StartChildWorkflowExecutionFailedEventAttributes'+  { _scwefeaControl = Nothing+  , _scwefeaWorkflowType = pWorkflowType_+  , _scwefeaCause = pCause_+  , _scwefeaWorkflowId = pWorkflowId_+  , _scwefeaInitiatedEventId = pInitiatedEventId_+  , _scwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the child workflow execution.+scwefeaControl :: Lens' StartChildWorkflowExecutionFailedEventAttributes (Maybe Text)+scwefeaControl = lens _scwefeaControl (\ s a -> s{_scwefeaControl = a});++-- | The workflow type provided in the @StartChildWorkflowExecution@ 'Decision' that failed.+scwefeaWorkflowType :: Lens' StartChildWorkflowExecutionFailedEventAttributes WorkflowType+scwefeaWorkflowType = lens _scwefeaWorkflowType (\ s a -> s{_scwefeaWorkflowType = a});++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+scwefeaCause :: Lens' StartChildWorkflowExecutionFailedEventAttributes StartChildWorkflowExecutionFailedCause+scwefeaCause = lens _scwefeaCause (\ s a -> s{_scwefeaCause = a});++-- | The @workflowId@ of the child workflow execution.+scwefeaWorkflowId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Text+scwefeaWorkflowId = lens _scwefeaWorkflowId (\ s a -> s{_scwefeaWorkflowId = a});++-- | When the @cause@ is @WORKFLOW_ALREADY_RUNNING@ , @initiatedEventId@ is the ID of the @StartChildWorkflowExecutionInitiated@ event that corresponds to the @StartChildWorkflowExecution@ 'Decision' to start the workflow execution. You can use this information to diagnose problems by tracing back the chain of events leading up to this event. When the @cause@ isn't @WORKFLOW_ALREADY_RUNNING@ , @initiatedEventId@ is set to @0@ because the @StartChildWorkflowExecutionInitiated@ event doesn't exist.+scwefeaInitiatedEventId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Integer+scwefeaInitiatedEventId = lens _scwefeaInitiatedEventId (\ s a -> s{_scwefeaInitiatedEventId = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ 'Decision' to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events.+scwefeaDecisionTaskCompletedEventId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Integer+scwefeaDecisionTaskCompletedEventId = lens _scwefeaDecisionTaskCompletedEventId (\ s a -> s{_scwefeaDecisionTaskCompletedEventId = a});++instance FromJSON+           StartChildWorkflowExecutionFailedEventAttributes+         where+        parseJSON+          = withObject+              "StartChildWorkflowExecutionFailedEventAttributes"+              (\ x ->+                 StartChildWorkflowExecutionFailedEventAttributes' <$>+                   (x .:? "control") <*> (x .: "workflowType") <*>+                     (x .: "cause")+                     <*> (x .: "workflowId")+                     <*> (x .: "initiatedEventId")+                     <*> (x .: "decisionTaskCompletedEventId"))++instance Hashable+           StartChildWorkflowExecutionFailedEventAttributes+         where++instance NFData+           StartChildWorkflowExecutionFailedEventAttributes+         where++-- | Provides the details of the @StartChildWorkflowExecutionInitiated@ event.+--+--+--+-- /See:/ 'startChildWorkflowExecutionInitiatedEventAttributes' smart constructor.+data StartChildWorkflowExecutionInitiatedEventAttributes = StartChildWorkflowExecutionInitiatedEventAttributes'+  { _scweieaControl                      :: !(Maybe Text)+  , _scweieaTagList                      :: !(Maybe [Text])+  , _scweieaTaskStartToCloseTimeout      :: !(Maybe Text)+  , _scweieaLambdaRole                   :: !(Maybe Text)+  , _scweieaInput                        :: !(Maybe Text)+  , _scweieaExecutionStartToCloseTimeout :: !(Maybe Text)+  , _scweieaTaskPriority                 :: !(Maybe Text)+  , _scweieaWorkflowId                   :: !Text+  , _scweieaWorkflowType                 :: !WorkflowType+  , _scweieaTaskList                     :: !TaskList+  , _scweieaDecisionTaskCompletedEventId :: !Integer+  , _scweieaChildPolicy                  :: !ChildPolicy+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartChildWorkflowExecutionInitiatedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scweieaControl' - Data attached to the event that can be used by the decider in subsequent decision tasks. This data isn't sent to the activity.+--+-- * 'scweieaTagList' - The list of tags to associated with the child workflow execution.+--+-- * 'scweieaTaskStartToCloseTimeout' - The maximum duration allowed for the decision tasks for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'scweieaLambdaRole' - The IAM role to attach to the child workflow execution.+--+-- * 'scweieaInput' - The inputs provided to the child workflow execution.+--+-- * 'scweieaExecutionStartToCloseTimeout' - The maximum duration for the child workflow execution. If the workflow execution isn't closed within this duration, it is timed out and force-terminated. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'scweieaTaskPriority' - The priority assigned for the decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+--+-- * 'scweieaWorkflowId' - The @workflowId@ of the child workflow execution.+--+-- * 'scweieaWorkflowType' - The type of the child workflow execution.+--+-- * 'scweieaTaskList' - The name of the task list used for the decision tasks of the child workflow execution.+--+-- * 'scweieaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ 'Decision' to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the cause of events.+--+-- * 'scweieaChildPolicy' - The policy to use for the child workflow executions if this execution gets terminated by explicitly calling the 'TerminateWorkflowExecution' action or due to an expired timeout. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+startChildWorkflowExecutionInitiatedEventAttributes+    :: Text -- ^ 'scweieaWorkflowId'+    -> WorkflowType -- ^ 'scweieaWorkflowType'+    -> TaskList -- ^ 'scweieaTaskList'+    -> Integer -- ^ 'scweieaDecisionTaskCompletedEventId'+    -> ChildPolicy -- ^ 'scweieaChildPolicy'+    -> StartChildWorkflowExecutionInitiatedEventAttributes+startChildWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pWorkflowType_ pTaskList_ pDecisionTaskCompletedEventId_ pChildPolicy_ =+  StartChildWorkflowExecutionInitiatedEventAttributes'+  { _scweieaControl = Nothing+  , _scweieaTagList = Nothing+  , _scweieaTaskStartToCloseTimeout = Nothing+  , _scweieaLambdaRole = Nothing+  , _scweieaInput = Nothing+  , _scweieaExecutionStartToCloseTimeout = Nothing+  , _scweieaTaskPriority = Nothing+  , _scweieaWorkflowId = pWorkflowId_+  , _scweieaWorkflowType = pWorkflowType_+  , _scweieaTaskList = pTaskList_+  , _scweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  , _scweieaChildPolicy = pChildPolicy_+  }+++-- | Data attached to the event that can be used by the decider in subsequent decision tasks. This data isn't sent to the activity.+scweieaControl :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)+scweieaControl = lens _scweieaControl (\ s a -> s{_scweieaControl = a});++-- | The list of tags to associated with the child workflow execution.+scweieaTagList :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes [Text]+scweieaTagList = lens _scweieaTagList (\ s a -> s{_scweieaTagList = a}) . _Default . _Coerce;++-- | The maximum duration allowed for the decision tasks for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+scweieaTaskStartToCloseTimeout :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)+scweieaTaskStartToCloseTimeout = lens _scweieaTaskStartToCloseTimeout (\ s a -> s{_scweieaTaskStartToCloseTimeout = a});++-- | The IAM role to attach to the child workflow execution.+scweieaLambdaRole :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)+scweieaLambdaRole = lens _scweieaLambdaRole (\ s a -> s{_scweieaLambdaRole = a});++-- | The inputs provided to the child workflow execution.+scweieaInput :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)+scweieaInput = lens _scweieaInput (\ s a -> s{_scweieaInput = a});++-- | The maximum duration for the child workflow execution. If the workflow execution isn't closed within this duration, it is timed out and force-terminated. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+scweieaExecutionStartToCloseTimeout :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)+scweieaExecutionStartToCloseTimeout = lens _scweieaExecutionStartToCloseTimeout (\ s a -> s{_scweieaExecutionStartToCloseTimeout = a});++-- | The priority assigned for the decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+scweieaTaskPriority :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)+scweieaTaskPriority = lens _scweieaTaskPriority (\ s a -> s{_scweieaTaskPriority = a});++-- | The @workflowId@ of the child workflow execution.+scweieaWorkflowId :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes Text+scweieaWorkflowId = lens _scweieaWorkflowId (\ s a -> s{_scweieaWorkflowId = a});++-- | The type of the child workflow execution.+scweieaWorkflowType :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes WorkflowType+scweieaWorkflowType = lens _scweieaWorkflowType (\ s a -> s{_scweieaWorkflowType = a});++-- | The name of the task list used for the decision tasks of the child workflow execution.+scweieaTaskList :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes TaskList+scweieaTaskList = lens _scweieaTaskList (\ s a -> s{_scweieaTaskList = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ 'Decision' to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the cause of events.+scweieaDecisionTaskCompletedEventId :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes Integer+scweieaDecisionTaskCompletedEventId = lens _scweieaDecisionTaskCompletedEventId (\ s a -> s{_scweieaDecisionTaskCompletedEventId = a});++-- | The policy to use for the child workflow executions if this execution gets terminated by explicitly calling the 'TerminateWorkflowExecution' action or due to an expired timeout. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+scweieaChildPolicy :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes ChildPolicy+scweieaChildPolicy = lens _scweieaChildPolicy (\ s a -> s{_scweieaChildPolicy = a});++instance FromJSON+           StartChildWorkflowExecutionInitiatedEventAttributes+         where+        parseJSON+          = withObject+              "StartChildWorkflowExecutionInitiatedEventAttributes"+              (\ x ->+                 StartChildWorkflowExecutionInitiatedEventAttributes'+                   <$>+                   (x .:? "control") <*> (x .:? "tagList" .!= mempty)+                     <*> (x .:? "taskStartToCloseTimeout")+                     <*> (x .:? "lambdaRole")+                     <*> (x .:? "input")+                     <*> (x .:? "executionStartToCloseTimeout")+                     <*> (x .:? "taskPriority")+                     <*> (x .: "workflowId")+                     <*> (x .: "workflowType")+                     <*> (x .: "taskList")+                     <*> (x .: "decisionTaskCompletedEventId")+                     <*> (x .: "childPolicy"))++instance Hashable+           StartChildWorkflowExecutionInitiatedEventAttributes+         where++instance NFData+           StartChildWorkflowExecutionInitiatedEventAttributes+         where++-- | Provides the details of the @StartLambdaFunctionFailed@ event. It isn't set for other event types.+--+--+--+-- /See:/ 'startLambdaFunctionFailedEventAttributes' smart constructor.+data StartLambdaFunctionFailedEventAttributes = StartLambdaFunctionFailedEventAttributes'+  { _sScheduledEventId :: !(Maybe Integer)+  , _sCause            :: !(Maybe StartLambdaFunctionFailedCause)+  , _sMessage          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartLambdaFunctionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+--+-- * 'sCause' - The cause of the failure. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+--+-- * 'sMessage' - A description that can help diagnose the cause of the fault.+startLambdaFunctionFailedEventAttributes+    :: StartLambdaFunctionFailedEventAttributes+startLambdaFunctionFailedEventAttributes =+  StartLambdaFunctionFailedEventAttributes'+  {_sScheduledEventId = Nothing, _sCause = Nothing, _sMessage = Nothing}+++-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+sScheduledEventId :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe Integer)+sScheduledEventId = lens _sScheduledEventId (\ s a -> s{_sScheduledEventId = a});++-- | The cause of the failure. To help diagnose issues, use this information to trace back the chain of events leading up to this event.+sCause :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe StartLambdaFunctionFailedCause)+sCause = lens _sCause (\ s a -> s{_sCause = a});++-- | A description that can help diagnose the cause of the fault.+sMessage :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe Text)+sMessage = lens _sMessage (\ s a -> s{_sMessage = a});++instance FromJSON+           StartLambdaFunctionFailedEventAttributes+         where+        parseJSON+          = withObject+              "StartLambdaFunctionFailedEventAttributes"+              (\ x ->+                 StartLambdaFunctionFailedEventAttributes' <$>+                   (x .:? "scheduledEventId") <*> (x .:? "cause") <*>+                     (x .:? "message"))++instance Hashable+           StartLambdaFunctionFailedEventAttributes+         where++instance NFData+           StartLambdaFunctionFailedEventAttributes+         where++-- | Provides the details of the @StartTimer@ decision.+--+--+-- __Access Control__+--+-- You can use IAM policies to control this decision's access to Amazon SWF resources as follows:+--+--     * Use a @Resource@ element with the domain name to limit the action to only specified domains.+--+--     * Use an @Action@ element to allow or deny permission to call this action.+--+--     * You cannot use an IAM policy to constrain this action's parameters.+--+--+--+-- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows> in the /Amazon SWF Developer Guide/ .+--+--+-- /See:/ 'startTimerDecisionAttributes' smart constructor.+data StartTimerDecisionAttributes = StartTimerDecisionAttributes'+  { _stdaControl            :: !(Maybe Text)+  , _stdaTimerId            :: !Text+  , _stdaStartToFireTimeout :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartTimerDecisionAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'stdaControl' - The data attached to the event that can be used by the decider in subsequent workflow tasks.+--+-- * 'stdaTimerId' - The unique ID of the timer. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+--+-- * 'stdaStartToFireTimeout' - The duration to wait before firing the timer. The duration is specified in seconds, an integer greater than or equal to @0@ .+startTimerDecisionAttributes+    :: Text -- ^ 'stdaTimerId'+    -> Text -- ^ 'stdaStartToFireTimeout'+    -> StartTimerDecisionAttributes+startTimerDecisionAttributes pTimerId_ pStartToFireTimeout_ =+  StartTimerDecisionAttributes'+  { _stdaControl = Nothing+  , _stdaTimerId = pTimerId_+  , _stdaStartToFireTimeout = pStartToFireTimeout_+  }+++-- | The data attached to the event that can be used by the decider in subsequent workflow tasks.+stdaControl :: Lens' StartTimerDecisionAttributes (Maybe Text)+stdaControl = lens _stdaControl (\ s a -> s{_stdaControl = a});++-- | The unique ID of the timer. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ .+stdaTimerId :: Lens' StartTimerDecisionAttributes Text+stdaTimerId = lens _stdaTimerId (\ s a -> s{_stdaTimerId = a});++-- | The duration to wait before firing the timer. The duration is specified in seconds, an integer greater than or equal to @0@ .+stdaStartToFireTimeout :: Lens' StartTimerDecisionAttributes Text+stdaStartToFireTimeout = lens _stdaStartToFireTimeout (\ s a -> s{_stdaStartToFireTimeout = a});++instance Hashable StartTimerDecisionAttributes where++instance NFData StartTimerDecisionAttributes where++instance ToJSON StartTimerDecisionAttributes where+        toJSON StartTimerDecisionAttributes'{..}+          = object+              (catMaybes+                 [("control" .=) <$> _stdaControl,+                  Just ("timerId" .= _stdaTimerId),+                  Just+                    ("startToFireTimeout" .= _stdaStartToFireTimeout)])++-- | Provides the details of the @StartTimerFailed@ event.+--+--+--+-- /See:/ 'startTimerFailedEventAttributes' smart constructor.+data StartTimerFailedEventAttributes = StartTimerFailedEventAttributes'+  { _stfeaTimerId                      :: !Text+  , _stfeaCause                        :: !StartTimerFailedCause+  , _stfeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartTimerFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'stfeaTimerId' - The timerId provided in the @StartTimer@ decision that failed.+--+-- * 'stfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+--+-- * 'stfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+startTimerFailedEventAttributes+    :: Text -- ^ 'stfeaTimerId'+    -> StartTimerFailedCause -- ^ 'stfeaCause'+    -> Integer -- ^ 'stfeaDecisionTaskCompletedEventId'+    -> StartTimerFailedEventAttributes+startTimerFailedEventAttributes pTimerId_ pCause_ pDecisionTaskCompletedEventId_ =+  StartTimerFailedEventAttributes'+  { _stfeaTimerId = pTimerId_+  , _stfeaCause = pCause_+  , _stfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The timerId provided in the @StartTimer@ decision that failed.+stfeaTimerId :: Lens' StartTimerFailedEventAttributes Text+stfeaTimerId = lens _stfeaTimerId (\ s a -> s{_stfeaTimerId = a});++-- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes.+stfeaCause :: Lens' StartTimerFailedEventAttributes StartTimerFailedCause+stfeaCause = lens _stfeaCause (\ s a -> s{_stfeaCause = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+stfeaDecisionTaskCompletedEventId :: Lens' StartTimerFailedEventAttributes Integer+stfeaDecisionTaskCompletedEventId = lens _stfeaDecisionTaskCompletedEventId (\ s a -> s{_stfeaDecisionTaskCompletedEventId = a});++instance FromJSON StartTimerFailedEventAttributes+         where+        parseJSON+          = withObject "StartTimerFailedEventAttributes"+              (\ x ->+                 StartTimerFailedEventAttributes' <$>+                   (x .: "timerId") <*> (x .: "cause") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable StartTimerFailedEventAttributes+         where++instance NFData StartTimerFailedEventAttributes where++-- | Used to filter the workflow executions in visibility APIs based on a tag.+--+--+--+-- /See:/ 'tagFilter' smart constructor.+newtype TagFilter = TagFilter'+  { _tfTag :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TagFilter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tfTag' - Specifies the tag that must be associated with the execution for it to meet the filter criteria.+tagFilter+    :: Text -- ^ 'tfTag'+    -> TagFilter+tagFilter pTag_ = TagFilter' {_tfTag = pTag_}+++-- | Specifies the tag that must be associated with the execution for it to meet the filter criteria.+tfTag :: Lens' TagFilter Text+tfTag = lens _tfTag (\ s a -> s{_tfTag = a});++instance Hashable TagFilter where++instance NFData TagFilter where++instance ToJSON TagFilter where+        toJSON TagFilter'{..}+          = object (catMaybes [Just ("tag" .= _tfTag)])++-- | Represents a task list.+--+--+--+-- /See:/ 'taskList' smart constructor.+newtype TaskList = TaskList'+  { _tlName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TaskList' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tlName' - The name of the task list.+taskList+    :: Text -- ^ 'tlName'+    -> TaskList+taskList pName_ = TaskList' {_tlName = pName_}+++-- | The name of the task list.+tlName :: Lens' TaskList Text+tlName = lens _tlName (\ s a -> s{_tlName = a});++instance FromJSON TaskList where+        parseJSON+          = withObject "TaskList"+              (\ x -> TaskList' <$> (x .: "name"))++instance Hashable TaskList where++instance NFData TaskList where++instance ToJSON TaskList where+        toJSON TaskList'{..}+          = object (catMaybes [Just ("name" .= _tlName)])++-- | Provides the details of the @TimerCanceled@ event.+--+--+--+-- /See:/ 'timerCanceledEventAttributes' smart constructor.+data TimerCanceledEventAttributes = TimerCanceledEventAttributes'+  { _tceaTimerId                      :: !Text+  , _tceaStartedEventId               :: !Integer+  , _tceaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TimerCanceledEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tceaTimerId' - The unique ID of the timer that was canceled.+--+-- * 'tceaStartedEventId' - The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'tceaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+timerCanceledEventAttributes+    :: Text -- ^ 'tceaTimerId'+    -> Integer -- ^ 'tceaStartedEventId'+    -> Integer -- ^ 'tceaDecisionTaskCompletedEventId'+    -> TimerCanceledEventAttributes+timerCanceledEventAttributes pTimerId_ pStartedEventId_ pDecisionTaskCompletedEventId_ =+  TimerCanceledEventAttributes'+  { _tceaTimerId = pTimerId_+  , _tceaStartedEventId = pStartedEventId_+  , _tceaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The unique ID of the timer that was canceled.+tceaTimerId :: Lens' TimerCanceledEventAttributes Text+tceaTimerId = lens _tceaTimerId (\ s a -> s{_tceaTimerId = a});++-- | The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+tceaStartedEventId :: Lens' TimerCanceledEventAttributes Integer+tceaStartedEventId = lens _tceaStartedEventId (\ s a -> s{_tceaStartedEventId = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+tceaDecisionTaskCompletedEventId :: Lens' TimerCanceledEventAttributes Integer+tceaDecisionTaskCompletedEventId = lens _tceaDecisionTaskCompletedEventId (\ s a -> s{_tceaDecisionTaskCompletedEventId = a});++instance FromJSON TimerCanceledEventAttributes where+        parseJSON+          = withObject "TimerCanceledEventAttributes"+              (\ x ->+                 TimerCanceledEventAttributes' <$>+                   (x .: "timerId") <*> (x .: "startedEventId") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable TimerCanceledEventAttributes where++instance NFData TimerCanceledEventAttributes where++-- | Provides the details of the @TimerFired@ event.+--+--+--+-- /See:/ 'timerFiredEventAttributes' smart constructor.+data TimerFiredEventAttributes = TimerFiredEventAttributes'+  { _tfeaTimerId        :: !Text+  , _tfeaStartedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TimerFiredEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tfeaTimerId' - The unique ID of the timer that fired.+--+-- * 'tfeaStartedEventId' - The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+timerFiredEventAttributes+    :: Text -- ^ 'tfeaTimerId'+    -> Integer -- ^ 'tfeaStartedEventId'+    -> TimerFiredEventAttributes+timerFiredEventAttributes pTimerId_ pStartedEventId_ =+  TimerFiredEventAttributes'+  {_tfeaTimerId = pTimerId_, _tfeaStartedEventId = pStartedEventId_}+++-- | The unique ID of the timer that fired.+tfeaTimerId :: Lens' TimerFiredEventAttributes Text+tfeaTimerId = lens _tfeaTimerId (\ s a -> s{_tfeaTimerId = a});++-- | The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+tfeaStartedEventId :: Lens' TimerFiredEventAttributes Integer+tfeaStartedEventId = lens _tfeaStartedEventId (\ s a -> s{_tfeaStartedEventId = a});++instance FromJSON TimerFiredEventAttributes where+        parseJSON+          = withObject "TimerFiredEventAttributes"+              (\ x ->+                 TimerFiredEventAttributes' <$>+                   (x .: "timerId") <*> (x .: "startedEventId"))++instance Hashable TimerFiredEventAttributes where++instance NFData TimerFiredEventAttributes where++-- | Provides the details of the @TimerStarted@ event.+--+--+--+-- /See:/ 'timerStartedEventAttributes' smart constructor.+data TimerStartedEventAttributes = TimerStartedEventAttributes'+  { _tseaControl                      :: !(Maybe Text)+  , _tseaTimerId                      :: !Text+  , _tseaStartToFireTimeout           :: !Text+  , _tseaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TimerStartedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tseaControl' - Data attached to the event that can be used by the decider in subsequent workflow tasks.+--+-- * 'tseaTimerId' - The unique ID of the timer that was started.+--+-- * 'tseaStartToFireTimeout' - The duration of time after which the timer fires. The duration is specified in seconds, an integer greater than or equal to @0@ .+--+-- * 'tseaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+timerStartedEventAttributes+    :: Text -- ^ 'tseaTimerId'+    -> Text -- ^ 'tseaStartToFireTimeout'+    -> Integer -- ^ 'tseaDecisionTaskCompletedEventId'+    -> TimerStartedEventAttributes+timerStartedEventAttributes pTimerId_ pStartToFireTimeout_ pDecisionTaskCompletedEventId_ =+  TimerStartedEventAttributes'+  { _tseaControl = Nothing+  , _tseaTimerId = pTimerId_+  , _tseaStartToFireTimeout = pStartToFireTimeout_+  , _tseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | Data attached to the event that can be used by the decider in subsequent workflow tasks.+tseaControl :: Lens' TimerStartedEventAttributes (Maybe Text)+tseaControl = lens _tseaControl (\ s a -> s{_tseaControl = a});++-- | The unique ID of the timer that was started.+tseaTimerId :: Lens' TimerStartedEventAttributes Text+tseaTimerId = lens _tseaTimerId (\ s a -> s{_tseaTimerId = a});++-- | The duration of time after which the timer fires. The duration is specified in seconds, an integer greater than or equal to @0@ .+tseaStartToFireTimeout :: Lens' TimerStartedEventAttributes Text+tseaStartToFireTimeout = lens _tseaStartToFireTimeout (\ s a -> s{_tseaStartToFireTimeout = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+tseaDecisionTaskCompletedEventId :: Lens' TimerStartedEventAttributes Integer+tseaDecisionTaskCompletedEventId = lens _tseaDecisionTaskCompletedEventId (\ s a -> s{_tseaDecisionTaskCompletedEventId = a});++instance FromJSON TimerStartedEventAttributes where+        parseJSON+          = withObject "TimerStartedEventAttributes"+              (\ x ->+                 TimerStartedEventAttributes' <$>+                   (x .:? "control") <*> (x .: "timerId") <*>+                     (x .: "startToFireTimeout")+                     <*> (x .: "decisionTaskCompletedEventId"))++instance Hashable TimerStartedEventAttributes where++instance NFData TimerStartedEventAttributes where++-- | Represents a workflow execution.+--+--+--+-- /See:/ 'workflowExecution' smart constructor.+data WorkflowExecution = WorkflowExecution'+  { _weWorkflowId :: !Text+  , _weRunId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecution' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'weWorkflowId' - The user defined identifier associated with the workflow execution.+--+-- * 'weRunId' - A system-generated unique identifier for the workflow execution.+workflowExecution+    :: Text -- ^ 'weWorkflowId'+    -> Text -- ^ 'weRunId'+    -> WorkflowExecution+workflowExecution pWorkflowId_ pRunId_ =+  WorkflowExecution' {_weWorkflowId = pWorkflowId_, _weRunId = pRunId_}+++-- | The user defined identifier associated with the workflow execution.+weWorkflowId :: Lens' WorkflowExecution Text+weWorkflowId = lens _weWorkflowId (\ s a -> s{_weWorkflowId = a});++-- | A system-generated unique identifier for the workflow execution.+weRunId :: Lens' WorkflowExecution Text+weRunId = lens _weRunId (\ s a -> s{_weRunId = a});++instance FromJSON WorkflowExecution where+        parseJSON+          = withObject "WorkflowExecution"+              (\ x ->+                 WorkflowExecution' <$>+                   (x .: "workflowId") <*> (x .: "runId"))++instance Hashable WorkflowExecution where++instance NFData WorkflowExecution where++instance ToJSON WorkflowExecution where+        toJSON WorkflowExecution'{..}+          = object+              (catMaybes+                 [Just ("workflowId" .= _weWorkflowId),+                  Just ("runId" .= _weRunId)])++-- | Provides the details of the @WorkflowExecutionCancelRequested@ event.+--+--+--+-- /See:/ 'workflowExecutionCancelRequestedEventAttributes' smart constructor.+data WorkflowExecutionCancelRequestedEventAttributes = WorkflowExecutionCancelRequestedEventAttributes'+  { _wecreaExternalWorkflowExecution :: !(Maybe WorkflowExecution)+  , _wecreaExternalInitiatedEventId :: !(Maybe Integer)+  , _wecreaCause :: !(Maybe WorkflowExecutionCancelRequestedCause)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionCancelRequestedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wecreaExternalWorkflowExecution' - The external workflow execution for which the cancellation was requested.+--+-- * 'wecreaExternalInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'wecreaCause' - If set, indicates that the request to cancel the workflow execution was automatically generated, and specifies the cause. This happens if the parent workflow execution times out or is terminated, and the child policy is set to cancel child executions.+workflowExecutionCancelRequestedEventAttributes+    :: WorkflowExecutionCancelRequestedEventAttributes+workflowExecutionCancelRequestedEventAttributes =+  WorkflowExecutionCancelRequestedEventAttributes'+  { _wecreaExternalWorkflowExecution = Nothing+  , _wecreaExternalInitiatedEventId = Nothing+  , _wecreaCause = Nothing+  }+++-- | The external workflow execution for which the cancellation was requested.+wecreaExternalWorkflowExecution :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe WorkflowExecution)+wecreaExternalWorkflowExecution = lens _wecreaExternalWorkflowExecution (\ s a -> s{_wecreaExternalWorkflowExecution = a});++-- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+wecreaExternalInitiatedEventId :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe Integer)+wecreaExternalInitiatedEventId = lens _wecreaExternalInitiatedEventId (\ s a -> s{_wecreaExternalInitiatedEventId = a});++-- | If set, indicates that the request to cancel the workflow execution was automatically generated, and specifies the cause. This happens if the parent workflow execution times out or is terminated, and the child policy is set to cancel child executions.+wecreaCause :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe WorkflowExecutionCancelRequestedCause)+wecreaCause = lens _wecreaCause (\ s a -> s{_wecreaCause = a});++instance FromJSON+           WorkflowExecutionCancelRequestedEventAttributes+         where+        parseJSON+          = withObject+              "WorkflowExecutionCancelRequestedEventAttributes"+              (\ x ->+                 WorkflowExecutionCancelRequestedEventAttributes' <$>+                   (x .:? "externalWorkflowExecution") <*>+                     (x .:? "externalInitiatedEventId")+                     <*> (x .:? "cause"))++instance Hashable+           WorkflowExecutionCancelRequestedEventAttributes+         where++instance NFData+           WorkflowExecutionCancelRequestedEventAttributes+         where++-- | Provides the details of the @WorkflowExecutionCanceled@ event.+--+--+--+-- /See:/ 'workflowExecutionCanceledEventAttributes' smart constructor.+data WorkflowExecutionCanceledEventAttributes = WorkflowExecutionCanceledEventAttributes'+  { _wDetails                      :: !(Maybe Text)+  , _wDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionCanceledEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wDetails' - The details of the cancellation.+--+-- * 'wDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+workflowExecutionCanceledEventAttributes+    :: Integer -- ^ 'wDecisionTaskCompletedEventId'+    -> WorkflowExecutionCanceledEventAttributes+workflowExecutionCanceledEventAttributes pDecisionTaskCompletedEventId_ =+  WorkflowExecutionCanceledEventAttributes'+  { _wDetails = Nothing+  , _wDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The details of the cancellation.+wDetails :: Lens' WorkflowExecutionCanceledEventAttributes (Maybe Text)+wDetails = lens _wDetails (\ s a -> s{_wDetails = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+wDecisionTaskCompletedEventId :: Lens' WorkflowExecutionCanceledEventAttributes Integer+wDecisionTaskCompletedEventId = lens _wDecisionTaskCompletedEventId (\ s a -> s{_wDecisionTaskCompletedEventId = a});++instance FromJSON+           WorkflowExecutionCanceledEventAttributes+         where+        parseJSON+          = withObject+              "WorkflowExecutionCanceledEventAttributes"+              (\ x ->+                 WorkflowExecutionCanceledEventAttributes' <$>+                   (x .:? "details") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable+           WorkflowExecutionCanceledEventAttributes+         where++instance NFData+           WorkflowExecutionCanceledEventAttributes+         where++-- | Provides the details of the @WorkflowExecutionCompleted@ event.+--+--+--+-- /See:/ 'workflowExecutionCompletedEventAttributes' smart constructor.+data WorkflowExecutionCompletedEventAttributes = WorkflowExecutionCompletedEventAttributes'+  { _weceaResult                       :: !(Maybe Text)+  , _weceaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionCompletedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'weceaResult' - The result produced by the workflow execution upon successful completion.+--+-- * 'weceaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+workflowExecutionCompletedEventAttributes+    :: Integer -- ^ 'weceaDecisionTaskCompletedEventId'+    -> WorkflowExecutionCompletedEventAttributes+workflowExecutionCompletedEventAttributes pDecisionTaskCompletedEventId_ =+  WorkflowExecutionCompletedEventAttributes'+  { _weceaResult = Nothing+  , _weceaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The result produced by the workflow execution upon successful completion.+weceaResult :: Lens' WorkflowExecutionCompletedEventAttributes (Maybe Text)+weceaResult = lens _weceaResult (\ s a -> s{_weceaResult = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+weceaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionCompletedEventAttributes Integer+weceaDecisionTaskCompletedEventId = lens _weceaDecisionTaskCompletedEventId (\ s a -> s{_weceaDecisionTaskCompletedEventId = a});++instance FromJSON+           WorkflowExecutionCompletedEventAttributes+         where+        parseJSON+          = withObject+              "WorkflowExecutionCompletedEventAttributes"+              (\ x ->+                 WorkflowExecutionCompletedEventAttributes' <$>+                   (x .:? "result") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable+           WorkflowExecutionCompletedEventAttributes+         where++instance NFData+           WorkflowExecutionCompletedEventAttributes+         where++-- | The configuration settings for a workflow execution including timeout values, tasklist etc. These configuration settings are determined from the defaults specified when registering the workflow type and those specified when starting the workflow execution.+--+--+--+-- /See:/ 'workflowExecutionConfiguration' smart constructor.+data WorkflowExecutionConfiguration = WorkflowExecutionConfiguration'+  { _wecLambdaRole                   :: !(Maybe Text)+  , _wecTaskPriority                 :: !(Maybe Text)+  , _wecTaskStartToCloseTimeout      :: !Text+  , _wecExecutionStartToCloseTimeout :: !Text+  , _wecTaskList                     :: !TaskList+  , _wecChildPolicy                  :: !ChildPolicy+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wecLambdaRole' - The IAM role attached to the child workflow execution.+--+-- * 'wecTaskPriority' - The priority assigned to decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+--+-- * 'wecTaskStartToCloseTimeout' - The maximum duration allowed for decision tasks for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'wecExecutionStartToCloseTimeout' - The total duration for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'wecTaskList' - The task list used for the decision tasks generated for this workflow execution.+--+-- * 'wecChildPolicy' - The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+workflowExecutionConfiguration+    :: Text -- ^ 'wecTaskStartToCloseTimeout'+    -> Text -- ^ 'wecExecutionStartToCloseTimeout'+    -> TaskList -- ^ 'wecTaskList'+    -> ChildPolicy -- ^ 'wecChildPolicy'+    -> WorkflowExecutionConfiguration+workflowExecutionConfiguration pTaskStartToCloseTimeout_ pExecutionStartToCloseTimeout_ pTaskList_ pChildPolicy_ =+  WorkflowExecutionConfiguration'+  { _wecLambdaRole = Nothing+  , _wecTaskPriority = Nothing+  , _wecTaskStartToCloseTimeout = pTaskStartToCloseTimeout_+  , _wecExecutionStartToCloseTimeout = pExecutionStartToCloseTimeout_+  , _wecTaskList = pTaskList_+  , _wecChildPolicy = pChildPolicy_+  }+++-- | The IAM role attached to the child workflow execution.+wecLambdaRole :: Lens' WorkflowExecutionConfiguration (Maybe Text)+wecLambdaRole = lens _wecLambdaRole (\ s a -> s{_wecLambdaRole = a});++-- | The priority assigned to decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+wecTaskPriority :: Lens' WorkflowExecutionConfiguration (Maybe Text)+wecTaskPriority = lens _wecTaskPriority (\ s a -> s{_wecTaskPriority = a});++-- | The maximum duration allowed for decision tasks for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+wecTaskStartToCloseTimeout :: Lens' WorkflowExecutionConfiguration Text+wecTaskStartToCloseTimeout = lens _wecTaskStartToCloseTimeout (\ s a -> s{_wecTaskStartToCloseTimeout = a});++-- | The total duration for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+wecExecutionStartToCloseTimeout :: Lens' WorkflowExecutionConfiguration Text+wecExecutionStartToCloseTimeout = lens _wecExecutionStartToCloseTimeout (\ s a -> s{_wecExecutionStartToCloseTimeout = a});++-- | The task list used for the decision tasks generated for this workflow execution.+wecTaskList :: Lens' WorkflowExecutionConfiguration TaskList+wecTaskList = lens _wecTaskList (\ s a -> s{_wecTaskList = a});++-- | The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+wecChildPolicy :: Lens' WorkflowExecutionConfiguration ChildPolicy+wecChildPolicy = lens _wecChildPolicy (\ s a -> s{_wecChildPolicy = a});++instance FromJSON WorkflowExecutionConfiguration+         where+        parseJSON+          = withObject "WorkflowExecutionConfiguration"+              (\ x ->+                 WorkflowExecutionConfiguration' <$>+                   (x .:? "lambdaRole") <*> (x .:? "taskPriority") <*>+                     (x .: "taskStartToCloseTimeout")+                     <*> (x .: "executionStartToCloseTimeout")+                     <*> (x .: "taskList")+                     <*> (x .: "childPolicy"))++instance Hashable WorkflowExecutionConfiguration+         where++instance NFData WorkflowExecutionConfiguration where++-- | Provides the details of the @WorkflowExecutionContinuedAsNew@ event.+--+--+--+-- /See:/ 'workflowExecutionContinuedAsNewEventAttributes' smart constructor.+data WorkflowExecutionContinuedAsNewEventAttributes = WorkflowExecutionContinuedAsNewEventAttributes'+  { _wecaneaTagList                      :: !(Maybe [Text])+  , _wecaneaTaskStartToCloseTimeout      :: !(Maybe Text)+  , _wecaneaLambdaRole                   :: !(Maybe Text)+  , _wecaneaInput                        :: !(Maybe Text)+  , _wecaneaExecutionStartToCloseTimeout :: !(Maybe Text)+  , _wecaneaTaskPriority                 :: !(Maybe Text)+  , _wecaneaDecisionTaskCompletedEventId :: !Integer+  , _wecaneaNewExecutionRunId            :: !Text+  , _wecaneaTaskList                     :: !TaskList+  , _wecaneaChildPolicy                  :: !ChildPolicy+  , _wecaneaWorkflowType                 :: !WorkflowType+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionContinuedAsNewEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wecaneaTagList' - The list of tags associated with the new workflow execution.+--+-- * 'wecaneaTaskStartToCloseTimeout' - The maximum duration of decision tasks for the new workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'wecaneaLambdaRole' - The IAM role to attach to the new (continued) workflow execution.+--+-- * 'wecaneaInput' - The input provided to the new workflow execution.+--+-- * 'wecaneaExecutionStartToCloseTimeout' - The total duration allowed for the new workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'wecaneaTaskPriority' - The priority of the task to use for the decisions of the new (continued) workflow execution.+--+-- * 'wecaneaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'wecaneaNewExecutionRunId' - The @runId@ of the new workflow execution.+--+-- * 'wecaneaTaskList' - The task list to use for the decisions of the new (continued) workflow execution.+--+-- * 'wecaneaChildPolicy' - The policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+--+-- * 'wecaneaWorkflowType' - The workflow type of this execution.+workflowExecutionContinuedAsNewEventAttributes+    :: Integer -- ^ 'wecaneaDecisionTaskCompletedEventId'+    -> Text -- ^ 'wecaneaNewExecutionRunId'+    -> TaskList -- ^ 'wecaneaTaskList'+    -> ChildPolicy -- ^ 'wecaneaChildPolicy'+    -> WorkflowType -- ^ 'wecaneaWorkflowType'+    -> WorkflowExecutionContinuedAsNewEventAttributes+workflowExecutionContinuedAsNewEventAttributes pDecisionTaskCompletedEventId_ pNewExecutionRunId_ pTaskList_ pChildPolicy_ pWorkflowType_ =+  WorkflowExecutionContinuedAsNewEventAttributes'+  { _wecaneaTagList = Nothing+  , _wecaneaTaskStartToCloseTimeout = Nothing+  , _wecaneaLambdaRole = Nothing+  , _wecaneaInput = Nothing+  , _wecaneaExecutionStartToCloseTimeout = Nothing+  , _wecaneaTaskPriority = Nothing+  , _wecaneaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  , _wecaneaNewExecutionRunId = pNewExecutionRunId_+  , _wecaneaTaskList = pTaskList_+  , _wecaneaChildPolicy = pChildPolicy_+  , _wecaneaWorkflowType = pWorkflowType_+  }+++-- | The list of tags associated with the new workflow execution.+wecaneaTagList :: Lens' WorkflowExecutionContinuedAsNewEventAttributes [Text]+wecaneaTagList = lens _wecaneaTagList (\ s a -> s{_wecaneaTagList = a}) . _Default . _Coerce;++-- | The maximum duration of decision tasks for the new workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+wecaneaTaskStartToCloseTimeout :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)+wecaneaTaskStartToCloseTimeout = lens _wecaneaTaskStartToCloseTimeout (\ s a -> s{_wecaneaTaskStartToCloseTimeout = a});++-- | The IAM role to attach to the new (continued) workflow execution.+wecaneaLambdaRole :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)+wecaneaLambdaRole = lens _wecaneaLambdaRole (\ s a -> s{_wecaneaLambdaRole = a});++-- | The input provided to the new workflow execution.+wecaneaInput :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)+wecaneaInput = lens _wecaneaInput (\ s a -> s{_wecaneaInput = a});++-- | The total duration allowed for the new workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+wecaneaExecutionStartToCloseTimeout :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)+wecaneaExecutionStartToCloseTimeout = lens _wecaneaExecutionStartToCloseTimeout (\ s a -> s{_wecaneaExecutionStartToCloseTimeout = a});++-- | The priority of the task to use for the decisions of the new (continued) workflow execution.+wecaneaTaskPriority :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)+wecaneaTaskPriority = lens _wecaneaTaskPriority (\ s a -> s{_wecaneaTaskPriority = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+wecaneaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionContinuedAsNewEventAttributes Integer+wecaneaDecisionTaskCompletedEventId = lens _wecaneaDecisionTaskCompletedEventId (\ s a -> s{_wecaneaDecisionTaskCompletedEventId = a});++-- | The @runId@ of the new workflow execution.+wecaneaNewExecutionRunId :: Lens' WorkflowExecutionContinuedAsNewEventAttributes Text+wecaneaNewExecutionRunId = lens _wecaneaNewExecutionRunId (\ s a -> s{_wecaneaNewExecutionRunId = a});++-- | The task list to use for the decisions of the new (continued) workflow execution.+wecaneaTaskList :: Lens' WorkflowExecutionContinuedAsNewEventAttributes TaskList+wecaneaTaskList = lens _wecaneaTaskList (\ s a -> s{_wecaneaTaskList = a});++-- | The policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+wecaneaChildPolicy :: Lens' WorkflowExecutionContinuedAsNewEventAttributes ChildPolicy+wecaneaChildPolicy = lens _wecaneaChildPolicy (\ s a -> s{_wecaneaChildPolicy = a});++-- | The workflow type of this execution.+wecaneaWorkflowType :: Lens' WorkflowExecutionContinuedAsNewEventAttributes WorkflowType+wecaneaWorkflowType = lens _wecaneaWorkflowType (\ s a -> s{_wecaneaWorkflowType = a});++instance FromJSON+           WorkflowExecutionContinuedAsNewEventAttributes+         where+        parseJSON+          = withObject+              "WorkflowExecutionContinuedAsNewEventAttributes"+              (\ x ->+                 WorkflowExecutionContinuedAsNewEventAttributes' <$>+                   (x .:? "tagList" .!= mempty) <*>+                     (x .:? "taskStartToCloseTimeout")+                     <*> (x .:? "lambdaRole")+                     <*> (x .:? "input")+                     <*> (x .:? "executionStartToCloseTimeout")+                     <*> (x .:? "taskPriority")+                     <*> (x .: "decisionTaskCompletedEventId")+                     <*> (x .: "newExecutionRunId")+                     <*> (x .: "taskList")+                     <*> (x .: "childPolicy")+                     <*> (x .: "workflowType"))++instance Hashable+           WorkflowExecutionContinuedAsNewEventAttributes+         where++instance NFData+           WorkflowExecutionContinuedAsNewEventAttributes+         where++-- | Contains the count of workflow executions returned from 'CountOpenWorkflowExecutions' or 'CountClosedWorkflowExecutions'+--+--+--+-- /See:/ 'workflowExecutionCount' smart constructor.+data WorkflowExecutionCount = WorkflowExecutionCount'+  { _wecTruncated :: !(Maybe Bool)+  , _wecCount     :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionCount' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wecTruncated' - If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value.+--+-- * 'wecCount' - The number of workflow executions.+workflowExecutionCount+    :: Natural -- ^ 'wecCount'+    -> WorkflowExecutionCount+workflowExecutionCount pCount_ =+  WorkflowExecutionCount' {_wecTruncated = Nothing, _wecCount = _Nat # pCount_}+++-- | If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value.+wecTruncated :: Lens' WorkflowExecutionCount (Maybe Bool)+wecTruncated = lens _wecTruncated (\ s a -> s{_wecTruncated = a});++-- | The number of workflow executions.+wecCount :: Lens' WorkflowExecutionCount Natural+wecCount = lens _wecCount (\ s a -> s{_wecCount = a}) . _Nat;++instance FromJSON WorkflowExecutionCount where+        parseJSON+          = withObject "WorkflowExecutionCount"+              (\ x ->+                 WorkflowExecutionCount' <$>+                   (x .:? "truncated") <*> (x .: "count"))++instance Hashable WorkflowExecutionCount where++instance NFData WorkflowExecutionCount where++-- | Provides the details of the @WorkflowExecutionFailed@ event.+--+--+--+-- /See:/ 'workflowExecutionFailedEventAttributes' smart constructor.+data WorkflowExecutionFailedEventAttributes = WorkflowExecutionFailedEventAttributes'+  { _wefeaReason                       :: !(Maybe Text)+  , _wefeaDetails                      :: !(Maybe Text)+  , _wefeaDecisionTaskCompletedEventId :: !Integer+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wefeaReason' - The descriptive reason provided for the failure.+--+-- * 'wefeaDetails' - The details of the failure.+--+-- * 'wefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+workflowExecutionFailedEventAttributes+    :: Integer -- ^ 'wefeaDecisionTaskCompletedEventId'+    -> WorkflowExecutionFailedEventAttributes+workflowExecutionFailedEventAttributes pDecisionTaskCompletedEventId_ =+  WorkflowExecutionFailedEventAttributes'+  { _wefeaReason = Nothing+  , _wefeaDetails = Nothing+  , _wefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_+  }+++-- | The descriptive reason provided for the failure.+wefeaReason :: Lens' WorkflowExecutionFailedEventAttributes (Maybe Text)+wefeaReason = lens _wefeaReason (\ s a -> s{_wefeaReason = a});++-- | The details of the failure.+wefeaDetails :: Lens' WorkflowExecutionFailedEventAttributes (Maybe Text)+wefeaDetails = lens _wefeaDetails (\ s a -> s{_wefeaDetails = a});++-- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+wefeaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionFailedEventAttributes Integer+wefeaDecisionTaskCompletedEventId = lens _wefeaDecisionTaskCompletedEventId (\ s a -> s{_wefeaDecisionTaskCompletedEventId = a});++instance FromJSON+           WorkflowExecutionFailedEventAttributes+         where+        parseJSON+          = withObject "WorkflowExecutionFailedEventAttributes"+              (\ x ->+                 WorkflowExecutionFailedEventAttributes' <$>+                   (x .:? "reason") <*> (x .:? "details") <*>+                     (x .: "decisionTaskCompletedEventId"))++instance Hashable+           WorkflowExecutionFailedEventAttributes+         where++instance NFData+           WorkflowExecutionFailedEventAttributes+         where++-- | Used to filter the workflow executions in visibility APIs by their @workflowId@ .+--+--+--+-- /See:/ 'workflowExecutionFilter' smart constructor.+newtype WorkflowExecutionFilter = WorkflowExecutionFilter'+  { _wefWorkflowId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionFilter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wefWorkflowId' - The workflowId to pass of match the criteria of this filter.+workflowExecutionFilter+    :: Text -- ^ 'wefWorkflowId'+    -> WorkflowExecutionFilter+workflowExecutionFilter pWorkflowId_ =+  WorkflowExecutionFilter' {_wefWorkflowId = pWorkflowId_}+++-- | The workflowId to pass of match the criteria of this filter.+wefWorkflowId :: Lens' WorkflowExecutionFilter Text+wefWorkflowId = lens _wefWorkflowId (\ s a -> s{_wefWorkflowId = a});++instance Hashable WorkflowExecutionFilter where++instance NFData WorkflowExecutionFilter where++instance ToJSON WorkflowExecutionFilter where+        toJSON WorkflowExecutionFilter'{..}+          = object+              (catMaybes [Just ("workflowId" .= _wefWorkflowId)])++-- | Contains information about a workflow execution.+--+--+--+-- /See:/ 'workflowExecutionInfo' smart constructor.+data WorkflowExecutionInfo = WorkflowExecutionInfo'+  { _weiParent          :: !(Maybe WorkflowExecution)+  , _weiTagList         :: !(Maybe [Text])+  , _weiCloseStatus     :: !(Maybe CloseStatus)+  , _weiCloseTimestamp  :: !(Maybe POSIX)+  , _weiCancelRequested :: !(Maybe Bool)+  , _weiExecution       :: !WorkflowExecution+  , _weiWorkflowType    :: !WorkflowType+  , _weiStartTimestamp  :: !POSIX+  , _weiExecutionStatus :: !ExecutionStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'weiParent' - If this workflow execution is a child of another execution then contains the workflow execution that started this execution.+--+-- * 'weiTagList' - The list of tags associated with the workflow execution. Tags can be used to identify and list workflow executions of interest through the visibility APIs. A workflow execution can have a maximum of 5 tags.+--+-- * 'weiCloseStatus' - If the execution status is closed then this specifies how the execution was closed:     * @COMPLETED@ – the execution was successfully completed.     * @CANCELED@ – the execution was canceled.Cancellation allows the implementation to gracefully clean up before the execution is closed.     * @TERMINATED@ – the execution was force terminated.     * @FAILED@ – the execution failed to complete.     * @TIMED_OUT@ – the execution did not complete in the alloted time and was automatically timed out.     * @CONTINUED_AS_NEW@ – the execution is logically continued. This means the current execution was completed and a new execution was started to carry on the workflow.+--+-- * 'weiCloseTimestamp' - The time when the workflow execution was closed. Set only if the execution status is CLOSED.+--+-- * 'weiCancelRequested' - Set to true if a cancellation is requested for this workflow execution.+--+-- * 'weiExecution' - The workflow execution this information is about.+--+-- * 'weiWorkflowType' - The type of the workflow execution.+--+-- * 'weiStartTimestamp' - The time when the execution was started.+--+-- * 'weiExecutionStatus' - The current status of the execution.+workflowExecutionInfo+    :: WorkflowExecution -- ^ 'weiExecution'+    -> WorkflowType -- ^ 'weiWorkflowType'+    -> UTCTime -- ^ 'weiStartTimestamp'+    -> ExecutionStatus -- ^ 'weiExecutionStatus'+    -> WorkflowExecutionInfo+workflowExecutionInfo pExecution_ pWorkflowType_ pStartTimestamp_ pExecutionStatus_ =+  WorkflowExecutionInfo'+  { _weiParent = Nothing+  , _weiTagList = Nothing+  , _weiCloseStatus = Nothing+  , _weiCloseTimestamp = Nothing+  , _weiCancelRequested = Nothing+  , _weiExecution = pExecution_+  , _weiWorkflowType = pWorkflowType_+  , _weiStartTimestamp = _Time # pStartTimestamp_+  , _weiExecutionStatus = pExecutionStatus_+  }+++-- | If this workflow execution is a child of another execution then contains the workflow execution that started this execution.+weiParent :: Lens' WorkflowExecutionInfo (Maybe WorkflowExecution)+weiParent = lens _weiParent (\ s a -> s{_weiParent = a});++-- | The list of tags associated with the workflow execution. Tags can be used to identify and list workflow executions of interest through the visibility APIs. A workflow execution can have a maximum of 5 tags.+weiTagList :: Lens' WorkflowExecutionInfo [Text]+weiTagList = lens _weiTagList (\ s a -> s{_weiTagList = a}) . _Default . _Coerce;++-- | If the execution status is closed then this specifies how the execution was closed:     * @COMPLETED@ – the execution was successfully completed.     * @CANCELED@ – the execution was canceled.Cancellation allows the implementation to gracefully clean up before the execution is closed.     * @TERMINATED@ – the execution was force terminated.     * @FAILED@ – the execution failed to complete.     * @TIMED_OUT@ – the execution did not complete in the alloted time and was automatically timed out.     * @CONTINUED_AS_NEW@ – the execution is logically continued. This means the current execution was completed and a new execution was started to carry on the workflow.+weiCloseStatus :: Lens' WorkflowExecutionInfo (Maybe CloseStatus)+weiCloseStatus = lens _weiCloseStatus (\ s a -> s{_weiCloseStatus = a});++-- | The time when the workflow execution was closed. Set only if the execution status is CLOSED.+weiCloseTimestamp :: Lens' WorkflowExecutionInfo (Maybe UTCTime)+weiCloseTimestamp = lens _weiCloseTimestamp (\ s a -> s{_weiCloseTimestamp = a}) . mapping _Time;++-- | Set to true if a cancellation is requested for this workflow execution.+weiCancelRequested :: Lens' WorkflowExecutionInfo (Maybe Bool)+weiCancelRequested = lens _weiCancelRequested (\ s a -> s{_weiCancelRequested = a});++-- | The workflow execution this information is about.+weiExecution :: Lens' WorkflowExecutionInfo WorkflowExecution+weiExecution = lens _weiExecution (\ s a -> s{_weiExecution = a});++-- | The type of the workflow execution.+weiWorkflowType :: Lens' WorkflowExecutionInfo WorkflowType+weiWorkflowType = lens _weiWorkflowType (\ s a -> s{_weiWorkflowType = a});++-- | The time when the execution was started.+weiStartTimestamp :: Lens' WorkflowExecutionInfo UTCTime+weiStartTimestamp = lens _weiStartTimestamp (\ s a -> s{_weiStartTimestamp = a}) . _Time;++-- | The current status of the execution.+weiExecutionStatus :: Lens' WorkflowExecutionInfo ExecutionStatus+weiExecutionStatus = lens _weiExecutionStatus (\ s a -> s{_weiExecutionStatus = a});++instance FromJSON WorkflowExecutionInfo where+        parseJSON+          = withObject "WorkflowExecutionInfo"+              (\ x ->+                 WorkflowExecutionInfo' <$>+                   (x .:? "parent") <*> (x .:? "tagList" .!= mempty) <*>+                     (x .:? "closeStatus")+                     <*> (x .:? "closeTimestamp")+                     <*> (x .:? "cancelRequested")+                     <*> (x .: "execution")+                     <*> (x .: "workflowType")+                     <*> (x .: "startTimestamp")+                     <*> (x .: "executionStatus"))++instance Hashable WorkflowExecutionInfo where++instance NFData WorkflowExecutionInfo where++-- | Contains a paginated list of information about workflow executions.+--+--+--+-- /See:/ 'workflowExecutionInfos' smart constructor.+data WorkflowExecutionInfos = WorkflowExecutionInfos'+  { _weiNextPageToken  :: !(Maybe Text)+  , _weiExecutionInfos :: ![WorkflowExecutionInfo]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionInfos' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'weiNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call.+--+-- * 'weiExecutionInfos' - The list of workflow information structures.+workflowExecutionInfos+    :: WorkflowExecutionInfos+workflowExecutionInfos =+  WorkflowExecutionInfos'+  {_weiNextPageToken = Nothing, _weiExecutionInfos = mempty}+++-- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call.+weiNextPageToken :: Lens' WorkflowExecutionInfos (Maybe Text)+weiNextPageToken = lens _weiNextPageToken (\ s a -> s{_weiNextPageToken = a});++-- | The list of workflow information structures.+weiExecutionInfos :: Lens' WorkflowExecutionInfos [WorkflowExecutionInfo]+weiExecutionInfos = lens _weiExecutionInfos (\ s a -> s{_weiExecutionInfos = a}) . _Coerce;++instance FromJSON WorkflowExecutionInfos where+        parseJSON+          = withObject "WorkflowExecutionInfos"+              (\ x ->+                 WorkflowExecutionInfos' <$>+                   (x .:? "nextPageToken") <*>+                     (x .:? "executionInfos" .!= mempty))++instance Hashable WorkflowExecutionInfos where++instance NFData WorkflowExecutionInfos where++-- | Contains the counts of open tasks, child workflow executions and timers for a workflow execution.+--+--+--+-- /See:/ 'workflowExecutionOpenCounts' smart constructor.+data WorkflowExecutionOpenCounts = WorkflowExecutionOpenCounts'+  { _weocOpenLambdaFunctions         :: !(Maybe Nat)+  , _weocOpenActivityTasks           :: !Nat+  , _weocOpenDecisionTasks           :: !Nat+  , _weocOpenTimers                  :: !Nat+  , _weocOpenChildWorkflowExecutions :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionOpenCounts' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'weocOpenLambdaFunctions' - The count of Lambda tasks whose status is @OPEN@ .+--+-- * 'weocOpenActivityTasks' - The count of activity tasks whose status is @OPEN@ .+--+-- * 'weocOpenDecisionTasks' - The count of decision tasks whose status is OPEN. A workflow execution can have at most one open decision task.+--+-- * 'weocOpenTimers' - The count of timers started by this workflow execution that have not fired yet.+--+-- * 'weocOpenChildWorkflowExecutions' - The count of child workflow executions whose status is @OPEN@ .+workflowExecutionOpenCounts+    :: Natural -- ^ 'weocOpenActivityTasks'+    -> Natural -- ^ 'weocOpenDecisionTasks'+    -> Natural -- ^ 'weocOpenTimers'+    -> Natural -- ^ 'weocOpenChildWorkflowExecutions'+    -> WorkflowExecutionOpenCounts+workflowExecutionOpenCounts pOpenActivityTasks_ pOpenDecisionTasks_ pOpenTimers_ pOpenChildWorkflowExecutions_ =+  WorkflowExecutionOpenCounts'+  { _weocOpenLambdaFunctions = Nothing+  , _weocOpenActivityTasks = _Nat # pOpenActivityTasks_+  , _weocOpenDecisionTasks = _Nat # pOpenDecisionTasks_+  , _weocOpenTimers = _Nat # pOpenTimers_+  , _weocOpenChildWorkflowExecutions = _Nat # pOpenChildWorkflowExecutions_+  }+++-- | The count of Lambda tasks whose status is @OPEN@ .+weocOpenLambdaFunctions :: Lens' WorkflowExecutionOpenCounts (Maybe Natural)+weocOpenLambdaFunctions = lens _weocOpenLambdaFunctions (\ s a -> s{_weocOpenLambdaFunctions = a}) . mapping _Nat;++-- | The count of activity tasks whose status is @OPEN@ .+weocOpenActivityTasks :: Lens' WorkflowExecutionOpenCounts Natural+weocOpenActivityTasks = lens _weocOpenActivityTasks (\ s a -> s{_weocOpenActivityTasks = a}) . _Nat;++-- | The count of decision tasks whose status is OPEN. A workflow execution can have at most one open decision task.+weocOpenDecisionTasks :: Lens' WorkflowExecutionOpenCounts Natural+weocOpenDecisionTasks = lens _weocOpenDecisionTasks (\ s a -> s{_weocOpenDecisionTasks = a}) . _Nat;++-- | The count of timers started by this workflow execution that have not fired yet.+weocOpenTimers :: Lens' WorkflowExecutionOpenCounts Natural+weocOpenTimers = lens _weocOpenTimers (\ s a -> s{_weocOpenTimers = a}) . _Nat;++-- | The count of child workflow executions whose status is @OPEN@ .+weocOpenChildWorkflowExecutions :: Lens' WorkflowExecutionOpenCounts Natural+weocOpenChildWorkflowExecutions = lens _weocOpenChildWorkflowExecutions (\ s a -> s{_weocOpenChildWorkflowExecutions = a}) . _Nat;++instance FromJSON WorkflowExecutionOpenCounts where+        parseJSON+          = withObject "WorkflowExecutionOpenCounts"+              (\ x ->+                 WorkflowExecutionOpenCounts' <$>+                   (x .:? "openLambdaFunctions") <*>+                     (x .: "openActivityTasks")+                     <*> (x .: "openDecisionTasks")+                     <*> (x .: "openTimers")+                     <*> (x .: "openChildWorkflowExecutions"))++instance Hashable WorkflowExecutionOpenCounts where++instance NFData WorkflowExecutionOpenCounts where++-- | Provides the details of the @WorkflowExecutionSignaled@ event.+--+--+--+-- /See:/ 'workflowExecutionSignaledEventAttributes' smart constructor.+data WorkflowExecutionSignaledEventAttributes = WorkflowExecutionSignaledEventAttributes'+  { _wExternalWorkflowExecution :: !(Maybe WorkflowExecution)+  , _wExternalInitiatedEventId  :: !(Maybe Integer)+  , _wInput                     :: !(Maybe Text)+  , _wSignalName                :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionSignaledEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wExternalWorkflowExecution' - The workflow execution that sent the signal. This is set only of the signal was sent by another workflow execution.+--+-- * 'wExternalInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflow@ decision to signal this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. This field is set only if the signal was initiated by another workflow execution.+--+-- * 'wInput' - The inputs provided with the signal. The decider can use the signal name and inputs to determine how to process the signal.+--+-- * 'wSignalName' - The name of the signal received. The decider can use the signal name and inputs to determine how to the process the signal.+workflowExecutionSignaledEventAttributes+    :: Text -- ^ 'wSignalName'+    -> WorkflowExecutionSignaledEventAttributes+workflowExecutionSignaledEventAttributes pSignalName_ =+  WorkflowExecutionSignaledEventAttributes'+  { _wExternalWorkflowExecution = Nothing+  , _wExternalInitiatedEventId = Nothing+  , _wInput = Nothing+  , _wSignalName = pSignalName_+  }+++-- | The workflow execution that sent the signal. This is set only of the signal was sent by another workflow execution.+wExternalWorkflowExecution :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe WorkflowExecution)+wExternalWorkflowExecution = lens _wExternalWorkflowExecution (\ s a -> s{_wExternalWorkflowExecution = a});++-- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflow@ decision to signal this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. This field is set only if the signal was initiated by another workflow execution.+wExternalInitiatedEventId :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe Integer)+wExternalInitiatedEventId = lens _wExternalInitiatedEventId (\ s a -> s{_wExternalInitiatedEventId = a});++-- | The inputs provided with the signal. The decider can use the signal name and inputs to determine how to process the signal.+wInput :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe Text)+wInput = lens _wInput (\ s a -> s{_wInput = a});++-- | The name of the signal received. The decider can use the signal name and inputs to determine how to the process the signal.+wSignalName :: Lens' WorkflowExecutionSignaledEventAttributes Text+wSignalName = lens _wSignalName (\ s a -> s{_wSignalName = a});++instance FromJSON+           WorkflowExecutionSignaledEventAttributes+         where+        parseJSON+          = withObject+              "WorkflowExecutionSignaledEventAttributes"+              (\ x ->+                 WorkflowExecutionSignaledEventAttributes' <$>+                   (x .:? "externalWorkflowExecution") <*>+                     (x .:? "externalInitiatedEventId")+                     <*> (x .:? "input")+                     <*> (x .: "signalName"))++instance Hashable+           WorkflowExecutionSignaledEventAttributes+         where++instance NFData+           WorkflowExecutionSignaledEventAttributes+         where++-- | Provides details of @WorkflowExecutionStarted@ event.+--+--+--+-- /See:/ 'workflowExecutionStartedEventAttributes' smart constructor.+data WorkflowExecutionStartedEventAttributes = WorkflowExecutionStartedEventAttributes'+  { _weseaParentInitiatedEventId       :: !(Maybe Integer)+  , _weseaTagList                      :: !(Maybe [Text])+  , _weseaTaskStartToCloseTimeout      :: !(Maybe Text)+  , _weseaLambdaRole                   :: !(Maybe Text)+  , _weseaInput                        :: !(Maybe Text)+  , _weseaExecutionStartToCloseTimeout :: !(Maybe Text)+  , _weseaTaskPriority                 :: !(Maybe Text)+  , _weseaParentWorkflowExecution      :: !(Maybe WorkflowExecution)+  , _weseaContinuedExecutionRunId      :: !(Maybe Text)+  , _weseaChildPolicy                  :: !ChildPolicy+  , _weseaTaskList                     :: !TaskList+  , _weseaWorkflowType                 :: !WorkflowType+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionStartedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'weseaParentInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this workflow execution. The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+--+-- * 'weseaTagList' - The list of tags associated with this workflow execution. An execution can have up to 5 tags.+--+-- * 'weseaTaskStartToCloseTimeout' - The maximum duration of decision tasks for this workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'weseaLambdaRole' - The IAM role attached to the workflow execution.+--+-- * 'weseaInput' - The input provided to the workflow execution.+--+-- * 'weseaExecutionStartToCloseTimeout' - The maximum duration for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'weseaTaskPriority' - The priority of the decision tasks in the workflow execution.+--+-- * 'weseaParentWorkflowExecution' - The source workflow execution that started this workflow execution. The member isn't set if the workflow execution was not started by a workflow.+--+-- * 'weseaContinuedExecutionRunId' - If this workflow execution was started due to a @ContinueAsNewWorkflowExecution@ decision, then it contains the @runId@ of the previous workflow execution that was closed and continued as this execution.+--+-- * 'weseaChildPolicy' - The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+--+-- * 'weseaTaskList' - The name of the task list for scheduling the decision tasks for this workflow execution.+--+-- * 'weseaWorkflowType' - The workflow type of this execution.+workflowExecutionStartedEventAttributes+    :: ChildPolicy -- ^ 'weseaChildPolicy'+    -> TaskList -- ^ 'weseaTaskList'+    -> WorkflowType -- ^ 'weseaWorkflowType'+    -> WorkflowExecutionStartedEventAttributes+workflowExecutionStartedEventAttributes pChildPolicy_ pTaskList_ pWorkflowType_ =+  WorkflowExecutionStartedEventAttributes'+  { _weseaParentInitiatedEventId = Nothing+  , _weseaTagList = Nothing+  , _weseaTaskStartToCloseTimeout = Nothing+  , _weseaLambdaRole = Nothing+  , _weseaInput = Nothing+  , _weseaExecutionStartToCloseTimeout = Nothing+  , _weseaTaskPriority = Nothing+  , _weseaParentWorkflowExecution = Nothing+  , _weseaContinuedExecutionRunId = Nothing+  , _weseaChildPolicy = pChildPolicy_+  , _weseaTaskList = pTaskList_+  , _weseaWorkflowType = pWorkflowType_+  }+++-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this workflow execution. The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event.+weseaParentInitiatedEventId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Integer)+weseaParentInitiatedEventId = lens _weseaParentInitiatedEventId (\ s a -> s{_weseaParentInitiatedEventId = a});++-- | The list of tags associated with this workflow execution. An execution can have up to 5 tags.+weseaTagList :: Lens' WorkflowExecutionStartedEventAttributes [Text]+weseaTagList = lens _weseaTagList (\ s a -> s{_weseaTagList = a}) . _Default . _Coerce;++-- | The maximum duration of decision tasks for this workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+weseaTaskStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)+weseaTaskStartToCloseTimeout = lens _weseaTaskStartToCloseTimeout (\ s a -> s{_weseaTaskStartToCloseTimeout = a});++-- | The IAM role attached to the workflow execution.+weseaLambdaRole :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)+weseaLambdaRole = lens _weseaLambdaRole (\ s a -> s{_weseaLambdaRole = a});++-- | The input provided to the workflow execution.+weseaInput :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)+weseaInput = lens _weseaInput (\ s a -> s{_weseaInput = a});++-- | The maximum duration for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+weseaExecutionStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)+weseaExecutionStartToCloseTimeout = lens _weseaExecutionStartToCloseTimeout (\ s a -> s{_weseaExecutionStartToCloseTimeout = a});++-- | The priority of the decision tasks in the workflow execution.+weseaTaskPriority :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)+weseaTaskPriority = lens _weseaTaskPriority (\ s a -> s{_weseaTaskPriority = a});++-- | The source workflow execution that started this workflow execution. The member isn't set if the workflow execution was not started by a workflow.+weseaParentWorkflowExecution :: Lens' WorkflowExecutionStartedEventAttributes (Maybe WorkflowExecution)+weseaParentWorkflowExecution = lens _weseaParentWorkflowExecution (\ s a -> s{_weseaParentWorkflowExecution = a});++-- | If this workflow execution was started due to a @ContinueAsNewWorkflowExecution@ decision, then it contains the @runId@ of the previous workflow execution that was closed and continued as this execution.+weseaContinuedExecutionRunId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)+weseaContinuedExecutionRunId = lens _weseaContinuedExecutionRunId (\ s a -> s{_weseaContinuedExecutionRunId = a});++-- | The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+weseaChildPolicy :: Lens' WorkflowExecutionStartedEventAttributes ChildPolicy+weseaChildPolicy = lens _weseaChildPolicy (\ s a -> s{_weseaChildPolicy = a});++-- | The name of the task list for scheduling the decision tasks for this workflow execution.+weseaTaskList :: Lens' WorkflowExecutionStartedEventAttributes TaskList+weseaTaskList = lens _weseaTaskList (\ s a -> s{_weseaTaskList = a});++-- | The workflow type of this execution.+weseaWorkflowType :: Lens' WorkflowExecutionStartedEventAttributes WorkflowType+weseaWorkflowType = lens _weseaWorkflowType (\ s a -> s{_weseaWorkflowType = a});++instance FromJSON+           WorkflowExecutionStartedEventAttributes+         where+        parseJSON+          = withObject+              "WorkflowExecutionStartedEventAttributes"+              (\ x ->+                 WorkflowExecutionStartedEventAttributes' <$>+                   (x .:? "parentInitiatedEventId") <*>+                     (x .:? "tagList" .!= mempty)+                     <*> (x .:? "taskStartToCloseTimeout")+                     <*> (x .:? "lambdaRole")+                     <*> (x .:? "input")+                     <*> (x .:? "executionStartToCloseTimeout")+                     <*> (x .:? "taskPriority")+                     <*> (x .:? "parentWorkflowExecution")+                     <*> (x .:? "continuedExecutionRunId")+                     <*> (x .: "childPolicy")+                     <*> (x .: "taskList")+                     <*> (x .: "workflowType"))++instance Hashable+           WorkflowExecutionStartedEventAttributes+         where++instance NFData+           WorkflowExecutionStartedEventAttributes+         where++-- | Provides the details of the @WorkflowExecutionTerminated@ event.+--+--+--+-- /See:/ 'workflowExecutionTerminatedEventAttributes' smart constructor.+data WorkflowExecutionTerminatedEventAttributes = WorkflowExecutionTerminatedEventAttributes'+  { _weteaCause       :: !(Maybe WorkflowExecutionTerminatedCause)+  , _weteaReason      :: !(Maybe Text)+  , _weteaDetails     :: !(Maybe Text)+  , _weteaChildPolicy :: !ChildPolicy+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionTerminatedEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'weteaCause' - If set, indicates that the workflow execution was automatically terminated, and specifies the cause. This happens if the parent workflow execution times out or is terminated and the child policy is set to terminate child executions.+--+-- * 'weteaReason' - The reason provided for the termination.+--+-- * 'weteaDetails' - The details provided for the termination.+--+-- * 'weteaChildPolicy' - The policy used for the child workflow executions of this workflow execution. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+workflowExecutionTerminatedEventAttributes+    :: ChildPolicy -- ^ 'weteaChildPolicy'+    -> WorkflowExecutionTerminatedEventAttributes+workflowExecutionTerminatedEventAttributes pChildPolicy_ =+  WorkflowExecutionTerminatedEventAttributes'+  { _weteaCause = Nothing+  , _weteaReason = Nothing+  , _weteaDetails = Nothing+  , _weteaChildPolicy = pChildPolicy_+  }+++-- | If set, indicates that the workflow execution was automatically terminated, and specifies the cause. This happens if the parent workflow execution times out or is terminated and the child policy is set to terminate child executions.+weteaCause :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe WorkflowExecutionTerminatedCause)+weteaCause = lens _weteaCause (\ s a -> s{_weteaCause = a});++-- | The reason provided for the termination.+weteaReason :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe Text)+weteaReason = lens _weteaReason (\ s a -> s{_weteaReason = a});++-- | The details provided for the termination.+weteaDetails :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe Text)+weteaDetails = lens _weteaDetails (\ s a -> s{_weteaDetails = a});++-- | The policy used for the child workflow executions of this workflow execution. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+weteaChildPolicy :: Lens' WorkflowExecutionTerminatedEventAttributes ChildPolicy+weteaChildPolicy = lens _weteaChildPolicy (\ s a -> s{_weteaChildPolicy = a});++instance FromJSON+           WorkflowExecutionTerminatedEventAttributes+         where+        parseJSON+          = withObject+              "WorkflowExecutionTerminatedEventAttributes"+              (\ x ->+                 WorkflowExecutionTerminatedEventAttributes' <$>+                   (x .:? "cause") <*> (x .:? "reason") <*>+                     (x .:? "details")+                     <*> (x .: "childPolicy"))++instance Hashable+           WorkflowExecutionTerminatedEventAttributes+         where++instance NFData+           WorkflowExecutionTerminatedEventAttributes+         where++-- | Provides the details of the @WorkflowExecutionTimedOut@ event.+--+--+--+-- /See:/ 'workflowExecutionTimedOutEventAttributes' smart constructor.+data WorkflowExecutionTimedOutEventAttributes = WorkflowExecutionTimedOutEventAttributes'+  { _wetoeaTimeoutType :: !WorkflowExecutionTimeoutType+  , _wetoeaChildPolicy :: !ChildPolicy+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowExecutionTimedOutEventAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wetoeaTimeoutType' - The type of timeout that caused this event.+--+-- * 'wetoeaChildPolicy' - The policy used for the child workflow executions of this workflow execution. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+workflowExecutionTimedOutEventAttributes+    :: WorkflowExecutionTimeoutType -- ^ 'wetoeaTimeoutType'+    -> ChildPolicy -- ^ 'wetoeaChildPolicy'+    -> WorkflowExecutionTimedOutEventAttributes+workflowExecutionTimedOutEventAttributes pTimeoutType_ pChildPolicy_ =+  WorkflowExecutionTimedOutEventAttributes'+  {_wetoeaTimeoutType = pTimeoutType_, _wetoeaChildPolicy = pChildPolicy_}+++-- | The type of timeout that caused this event.+wetoeaTimeoutType :: Lens' WorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType+wetoeaTimeoutType = lens _wetoeaTimeoutType (\ s a -> s{_wetoeaTimeoutType = a});++-- | The policy used for the child workflow executions of this workflow execution. The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+wetoeaChildPolicy :: Lens' WorkflowExecutionTimedOutEventAttributes ChildPolicy+wetoeaChildPolicy = lens _wetoeaChildPolicy (\ s a -> s{_wetoeaChildPolicy = a});++instance FromJSON+           WorkflowExecutionTimedOutEventAttributes+         where+        parseJSON+          = withObject+              "WorkflowExecutionTimedOutEventAttributes"+              (\ x ->+                 WorkflowExecutionTimedOutEventAttributes' <$>+                   (x .: "timeoutType") <*> (x .: "childPolicy"))++instance Hashable+           WorkflowExecutionTimedOutEventAttributes+         where++instance NFData+           WorkflowExecutionTimedOutEventAttributes+         where++-- | Represents a workflow type.+--+--+--+-- /See:/ 'workflowType' smart constructor.+data WorkflowType = WorkflowType'+  { _wtName    :: !Text+  , _wtVersion :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wtName' - The name of the workflow type.+--+-- * 'wtVersion' - The version of the workflow type.+workflowType+    :: Text -- ^ 'wtName'+    -> Text -- ^ 'wtVersion'+    -> WorkflowType+workflowType pName_ pVersion_ =+  WorkflowType' {_wtName = pName_, _wtVersion = pVersion_}+++-- | The name of the workflow type.+wtName :: Lens' WorkflowType Text+wtName = lens _wtName (\ s a -> s{_wtName = a});++-- | The version of the workflow type.+wtVersion :: Lens' WorkflowType Text+wtVersion = lens _wtVersion (\ s a -> s{_wtVersion = a});++instance FromJSON WorkflowType where+        parseJSON+          = withObject "WorkflowType"+              (\ x ->+                 WorkflowType' <$> (x .: "name") <*> (x .: "version"))++instance Hashable WorkflowType where++instance NFData WorkflowType where++instance ToJSON WorkflowType where+        toJSON WorkflowType'{..}+          = object+              (catMaybes+                 [Just ("name" .= _wtName),+                  Just ("version" .= _wtVersion)])++-- | The configuration settings of a workflow type.+--+--+--+-- /See:/ 'workflowTypeConfiguration' smart constructor.+data WorkflowTypeConfiguration = WorkflowTypeConfiguration'+  { _wtcDefaultLambdaRole                   :: !(Maybe Text)+  , _wtcDefaultChildPolicy                  :: !(Maybe ChildPolicy)+  , _wtcDefaultTaskList                     :: !(Maybe TaskList)+  , _wtcDefaultTaskPriority                 :: !(Maybe Text)+  , _wtcDefaultExecutionStartToCloseTimeout :: !(Maybe Text)+  , _wtcDefaultTaskStartToCloseTimeout      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowTypeConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wtcDefaultLambdaRole' - The default IAM role attached to this workflow type.+--+-- * 'wtcDefaultChildPolicy' - The default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+--+-- * 'wtcDefaultTaskList' - The default task list, specified when registering the workflow type, for decisions tasks scheduled for workflow executions of this type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' .+--+-- * 'wtcDefaultTaskPriority' - The default task priority, specified when registering the workflow type, for all decision tasks of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+--+-- * 'wtcDefaultExecutionStartToCloseTimeout' - The default maximum duration, specified when registering the workflow type, for executions of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+--+-- * 'wtcDefaultTaskStartToCloseTimeout' - The default maximum duration, specified when registering the workflow type, that a decision task for executions of this workflow type might take before returning completion or failure. If the task doesn'tdo close in the specified time then the task is automatically timed out and rescheduled. If the decider eventually reports a completion or failure, it is ignored. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+workflowTypeConfiguration+    :: WorkflowTypeConfiguration+workflowTypeConfiguration =+  WorkflowTypeConfiguration'+  { _wtcDefaultLambdaRole = Nothing+  , _wtcDefaultChildPolicy = Nothing+  , _wtcDefaultTaskList = Nothing+  , _wtcDefaultTaskPriority = Nothing+  , _wtcDefaultExecutionStartToCloseTimeout = Nothing+  , _wtcDefaultTaskStartToCloseTimeout = Nothing+  }+++-- | The default IAM role attached to this workflow type.+wtcDefaultLambdaRole :: Lens' WorkflowTypeConfiguration (Maybe Text)+wtcDefaultLambdaRole = lens _wtcDefaultLambdaRole (\ s a -> s{_wtcDefaultLambdaRole = a});++-- | The default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The supported child policies are:     * @TERMINATE@ – The child executions are terminated.     * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event.     * @ABANDON@ – No action is taken. The child executions continue to run.+wtcDefaultChildPolicy :: Lens' WorkflowTypeConfiguration (Maybe ChildPolicy)+wtcDefaultChildPolicy = lens _wtcDefaultChildPolicy (\ s a -> s{_wtcDefaultChildPolicy = a});++-- | The default task list, specified when registering the workflow type, for decisions tasks scheduled for workflow executions of this type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' .+wtcDefaultTaskList :: Lens' WorkflowTypeConfiguration (Maybe TaskList)+wtcDefaultTaskList = lens _wtcDefaultTaskList (\ s a -> s{_wtcDefaultTaskList = a});++-- | The default task priority, specified when registering the workflow type, for all decision tasks of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/programming-priority.html Setting Task Priority> in the /Amazon SWF Developer Guide/ .+wtcDefaultTaskPriority :: Lens' WorkflowTypeConfiguration (Maybe Text)+wtcDefaultTaskPriority = lens _wtcDefaultTaskPriority (\ s a -> s{_wtcDefaultTaskPriority = a});++-- | The default maximum duration, specified when registering the workflow type, for executions of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+wtcDefaultExecutionStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text)+wtcDefaultExecutionStartToCloseTimeout = lens _wtcDefaultExecutionStartToCloseTimeout (\ s a -> s{_wtcDefaultExecutionStartToCloseTimeout = a});++-- | The default maximum duration, specified when registering the workflow type, that a decision task for executions of this workflow type might take before returning completion or failure. If the task doesn'tdo close in the specified time then the task is automatically timed out and rescheduled. If the decider eventually reports a completion or failure, it is ignored. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration.+wtcDefaultTaskStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text)+wtcDefaultTaskStartToCloseTimeout = lens _wtcDefaultTaskStartToCloseTimeout (\ s a -> s{_wtcDefaultTaskStartToCloseTimeout = a});++instance FromJSON WorkflowTypeConfiguration where+        parseJSON+          = withObject "WorkflowTypeConfiguration"+              (\ x ->+                 WorkflowTypeConfiguration' <$>+                   (x .:? "defaultLambdaRole") <*>+                     (x .:? "defaultChildPolicy")+                     <*> (x .:? "defaultTaskList")+                     <*> (x .:? "defaultTaskPriority")+                     <*> (x .:? "defaultExecutionStartToCloseTimeout")+                     <*> (x .:? "defaultTaskStartToCloseTimeout"))++instance Hashable WorkflowTypeConfiguration where++instance NFData WorkflowTypeConfiguration where++-- | Used to filter workflow execution query results by type. Each parameter, if specified, defines a rule that must be satisfied by each returned result.+--+--+--+-- /See:/ 'workflowTypeFilter' smart constructor.+data WorkflowTypeFilter = WorkflowTypeFilter'+  { _wtfVersion :: !(Maybe Text)+  , _wtfName    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowTypeFilter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wtfVersion' - Version of the workflow type.+--+-- * 'wtfName' - Name of the workflow type.+workflowTypeFilter+    :: Text -- ^ 'wtfName'+    -> WorkflowTypeFilter+workflowTypeFilter pName_ =+  WorkflowTypeFilter' {_wtfVersion = Nothing, _wtfName = pName_}+++-- | Version of the workflow type.+wtfVersion :: Lens' WorkflowTypeFilter (Maybe Text)+wtfVersion = lens _wtfVersion (\ s a -> s{_wtfVersion = a});++-- | Name of the workflow type.+wtfName :: Lens' WorkflowTypeFilter Text+wtfName = lens _wtfName (\ s a -> s{_wtfName = a});++instance Hashable WorkflowTypeFilter where++instance NFData WorkflowTypeFilter where++instance ToJSON WorkflowTypeFilter where+        toJSON WorkflowTypeFilter'{..}+          = object+              (catMaybes+                 [("version" .=) <$> _wtfVersion,+                  Just ("name" .= _wtfName)])++-- | Contains information about a workflow type.+--+--+--+-- /See:/ 'workflowTypeInfo' smart constructor.+data WorkflowTypeInfo = WorkflowTypeInfo'+  { _wtiDeprecationDate :: !(Maybe POSIX)+  , _wtiDescription     :: !(Maybe Text)+  , _wtiWorkflowType    :: !WorkflowType+  , _wtiStatus          :: !RegistrationStatus+  , _wtiCreationDate    :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'WorkflowTypeInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wtiDeprecationDate' - If the type is in deprecated state, then it is set to the date when the type was deprecated.+--+-- * 'wtiDescription' - The description of the type registered through 'RegisterWorkflowType' .+--+-- * 'wtiWorkflowType' - The workflow type this information is about.+--+-- * 'wtiStatus' - The current status of the workflow type.+--+-- * 'wtiCreationDate' - The date when this type was registered.+workflowTypeInfo+    :: WorkflowType -- ^ 'wtiWorkflowType'+    -> RegistrationStatus -- ^ 'wtiStatus'+    -> UTCTime -- ^ 'wtiCreationDate'+    -> WorkflowTypeInfo+workflowTypeInfo pWorkflowType_ pStatus_ pCreationDate_ =+  WorkflowTypeInfo'+  { _wtiDeprecationDate = Nothing+  , _wtiDescription = Nothing+  , _wtiWorkflowType = pWorkflowType_+  , _wtiStatus = pStatus_+  , _wtiCreationDate = _Time # pCreationDate_+  }+++-- | If the type is in deprecated state, then it is set to the date when the type was deprecated.+wtiDeprecationDate :: Lens' WorkflowTypeInfo (Maybe UTCTime)+wtiDeprecationDate = lens _wtiDeprecationDate (\ s a -> s{_wtiDeprecationDate = a}) . mapping _Time;++-- | The description of the type registered through 'RegisterWorkflowType' .+wtiDescription :: Lens' WorkflowTypeInfo (Maybe Text)+wtiDescription = lens _wtiDescription (\ s a -> s{_wtiDescription = a});++-- | The workflow type this information is about.+wtiWorkflowType :: Lens' WorkflowTypeInfo WorkflowType+wtiWorkflowType = lens _wtiWorkflowType (\ s a -> s{_wtiWorkflowType = a});++-- | The current status of the workflow type.+wtiStatus :: Lens' WorkflowTypeInfo RegistrationStatus+wtiStatus = lens _wtiStatus (\ s a -> s{_wtiStatus = a});++-- | The date when this type was registered.+wtiCreationDate :: Lens' WorkflowTypeInfo UTCTime+wtiCreationDate = lens _wtiCreationDate (\ s a -> s{_wtiCreationDate = a}) . _Time;++instance FromJSON WorkflowTypeInfo where+        parseJSON+          = withObject "WorkflowTypeInfo"+              (\ x ->+                 WorkflowTypeInfo' <$>+                   (x .:? "deprecationDate") <*> (x .:? "description")+                     <*> (x .: "workflowType")+                     <*> (x .: "status")+                     <*> (x .: "creationDate"))++instance Hashable WorkflowTypeInfo where++instance NFData WorkflowTypeInfo where
gen/Network/AWS/SWF/Types/Sum.hs view
@@ -9,23 +9,24 @@  -- | -- Module      : Network.AWS.SWF.Types.Sum--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.SWF.Types.Sum where -import           Network.AWS.Prelude+import Network.AWS.Prelude  data ActivityTaskTimeoutType-    = ATTTHeartbeat-    | ATTTScheduleToClose-    | ATTTScheduleToStart-    | ATTTStartToClose-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = ATTTHeartbeat+  | ATTTScheduleToClose+  | ATTTScheduleToStart+  | ATTTStartToClose+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ActivityTaskTimeoutType where     parser = takeLowerText >>= \case         "heartbeat" -> pure ATTTHeartbeat@@ -52,10 +53,11 @@     parseJSON = parseJSONText "ActivityTaskTimeoutType"  data CancelTimerFailedCause-    = CTFCOperationNotPermitted-    | CTFCTimerIdUnknown-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = CTFCOperationNotPermitted+  | CTFCTimerIdUnknown+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText CancelTimerFailedCause where     parser = takeLowerText >>= \case         "operation_not_permitted" -> pure CTFCOperationNotPermitted@@ -78,10 +80,11 @@     parseJSON = parseJSONText "CancelTimerFailedCause"  data CancelWorkflowExecutionFailedCause-    = COperationNotPermitted-    | CUnhandledDecision-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = COperationNotPermitted+  | CUnhandledDecision+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText CancelWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case         "operation_not_permitted" -> pure COperationNotPermitted@@ -104,11 +107,12 @@     parseJSON = parseJSONText "CancelWorkflowExecutionFailedCause"  data ChildPolicy-    = Abandon-    | RequestCancel-    | Terminate-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Abandon+  | RequestCancel+  | Terminate+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ChildPolicy where     parser = takeLowerText >>= \case         "abandon" -> pure Abandon@@ -136,14 +140,15 @@     parseJSON = parseJSONText "ChildPolicy"  data CloseStatus-    = Canceled-    | Completed-    | ContinuedAsNew-    | Failed-    | Terminated-    | TimedOut-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Canceled+  | Completed+  | ContinuedAsNew+  | Failed+  | Terminated+  | TimedOut+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText CloseStatus where     parser = takeLowerText >>= \case         "canceled" -> pure Canceled@@ -177,10 +182,11 @@     parseJSON = parseJSONText "CloseStatus"  data CompleteWorkflowExecutionFailedCause-    = CWEFCOperationNotPermitted-    | CWEFCUnhandledDecision-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = CWEFCOperationNotPermitted+  | CWEFCUnhandledDecision+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText CompleteWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case         "operation_not_permitted" -> pure CWEFCOperationNotPermitted@@ -203,17 +209,18 @@     parseJSON = parseJSONText "CompleteWorkflowExecutionFailedCause"  data ContinueAsNewWorkflowExecutionFailedCause-    = CANWEFCContinueAsNewWorkflowExecutionRateExceeded-    | CANWEFCDefaultChildPolicyUndefined-    | CANWEFCDefaultExecutionStartToCloseTimeoutUndefined-    | CANWEFCDefaultTaskListUndefined-    | CANWEFCDefaultTaskStartToCloseTimeoutUndefined-    | CANWEFCOperationNotPermitted-    | CANWEFCUnhandledDecision-    | CANWEFCWorkflowTypeDeprecated-    | CANWEFCWorkflowTypeDoesNotExist-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = CANWEFCContinueAsNewWorkflowExecutionRateExceeded+  | CANWEFCDefaultChildPolicyUndefined+  | CANWEFCDefaultExecutionStartToCloseTimeoutUndefined+  | CANWEFCDefaultTaskListUndefined+  | CANWEFCDefaultTaskStartToCloseTimeoutUndefined+  | CANWEFCOperationNotPermitted+  | CANWEFCUnhandledDecision+  | CANWEFCWorkflowTypeDeprecated+  | CANWEFCWorkflowTypeDoesNotExist+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ContinueAsNewWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case         "continue_as_new_workflow_execution_rate_exceeded" -> pure CANWEFCContinueAsNewWorkflowExecutionRateExceeded@@ -250,9 +257,10 @@     parseJSON = parseJSONText "ContinueAsNewWorkflowExecutionFailedCause"  data DecisionTaskTimeoutType =-    StartToClose-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  StartToClose+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText DecisionTaskTimeoutType where     parser = takeLowerText >>= \case         "start_to_close" -> pure StartToClose@@ -273,21 +281,22 @@     parseJSON = parseJSONText "DecisionTaskTimeoutType"  data DecisionType-    = CancelTimer-    | CancelWorkflowExecution-    | CompleteWorkflowExecution-    | ContinueAsNewWorkflowExecution-    | FailWorkflowExecution-    | RecordMarker-    | RequestCancelActivityTask-    | RequestCancelExternalWorkflowExecution-    | ScheduleActivityTask-    | ScheduleLambdaFunction-    | SignalExternalWorkflowExecution-    | StartChildWorkflowExecution-    | StartTimer-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = CancelTimer+  | CancelWorkflowExecution+  | CompleteWorkflowExecution+  | ContinueAsNewWorkflowExecution+  | FailWorkflowExecution+  | RecordMarker+  | RequestCancelActivityTask+  | RequestCancelExternalWorkflowExecution+  | ScheduleActivityTask+  | ScheduleLambdaFunction+  | SignalExternalWorkflowExecution+  | StartChildWorkflowExecution+  | StartTimer+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText DecisionType where     parser = takeLowerText >>= \case         "canceltimer" -> pure CancelTimer@@ -332,62 +341,63 @@     toJSON = toJSONText  data EventType-    = ActivityTaskCancelRequested-    | ActivityTaskCanceled-    | ActivityTaskCompleted-    | ActivityTaskFailed-    | ActivityTaskScheduled-    | ActivityTaskStarted-    | ActivityTaskTimedOut-    | CancelTimerFailed-    | CancelWorkflowExecutionFailed-    | ChildWorkflowExecutionCanceled-    | ChildWorkflowExecutionCompleted-    | ChildWorkflowExecutionFailed-    | ChildWorkflowExecutionStarted-    | ChildWorkflowExecutionTerminated-    | ChildWorkflowExecutionTimedOut-    | CompleteWorkflowExecutionFailed-    | ContinueAsNewWorkflowExecutionFailed-    | DecisionTaskCompleted-    | DecisionTaskScheduled-    | DecisionTaskStarted-    | DecisionTaskTimedOut-    | ExternalWorkflowExecutionCancelRequested-    | ExternalWorkflowExecutionSignaled-    | FailWorkflowExecutionFailed-    | LambdaFunctionCompleted-    | LambdaFunctionFailed-    | LambdaFunctionScheduled-    | LambdaFunctionStarted-    | LambdaFunctionTimedOut-    | MarkerRecorded-    | RecordMarkerFailed-    | RequestCancelActivityTaskFailed-    | RequestCancelExternalWorkflowExecutionFailed-    | RequestCancelExternalWorkflowExecutionInitiated-    | ScheduleActivityTaskFailed-    | ScheduleLambdaFunctionFailed-    | SignalExternalWorkflowExecutionFailed-    | SignalExternalWorkflowExecutionInitiated-    | StartChildWorkflowExecutionFailed-    | StartChildWorkflowExecutionInitiated-    | StartLambdaFunctionFailed-    | StartTimerFailed-    | TimerCanceled-    | TimerFired-    | TimerStarted-    | WorkflowExecutionCancelRequested-    | WorkflowExecutionCanceled-    | WorkflowExecutionCompleted-    | WorkflowExecutionContinuedAsNew-    | WorkflowExecutionFailed-    | WorkflowExecutionSignaled-    | WorkflowExecutionStarted-    | WorkflowExecutionTerminated-    | WorkflowExecutionTimedOut-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = ActivityTaskCancelRequested+  | ActivityTaskCanceled+  | ActivityTaskCompleted+  | ActivityTaskFailed+  | ActivityTaskScheduled+  | ActivityTaskStarted+  | ActivityTaskTimedOut+  | CancelTimerFailed+  | CancelWorkflowExecutionFailed+  | ChildWorkflowExecutionCanceled+  | ChildWorkflowExecutionCompleted+  | ChildWorkflowExecutionFailed+  | ChildWorkflowExecutionStarted+  | ChildWorkflowExecutionTerminated+  | ChildWorkflowExecutionTimedOut+  | CompleteWorkflowExecutionFailed+  | ContinueAsNewWorkflowExecutionFailed+  | DecisionTaskCompleted+  | DecisionTaskScheduled+  | DecisionTaskStarted+  | DecisionTaskTimedOut+  | ExternalWorkflowExecutionCancelRequested+  | ExternalWorkflowExecutionSignaled+  | FailWorkflowExecutionFailed+  | LambdaFunctionCompleted+  | LambdaFunctionFailed+  | LambdaFunctionScheduled+  | LambdaFunctionStarted+  | LambdaFunctionTimedOut+  | MarkerRecorded+  | RecordMarkerFailed+  | RequestCancelActivityTaskFailed+  | RequestCancelExternalWorkflowExecutionFailed+  | RequestCancelExternalWorkflowExecutionInitiated+  | ScheduleActivityTaskFailed+  | ScheduleLambdaFunctionFailed+  | SignalExternalWorkflowExecutionFailed+  | SignalExternalWorkflowExecutionInitiated+  | StartChildWorkflowExecutionFailed+  | StartChildWorkflowExecutionInitiated+  | StartLambdaFunctionFailed+  | StartTimerFailed+  | TimerCanceled+  | TimerFired+  | TimerStarted+  | WorkflowExecutionCancelRequested+  | WorkflowExecutionCanceled+  | WorkflowExecutionCompleted+  | WorkflowExecutionContinuedAsNew+  | WorkflowExecutionFailed+  | WorkflowExecutionSignaled+  | WorkflowExecutionStarted+  | WorkflowExecutionTerminated+  | WorkflowExecutionTimedOut+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText EventType where     parser = takeLowerText >>= \case         "activitytaskcancelrequested" -> pure ActivityTaskCancelRequested@@ -514,10 +524,11 @@     parseJSON = parseJSONText "EventType"  data ExecutionStatus-    = Closed-    | Open-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Closed+  | Open+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ExecutionStatus where     parser = takeLowerText >>= \case         "closed" -> pure Closed@@ -540,10 +551,11 @@     parseJSON = parseJSONText "ExecutionStatus"  data FailWorkflowExecutionFailedCause-    = FWEFCOperationNotPermitted-    | FWEFCUnhandledDecision-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = FWEFCOperationNotPermitted+  | FWEFCUnhandledDecision+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText FailWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case         "operation_not_permitted" -> pure FWEFCOperationNotPermitted@@ -566,9 +578,10 @@     parseJSON = parseJSONText "FailWorkflowExecutionFailedCause"  data LambdaFunctionTimeoutType =-    LFTTStartToClose-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  LFTTStartToClose+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText LambdaFunctionTimeoutType where     parser = takeLowerText >>= \case         "start_to_close" -> pure LFTTStartToClose@@ -589,9 +602,10 @@     parseJSON = parseJSONText "LambdaFunctionTimeoutType"  data RecordMarkerFailedCause =-    OperationNotPermitted-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  OperationNotPermitted+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText RecordMarkerFailedCause where     parser = takeLowerText >>= \case         "operation_not_permitted" -> pure OperationNotPermitted@@ -612,10 +626,11 @@     parseJSON = parseJSONText "RecordMarkerFailedCause"  data RegistrationStatus-    = Deprecated-    | Registered-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Deprecated+  | Registered+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText RegistrationStatus where     parser = takeLowerText >>= \case         "deprecated" -> pure Deprecated@@ -641,10 +656,11 @@     parseJSON = parseJSONText "RegistrationStatus"  data RequestCancelActivityTaskFailedCause-    = RCATFCActivityIdUnknown-    | RCATFCOperationNotPermitted-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = RCATFCActivityIdUnknown+  | RCATFCOperationNotPermitted+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText RequestCancelActivityTaskFailedCause where     parser = takeLowerText >>= \case         "activity_id_unknown" -> pure RCATFCActivityIdUnknown@@ -667,11 +683,12 @@     parseJSON = parseJSONText "RequestCancelActivityTaskFailedCause"  data RequestCancelExternalWorkflowExecutionFailedCause-    = RCEWEFCOperationNotPermitted-    | RCEWEFCRequestCancelExternalWorkflowExecutionRateExceeded-    | RCEWEFCUnknownExternalWorkflowExecution-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = RCEWEFCOperationNotPermitted+  | RCEWEFCRequestCancelExternalWorkflowExecutionRateExceeded+  | RCEWEFCUnknownExternalWorkflowExecution+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText RequestCancelExternalWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case         "operation_not_permitted" -> pure RCEWEFCOperationNotPermitted@@ -696,19 +713,20 @@     parseJSON = parseJSONText "RequestCancelExternalWorkflowExecutionFailedCause"  data ScheduleActivityTaskFailedCause-    = SATFCActivityCreationRateExceeded-    | SATFCActivityIdAlreadyInUse-    | SATFCActivityTypeDeprecated-    | SATFCActivityTypeDoesNotExist-    | SATFCDefaultHeartbeatTimeoutUndefined-    | SATFCDefaultScheduleToCloseTimeoutUndefined-    | SATFCDefaultScheduleToStartTimeoutUndefined-    | SATFCDefaultStartToCloseTimeoutUndefined-    | SATFCDefaultTaskListUndefined-    | SATFCOpenActivitiesLimitExceeded-    | SATFCOperationNotPermitted-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = SATFCActivityCreationRateExceeded+  | SATFCActivityIdAlreadyInUse+  | SATFCActivityTypeDeprecated+  | SATFCActivityTypeDoesNotExist+  | SATFCDefaultHeartbeatTimeoutUndefined+  | SATFCDefaultScheduleToCloseTimeoutUndefined+  | SATFCDefaultScheduleToStartTimeoutUndefined+  | SATFCDefaultStartToCloseTimeoutUndefined+  | SATFCDefaultTaskListUndefined+  | SATFCOpenActivitiesLimitExceeded+  | SATFCOperationNotPermitted+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ScheduleActivityTaskFailedCause where     parser = takeLowerText >>= \case         "activity_creation_rate_exceeded" -> pure SATFCActivityCreationRateExceeded@@ -749,12 +767,13 @@     parseJSON = parseJSONText "ScheduleActivityTaskFailedCause"  data ScheduleLambdaFunctionFailedCause-    = IdAlreadyInUse-    | LambdaFunctionCreationRateExceeded-    | LambdaServiceNotAvailableInRegion-    | OpenLambdaFunctionsLimitExceeded-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = IdAlreadyInUse+  | LambdaFunctionCreationRateExceeded+  | LambdaServiceNotAvailableInRegion+  | OpenLambdaFunctionsLimitExceeded+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ScheduleLambdaFunctionFailedCause where     parser = takeLowerText >>= \case         "id_already_in_use" -> pure IdAlreadyInUse@@ -781,11 +800,12 @@     parseJSON = parseJSONText "ScheduleLambdaFunctionFailedCause"  data SignalExternalWorkflowExecutionFailedCause-    = SEWEFCOperationNotPermitted-    | SEWEFCSignalExternalWorkflowExecutionRateExceeded-    | SEWEFCUnknownExternalWorkflowExecution-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = SEWEFCOperationNotPermitted+  | SEWEFCSignalExternalWorkflowExecutionRateExceeded+  | SEWEFCUnknownExternalWorkflowExecution+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText SignalExternalWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case         "operation_not_permitted" -> pure SEWEFCOperationNotPermitted@@ -810,19 +830,20 @@     parseJSON = parseJSONText "SignalExternalWorkflowExecutionFailedCause"  data StartChildWorkflowExecutionFailedCause-    = SCWEFCChildCreationRateExceeded-    | SCWEFCDefaultChildPolicyUndefined-    | SCWEFCDefaultExecutionStartToCloseTimeoutUndefined-    | SCWEFCDefaultTaskListUndefined-    | SCWEFCDefaultTaskStartToCloseTimeoutUndefined-    | SCWEFCOpenChildrenLimitExceeded-    | SCWEFCOpenWorkflowsLimitExceeded-    | SCWEFCOperationNotPermitted-    | SCWEFCWorkflowAlreadyRunning-    | SCWEFCWorkflowTypeDeprecated-    | SCWEFCWorkflowTypeDoesNotExist-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = SCWEFCChildCreationRateExceeded+  | SCWEFCDefaultChildPolicyUndefined+  | SCWEFCDefaultExecutionStartToCloseTimeoutUndefined+  | SCWEFCDefaultTaskListUndefined+  | SCWEFCDefaultTaskStartToCloseTimeoutUndefined+  | SCWEFCOpenChildrenLimitExceeded+  | SCWEFCOpenWorkflowsLimitExceeded+  | SCWEFCOperationNotPermitted+  | SCWEFCWorkflowAlreadyRunning+  | SCWEFCWorkflowTypeDeprecated+  | SCWEFCWorkflowTypeDoesNotExist+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText StartChildWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case         "child_creation_rate_exceeded" -> pure SCWEFCChildCreationRateExceeded@@ -863,9 +884,10 @@     parseJSON = parseJSONText "StartChildWorkflowExecutionFailedCause"  data StartLambdaFunctionFailedCause =-    AssumeRoleFailed-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  AssumeRoleFailed+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText StartLambdaFunctionFailedCause where     parser = takeLowerText >>= \case         "assume_role_failed" -> pure AssumeRoleFailed@@ -886,12 +908,13 @@     parseJSON = parseJSONText "StartLambdaFunctionFailedCause"  data StartTimerFailedCause-    = STFCOpenTimersLimitExceeded-    | STFCOperationNotPermitted-    | STFCTimerCreationRateExceeded-    | STFCTimerIdAlreadyInUse-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = STFCOpenTimersLimitExceeded+  | STFCOperationNotPermitted+  | STFCTimerCreationRateExceeded+  | STFCTimerIdAlreadyInUse+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText StartTimerFailedCause where     parser = takeLowerText >>= \case         "open_timers_limit_exceeded" -> pure STFCOpenTimersLimitExceeded@@ -918,9 +941,10 @@     parseJSON = parseJSONText "StartTimerFailedCause"  data WorkflowExecutionCancelRequestedCause =-    ChildPolicyApplied-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  ChildPolicyApplied+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText WorkflowExecutionCancelRequestedCause where     parser = takeLowerText >>= \case         "child_policy_applied" -> pure ChildPolicyApplied@@ -941,11 +965,12 @@     parseJSON = parseJSONText "WorkflowExecutionCancelRequestedCause"  data WorkflowExecutionTerminatedCause-    = WETCChildPolicyApplied-    | WETCEventLimitExceeded-    | WETCOperatorInitiated-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = WETCChildPolicyApplied+  | WETCEventLimitExceeded+  | WETCOperatorInitiated+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText WorkflowExecutionTerminatedCause where     parser = takeLowerText >>= \case         "child_policy_applied" -> pure WETCChildPolicyApplied@@ -970,8 +995,9 @@     parseJSON = parseJSONText "WorkflowExecutionTerminatedCause"  data WorkflowExecutionTimeoutType =-    WETTStartToClose-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  WETTStartToClose+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+  instance FromText WorkflowExecutionTimeoutType where     parser = takeLowerText >>= \case
gen/Network/AWS/SWF/Waiters.hs view
@@ -7,15 +7,15 @@  -- | -- Module      : Network.AWS.SWF.Waiters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.SWF.Waiters where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.SWF.Types-import           Network.AWS.Waiter+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.SWF.Types+import Network.AWS.Waiter
test/Main.hs view
@@ -2,9 +2,9 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --
test/Test/AWS/Gen/SWF.hs view
@@ -5,20 +5,20 @@  -- | -- Module      : Test.AWS.Gen.SWF--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.SWF where  import Data.Proxy+import Network.AWS.SWF import Test.AWS.Fixture import Test.AWS.Prelude-import Test.Tasty-import Network.AWS.SWF import Test.AWS.SWF.Internal+import Test.Tasty  -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.