amazonka-stepfunctions 1.5.0 → 1.6.0

raw patch · 34 files changed

+834/−395 lines, 34 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-stepfunctions.cabal +7/−5
• fixture/DescribeStateMachineForExecution.yaml +10/−0
• fixture/DescribeStateMachineForExecutionResponse.proto +0/−0
• fixture/UpdateStateMachine.yaml +10/−0
• fixture/UpdateStateMachineResponse.proto +0/−0
• gen/Network/AWS/StepFunctions.hs +13/−2
• gen/Network/AWS/StepFunctions/CreateActivity.hs +12/−12
• gen/Network/AWS/StepFunctions/CreateStateMachine.hs +15/−15
• gen/Network/AWS/StepFunctions/DeleteActivity.hs +3/−3
• gen/Network/AWS/StepFunctions/DeleteStateMachine.hs +4/−4
• gen/Network/AWS/StepFunctions/DescribeActivity.hs +13/−13
• gen/Network/AWS/StepFunctions/DescribeExecution.hs +23/−23
• gen/Network/AWS/StepFunctions/DescribeStateMachine.hs +19/−19
• gen/Network/AWS/StepFunctions/DescribeStateMachineForExecution.hs +191/−0
• gen/Network/AWS/StepFunctions/GetActivityTask.hs +13/−13
• gen/Network/AWS/StepFunctions/GetExecutionHistory.hs +26/−24
• gen/Network/AWS/StepFunctions/ListActivities.hs +19/−17
• gen/Network/AWS/StepFunctions/ListExecutions.hs +28/−26
• gen/Network/AWS/StepFunctions/ListStateMachines.hs +19/−17
• gen/Network/AWS/StepFunctions/SendTaskFailure.hs +6/−6
• gen/Network/AWS/StepFunctions/SendTaskHeartbeat.hs +6/−6
• gen/Network/AWS/StepFunctions/SendTaskSuccess.hs +6/−6
• gen/Network/AWS/StepFunctions/StartExecution.hs +19/−19
• gen/Network/AWS/StepFunctions/StopExecution.hs +10/−10
• gen/Network/AWS/StepFunctions/Types.hs +27/−16
• gen/Network/AWS/StepFunctions/Types/Product.hs +132/−132
• gen/Network/AWS/StepFunctions/Types/Sum.hs +1/−1
• gen/Network/AWS/StepFunctions/UpdateStateMachine.hs +160/−0
• gen/Network/AWS/StepFunctions/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/StepFunctions.hs +37/−1
• test/Test/AWS/StepFunctions.hs +1/−1
• test/Test/AWS/StepFunctions/Internal.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-stepfunctions-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Step Functions SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -52,6 +52,7 @@         , Network.AWS.StepFunctions.DescribeActivity         , Network.AWS.StepFunctions.DescribeExecution         , Network.AWS.StepFunctions.DescribeStateMachine+        , Network.AWS.StepFunctions.DescribeStateMachineForExecution         , Network.AWS.StepFunctions.GetActivityTask         , Network.AWS.StepFunctions.GetExecutionHistory         , Network.AWS.StepFunctions.ListActivities@@ -63,6 +64,7 @@         , Network.AWS.StepFunctions.StartExecution         , Network.AWS.StepFunctions.StopExecution         , Network.AWS.StepFunctions.Types+        , Network.AWS.StepFunctions.UpdateStateMachine         , Network.AWS.StepFunctions.Waiters      other-modules:@@ -70,7 +72,7 @@         , Network.AWS.StepFunctions.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-stepfunctions-test@@ -90,8 +92,8 @@         , Test.AWS.StepFunctions.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-stepfunctions         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/states/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  states.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/states/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  states.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.StepFunctions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -15,7 +15,7 @@ -- -- AWS Step Functions is a service that lets you coordinate the components of distributed applications and microservices using visual workflows. ----- You can use Step Functions to build applications from individual components, each of which performs a discrete function, or /task/ , allowing you to scale and change applications quickly. Step Functions provides a console that helps visualize the components of your application as a series of steps. Step Functions automatically triggers and tracks each step, and retries steps when there are errors, so your application executes in order and as expected, every time. Step Functions logs the state of each step, so you can diagnose and debug problems quickly.+-- You can use Step Functions to build applications from individual components, each of which performs a discrete function, or /task/ , allowing you to scale and change applications quickly. Step Functions provides a console that helps visualize the components of your application as a series of steps. Step Functions automatically triggers and tracks each step, and retries steps when there are errors, so your application executes predictably and in the right order every time. Step Functions logs the state of each step, so you can quickly diagnose and debug any issues. -- -- Step Functions manages operations and underlying infrastructure to ensure your application is available at any scale. You can run tasks on AWS, your own servers, or any system that has access to AWS. You can access and use Step Functions using the console, the AWS SDKs, or an HTTP API. For more information about Step Functions, see the /<http:\/\/docs.aws.amazon.com\/step-functions\/latest\/dg\/welcome.html AWS Step Functions Developer Guide> / . --@@ -63,6 +63,9 @@     -- ** StateMachineDeleting     , _StateMachineDeleting +    -- ** MissingRequiredParameter+    , _MissingRequiredParameter+     -- ** InvalidARN     , _InvalidARN @@ -108,6 +111,12 @@     -- ** DeleteStateMachine     , module Network.AWS.StepFunctions.DeleteStateMachine +    -- ** UpdateStateMachine+    , module Network.AWS.StepFunctions.UpdateStateMachine++    -- ** DescribeStateMachineForExecution+    , module Network.AWS.StepFunctions.DescribeStateMachineForExecution+     -- ** GetActivityTask     , module Network.AWS.StepFunctions.GetActivityTask @@ -321,6 +330,7 @@ import Network.AWS.StepFunctions.DescribeActivity import Network.AWS.StepFunctions.DescribeExecution import Network.AWS.StepFunctions.DescribeStateMachine+import Network.AWS.StepFunctions.DescribeStateMachineForExecution import Network.AWS.StepFunctions.GetActivityTask import Network.AWS.StepFunctions.GetExecutionHistory import Network.AWS.StepFunctions.ListActivities@@ -332,6 +342,7 @@ import Network.AWS.StepFunctions.StartExecution import Network.AWS.StepFunctions.StopExecution import Network.AWS.StepFunctions.Types+import Network.AWS.StepFunctions.UpdateStateMachine import Network.AWS.StepFunctions.Waiters  {- $errors

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StepFunctions.CreateActivity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Creates an activity. An Activity is a task which you write, in any language and hosted on any machine which has access to AWS Step Functions. Activities must poll Step Functions using the @GetActivityTask@ and respond using @SendTask*@ API calls. This function lets Step Functions know the existence of your activity and returns an identifier for use in a state machine and when polling from the activity.+-- Creates an activity. An activity is a task which you write in any programming language and host on any machine which has access to AWS Step Functions. Activities must poll Step Functions using the @GetActivityTask@ API action and respond using @SendTask*@ API actions. This function lets Step Functions know the existence of your activity and returns an identifier for use in a state machine and when polling from the activity. -- -- module Network.AWS.StepFunctions.CreateActivity@@ -64,7 +64,7 @@  -- | The name of the activity to create. This name must be unique for your AWS account and region for 90 days. For more information, see <http://docs.aws.amazon.com/step-functions/latest/dg/limits.html#service-limits-state-machine-executions Limits Related to State Machine Executions> in the /AWS Step Functions Developer Guide/ . A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) caName :: Lens' CreateActivity Text-caName = lens _caName (\ s a -> s{_caName = a});+caName = lens _caName (\ s a -> s{_caName = a})  instance AWSRequest CreateActivity where         type Rs CreateActivity = CreateActivityResponse@@ -115,7 +115,7 @@ -- -- * 'carsActivityARN' - The Amazon Resource Name (ARN) that identifies the created activity. ----- * 'carsCreationDate' - The date the activity was created.+-- * 'carsCreationDate' - The date the activity is created. createActivityResponse     :: Int -- ^ 'carsResponseStatus'     -> Text -- ^ 'carsActivityARN'@@ -123,22 +123,22 @@     -> CreateActivityResponse createActivityResponse pResponseStatus_ pActivityARN_ pCreationDate_ =   CreateActivityResponse'-  { _carsResponseStatus = pResponseStatus_-  , _carsActivityARN = pActivityARN_-  , _carsCreationDate = _Time # pCreationDate_-  }+    { _carsResponseStatus = pResponseStatus_+    , _carsActivityARN = pActivityARN_+    , _carsCreationDate = _Time # pCreationDate_+    }   -- | -- | The response status code. carsResponseStatus :: Lens' CreateActivityResponse Int-carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})  -- | The Amazon Resource Name (ARN) that identifies the created activity. carsActivityARN :: Lens' CreateActivityResponse Text-carsActivityARN = lens _carsActivityARN (\ s a -> s{_carsActivityARN = a});+carsActivityARN = lens _carsActivityARN (\ s a -> s{_carsActivityARN = a}) --- | The date the activity was created.+-- | The date the activity is created. carsCreationDate :: Lens' CreateActivityResponse UTCTime-carsCreationDate = lens _carsCreationDate (\ s a -> s{_carsCreationDate = a}) . _Time;+carsCreationDate = lens _carsCreationDate (\ s a -> s{_carsCreationDate = a}) . _Time  instance NFData CreateActivityResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StepFunctions.CreateStateMachine--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Creates a state machine. A state machine consists of a collection of states that can do work (@Task@ states), determine which states to transition to next (@Choice@ states), stop an execution with an error (@Fail@ states), and so on. State machines are specified using a JSON-based, structured language.+-- Creates a state machine. A state machine consists of a collection of states that can do work (@Task@ states), determine to which states to transition next (@Choice@ states), stop an execution with an error (@Fail@ states), and so on. State machines are specified using a JSON-based, structured language. -- -- module Network.AWS.StepFunctions.CreateStateMachine@@ -71,20 +71,20 @@     -> CreateStateMachine createStateMachine pName_ pDefinition_ pRoleARN_ =   CreateStateMachine'-  {_csmName = pName_, _csmDefinition = pDefinition_, _csmRoleARN = pRoleARN_}+    {_csmName = pName_, _csmDefinition = pDefinition_, _csmRoleARN = pRoleARN_}   -- | The name of the state machine. This name must be unique for your AWS account and region for 90 days. For more information, see <http://docs.aws.amazon.com/step-functions/latest/dg/limits.html#service-limits-state-machine-executions Limits Related to State Machine Executions> in the /AWS Step Functions Developer Guide/ . A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) csmName :: Lens' CreateStateMachine Text-csmName = lens _csmName (\ s a -> s{_csmName = a});+csmName = lens _csmName (\ s a -> s{_csmName = a})  -- | The Amazon States Language definition of the state machine. csmDefinition :: Lens' CreateStateMachine Text-csmDefinition = lens _csmDefinition (\ s a -> s{_csmDefinition = a});+csmDefinition = lens _csmDefinition (\ s a -> s{_csmDefinition = a})  -- | The Amazon Resource Name (ARN) of the IAM role to use for this state machine. csmRoleARN :: Lens' CreateStateMachine Text-csmRoleARN = lens _csmRoleARN (\ s a -> s{_csmRoleARN = a});+csmRoleARN = lens _csmRoleARN (\ s a -> s{_csmRoleARN = a})  instance AWSRequest CreateStateMachine where         type Rs CreateStateMachine =@@ -141,7 +141,7 @@ -- -- * 'csmrsStateMachineARN' - The Amazon Resource Name (ARN) that identifies the created state machine. ----- * 'csmrsCreationDate' - The date the state machine was created.+-- * 'csmrsCreationDate' - The date the state machine is created. createStateMachineResponse     :: Int -- ^ 'csmrsResponseStatus'     -> Text -- ^ 'csmrsStateMachineARN'@@ -149,22 +149,22 @@     -> CreateStateMachineResponse createStateMachineResponse pResponseStatus_ pStateMachineARN_ pCreationDate_ =   CreateStateMachineResponse'-  { _csmrsResponseStatus = pResponseStatus_-  , _csmrsStateMachineARN = pStateMachineARN_-  , _csmrsCreationDate = _Time # pCreationDate_-  }+    { _csmrsResponseStatus = pResponseStatus_+    , _csmrsStateMachineARN = pStateMachineARN_+    , _csmrsCreationDate = _Time # pCreationDate_+    }   -- | -- | The response status code. csmrsResponseStatus :: Lens' CreateStateMachineResponse Int-csmrsResponseStatus = lens _csmrsResponseStatus (\ s a -> s{_csmrsResponseStatus = a});+csmrsResponseStatus = lens _csmrsResponseStatus (\ s a -> s{_csmrsResponseStatus = a})  -- | The Amazon Resource Name (ARN) that identifies the created state machine. csmrsStateMachineARN :: Lens' CreateStateMachineResponse Text-csmrsStateMachineARN = lens _csmrsStateMachineARN (\ s a -> s{_csmrsStateMachineARN = a});+csmrsStateMachineARN = lens _csmrsStateMachineARN (\ s a -> s{_csmrsStateMachineARN = a}) --- | The date the state machine was created.+-- | The date the state machine is created. csmrsCreationDate :: Lens' CreateStateMachineResponse UTCTime-csmrsCreationDate = lens _csmrsCreationDate (\ s a -> s{_csmrsCreationDate = a}) . _Time;+csmrsCreationDate = lens _csmrsCreationDate (\ s a -> s{_csmrsCreationDate = a}) . _Time  instance NFData CreateStateMachineResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StepFunctions.DeleteActivity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@  -- | The Amazon Resource Name (ARN) of the activity to delete. daActivityARN :: Lens' DeleteActivity Text-daActivityARN = lens _daActivityARN (\ s a -> s{_daActivityARN = a});+daActivityARN = lens _daActivityARN (\ s a -> s{_daActivityARN = a})  instance AWSRequest DeleteActivity where         type Rs DeleteActivity = DeleteActivityResponse@@ -116,6 +116,6 @@  -- | -- | The response status code. darsResponseStatus :: Lens' DeleteActivityResponse Int-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})  instance NFData DeleteActivityResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StepFunctions.DeleteStateMachine--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Deletes a state machine. This is an asynchronous operation-- it sets the state machine's status to "DELETING" and begins the delete process. Each state machine execution will be deleted the next time it makes a state transition. After all executions have completed or been deleted, the state machine itself will be deleted.+-- Deletes a state machine. This is an asynchronous operation: It sets the state machine's status to @DELETING@ and begins the deletion process. Each state machine execution is deleted the next time it makes a state transition. -- -- module Network.AWS.StepFunctions.DeleteStateMachine@@ -63,7 +63,7 @@  -- | The Amazon Resource Name (ARN) of the state machine to delete. dStateMachineARN :: Lens' DeleteStateMachine Text-dStateMachineARN = lens _dStateMachineARN (\ s a -> s{_dStateMachineARN = a});+dStateMachineARN = lens _dStateMachineARN (\ s a -> s{_dStateMachineARN = a})  instance AWSRequest DeleteStateMachine where         type Rs DeleteStateMachine =@@ -120,6 +120,6 @@  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteStateMachineResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteStateMachineResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StepFunctions.DescribeActivity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@  -- | The Amazon Resource Name (ARN) of the activity to describe. dActivityARN :: Lens' DescribeActivity Text-dActivityARN = lens _dActivityARN (\ s a -> s{_dActivityARN = a});+dActivityARN = lens _dActivityARN (\ s a -> s{_dActivityARN = a})  instance AWSRequest DescribeActivity where         type Rs DescribeActivity = DescribeActivityResponse@@ -122,7 +122,7 @@ -- -- * 'desrsName' - The name of the activity. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) ----- * 'desrsCreationDate' - The date the activity was created.+-- * 'desrsCreationDate' - The date the activity is created. describeActivityResponse     :: Int -- ^ 'desrsResponseStatus'     -> Text -- ^ 'desrsActivityARN'@@ -131,27 +131,27 @@     -> DescribeActivityResponse describeActivityResponse pResponseStatus_ pActivityARN_ pName_ pCreationDate_ =   DescribeActivityResponse'-  { _desrsResponseStatus = pResponseStatus_-  , _desrsActivityARN = pActivityARN_-  , _desrsName = pName_-  , _desrsCreationDate = _Time # pCreationDate_-  }+    { _desrsResponseStatus = pResponseStatus_+    , _desrsActivityARN = pActivityARN_+    , _desrsName = pName_+    , _desrsCreationDate = _Time # pCreationDate_+    }   -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeActivityResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})  -- | The Amazon Resource Name (ARN) that identifies the activity. desrsActivityARN :: Lens' DescribeActivityResponse Text-desrsActivityARN = lens _desrsActivityARN (\ s a -> s{_desrsActivityARN = a});+desrsActivityARN = lens _desrsActivityARN (\ s a -> s{_desrsActivityARN = a})  -- | The name of the activity. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) desrsName :: Lens' DescribeActivityResponse Text-desrsName = lens _desrsName (\ s a -> s{_desrsName = a});+desrsName = lens _desrsName (\ s a -> s{_desrsName = a}) --- | The date the activity was created.+-- | The date the activity is created. desrsCreationDate :: Lens' DescribeActivityResponse UTCTime-desrsCreationDate = lens _desrsCreationDate (\ s a -> s{_desrsCreationDate = a}) . _Time;+desrsCreationDate = lens _desrsCreationDate (\ s a -> s{_desrsCreationDate = a}) . _Time  instance NFData DescribeActivityResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StepFunctions.DescribeExecution--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,7 +71,7 @@  -- | The Amazon Resource Name (ARN) of the execution to describe. deExecutionARN :: Lens' DescribeExecution Text-deExecutionARN = lens _deExecutionARN (\ s a -> s{_deExecutionARN = a});+deExecutionARN = lens _deExecutionARN (\ s a -> s{_deExecutionARN = a})  instance AWSRequest DescribeExecution where         type Rs DescribeExecution = DescribeExecutionResponse@@ -146,7 +146,7 @@ -- -- * 'dersStatus' - The current status of the execution. ----- * 'dersStartDate' - The date the execution was started.+-- * 'dersStartDate' - The date the execution is started. -- -- * 'dersInput' - The string that contains the JSON input data of the execution. describeExecutionResponse@@ -159,52 +159,52 @@     -> DescribeExecutionResponse describeExecutionResponse pResponseStatus_ pExecutionARN_ pStateMachineARN_ pStatus_ pStartDate_ pInput_ =   DescribeExecutionResponse'-  { _dersStopDate = Nothing-  , _dersName = Nothing-  , _dersOutput = Nothing-  , _dersResponseStatus = pResponseStatus_-  , _dersExecutionARN = pExecutionARN_-  , _dersStateMachineARN = pStateMachineARN_-  , _dersStatus = pStatus_-  , _dersStartDate = _Time # pStartDate_-  , _dersInput = pInput_-  }+    { _dersStopDate = Nothing+    , _dersName = Nothing+    , _dersOutput = Nothing+    , _dersResponseStatus = pResponseStatus_+    , _dersExecutionARN = pExecutionARN_+    , _dersStateMachineARN = pStateMachineARN_+    , _dersStatus = pStatus_+    , _dersStartDate = _Time # pStartDate_+    , _dersInput = pInput_+    }   -- | If the execution has already ended, the date the execution stopped. dersStopDate :: Lens' DescribeExecutionResponse (Maybe UTCTime)-dersStopDate = lens _dersStopDate (\ s a -> s{_dersStopDate = a}) . mapping _Time;+dersStopDate = lens _dersStopDate (\ s a -> s{_dersStopDate = a}) . mapping _Time  -- | The name of the execution. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) dersName :: Lens' DescribeExecutionResponse (Maybe Text)-dersName = lens _dersName (\ s a -> s{_dersName = a});+dersName = lens _dersName (\ s a -> s{_dersName = a})  -- | The JSON output data of the execution. dersOutput :: Lens' DescribeExecutionResponse (Maybe Text)-dersOutput = lens _dersOutput (\ s a -> s{_dersOutput = a});+dersOutput = lens _dersOutput (\ s a -> s{_dersOutput = a})  -- | -- | The response status code. dersResponseStatus :: Lens' DescribeExecutionResponse Int-dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})  -- | The Amazon Resource Name (ARN) that identifies the execution. dersExecutionARN :: Lens' DescribeExecutionResponse Text-dersExecutionARN = lens _dersExecutionARN (\ s a -> s{_dersExecutionARN = a});+dersExecutionARN = lens _dersExecutionARN (\ s a -> s{_dersExecutionARN = a})  -- | The Amazon Resource Name (ARN) of the executed stated machine. dersStateMachineARN :: Lens' DescribeExecutionResponse Text-dersStateMachineARN = lens _dersStateMachineARN (\ s a -> s{_dersStateMachineARN = a});+dersStateMachineARN = lens _dersStateMachineARN (\ s a -> s{_dersStateMachineARN = a})  -- | The current status of the execution. dersStatus :: Lens' DescribeExecutionResponse ExecutionStatus-dersStatus = lens _dersStatus (\ s a -> s{_dersStatus = a});+dersStatus = lens _dersStatus (\ s a -> s{_dersStatus = a}) --- | The date the execution was started.+-- | The date the execution is started. dersStartDate :: Lens' DescribeExecutionResponse UTCTime-dersStartDate = lens _dersStartDate (\ s a -> s{_dersStartDate = a}) . _Time;+dersStartDate = lens _dersStartDate (\ s a -> s{_dersStartDate = a}) . _Time  -- | The string that contains the JSON input data of the execution. dersInput :: Lens' DescribeExecutionResponse Text-dersInput = lens _dersInput (\ s a -> s{_dersInput = a});+dersInput = lens _dersInput (\ s a -> s{_dersInput = a})  instance NFData DescribeExecutionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StepFunctions.DescribeStateMachine--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The Amazon Resource Name (ARN) of the state machine to describe. dsmStateMachineARN :: Lens' DescribeStateMachine Text-dsmStateMachineARN = lens _dsmStateMachineARN (\ s a -> s{_dsmStateMachineARN = a});+dsmStateMachineARN = lens _dsmStateMachineARN (\ s a -> s{_dsmStateMachineARN = a})  instance AWSRequest DescribeStateMachine where         type Rs DescribeStateMachine =@@ -140,7 +140,7 @@ -- -- * 'dsmrsRoleARN' - The Amazon Resource Name (ARN) of the IAM role used when creating this state machine. (The IAM role maintains security by granting Step Functions access to AWS resources.) ----- * 'dsmrsCreationDate' - The date the state machine was created.+-- * 'dsmrsCreationDate' - The date the state machine is created. describeStateMachineResponse     :: Int -- ^ 'dsmrsResponseStatus'     -> Text -- ^ 'dsmrsStateMachineARN'@@ -151,42 +151,42 @@     -> DescribeStateMachineResponse describeStateMachineResponse pResponseStatus_ pStateMachineARN_ pName_ pDefinition_ pRoleARN_ pCreationDate_ =   DescribeStateMachineResponse'-  { _dsmrsStatus = Nothing-  , _dsmrsResponseStatus = pResponseStatus_-  , _dsmrsStateMachineARN = pStateMachineARN_-  , _dsmrsName = pName_-  , _dsmrsDefinition = pDefinition_-  , _dsmrsRoleARN = pRoleARN_-  , _dsmrsCreationDate = _Time # pCreationDate_-  }+    { _dsmrsStatus = Nothing+    , _dsmrsResponseStatus = pResponseStatus_+    , _dsmrsStateMachineARN = pStateMachineARN_+    , _dsmrsName = pName_+    , _dsmrsDefinition = pDefinition_+    , _dsmrsRoleARN = pRoleARN_+    , _dsmrsCreationDate = _Time # pCreationDate_+    }   -- | The current status of the state machine. dsmrsStatus :: Lens' DescribeStateMachineResponse (Maybe StateMachineStatus)-dsmrsStatus = lens _dsmrsStatus (\ s a -> s{_dsmrsStatus = a});+dsmrsStatus = lens _dsmrsStatus (\ s a -> s{_dsmrsStatus = a})  -- | -- | The response status code. dsmrsResponseStatus :: Lens' DescribeStateMachineResponse Int-dsmrsResponseStatus = lens _dsmrsResponseStatus (\ s a -> s{_dsmrsResponseStatus = a});+dsmrsResponseStatus = lens _dsmrsResponseStatus (\ s a -> s{_dsmrsResponseStatus = a})  -- | The Amazon Resource Name (ARN) that identifies the state machine. dsmrsStateMachineARN :: Lens' DescribeStateMachineResponse Text-dsmrsStateMachineARN = lens _dsmrsStateMachineARN (\ s a -> s{_dsmrsStateMachineARN = a});+dsmrsStateMachineARN = lens _dsmrsStateMachineARN (\ s a -> s{_dsmrsStateMachineARN = a})  -- | The name of the state machine. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) dsmrsName :: Lens' DescribeStateMachineResponse Text-dsmrsName = lens _dsmrsName (\ s a -> s{_dsmrsName = a});+dsmrsName = lens _dsmrsName (\ s a -> s{_dsmrsName = a})  -- | The Amazon States Language definition of the state machine. dsmrsDefinition :: Lens' DescribeStateMachineResponse Text-dsmrsDefinition = lens _dsmrsDefinition (\ s a -> s{_dsmrsDefinition = a});+dsmrsDefinition = lens _dsmrsDefinition (\ s a -> s{_dsmrsDefinition = a})  -- | The Amazon Resource Name (ARN) of the IAM role used when creating this state machine. (The IAM role maintains security by granting Step Functions access to AWS resources.) dsmrsRoleARN :: Lens' DescribeStateMachineResponse Text-dsmrsRoleARN = lens _dsmrsRoleARN (\ s a -> s{_dsmrsRoleARN = a});+dsmrsRoleARN = lens _dsmrsRoleARN (\ s a -> s{_dsmrsRoleARN = a}) --- | The date the state machine was created.+-- | The date the state machine is created. dsmrsCreationDate :: Lens' DescribeStateMachineResponse UTCTime-dsmrsCreationDate = lens _dsmrsCreationDate (\ s a -> s{_dsmrsCreationDate = a}) . _Time;+dsmrsCreationDate = lens _dsmrsCreationDate (\ s a -> s{_dsmrsCreationDate = a}) . _Time  instance NFData DescribeStateMachineResponse where

@@ -0,0 +1,191 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.StepFunctions.DescribeStateMachineForExecution+-- Copyright   : (c) 2013-2018 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)+--+-- Describes the state machine associated with a specific execution.+--+--+module Network.AWS.StepFunctions.DescribeStateMachineForExecution+    (+    -- * Creating a Request+      describeStateMachineForExecution+    , DescribeStateMachineForExecution+    -- * Request Lenses+    , dsmfeExecutionARN++    -- * Destructuring the Response+    , describeStateMachineForExecutionResponse+    , DescribeStateMachineForExecutionResponse+    -- * Response Lenses+    , dsmfersResponseStatus+    , dsmfersStateMachineARN+    , dsmfersName+    , dsmfersDefinition+    , dsmfersRoleARN+    , dsmfersUpdateDate+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StepFunctions.Types+import Network.AWS.StepFunctions.Types.Product++-- | /See:/ 'describeStateMachineForExecution' smart constructor.+newtype DescribeStateMachineForExecution = DescribeStateMachineForExecution'+  { _dsmfeExecutionARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeStateMachineForExecution' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsmfeExecutionARN' - The Amazon Resource Name (ARN) of the execution you want state machine information for.+describeStateMachineForExecution+    :: Text -- ^ 'dsmfeExecutionARN'+    -> DescribeStateMachineForExecution+describeStateMachineForExecution pExecutionARN_ =+  DescribeStateMachineForExecution' {_dsmfeExecutionARN = pExecutionARN_}+++-- | The Amazon Resource Name (ARN) of the execution you want state machine information for.+dsmfeExecutionARN :: Lens' DescribeStateMachineForExecution Text+dsmfeExecutionARN = lens _dsmfeExecutionARN (\ s a -> s{_dsmfeExecutionARN = a})++instance AWSRequest DescribeStateMachineForExecution+         where+        type Rs DescribeStateMachineForExecution =+             DescribeStateMachineForExecutionResponse+        request = postJSON stepFunctions+        response+          = receiveJSON+              (\ s h x ->+                 DescribeStateMachineForExecutionResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "stateMachineArn") <*>+                     (x .:> "name")+                     <*> (x .:> "definition")+                     <*> (x .:> "roleArn")+                     <*> (x .:> "updateDate"))++instance Hashable DescribeStateMachineForExecution+         where++instance NFData DescribeStateMachineForExecution+         where++instance ToHeaders DescribeStateMachineForExecution+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSStepFunctions.DescribeStateMachineForExecution"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)])++instance ToJSON DescribeStateMachineForExecution+         where+        toJSON DescribeStateMachineForExecution'{..}+          = object+              (catMaybes+                 [Just ("executionArn" .= _dsmfeExecutionARN)])++instance ToPath DescribeStateMachineForExecution+         where+        toPath = const "/"++instance ToQuery DescribeStateMachineForExecution+         where+        toQuery = const mempty++-- | /See:/ 'describeStateMachineForExecutionResponse' smart constructor.+data DescribeStateMachineForExecutionResponse = DescribeStateMachineForExecutionResponse'+  { _dsmfersResponseStatus  :: !Int+  , _dsmfersStateMachineARN :: !Text+  , _dsmfersName            :: !Text+  , _dsmfersDefinition      :: !Text+  , _dsmfersRoleARN         :: !Text+  , _dsmfersUpdateDate      :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeStateMachineForExecutionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsmfersResponseStatus' - -- | The response status code.+--+-- * 'dsmfersStateMachineARN' - The Amazon Resource Name (ARN) of the state machine associated with the execution.+--+-- * 'dsmfersName' - The name of the state machine associated with the execution.+--+-- * 'dsmfersDefinition' - The Amazon States Language definition of the state machine.+--+-- * 'dsmfersRoleARN' - The Amazon Resource Name (ARN) of the IAM role of the State Machine for the execution.+--+-- * 'dsmfersUpdateDate' - The date and time the state machine associated with an execution was updated. For a newly created state machine, this is the creation date.+describeStateMachineForExecutionResponse+    :: Int -- ^ 'dsmfersResponseStatus'+    -> Text -- ^ 'dsmfersStateMachineARN'+    -> Text -- ^ 'dsmfersName'+    -> Text -- ^ 'dsmfersDefinition'+    -> Text -- ^ 'dsmfersRoleARN'+    -> UTCTime -- ^ 'dsmfersUpdateDate'+    -> DescribeStateMachineForExecutionResponse+describeStateMachineForExecutionResponse pResponseStatus_ pStateMachineARN_ pName_ pDefinition_ pRoleARN_ pUpdateDate_ =+  DescribeStateMachineForExecutionResponse'+    { _dsmfersResponseStatus = pResponseStatus_+    , _dsmfersStateMachineARN = pStateMachineARN_+    , _dsmfersName = pName_+    , _dsmfersDefinition = pDefinition_+    , _dsmfersRoleARN = pRoleARN_+    , _dsmfersUpdateDate = _Time # pUpdateDate_+    }+++-- | -- | The response status code.+dsmfersResponseStatus :: Lens' DescribeStateMachineForExecutionResponse Int+dsmfersResponseStatus = lens _dsmfersResponseStatus (\ s a -> s{_dsmfersResponseStatus = a})++-- | The Amazon Resource Name (ARN) of the state machine associated with the execution.+dsmfersStateMachineARN :: Lens' DescribeStateMachineForExecutionResponse Text+dsmfersStateMachineARN = lens _dsmfersStateMachineARN (\ s a -> s{_dsmfersStateMachineARN = a})++-- | The name of the state machine associated with the execution.+dsmfersName :: Lens' DescribeStateMachineForExecutionResponse Text+dsmfersName = lens _dsmfersName (\ s a -> s{_dsmfersName = a})++-- | The Amazon States Language definition of the state machine.+dsmfersDefinition :: Lens' DescribeStateMachineForExecutionResponse Text+dsmfersDefinition = lens _dsmfersDefinition (\ s a -> s{_dsmfersDefinition = a})++-- | The Amazon Resource Name (ARN) of the IAM role of the State Machine for the execution.+dsmfersRoleARN :: Lens' DescribeStateMachineForExecutionResponse Text+dsmfersRoleARN = lens _dsmfersRoleARN (\ s a -> s{_dsmfersRoleARN = a})++-- | The date and time the state machine associated with an execution was updated. For a newly created state machine, this is the creation date.+dsmfersUpdateDate :: Lens' DescribeStateMachineForExecutionResponse UTCTime+dsmfersUpdateDate = lens _dsmfersUpdateDate (\ s a -> s{_dsmfersUpdateDate = a}) . _Time++instance NFData+           DescribeStateMachineForExecutionResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StepFunctions.GetActivityTask--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Used by workers to retrieve a task (with the specified activity ARN) which has been scheduled for execution by a running state machine. This initiates a long poll, where the service holds the HTTP connection open and responds as soon as a task becomes available (i.e. an execution of a task of this type is needed.) 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 a @taskToken@ with a null string.+-- Used by workers to retrieve a task (with the specified activity ARN) which has been scheduled for execution by a running state machine. This initiates a long poll, where the service holds the HTTP connection open and responds as soon as a task becomes available (i.e. an execution of a task of this type is needed.) 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 a @taskToken@ with a null string. -- -- -- /Important:/ Workers should set their client side socket timeout to at least 65 seconds (5 seconds higher than the maximum time the service may hold the poll request).@@ -59,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gatWorkerName' - You can provide an arbitrary name in order to identify the worker that the task is assigned to. This name will be used when it is logged in the execution history.+-- * 'gatWorkerName' - You can provide an arbitrary name in order to identify the worker that the task is assigned to. This name is used when it is logged in the execution history. -- -- * 'gatActivityARN' - The Amazon Resource Name (ARN) of the activity to retrieve tasks from (assigned when you create the task using 'CreateActivity' .) getActivityTask@@ -69,13 +69,13 @@   GetActivityTask' {_gatWorkerName = Nothing, _gatActivityARN = pActivityARN_}  --- | You can provide an arbitrary name in order to identify the worker that the task is assigned to. This name will be used when it is logged in the execution history.+-- | You can provide an arbitrary name in order to identify the worker that the task is assigned to. This name is used when it is logged in the execution history. gatWorkerName :: Lens' GetActivityTask (Maybe Text)-gatWorkerName = lens _gatWorkerName (\ s a -> s{_gatWorkerName = a});+gatWorkerName = lens _gatWorkerName (\ s a -> s{_gatWorkerName = a})  -- | The Amazon Resource Name (ARN) of the activity to retrieve tasks from (assigned when you create the task using 'CreateActivity' .) gatActivityARN :: Lens' GetActivityTask Text-gatActivityARN = lens _gatActivityARN (\ s a -> s{_gatActivityARN = a});+gatActivityARN = lens _gatActivityARN (\ s a -> s{_gatActivityARN = a})  instance AWSRequest GetActivityTask where         type Rs GetActivityTask = GetActivityTaskResponse@@ -135,22 +135,22 @@     -> GetActivityTaskResponse getActivityTaskResponse pResponseStatus_ =   GetActivityTaskResponse'-  { _gatrsInput = Nothing-  , _gatrsTaskToken = Nothing-  , _gatrsResponseStatus = pResponseStatus_-  }+    { _gatrsInput = Nothing+    , _gatrsTaskToken = Nothing+    , _gatrsResponseStatus = pResponseStatus_+    }   -- | The string that contains the JSON input data for the task. gatrsInput :: Lens' GetActivityTaskResponse (Maybe Text)-gatrsInput = lens _gatrsInput (\ s a -> s{_gatrsInput = a});+gatrsInput = lens _gatrsInput (\ s a -> s{_gatrsInput = a})  -- | A token that identifies the scheduled task. This token must be copied and included in subsequent calls to 'SendTaskHeartbeat' , 'SendTaskSuccess' or 'SendTaskFailure' in order to report the progress or completion of the task. gatrsTaskToken :: Lens' GetActivityTaskResponse (Maybe Text)-gatrsTaskToken = lens _gatrsTaskToken (\ s a -> s{_gatrsTaskToken = a});+gatrsTaskToken = lens _gatrsTaskToken (\ s a -> s{_gatrsTaskToken = a})  -- | -- | The response status code. gatrsResponseStatus :: Lens' GetActivityTaskResponse Int-gatrsResponseStatus = lens _gatrsResponseStatus (\ s a -> s{_gatrsResponseStatus = a});+gatrsResponseStatus = lens _gatrsResponseStatus (\ s a -> s{_gatrsResponseStatus = a})  instance NFData GetActivityTaskResponse where

@@ -12,16 +12,18 @@  -- | -- Module      : Network.AWS.StepFunctions.GetExecutionHistory--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Returns the history of the specified execution as a list of events. By default, the results are returned in ascending order of the @timeStamp@ of the events. Use the @reverseOrder@ parameter to get the latest events first. The results may be split into multiple pages. To retrieve subsequent pages, make the call again using the @nextToken@ returned by the previous call.+-- Returns the history of the specified execution as a list of events. By default, the results are returned in ascending order of the @timeStamp@ of the events. Use the @reverseOrder@ parameter to get the latest events first. -- --+-- If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. --+-- -- This operation returns paginated results. module Network.AWS.StepFunctions.GetExecutionHistory     (@@ -66,9 +68,9 @@ -- -- * 'gehReverseOrder' - Lists events in descending order of their @timeStamp@ . ----- * 'gehNextToken' - If a @nextToken@ 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- * 'gehNextToken' - If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. ----- * 'gehMaxResults' - The maximum number of results that will be returned per call. @nextToken@ can be used to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 means to use the default. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'gehMaxResults' - The maximum number of results that are returned per call. You can use @nextToken@ to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 uses the default. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum. -- -- * 'gehExecutionARN' - The Amazon Resource Name (ARN) of the execution. getExecutionHistory@@ -76,28 +78,28 @@     -> GetExecutionHistory getExecutionHistory pExecutionARN_ =   GetExecutionHistory'-  { _gehReverseOrder = Nothing-  , _gehNextToken = Nothing-  , _gehMaxResults = Nothing-  , _gehExecutionARN = pExecutionARN_-  }+    { _gehReverseOrder = Nothing+    , _gehNextToken = Nothing+    , _gehMaxResults = Nothing+    , _gehExecutionARN = pExecutionARN_+    }   -- | Lists events in descending order of their @timeStamp@ . gehReverseOrder :: Lens' GetExecutionHistory (Maybe Bool)-gehReverseOrder = lens _gehReverseOrder (\ s a -> s{_gehReverseOrder = a});+gehReverseOrder = lens _gehReverseOrder (\ s a -> s{_gehReverseOrder = a}) --- | If a @nextToken@ 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- | If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. gehNextToken :: Lens' GetExecutionHistory (Maybe Text)-gehNextToken = lens _gehNextToken (\ s a -> s{_gehNextToken = a});+gehNextToken = lens _gehNextToken (\ s a -> s{_gehNextToken = a}) --- | The maximum number of results that will be returned per call. @nextToken@ can be used to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 means to use the default. 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. You can use @nextToken@ to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 uses the default. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum. gehMaxResults :: Lens' GetExecutionHistory (Maybe Natural)-gehMaxResults = lens _gehMaxResults (\ s a -> s{_gehMaxResults = a}) . mapping _Nat;+gehMaxResults = lens _gehMaxResults (\ s a -> s{_gehMaxResults = a}) . mapping _Nat  -- | The Amazon Resource Name (ARN) of the execution. gehExecutionARN :: Lens' GetExecutionHistory Text-gehExecutionARN = lens _gehExecutionARN (\ s a -> s{_gehExecutionARN = a});+gehExecutionARN = lens _gehExecutionARN (\ s a -> s{_gehExecutionARN = a})  instance AWSPager GetExecutionHistory where         page rq rs@@ -158,7 +160,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gehrsNextToken' - If a @nextToken@ is returned, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- * 'gehrsNextToken' - If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. -- -- * 'gehrsResponseStatus' - -- | The response status code. --@@ -168,22 +170,22 @@     -> GetExecutionHistoryResponse getExecutionHistoryResponse pResponseStatus_ =   GetExecutionHistoryResponse'-  { _gehrsNextToken = Nothing-  , _gehrsResponseStatus = pResponseStatus_-  , _gehrsEvents = mempty-  }+    { _gehrsNextToken = Nothing+    , _gehrsResponseStatus = pResponseStatus_+    , _gehrsEvents = mempty+    }  --- | If a @nextToken@ is returned, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- | If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. gehrsNextToken :: Lens' GetExecutionHistoryResponse (Maybe Text)-gehrsNextToken = lens _gehrsNextToken (\ s a -> s{_gehrsNextToken = a});+gehrsNextToken = lens _gehrsNextToken (\ s a -> s{_gehrsNextToken = a})  -- | -- | The response status code. gehrsResponseStatus :: Lens' GetExecutionHistoryResponse Int-gehrsResponseStatus = lens _gehrsResponseStatus (\ s a -> s{_gehrsResponseStatus = a});+gehrsResponseStatus = lens _gehrsResponseStatus (\ s a -> s{_gehrsResponseStatus = a})  -- | The list of events that occurred in the execution. gehrsEvents :: Lens' GetExecutionHistoryResponse [HistoryEvent]-gehrsEvents = lens _gehrsEvents (\ s a -> s{_gehrsEvents = a}) . _Coerce;+gehrsEvents = lens _gehrsEvents (\ s a -> s{_gehrsEvents = a}) . _Coerce  instance NFData GetExecutionHistoryResponse where

@@ -12,16 +12,18 @@  -- | -- Module      : Network.AWS.StepFunctions.ListActivities--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Lists the existing activities. The results may be split into multiple pages. To retrieve subsequent pages, make the call again using the @nextToken@ returned by the previous call.+-- Lists the existing activities. -- --+-- If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. --+-- -- This operation returns paginated results. module Network.AWS.StepFunctions.ListActivities     (@@ -60,22 +62,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'laNextToken' - If a @nextToken@ 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- * 'laNextToken' - If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. ----- * 'laMaxResults' - The maximum number of results that will be returned per call. @nextToken@ can be used to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 means to use the default. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'laMaxResults' - The maximum number of results that are returned per call. You can use @nextToken@ to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 uses the default. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum. listActivities     :: ListActivities listActivities =   ListActivities' {_laNextToken = Nothing, _laMaxResults = Nothing}  --- | If a @nextToken@ 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- | If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. laNextToken :: Lens' ListActivities (Maybe Text)-laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a});+laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a}) --- | The maximum number of results that will be returned per call. @nextToken@ can be used to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 means to use the default. 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. You can use @nextToken@ to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 uses the default. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum. laMaxResults :: Lens' ListActivities (Maybe Natural)-laMaxResults = lens _laMaxResults (\ s a -> s{_laMaxResults = a}) . mapping _Nat;+laMaxResults = lens _laMaxResults (\ s a -> s{_laMaxResults = a}) . mapping _Nat  instance AWSPager ListActivities where         page rq rs@@ -132,7 +134,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'larsNextToken' - If a @nextToken@ is returned, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- * 'larsNextToken' - If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. -- -- * 'larsResponseStatus' - -- | The response status code. --@@ -142,22 +144,22 @@     -> ListActivitiesResponse listActivitiesResponse pResponseStatus_ =   ListActivitiesResponse'-  { _larsNextToken = Nothing-  , _larsResponseStatus = pResponseStatus_-  , _larsActivities = mempty-  }+    { _larsNextToken = Nothing+    , _larsResponseStatus = pResponseStatus_+    , _larsActivities = mempty+    }  --- | If a @nextToken@ is returned, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- | If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. larsNextToken :: Lens' ListActivitiesResponse (Maybe Text)-larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a});+larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a})  -- | -- | The response status code. larsResponseStatus :: Lens' ListActivitiesResponse Int-larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});+larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a})  -- | The list of activities. larsActivities :: Lens' ListActivitiesResponse [ActivityListItem]-larsActivities = lens _larsActivities (\ s a -> s{_larsActivities = a}) . _Coerce;+larsActivities = lens _larsActivities (\ s a -> s{_larsActivities = a}) . _Coerce  instance NFData ListActivitiesResponse where

@@ -12,16 +12,18 @@  -- | -- Module      : Network.AWS.StepFunctions.ListExecutions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Lists the executions of a state machine that meet the filtering criteria. The results may be split into multiple pages. To retrieve subsequent pages, make the call again using the @nextToken@ returned by the previous call.+-- Lists the executions of a state machine that meet the filtering criteria. -- --+-- If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. --+-- -- This operation returns paginated results. module Network.AWS.StepFunctions.ListExecutions     (@@ -66,38 +68,38 @@ -- -- * 'leStatusFilter' - If specified, only list the executions whose current execution status matches the given filter. ----- * 'leNextToken' - If a @nextToken@ 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- * 'leNextToken' - If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. ----- * 'leMaxResults' - The maximum number of results that will be returned per call. @nextToken@ can be used to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 means to use the default. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'leMaxResults' - The maximum number of results that are returned per call. You can use @nextToken@ to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 uses the default. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum. ----- * 'leStateMachineARN' - The Amazon Resource Name (ARN) of the state machine whose executions will be listed.+-- * 'leStateMachineARN' - The Amazon Resource Name (ARN) of the state machine whose executions is listed. listExecutions     :: Text -- ^ 'leStateMachineARN'     -> ListExecutions listExecutions pStateMachineARN_ =   ListExecutions'-  { _leStatusFilter = Nothing-  , _leNextToken = Nothing-  , _leMaxResults = Nothing-  , _leStateMachineARN = pStateMachineARN_-  }+    { _leStatusFilter = Nothing+    , _leNextToken = Nothing+    , _leMaxResults = Nothing+    , _leStateMachineARN = pStateMachineARN_+    }   -- | If specified, only list the executions whose current execution status matches the given filter. leStatusFilter :: Lens' ListExecutions (Maybe ExecutionStatus)-leStatusFilter = lens _leStatusFilter (\ s a -> s{_leStatusFilter = a});+leStatusFilter = lens _leStatusFilter (\ s a -> s{_leStatusFilter = a}) --- | If a @nextToken@ 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- | If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. leNextToken :: Lens' ListExecutions (Maybe Text)-leNextToken = lens _leNextToken (\ s a -> s{_leNextToken = a});+leNextToken = lens _leNextToken (\ s a -> s{_leNextToken = a}) --- | The maximum number of results that will be returned per call. @nextToken@ can be used to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 means to use the default. 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. You can use @nextToken@ to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 uses the default. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum. leMaxResults :: Lens' ListExecutions (Maybe Natural)-leMaxResults = lens _leMaxResults (\ s a -> s{_leMaxResults = a}) . mapping _Nat;+leMaxResults = lens _leMaxResults (\ s a -> s{_leMaxResults = a}) . mapping _Nat --- | The Amazon Resource Name (ARN) of the state machine whose executions will be listed.+-- | The Amazon Resource Name (ARN) of the state machine whose executions is listed. leStateMachineARN :: Lens' ListExecutions Text-leStateMachineARN = lens _leStateMachineARN (\ s a -> s{_leStateMachineARN = a});+leStateMachineARN = lens _leStateMachineARN (\ s a -> s{_leStateMachineARN = a})  instance AWSPager ListExecutions where         page rq rs@@ -156,7 +158,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lersNextToken' - If a @nextToken@ is returned, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- * 'lersNextToken' - If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. -- -- * 'lersResponseStatus' - -- | The response status code. --@@ -166,22 +168,22 @@     -> ListExecutionsResponse listExecutionsResponse pResponseStatus_ =   ListExecutionsResponse'-  { _lersNextToken = Nothing-  , _lersResponseStatus = pResponseStatus_-  , _lersExecutions = mempty-  }+    { _lersNextToken = Nothing+    , _lersResponseStatus = pResponseStatus_+    , _lersExecutions = mempty+    }  --- | If a @nextToken@ is returned, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- | If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. lersNextToken :: Lens' ListExecutionsResponse (Maybe Text)-lersNextToken = lens _lersNextToken (\ s a -> s{_lersNextToken = a});+lersNextToken = lens _lersNextToken (\ s a -> s{_lersNextToken = a})  -- | -- | The response status code. lersResponseStatus :: Lens' ListExecutionsResponse Int-lersResponseStatus = lens _lersResponseStatus (\ s a -> s{_lersResponseStatus = a});+lersResponseStatus = lens _lersResponseStatus (\ s a -> s{_lersResponseStatus = a})  -- | The list of matching executions. lersExecutions :: Lens' ListExecutionsResponse [ExecutionListItem]-lersExecutions = lens _lersExecutions (\ s a -> s{_lersExecutions = a}) . _Coerce;+lersExecutions = lens _lersExecutions (\ s a -> s{_lersExecutions = a}) . _Coerce  instance NFData ListExecutionsResponse where

@@ -12,16 +12,18 @@  -- | -- Module      : Network.AWS.StepFunctions.ListStateMachines--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Lists the existing state machines. The results may be split into multiple pages. To retrieve subsequent pages, make the call again using the @nextToken@ returned by the previous call.+-- Lists the existing state machines. -- --+-- If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. --+-- -- This operation returns paginated results. module Network.AWS.StepFunctions.ListStateMachines     (@@ -60,22 +62,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lsmNextToken' - If a @nextToken@ 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- * 'lsmNextToken' - If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. ----- * 'lsmMaxResults' - The maximum number of results that will be returned per call. @nextToken@ can be used to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 means to use the default. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum.+-- * 'lsmMaxResults' - The maximum number of results that are returned per call. You can use @nextToken@ to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 uses the default. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum. listStateMachines     :: ListStateMachines listStateMachines =   ListStateMachines' {_lsmNextToken = Nothing, _lsmMaxResults = Nothing}  --- | If a @nextToken@ 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- | If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. lsmNextToken :: Lens' ListStateMachines (Maybe Text)-lsmNextToken = lens _lsmNextToken (\ s a -> s{_lsmNextToken = a});+lsmNextToken = lens _lsmNextToken (\ s a -> s{_lsmNextToken = a}) --- | The maximum number of results that will be returned per call. @nextToken@ can be used to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 means to use the default. 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. You can use @nextToken@ to obtain further pages of results. The default is 100 and the maximum allowed page size is 100. A value of 0 uses the default. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum. lsmMaxResults :: Lens' ListStateMachines (Maybe Natural)-lsmMaxResults = lens _lsmMaxResults (\ s a -> s{_lsmMaxResults = a}) . mapping _Nat;+lsmMaxResults = lens _lsmMaxResults (\ s a -> s{_lsmMaxResults = a}) . mapping _Nat  instance AWSPager ListStateMachines where         page rq rs@@ -132,7 +134,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lsmrsNextToken' - If a @nextToken@ is returned, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- * 'lsmrsNextToken' - If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. -- -- * 'lsmrsResponseStatus' - -- | The response status code. --@@ -142,22 +144,22 @@     -> ListStateMachinesResponse listStateMachinesResponse pResponseStatus_ =   ListStateMachinesResponse'-  { _lsmrsNextToken = Nothing-  , _lsmrsResponseStatus = pResponseStatus_-  , _lsmrsStateMachines = mempty-  }+    { _lsmrsNextToken = Nothing+    , _lsmrsResponseStatus = pResponseStatus_+    , _lsmrsStateMachines = mempty+    }  --- | If a @nextToken@ is returned, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call.+-- | If a @nextToken@ is 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 @nextToken@ . Keep all other arguments unchanged. The configured @maxResults@ determines how many results can be returned in a single call. lsmrsNextToken :: Lens' ListStateMachinesResponse (Maybe Text)-lsmrsNextToken = lens _lsmrsNextToken (\ s a -> s{_lsmrsNextToken = a});+lsmrsNextToken = lens _lsmrsNextToken (\ s a -> s{_lsmrsNextToken = a})  -- | -- | The response status code. lsmrsResponseStatus :: Lens' ListStateMachinesResponse Int-lsmrsResponseStatus = lens _lsmrsResponseStatus (\ s a -> s{_lsmrsResponseStatus = a});+lsmrsResponseStatus = lens _lsmrsResponseStatus (\ s a -> s{_lsmrsResponseStatus = a})  -- | Undocumented member. lsmrsStateMachines :: Lens' ListStateMachinesResponse [StateMachineListItem]-lsmrsStateMachines = lens _lsmrsStateMachines (\ s a -> s{_lsmrsStateMachines = a}) . _Coerce;+lsmrsStateMachines = lens _lsmrsStateMachines (\ s a -> s{_lsmrsStateMachines = a}) . _Coerce  instance NFData ListStateMachinesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StepFunctions.SendTaskFailure--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,20 +67,20 @@     -> SendTaskFailure sendTaskFailure pTaskToken_ =   SendTaskFailure'-  {_stfError = Nothing, _stfCause = Nothing, _stfTaskToken = pTaskToken_}+    {_stfError = Nothing, _stfCause = Nothing, _stfTaskToken = pTaskToken_}   -- | An arbitrary error code that identifies the cause of the failure. stfError :: Lens' SendTaskFailure (Maybe Text)-stfError = lens _stfError (\ s a -> s{_stfError = a});+stfError = lens _stfError (\ s a -> s{_stfError = a})  -- | A more detailed explanation of the cause of the failure. stfCause :: Lens' SendTaskFailure (Maybe Text)-stfCause = lens _stfCause (\ s a -> s{_stfCause = a});+stfCause = lens _stfCause (\ s a -> s{_stfCause = a})  -- | The token that represents this task. Task tokens are generated by the service when the tasks are assigned to a worker (see GetActivityTask::taskToken). stfTaskToken :: Lens' SendTaskFailure Text-stfTaskToken = lens _stfTaskToken (\ s a -> s{_stfTaskToken = a});+stfTaskToken = lens _stfTaskToken (\ s a -> s{_stfTaskToken = a})  instance AWSRequest SendTaskFailure where         type Rs SendTaskFailure = SendTaskFailureResponse@@ -137,6 +137,6 @@  -- | -- | The response status code. stfrsResponseStatus :: Lens' SendTaskFailureResponse Int-stfrsResponseStatus = lens _stfrsResponseStatus (\ s a -> s{_stfrsResponseStatus = a});+stfrsResponseStatus = lens _stfrsResponseStatus (\ s a -> s{_stfrsResponseStatus = a})  instance NFData SendTaskFailureResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StepFunctions.SendTaskHeartbeat--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Used by workers to report to the service that the task represented by the specified @taskToken@ is still making progress. This action resets the @Heartbeat@ clock. The @Heartbeat@ threshold is specified in the state machine's Amazon States Language definition. This action does not in itself create an event in the execution history. However, if the task times out, the execution history will contain an @ActivityTimedOut@ event.+-- Used by workers to report to the service that the task represented by the specified @taskToken@ is still making progress. This action resets the @Heartbeat@ clock. The @Heartbeat@ threshold is specified in the state machine's Amazon States Language definition. This action does not in itself create an event in the execution history. However, if the task times out, the execution history contains an @ActivityTimedOut@ event. -- -- module Network.AWS.StepFunctions.SendTaskHeartbeat@@ -53,16 +53,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sthTaskToken' - The token that represents this task. Task tokens are generated by the service when the tasks are assigned to a worker (see GetActivityTask::taskToken).+-- * 'sthTaskToken' - The token that represents this task. Task tokens are generated by the service when the tasks are assigned to a worker (see 'GetActivityTaskOutput$taskToken' ). sendTaskHeartbeat     :: Text -- ^ 'sthTaskToken'     -> SendTaskHeartbeat sendTaskHeartbeat pTaskToken_ = SendTaskHeartbeat' {_sthTaskToken = pTaskToken_}  --- | The token that represents this task. Task tokens are generated by the service when the tasks are assigned to a worker (see GetActivityTask::taskToken).+-- | The token that represents this task. Task tokens are generated by the service when the tasks are assigned to a worker (see 'GetActivityTaskOutput$taskToken' ). sthTaskToken :: Lens' SendTaskHeartbeat Text-sthTaskToken = lens _sthTaskToken (\ s a -> s{_sthTaskToken = a});+sthTaskToken = lens _sthTaskToken (\ s a -> s{_sthTaskToken = a})  instance AWSRequest SendTaskHeartbeat where         type Rs SendTaskHeartbeat = SendTaskHeartbeatResponse@@ -116,6 +116,6 @@  -- | -- | The response status code. sthrsResponseStatus :: Lens' SendTaskHeartbeatResponse Int-sthrsResponseStatus = lens _sthrsResponseStatus (\ s a -> s{_sthrsResponseStatus = a});+sthrsResponseStatus = lens _sthrsResponseStatus (\ s a -> s{_sthrsResponseStatus = a})  instance NFData SendTaskHeartbeatResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StepFunctions.SendTaskSuccess--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'stsTaskToken' - The token that represents this task. Task tokens are generated by the service when the tasks are assigned to a worker (see GetActivityTask::taskToken).+-- * 'stsTaskToken' - The token that represents this task. Task tokens are generated by the service when the tasks are assigned to a worker (see 'GetActivityTaskOutput$taskToken' ). -- -- * 'stsOutput' - The JSON output of the task. sendTaskSuccess@@ -66,13 +66,13 @@   SendTaskSuccess' {_stsTaskToken = pTaskToken_, _stsOutput = pOutput_}  --- | The token that represents this task. Task tokens are generated by the service when the tasks are assigned to a worker (see GetActivityTask::taskToken).+-- | The token that represents this task. Task tokens are generated by the service when the tasks are assigned to a worker (see 'GetActivityTaskOutput$taskToken' ). stsTaskToken :: Lens' SendTaskSuccess Text-stsTaskToken = lens _stsTaskToken (\ s a -> s{_stsTaskToken = a});+stsTaskToken = lens _stsTaskToken (\ s a -> s{_stsTaskToken = a})  -- | The JSON output of the task. stsOutput :: Lens' SendTaskSuccess Text-stsOutput = lens _stsOutput (\ s a -> s{_stsOutput = a});+stsOutput = lens _stsOutput (\ s a -> s{_stsOutput = a})  instance AWSRequest SendTaskSuccess where         type Rs SendTaskSuccess = SendTaskSuccessResponse@@ -128,6 +128,6 @@  -- | -- | The response status code. stsrsResponseStatus :: Lens' SendTaskSuccessResponse Int-stsrsResponseStatus = lens _stsrsResponseStatus (\ s a -> s{_stsrsResponseStatus = a});+stsrsResponseStatus = lens _stsrsResponseStatus (\ s a -> s{_stsrsResponseStatus = a})  instance NFData SendTaskSuccessResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StepFunctions.StartExecution--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- -- * 'seInput' - The string that contains the JSON input data for the execution, for example: @"input": "{\"first_name\" : \"test\"}"@ ----- * 'seName' - The name of the execution. This name must be unique for your AWS account and region for 90 days. For more information, see <http://docs.aws.amazon.com/step-functions/latest/dg/limits.html#service-limits-state-machine-executions Limits Related to State Machine Executions> in the /AWS Step Functions Developer Guide/ . A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ )+-- * 'seName' - The name of the execution. This name must be unique for your AWS account and region for 90 days. For more information, see <http://docs.aws.amazon.com/step-functions/latest/dg/limits.html#service-limits-state-machine-executions Limits Related to State Machine Executions> in the /AWS Step Functions Developer Guide/ . /Important:/ An execution can't use the name of another execution for 90 days. When you make multiple @StartExecution@ calls with the same name, the new execution doesn't run and the following rules apply:     * When the original execution is open and the execution input from the new call is /different/ , the @ExecutionAlreadyExists@ message is returned.     * When the original execution is open and the execution input from the new call is /identical/ , the @Success@ message is returned.     * When the original execution is closed, the @ExecutionAlreadyExists@ message is returned regardless of input. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) -- -- * 'seStateMachineARN' - The Amazon Resource Name (ARN) of the state machine to execute. startExecution@@ -69,23 +69,23 @@     -> StartExecution startExecution pStateMachineARN_ =   StartExecution'-  { _seInput = Nothing-  , _seName = Nothing-  , _seStateMachineARN = pStateMachineARN_-  }+    { _seInput = Nothing+    , _seName = Nothing+    , _seStateMachineARN = pStateMachineARN_+    }   -- | The string that contains the JSON input data for the execution, for example: @"input": "{\"first_name\" : \"test\"}"@ seInput :: Lens' StartExecution (Maybe Text)-seInput = lens _seInput (\ s a -> s{_seInput = a});+seInput = lens _seInput (\ s a -> s{_seInput = a}) --- | The name of the execution. This name must be unique for your AWS account and region for 90 days. For more information, see <http://docs.aws.amazon.com/step-functions/latest/dg/limits.html#service-limits-state-machine-executions Limits Related to State Machine Executions> in the /AWS Step Functions Developer Guide/ . A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ )+-- | The name of the execution. This name must be unique for your AWS account and region for 90 days. For more information, see <http://docs.aws.amazon.com/step-functions/latest/dg/limits.html#service-limits-state-machine-executions Limits Related to State Machine Executions> in the /AWS Step Functions Developer Guide/ . /Important:/ An execution can't use the name of another execution for 90 days. When you make multiple @StartExecution@ calls with the same name, the new execution doesn't run and the following rules apply:     * When the original execution is open and the execution input from the new call is /different/ , the @ExecutionAlreadyExists@ message is returned.     * When the original execution is open and the execution input from the new call is /identical/ , the @Success@ message is returned.     * When the original execution is closed, the @ExecutionAlreadyExists@ message is returned regardless of input. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) seName :: Lens' StartExecution (Maybe Text)-seName = lens _seName (\ s a -> s{_seName = a});+seName = lens _seName (\ s a -> s{_seName = a})  -- | The Amazon Resource Name (ARN) of the state machine to execute. seStateMachineARN :: Lens' StartExecution Text-seStateMachineARN = lens _seStateMachineARN (\ s a -> s{_seStateMachineARN = a});+seStateMachineARN = lens _seStateMachineARN (\ s a -> s{_seStateMachineARN = a})  instance AWSRequest StartExecution where         type Rs StartExecution = StartExecutionResponse@@ -139,7 +139,7 @@ -- -- * 'srsExecutionARN' - The Amazon Resource Name (ARN) that identifies the execution. ----- * 'srsStartDate' - The date the execution was started.+-- * 'srsStartDate' - The date the execution is started. startExecutionResponse     :: Int -- ^ 'srsResponseStatus'     -> Text -- ^ 'srsExecutionARN'@@ -147,22 +147,22 @@     -> StartExecutionResponse startExecutionResponse pResponseStatus_ pExecutionARN_ pStartDate_ =   StartExecutionResponse'-  { _srsResponseStatus = pResponseStatus_-  , _srsExecutionARN = pExecutionARN_-  , _srsStartDate = _Time # pStartDate_-  }+    { _srsResponseStatus = pResponseStatus_+    , _srsExecutionARN = pExecutionARN_+    , _srsStartDate = _Time # pStartDate_+    }   -- | -- | The response status code. srsResponseStatus :: Lens' StartExecutionResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})  -- | The Amazon Resource Name (ARN) that identifies the execution. srsExecutionARN :: Lens' StartExecutionResponse Text-srsExecutionARN = lens _srsExecutionARN (\ s a -> s{_srsExecutionARN = a});+srsExecutionARN = lens _srsExecutionARN (\ s a -> s{_srsExecutionARN = a}) --- | The date the execution was started.+-- | The date the execution is started. srsStartDate :: Lens' StartExecutionResponse UTCTime-srsStartDate = lens _srsStartDate (\ s a -> s{_srsStartDate = a}) . _Time;+srsStartDate = lens _srsStartDate (\ s a -> s{_srsStartDate = a}) . _Time  instance NFData StartExecutionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StepFunctions.StopExecution--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     -> StopExecution stopExecution pExecutionARN_ =   StopExecution'-  {_seError = Nothing, _seCause = Nothing, _seExecutionARN = pExecutionARN_}+    {_seError = Nothing, _seCause = Nothing, _seExecutionARN = pExecutionARN_}   -- | An arbitrary error code that identifies the cause of the termination. seError :: Lens' StopExecution (Maybe Text)-seError = lens _seError (\ s a -> s{_seError = a});+seError = lens _seError (\ s a -> s{_seError = a})  -- | A more detailed explanation of the cause of the termination. seCause :: Lens' StopExecution (Maybe Text)-seCause = lens _seCause (\ s a -> s{_seCause = a});+seCause = lens _seCause (\ s a -> s{_seCause = a})  -- | The Amazon Resource Name (ARN) of the execution to stop. seExecutionARN :: Lens' StopExecution Text-seExecutionARN = lens _seExecutionARN (\ s a -> s{_seExecutionARN = a});+seExecutionARN = lens _seExecutionARN (\ s a -> s{_seExecutionARN = a})  instance AWSRequest StopExecution where         type Rs StopExecution = StopExecutionResponse@@ -132,22 +132,22 @@ -- -- * 'sersResponseStatus' - -- | The response status code. ----- * 'sersStopDate' - The date the execution was stopped.+-- * 'sersStopDate' - The date the execution is stopped. stopExecutionResponse     :: Int -- ^ 'sersResponseStatus'     -> UTCTime -- ^ 'sersStopDate'     -> StopExecutionResponse stopExecutionResponse pResponseStatus_ pStopDate_ =   StopExecutionResponse'-  {_sersResponseStatus = pResponseStatus_, _sersStopDate = _Time # pStopDate_}+    {_sersResponseStatus = pResponseStatus_, _sersStopDate = _Time # pStopDate_}   -- | -- | The response status code. sersResponseStatus :: Lens' StopExecutionResponse Int-sersResponseStatus = lens _sersResponseStatus (\ s a -> s{_sersResponseStatus = a});+sersResponseStatus = lens _sersResponseStatus (\ s a -> s{_sersResponseStatus = a}) --- | The date the execution was stopped.+-- | The date the execution is stopped. sersStopDate :: Lens' StopExecutionResponse UTCTime-sersStopDate = lens _sersStopDate (\ s a -> s{_sersStopDate = a}) . _Time;+sersStopDate = lens _sersStopDate (\ s a -> s{_sersStopDate = a}) . _Time  instance NFData StopExecutionResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.StepFunctions.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -28,6 +28,7 @@     , _TaskDoesNotExist     , _ActivityDoesNotExist     , _StateMachineDeleting+    , _MissingRequiredParameter     , _InvalidARN     , _InvalidToken     , _ActivityWorkerLimitExceeded@@ -219,24 +220,24 @@ stepFunctions :: Service stepFunctions =   Service-  { _svcAbbrev = "StepFunctions"-  , _svcSigner = v4-  , _svcPrefix = "states"-  , _svcVersion = "2016-11-23"-  , _svcEndpoint = defaultEndpoint stepFunctions-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "StepFunctions"-  , _svcRetry = retry-  }+    { _svcAbbrev = "StepFunctions"+    , _svcSigner = v4+    , _svcPrefix = "states"+    , _svcVersion = "2016-11-23"+    , _svcEndpoint = defaultEndpoint stepFunctions+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "StepFunctions"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -245,6 +246,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -335,6 +338,14 @@ -- _StateMachineDeleting :: AsError a => Getting (First ServiceError) a ServiceError _StateMachineDeleting = _MatchServiceError stepFunctions "StateMachineDeleting"+++-- | Request is missing a required parameter. This error occurs if both @definition@ and @roleArn@ are not specified.+--+--+_MissingRequiredParameter :: AsError a => Getting (First ServiceError) a ServiceError+_MissingRequiredParameter =+  _MatchServiceError stepFunctions "MissingRequiredParameter"   -- | The provided Amazon Resource Name (ARN) is invalid.

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.StepFunctions.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -47,11 +47,11 @@  -- | The error code of the failure. afedError :: Lens' ActivityFailedEventDetails (Maybe Text)-afedError = lens _afedError (\ s a -> s{_afedError = a});+afedError = lens _afedError (\ s a -> s{_afedError = a})  -- | A more detailed explanation of the cause of the failure. afedCause :: Lens' ActivityFailedEventDetails (Maybe Text)-afedCause = lens _afedCause (\ s a -> s{_afedCause = a});+afedCause = lens _afedCause (\ s a -> s{_afedCause = a})  instance FromJSON ActivityFailedEventDetails where         parseJSON@@ -84,7 +84,7 @@ -- -- * 'aliName' - The name of the activity. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) ----- * 'aliCreationDate' - The date the activity was created.+-- * 'aliCreationDate' - The date the activity is created. activityListItem     :: Text -- ^ 'aliActivityARN'     -> Text -- ^ 'aliName'@@ -92,23 +92,23 @@     -> ActivityListItem activityListItem pActivityARN_ pName_ pCreationDate_ =   ActivityListItem'-  { _aliActivityARN = pActivityARN_-  , _aliName = pName_-  , _aliCreationDate = _Time # pCreationDate_-  }+    { _aliActivityARN = pActivityARN_+    , _aliName = pName_+    , _aliCreationDate = _Time # pCreationDate_+    }   -- | The Amazon Resource Name (ARN) that identifies the activity. aliActivityARN :: Lens' ActivityListItem Text-aliActivityARN = lens _aliActivityARN (\ s a -> s{_aliActivityARN = a});+aliActivityARN = lens _aliActivityARN (\ s a -> s{_aliActivityARN = a})  -- | The name of the activity. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) aliName :: Lens' ActivityListItem Text-aliName = lens _aliName (\ s a -> s{_aliName = a});+aliName = lens _aliName (\ s a -> s{_aliName = a}) --- | The date the activity was created.+-- | The date the activity is created. aliCreationDate :: Lens' ActivityListItem UTCTime-aliCreationDate = lens _aliCreationDate (\ s a -> s{_aliCreationDate = a}) . _Time;+aliCreationDate = lens _aliCreationDate (\ s a -> s{_aliCreationDate = a}) . _Time  instance FromJSON ActivityListItem where         parseJSON@@ -144,16 +144,16 @@     :: ActivityScheduleFailedEventDetails activityScheduleFailedEventDetails =   ActivityScheduleFailedEventDetails'-  {_asfedError = Nothing, _asfedCause = Nothing}+    {_asfedError = Nothing, _asfedCause = Nothing}   -- | The error code of the failure. asfedError :: Lens' ActivityScheduleFailedEventDetails (Maybe Text)-asfedError = lens _asfedError (\ s a -> s{_asfedError = a});+asfedError = lens _asfedError (\ s a -> s{_asfedError = a})  -- | A more detailed explanation of the cause of the failure. asfedCause :: Lens' ActivityScheduleFailedEventDetails (Maybe Text)-asfedCause = lens _asfedCause (\ s a -> s{_asfedCause = a});+asfedCause = lens _asfedCause (\ s a -> s{_asfedCause = a})  instance FromJSON ActivityScheduleFailedEventDetails          where@@ -198,28 +198,28 @@     -> ActivityScheduledEventDetails activityScheduledEventDetails pResource_ =   ActivityScheduledEventDetails'-  { _asedHeartbeatInSeconds = Nothing-  , _asedInput = Nothing-  , _asedTimeoutInSeconds = Nothing-  , _asedResource = pResource_-  }+    { _asedHeartbeatInSeconds = Nothing+    , _asedInput = Nothing+    , _asedTimeoutInSeconds = Nothing+    , _asedResource = pResource_+    }   -- | The maximum allowed duration between two heartbeats for the activity task. asedHeartbeatInSeconds :: Lens' ActivityScheduledEventDetails (Maybe Integer)-asedHeartbeatInSeconds = lens _asedHeartbeatInSeconds (\ s a -> s{_asedHeartbeatInSeconds = a});+asedHeartbeatInSeconds = lens _asedHeartbeatInSeconds (\ s a -> s{_asedHeartbeatInSeconds = a})  -- | The JSON data input to the activity task. asedInput :: Lens' ActivityScheduledEventDetails (Maybe Text)-asedInput = lens _asedInput (\ s a -> s{_asedInput = a});+asedInput = lens _asedInput (\ s a -> s{_asedInput = a})  -- | The maximum allowed duration of the activity task. asedTimeoutInSeconds :: Lens' ActivityScheduledEventDetails (Maybe Integer)-asedTimeoutInSeconds = lens _asedTimeoutInSeconds (\ s a -> s{_asedTimeoutInSeconds = a});+asedTimeoutInSeconds = lens _asedTimeoutInSeconds (\ s a -> s{_asedTimeoutInSeconds = a})  -- | The Amazon Resource Name (ARN) of the scheduled activity. asedResource :: Lens' ActivityScheduledEventDetails Text-asedResource = lens _asedResource (\ s a -> s{_asedResource = a});+asedResource = lens _asedResource (\ s a -> s{_asedResource = a})  instance FromJSON ActivityScheduledEventDetails where         parseJSON@@ -248,16 +248,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'asedWorkerName' - The name of the worker that the task was assigned to. These names are provided by the workers when calling 'GetActivityTask' .+-- * 'asedWorkerName' - The name of the worker that the task is assigned to. These names are provided by the workers when calling 'GetActivityTask' . activityStartedEventDetails     :: ActivityStartedEventDetails activityStartedEventDetails =   ActivityStartedEventDetails' {_asedWorkerName = Nothing}  --- | The name of the worker that the task was assigned to. These names are provided by the workers when calling 'GetActivityTask' .+-- | The name of the worker that the task is assigned to. These names are provided by the workers when calling 'GetActivityTask' . asedWorkerName :: Lens' ActivityStartedEventDetails (Maybe Text)-asedWorkerName = lens _asedWorkerName (\ s a -> s{_asedWorkerName = a});+asedWorkerName = lens _asedWorkerName (\ s a -> s{_asedWorkerName = a})  instance FromJSON ActivityStartedEventDetails where         parseJSON@@ -293,7 +293,7 @@  -- | The JSON data output by the activity task. asedOutput :: Lens' ActivitySucceededEventDetails (Maybe Text)-asedOutput = lens _asedOutput (\ s a -> s{_asedOutput = a});+asedOutput = lens _asedOutput (\ s a -> s{_asedOutput = a})  instance FromJSON ActivitySucceededEventDetails where         parseJSON@@ -331,11 +331,11 @@  -- | The error code of the failure. atoedError :: Lens' ActivityTimedOutEventDetails (Maybe Text)-atoedError = lens _atoedError (\ s a -> s{_atoedError = a});+atoedError = lens _atoedError (\ s a -> s{_atoedError = a})  -- | A more detailed explanation of the cause of the timeout. atoedCause :: Lens' ActivityTimedOutEventDetails (Maybe Text)-atoedCause = lens _atoedCause (\ s a -> s{_atoedCause = a});+atoedCause = lens _atoedCause (\ s a -> s{_atoedCause = a})  instance FromJSON ActivityTimedOutEventDetails where         parseJSON@@ -374,11 +374,11 @@  -- | The error code of the failure. eaedError :: Lens' ExecutionAbortedEventDetails (Maybe Text)-eaedError = lens _eaedError (\ s a -> s{_eaedError = a});+eaedError = lens _eaedError (\ s a -> s{_eaedError = a})  -- | A more detailed explanation of the cause of the failure. eaedCause :: Lens' ExecutionAbortedEventDetails (Maybe Text)-eaedCause = lens _eaedCause (\ s a -> s{_eaedCause = a});+eaedCause = lens _eaedCause (\ s a -> s{_eaedCause = a})  instance FromJSON ExecutionAbortedEventDetails where         parseJSON@@ -417,11 +417,11 @@  -- | The error code of the failure. efedError :: Lens' ExecutionFailedEventDetails (Maybe Text)-efedError = lens _efedError (\ s a -> s{_efedError = a});+efedError = lens _efedError (\ s a -> s{_efedError = a})  -- | A more detailed explanation of the cause of the failure. efedCause :: Lens' ExecutionFailedEventDetails (Maybe Text)-efedCause = lens _efedCause (\ s a -> s{_efedCause = a});+efedCause = lens _efedCause (\ s a -> s{_efedCause = a})  instance FromJSON ExecutionFailedEventDetails where         parseJSON@@ -473,38 +473,38 @@     -> ExecutionListItem executionListItem pExecutionARN_ pStateMachineARN_ pName_ pStatus_ pStartDate_ =   ExecutionListItem'-  { _eliStopDate = Nothing-  , _eliExecutionARN = pExecutionARN_-  , _eliStateMachineARN = pStateMachineARN_-  , _eliName = pName_-  , _eliStatus = pStatus_-  , _eliStartDate = _Time # pStartDate_-  }+    { _eliStopDate = Nothing+    , _eliExecutionARN = pExecutionARN_+    , _eliStateMachineARN = pStateMachineARN_+    , _eliName = pName_+    , _eliStatus = pStatus_+    , _eliStartDate = _Time # pStartDate_+    }   -- | If the execution already ended, the date the execution stopped. eliStopDate :: Lens' ExecutionListItem (Maybe UTCTime)-eliStopDate = lens _eliStopDate (\ s a -> s{_eliStopDate = a}) . mapping _Time;+eliStopDate = lens _eliStopDate (\ s a -> s{_eliStopDate = a}) . mapping _Time  -- | The Amazon Resource Name (ARN) that identifies the execution. eliExecutionARN :: Lens' ExecutionListItem Text-eliExecutionARN = lens _eliExecutionARN (\ s a -> s{_eliExecutionARN = a});+eliExecutionARN = lens _eliExecutionARN (\ s a -> s{_eliExecutionARN = a})  -- | The Amazon Resource Name (ARN) of the executed state machine. eliStateMachineARN :: Lens' ExecutionListItem Text-eliStateMachineARN = lens _eliStateMachineARN (\ s a -> s{_eliStateMachineARN = a});+eliStateMachineARN = lens _eliStateMachineARN (\ s a -> s{_eliStateMachineARN = a})  -- | The name of the execution. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) eliName :: Lens' ExecutionListItem Text-eliName = lens _eliName (\ s a -> s{_eliName = a});+eliName = lens _eliName (\ s a -> s{_eliName = a})  -- | The current status of the execution. eliStatus :: Lens' ExecutionListItem ExecutionStatus-eliStatus = lens _eliStatus (\ s a -> s{_eliStatus = a});+eliStatus = lens _eliStatus (\ s a -> s{_eliStatus = a})  -- | The date the execution started. eliStartDate :: Lens' ExecutionListItem UTCTime-eliStartDate = lens _eliStartDate (\ s a -> s{_eliStartDate = a}) . _Time;+eliStartDate = lens _eliStartDate (\ s a -> s{_eliStartDate = a}) . _Time  instance FromJSON ExecutionListItem where         parseJSON@@ -547,11 +547,11 @@  -- | The JSON data input to the execution. esedInput :: Lens' ExecutionStartedEventDetails (Maybe Text)-esedInput = lens _esedInput (\ s a -> s{_esedInput = a});+esedInput = lens _esedInput (\ s a -> s{_esedInput = a})  -- | The Amazon Resource Name (ARN) of the IAM role used for executing AWS Lambda tasks. esedRoleARN :: Lens' ExecutionStartedEventDetails (Maybe Text)-esedRoleARN = lens _esedRoleARN (\ s a -> s{_esedRoleARN = a});+esedRoleARN = lens _esedRoleARN (\ s a -> s{_esedRoleARN = a})  instance FromJSON ExecutionStartedEventDetails where         parseJSON@@ -587,7 +587,7 @@  -- | The JSON data output by the execution. esedOutput :: Lens' ExecutionSucceededEventDetails (Maybe Text)-esedOutput = lens _esedOutput (\ s a -> s{_esedOutput = a});+esedOutput = lens _esedOutput (\ s a -> s{_esedOutput = a})  instance FromJSON ExecutionSucceededEventDetails          where@@ -627,11 +627,11 @@  -- | The error code of the failure. etoedError :: Lens' ExecutionTimedOutEventDetails (Maybe Text)-etoedError = lens _etoedError (\ s a -> s{_etoedError = a});+etoedError = lens _etoedError (\ s a -> s{_etoedError = a})  -- | A more detailed explanation of the cause of the timeout. etoedCause :: Lens' ExecutionTimedOutEventDetails (Maybe Text)-etoedCause = lens _etoedCause (\ s a -> s{_etoedCause = a});+etoedCause = lens _etoedCause (\ s a -> s{_etoedCause = a})  instance FromJSON ExecutionTimedOutEventDetails where         parseJSON@@ -732,123 +732,123 @@     -> HistoryEvent historyEvent pTimestamp_ pType_ pId_ =   HistoryEvent'-  { _heActivityStartedEventDetails = Nothing-  , _heLambdaFunctionStartFailedEventDetails = Nothing-  , _heStateExitedEventDetails = Nothing-  , _heLambdaFunctionSucceededEventDetails = Nothing-  , _heActivitySucceededEventDetails = Nothing-  , _heLambdaFunctionTimedOutEventDetails = Nothing-  , _heActivityTimedOutEventDetails = Nothing-  , _heExecutionFailedEventDetails = Nothing-  , _heExecutionAbortedEventDetails = Nothing-  , _heExecutionSucceededEventDetails = Nothing-  , _heLambdaFunctionScheduledEventDetails = Nothing-  , _heActivityScheduledEventDetails = Nothing-  , _heExecutionStartedEventDetails = Nothing-  , _heActivityScheduleFailedEventDetails = Nothing-  , _heLambdaFunctionScheduleFailedEventDetails = Nothing-  , _heStateEnteredEventDetails = Nothing-  , _hePreviousEventId = Nothing-  , _heActivityFailedEventDetails = Nothing-  , _heLambdaFunctionFailedEventDetails = Nothing-  , _heExecutionTimedOutEventDetails = Nothing-  , _heTimestamp = _Time # pTimestamp_-  , _heType = pType_-  , _heId = pId_-  }+    { _heActivityStartedEventDetails = Nothing+    , _heLambdaFunctionStartFailedEventDetails = Nothing+    , _heStateExitedEventDetails = Nothing+    , _heLambdaFunctionSucceededEventDetails = Nothing+    , _heActivitySucceededEventDetails = Nothing+    , _heLambdaFunctionTimedOutEventDetails = Nothing+    , _heActivityTimedOutEventDetails = Nothing+    , _heExecutionFailedEventDetails = Nothing+    , _heExecutionAbortedEventDetails = Nothing+    , _heExecutionSucceededEventDetails = Nothing+    , _heLambdaFunctionScheduledEventDetails = Nothing+    , _heActivityScheduledEventDetails = Nothing+    , _heExecutionStartedEventDetails = Nothing+    , _heActivityScheduleFailedEventDetails = Nothing+    , _heLambdaFunctionScheduleFailedEventDetails = Nothing+    , _heStateEnteredEventDetails = Nothing+    , _hePreviousEventId = Nothing+    , _heActivityFailedEventDetails = Nothing+    , _heLambdaFunctionFailedEventDetails = Nothing+    , _heExecutionTimedOutEventDetails = Nothing+    , _heTimestamp = _Time # pTimestamp_+    , _heType = pType_+    , _heId = pId_+    }   -- | Undocumented member. heActivityStartedEventDetails :: Lens' HistoryEvent (Maybe ActivityStartedEventDetails)-heActivityStartedEventDetails = lens _heActivityStartedEventDetails (\ s a -> s{_heActivityStartedEventDetails = a});+heActivityStartedEventDetails = lens _heActivityStartedEventDetails (\ s a -> s{_heActivityStartedEventDetails = a})  -- | Contains details about a lambda function which failed to start during an execution. heLambdaFunctionStartFailedEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionStartFailedEventDetails)-heLambdaFunctionStartFailedEventDetails = lens _heLambdaFunctionStartFailedEventDetails (\ s a -> s{_heLambdaFunctionStartFailedEventDetails = a});+heLambdaFunctionStartFailedEventDetails = lens _heLambdaFunctionStartFailedEventDetails (\ s a -> s{_heLambdaFunctionStartFailedEventDetails = a})  -- | Undocumented member. heStateExitedEventDetails :: Lens' HistoryEvent (Maybe StateExitedEventDetails)-heStateExitedEventDetails = lens _heStateExitedEventDetails (\ s a -> s{_heStateExitedEventDetails = a});+heStateExitedEventDetails = lens _heStateExitedEventDetails (\ s a -> s{_heStateExitedEventDetails = a})  -- | Contains details about a lambda function which terminated successfully during an execution. heLambdaFunctionSucceededEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionSucceededEventDetails)-heLambdaFunctionSucceededEventDetails = lens _heLambdaFunctionSucceededEventDetails (\ s a -> s{_heLambdaFunctionSucceededEventDetails = a});+heLambdaFunctionSucceededEventDetails = lens _heLambdaFunctionSucceededEventDetails (\ s a -> s{_heLambdaFunctionSucceededEventDetails = a})  -- | Undocumented member. heActivitySucceededEventDetails :: Lens' HistoryEvent (Maybe ActivitySucceededEventDetails)-heActivitySucceededEventDetails = lens _heActivitySucceededEventDetails (\ s a -> s{_heActivitySucceededEventDetails = a});+heActivitySucceededEventDetails = lens _heActivitySucceededEventDetails (\ s a -> s{_heActivitySucceededEventDetails = a})  -- | Undocumented member. heLambdaFunctionTimedOutEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionTimedOutEventDetails)-heLambdaFunctionTimedOutEventDetails = lens _heLambdaFunctionTimedOutEventDetails (\ s a -> s{_heLambdaFunctionTimedOutEventDetails = a});+heLambdaFunctionTimedOutEventDetails = lens _heLambdaFunctionTimedOutEventDetails (\ s a -> s{_heLambdaFunctionTimedOutEventDetails = a})  -- | Undocumented member. heActivityTimedOutEventDetails :: Lens' HistoryEvent (Maybe ActivityTimedOutEventDetails)-heActivityTimedOutEventDetails = lens _heActivityTimedOutEventDetails (\ s a -> s{_heActivityTimedOutEventDetails = a});+heActivityTimedOutEventDetails = lens _heActivityTimedOutEventDetails (\ s a -> s{_heActivityTimedOutEventDetails = a})  -- | Undocumented member. heExecutionFailedEventDetails :: Lens' HistoryEvent (Maybe ExecutionFailedEventDetails)-heExecutionFailedEventDetails = lens _heExecutionFailedEventDetails (\ s a -> s{_heExecutionFailedEventDetails = a});+heExecutionFailedEventDetails = lens _heExecutionFailedEventDetails (\ s a -> s{_heExecutionFailedEventDetails = a})  -- | Undocumented member. heExecutionAbortedEventDetails :: Lens' HistoryEvent (Maybe ExecutionAbortedEventDetails)-heExecutionAbortedEventDetails = lens _heExecutionAbortedEventDetails (\ s a -> s{_heExecutionAbortedEventDetails = a});+heExecutionAbortedEventDetails = lens _heExecutionAbortedEventDetails (\ s a -> s{_heExecutionAbortedEventDetails = a})  -- | Undocumented member. heExecutionSucceededEventDetails :: Lens' HistoryEvent (Maybe ExecutionSucceededEventDetails)-heExecutionSucceededEventDetails = lens _heExecutionSucceededEventDetails (\ s a -> s{_heExecutionSucceededEventDetails = a});+heExecutionSucceededEventDetails = lens _heExecutionSucceededEventDetails (\ s a -> s{_heExecutionSucceededEventDetails = a})  -- | Undocumented member. heLambdaFunctionScheduledEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionScheduledEventDetails)-heLambdaFunctionScheduledEventDetails = lens _heLambdaFunctionScheduledEventDetails (\ s a -> s{_heLambdaFunctionScheduledEventDetails = a});+heLambdaFunctionScheduledEventDetails = lens _heLambdaFunctionScheduledEventDetails (\ s a -> s{_heLambdaFunctionScheduledEventDetails = a})  -- | Undocumented member. heActivityScheduledEventDetails :: Lens' HistoryEvent (Maybe ActivityScheduledEventDetails)-heActivityScheduledEventDetails = lens _heActivityScheduledEventDetails (\ s a -> s{_heActivityScheduledEventDetails = a});+heActivityScheduledEventDetails = lens _heActivityScheduledEventDetails (\ s a -> s{_heActivityScheduledEventDetails = a})  -- | Undocumented member. heExecutionStartedEventDetails :: Lens' HistoryEvent (Maybe ExecutionStartedEventDetails)-heExecutionStartedEventDetails = lens _heExecutionStartedEventDetails (\ s a -> s{_heExecutionStartedEventDetails = a});+heExecutionStartedEventDetails = lens _heExecutionStartedEventDetails (\ s a -> s{_heExecutionStartedEventDetails = a})  -- | Contains details about an activity schedule event which failed during an execution. heActivityScheduleFailedEventDetails :: Lens' HistoryEvent (Maybe ActivityScheduleFailedEventDetails)-heActivityScheduleFailedEventDetails = lens _heActivityScheduleFailedEventDetails (\ s a -> s{_heActivityScheduleFailedEventDetails = a});+heActivityScheduleFailedEventDetails = lens _heActivityScheduleFailedEventDetails (\ s a -> s{_heActivityScheduleFailedEventDetails = a})  -- | Undocumented member. heLambdaFunctionScheduleFailedEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionScheduleFailedEventDetails)-heLambdaFunctionScheduleFailedEventDetails = lens _heLambdaFunctionScheduleFailedEventDetails (\ s a -> s{_heLambdaFunctionScheduleFailedEventDetails = a});+heLambdaFunctionScheduleFailedEventDetails = lens _heLambdaFunctionScheduleFailedEventDetails (\ s a -> s{_heLambdaFunctionScheduleFailedEventDetails = a})  -- | Undocumented member. heStateEnteredEventDetails :: Lens' HistoryEvent (Maybe StateEnteredEventDetails)-heStateEnteredEventDetails = lens _heStateEnteredEventDetails (\ s a -> s{_heStateEnteredEventDetails = a});+heStateEnteredEventDetails = lens _heStateEnteredEventDetails (\ s a -> s{_heStateEnteredEventDetails = a})  -- | The id of the previous event. hePreviousEventId :: Lens' HistoryEvent (Maybe Integer)-hePreviousEventId = lens _hePreviousEventId (\ s a -> s{_hePreviousEventId = a});+hePreviousEventId = lens _hePreviousEventId (\ s a -> s{_hePreviousEventId = a})  -- | Undocumented member. heActivityFailedEventDetails :: Lens' HistoryEvent (Maybe ActivityFailedEventDetails)-heActivityFailedEventDetails = lens _heActivityFailedEventDetails (\ s a -> s{_heActivityFailedEventDetails = a});+heActivityFailedEventDetails = lens _heActivityFailedEventDetails (\ s a -> s{_heActivityFailedEventDetails = a})  -- | Undocumented member. heLambdaFunctionFailedEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionFailedEventDetails)-heLambdaFunctionFailedEventDetails = lens _heLambdaFunctionFailedEventDetails (\ s a -> s{_heLambdaFunctionFailedEventDetails = a});+heLambdaFunctionFailedEventDetails = lens _heLambdaFunctionFailedEventDetails (\ s a -> s{_heLambdaFunctionFailedEventDetails = a})  -- | Undocumented member. heExecutionTimedOutEventDetails :: Lens' HistoryEvent (Maybe ExecutionTimedOutEventDetails)-heExecutionTimedOutEventDetails = lens _heExecutionTimedOutEventDetails (\ s a -> s{_heExecutionTimedOutEventDetails = a});+heExecutionTimedOutEventDetails = lens _heExecutionTimedOutEventDetails (\ s a -> s{_heExecutionTimedOutEventDetails = a})  -- | The date the event occurred. heTimestamp :: Lens' HistoryEvent UTCTime-heTimestamp = lens _heTimestamp (\ s a -> s{_heTimestamp = a}) . _Time;+heTimestamp = lens _heTimestamp (\ s a -> s{_heTimestamp = a}) . _Time  -- | The type of the event. heType :: Lens' HistoryEvent HistoryEventType-heType = lens _heType (\ s a -> s{_heType = a});+heType = lens _heType (\ s a -> s{_heType = a})  -- | The id of the event. Events are numbered sequentially, starting at one. heId :: Lens' HistoryEvent Integer-heId = lens _heId (\ s a -> s{_heId = a});+heId = lens _heId (\ s a -> s{_heId = a})  instance FromJSON HistoryEvent where         parseJSON@@ -906,16 +906,16 @@     :: LambdaFunctionFailedEventDetails lambdaFunctionFailedEventDetails =   LambdaFunctionFailedEventDetails'-  {_lffedError = Nothing, _lffedCause = Nothing}+    {_lffedError = Nothing, _lffedCause = Nothing}   -- | The error code of the failure. lffedError :: Lens' LambdaFunctionFailedEventDetails (Maybe Text)-lffedError = lens _lffedError (\ s a -> s{_lffedError = a});+lffedError = lens _lffedError (\ s a -> s{_lffedError = a})  -- | A more detailed explanation of the cause of the failure. lffedCause :: Lens' LambdaFunctionFailedEventDetails (Maybe Text)-lffedCause = lens _lffedCause (\ s a -> s{_lffedCause = a});+lffedCause = lens _lffedCause (\ s a -> s{_lffedCause = a})  instance FromJSON LambdaFunctionFailedEventDetails          where@@ -953,16 +953,16 @@     :: LambdaFunctionScheduleFailedEventDetails lambdaFunctionScheduleFailedEventDetails =   LambdaFunctionScheduleFailedEventDetails'-  {_lError = Nothing, _lCause = Nothing}+    {_lError = Nothing, _lCause = Nothing}   -- | The error code of the failure. lError :: Lens' LambdaFunctionScheduleFailedEventDetails (Maybe Text)-lError = lens _lError (\ s a -> s{_lError = a});+lError = lens _lError (\ s a -> s{_lError = a})  -- | A more detailed explanation of the cause of the failure. lCause :: Lens' LambdaFunctionScheduleFailedEventDetails (Maybe Text)-lCause = lens _lCause (\ s a -> s{_lCause = a});+lCause = lens _lCause (\ s a -> s{_lCause = a})  instance FromJSON            LambdaFunctionScheduleFailedEventDetails@@ -1008,23 +1008,23 @@     -> LambdaFunctionScheduledEventDetails lambdaFunctionScheduledEventDetails pResource_ =   LambdaFunctionScheduledEventDetails'-  { _lfsedInput = Nothing-  , _lfsedTimeoutInSeconds = Nothing-  , _lfsedResource = pResource_-  }+    { _lfsedInput = Nothing+    , _lfsedTimeoutInSeconds = Nothing+    , _lfsedResource = pResource_+    }   -- | The JSON data input to the lambda function. lfsedInput :: Lens' LambdaFunctionScheduledEventDetails (Maybe Text)-lfsedInput = lens _lfsedInput (\ s a -> s{_lfsedInput = a});+lfsedInput = lens _lfsedInput (\ s a -> s{_lfsedInput = a})  -- | The maximum allowed duration of the lambda function. lfsedTimeoutInSeconds :: Lens' LambdaFunctionScheduledEventDetails (Maybe Integer)-lfsedTimeoutInSeconds = lens _lfsedTimeoutInSeconds (\ s a -> s{_lfsedTimeoutInSeconds = a});+lfsedTimeoutInSeconds = lens _lfsedTimeoutInSeconds (\ s a -> s{_lfsedTimeoutInSeconds = a})  -- | The Amazon Resource Name (ARN) of the scheduled lambda function. lfsedResource :: Lens' LambdaFunctionScheduledEventDetails Text-lfsedResource = lens _lfsedResource (\ s a -> s{_lfsedResource = a});+lfsedResource = lens _lfsedResource (\ s a -> s{_lfsedResource = a})  instance FromJSON LambdaFunctionScheduledEventDetails          where@@ -1063,16 +1063,16 @@     :: LambdaFunctionStartFailedEventDetails lambdaFunctionStartFailedEventDetails =   LambdaFunctionStartFailedEventDetails'-  {_lfsfedError = Nothing, _lfsfedCause = Nothing}+    {_lfsfedError = Nothing, _lfsfedCause = Nothing}   -- | The error code of the failure. lfsfedError :: Lens' LambdaFunctionStartFailedEventDetails (Maybe Text)-lfsfedError = lens _lfsfedError (\ s a -> s{_lfsfedError = a});+lfsfedError = lens _lfsfedError (\ s a -> s{_lfsfedError = a})  -- | A more detailed explanation of the cause of the failure. lfsfedCause :: Lens' LambdaFunctionStartFailedEventDetails (Maybe Text)-lfsfedCause = lens _lfsfedCause (\ s a -> s{_lfsfedCause = a});+lfsfedCause = lens _lfsfedCause (\ s a -> s{_lfsfedCause = a})  instance FromJSON            LambdaFunctionStartFailedEventDetails@@ -1113,7 +1113,7 @@  -- | The JSON data output by the lambda function. lfsedOutput :: Lens' LambdaFunctionSucceededEventDetails (Maybe Text)-lfsedOutput = lens _lfsedOutput (\ s a -> s{_lfsedOutput = a});+lfsedOutput = lens _lfsedOutput (\ s a -> s{_lfsedOutput = a})  instance FromJSON LambdaFunctionSucceededEventDetails          where@@ -1151,16 +1151,16 @@     :: LambdaFunctionTimedOutEventDetails lambdaFunctionTimedOutEventDetails =   LambdaFunctionTimedOutEventDetails'-  {_lftoedError = Nothing, _lftoedCause = Nothing}+    {_lftoedError = Nothing, _lftoedCause = Nothing}   -- | The error code of the failure. lftoedError :: Lens' LambdaFunctionTimedOutEventDetails (Maybe Text)-lftoedError = lens _lftoedError (\ s a -> s{_lftoedError = a});+lftoedError = lens _lftoedError (\ s a -> s{_lftoedError = a})  -- | A more detailed explanation of the cause of the timeout. lftoedCause :: Lens' LambdaFunctionTimedOutEventDetails (Maybe Text)-lftoedCause = lens _lftoedCause (\ s a -> s{_lftoedCause = a});+lftoedCause = lens _lftoedCause (\ s a -> s{_lftoedCause = a})  instance FromJSON LambdaFunctionTimedOutEventDetails          where@@ -1203,11 +1203,11 @@  -- | The string that contains the JSON input data for the state. sInput :: Lens' StateEnteredEventDetails (Maybe Text)-sInput = lens _sInput (\ s a -> s{_sInput = a});+sInput = lens _sInput (\ s a -> s{_sInput = a})  -- | The name of the state. sName :: Lens' StateEnteredEventDetails Text-sName = lens _sName (\ s a -> s{_sName = a});+sName = lens _sName (\ s a -> s{_sName = a})  instance FromJSON StateEnteredEventDetails where         parseJSON@@ -1247,11 +1247,11 @@  -- | The JSON output data of the state. seedOutput :: Lens' StateExitedEventDetails (Maybe Text)-seedOutput = lens _seedOutput (\ s a -> s{_seedOutput = a});+seedOutput = lens _seedOutput (\ s a -> s{_seedOutput = a})  -- | The name of the state. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) seedName :: Lens' StateExitedEventDetails Text-seedName = lens _seedName (\ s a -> s{_seedName = a});+seedName = lens _seedName (\ s a -> s{_seedName = a})  instance FromJSON StateExitedEventDetails where         parseJSON@@ -1284,7 +1284,7 @@ -- -- * 'smliName' - The name of the state machine. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) ----- * 'smliCreationDate' - The date the state machine was created.+-- * 'smliCreationDate' - The date the state machine is created. stateMachineListItem     :: Text -- ^ 'smliStateMachineARN'     -> Text -- ^ 'smliName'@@ -1292,23 +1292,23 @@     -> StateMachineListItem stateMachineListItem pStateMachineARN_ pName_ pCreationDate_ =   StateMachineListItem'-  { _smliStateMachineARN = pStateMachineARN_-  , _smliName = pName_-  , _smliCreationDate = _Time # pCreationDate_-  }+    { _smliStateMachineARN = pStateMachineARN_+    , _smliName = pName_+    , _smliCreationDate = _Time # pCreationDate_+    }   -- | The Amazon Resource Name (ARN) that identifies the state machine. smliStateMachineARN :: Lens' StateMachineListItem Text-smliStateMachineARN = lens _smliStateMachineARN (\ s a -> s{_smliStateMachineARN = a});+smliStateMachineARN = lens _smliStateMachineARN (\ s a -> s{_smliStateMachineARN = a})  -- | The name of the state machine. A name must /not/ contain:     * whitespace     * brackets @< > { } [ ]@      * wildcard characters @? *@      * special characters @" # % \ ^ | ~ ` $ & , ; : /@      * control characters (@U+0000-001F@ , @U+007F-009F@ ) smliName :: Lens' StateMachineListItem Text-smliName = lens _smliName (\ s a -> s{_smliName = a});+smliName = lens _smliName (\ s a -> s{_smliName = a}) --- | The date the state machine was created.+-- | The date the state machine is created. smliCreationDate :: Lens' StateMachineListItem UTCTime-smliCreationDate = lens _smliCreationDate (\ s a -> s{_smliCreationDate = a}) . _Time;+smliCreationDate = lens _smliCreationDate (\ s a -> s{_smliCreationDate = a}) . _Time  instance FromJSON StateMachineListItem where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.StepFunctions.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -0,0 +1,160 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.StepFunctions.UpdateStateMachine+-- Copyright   : (c) 2013-2018 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)+--+-- Updates an existing state machine by modifying its @definition@ and/or @roleArn@ . Running executions will continue to use the previous @definition@ and @roleArn@ .+--+--+module Network.AWS.StepFunctions.UpdateStateMachine+    (+    -- * Creating a Request+      updateStateMachine+    , UpdateStateMachine+    -- * Request Lenses+    , usmDefinition+    , usmRoleARN+    , usmStateMachineARN++    -- * Destructuring the Response+    , updateStateMachineResponse+    , UpdateStateMachineResponse+    -- * Response Lenses+    , usmrsResponseStatus+    , usmrsUpdateDate+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StepFunctions.Types+import Network.AWS.StepFunctions.Types.Product++-- | /See:/ 'updateStateMachine' smart constructor.+data UpdateStateMachine = UpdateStateMachine'+  { _usmDefinition      :: !(Maybe Text)+  , _usmRoleARN         :: !(Maybe Text)+  , _usmStateMachineARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateStateMachine' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'usmDefinition' - The Amazon States Language definition of the state machine.+--+-- * 'usmRoleARN' - The Amazon Resource Name (ARN) of the IAM role of the state machine.+--+-- * 'usmStateMachineARN' - The Amazon Resource Name (ARN) of the state machine.+updateStateMachine+    :: Text -- ^ 'usmStateMachineARN'+    -> UpdateStateMachine+updateStateMachine pStateMachineARN_ =+  UpdateStateMachine'+    { _usmDefinition = Nothing+    , _usmRoleARN = Nothing+    , _usmStateMachineARN = pStateMachineARN_+    }+++-- | The Amazon States Language definition of the state machine.+usmDefinition :: Lens' UpdateStateMachine (Maybe Text)+usmDefinition = lens _usmDefinition (\ s a -> s{_usmDefinition = a})++-- | The Amazon Resource Name (ARN) of the IAM role of the state machine.+usmRoleARN :: Lens' UpdateStateMachine (Maybe Text)+usmRoleARN = lens _usmRoleARN (\ s a -> s{_usmRoleARN = a})++-- | The Amazon Resource Name (ARN) of the state machine.+usmStateMachineARN :: Lens' UpdateStateMachine Text+usmStateMachineARN = lens _usmStateMachineARN (\ s a -> s{_usmStateMachineARN = a})++instance AWSRequest UpdateStateMachine where+        type Rs UpdateStateMachine =+             UpdateStateMachineResponse+        request = postJSON stepFunctions+        response+          = receiveJSON+              (\ s h x ->+                 UpdateStateMachineResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "updateDate"))++instance Hashable UpdateStateMachine where++instance NFData UpdateStateMachine where++instance ToHeaders UpdateStateMachine where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AWSStepFunctions.UpdateStateMachine" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)])++instance ToJSON UpdateStateMachine where+        toJSON UpdateStateMachine'{..}+          = object+              (catMaybes+                 [("definition" .=) <$> _usmDefinition,+                  ("roleArn" .=) <$> _usmRoleARN,+                  Just ("stateMachineArn" .= _usmStateMachineARN)])++instance ToPath UpdateStateMachine where+        toPath = const "/"++instance ToQuery UpdateStateMachine where+        toQuery = const mempty++-- | /See:/ 'updateStateMachineResponse' smart constructor.+data UpdateStateMachineResponse = UpdateStateMachineResponse'+  { _usmrsResponseStatus :: !Int+  , _usmrsUpdateDate     :: !POSIX+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateStateMachineResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'usmrsResponseStatus' - -- | The response status code.+--+-- * 'usmrsUpdateDate' - The date and time the state machine was updated.+updateStateMachineResponse+    :: Int -- ^ 'usmrsResponseStatus'+    -> UTCTime -- ^ 'usmrsUpdateDate'+    -> UpdateStateMachineResponse+updateStateMachineResponse pResponseStatus_ pUpdateDate_ =+  UpdateStateMachineResponse'+    { _usmrsResponseStatus = pResponseStatus_+    , _usmrsUpdateDate = _Time # pUpdateDate_+    }+++-- | -- | The response status code.+usmrsResponseStatus :: Lens' UpdateStateMachineResponse Int+usmrsResponseStatus = lens _usmrsResponseStatus (\ s a -> s{_usmrsResponseStatus = a})++-- | The date and time the state machine was updated.+usmrsUpdateDate :: Lens' UpdateStateMachineResponse UTCTime+usmrsUpdateDate = lens _usmrsUpdateDate (\ s a -> s{_usmrsUpdateDate = a}) . _Time++instance NFData UpdateStateMachineResponse where

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.StepFunctions.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.StepFunctions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -49,6 +49,12 @@ --         , requestDeleteStateMachine $ --             deleteStateMachine --+--         , requestUpdateStateMachine $+--             updateStateMachine+--+--         , requestDescribeStateMachineForExecution $+--             describeStateMachineForExecution+-- --         , requestGetActivityTask $ --             getActivityTask --@@ -103,6 +109,12 @@ --         , responseDeleteStateMachine $ --             deleteStateMachineResponse --+--         , responseUpdateStateMachine $+--             updateStateMachineResponse+--+--         , responseDescribeStateMachineForExecution $+--             describeStateMachineForExecutionResponse+-- --         , responseGetActivityTask $ --             getActivityTaskResponse --@@ -173,6 +185,16 @@     "DeleteStateMachine"     "fixture/DeleteStateMachine.yaml" +requestUpdateStateMachine :: UpdateStateMachine -> TestTree+requestUpdateStateMachine = req+    "UpdateStateMachine"+    "fixture/UpdateStateMachine.yaml"++requestDescribeStateMachineForExecution :: DescribeStateMachineForExecution -> TestTree+requestDescribeStateMachineForExecution = req+    "DescribeStateMachineForExecution"+    "fixture/DescribeStateMachineForExecution.yaml"+ requestGetActivityTask :: GetActivityTask -> TestTree requestGetActivityTask = req     "GetActivityTask"@@ -273,6 +295,20 @@     "fixture/DeleteStateMachineResponse.proto"     stepFunctions     (Proxy :: Proxy DeleteStateMachine)++responseUpdateStateMachine :: UpdateStateMachineResponse -> TestTree+responseUpdateStateMachine = res+    "UpdateStateMachineResponse"+    "fixture/UpdateStateMachineResponse.proto"+    stepFunctions+    (Proxy :: Proxy UpdateStateMachine)++responseDescribeStateMachineForExecution :: DescribeStateMachineForExecutionResponse -> TestTree+responseDescribeStateMachineForExecution = res+    "DescribeStateMachineForExecutionResponse"+    "fixture/DescribeStateMachineForExecutionResponse.proto"+    stepFunctions+    (Proxy :: Proxy DescribeStateMachineForExecution)  responseGetActivityTask :: GetActivityTaskResponse -> TestTree responseGetActivityTask = res

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.StepFunctions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.StepFunctions.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated