amazonka-batch 1.5.0 → 1.6.0

raw patch · 27 files changed

+1040/−564 lines, 27 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-batch.cabal +5/−5
• gen/Network/AWS/Batch.hs +52/−9
• gen/Network/AWS/Batch/CancelJob.hs +6/−6
• gen/Network/AWS/Batch/CreateComputeEnvironment.hs +21/−21
• gen/Network/AWS/Batch/CreateJobQueue.hs +19/−19
• gen/Network/AWS/Batch/DeleteComputeEnvironment.hs +3/−3
• gen/Network/AWS/Batch/DeleteJobQueue.hs +3/−3
• gen/Network/AWS/Batch/DeregisterJobDefinition.hs +3/−3
• gen/Network/AWS/Batch/DescribeComputeEnvironments.hs +15/−15
• gen/Network/AWS/Batch/DescribeJobDefinitions.hs +19/−19
• gen/Network/AWS/Batch/DescribeJobQueues.hs +12/−12
• gen/Network/AWS/Batch/DescribeJobs.hs +5/−5
• gen/Network/AWS/Batch/ListJobs.hs +37/−28
• gen/Network/AWS/Batch/RegisterJobDefinition.hs +33/−23
• gen/Network/AWS/Batch/SubmitJob.hs +47/−27
• gen/Network/AWS/Batch/TerminateJob.hs +6/−6
• gen/Network/AWS/Batch/Types.hs +70/−25
• gen/Network/AWS/Batch/Types/Product.hs +613/−294
• gen/Network/AWS/Batch/Types/Sum.hs +31/−1
• gen/Network/AWS/Batch/UpdateComputeEnvironment.hs +17/−17
• gen/Network/AWS/Batch/UpdateJobQueue.hs +17/−17
• gen/Network/AWS/Batch/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Batch.hs +1/−1
• test/Test/AWS/Batch/Internal.hs +1/−1
• test/Test/AWS/Gen/Batch.hs +1/−1

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

@@ -1,5 +1,5 @@ name:                  amazonka-batch-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Batch 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@@ -69,7 +69,7 @@         , Network.AWS.Batch.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-batch-test@@ -89,8 +89,8 @@         , Test.AWS.Batch.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-batch         , base         , bytestring

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.Batch--- 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@@ -86,6 +86,9 @@      -- * Types +    -- ** ArrayJobDependency+    , ArrayJobDependency (..)+     -- ** CEState     , CEState (..) @@ -110,6 +113,24 @@     -- ** JobStatus     , JobStatus (..) +    -- ** ArrayProperties+    , ArrayProperties+    , arrayProperties+    , apSize++    -- ** ArrayPropertiesDetail+    , ArrayPropertiesDetail+    , arrayPropertiesDetail+    , apdSize+    , apdStatusSummary+    , apdIndex++    -- ** ArrayPropertiesSummary+    , ArrayPropertiesSummary+    , arrayPropertiesSummary+    , apsSize+    , apsIndex+     -- ** AttemptContainerDetail     , AttemptContainerDetail     , attemptContainerDetail@@ -215,6 +236,12 @@     , cpVcpus     , cpMemory +    -- ** ContainerSummary+    , ContainerSummary+    , containerSummary+    , csReason+    , csExitCode+     -- ** Host     , Host     , host@@ -223,19 +250,21 @@     -- ** JobDefinition     , JobDefinition     , jobDefinition-    , jStatus-    , jRetryStrategy-    , jParameters-    , jContainerProperties-    , jJobDefinitionName-    , jJobDefinitionARN-    , jRevision-    , jType+    , jddStatus+    , jddRetryStrategy+    , jddParameters+    , jddTimeout+    , jddContainerProperties+    , jddJobDefinitionName+    , jddJobDefinitionARN+    , jddRevision+    , jddType      -- ** JobDependency     , JobDependency     , jobDependency     , jJobId+    , jType      -- ** JobDetail     , JobDetail@@ -248,6 +277,8 @@     , jdContainer     , jdParameters     , jdStatusReason+    , jdArrayProperties+    , jdTimeout     , jdJobName     , jdJobId     , jdJobQueue@@ -269,8 +300,20 @@     -- ** JobSummary     , JobSummary     , jobSummary+    , jsStoppedAt+    , jsStatus+    , jsCreatedAt+    , jsStartedAt+    , jsContainer+    , jsStatusReason+    , jsArrayProperties     , jsJobId     , jsJobName++    -- ** JobTimeout+    , JobTimeout+    , jobTimeout+    , jtAttemptDurationSeconds      -- ** KeyValuePair     , KeyValuePair

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.CancelJob--- 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@@ -57,7 +57,7 @@ -- -- * 'cjJobId' - The AWS Batch job ID of the job to cancel. ----- * 'cjReason' - A message to attach to the job that explains the reason for cancelling it. This message is returned by future 'DescribeJobs' operations on the job. This message is also recorded in the AWS Batch activity logs.+-- * 'cjReason' - A message to attach to the job that explains the reason for canceling it. This message is returned by future 'DescribeJobs' operations on the job. This message is also recorded in the AWS Batch activity logs. cancelJob     :: Text -- ^ 'cjJobId'     -> Text -- ^ 'cjReason'@@ -68,11 +68,11 @@  -- | The AWS Batch job ID of the job to cancel. cjJobId :: Lens' CancelJob Text-cjJobId = lens _cjJobId (\ s a -> s{_cjJobId = a});+cjJobId = lens _cjJobId (\ s a -> s{_cjJobId = a}) --- | A message to attach to the job that explains the reason for cancelling it. This message is returned by future 'DescribeJobs' operations on the job. This message is also recorded in the AWS Batch activity logs.+-- | A message to attach to the job that explains the reason for canceling it. This message is returned by future 'DescribeJobs' operations on the job. This message is also recorded in the AWS Batch activity logs. cjReason :: Lens' CancelJob Text-cjReason = lens _cjReason (\ s a -> s{_cjReason = a});+cjReason = lens _cjReason (\ s a -> s{_cjReason = a})  instance AWSRequest CancelJob where         type Rs CancelJob = CancelJobResponse@@ -126,6 +126,6 @@  -- | -- | The response status code. cjrsResponseStatus :: Lens' CancelJobResponse Int-cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a});+cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a})  instance NFData CancelJobResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.CreateComputeEnvironment--- 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@@ -21,9 +21,9 @@ -- Creates an AWS Batch compute environment. You can create @MANAGED@ or @UNMANAGED@ compute environments. -- ----- In a managed compute environment, AWS Batch manages the compute resources within the environment, based on the compute resources that you specify. Instances launched into a managed compute environment use a recent, approved version of the Amazon ECS-optimized AMI. You can choose to use Amazon EC2 On-Demand instances in your managed compute environment, or you can use Amazon EC2 Spot instances that only launch when the Spot bid price is below a specified percentage of the On-Demand price.+-- In a managed compute environment, AWS Batch manages the compute resources within the environment, based on the compute resources that you specify. Instances launched into a managed compute environment use a recent, approved version of the Amazon ECS-optimized AMI. You can choose to use Amazon EC2 On-Demand Instances in your managed compute environment, or you can use Amazon EC2 Spot Instances that only launch when the Spot bid price is below a specified percentage of the On-Demand price. ----- In an unmanaged compute environment, you can manage your own compute resources. This provides more compute resource configuration options, such as using a custom AMI, but you must ensure that your AMI meets the Amazon ECS container instance AMI specification. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/container_instance_AMIs.html Container Instance AMIs> in the /Amazon EC2 Container Service Developer Guide/ . After you have created your unmanaged compute environment, you can use the 'DescribeComputeEnvironments' operation to find the Amazon ECS cluster that is associated with it and then manually launch your container instances into that Amazon ECS cluster. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/launch_container_instance.html Launching an Amazon ECS Container Instance> in the /Amazon EC2 Container Service Developer Guide/ .+-- In an unmanaged compute environment, you can manage your own compute resources. This provides more compute resource configuration options, such as using a custom AMI, but you must ensure that your AMI meets the Amazon ECS container instance AMI specification. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/container_instance_AMIs.html Container Instance AMIs> in the /Amazon Elastic Container Service Developer Guide/ . After you have created your unmanaged compute environment, you can use the 'DescribeComputeEnvironments' operation to find the Amazon ECS cluster that is associated with it and then manually launch your container instances into that Amazon ECS cluster. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/launch_container_instance.html Launching an Amazon ECS Container Instance> in the /Amazon Elastic Container Service Developer Guide/ . -- module Network.AWS.Batch.CreateComputeEnvironment     (@@ -83,33 +83,33 @@     -> CreateComputeEnvironment createComputeEnvironment pComputeEnvironmentName_ pType_ pServiceRole_ =   CreateComputeEnvironment'-  { _cceState = Nothing-  , _cceComputeResources = Nothing-  , _cceComputeEnvironmentName = pComputeEnvironmentName_-  , _cceType = pType_-  , _cceServiceRole = pServiceRole_-  }+    { _cceState = Nothing+    , _cceComputeResources = Nothing+    , _cceComputeEnvironmentName = pComputeEnvironmentName_+    , _cceType = pType_+    , _cceServiceRole = pServiceRole_+    }   -- | The state of the compute environment. If the state is @ENABLED@ , then the compute environment accepts jobs from a queue and can scale out automatically based on queues. cceState :: Lens' CreateComputeEnvironment (Maybe CEState)-cceState = lens _cceState (\ s a -> s{_cceState = a});+cceState = lens _cceState (\ s a -> s{_cceState = a})  -- | Details of the compute resources managed by the compute environment. This parameter is required for managed compute environments. cceComputeResources :: Lens' CreateComputeEnvironment (Maybe ComputeResource)-cceComputeResources = lens _cceComputeResources (\ s a -> s{_cceComputeResources = a});+cceComputeResources = lens _cceComputeResources (\ s a -> s{_cceComputeResources = a})  -- | The name for your compute environment. Up to 128 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. cceComputeEnvironmentName :: Lens' CreateComputeEnvironment Text-cceComputeEnvironmentName = lens _cceComputeEnvironmentName (\ s a -> s{_cceComputeEnvironmentName = a});+cceComputeEnvironmentName = lens _cceComputeEnvironmentName (\ s a -> s{_cceComputeEnvironmentName = a})  -- | The type of the compute environment. cceType :: Lens' CreateComputeEnvironment CEType-cceType = lens _cceType (\ s a -> s{_cceType = a});+cceType = lens _cceType (\ s a -> s{_cceType = a})  -- | The full Amazon Resource Name (ARN) of the IAM role that allows AWS Batch to make calls to other AWS services on your behalf. If your specified role has a path other than @/@ , then you must either specify the full role ARN (this is recommended) or prefix the role name with the path. cceServiceRole :: Lens' CreateComputeEnvironment Text-cceServiceRole = lens _cceServiceRole (\ s a -> s{_cceServiceRole = a});+cceServiceRole = lens _cceServiceRole (\ s a -> s{_cceServiceRole = a})  instance AWSRequest CreateComputeEnvironment where         type Rs CreateComputeEnvironment =@@ -174,23 +174,23 @@     -> CreateComputeEnvironmentResponse createComputeEnvironmentResponse pResponseStatus_ =   CreateComputeEnvironmentResponse'-  { _ccersComputeEnvironmentName = Nothing-  , _ccersComputeEnvironmentARN = Nothing-  , _ccersResponseStatus = pResponseStatus_-  }+    { _ccersComputeEnvironmentName = Nothing+    , _ccersComputeEnvironmentARN = Nothing+    , _ccersResponseStatus = pResponseStatus_+    }   -- | The name of the compute environment. ccersComputeEnvironmentName :: Lens' CreateComputeEnvironmentResponse (Maybe Text)-ccersComputeEnvironmentName = lens _ccersComputeEnvironmentName (\ s a -> s{_ccersComputeEnvironmentName = a});+ccersComputeEnvironmentName = lens _ccersComputeEnvironmentName (\ s a -> s{_ccersComputeEnvironmentName = a})  -- | The Amazon Resource Name (ARN) of the compute environment. ccersComputeEnvironmentARN :: Lens' CreateComputeEnvironmentResponse (Maybe Text)-ccersComputeEnvironmentARN = lens _ccersComputeEnvironmentARN (\ s a -> s{_ccersComputeEnvironmentARN = a});+ccersComputeEnvironmentARN = lens _ccersComputeEnvironmentARN (\ s a -> s{_ccersComputeEnvironmentARN = a})  -- | -- | The response status code. ccersResponseStatus :: Lens' CreateComputeEnvironmentResponse Int-ccersResponseStatus = lens _ccersResponseStatus (\ s a -> s{_ccersResponseStatus = a});+ccersResponseStatus = lens _ccersResponseStatus (\ s a -> s{_ccersResponseStatus = a})  instance NFData CreateComputeEnvironmentResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.CreateJobQueue--- 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,35 +69,35 @@ -- -- * 'cjqPriority' - The priority of the job queue. Job queues with a higher priority (or a higher integer value for the @priority@ parameter) are evaluated first when associated with same compute environment. Priority is determined in descending order, for example, a job queue with a priority value of @10@ is given scheduling preference over a job queue with a priority value of @1@ . ----- * 'cjqComputeEnvironmentOrder' - The set of compute environments mapped to a job queue and their order relative to each other. The job scheduler uses this parameter to determine which compute environment should execute a given job. Compute environments must be in the @VALID@ state before you can associate them with a job queue. You can associate up to 3 compute environments with a job queue.+-- * 'cjqComputeEnvironmentOrder' - The set of compute environments mapped to a job queue and their order relative to each other. The job scheduler uses this parameter to determine which compute environment should execute a given job. Compute environments must be in the @VALID@ state before you can associate them with a job queue. You can associate up to three compute environments with a job queue. createJobQueue     :: Text -- ^ 'cjqJobQueueName'     -> Int -- ^ 'cjqPriority'     -> CreateJobQueue createJobQueue pJobQueueName_ pPriority_ =   CreateJobQueue'-  { _cjqState = Nothing-  , _cjqJobQueueName = pJobQueueName_-  , _cjqPriority = pPriority_-  , _cjqComputeEnvironmentOrder = mempty-  }+    { _cjqState = Nothing+    , _cjqJobQueueName = pJobQueueName_+    , _cjqPriority = pPriority_+    , _cjqComputeEnvironmentOrder = mempty+    }   -- | The state of the job queue. If the job queue state is @ENABLED@ , it is able to accept jobs. cjqState :: Lens' CreateJobQueue (Maybe JQState)-cjqState = lens _cjqState (\ s a -> s{_cjqState = a});+cjqState = lens _cjqState (\ s a -> s{_cjqState = a})  -- | The name of the job queue. cjqJobQueueName :: Lens' CreateJobQueue Text-cjqJobQueueName = lens _cjqJobQueueName (\ s a -> s{_cjqJobQueueName = a});+cjqJobQueueName = lens _cjqJobQueueName (\ s a -> s{_cjqJobQueueName = a})  -- | The priority of the job queue. Job queues with a higher priority (or a higher integer value for the @priority@ parameter) are evaluated first when associated with same compute environment. Priority is determined in descending order, for example, a job queue with a priority value of @10@ is given scheduling preference over a job queue with a priority value of @1@ . cjqPriority :: Lens' CreateJobQueue Int-cjqPriority = lens _cjqPriority (\ s a -> s{_cjqPriority = a});+cjqPriority = lens _cjqPriority (\ s a -> s{_cjqPriority = a}) --- | The set of compute environments mapped to a job queue and their order relative to each other. The job scheduler uses this parameter to determine which compute environment should execute a given job. Compute environments must be in the @VALID@ state before you can associate them with a job queue. You can associate up to 3 compute environments with a job queue.+-- | The set of compute environments mapped to a job queue and their order relative to each other. The job scheduler uses this parameter to determine which compute environment should execute a given job. Compute environments must be in the @VALID@ state before you can associate them with a job queue. You can associate up to three compute environments with a job queue. cjqComputeEnvironmentOrder :: Lens' CreateJobQueue [ComputeEnvironmentOrder]-cjqComputeEnvironmentOrder = lens _cjqComputeEnvironmentOrder (\ s a -> s{_cjqComputeEnvironmentOrder = a}) . _Coerce;+cjqComputeEnvironmentOrder = lens _cjqComputeEnvironmentOrder (\ s a -> s{_cjqComputeEnvironmentOrder = a}) . _Coerce  instance AWSRequest CreateJobQueue where         type Rs CreateJobQueue = CreateJobQueueResponse@@ -161,22 +161,22 @@     -> CreateJobQueueResponse createJobQueueResponse pResponseStatus_ pJobQueueName_ pJobQueueARN_ =   CreateJobQueueResponse'-  { _cjqrsResponseStatus = pResponseStatus_-  , _cjqrsJobQueueName = pJobQueueName_-  , _cjqrsJobQueueARN = pJobQueueARN_-  }+    { _cjqrsResponseStatus = pResponseStatus_+    , _cjqrsJobQueueName = pJobQueueName_+    , _cjqrsJobQueueARN = pJobQueueARN_+    }   -- | -- | The response status code. cjqrsResponseStatus :: Lens' CreateJobQueueResponse Int-cjqrsResponseStatus = lens _cjqrsResponseStatus (\ s a -> s{_cjqrsResponseStatus = a});+cjqrsResponseStatus = lens _cjqrsResponseStatus (\ s a -> s{_cjqrsResponseStatus = a})  -- | The name of the job queue. cjqrsJobQueueName :: Lens' CreateJobQueueResponse Text-cjqrsJobQueueName = lens _cjqrsJobQueueName (\ s a -> s{_cjqrsJobQueueName = a});+cjqrsJobQueueName = lens _cjqrsJobQueueName (\ s a -> s{_cjqrsJobQueueName = a})  -- | The Amazon Resource Name (ARN) of the job queue. cjqrsJobQueueARN :: Lens' CreateJobQueueResponse Text-cjqrsJobQueueARN = lens _cjqrsJobQueueARN (\ s a -> s{_cjqrsJobQueueARN = a});+cjqrsJobQueueARN = lens _cjqrsJobQueueARN (\ s a -> s{_cjqrsJobQueueARN = a})  instance NFData CreateJobQueueResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.DeleteComputeEnvironment--- 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@@ -65,7 +65,7 @@  -- | The name or Amazon Resource Name (ARN) of the compute environment to delete. dceComputeEnvironment :: Lens' DeleteComputeEnvironment Text-dceComputeEnvironment = lens _dceComputeEnvironment (\ s a -> s{_dceComputeEnvironment = a});+dceComputeEnvironment = lens _dceComputeEnvironment (\ s a -> s{_dceComputeEnvironment = a})  instance AWSRequest DeleteComputeEnvironment where         type Rs DeleteComputeEnvironment =@@ -121,7 +121,7 @@  -- | -- | The response status code. dcersResponseStatus :: Lens' DeleteComputeEnvironmentResponse Int-dcersResponseStatus = lens _dcersResponseStatus (\ s a -> s{_dcersResponseStatus = a});+dcersResponseStatus = lens _dcersResponseStatus (\ s a -> s{_dcersResponseStatus = a})  instance NFData DeleteComputeEnvironmentResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.DeleteJobQueue--- 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@@ -64,7 +64,7 @@  -- | The short name or full Amazon Resource Name (ARN) of the queue to delete. djqJobQueue :: Lens' DeleteJobQueue Text-djqJobQueue = lens _djqJobQueue (\ s a -> s{_djqJobQueue = a});+djqJobQueue = lens _djqJobQueue (\ s a -> s{_djqJobQueue = a})  instance AWSRequest DeleteJobQueue where         type Rs DeleteJobQueue = DeleteJobQueueResponse@@ -116,6 +116,6 @@  -- | -- | The response status code. djqrsResponseStatus :: Lens' DeleteJobQueueResponse Int-djqrsResponseStatus = lens _djqrsResponseStatus (\ s a -> s{_djqrsResponseStatus = a});+djqrsResponseStatus = lens _djqrsResponseStatus (\ s a -> s{_djqrsResponseStatus = a})  instance NFData DeleteJobQueueResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.DeregisterJobDefinition--- 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@@ -63,7 +63,7 @@  -- | The name and revision (@name:revision@ ) or full Amazon Resource Name (ARN) of the job definition to deregister. djdJobDefinition :: Lens' DeregisterJobDefinition Text-djdJobDefinition = lens _djdJobDefinition (\ s a -> s{_djdJobDefinition = a});+djdJobDefinition = lens _djdJobDefinition (\ s a -> s{_djdJobDefinition = a})  instance AWSRequest DeregisterJobDefinition where         type Rs DeregisterJobDefinition =@@ -118,6 +118,6 @@  -- | -- | The response status code. derrsResponseStatus :: Lens' DeregisterJobDefinitionResponse Int-derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a});+derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a})  instance NFData DeregisterJobDefinitionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.DescribeComputeEnvironments--- 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@@ -70,23 +70,23 @@     :: DescribeComputeEnvironments describeComputeEnvironments =   DescribeComputeEnvironments'-  { _dceComputeEnvironments = Nothing-  , _dceNextToken = Nothing-  , _dceMaxResults = Nothing-  }+    { _dceComputeEnvironments = Nothing+    , _dceNextToken = Nothing+    , _dceMaxResults = Nothing+    }   -- | A list of up to 100 compute environment names or full Amazon Resource Name (ARN) entries. dceComputeEnvironments :: Lens' DescribeComputeEnvironments [Text]-dceComputeEnvironments = lens _dceComputeEnvironments (\ s a -> s{_dceComputeEnvironments = a}) . _Default . _Coerce;+dceComputeEnvironments = lens _dceComputeEnvironments (\ s a -> s{_dceComputeEnvironments = a}) . _Default . _Coerce  -- | The @nextToken@ value returned from a previous paginated @DescribeComputeEnvironments@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return. dceNextToken :: Lens' DescribeComputeEnvironments (Maybe Text)-dceNextToken = lens _dceNextToken (\ s a -> s{_dceNextToken = a});+dceNextToken = lens _dceNextToken (\ s a -> s{_dceNextToken = a})  -- | The maximum number of cluster results returned by @DescribeComputeEnvironments@ in paginated output. When this parameter is used, @DescribeComputeEnvironments@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeComputeEnvironments@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeComputeEnvironments@ returns up to 100 results and a @nextToken@ value if applicable. dceMaxResults :: Lens' DescribeComputeEnvironments (Maybe Int)-dceMaxResults = lens _dceMaxResults (\ s a -> s{_dceMaxResults = a});+dceMaxResults = lens _dceMaxResults (\ s a -> s{_dceMaxResults = a})  instance AWSRequest DescribeComputeEnvironments where         type Rs DescribeComputeEnvironments =@@ -148,23 +148,23 @@     -> DescribeComputeEnvironmentsResponse describeComputeEnvironmentsResponse pResponseStatus_ =   DescribeComputeEnvironmentsResponse'-  { _drsComputeEnvironments = Nothing-  , _drsNextToken = Nothing-  , _drsResponseStatus = pResponseStatus_-  }+    { _drsComputeEnvironments = Nothing+    , _drsNextToken = Nothing+    , _drsResponseStatus = pResponseStatus_+    }   -- | The list of compute environments. drsComputeEnvironments :: Lens' DescribeComputeEnvironmentsResponse [ComputeEnvironmentDetail]-drsComputeEnvironments = lens _drsComputeEnvironments (\ s a -> s{_drsComputeEnvironments = a}) . _Default . _Coerce;+drsComputeEnvironments = lens _drsComputeEnvironments (\ s a -> s{_drsComputeEnvironments = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @DescribeComputeEnvironments@ request. When the results of a @DescribeJobDefinitions@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. drsNextToken :: Lens' DescribeComputeEnvironmentsResponse (Maybe Text)-drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});+drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DescribeComputeEnvironmentsResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DescribeComputeEnvironmentsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.DescribeJobDefinitions--- 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@@ -76,33 +76,33 @@     :: DescribeJobDefinitions describeJobDefinitions =   DescribeJobDefinitions'-  { _djdStatus = Nothing-  , _djdJobDefinitionName = Nothing-  , _djdJobDefinitions = Nothing-  , _djdNextToken = Nothing-  , _djdMaxResults = Nothing-  }+    { _djdStatus = Nothing+    , _djdJobDefinitionName = Nothing+    , _djdJobDefinitions = Nothing+    , _djdNextToken = Nothing+    , _djdMaxResults = Nothing+    }   -- | The status with which to filter job definitions. djdStatus :: Lens' DescribeJobDefinitions (Maybe Text)-djdStatus = lens _djdStatus (\ s a -> s{_djdStatus = a});+djdStatus = lens _djdStatus (\ s a -> s{_djdStatus = a})  -- | The name of the job definition to describe. djdJobDefinitionName :: Lens' DescribeJobDefinitions (Maybe Text)-djdJobDefinitionName = lens _djdJobDefinitionName (\ s a -> s{_djdJobDefinitionName = a});+djdJobDefinitionName = lens _djdJobDefinitionName (\ s a -> s{_djdJobDefinitionName = a})  -- | A space-separated list of up to 100 job definition names or full Amazon Resource Name (ARN) entries. djdJobDefinitions :: Lens' DescribeJobDefinitions [Text]-djdJobDefinitions = lens _djdJobDefinitions (\ s a -> s{_djdJobDefinitions = a}) . _Default . _Coerce;+djdJobDefinitions = lens _djdJobDefinitions (\ s a -> s{_djdJobDefinitions = a}) . _Default . _Coerce  -- | The @nextToken@ value returned from a previous paginated @DescribeJobDefinitions@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return. djdNextToken :: Lens' DescribeJobDefinitions (Maybe Text)-djdNextToken = lens _djdNextToken (\ s a -> s{_djdNextToken = a});+djdNextToken = lens _djdNextToken (\ s a -> s{_djdNextToken = a})  -- | The maximum number of results returned by @DescribeJobDefinitions@ in paginated output. When this parameter is used, @DescribeJobDefinitions@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeJobDefinitions@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeJobDefinitions@ returns up to 100 results and a @nextToken@ value if applicable. djdMaxResults :: Lens' DescribeJobDefinitions (Maybe Int)-djdMaxResults = lens _djdMaxResults (\ s a -> s{_djdMaxResults = a});+djdMaxResults = lens _djdMaxResults (\ s a -> s{_djdMaxResults = a})  instance AWSRequest DescribeJobDefinitions where         type Rs DescribeJobDefinitions =@@ -165,22 +165,22 @@     -> DescribeJobDefinitionsResponse describeJobDefinitionsResponse pResponseStatus_ =   DescribeJobDefinitionsResponse'-  { _djdrsJobDefinitions = Nothing-  , _djdrsNextToken = Nothing-  , _djdrsResponseStatus = pResponseStatus_-  }+    { _djdrsJobDefinitions = Nothing+    , _djdrsNextToken = Nothing+    , _djdrsResponseStatus = pResponseStatus_+    }   -- | The list of job definitions. djdrsJobDefinitions :: Lens' DescribeJobDefinitionsResponse [JobDefinition]-djdrsJobDefinitions = lens _djdrsJobDefinitions (\ s a -> s{_djdrsJobDefinitions = a}) . _Default . _Coerce;+djdrsJobDefinitions = lens _djdrsJobDefinitions (\ s a -> s{_djdrsJobDefinitions = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @DescribeJobDefinitions@ request. When the results of a @DescribeJobDefinitions@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. djdrsNextToken :: Lens' DescribeJobDefinitionsResponse (Maybe Text)-djdrsNextToken = lens _djdrsNextToken (\ s a -> s{_djdrsNextToken = a});+djdrsNextToken = lens _djdrsNextToken (\ s a -> s{_djdrsNextToken = a})  -- | -- | The response status code. djdrsResponseStatus :: Lens' DescribeJobDefinitionsResponse Int-djdrsResponseStatus = lens _djdrsResponseStatus (\ s a -> s{_djdrsResponseStatus = a});+djdrsResponseStatus = lens _djdrsResponseStatus (\ s a -> s{_djdrsResponseStatus = a})  instance NFData DescribeJobDefinitionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.DescribeJobQueues--- 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 @@     :: DescribeJobQueues describeJobQueues =   DescribeJobQueues'-  {_djqNextToken = Nothing, _djqJobQueues = Nothing, _djqMaxResults = Nothing}+    {_djqNextToken = Nothing, _djqJobQueues = Nothing, _djqMaxResults = Nothing}   -- | The @nextToken@ value returned from a previous paginated @DescribeJobQueues@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return. djqNextToken :: Lens' DescribeJobQueues (Maybe Text)-djqNextToken = lens _djqNextToken (\ s a -> s{_djqNextToken = a});+djqNextToken = lens _djqNextToken (\ s a -> s{_djqNextToken = a})  -- | A list of up to 100 queue names or full queue Amazon Resource Name (ARN) entries. djqJobQueues :: Lens' DescribeJobQueues [Text]-djqJobQueues = lens _djqJobQueues (\ s a -> s{_djqJobQueues = a}) . _Default . _Coerce;+djqJobQueues = lens _djqJobQueues (\ s a -> s{_djqJobQueues = a}) . _Default . _Coerce  -- | The maximum number of results returned by @DescribeJobQueues@ in paginated output. When this parameter is used, @DescribeJobQueues@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeJobQueues@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @DescribeJobQueues@ returns up to 100 results and a @nextToken@ value if applicable. djqMaxResults :: Lens' DescribeJobQueues (Maybe Int)-djqMaxResults = lens _djqMaxResults (\ s a -> s{_djqMaxResults = a});+djqMaxResults = lens _djqMaxResults (\ s a -> s{_djqMaxResults = a})  instance AWSRequest DescribeJobQueues where         type Rs DescribeJobQueues = DescribeJobQueuesResponse@@ -141,22 +141,22 @@     -> DescribeJobQueuesResponse describeJobQueuesResponse pResponseStatus_ =   DescribeJobQueuesResponse'-  { _djqsrsNextToken = Nothing-  , _djqsrsJobQueues = Nothing-  , _djqsrsResponseStatus = pResponseStatus_-  }+    { _djqsrsNextToken = Nothing+    , _djqsrsJobQueues = Nothing+    , _djqsrsResponseStatus = pResponseStatus_+    }   -- | The @nextToken@ value to include in a future @DescribeJobQueues@ request. When the results of a @DescribeJobQueues@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. djqsrsNextToken :: Lens' DescribeJobQueuesResponse (Maybe Text)-djqsrsNextToken = lens _djqsrsNextToken (\ s a -> s{_djqsrsNextToken = a});+djqsrsNextToken = lens _djqsrsNextToken (\ s a -> s{_djqsrsNextToken = a})  -- | The list of job queues. djqsrsJobQueues :: Lens' DescribeJobQueuesResponse [JobQueueDetail]-djqsrsJobQueues = lens _djqsrsJobQueues (\ s a -> s{_djqsrsJobQueues = a}) . _Default . _Coerce;+djqsrsJobQueues = lens _djqsrsJobQueues (\ s a -> s{_djqsrsJobQueues = a}) . _Default . _Coerce  -- | -- | The response status code. djqsrsResponseStatus :: Lens' DescribeJobQueuesResponse Int-djqsrsResponseStatus = lens _djqsrsResponseStatus (\ s a -> s{_djqsrsResponseStatus = a});+djqsrsResponseStatus = lens _djqsrsResponseStatus (\ s a -> s{_djqsrsResponseStatus = a})  instance NFData DescribeJobQueuesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.DescribeJobs--- 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 @@  -- | A space-separated list of up to 100 job IDs. djJobs :: Lens' DescribeJobs [Text]-djJobs = lens _djJobs (\ s a -> s{_djJobs = a}) . _Coerce;+djJobs = lens _djJobs (\ s a -> s{_djJobs = a}) . _Coerce  instance AWSRequest DescribeJobs where         type Rs DescribeJobs = DescribeJobsResponse@@ -113,15 +113,15 @@     -> DescribeJobsResponse describeJobsResponse pResponseStatus_ =   DescribeJobsResponse'-  {_djrsJobs = Nothing, _djrsResponseStatus = pResponseStatus_}+    {_djrsJobs = Nothing, _djrsResponseStatus = pResponseStatus_}   -- | The list of jobs. djrsJobs :: Lens' DescribeJobsResponse [JobDetail]-djrsJobs = lens _djrsJobs (\ s a -> s{_djrsJobs = a}) . _Default . _Coerce;+djrsJobs = lens _djrsJobs (\ s a -> s{_djrsJobs = a}) . _Default . _Coerce  -- | -- | The response status code. djrsResponseStatus :: Lens' DescribeJobsResponse Int-djrsResponseStatus = lens _djrsResponseStatus (\ s a -> s{_djrsResponseStatus = a});+djrsResponseStatus = lens _djrsResponseStatus (\ s a -> s{_djrsResponseStatus = a})  instance NFData DescribeJobsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.ListJobs--- 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@@ -29,8 +29,9 @@     -- * Request Lenses     , ljNextToken     , ljJobStatus-    , ljMaxResults+    , ljArrayJobId     , ljJobQueue+    , ljMaxResults      -- * Destructuring the Response     , listJobsResponse@@ -52,8 +53,9 @@ data ListJobs = ListJobs'   { _ljNextToken  :: !(Maybe Text)   , _ljJobStatus  :: !(Maybe JobStatus)+  , _ljArrayJobId :: !(Maybe Text)+  , _ljJobQueue   :: !(Maybe Text)   , _ljMaxResults :: !(Maybe Int)-  , _ljJobQueue   :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -65,37 +67,43 @@ -- -- * 'ljJobStatus' - The job status with which to filter jobs in the specified queue. If you do not specify a status, only @RUNNING@ jobs are returned. ----- * 'ljMaxResults' - The maximum number of results returned by @ListJobs@ in paginated output. When this parameter is used, @ListJobs@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @ListJobs@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListJobs@ returns up to 100 results and a @nextToken@ value if applicable.+-- * 'ljArrayJobId' - The job ID for an array job. Specifying an array job ID with this parameter lists all child jobs from within the specified array. -- -- * 'ljJobQueue' - The name or full Amazon Resource Name (ARN) of the job queue with which to list jobs.+--+-- * 'ljMaxResults' - The maximum number of results returned by @ListJobs@ in paginated output. When this parameter is used, @ListJobs@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @ListJobs@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListJobs@ returns up to 100 results and a @nextToken@ value if applicable. listJobs-    :: Text -- ^ 'ljJobQueue'-    -> ListJobs-listJobs pJobQueue_ =+    :: ListJobs+listJobs =   ListJobs'-  { _ljNextToken = Nothing-  , _ljJobStatus = Nothing-  , _ljMaxResults = Nothing-  , _ljJobQueue = pJobQueue_-  }+    { _ljNextToken = Nothing+    , _ljJobStatus = Nothing+    , _ljArrayJobId = Nothing+    , _ljJobQueue = Nothing+    , _ljMaxResults = Nothing+    }   -- | The @nextToken@ value returned from a previous paginated @ListJobs@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is @null@ when there are no more results to return. ljNextToken :: Lens' ListJobs (Maybe Text)-ljNextToken = lens _ljNextToken (\ s a -> s{_ljNextToken = a});+ljNextToken = lens _ljNextToken (\ s a -> s{_ljNextToken = a})  -- | The job status with which to filter jobs in the specified queue. If you do not specify a status, only @RUNNING@ jobs are returned. ljJobStatus :: Lens' ListJobs (Maybe JobStatus)-ljJobStatus = lens _ljJobStatus (\ s a -> s{_ljJobStatus = a});+ljJobStatus = lens _ljJobStatus (\ s a -> s{_ljJobStatus = a}) --- | The maximum number of results returned by @ListJobs@ in paginated output. When this parameter is used, @ListJobs@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @ListJobs@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListJobs@ returns up to 100 results and a @nextToken@ value if applicable.-ljMaxResults :: Lens' ListJobs (Maybe Int)-ljMaxResults = lens _ljMaxResults (\ s a -> s{_ljMaxResults = a});+-- | The job ID for an array job. Specifying an array job ID with this parameter lists all child jobs from within the specified array.+ljArrayJobId :: Lens' ListJobs (Maybe Text)+ljArrayJobId = lens _ljArrayJobId (\ s a -> s{_ljArrayJobId = a})  -- | The name or full Amazon Resource Name (ARN) of the job queue with which to list jobs.-ljJobQueue :: Lens' ListJobs Text-ljJobQueue = lens _ljJobQueue (\ s a -> s{_ljJobQueue = a});+ljJobQueue :: Lens' ListJobs (Maybe Text)+ljJobQueue = lens _ljJobQueue (\ s a -> s{_ljJobQueue = a}) +-- | The maximum number of results returned by @ListJobs@ in paginated output. When this parameter is used, @ListJobs@ only returns @maxResults@ results in a single page along with a @nextToken@ response element. The remaining results of the initial request can be seen by sending another @ListJobs@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListJobs@ returns up to 100 results and a @nextToken@ value if applicable.+ljMaxResults :: Lens' ListJobs (Maybe Int)+ljMaxResults = lens _ljMaxResults (\ s a -> s{_ljMaxResults = a})+ instance AWSRequest ListJobs where         type Rs ListJobs = ListJobsResponse         request = postJSON batch@@ -123,8 +131,9 @@               (catMaybes                  [("nextToken" .=) <$> _ljNextToken,                   ("jobStatus" .=) <$> _ljJobStatus,-                  ("maxResults" .=) <$> _ljMaxResults,-                  Just ("jobQueue" .= _ljJobQueue)])+                  ("arrayJobId" .=) <$> _ljArrayJobId,+                  ("jobQueue" .=) <$> _ljJobQueue,+                  ("maxResults" .=) <$> _ljMaxResults])  instance ToPath ListJobs where         toPath = const "/v1/listjobs"@@ -154,22 +163,22 @@     -> ListJobsResponse listJobsResponse pResponseStatus_ =   ListJobsResponse'-  { _ljrsNextToken = Nothing-  , _ljrsResponseStatus = pResponseStatus_-  , _ljrsJobSummaryList = mempty-  }+    { _ljrsNextToken = Nothing+    , _ljrsResponseStatus = pResponseStatus_+    , _ljrsJobSummaryList = mempty+    }   -- | The @nextToken@ value to include in a future @ListJobs@ request. When the results of a @ListJobs@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. ljrsNextToken :: Lens' ListJobsResponse (Maybe Text)-ljrsNextToken = lens _ljrsNextToken (\ s a -> s{_ljrsNextToken = a});+ljrsNextToken = lens _ljrsNextToken (\ s a -> s{_ljrsNextToken = a})  -- | -- | The response status code. ljrsResponseStatus :: Lens' ListJobsResponse Int-ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a});+ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a})  -- | A list of job summaries that match the request. ljrsJobSummaryList :: Lens' ListJobsResponse [JobSummary]-ljrsJobSummaryList = lens _ljrsJobSummaryList (\ s a -> s{_ljrsJobSummaryList = a}) . _Coerce;+ljrsJobSummaryList = lens _ljrsJobSummaryList (\ s a -> s{_ljrsJobSummaryList = a}) . _Coerce  instance NFData ListJobsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.RegisterJobDefinition--- 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@@ -29,6 +29,7 @@     -- * Request Lenses     , rjdRetryStrategy     , rjdParameters+    , rjdTimeout     , rjdContainerProperties     , rjdJobDefinitionName     , rjdType@@ -54,6 +55,7 @@ data RegisterJobDefinition = RegisterJobDefinition'   { _rjdRetryStrategy       :: !(Maybe RetryStrategy)   , _rjdParameters          :: !(Maybe (Map Text Text))+  , _rjdTimeout             :: !(Maybe JobTimeout)   , _rjdContainerProperties :: !(Maybe ContainerProperties)   , _rjdJobDefinitionName   :: !Text   , _rjdType                :: !JobDefinitionType@@ -64,10 +66,12 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rjdRetryStrategy' - The retry strategy to use for failed jobs that are submitted with this job definition. Any retry strategy that is specified during a 'SubmitJob' operation overrides the retry strategy defined here.+-- * 'rjdRetryStrategy' - The retry strategy to use for failed jobs that are submitted with this job definition. Any retry strategy that is specified during a 'SubmitJob' operation overrides the retry strategy defined here. If a job is terminated due to a timeout, it is not retried. -- -- * 'rjdParameters' - Default parameter substitution placeholders to set in the job definition. Parameters are specified as a key-value pair mapping. Parameters in a @SubmitJob@ request override any corresponding parameter defaults from the job definition. --+-- * 'rjdTimeout' - The timeout configuration for jobs that are submitted with this job definition, after which AWS Batch terminates your jobs if they have not finished. If a job is terminated due to a timeout, it is not retried. The minimum value for the timeout is 60 seconds. Any timeout configuration that is specified during a 'SubmitJob' operation overrides the timeout configuration defined here. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/job_timeouts.html Job Timeouts> in the /Amazon Elastic Container Service Developer Guide/ .+-- -- * 'rjdContainerProperties' - An object with various properties specific for container-based jobs. This parameter is required if the @type@ parameter is @container@ . -- -- * 'rjdJobDefinitionName' - The name of the job definition to register. Up to 128 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed.@@ -79,33 +83,38 @@     -> RegisterJobDefinition registerJobDefinition pJobDefinitionName_ pType_ =   RegisterJobDefinition'-  { _rjdRetryStrategy = Nothing-  , _rjdParameters = Nothing-  , _rjdContainerProperties = Nothing-  , _rjdJobDefinitionName = pJobDefinitionName_-  , _rjdType = pType_-  }+    { _rjdRetryStrategy = Nothing+    , _rjdParameters = Nothing+    , _rjdTimeout = Nothing+    , _rjdContainerProperties = Nothing+    , _rjdJobDefinitionName = pJobDefinitionName_+    , _rjdType = pType_+    }  --- | The retry strategy to use for failed jobs that are submitted with this job definition. Any retry strategy that is specified during a 'SubmitJob' operation overrides the retry strategy defined here.+-- | The retry strategy to use for failed jobs that are submitted with this job definition. Any retry strategy that is specified during a 'SubmitJob' operation overrides the retry strategy defined here. If a job is terminated due to a timeout, it is not retried. rjdRetryStrategy :: Lens' RegisterJobDefinition (Maybe RetryStrategy)-rjdRetryStrategy = lens _rjdRetryStrategy (\ s a -> s{_rjdRetryStrategy = a});+rjdRetryStrategy = lens _rjdRetryStrategy (\ s a -> s{_rjdRetryStrategy = a})  -- | Default parameter substitution placeholders to set in the job definition. Parameters are specified as a key-value pair mapping. Parameters in a @SubmitJob@ request override any corresponding parameter defaults from the job definition. rjdParameters :: Lens' RegisterJobDefinition (HashMap Text Text)-rjdParameters = lens _rjdParameters (\ s a -> s{_rjdParameters = a}) . _Default . _Map;+rjdParameters = lens _rjdParameters (\ s a -> s{_rjdParameters = a}) . _Default . _Map +-- | The timeout configuration for jobs that are submitted with this job definition, after which AWS Batch terminates your jobs if they have not finished. If a job is terminated due to a timeout, it is not retried. The minimum value for the timeout is 60 seconds. Any timeout configuration that is specified during a 'SubmitJob' operation overrides the timeout configuration defined here. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/job_timeouts.html Job Timeouts> in the /Amazon Elastic Container Service Developer Guide/ .+rjdTimeout :: Lens' RegisterJobDefinition (Maybe JobTimeout)+rjdTimeout = lens _rjdTimeout (\ s a -> s{_rjdTimeout = a})+ -- | An object with various properties specific for container-based jobs. This parameter is required if the @type@ parameter is @container@ . rjdContainerProperties :: Lens' RegisterJobDefinition (Maybe ContainerProperties)-rjdContainerProperties = lens _rjdContainerProperties (\ s a -> s{_rjdContainerProperties = a});+rjdContainerProperties = lens _rjdContainerProperties (\ s a -> s{_rjdContainerProperties = a})  -- | The name of the job definition to register. Up to 128 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. rjdJobDefinitionName :: Lens' RegisterJobDefinition Text-rjdJobDefinitionName = lens _rjdJobDefinitionName (\ s a -> s{_rjdJobDefinitionName = a});+rjdJobDefinitionName = lens _rjdJobDefinitionName (\ s a -> s{_rjdJobDefinitionName = a})  -- | The type of job definition. rjdType :: Lens' RegisterJobDefinition JobDefinitionType-rjdType = lens _rjdType (\ s a -> s{_rjdType = a});+rjdType = lens _rjdType (\ s a -> s{_rjdType = a})  instance AWSRequest RegisterJobDefinition where         type Rs RegisterJobDefinition =@@ -136,6 +145,7 @@               (catMaybes                  [("retryStrategy" .=) <$> _rjdRetryStrategy,                   ("parameters" .=) <$> _rjdParameters,+                  ("timeout" .=) <$> _rjdTimeout,                   ("containerProperties" .=) <$>                     _rjdContainerProperties,                   Just ("jobDefinitionName" .= _rjdJobDefinitionName),@@ -175,27 +185,27 @@     -> RegisterJobDefinitionResponse registerJobDefinitionResponse pResponseStatus_ pJobDefinitionName_ pJobDefinitionARN_ pRevision_ =   RegisterJobDefinitionResponse'-  { _rjdrsResponseStatus = pResponseStatus_-  , _rjdrsJobDefinitionName = pJobDefinitionName_-  , _rjdrsJobDefinitionARN = pJobDefinitionARN_-  , _rjdrsRevision = pRevision_-  }+    { _rjdrsResponseStatus = pResponseStatus_+    , _rjdrsJobDefinitionName = pJobDefinitionName_+    , _rjdrsJobDefinitionARN = pJobDefinitionARN_+    , _rjdrsRevision = pRevision_+    }   -- | -- | The response status code. rjdrsResponseStatus :: Lens' RegisterJobDefinitionResponse Int-rjdrsResponseStatus = lens _rjdrsResponseStatus (\ s a -> s{_rjdrsResponseStatus = a});+rjdrsResponseStatus = lens _rjdrsResponseStatus (\ s a -> s{_rjdrsResponseStatus = a})  -- | The name of the job definition. rjdrsJobDefinitionName :: Lens' RegisterJobDefinitionResponse Text-rjdrsJobDefinitionName = lens _rjdrsJobDefinitionName (\ s a -> s{_rjdrsJobDefinitionName = a});+rjdrsJobDefinitionName = lens _rjdrsJobDefinitionName (\ s a -> s{_rjdrsJobDefinitionName = a})  -- | The Amazon Resource Name (ARN) of the job definition. rjdrsJobDefinitionARN :: Lens' RegisterJobDefinitionResponse Text-rjdrsJobDefinitionARN = lens _rjdrsJobDefinitionARN (\ s a -> s{_rjdrsJobDefinitionARN = a});+rjdrsJobDefinitionARN = lens _rjdrsJobDefinitionARN (\ s a -> s{_rjdrsJobDefinitionARN = a})  -- | The revision of the job definition. rjdrsRevision :: Lens' RegisterJobDefinitionResponse Int-rjdrsRevision = lens _rjdrsRevision (\ s a -> s{_rjdrsRevision = a});+rjdrsRevision = lens _rjdrsRevision (\ s a -> s{_rjdrsRevision = a})  instance NFData RegisterJobDefinitionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.SubmitJob--- 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@@ -31,6 +31,8 @@     , sjRetryStrategy     , sjDependsOn     , sjParameters+    , sjArrayProperties+    , sjTimeout     , sjJobName     , sjJobQueue     , sjJobDefinition@@ -57,6 +59,8 @@   , _sjRetryStrategy      :: !(Maybe RetryStrategy)   , _sjDependsOn          :: !(Maybe [JobDependency])   , _sjParameters         :: !(Maybe (Map Text Text))+  , _sjArrayProperties    :: !(Maybe ArrayProperties)+  , _sjTimeout            :: !(Maybe JobTimeout)   , _sjJobName            :: !Text   , _sjJobQueue           :: !Text   , _sjJobDefinition      :: !Text@@ -71,13 +75,17 @@ -- -- * 'sjRetryStrategy' - The retry strategy to use for failed jobs from this 'SubmitJob' operation. When a retry strategy is specified here, it overrides the retry strategy defined in the job definition. ----- * 'sjDependsOn' - A list of job IDs on which this job depends. A job can depend upon a maximum of 20 jobs.+-- * 'sjDependsOn' - A list of dependencies for the job. A job can depend upon a maximum of 20 jobs. You can specify a @SEQUENTIAL@ type dependency without specifying a job ID for array jobs so that each child array job completes sequentially, starting at index 0. You can also specify an @N_TO_N@ type dependency with a job ID for array jobs so that each index child of this job must wait for the corresponding index child of each dependency to complete before it can begin. -- -- * 'sjParameters' - Additional parameters passed to the job that replace parameter substitution placeholders that are set in the job definition. Parameters are specified as a key and value pair mapping. Parameters in a @SubmitJob@ request override any corresponding parameter defaults from the job definition. --+-- * 'sjArrayProperties' - The array properties for the submitted job, such as the size of the array. The array size can be between 2 and 10,000. If you specify array properties for a job, it becomes an array job. For more information, see <http://docs.aws.amazon.com/batch/latest/userguide/array_jobs.html Array Jobs> in the /AWS Batch User Guide/ .+--+-- * 'sjTimeout' - The timeout configuration for this 'SubmitJob' operation. You can specify a timeout duration after which AWS Batch terminates your jobs if they have not finished. If a job is terminated due to a timeout, it is not retried. The minimum value for the timeout is 60 seconds. This configuration overrides any timeout configuration specified in the job definition. For array jobs, child jobs have the same timeout configuration as the parent job. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/job_timeouts.html Job Timeouts> in the /Amazon Elastic Container Service Developer Guide/ .+-- -- * 'sjJobName' - The name of the job. The first character must be alphanumeric, and up to 128 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. ----- * 'sjJobQueue' - The job queue into which the job will be submitted. You can specify either the name or the Amazon Resource Name (ARN) of the queue.+-- * 'sjJobQueue' - The job queue into which the job is submitted. You can specify either the name or the Amazon Resource Name (ARN) of the queue. -- -- * 'sjJobDefinition' - The job definition used by this job. This value can be either a @name:revision@ or the Amazon Resource Name (ARN) for the job definition. submitJob@@ -87,43 +95,53 @@     -> SubmitJob submitJob pJobName_ pJobQueue_ pJobDefinition_ =   SubmitJob'-  { _sjContainerOverrides = Nothing-  , _sjRetryStrategy = Nothing-  , _sjDependsOn = Nothing-  , _sjParameters = Nothing-  , _sjJobName = pJobName_-  , _sjJobQueue = pJobQueue_-  , _sjJobDefinition = pJobDefinition_-  }+    { _sjContainerOverrides = Nothing+    , _sjRetryStrategy = Nothing+    , _sjDependsOn = Nothing+    , _sjParameters = Nothing+    , _sjArrayProperties = Nothing+    , _sjTimeout = Nothing+    , _sjJobName = pJobName_+    , _sjJobQueue = pJobQueue_+    , _sjJobDefinition = pJobDefinition_+    }   -- | A list of container overrides in JSON format that specify the name of a container in the specified job definition and the overrides it should receive. You can override the default command for a container (that is specified in the job definition or the Docker image) with a @command@ override. You can also override existing environment variables (that are specified in the job definition or Docker image) on a container or add new environment variables to it with an @environment@ override. sjContainerOverrides :: Lens' SubmitJob (Maybe ContainerOverrides)-sjContainerOverrides = lens _sjContainerOverrides (\ s a -> s{_sjContainerOverrides = a});+sjContainerOverrides = lens _sjContainerOverrides (\ s a -> s{_sjContainerOverrides = a})  -- | The retry strategy to use for failed jobs from this 'SubmitJob' operation. When a retry strategy is specified here, it overrides the retry strategy defined in the job definition. sjRetryStrategy :: Lens' SubmitJob (Maybe RetryStrategy)-sjRetryStrategy = lens _sjRetryStrategy (\ s a -> s{_sjRetryStrategy = a});+sjRetryStrategy = lens _sjRetryStrategy (\ s a -> s{_sjRetryStrategy = a}) --- | A list of job IDs on which this job depends. A job can depend upon a maximum of 20 jobs.+-- | A list of dependencies for the job. A job can depend upon a maximum of 20 jobs. You can specify a @SEQUENTIAL@ type dependency without specifying a job ID for array jobs so that each child array job completes sequentially, starting at index 0. You can also specify an @N_TO_N@ type dependency with a job ID for array jobs so that each index child of this job must wait for the corresponding index child of each dependency to complete before it can begin. sjDependsOn :: Lens' SubmitJob [JobDependency]-sjDependsOn = lens _sjDependsOn (\ s a -> s{_sjDependsOn = a}) . _Default . _Coerce;+sjDependsOn = lens _sjDependsOn (\ s a -> s{_sjDependsOn = a}) . _Default . _Coerce  -- | Additional parameters passed to the job that replace parameter substitution placeholders that are set in the job definition. Parameters are specified as a key and value pair mapping. Parameters in a @SubmitJob@ request override any corresponding parameter defaults from the job definition. sjParameters :: Lens' SubmitJob (HashMap Text Text)-sjParameters = lens _sjParameters (\ s a -> s{_sjParameters = a}) . _Default . _Map;+sjParameters = lens _sjParameters (\ s a -> s{_sjParameters = a}) . _Default . _Map +-- | The array properties for the submitted job, such as the size of the array. The array size can be between 2 and 10,000. If you specify array properties for a job, it becomes an array job. For more information, see <http://docs.aws.amazon.com/batch/latest/userguide/array_jobs.html Array Jobs> in the /AWS Batch User Guide/ .+sjArrayProperties :: Lens' SubmitJob (Maybe ArrayProperties)+sjArrayProperties = lens _sjArrayProperties (\ s a -> s{_sjArrayProperties = a})++-- | The timeout configuration for this 'SubmitJob' operation. You can specify a timeout duration after which AWS Batch terminates your jobs if they have not finished. If a job is terminated due to a timeout, it is not retried. The minimum value for the timeout is 60 seconds. This configuration overrides any timeout configuration specified in the job definition. For array jobs, child jobs have the same timeout configuration as the parent job. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/job_timeouts.html Job Timeouts> in the /Amazon Elastic Container Service Developer Guide/ .+sjTimeout :: Lens' SubmitJob (Maybe JobTimeout)+sjTimeout = lens _sjTimeout (\ s a -> s{_sjTimeout = a})+ -- | The name of the job. The first character must be alphanumeric, and up to 128 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. sjJobName :: Lens' SubmitJob Text-sjJobName = lens _sjJobName (\ s a -> s{_sjJobName = a});+sjJobName = lens _sjJobName (\ s a -> s{_sjJobName = a}) --- | The job queue into which the job will be submitted. You can specify either the name or the Amazon Resource Name (ARN) of the queue.+-- | The job queue into which the job is submitted. You can specify either the name or the Amazon Resource Name (ARN) of the queue. sjJobQueue :: Lens' SubmitJob Text-sjJobQueue = lens _sjJobQueue (\ s a -> s{_sjJobQueue = a});+sjJobQueue = lens _sjJobQueue (\ s a -> s{_sjJobQueue = a})  -- | The job definition used by this job. This value can be either a @name:revision@ or the Amazon Resource Name (ARN) for the job definition. sjJobDefinition :: Lens' SubmitJob Text-sjJobDefinition = lens _sjJobDefinition (\ s a -> s{_sjJobDefinition = a});+sjJobDefinition = lens _sjJobDefinition (\ s a -> s{_sjJobDefinition = a})  instance AWSRequest SubmitJob where         type Rs SubmitJob = SubmitJobResponse@@ -154,6 +172,8 @@                   ("retryStrategy" .=) <$> _sjRetryStrategy,                   ("dependsOn" .=) <$> _sjDependsOn,                   ("parameters" .=) <$> _sjParameters,+                  ("arrayProperties" .=) <$> _sjArrayProperties,+                  ("timeout" .=) <$> _sjTimeout,                   Just ("jobName" .= _sjJobName),                   Just ("jobQueue" .= _sjJobQueue),                   Just ("jobDefinition" .= _sjJobDefinition)])@@ -188,22 +208,22 @@     -> SubmitJobResponse submitJobResponse pResponseStatus_ pJobName_ pJobId_ =   SubmitJobResponse'-  { _sjrsResponseStatus = pResponseStatus_-  , _sjrsJobName = pJobName_-  , _sjrsJobId = pJobId_-  }+    { _sjrsResponseStatus = pResponseStatus_+    , _sjrsJobName = pJobName_+    , _sjrsJobId = pJobId_+    }   -- | -- | The response status code. sjrsResponseStatus :: Lens' SubmitJobResponse Int-sjrsResponseStatus = lens _sjrsResponseStatus (\ s a -> s{_sjrsResponseStatus = a});+sjrsResponseStatus = lens _sjrsResponseStatus (\ s a -> s{_sjrsResponseStatus = a})  -- | The name of the job. sjrsJobName :: Lens' SubmitJobResponse Text-sjrsJobName = lens _sjrsJobName (\ s a -> s{_sjrsJobName = a});+sjrsJobName = lens _sjrsJobName (\ s a -> s{_sjrsJobName = a})  -- | The unique identifier for the job. sjrsJobId :: Lens' SubmitJobResponse Text-sjrsJobId = lens _sjrsJobId (\ s a -> s{_sjrsJobId = a});+sjrsJobId = lens _sjrsJobId (\ s a -> s{_sjrsJobId = a})  instance NFData SubmitJobResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.TerminateJob--- 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@@ -57,7 +57,7 @@ -- -- * 'tjJobId' - The AWS Batch job ID of the job to terminate. ----- * 'tjReason' - A message to attach to the job that explains the reason for cancelling it. This message is returned by future 'DescribeJobs' operations on the job. This message is also recorded in the AWS Batch activity logs.+-- * 'tjReason' - A message to attach to the job that explains the reason for canceling it. This message is returned by future 'DescribeJobs' operations on the job. This message is also recorded in the AWS Batch activity logs. terminateJob     :: Text -- ^ 'tjJobId'     -> Text -- ^ 'tjReason'@@ -68,11 +68,11 @@  -- | The AWS Batch job ID of the job to terminate. tjJobId :: Lens' TerminateJob Text-tjJobId = lens _tjJobId (\ s a -> s{_tjJobId = a});+tjJobId = lens _tjJobId (\ s a -> s{_tjJobId = a}) --- | A message to attach to the job that explains the reason for cancelling it. This message is returned by future 'DescribeJobs' operations on the job. This message is also recorded in the AWS Batch activity logs.+-- | A message to attach to the job that explains the reason for canceling it. This message is returned by future 'DescribeJobs' operations on the job. This message is also recorded in the AWS Batch activity logs. tjReason :: Lens' TerminateJob Text-tjReason = lens _tjReason (\ s a -> s{_tjReason = a});+tjReason = lens _tjReason (\ s a -> s{_tjReason = a})  instance AWSRequest TerminateJob where         type Rs TerminateJob = TerminateJobResponse@@ -126,6 +126,6 @@  -- | -- | The response status code. tjrsResponseStatus :: Lens' TerminateJobResponse Int-tjrsResponseStatus = lens _tjrsResponseStatus (\ s a -> s{_tjrsResponseStatus = a});+tjrsResponseStatus = lens _tjrsResponseStatus (\ s a -> s{_tjrsResponseStatus = a})  instance NFData TerminateJobResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.Batch.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@@ -19,6 +19,9 @@     , _ServerException     , _ClientException +    -- * ArrayJobDependency+    , ArrayJobDependency (..)+     -- * CEState     , CEState (..) @@ -43,6 +46,24 @@     -- * JobStatus     , JobStatus (..) +    -- * ArrayProperties+    , ArrayProperties+    , arrayProperties+    , apSize++    -- * ArrayPropertiesDetail+    , ArrayPropertiesDetail+    , arrayPropertiesDetail+    , apdSize+    , apdStatusSummary+    , apdIndex++    -- * ArrayPropertiesSummary+    , ArrayPropertiesSummary+    , arrayPropertiesSummary+    , apsSize+    , apsIndex+     -- * AttemptContainerDetail     , AttemptContainerDetail     , attemptContainerDetail@@ -148,6 +169,12 @@     , cpVcpus     , cpMemory +    -- * ContainerSummary+    , ContainerSummary+    , containerSummary+    , csReason+    , csExitCode+     -- * Host     , Host     , host@@ -156,19 +183,21 @@     -- * JobDefinition     , JobDefinition     , jobDefinition-    , jStatus-    , jRetryStrategy-    , jParameters-    , jContainerProperties-    , jJobDefinitionName-    , jJobDefinitionARN-    , jRevision-    , jType+    , jddStatus+    , jddRetryStrategy+    , jddParameters+    , jddTimeout+    , jddContainerProperties+    , jddJobDefinitionName+    , jddJobDefinitionARN+    , jddRevision+    , jddType      -- * JobDependency     , JobDependency     , jobDependency     , jJobId+    , jType      -- * JobDetail     , JobDetail@@ -181,6 +210,8 @@     , jdContainer     , jdParameters     , jdStatusReason+    , jdArrayProperties+    , jdTimeout     , jdJobName     , jdJobId     , jdJobQueue@@ -202,9 +233,21 @@     -- * JobSummary     , JobSummary     , jobSummary+    , jsStoppedAt+    , jsStatus+    , jsCreatedAt+    , jsStartedAt+    , jsContainer+    , jsStatusReason+    , jsArrayProperties     , jsJobId     , jsJobName +    -- * JobTimeout+    , JobTimeout+    , jobTimeout+    , jtAttemptDurationSeconds+     -- * KeyValuePair     , KeyValuePair     , keyValuePair@@ -247,24 +290,24 @@ batch :: Service batch =   Service-  { _svcAbbrev = "Batch"-  , _svcSigner = v4-  , _svcPrefix = "batch"-  , _svcVersion = "2016-08-10"-  , _svcEndpoint = defaultEndpoint batch-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "Batch"-  , _svcRetry = retry-  }+    { _svcAbbrev = "Batch"+    , _svcSigner = v4+    , _svcPrefix = "batch"+    , _svcVersion = "2016-08-10"+    , _svcEndpoint = defaultEndpoint batch+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "Batch"+    , _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"@@ -273,6 +316,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"@@ -287,7 +332,7 @@ _ServerException = _MatchServiceError batch "ServerException" . hasStatus 500  --- | These errors are usually caused by a client action, such as using an action or resource on behalf of a user that doesn't have permission to use the action or resource, or specifying an identifier that is not valid.+-- | These errors are usually caused by a client action, such as using an action or resource on behalf of a user that doesn't have permissions to use the action or resource, or specifying an identifier that is not valid. -- -- _ClientException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.Batch.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@@ -21,6 +21,133 @@ import Network.AWS.Lens import Network.AWS.Prelude +-- | An object representing an AWS Batch array job.+--+--+--+-- /See:/ 'arrayProperties' smart constructor.+newtype ArrayProperties = ArrayProperties'+  { _apSize :: Maybe Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ArrayProperties' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'apSize' - The size of the array job.+arrayProperties+    :: ArrayProperties+arrayProperties = ArrayProperties' {_apSize = Nothing}+++-- | The size of the array job.+apSize :: Lens' ArrayProperties (Maybe Int)+apSize = lens _apSize (\ s a -> s{_apSize = a})++instance Hashable ArrayProperties where++instance NFData ArrayProperties where++instance ToJSON ArrayProperties where+        toJSON ArrayProperties'{..}+          = object (catMaybes [("size" .=) <$> _apSize])++-- | An object representing the array properties of a job.+--+--+--+-- /See:/ 'arrayPropertiesDetail' smart constructor.+data ArrayPropertiesDetail = ArrayPropertiesDetail'+  { _apdSize          :: !(Maybe Int)+  , _apdStatusSummary :: !(Maybe (Map Text Int))+  , _apdIndex         :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ArrayPropertiesDetail' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'apdSize' - The size of the array job. This parameter is returned for parent array jobs.+--+-- * 'apdStatusSummary' - A summary of the number of array job children in each available job status. This parameter is returned for parent array jobs.+--+-- * 'apdIndex' - The job index within the array that is associated with this job. This parameter is returned for array job children.+arrayPropertiesDetail+    :: ArrayPropertiesDetail+arrayPropertiesDetail =+  ArrayPropertiesDetail'+    {_apdSize = Nothing, _apdStatusSummary = Nothing, _apdIndex = Nothing}+++-- | The size of the array job. This parameter is returned for parent array jobs.+apdSize :: Lens' ArrayPropertiesDetail (Maybe Int)+apdSize = lens _apdSize (\ s a -> s{_apdSize = a})++-- | A summary of the number of array job children in each available job status. This parameter is returned for parent array jobs.+apdStatusSummary :: Lens' ArrayPropertiesDetail (HashMap Text Int)+apdStatusSummary = lens _apdStatusSummary (\ s a -> s{_apdStatusSummary = a}) . _Default . _Map++-- | The job index within the array that is associated with this job. This parameter is returned for array job children.+apdIndex :: Lens' ArrayPropertiesDetail (Maybe Int)+apdIndex = lens _apdIndex (\ s a -> s{_apdIndex = a})++instance FromJSON ArrayPropertiesDetail where+        parseJSON+          = withObject "ArrayPropertiesDetail"+              (\ x ->+                 ArrayPropertiesDetail' <$>+                   (x .:? "size") <*> (x .:? "statusSummary" .!= mempty)+                     <*> (x .:? "index"))++instance Hashable ArrayPropertiesDetail where++instance NFData ArrayPropertiesDetail where++-- | An object representing the array properties of a job.+--+--+--+-- /See:/ 'arrayPropertiesSummary' smart constructor.+data ArrayPropertiesSummary = ArrayPropertiesSummary'+  { _apsSize  :: !(Maybe Int)+  , _apsIndex :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ArrayPropertiesSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'apsSize' - The size of the array job. This parameter is returned for parent array jobs.+--+-- * 'apsIndex' - The job index within the array that is associated with this job. This parameter is returned for children of array jobs.+arrayPropertiesSummary+    :: ArrayPropertiesSummary+arrayPropertiesSummary =+  ArrayPropertiesSummary' {_apsSize = Nothing, _apsIndex = Nothing}+++-- | The size of the array job. This parameter is returned for parent array jobs.+apsSize :: Lens' ArrayPropertiesSummary (Maybe Int)+apsSize = lens _apsSize (\ s a -> s{_apsSize = a})++-- | The job index within the array that is associated with this job. This parameter is returned for children of array jobs.+apsIndex :: Lens' ArrayPropertiesSummary (Maybe Int)+apsIndex = lens _apsIndex (\ s a -> s{_apsIndex = a})++instance FromJSON ArrayPropertiesSummary where+        parseJSON+          = withObject "ArrayPropertiesSummary"+              (\ x ->+                 ArrayPropertiesSummary' <$>+                   (x .:? "size") <*> (x .:? "index"))++instance Hashable ArrayPropertiesSummary where++instance NFData ArrayPropertiesSummary where+ -- | An object representing the details of a container that is part of a job attempt. -- --@@ -52,33 +179,33 @@     :: AttemptContainerDetail attemptContainerDetail =   AttemptContainerDetail'-  { _acdTaskARN = Nothing-  , _acdContainerInstanceARN = Nothing-  , _acdReason = Nothing-  , _acdLogStreamName = Nothing-  , _acdExitCode = Nothing-  }+    { _acdTaskARN = Nothing+    , _acdContainerInstanceARN = Nothing+    , _acdReason = Nothing+    , _acdLogStreamName = Nothing+    , _acdExitCode = Nothing+    }   -- | The Amazon Resource Name (ARN) of the Amazon ECS task that is associated with the job attempt. Each container attempt receives a task ARN when they reach the @STARTING@ status. acdTaskARN :: Lens' AttemptContainerDetail (Maybe Text)-acdTaskARN = lens _acdTaskARN (\ s a -> s{_acdTaskARN = a});+acdTaskARN = lens _acdTaskARN (\ s a -> s{_acdTaskARN = a})  -- | The Amazon Resource Name (ARN) of the Amazon ECS container instance that hosts the job attempt. acdContainerInstanceARN :: Lens' AttemptContainerDetail (Maybe Text)-acdContainerInstanceARN = lens _acdContainerInstanceARN (\ s a -> s{_acdContainerInstanceARN = a});+acdContainerInstanceARN = lens _acdContainerInstanceARN (\ s a -> s{_acdContainerInstanceARN = a})  -- | A short (255 max characters) human-readable string to provide additional details about a running or stopped container. acdReason :: Lens' AttemptContainerDetail (Maybe Text)-acdReason = lens _acdReason (\ s a -> s{_acdReason = a});+acdReason = lens _acdReason (\ s a -> s{_acdReason = a})  -- | The name of the CloudWatch Logs log stream associated with the container. The log group for AWS Batch jobs is @/aws/batch/job@ . Each container attempt receives a log stream name when they reach the @RUNNING@ status. acdLogStreamName :: Lens' AttemptContainerDetail (Maybe Text)-acdLogStreamName = lens _acdLogStreamName (\ s a -> s{_acdLogStreamName = a});+acdLogStreamName = lens _acdLogStreamName (\ s a -> s{_acdLogStreamName = a})  -- | The exit code for the job attempt. A non-zero exit code is considered a failure. acdExitCode :: Lens' AttemptContainerDetail (Maybe Int)-acdExitCode = lens _acdExitCode (\ s a -> s{_acdExitCode = a});+acdExitCode = lens _acdExitCode (\ s a -> s{_acdExitCode = a})  instance FromJSON AttemptContainerDetail where         parseJSON@@ -111,9 +238,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'adStoppedAt' - The Unix timestamp for when the attempt was stopped (when the task transitioned from the @RUNNING@ state to the @STOPPED@ state).+-- * 'adStoppedAt' - The Unix time stamp (in seconds and milliseconds) for when the attempt was stopped (when the attempt transitioned from the @RUNNING@ state to a terminal state, such as @SUCCEEDED@ or @FAILED@ ). ----- * 'adStartedAt' - The Unix timestamp for when the attempt was started (when the task transitioned from the @PENDING@ state to the @RUNNING@ state).+-- * 'adStartedAt' - The Unix time stamp (in seconds and milliseconds) for when the attempt was started (when the attempt transitioned from the @STARTING@ state to the @RUNNING@ state). -- -- * 'adContainer' - Details about the container in this job attempt. --@@ -122,28 +249,28 @@     :: AttemptDetail attemptDetail =   AttemptDetail'-  { _adStoppedAt = Nothing-  , _adStartedAt = Nothing-  , _adContainer = Nothing-  , _adStatusReason = Nothing-  }+    { _adStoppedAt = Nothing+    , _adStartedAt = Nothing+    , _adContainer = Nothing+    , _adStatusReason = Nothing+    }  --- | The Unix timestamp for when the attempt was stopped (when the task transitioned from the @RUNNING@ state to the @STOPPED@ state).+-- | The Unix time stamp (in seconds and milliseconds) for when the attempt was stopped (when the attempt transitioned from the @RUNNING@ state to a terminal state, such as @SUCCEEDED@ or @FAILED@ ). adStoppedAt :: Lens' AttemptDetail (Maybe Integer)-adStoppedAt = lens _adStoppedAt (\ s a -> s{_adStoppedAt = a});+adStoppedAt = lens _adStoppedAt (\ s a -> s{_adStoppedAt = a}) --- | The Unix timestamp for when the attempt was started (when the task transitioned from the @PENDING@ state to the @RUNNING@ state).+-- | The Unix time stamp (in seconds and milliseconds) for when the attempt was started (when the attempt transitioned from the @STARTING@ state to the @RUNNING@ state). adStartedAt :: Lens' AttemptDetail (Maybe Integer)-adStartedAt = lens _adStartedAt (\ s a -> s{_adStartedAt = a});+adStartedAt = lens _adStartedAt (\ s a -> s{_adStartedAt = a})  -- | Details about the container in this job attempt. adContainer :: Lens' AttemptDetail (Maybe AttemptContainerDetail)-adContainer = lens _adContainer (\ s a -> s{_adContainer = a});+adContainer = lens _adContainer (\ s a -> s{_adContainer = a})  -- | A short, human-readable string to provide additional details about the current status of the job attempt. adStatusReason :: Lens' AttemptDetail (Maybe Text)-adStatusReason = lens _adStatusReason (\ s a -> s{_adStatusReason = a});+adStatusReason = lens _adStatusReason (\ s a -> s{_adStatusReason = a})  instance FromJSON AttemptDetail where         parseJSON@@ -204,53 +331,53 @@     -> ComputeEnvironmentDetail computeEnvironmentDetail pComputeEnvironmentName_ pComputeEnvironmentARN_ pEcsClusterARN_ =   ComputeEnvironmentDetail'-  { _cedStatus = Nothing-  , _cedState = Nothing-  , _cedComputeResources = Nothing-  , _cedStatusReason = Nothing-  , _cedType = Nothing-  , _cedServiceRole = Nothing-  , _cedComputeEnvironmentName = pComputeEnvironmentName_-  , _cedComputeEnvironmentARN = pComputeEnvironmentARN_-  , _cedEcsClusterARN = pEcsClusterARN_-  }+    { _cedStatus = Nothing+    , _cedState = Nothing+    , _cedComputeResources = Nothing+    , _cedStatusReason = Nothing+    , _cedType = Nothing+    , _cedServiceRole = Nothing+    , _cedComputeEnvironmentName = pComputeEnvironmentName_+    , _cedComputeEnvironmentARN = pComputeEnvironmentARN_+    , _cedEcsClusterARN = pEcsClusterARN_+    }   -- | The current status of the compute environment (for example, @CREATING@ or @VALID@ ). cedStatus :: Lens' ComputeEnvironmentDetail (Maybe CEStatus)-cedStatus = lens _cedStatus (\ s a -> s{_cedStatus = a});+cedStatus = lens _cedStatus (\ s a -> s{_cedStatus = a})  -- | The state of the compute environment. The valid values are @ENABLED@ or @DISABLED@ . An @ENABLED@ state indicates that you can register instances with the compute environment and that the associated instances can accept jobs. cedState :: Lens' ComputeEnvironmentDetail (Maybe CEState)-cedState = lens _cedState (\ s a -> s{_cedState = a});+cedState = lens _cedState (\ s a -> s{_cedState = a})  -- | The compute resources defined for the compute environment. cedComputeResources :: Lens' ComputeEnvironmentDetail (Maybe ComputeResource)-cedComputeResources = lens _cedComputeResources (\ s a -> s{_cedComputeResources = a});+cedComputeResources = lens _cedComputeResources (\ s a -> s{_cedComputeResources = a})  -- | A short, human-readable string to provide additional details about the current status of the compute environment. cedStatusReason :: Lens' ComputeEnvironmentDetail (Maybe Text)-cedStatusReason = lens _cedStatusReason (\ s a -> s{_cedStatusReason = a});+cedStatusReason = lens _cedStatusReason (\ s a -> s{_cedStatusReason = a})  -- | The type of the compute environment. cedType :: Lens' ComputeEnvironmentDetail (Maybe CEType)-cedType = lens _cedType (\ s a -> s{_cedType = a});+cedType = lens _cedType (\ s a -> s{_cedType = a})  -- | The service role associated with the compute environment that allows AWS Batch to make calls to AWS API operations on your behalf. cedServiceRole :: Lens' ComputeEnvironmentDetail (Maybe Text)-cedServiceRole = lens _cedServiceRole (\ s a -> s{_cedServiceRole = a});+cedServiceRole = lens _cedServiceRole (\ s a -> s{_cedServiceRole = a})  -- | The name of the compute environment. cedComputeEnvironmentName :: Lens' ComputeEnvironmentDetail Text-cedComputeEnvironmentName = lens _cedComputeEnvironmentName (\ s a -> s{_cedComputeEnvironmentName = a});+cedComputeEnvironmentName = lens _cedComputeEnvironmentName (\ s a -> s{_cedComputeEnvironmentName = a})  -- | The Amazon Resource Name (ARN) of the compute environment. cedComputeEnvironmentARN :: Lens' ComputeEnvironmentDetail Text-cedComputeEnvironmentARN = lens _cedComputeEnvironmentARN (\ s a -> s{_cedComputeEnvironmentARN = a});+cedComputeEnvironmentARN = lens _cedComputeEnvironmentARN (\ s a -> s{_cedComputeEnvironmentARN = a})  -- | The Amazon Resource Name (ARN) of the underlying Amazon ECS cluster used by the compute environment. cedEcsClusterARN :: Lens' ComputeEnvironmentDetail Text-cedEcsClusterARN = lens _cedEcsClusterARN (\ s a -> s{_cedEcsClusterARN = a});+cedEcsClusterARN = lens _cedEcsClusterARN (\ s a -> s{_cedEcsClusterARN = a})  instance FromJSON ComputeEnvironmentDetail where         parseJSON@@ -294,16 +421,16 @@     -> ComputeEnvironmentOrder computeEnvironmentOrder pOrder_ pComputeEnvironment_ =   ComputeEnvironmentOrder'-  {_ceoOrder = pOrder_, _ceoComputeEnvironment = pComputeEnvironment_}+    {_ceoOrder = pOrder_, _ceoComputeEnvironment = pComputeEnvironment_}   -- | The order of the compute environment. ceoOrder :: Lens' ComputeEnvironmentOrder Int-ceoOrder = lens _ceoOrder (\ s a -> s{_ceoOrder = a});+ceoOrder = lens _ceoOrder (\ s a -> s{_ceoOrder = a})  -- | The Amazon Resource Name (ARN) of the compute environment. ceoComputeEnvironment :: Lens' ComputeEnvironmentOrder Text-ceoComputeEnvironment = lens _ceoComputeEnvironment (\ s a -> s{_ceoComputeEnvironment = a});+ceoComputeEnvironment = lens _ceoComputeEnvironment (\ s a -> s{_ceoComputeEnvironment = a})  instance FromJSON ComputeEnvironmentOrder where         parseJSON@@ -383,73 +510,73 @@     -> ComputeResource computeResource pType_ pMinvCPUs_ pMaxvCPUs_ pInstanceRole_ =   ComputeResource'-  { _crEc2KeyPair = Nothing-  , _crBidPercentage = Nothing-  , _crSpotIAMFleetRole = Nothing-  , _crImageId = Nothing-  , _crDesiredvCPUs = Nothing-  , _crTags = Nothing-  , _crType = pType_-  , _crMinvCPUs = pMinvCPUs_-  , _crMaxvCPUs = pMaxvCPUs_-  , _crInstanceTypes = mempty-  , _crSubnets = mempty-  , _crSecurityGroupIds = mempty-  , _crInstanceRole = pInstanceRole_-  }+    { _crEc2KeyPair = Nothing+    , _crBidPercentage = Nothing+    , _crSpotIAMFleetRole = Nothing+    , _crImageId = Nothing+    , _crDesiredvCPUs = Nothing+    , _crTags = Nothing+    , _crType = pType_+    , _crMinvCPUs = pMinvCPUs_+    , _crMaxvCPUs = pMaxvCPUs_+    , _crInstanceTypes = mempty+    , _crSubnets = mempty+    , _crSecurityGroupIds = mempty+    , _crInstanceRole = pInstanceRole_+    }   -- | The EC2 key pair that is used for instances launched in the compute environment. crEc2KeyPair :: Lens' ComputeResource (Maybe Text)-crEc2KeyPair = lens _crEc2KeyPair (\ s a -> s{_crEc2KeyPair = a});+crEc2KeyPair = lens _crEc2KeyPair (\ s a -> s{_crEc2KeyPair = a})  -- | The minimum percentage that a Spot Instance price must be when compared with the On-Demand price for that instance type before instances are launched. For example, if your bid percentage is 20%, then the Spot price must be below 20% of the current On-Demand price for that EC2 instance. crBidPercentage :: Lens' ComputeResource (Maybe Int)-crBidPercentage = lens _crBidPercentage (\ s a -> s{_crBidPercentage = a});+crBidPercentage = lens _crBidPercentage (\ s a -> s{_crBidPercentage = a})  -- | The Amazon Resource Name (ARN) of the Amazon EC2 Spot Fleet IAM role applied to a @SPOT@ compute environment. crSpotIAMFleetRole :: Lens' ComputeResource (Maybe Text)-crSpotIAMFleetRole = lens _crSpotIAMFleetRole (\ s a -> s{_crSpotIAMFleetRole = a});+crSpotIAMFleetRole = lens _crSpotIAMFleetRole (\ s a -> s{_crSpotIAMFleetRole = a})  -- | The Amazon Machine Image (AMI) ID used for instances launched in the compute environment. crImageId :: Lens' ComputeResource (Maybe Text)-crImageId = lens _crImageId (\ s a -> s{_crImageId = a});+crImageId = lens _crImageId (\ s a -> s{_crImageId = a})  -- | The desired number of EC2 vCPUS in the compute environment. crDesiredvCPUs :: Lens' ComputeResource (Maybe Int)-crDesiredvCPUs = lens _crDesiredvCPUs (\ s a -> s{_crDesiredvCPUs = a});+crDesiredvCPUs = lens _crDesiredvCPUs (\ s a -> s{_crDesiredvCPUs = a})  -- | Key-value pair tags to be applied to resources that are launched in the compute environment. crTags :: Lens' ComputeResource (HashMap Text Text)-crTags = lens _crTags (\ s a -> s{_crTags = a}) . _Default . _Map;+crTags = lens _crTags (\ s a -> s{_crTags = a}) . _Default . _Map  -- | The type of compute environment. crType :: Lens' ComputeResource CRType-crType = lens _crType (\ s a -> s{_crType = a});+crType = lens _crType (\ s a -> s{_crType = a})  -- | The minimum number of EC2 vCPUs that an environment should maintain. crMinvCPUs :: Lens' ComputeResource Int-crMinvCPUs = lens _crMinvCPUs (\ s a -> s{_crMinvCPUs = a});+crMinvCPUs = lens _crMinvCPUs (\ s a -> s{_crMinvCPUs = a})  -- | The maximum number of EC2 vCPUs that an environment can reach. crMaxvCPUs :: Lens' ComputeResource Int-crMaxvCPUs = lens _crMaxvCPUs (\ s a -> s{_crMaxvCPUs = a});+crMaxvCPUs = lens _crMaxvCPUs (\ s a -> s{_crMaxvCPUs = a})  -- | The instances types that may be launched. You can specify instance families to launch any instance type within those families (for example, @c4@ or @p3@ ), or you can specify specific sizes within a family (such as @c4.8xlarge@ ). You can also choose @optimal@ to pick instance types (from the latest C, M, and R instance families) on the fly that match the demand of your job queues. crInstanceTypes :: Lens' ComputeResource [Text]-crInstanceTypes = lens _crInstanceTypes (\ s a -> s{_crInstanceTypes = a}) . _Coerce;+crInstanceTypes = lens _crInstanceTypes (\ s a -> s{_crInstanceTypes = a}) . _Coerce  -- | The VPC subnets into which the compute resources are launched. crSubnets :: Lens' ComputeResource [Text]-crSubnets = lens _crSubnets (\ s a -> s{_crSubnets = a}) . _Coerce;+crSubnets = lens _crSubnets (\ s a -> s{_crSubnets = a}) . _Coerce  -- | The EC2 security group that is associated with instances launched in the compute environment. crSecurityGroupIds :: Lens' ComputeResource [Text]-crSecurityGroupIds = lens _crSecurityGroupIds (\ s a -> s{_crSecurityGroupIds = a}) . _Coerce;+crSecurityGroupIds = lens _crSecurityGroupIds (\ s a -> s{_crSecurityGroupIds = a}) . _Coerce  -- | The Amazon ECS instance profile applied to Amazon EC2 instances in a compute environment. You can specify the short name or full Amazon Resource Name (ARN) of an instance profile. For example, @ecsInstanceRole@ or @arn:aws:iam::<aws_account_id>:instance-profile/ecsInstanceRole@ . For more information, see <http://docs.aws.amazon.com/batch/latest/userguide/instance_IAM_role.html Amazon ECS Instance Role> in the /AWS Batch User Guide/ . crInstanceRole :: Lens' ComputeResource Text-crInstanceRole = lens _crInstanceRole (\ s a -> s{_crInstanceRole = a});+crInstanceRole = lens _crInstanceRole (\ s a -> s{_crInstanceRole = a})  instance FromJSON ComputeResource where         parseJSON@@ -515,20 +642,20 @@     :: ComputeResourceUpdate computeResourceUpdate =   ComputeResourceUpdate'-  {_cruMinvCPUs = Nothing, _cruMaxvCPUs = Nothing, _cruDesiredvCPUs = Nothing}+    {_cruMinvCPUs = Nothing, _cruMaxvCPUs = Nothing, _cruDesiredvCPUs = Nothing}   -- | The minimum number of EC2 vCPUs that an environment should maintain. cruMinvCPUs :: Lens' ComputeResourceUpdate (Maybe Int)-cruMinvCPUs = lens _cruMinvCPUs (\ s a -> s{_cruMinvCPUs = a});+cruMinvCPUs = lens _cruMinvCPUs (\ s a -> s{_cruMinvCPUs = a})  -- | The maximum number of EC2 vCPUs that an environment can reach. cruMaxvCPUs :: Lens' ComputeResourceUpdate (Maybe Int)-cruMaxvCPUs = lens _cruMaxvCPUs (\ s a -> s{_cruMaxvCPUs = a});+cruMaxvCPUs = lens _cruMaxvCPUs (\ s a -> s{_cruMaxvCPUs = a})  -- | The desired number of EC2 vCPUS in the compute environment. cruDesiredvCPUs :: Lens' ComputeResourceUpdate (Maybe Int)-cruDesiredvCPUs = lens _cruDesiredvCPUs (\ s a -> s{_cruDesiredvCPUs = a});+cruDesiredvCPUs = lens _cruDesiredvCPUs (\ s a -> s{_cruDesiredvCPUs = a})  instance Hashable ComputeResourceUpdate where @@ -609,93 +736,93 @@     :: ContainerDetail containerDetail =   ContainerDetail'-  { _cdImage = Nothing-  , _cdCommand = Nothing-  , _cdEnvironment = Nothing-  , _cdTaskARN = Nothing-  , _cdUlimits = Nothing-  , _cdContainerInstanceARN = Nothing-  , _cdPrivileged = Nothing-  , _cdJobRoleARN = Nothing-  , _cdMemory = Nothing-  , _cdUser = Nothing-  , _cdReason = Nothing-  , _cdLogStreamName = Nothing-  , _cdMountPoints = Nothing-  , _cdExitCode = Nothing-  , _cdVcpus = Nothing-  , _cdReadonlyRootFilesystem = Nothing-  , _cdVolumes = Nothing-  }+    { _cdImage = Nothing+    , _cdCommand = Nothing+    , _cdEnvironment = Nothing+    , _cdTaskARN = Nothing+    , _cdUlimits = Nothing+    , _cdContainerInstanceARN = Nothing+    , _cdPrivileged = Nothing+    , _cdJobRoleARN = Nothing+    , _cdMemory = Nothing+    , _cdUser = Nothing+    , _cdReason = Nothing+    , _cdLogStreamName = Nothing+    , _cdMountPoints = Nothing+    , _cdExitCode = Nothing+    , _cdVcpus = Nothing+    , _cdReadonlyRootFilesystem = Nothing+    , _cdVolumes = Nothing+    }   -- | The image used to start the container. cdImage :: Lens' ContainerDetail (Maybe Text)-cdImage = lens _cdImage (\ s a -> s{_cdImage = a});+cdImage = lens _cdImage (\ s a -> s{_cdImage = a})  -- | The command that is passed to the container. cdCommand :: Lens' ContainerDetail [Text]-cdCommand = lens _cdCommand (\ s a -> s{_cdCommand = a}) . _Default . _Coerce;+cdCommand = lens _cdCommand (\ s a -> s{_cdCommand = a}) . _Default . _Coerce  -- | The environment variables to pass to a container. cdEnvironment :: Lens' ContainerDetail [KeyValuePair]-cdEnvironment = lens _cdEnvironment (\ s a -> s{_cdEnvironment = a}) . _Default . _Coerce;+cdEnvironment = lens _cdEnvironment (\ s a -> s{_cdEnvironment = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the Amazon ECS task that is associated with the container job. Each container attempt receives a task ARN when they reach the @STARTING@ status. cdTaskARN :: Lens' ContainerDetail (Maybe Text)-cdTaskARN = lens _cdTaskARN (\ s a -> s{_cdTaskARN = a});+cdTaskARN = lens _cdTaskARN (\ s a -> s{_cdTaskARN = a})  -- | A list of @ulimit@ values to set in the container. cdUlimits :: Lens' ContainerDetail [Ulimit]-cdUlimits = lens _cdUlimits (\ s a -> s{_cdUlimits = a}) . _Default . _Coerce;+cdUlimits = lens _cdUlimits (\ s a -> s{_cdUlimits = a}) . _Default . _Coerce  -- | The Amazon Resource Name (ARN) of the container instance on which the container is running. cdContainerInstanceARN :: Lens' ContainerDetail (Maybe Text)-cdContainerInstanceARN = lens _cdContainerInstanceARN (\ s a -> s{_cdContainerInstanceARN = a});+cdContainerInstanceARN = lens _cdContainerInstanceARN (\ s a -> s{_cdContainerInstanceARN = a})  -- | When this parameter is true, the container is given elevated privileges on the host container instance (similar to the @root@ user). cdPrivileged :: Lens' ContainerDetail (Maybe Bool)-cdPrivileged = lens _cdPrivileged (\ s a -> s{_cdPrivileged = a});+cdPrivileged = lens _cdPrivileged (\ s a -> s{_cdPrivileged = a})  -- | The Amazon Resource Name (ARN) associated with the job upon execution. cdJobRoleARN :: Lens' ContainerDetail (Maybe Text)-cdJobRoleARN = lens _cdJobRoleARN (\ s a -> s{_cdJobRoleARN = a});+cdJobRoleARN = lens _cdJobRoleARN (\ s a -> s{_cdJobRoleARN = a})  -- | The number of MiB of memory reserved for the job. cdMemory :: Lens' ContainerDetail (Maybe Int)-cdMemory = lens _cdMemory (\ s a -> s{_cdMemory = a});+cdMemory = lens _cdMemory (\ s a -> s{_cdMemory = a})  -- | The user name to use inside the container. cdUser :: Lens' ContainerDetail (Maybe Text)-cdUser = lens _cdUser (\ s a -> s{_cdUser = a});+cdUser = lens _cdUser (\ s a -> s{_cdUser = a})  -- | A short (255 max characters) human-readable string to provide additional details about a running or stopped container. cdReason :: Lens' ContainerDetail (Maybe Text)-cdReason = lens _cdReason (\ s a -> s{_cdReason = a});+cdReason = lens _cdReason (\ s a -> s{_cdReason = a})  -- | The name of the CloudWatch Logs log stream associated with the container. The log group for AWS Batch jobs is @/aws/batch/job@ . Each container attempt receives a log stream name when they reach the @RUNNING@ status. cdLogStreamName :: Lens' ContainerDetail (Maybe Text)-cdLogStreamName = lens _cdLogStreamName (\ s a -> s{_cdLogStreamName = a});+cdLogStreamName = lens _cdLogStreamName (\ s a -> s{_cdLogStreamName = a})  -- | The mount points for data volumes in your container. cdMountPoints :: Lens' ContainerDetail [MountPoint]-cdMountPoints = lens _cdMountPoints (\ s a -> s{_cdMountPoints = a}) . _Default . _Coerce;+cdMountPoints = lens _cdMountPoints (\ s a -> s{_cdMountPoints = a}) . _Default . _Coerce  -- | The exit code to return upon completion. cdExitCode :: Lens' ContainerDetail (Maybe Int)-cdExitCode = lens _cdExitCode (\ s a -> s{_cdExitCode = a});+cdExitCode = lens _cdExitCode (\ s a -> s{_cdExitCode = a})  -- | The number of VCPUs allocated for the job. cdVcpus :: Lens' ContainerDetail (Maybe Int)-cdVcpus = lens _cdVcpus (\ s a -> s{_cdVcpus = a});+cdVcpus = lens _cdVcpus (\ s a -> s{_cdVcpus = a})  -- | When this parameter is true, the container is given read-only access to its root file system. cdReadonlyRootFilesystem :: Lens' ContainerDetail (Maybe Bool)-cdReadonlyRootFilesystem = lens _cdReadonlyRootFilesystem (\ s a -> s{_cdReadonlyRootFilesystem = a});+cdReadonlyRootFilesystem = lens _cdReadonlyRootFilesystem (\ s a -> s{_cdReadonlyRootFilesystem = a})  -- | A list of volumes associated with the job. cdVolumes :: Lens' ContainerDetail [Volume]-cdVolumes = lens _cdVolumes (\ s a -> s{_cdVolumes = a}) . _Default . _Coerce;+cdVolumes = lens _cdVolumes (\ s a -> s{_cdVolumes = a}) . _Default . _Coerce  instance FromJSON ContainerDetail where         parseJSON@@ -751,28 +878,28 @@     :: ContainerOverrides containerOverrides =   ContainerOverrides'-  { _coCommand = Nothing-  , _coEnvironment = Nothing-  , _coMemory = Nothing-  , _coVcpus = Nothing-  }+    { _coCommand = Nothing+    , _coEnvironment = Nothing+    , _coMemory = Nothing+    , _coVcpus = Nothing+    }   -- | The command to send to the container that overrides the default command from the Docker image or the job definition. coCommand :: Lens' ContainerOverrides [Text]-coCommand = lens _coCommand (\ s a -> s{_coCommand = a}) . _Default . _Coerce;+coCommand = lens _coCommand (\ s a -> s{_coCommand = a}) . _Default . _Coerce  -- | The environment variables to send to the container. You can add new environment variables, which are added to the container at launch, or you can override the existing environment variables from the Docker image or the job definition. coEnvironment :: Lens' ContainerOverrides [KeyValuePair]-coEnvironment = lens _coEnvironment (\ s a -> s{_coEnvironment = a}) . _Default . _Coerce;+coEnvironment = lens _coEnvironment (\ s a -> s{_coEnvironment = a}) . _Default . _Coerce  -- | The number of MiB of memory reserved for the job. This value overrides the value set in the job definition. coMemory :: Lens' ContainerOverrides (Maybe Int)-coMemory = lens _coMemory (\ s a -> s{_coMemory = a});+coMemory = lens _coMemory (\ s a -> s{_coMemory = a})  -- | The number of vCPUs to reserve for the container. This value overrides the value set in the job definition. coVcpus :: Lens' ContainerOverrides (Maybe Int)-coVcpus = lens _coVcpus (\ s a -> s{_coVcpus = a});+coVcpus = lens _coVcpus (\ s a -> s{_coVcpus = a})  instance Hashable ContainerOverrides where @@ -814,7 +941,7 @@ -- -- * 'cpCommand' - The command that is passed to the container. This parameter maps to @Cmd@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @COMMAND@ parameter to <https://docs.docker.com/engine/reference/run/ docker run> . For more information, see <https://docs.docker.com/engine/reference/builder/#cmd https://docs.docker.com/engine/reference/builder/#cmd> . ----- * 'cpEnvironment' - The environment variables to pass to a container. This parameter maps to @Env@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--env@ option to <https://docs.docker.com/engine/reference/run/ docker run> . /Important:/ We do not recommend using plain text environment variables for sensitive information, such as credential data.+-- * 'cpEnvironment' - The environment variables to pass to a container. This parameter maps to @Env@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--env@ option to <https://docs.docker.com/engine/reference/run/ docker run> . /Important:/ We do not recommend using plaintext environment variables for sensitive information, such as credential data. -- -- * 'cpUlimits' - A list of @ulimits@ to set in the container. This parameter maps to @Ulimits@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--ulimit@ option to <https://docs.docker.com/engine/reference/run/ docker run> . --@@ -832,7 +959,7 @@ -- -- * 'cpImage' - The image used to start a container. This string is passed directly to the Docker daemon. Images in the Docker Hub registry are available by default. Other repositories are specified with @/repository-url/ //image/ :/tag/ @ . Up to 255 letters (uppercase and lowercase), numbers, hyphens, underscores, colons, periods, forward slashes, and number signs are allowed. This parameter maps to @Image@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @IMAGE@ parameter of <https://docs.docker.com/engine/reference/run/ docker run> .     * Images in Amazon ECR repositories use the full registry and repository URI (for example, @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>@ ).      * Images in official repositories on Docker Hub use a single name (for example, @ubuntu@ or @mongo@ ).     * Images in other repositories on Docker Hub are qualified with an organization name (for example, @amazon/amazon-ecs-agent@ ).     * Images in other online repositories are qualified further by a domain name (for example, @quay.io/assemblyline/ubuntu@ ). ----- * 'cpVcpus' - The number of vCPUs reserved for the container. This parameter maps to @CpuShares@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--cpu-shares@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Each vCPU is equivalent to 1,024 CPU shares. You must specify at least 1 vCPU.+-- * 'cpVcpus' - The number of vCPUs reserved for the container. This parameter maps to @CpuShares@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--cpu-shares@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Each vCPU is equivalent to 1,024 CPU shares. You must specify at least one vCPU. -- -- * 'cpMemory' - The hard limit (in MiB) of memory to present to the container. If your container attempts to exceed the memory specified here, the container is killed. This parameter maps to @Memory@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--memory@ option to <https://docs.docker.com/engine/reference/run/ docker run> . You must specify at least 4 MiB of memory for a job. containerProperties@@ -842,68 +969,68 @@     -> ContainerProperties containerProperties pImage_ pVcpus_ pMemory_ =   ContainerProperties'-  { _cpCommand = Nothing-  , _cpEnvironment = Nothing-  , _cpUlimits = Nothing-  , _cpPrivileged = Nothing-  , _cpJobRoleARN = Nothing-  , _cpUser = Nothing-  , _cpMountPoints = Nothing-  , _cpReadonlyRootFilesystem = Nothing-  , _cpVolumes = Nothing-  , _cpImage = pImage_-  , _cpVcpus = pVcpus_-  , _cpMemory = pMemory_-  }+    { _cpCommand = Nothing+    , _cpEnvironment = Nothing+    , _cpUlimits = Nothing+    , _cpPrivileged = Nothing+    , _cpJobRoleARN = Nothing+    , _cpUser = Nothing+    , _cpMountPoints = Nothing+    , _cpReadonlyRootFilesystem = Nothing+    , _cpVolumes = Nothing+    , _cpImage = pImage_+    , _cpVcpus = pVcpus_+    , _cpMemory = pMemory_+    }   -- | The command that is passed to the container. This parameter maps to @Cmd@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @COMMAND@ parameter to <https://docs.docker.com/engine/reference/run/ docker run> . For more information, see <https://docs.docker.com/engine/reference/builder/#cmd https://docs.docker.com/engine/reference/builder/#cmd> . cpCommand :: Lens' ContainerProperties [Text]-cpCommand = lens _cpCommand (\ s a -> s{_cpCommand = a}) . _Default . _Coerce;+cpCommand = lens _cpCommand (\ s a -> s{_cpCommand = a}) . _Default . _Coerce --- | The environment variables to pass to a container. This parameter maps to @Env@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--env@ option to <https://docs.docker.com/engine/reference/run/ docker run> . /Important:/ We do not recommend using plain text environment variables for sensitive information, such as credential data.+-- | The environment variables to pass to a container. This parameter maps to @Env@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--env@ option to <https://docs.docker.com/engine/reference/run/ docker run> . /Important:/ We do not recommend using plaintext environment variables for sensitive information, such as credential data. cpEnvironment :: Lens' ContainerProperties [KeyValuePair]-cpEnvironment = lens _cpEnvironment (\ s a -> s{_cpEnvironment = a}) . _Default . _Coerce;+cpEnvironment = lens _cpEnvironment (\ s a -> s{_cpEnvironment = a}) . _Default . _Coerce  -- | A list of @ulimits@ to set in the container. This parameter maps to @Ulimits@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--ulimit@ option to <https://docs.docker.com/engine/reference/run/ docker run> . cpUlimits :: Lens' ContainerProperties [Ulimit]-cpUlimits = lens _cpUlimits (\ s a -> s{_cpUlimits = a}) . _Default . _Coerce;+cpUlimits = lens _cpUlimits (\ s a -> s{_cpUlimits = a}) . _Default . _Coerce  -- | When this parameter is true, the container is given elevated privileges on the host container instance (similar to the @root@ user). This parameter maps to @Privileged@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--privileged@ option to <https://docs.docker.com/engine/reference/run/ docker run> . cpPrivileged :: Lens' ContainerProperties (Maybe Bool)-cpPrivileged = lens _cpPrivileged (\ s a -> s{_cpPrivileged = a});+cpPrivileged = lens _cpPrivileged (\ s a -> s{_cpPrivileged = a})  -- | The Amazon Resource Name (ARN) of the IAM role that the container can assume for AWS permissions. cpJobRoleARN :: Lens' ContainerProperties (Maybe Text)-cpJobRoleARN = lens _cpJobRoleARN (\ s a -> s{_cpJobRoleARN = a});+cpJobRoleARN = lens _cpJobRoleARN (\ s a -> s{_cpJobRoleARN = a})  -- | The user name to use inside the container. This parameter maps to @User@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--user@ option to <https://docs.docker.com/engine/reference/run/ docker run> . cpUser :: Lens' ContainerProperties (Maybe Text)-cpUser = lens _cpUser (\ s a -> s{_cpUser = a});+cpUser = lens _cpUser (\ s a -> s{_cpUser = a})  -- | The mount points for data volumes in your container. This parameter maps to @Volumes@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--volume@ option to <https://docs.docker.com/engine/reference/run/ docker run> . cpMountPoints :: Lens' ContainerProperties [MountPoint]-cpMountPoints = lens _cpMountPoints (\ s a -> s{_cpMountPoints = a}) . _Default . _Coerce;+cpMountPoints = lens _cpMountPoints (\ s a -> s{_cpMountPoints = a}) . _Default . _Coerce  -- | When this parameter is true, the container is given read-only access to its root file system. This parameter maps to @ReadonlyRootfs@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--read-only@ option to @docker run@ . cpReadonlyRootFilesystem :: Lens' ContainerProperties (Maybe Bool)-cpReadonlyRootFilesystem = lens _cpReadonlyRootFilesystem (\ s a -> s{_cpReadonlyRootFilesystem = a});+cpReadonlyRootFilesystem = lens _cpReadonlyRootFilesystem (\ s a -> s{_cpReadonlyRootFilesystem = a})  -- | A list of data volumes used in a job. cpVolumes :: Lens' ContainerProperties [Volume]-cpVolumes = lens _cpVolumes (\ s a -> s{_cpVolumes = a}) . _Default . _Coerce;+cpVolumes = lens _cpVolumes (\ s a -> s{_cpVolumes = a}) . _Default . _Coerce  -- | The image used to start a container. This string is passed directly to the Docker daemon. Images in the Docker Hub registry are available by default. Other repositories are specified with @/repository-url/ //image/ :/tag/ @ . Up to 255 letters (uppercase and lowercase), numbers, hyphens, underscores, colons, periods, forward slashes, and number signs are allowed. This parameter maps to @Image@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @IMAGE@ parameter of <https://docs.docker.com/engine/reference/run/ docker run> .     * Images in Amazon ECR repositories use the full registry and repository URI (for example, @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>@ ).      * Images in official repositories on Docker Hub use a single name (for example, @ubuntu@ or @mongo@ ).     * Images in other repositories on Docker Hub are qualified with an organization name (for example, @amazon/amazon-ecs-agent@ ).     * Images in other online repositories are qualified further by a domain name (for example, @quay.io/assemblyline/ubuntu@ ). cpImage :: Lens' ContainerProperties Text-cpImage = lens _cpImage (\ s a -> s{_cpImage = a});+cpImage = lens _cpImage (\ s a -> s{_cpImage = a}) --- | The number of vCPUs reserved for the container. This parameter maps to @CpuShares@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--cpu-shares@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Each vCPU is equivalent to 1,024 CPU shares. You must specify at least 1 vCPU.+-- | The number of vCPUs reserved for the container. This parameter maps to @CpuShares@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--cpu-shares@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Each vCPU is equivalent to 1,024 CPU shares. You must specify at least one vCPU. cpVcpus :: Lens' ContainerProperties Int-cpVcpus = lens _cpVcpus (\ s a -> s{_cpVcpus = a});+cpVcpus = lens _cpVcpus (\ s a -> s{_cpVcpus = a})  -- | The hard limit (in MiB) of memory to present to the container. If your container attempts to exceed the memory specified here, the container is killed. This parameter maps to @Memory@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.23/ Docker Remote API> and the @--memory@ option to <https://docs.docker.com/engine/reference/run/ docker run> . You must specify at least 4 MiB of memory for a job. cpMemory :: Lens' ContainerProperties Int-cpMemory = lens _cpMemory (\ s a -> s{_cpMemory = a});+cpMemory = lens _cpMemory (\ s a -> s{_cpMemory = a})  instance FromJSON ContainerProperties where         parseJSON@@ -945,6 +1072,49 @@                   Just ("vcpus" .= _cpVcpus),                   Just ("memory" .= _cpMemory)]) +-- | An object representing summary details of a container within a job.+--+--+--+-- /See:/ 'containerSummary' smart constructor.+data ContainerSummary = ContainerSummary'+  { _csReason   :: !(Maybe Text)+  , _csExitCode :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContainerSummary' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csReason' - A short (255 max characters) human-readable string to provide additional details about a running or stopped container.+--+-- * 'csExitCode' - The exit code to return upon completion.+containerSummary+    :: ContainerSummary+containerSummary =+  ContainerSummary' {_csReason = Nothing, _csExitCode = Nothing}+++-- | A short (255 max characters) human-readable string to provide additional details about a running or stopped container.+csReason :: Lens' ContainerSummary (Maybe Text)+csReason = lens _csReason (\ s a -> s{_csReason = a})++-- | The exit code to return upon completion.+csExitCode :: Lens' ContainerSummary (Maybe Int)+csExitCode = lens _csExitCode (\ s a -> s{_csExitCode = a})++instance FromJSON ContainerSummary where+        parseJSON+          = withObject "ContainerSummary"+              (\ x ->+                 ContainerSummary' <$>+                   (x .:? "reason") <*> (x .:? "exitCode"))++instance Hashable ContainerSummary where++instance NFData ContainerSummary where+ -- | The contents of the @host@ parameter determine whether your data volume persists on the host container instance and where it is stored. If the host parameter is empty, then the Docker daemon assigns a host path for your data volume, but the data is not guaranteed to persist after the containers associated with it stop running. -- --@@ -967,7 +1137,7 @@  -- | The path on the host container instance that is presented to the container. If this parameter is empty, then the Docker daemon has assigned a host path for you. If the @host@ parameter contains a @sourcePath@ file location, then the data volume persists at the specified location on the host container instance until you delete it manually. If the @sourcePath@ value does not exist on the host container instance, the Docker daemon creates it. If the location does exist, the contents of the source path folder are exported. hSourcePath :: Lens' Host (Maybe Text)-hSourcePath = lens _hSourcePath (\ s a -> s{_hSourcePath = a});+hSourcePath = lens _hSourcePath (\ s a -> s{_hSourcePath = a})  instance FromJSON Host where         parseJSON@@ -989,14 +1159,15 @@ -- -- /See:/ 'jobDefinition' smart constructor. data JobDefinition = JobDefinition'-  { _jStatus              :: !(Maybe Text)-  , _jRetryStrategy       :: !(Maybe RetryStrategy)-  , _jParameters          :: !(Maybe (Map Text Text))-  , _jContainerProperties :: !(Maybe ContainerProperties)-  , _jJobDefinitionName   :: !Text-  , _jJobDefinitionARN    :: !Text-  , _jRevision            :: !Int-  , _jType                :: !Text+  { _jddStatus              :: !(Maybe Text)+  , _jddRetryStrategy       :: !(Maybe RetryStrategy)+  , _jddParameters          :: !(Maybe (Map Text Text))+  , _jddTimeout             :: !(Maybe JobTimeout)+  , _jddContainerProperties :: !(Maybe ContainerProperties)+  , _jddJobDefinitionName   :: !Text+  , _jddJobDefinitionARN    :: !Text+  , _jddRevision            :: !Int+  , _jddType                :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -1004,71 +1175,78 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'jStatus' - The status of the job definition.+-- * 'jddStatus' - The status of the job definition. ----- * 'jRetryStrategy' - The retry strategy to use for failed jobs that are submitted with this job definition.+-- * 'jddRetryStrategy' - The retry strategy to use for failed jobs that are submitted with this job definition. ----- * 'jParameters' - Default parameters or parameter substitution placeholders that are set in the job definition. Parameters are specified as a key-value pair mapping. Parameters in a @SubmitJob@ request override any corresponding parameter defaults from the job definition.+-- * 'jddParameters' - Default parameters or parameter substitution placeholders that are set in the job definition. Parameters are specified as a key-value pair mapping. Parameters in a @SubmitJob@ request override any corresponding parameter defaults from the job definition. ----- * 'jContainerProperties' - An object with various properties specific to container-based jobs.+-- * 'jddTimeout' - The timeout configuration for jobs that are submitted with this job definition. You can specify a timeout duration after which AWS Batch terminates your jobs if they have not finished. ----- * 'jJobDefinitionName' - The name of the job definition.+-- * 'jddContainerProperties' - An object with various properties specific to container-based jobs. ----- * 'jJobDefinitionARN' - The Amazon Resource Name (ARN) for the job definition.+-- * 'jddJobDefinitionName' - The name of the job definition. ----- * 'jRevision' - The revision of the job definition.+-- * 'jddJobDefinitionARN' - The Amazon Resource Name (ARN) for the job definition. ----- * 'jType' - The type of job definition.+-- * 'jddRevision' - The revision of the job definition.+--+-- * 'jddType' - The type of job definition. jobDefinition-    :: Text -- ^ 'jJobDefinitionName'-    -> Text -- ^ 'jJobDefinitionARN'-    -> Int -- ^ 'jRevision'-    -> Text -- ^ 'jType'+    :: Text -- ^ 'jddJobDefinitionName'+    -> Text -- ^ 'jddJobDefinitionARN'+    -> Int -- ^ 'jddRevision'+    -> Text -- ^ 'jddType'     -> JobDefinition jobDefinition pJobDefinitionName_ pJobDefinitionARN_ pRevision_ pType_ =   JobDefinition'-  { _jStatus = Nothing-  , _jRetryStrategy = Nothing-  , _jParameters = Nothing-  , _jContainerProperties = Nothing-  , _jJobDefinitionName = pJobDefinitionName_-  , _jJobDefinitionARN = pJobDefinitionARN_-  , _jRevision = pRevision_-  , _jType = pType_-  }+    { _jddStatus = Nothing+    , _jddRetryStrategy = Nothing+    , _jddParameters = Nothing+    , _jddTimeout = Nothing+    , _jddContainerProperties = Nothing+    , _jddJobDefinitionName = pJobDefinitionName_+    , _jddJobDefinitionARN = pJobDefinitionARN_+    , _jddRevision = pRevision_+    , _jddType = pType_+    }   -- | The status of the job definition.-jStatus :: Lens' JobDefinition (Maybe Text)-jStatus = lens _jStatus (\ s a -> s{_jStatus = a});+jddStatus :: Lens' JobDefinition (Maybe Text)+jddStatus = lens _jddStatus (\ s a -> s{_jddStatus = a})  -- | The retry strategy to use for failed jobs that are submitted with this job definition.-jRetryStrategy :: Lens' JobDefinition (Maybe RetryStrategy)-jRetryStrategy = lens _jRetryStrategy (\ s a -> s{_jRetryStrategy = a});+jddRetryStrategy :: Lens' JobDefinition (Maybe RetryStrategy)+jddRetryStrategy = lens _jddRetryStrategy (\ s a -> s{_jddRetryStrategy = a})  -- | Default parameters or parameter substitution placeholders that are set in the job definition. Parameters are specified as a key-value pair mapping. Parameters in a @SubmitJob@ request override any corresponding parameter defaults from the job definition.-jParameters :: Lens' JobDefinition (HashMap Text Text)-jParameters = lens _jParameters (\ s a -> s{_jParameters = a}) . _Default . _Map;+jddParameters :: Lens' JobDefinition (HashMap Text Text)+jddParameters = lens _jddParameters (\ s a -> s{_jddParameters = a}) . _Default . _Map +-- | The timeout configuration for jobs that are submitted with this job definition. You can specify a timeout duration after which AWS Batch terminates your jobs if they have not finished.+jddTimeout :: Lens' JobDefinition (Maybe JobTimeout)+jddTimeout = lens _jddTimeout (\ s a -> s{_jddTimeout = a})+ -- | An object with various properties specific to container-based jobs.-jContainerProperties :: Lens' JobDefinition (Maybe ContainerProperties)-jContainerProperties = lens _jContainerProperties (\ s a -> s{_jContainerProperties = a});+jddContainerProperties :: Lens' JobDefinition (Maybe ContainerProperties)+jddContainerProperties = lens _jddContainerProperties (\ s a -> s{_jddContainerProperties = a})  -- | The name of the job definition.-jJobDefinitionName :: Lens' JobDefinition Text-jJobDefinitionName = lens _jJobDefinitionName (\ s a -> s{_jJobDefinitionName = a});+jddJobDefinitionName :: Lens' JobDefinition Text+jddJobDefinitionName = lens _jddJobDefinitionName (\ s a -> s{_jddJobDefinitionName = a})  -- | The Amazon Resource Name (ARN) for the job definition.-jJobDefinitionARN :: Lens' JobDefinition Text-jJobDefinitionARN = lens _jJobDefinitionARN (\ s a -> s{_jJobDefinitionARN = a});+jddJobDefinitionARN :: Lens' JobDefinition Text+jddJobDefinitionARN = lens _jddJobDefinitionARN (\ s a -> s{_jddJobDefinitionARN = a})  -- | The revision of the job definition.-jRevision :: Lens' JobDefinition Int-jRevision = lens _jRevision (\ s a -> s{_jRevision = a});+jddRevision :: Lens' JobDefinition Int+jddRevision = lens _jddRevision (\ s a -> s{_jddRevision = a})  -- | The type of job definition.-jType :: Lens' JobDefinition Text-jType = lens _jType (\ s a -> s{_jType = a});+jddType :: Lens' JobDefinition Text+jddType = lens _jddType (\ s a -> s{_jddType = a})  instance FromJSON JobDefinition where         parseJSON@@ -1077,6 +1255,7 @@                  JobDefinition' <$>                    (x .:? "status") <*> (x .:? "retryStrategy") <*>                      (x .:? "parameters" .!= mempty)+                     <*> (x .:? "timeout")                      <*> (x .:? "containerProperties")                      <*> (x .: "jobDefinitionName")                      <*> (x .: "jobDefinitionArn")@@ -1092,8 +1271,9 @@ -- -- -- /See:/ 'jobDependency' smart constructor.-newtype JobDependency = JobDependency'-  { _jJobId :: Maybe Text+data JobDependency = JobDependency'+  { _jJobId :: !(Maybe Text)+  , _jType  :: !(Maybe ArrayJobDependency)   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -1102,19 +1282,27 @@ -- Use one of the following lenses to modify other fields as desired: -- -- * 'jJobId' - The job ID of the AWS Batch job associated with this dependency.+--+-- * 'jType' - The type of the job dependency. jobDependency     :: JobDependency-jobDependency = JobDependency' {_jJobId = Nothing}+jobDependency = JobDependency' {_jJobId = Nothing, _jType = Nothing}   -- | The job ID of the AWS Batch job associated with this dependency. jJobId :: Lens' JobDependency (Maybe Text)-jJobId = lens _jJobId (\ s a -> s{_jJobId = a});+jJobId = lens _jJobId (\ s a -> s{_jJobId = a}) +-- | The type of the job dependency.+jType :: Lens' JobDependency (Maybe ArrayJobDependency)+jType = lens _jType (\ s a -> s{_jType = a})+ instance FromJSON JobDependency where         parseJSON           = withObject "JobDependency"-              (\ x -> JobDependency' <$> (x .:? "jobId"))+              (\ x ->+                 JobDependency' <$>+                   (x .:? "jobId") <*> (x .:? "type"))  instance Hashable JobDependency where @@ -1122,7 +1310,9 @@  instance ToJSON JobDependency where         toJSON JobDependency'{..}-          = object (catMaybes [("jobId" .=) <$> _jJobId])+          = object+              (catMaybes+                 [("jobId" .=) <$> _jJobId, ("type" .=) <$> _jType])  -- | An object representing an AWS Batch job. --@@ -1130,20 +1320,22 @@ -- -- /See:/ 'jobDetail' smart constructor. data JobDetail = JobDetail'-  { _jdStoppedAt     :: !(Maybe Integer)-  , _jdCreatedAt     :: !(Maybe Integer)-  , _jdRetryStrategy :: !(Maybe RetryStrategy)-  , _jdAttempts      :: !(Maybe [AttemptDetail])-  , _jdDependsOn     :: !(Maybe [JobDependency])-  , _jdContainer     :: !(Maybe ContainerDetail)-  , _jdParameters    :: !(Maybe (Map Text Text))-  , _jdStatusReason  :: !(Maybe Text)-  , _jdJobName       :: !Text-  , _jdJobId         :: !Text-  , _jdJobQueue      :: !Text-  , _jdStatus        :: !JobStatus-  , _jdStartedAt     :: !Integer-  , _jdJobDefinition :: !Text+  { _jdStoppedAt       :: !(Maybe Integer)+  , _jdCreatedAt       :: !(Maybe Integer)+  , _jdRetryStrategy   :: !(Maybe RetryStrategy)+  , _jdAttempts        :: !(Maybe [AttemptDetail])+  , _jdDependsOn       :: !(Maybe [JobDependency])+  , _jdContainer       :: !(Maybe ContainerDetail)+  , _jdParameters      :: !(Maybe (Map Text Text))+  , _jdStatusReason    :: !(Maybe Text)+  , _jdArrayProperties :: !(Maybe ArrayPropertiesDetail)+  , _jdTimeout         :: !(Maybe JobTimeout)+  , _jdJobName         :: !Text+  , _jdJobId           :: !Text+  , _jdJobQueue        :: !Text+  , _jdStatus          :: !JobStatus+  , _jdStartedAt       :: !Integer+  , _jdJobDefinition   :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -1151,9 +1343,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'jdStoppedAt' - The Unix timestamp for when the job was stopped (when the task transitioned from the @RUNNING@ state to the @STOPPED@ state).+-- * 'jdStoppedAt' - The Unix time stamp (in seconds and milliseconds) for when the job was stopped (when the job transitioned from the @RUNNING@ state to a terminal state, such as @SUCCEEDED@ or @FAILED@ ). ----- * 'jdCreatedAt' - The Unix timestamp for when the job was created (when the task entered the @PENDING@ state).+-- * 'jdCreatedAt' - The Unix time stamp (in seconds and milliseconds) for when the job was created. For non-array jobs and parent array jobs, this is when the job entered the @SUBMITTED@ state (at the time 'SubmitJob' was called). For array child jobs, this is when the child job was spawned by its parent and entered the @PENDING@ state. -- -- * 'jdRetryStrategy' - The retry strategy to use for this job if an attempt fails. --@@ -1167,6 +1359,10 @@ -- -- * 'jdStatusReason' - A short, human-readable string to provide additional details about the current status of the job. --+-- * 'jdArrayProperties' - The array properties of the job, if it is an array job.+--+-- * 'jdTimeout' - The timeout configuration for the job.+-- -- * 'jdJobName' - The name of the job. -- -- * 'jdJobId' - The ID for the job.@@ -1175,7 +1371,7 @@ -- -- * 'jdStatus' - The current status for the job. ----- * 'jdStartedAt' - The Unix timestamp for when the job was started (when the task transitioned from the @PENDING@ state to the @RUNNING@ state).+-- * 'jdStartedAt' - The Unix time stamp (in seconds and milliseconds) for when the job was started (when the job transitioned from the @STARTING@ state to the @RUNNING@ state). -- -- * 'jdJobDefinition' - The job definition that is used by this job. jobDetail@@ -1188,78 +1384,88 @@     -> JobDetail jobDetail pJobName_ pJobId_ pJobQueue_ pStatus_ pStartedAt_ pJobDefinition_ =   JobDetail'-  { _jdStoppedAt = Nothing-  , _jdCreatedAt = Nothing-  , _jdRetryStrategy = Nothing-  , _jdAttempts = Nothing-  , _jdDependsOn = Nothing-  , _jdContainer = Nothing-  , _jdParameters = Nothing-  , _jdStatusReason = Nothing-  , _jdJobName = pJobName_-  , _jdJobId = pJobId_-  , _jdJobQueue = pJobQueue_-  , _jdStatus = pStatus_-  , _jdStartedAt = pStartedAt_-  , _jdJobDefinition = pJobDefinition_-  }+    { _jdStoppedAt = Nothing+    , _jdCreatedAt = Nothing+    , _jdRetryStrategy = Nothing+    , _jdAttempts = Nothing+    , _jdDependsOn = Nothing+    , _jdContainer = Nothing+    , _jdParameters = Nothing+    , _jdStatusReason = Nothing+    , _jdArrayProperties = Nothing+    , _jdTimeout = Nothing+    , _jdJobName = pJobName_+    , _jdJobId = pJobId_+    , _jdJobQueue = pJobQueue_+    , _jdStatus = pStatus_+    , _jdStartedAt = pStartedAt_+    , _jdJobDefinition = pJobDefinition_+    }  --- | The Unix timestamp for when the job was stopped (when the task transitioned from the @RUNNING@ state to the @STOPPED@ state).+-- | The Unix time stamp (in seconds and milliseconds) for when the job was stopped (when the job transitioned from the @RUNNING@ state to a terminal state, such as @SUCCEEDED@ or @FAILED@ ). jdStoppedAt :: Lens' JobDetail (Maybe Integer)-jdStoppedAt = lens _jdStoppedAt (\ s a -> s{_jdStoppedAt = a});+jdStoppedAt = lens _jdStoppedAt (\ s a -> s{_jdStoppedAt = a}) --- | The Unix timestamp for when the job was created (when the task entered the @PENDING@ state).+-- | The Unix time stamp (in seconds and milliseconds) for when the job was created. For non-array jobs and parent array jobs, this is when the job entered the @SUBMITTED@ state (at the time 'SubmitJob' was called). For array child jobs, this is when the child job was spawned by its parent and entered the @PENDING@ state. jdCreatedAt :: Lens' JobDetail (Maybe Integer)-jdCreatedAt = lens _jdCreatedAt (\ s a -> s{_jdCreatedAt = a});+jdCreatedAt = lens _jdCreatedAt (\ s a -> s{_jdCreatedAt = a})  -- | The retry strategy to use for this job if an attempt fails. jdRetryStrategy :: Lens' JobDetail (Maybe RetryStrategy)-jdRetryStrategy = lens _jdRetryStrategy (\ s a -> s{_jdRetryStrategy = a});+jdRetryStrategy = lens _jdRetryStrategy (\ s a -> s{_jdRetryStrategy = a})  -- | A list of job attempts associated with this job. jdAttempts :: Lens' JobDetail [AttemptDetail]-jdAttempts = lens _jdAttempts (\ s a -> s{_jdAttempts = a}) . _Default . _Coerce;+jdAttempts = lens _jdAttempts (\ s a -> s{_jdAttempts = a}) . _Default . _Coerce  -- | A list of job names or IDs on which this job depends. jdDependsOn :: Lens' JobDetail [JobDependency]-jdDependsOn = lens _jdDependsOn (\ s a -> s{_jdDependsOn = a}) . _Default . _Coerce;+jdDependsOn = lens _jdDependsOn (\ s a -> s{_jdDependsOn = a}) . _Default . _Coerce  -- | An object representing the details of the container that is associated with the job. jdContainer :: Lens' JobDetail (Maybe ContainerDetail)-jdContainer = lens _jdContainer (\ s a -> s{_jdContainer = a});+jdContainer = lens _jdContainer (\ s a -> s{_jdContainer = a})  -- | Additional parameters passed to the job that replace parameter substitution placeholders or override any corresponding parameter defaults from the job definition. jdParameters :: Lens' JobDetail (HashMap Text Text)-jdParameters = lens _jdParameters (\ s a -> s{_jdParameters = a}) . _Default . _Map;+jdParameters = lens _jdParameters (\ s a -> s{_jdParameters = a}) . _Default . _Map  -- | A short, human-readable string to provide additional details about the current status of the job. jdStatusReason :: Lens' JobDetail (Maybe Text)-jdStatusReason = lens _jdStatusReason (\ s a -> s{_jdStatusReason = a});+jdStatusReason = lens _jdStatusReason (\ s a -> s{_jdStatusReason = a}) +-- | The array properties of the job, if it is an array job.+jdArrayProperties :: Lens' JobDetail (Maybe ArrayPropertiesDetail)+jdArrayProperties = lens _jdArrayProperties (\ s a -> s{_jdArrayProperties = a})++-- | The timeout configuration for the job.+jdTimeout :: Lens' JobDetail (Maybe JobTimeout)+jdTimeout = lens _jdTimeout (\ s a -> s{_jdTimeout = a})+ -- | The name of the job. jdJobName :: Lens' JobDetail Text-jdJobName = lens _jdJobName (\ s a -> s{_jdJobName = a});+jdJobName = lens _jdJobName (\ s a -> s{_jdJobName = a})  -- | The ID for the job. jdJobId :: Lens' JobDetail Text-jdJobId = lens _jdJobId (\ s a -> s{_jdJobId = a});+jdJobId = lens _jdJobId (\ s a -> s{_jdJobId = a})  -- | The Amazon Resource Name (ARN) of the job queue with which the job is associated. jdJobQueue :: Lens' JobDetail Text-jdJobQueue = lens _jdJobQueue (\ s a -> s{_jdJobQueue = a});+jdJobQueue = lens _jdJobQueue (\ s a -> s{_jdJobQueue = a})  -- | The current status for the job. jdStatus :: Lens' JobDetail JobStatus-jdStatus = lens _jdStatus (\ s a -> s{_jdStatus = a});+jdStatus = lens _jdStatus (\ s a -> s{_jdStatus = a}) --- | The Unix timestamp for when the job was started (when the task transitioned from the @PENDING@ state to the @RUNNING@ state).+-- | The Unix time stamp (in seconds and milliseconds) for when the job was started (when the job transitioned from the @STARTING@ state to the @RUNNING@ state). jdStartedAt :: Lens' JobDetail Integer-jdStartedAt = lens _jdStartedAt (\ s a -> s{_jdStartedAt = a});+jdStartedAt = lens _jdStartedAt (\ s a -> s{_jdStartedAt = a})  -- | The job definition that is used by this job. jdJobDefinition :: Lens' JobDetail Text-jdJobDefinition = lens _jdJobDefinition (\ s a -> s{_jdJobDefinition = a});+jdJobDefinition = lens _jdJobDefinition (\ s a -> s{_jdJobDefinition = a})  instance FromJSON JobDetail where         parseJSON@@ -1273,6 +1479,8 @@                      <*> (x .:? "container")                      <*> (x .:? "parameters" .!= mempty)                      <*> (x .:? "statusReason")+                     <*> (x .:? "arrayProperties")+                     <*> (x .:? "timeout")                      <*> (x .: "jobName")                      <*> (x .: "jobId")                      <*> (x .: "jobQueue")@@ -1325,43 +1533,43 @@     -> JobQueueDetail jobQueueDetail pJobQueueName_ pJobQueueARN_ pState_ pPriority_ =   JobQueueDetail'-  { _jqdStatus = Nothing-  , _jqdStatusReason = Nothing-  , _jqdJobQueueName = pJobQueueName_-  , _jqdJobQueueARN = pJobQueueARN_-  , _jqdState = pState_-  , _jqdPriority = pPriority_-  , _jqdComputeEnvironmentOrder = mempty-  }+    { _jqdStatus = Nothing+    , _jqdStatusReason = Nothing+    , _jqdJobQueueName = pJobQueueName_+    , _jqdJobQueueARN = pJobQueueARN_+    , _jqdState = pState_+    , _jqdPriority = pPriority_+    , _jqdComputeEnvironmentOrder = mempty+    }   -- | The status of the job queue (for example, @CREATING@ or @VALID@ ). jqdStatus :: Lens' JobQueueDetail (Maybe JQStatus)-jqdStatus = lens _jqdStatus (\ s a -> s{_jqdStatus = a});+jqdStatus = lens _jqdStatus (\ s a -> s{_jqdStatus = a})  -- | A short, human-readable string to provide additional details about the current status of the job queue. jqdStatusReason :: Lens' JobQueueDetail (Maybe Text)-jqdStatusReason = lens _jqdStatusReason (\ s a -> s{_jqdStatusReason = a});+jqdStatusReason = lens _jqdStatusReason (\ s a -> s{_jqdStatusReason = a})  -- | The name of the job queue. jqdJobQueueName :: Lens' JobQueueDetail Text-jqdJobQueueName = lens _jqdJobQueueName (\ s a -> s{_jqdJobQueueName = a});+jqdJobQueueName = lens _jqdJobQueueName (\ s a -> s{_jqdJobQueueName = a})  -- | The Amazon Resource Name (ARN) of the job queue. jqdJobQueueARN :: Lens' JobQueueDetail Text-jqdJobQueueARN = lens _jqdJobQueueARN (\ s a -> s{_jqdJobQueueARN = a});+jqdJobQueueARN = lens _jqdJobQueueARN (\ s a -> s{_jqdJobQueueARN = a})  -- | Describes the ability of the queue to accept new jobs. jqdState :: Lens' JobQueueDetail JQState-jqdState = lens _jqdState (\ s a -> s{_jqdState = a});+jqdState = lens _jqdState (\ s a -> s{_jqdState = a})  -- | The priority of the job queue. jqdPriority :: Lens' JobQueueDetail Int-jqdPriority = lens _jqdPriority (\ s a -> s{_jqdPriority = a});+jqdPriority = lens _jqdPriority (\ s a -> s{_jqdPriority = a})  -- | The compute environments that are attached to the job queue and the order in which job placement is preferred. Compute environments are selected for job placement in ascending order. jqdComputeEnvironmentOrder :: Lens' JobQueueDetail [ComputeEnvironmentOrder]-jqdComputeEnvironmentOrder = lens _jqdComputeEnvironmentOrder (\ s a -> s{_jqdComputeEnvironmentOrder = a}) . _Coerce;+jqdComputeEnvironmentOrder = lens _jqdComputeEnvironmentOrder (\ s a -> s{_jqdComputeEnvironmentOrder = a}) . _Coerce  instance FromJSON JobQueueDetail where         parseJSON@@ -1385,8 +1593,15 @@ -- -- /See:/ 'jobSummary' smart constructor. data JobSummary = JobSummary'-  { _jsJobId   :: !Text-  , _jsJobName :: !Text+  { _jsStoppedAt       :: !(Maybe Integer)+  , _jsStatus          :: !(Maybe JobStatus)+  , _jsCreatedAt       :: !(Maybe Integer)+  , _jsStartedAt       :: !(Maybe Integer)+  , _jsContainer       :: !(Maybe ContainerSummary)+  , _jsStatusReason    :: !(Maybe Text)+  , _jsArrayProperties :: !(Maybe ArrayPropertiesSummary)+  , _jsJobId           :: !Text+  , _jsJobName         :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -1394,6 +1609,20 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'jsStoppedAt' - The Unix time stamp for when the job was stopped (when the job transitioned from the @RUNNING@ state to a terminal state, such as @SUCCEEDED@ or @FAILED@ ).+--+-- * 'jsStatus' - The current status for the job.+--+-- * 'jsCreatedAt' - The Unix time stamp for when the job was created. For non-array jobs and parent array jobs, this is when the job entered the @SUBMITTED@ state (at the time 'SubmitJob' was called). For array child jobs, this is when the child job was spawned by its parent and entered the @PENDING@ state.+--+-- * 'jsStartedAt' - The Unix time stamp for when the job was started (when the job transitioned from the @STARTING@ state to the @RUNNING@ state).+--+-- * 'jsContainer' - An object representing the details of the container that is associated with the job.+--+-- * 'jsStatusReason' - A short, human-readable string to provide additional details about the current status of the job.+--+-- * 'jsArrayProperties' - The array properties of the job, if it is an array job.+-- -- * 'jsJobId' - The ID of the job. -- -- * 'jsJobName' - The name of the job.@@ -1402,27 +1631,114 @@     -> Text -- ^ 'jsJobName'     -> JobSummary jobSummary pJobId_ pJobName_ =-  JobSummary' {_jsJobId = pJobId_, _jsJobName = pJobName_}+  JobSummary'+    { _jsStoppedAt = Nothing+    , _jsStatus = Nothing+    , _jsCreatedAt = Nothing+    , _jsStartedAt = Nothing+    , _jsContainer = Nothing+    , _jsStatusReason = Nothing+    , _jsArrayProperties = Nothing+    , _jsJobId = pJobId_+    , _jsJobName = pJobName_+    }  +-- | The Unix time stamp for when the job was stopped (when the job transitioned from the @RUNNING@ state to a terminal state, such as @SUCCEEDED@ or @FAILED@ ).+jsStoppedAt :: Lens' JobSummary (Maybe Integer)+jsStoppedAt = lens _jsStoppedAt (\ s a -> s{_jsStoppedAt = a})++-- | The current status for the job.+jsStatus :: Lens' JobSummary (Maybe JobStatus)+jsStatus = lens _jsStatus (\ s a -> s{_jsStatus = a})++-- | The Unix time stamp for when the job was created. For non-array jobs and parent array jobs, this is when the job entered the @SUBMITTED@ state (at the time 'SubmitJob' was called). For array child jobs, this is when the child job was spawned by its parent and entered the @PENDING@ state.+jsCreatedAt :: Lens' JobSummary (Maybe Integer)+jsCreatedAt = lens _jsCreatedAt (\ s a -> s{_jsCreatedAt = a})++-- | The Unix time stamp for when the job was started (when the job transitioned from the @STARTING@ state to the @RUNNING@ state).+jsStartedAt :: Lens' JobSummary (Maybe Integer)+jsStartedAt = lens _jsStartedAt (\ s a -> s{_jsStartedAt = a})++-- | An object representing the details of the container that is associated with the job.+jsContainer :: Lens' JobSummary (Maybe ContainerSummary)+jsContainer = lens _jsContainer (\ s a -> s{_jsContainer = a})++-- | A short, human-readable string to provide additional details about the current status of the job.+jsStatusReason :: Lens' JobSummary (Maybe Text)+jsStatusReason = lens _jsStatusReason (\ s a -> s{_jsStatusReason = a})++-- | The array properties of the job, if it is an array job.+jsArrayProperties :: Lens' JobSummary (Maybe ArrayPropertiesSummary)+jsArrayProperties = lens _jsArrayProperties (\ s a -> s{_jsArrayProperties = a})+ -- | The ID of the job. jsJobId :: Lens' JobSummary Text-jsJobId = lens _jsJobId (\ s a -> s{_jsJobId = a});+jsJobId = lens _jsJobId (\ s a -> s{_jsJobId = a})  -- | The name of the job. jsJobName :: Lens' JobSummary Text-jsJobName = lens _jsJobName (\ s a -> s{_jsJobName = a});+jsJobName = lens _jsJobName (\ s a -> s{_jsJobName = a})  instance FromJSON JobSummary where         parseJSON           = withObject "JobSummary"               (\ x ->-                 JobSummary' <$> (x .: "jobId") <*> (x .: "jobName"))+                 JobSummary' <$>+                   (x .:? "stoppedAt") <*> (x .:? "status") <*>+                     (x .:? "createdAt")+                     <*> (x .:? "startedAt")+                     <*> (x .:? "container")+                     <*> (x .:? "statusReason")+                     <*> (x .:? "arrayProperties")+                     <*> (x .: "jobId")+                     <*> (x .: "jobName"))  instance Hashable JobSummary where  instance NFData JobSummary where +-- | An object representing a job timeout configuration.+--+--+--+-- /See:/ 'jobTimeout' smart constructor.+newtype JobTimeout = JobTimeout'+  { _jtAttemptDurationSeconds :: Maybe Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'JobTimeout' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'jtAttemptDurationSeconds' - The time duration in seconds (measured from the job attempt's @startedAt@ timestamp) after which AWS Batch terminates your jobs if they have not finished.+jobTimeout+    :: JobTimeout+jobTimeout = JobTimeout' {_jtAttemptDurationSeconds = Nothing}+++-- | The time duration in seconds (measured from the job attempt's @startedAt@ timestamp) after which AWS Batch terminates your jobs if they have not finished.+jtAttemptDurationSeconds :: Lens' JobTimeout (Maybe Int)+jtAttemptDurationSeconds = lens _jtAttemptDurationSeconds (\ s a -> s{_jtAttemptDurationSeconds = a})++instance FromJSON JobTimeout where+        parseJSON+          = withObject "JobTimeout"+              (\ x ->+                 JobTimeout' <$> (x .:? "attemptDurationSeconds"))++instance Hashable JobTimeout where++instance NFData JobTimeout where++instance ToJSON JobTimeout where+        toJSON JobTimeout'{..}+          = object+              (catMaybes+                 [("attemptDurationSeconds" .=) <$>+                    _jtAttemptDurationSeconds])+ -- | A key-value pair object. -- --@@ -1438,21 +1754,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'kvpValue' - The value of the key value pair. For environment variables, this is the value of the environment variable.+-- * 'kvpValue' - The value of the key-value pair. For environment variables, this is the value of the environment variable. ----- * 'kvpName' - The name of the key value pair. For environment variables, this is the name of the environment variable.+-- * 'kvpName' - The name of the key-value pair. For environment variables, this is the name of the environment variable. keyValuePair     :: KeyValuePair keyValuePair = KeyValuePair' {_kvpValue = Nothing, _kvpName = Nothing}  --- | The value of the key value pair. For environment variables, this is the value of the environment variable.+-- | The value of the key-value pair. For environment variables, this is the value of the environment variable. kvpValue :: Lens' KeyValuePair (Maybe Text)-kvpValue = lens _kvpValue (\ s a -> s{_kvpValue = a});+kvpValue = lens _kvpValue (\ s a -> s{_kvpValue = a}) --- | The name of the key value pair. For environment variables, this is the name of the environment variable.+-- | The name of the key-value pair. For environment variables, this is the name of the environment variable. kvpName :: Lens' KeyValuePair (Maybe Text)-kvpName = lens _kvpName (\ s a -> s{_kvpName = a});+kvpName = lens _kvpName (\ s a -> s{_kvpName = a})  instance FromJSON KeyValuePair where         parseJSON@@ -1496,20 +1812,23 @@     :: MountPoint mountPoint =   MountPoint'-  {_mpContainerPath = Nothing, _mpSourceVolume = Nothing, _mpReadOnly = Nothing}+    { _mpContainerPath = Nothing+    , _mpSourceVolume = Nothing+    , _mpReadOnly = Nothing+    }   -- | The path on the container at which to mount the host volume. mpContainerPath :: Lens' MountPoint (Maybe Text)-mpContainerPath = lens _mpContainerPath (\ s a -> s{_mpContainerPath = a});+mpContainerPath = lens _mpContainerPath (\ s a -> s{_mpContainerPath = a})  -- | The name of the volume to mount. mpSourceVolume :: Lens' MountPoint (Maybe Text)-mpSourceVolume = lens _mpSourceVolume (\ s a -> s{_mpSourceVolume = a});+mpSourceVolume = lens _mpSourceVolume (\ s a -> s{_mpSourceVolume = a})  -- | If this value is @true@ , the container has read-only access to the volume; otherwise, the container can write to the volume. The default value is @false@ . mpReadOnly :: Lens' MountPoint (Maybe Bool)-mpReadOnly = lens _mpReadOnly (\ s a -> s{_mpReadOnly = a});+mpReadOnly = lens _mpReadOnly (\ s a -> s{_mpReadOnly = a})  instance FromJSON MountPoint where         parseJSON@@ -1545,15 +1864,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rsAttempts' - The number of times to move a job to the @RUNNABLE@ status. You may specify between 1 and 10 attempts. If @attempts@ is greater than one, the job is retried if it fails until it has moved to @RUNNABLE@ that many times.+-- * 'rsAttempts' - The number of times to move a job to the @RUNNABLE@ status. You may specify between 1 and 10 attempts. If the value of @attempts@ is greater than one, the job is retried if it fails until it has moved to @RUNNABLE@ that many times. retryStrategy     :: RetryStrategy retryStrategy = RetryStrategy' {_rsAttempts = Nothing}  --- | The number of times to move a job to the @RUNNABLE@ status. You may specify between 1 and 10 attempts. If @attempts@ is greater than one, the job is retried if it fails until it has moved to @RUNNABLE@ that many times.+-- | The number of times to move a job to the @RUNNABLE@ status. You may specify between 1 and 10 attempts. If the value of @attempts@ is greater than one, the job is retried if it fails until it has moved to @RUNNABLE@ that many times. rsAttempts :: Lens' RetryStrategy (Maybe Int)-rsAttempts = lens _rsAttempts (\ s a -> s{_rsAttempts = a});+rsAttempts = lens _rsAttempts (\ s a -> s{_rsAttempts = a})  instance FromJSON RetryStrategy where         parseJSON@@ -1597,20 +1916,20 @@     -> Ulimit ulimit pHardLimit_ pName_ pSoftLimit_ =   Ulimit'-  {_uHardLimit = pHardLimit_, _uName = pName_, _uSoftLimit = pSoftLimit_}+    {_uHardLimit = pHardLimit_, _uName = pName_, _uSoftLimit = pSoftLimit_}   -- | The hard limit for the @ulimit@ type. uHardLimit :: Lens' Ulimit Int-uHardLimit = lens _uHardLimit (\ s a -> s{_uHardLimit = a});+uHardLimit = lens _uHardLimit (\ s a -> s{_uHardLimit = a})  -- | The @type@ of the @ulimit@ . uName :: Lens' Ulimit Text-uName = lens _uName (\ s a -> s{_uName = a});+uName = lens _uName (\ s a -> s{_uName = a})  -- | The soft limit for the @ulimit@ type. uSoftLimit :: Lens' Ulimit Int-uSoftLimit = lens _uSoftLimit (\ s a -> s{_uSoftLimit = a});+uSoftLimit = lens _uSoftLimit (\ s a -> s{_uSoftLimit = a})  instance FromJSON Ulimit where         parseJSON@@ -1649,7 +1968,7 @@ -- -- * 'vName' - The name of the volume. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. This name is referenced in the @sourceVolume@ parameter of container definition @mountPoints@ . ----- * 'vHost' - The contents of the @host@ parameter determine whether your data volume persists on the host container instance and where it is stored. If the host parameter is empty, then the Docker daemon assigns a host path for your data volume, but the data is not guaranteed to persist after the containers associated with it stop running.+-- * 'vHost' - The contents of the @host@ parameter determine whether your data volume persists on the host container instance and where it is stored. If the host parameter is empty, then the Docker daemon assigns a host path for your data volume. However, the data is not guaranteed to persist after the containers associated with it stop running. volume     :: Volume volume = Volume' {_vName = Nothing, _vHost = Nothing}@@ -1657,11 +1976,11 @@  -- | The name of the volume. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. This name is referenced in the @sourceVolume@ parameter of container definition @mountPoints@ . vName :: Lens' Volume (Maybe Text)-vName = lens _vName (\ s a -> s{_vName = a});+vName = lens _vName (\ s a -> s{_vName = a}) --- | The contents of the @host@ parameter determine whether your data volume persists on the host container instance and where it is stored. If the host parameter is empty, then the Docker daemon assigns a host path for your data volume, but the data is not guaranteed to persist after the containers associated with it stop running.+-- | The contents of the @host@ parameter determine whether your data volume persists on the host container instance and where it is stored. If the host parameter is empty, then the Docker daemon assigns a host path for your data volume. However, the data is not guaranteed to persist after the containers associated with it stop running. vHost :: Lens' Volume (Maybe Host)-vHost = lens _vHost (\ s a -> s{_vHost = a});+vHost = lens _vHost (\ s a -> s{_vHost = a})  instance FromJSON Volume where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.Batch.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@@ -18,6 +18,36 @@ module Network.AWS.Batch.Types.Sum where  import Network.AWS.Prelude++data ArrayJobDependency+  = NToN+  | Sequential+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ArrayJobDependency where+    parser = takeLowerText >>= \case+        "n_to_n" -> pure NToN+        "sequential" -> pure Sequential+        e -> fromTextError $ "Failure parsing ArrayJobDependency from value: '" <> e+           <> "'. Accepted values: n_to_n, sequential"++instance ToText ArrayJobDependency where+    toText = \case+        NToN -> "N_TO_N"+        Sequential -> "SEQUENTIAL"++instance Hashable     ArrayJobDependency+instance NFData       ArrayJobDependency+instance ToByteString ArrayJobDependency+instance ToQuery      ArrayJobDependency+instance ToHeader     ArrayJobDependency++instance ToJSON ArrayJobDependency where+    toJSON = toJSONText++instance FromJSON ArrayJobDependency where+    parseJSON = parseJSONText "ArrayJobDependency"  data CEState   = Disabled

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.UpdateComputeEnvironment--- 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@@ -73,28 +73,28 @@     -> UpdateComputeEnvironment updateComputeEnvironment pComputeEnvironment_ =   UpdateComputeEnvironment'-  { _uceState = Nothing-  , _uceComputeResources = Nothing-  , _uceServiceRole = Nothing-  , _uceComputeEnvironment = pComputeEnvironment_-  }+    { _uceState = Nothing+    , _uceComputeResources = Nothing+    , _uceServiceRole = Nothing+    , _uceComputeEnvironment = pComputeEnvironment_+    }   -- | The state of the compute environment. Compute environments in the @ENABLED@ state can accept jobs from a queue and scale in or out automatically based on the workload demand of its associated queues. uceState :: Lens' UpdateComputeEnvironment (Maybe CEState)-uceState = lens _uceState (\ s a -> s{_uceState = a});+uceState = lens _uceState (\ s a -> s{_uceState = a})  -- | Details of the compute resources managed by the compute environment. Required for a managed compute environment. uceComputeResources :: Lens' UpdateComputeEnvironment (Maybe ComputeResourceUpdate)-uceComputeResources = lens _uceComputeResources (\ s a -> s{_uceComputeResources = a});+uceComputeResources = lens _uceComputeResources (\ s a -> s{_uceComputeResources = a})  -- | The full Amazon Resource Name (ARN) of the IAM role that allows AWS Batch to make calls to other AWS services on your behalf. If your specified role has a path other than @/@ , then you must either specify the full role ARN (this is recommended) or prefix the role name with the path. uceServiceRole :: Lens' UpdateComputeEnvironment (Maybe Text)-uceServiceRole = lens _uceServiceRole (\ s a -> s{_uceServiceRole = a});+uceServiceRole = lens _uceServiceRole (\ s a -> s{_uceServiceRole = a})  -- | The name or full Amazon Resource Name (ARN) of the compute environment to update. uceComputeEnvironment :: Lens' UpdateComputeEnvironment Text-uceComputeEnvironment = lens _uceComputeEnvironment (\ s a -> s{_uceComputeEnvironment = a});+uceComputeEnvironment = lens _uceComputeEnvironment (\ s a -> s{_uceComputeEnvironment = a})  instance AWSRequest UpdateComputeEnvironment where         type Rs UpdateComputeEnvironment =@@ -157,23 +157,23 @@     -> UpdateComputeEnvironmentResponse updateComputeEnvironmentResponse pResponseStatus_ =   UpdateComputeEnvironmentResponse'-  { _ucersComputeEnvironmentName = Nothing-  , _ucersComputeEnvironmentARN = Nothing-  , _ucersResponseStatus = pResponseStatus_-  }+    { _ucersComputeEnvironmentName = Nothing+    , _ucersComputeEnvironmentARN = Nothing+    , _ucersResponseStatus = pResponseStatus_+    }   -- | The name of compute environment. ucersComputeEnvironmentName :: Lens' UpdateComputeEnvironmentResponse (Maybe Text)-ucersComputeEnvironmentName = lens _ucersComputeEnvironmentName (\ s a -> s{_ucersComputeEnvironmentName = a});+ucersComputeEnvironmentName = lens _ucersComputeEnvironmentName (\ s a -> s{_ucersComputeEnvironmentName = a})  -- | The Amazon Resource Name (ARN) of the compute environment. ucersComputeEnvironmentARN :: Lens' UpdateComputeEnvironmentResponse (Maybe Text)-ucersComputeEnvironmentARN = lens _ucersComputeEnvironmentARN (\ s a -> s{_ucersComputeEnvironmentARN = a});+ucersComputeEnvironmentARN = lens _ucersComputeEnvironmentARN (\ s a -> s{_ucersComputeEnvironmentARN = a})  -- | -- | The response status code. ucersResponseStatus :: Lens' UpdateComputeEnvironmentResponse Int-ucersResponseStatus = lens _ucersResponseStatus (\ s a -> s{_ucersResponseStatus = a});+ucersResponseStatus = lens _ucersResponseStatus (\ s a -> s{_ucersResponseStatus = a})  instance NFData UpdateComputeEnvironmentResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Batch.UpdateJobQueue--- 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@@ -73,28 +73,28 @@     -> UpdateJobQueue updateJobQueue pJobQueue_ =   UpdateJobQueue'-  { _ujqState = Nothing-  , _ujqPriority = Nothing-  , _ujqComputeEnvironmentOrder = Nothing-  , _ujqJobQueue = pJobQueue_-  }+    { _ujqState = Nothing+    , _ujqPriority = Nothing+    , _ujqComputeEnvironmentOrder = Nothing+    , _ujqJobQueue = pJobQueue_+    }   -- | Describes the queue's ability to accept new jobs. ujqState :: Lens' UpdateJobQueue (Maybe JQState)-ujqState = lens _ujqState (\ s a -> s{_ujqState = a});+ujqState = lens _ujqState (\ s a -> s{_ujqState = a})  -- | The priority of the job queue. Job queues with a higher priority (or a higher integer value for the @priority@ parameter) are evaluated first when associated with same compute environment. Priority is determined in descending order, for example, a job queue with a priority value of @10@ is given scheduling preference over a job queue with a priority value of @1@ . ujqPriority :: Lens' UpdateJobQueue (Maybe Int)-ujqPriority = lens _ujqPriority (\ s a -> s{_ujqPriority = a});+ujqPriority = lens _ujqPriority (\ s a -> s{_ujqPriority = a})  -- | Details the set of compute environments mapped to a job queue and their order relative to each other. This is one of the parameters used by the job scheduler to determine which compute environment should execute a given job. ujqComputeEnvironmentOrder :: Lens' UpdateJobQueue [ComputeEnvironmentOrder]-ujqComputeEnvironmentOrder = lens _ujqComputeEnvironmentOrder (\ s a -> s{_ujqComputeEnvironmentOrder = a}) . _Default . _Coerce;+ujqComputeEnvironmentOrder = lens _ujqComputeEnvironmentOrder (\ s a -> s{_ujqComputeEnvironmentOrder = a}) . _Default . _Coerce  -- | The name or the Amazon Resource Name (ARN) of the job queue. ujqJobQueue :: Lens' UpdateJobQueue Text-ujqJobQueue = lens _ujqJobQueue (\ s a -> s{_ujqJobQueue = a});+ujqJobQueue = lens _ujqJobQueue (\ s a -> s{_ujqJobQueue = a})  instance AWSRequest UpdateJobQueue where         type Rs UpdateJobQueue = UpdateJobQueueResponse@@ -155,22 +155,22 @@     -> UpdateJobQueueResponse updateJobQueueResponse pResponseStatus_ =   UpdateJobQueueResponse'-  { _ujqrsJobQueueARN = Nothing-  , _ujqrsJobQueueName = Nothing-  , _ujqrsResponseStatus = pResponseStatus_-  }+    { _ujqrsJobQueueARN = Nothing+    , _ujqrsJobQueueName = Nothing+    , _ujqrsResponseStatus = pResponseStatus_+    }   -- | The Amazon Resource Name (ARN) of the job queue. ujqrsJobQueueARN :: Lens' UpdateJobQueueResponse (Maybe Text)-ujqrsJobQueueARN = lens _ujqrsJobQueueARN (\ s a -> s{_ujqrsJobQueueARN = a});+ujqrsJobQueueARN = lens _ujqrsJobQueueARN (\ s a -> s{_ujqrsJobQueueARN = a})  -- | The name of the job queue. ujqrsJobQueueName :: Lens' UpdateJobQueueResponse (Maybe Text)-ujqrsJobQueueName = lens _ujqrsJobQueueName (\ s a -> s{_ujqrsJobQueueName = a});+ujqrsJobQueueName = lens _ujqrsJobQueueName (\ s a -> s{_ujqrsJobQueueName = a})  -- | -- | The response status code. ujqrsResponseStatus :: Lens' UpdateJobQueueResponse Int-ujqrsResponseStatus = lens _ujqrsResponseStatus (\ s a -> s{_ujqrsResponseStatus = a});+ujqrsResponseStatus = lens _ujqrsResponseStatus (\ s a -> s{_ujqrsResponseStatus = a})  instance NFData UpdateJobQueueResponse where

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.Batch.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

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.Batch--- 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.Batch.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

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.Batch--- 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