amazonka-ecs 1.5.0 → 1.6.0

raw patch · 42 files changed

+4857/−3251 lines, 42 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-ecs.cabal +5/−5
• gen/Network/AWS/ECS.hs +138/−3
• gen/Network/AWS/ECS/CreateCluster.hs +5/−5
• gen/Network/AWS/ECS/CreateService.hs +95/−43
• gen/Network/AWS/ECS/DeleteAttributes.hs +6/−6
• gen/Network/AWS/ECS/DeleteCluster.hs +5/−5
• gen/Network/AWS/ECS/DeleteService.hs +6/−6
• gen/Network/AWS/ECS/DeregisterContainerInstance.hs +16/−16
• gen/Network/AWS/ECS/DeregisterTaskDefinition.hs +6/−6
• gen/Network/AWS/ECS/DescribeClusters.hs +24/−13
• gen/Network/AWS/ECS/DescribeContainerInstances.hs +14/−14
• gen/Network/AWS/ECS/DescribeServices.hs +10/−10
• gen/Network/AWS/ECS/DescribeTaskDefinition.hs +5/−5
• gen/Network/AWS/ECS/DescribeTasks.hs +12/−12
• gen/Network/AWS/ECS/DiscoverPollEndpoint.hs +13/−13
• gen/Network/AWS/ECS/ListAttributes.hs +23/−23
• gen/Network/AWS/ECS/ListClusters.hs +12/−12
• gen/Network/AWS/ECS/ListContainerInstances.hs +26/−26
• gen/Network/AWS/ECS/ListServices.hs +29/−16
• gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs +19/−19
• gen/Network/AWS/ECS/ListTaskDefinitions.hs +21/−21
• gen/Network/AWS/ECS/ListTasks.hs +44/−34
• gen/Network/AWS/ECS/PutAttributes.hs +7/−7
• gen/Network/AWS/ECS/RegisterContainerInstance.hs +21/−21
• gen/Network/AWS/ECS/RegisterTaskDefinition.hs +72/−31
• gen/Network/AWS/ECS/RunTask.hs +73/−32
• gen/Network/AWS/ECS/StartTask.hs +45/−34
• gen/Network/AWS/ECS/StopTask.hs +10/−10
• gen/Network/AWS/ECS/SubmitContainerStateChange.hs +21/−21
• gen/Network/AWS/ECS/SubmitTaskStateChange.hs +71/−20
• gen/Network/AWS/ECS/Types.hs +186/−18
• gen/Network/AWS/ECS/Types/Product.hs +3498/−2641
• gen/Network/AWS/ECS/Types/Sum.hs +177/−3
• gen/Network/AWS/ECS/UpdateContainerAgent.hs +10/−10
• gen/Network/AWS/ECS/UpdateContainerInstancesState.hs +18/−18
• gen/Network/AWS/ECS/UpdateService.hs +66/−24
• gen/Network/AWS/ECS/Waiters.hs +43/−43
• test/Main.hs +1/−1
• test/Test/AWS/ECS.hs +1/−1
• test/Test/AWS/ECS/Internal.hs +1/−1
• test/Test/AWS/Gen/ECS.hs +1/−1

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

@@ -1,5 +1,5 @@ name:                  amazonka-ecs-version:               1.5.0+version:               1.6.0 synopsis:              Amazon EC2 Container Service 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@@ -84,7 +84,7 @@         , Network.AWS.ECS.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-ecs-test@@ -104,8 +104,8 @@         , Test.AWS.ECS.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-ecs         , base         , bytestring

@@ -5,17 +5,19 @@  -- | -- Module      : Network.AWS.ECS--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Amazon EC2 Container Service (Amazon ECS) is a highly scalable, fast, container management service that makes it easy to run, stop, and manage Docker containers on a cluster of EC2 instances. Amazon ECS lets you launch and stop container-enabled applications with simple API calls, allows you to get the state of your cluster from a centralized service, and gives you access to many familiar Amazon EC2 features like security groups, Amazon EBS volumes, and IAM roles.+-- Amazon Elastic Container Service (Amazon ECS) is a highly scalable, fast, container management service that makes it easy to run, stop, and manage Docker containers on a cluster. You can host your cluster on a serverless infrastructure that is managed by Amazon ECS by launching your services or tasks using the Fargate launch type. For more control, you can host your tasks on a cluster of Amazon Elastic Compute Cloud (Amazon EC2) instances that you manage by using the EC2 launch type. For more information about launch types, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/launch_types.html Amazon ECS Launch Types> . -- ----- You can use Amazon ECS to schedule the placement of containers across your cluster based on your resource needs, isolation policies, and availability requirements. Amazon EC2 Container Service eliminates the need for you to operate your own cluster management and configuration management systems or worry about scaling your management infrastructure.+-- Amazon ECS lets you launch and stop container-based applications with simple API calls, allows you to get the state of your cluster from a centralized service, and gives you access to many familiar Amazon EC2 features. --+-- You can use Amazon ECS to schedule the placement of containers across your cluster based on your resource needs, isolation policies, and availability requirements. Amazon ECS eliminates the need for you to operate your own cluster management and configuration management systems or worry about scaling your management infrastructure.+-- module Network.AWS.ECS     (     -- * Service Configuration@@ -24,12 +26,21 @@     -- * Errors     -- $errors +    -- ** AccessDeniedException+    , _AccessDeniedException+     -- ** InvalidParameterException     , _InvalidParameterException      -- ** ServerException     , _ServerException +    -- ** ClusterContainsTasksException+    , _ClusterContainsTasksException++    -- ** PlatformUnknownException+    , _PlatformUnknownException+     -- ** ClusterContainsServicesException     , _ClusterContainsServicesException @@ -45,15 +56,24 @@     -- ** NoUpdateAvailableException     , _NoUpdateAvailableException +    -- ** UnsupportedFeatureException+    , _UnsupportedFeatureException+     -- ** ServiceNotFoundException     , _ServiceNotFoundException +    -- ** PlatformTaskDefinitionIncompatibilityException+    , _PlatformTaskDefinitionIncompatibilityException+     -- ** MissingVersionException     , _MissingVersionException      -- ** UpdateInProgressException     , _UpdateInProgressException +    -- ** BlockedException+    , _BlockedException+     -- ** TargetNotFoundException     , _TargetNotFoundException @@ -176,6 +196,18 @@     -- ** AgentUpdateStatus     , AgentUpdateStatus (..) +    -- ** AssignPublicIP+    , AssignPublicIP (..)++    -- ** ClusterField+    , ClusterField (..)++    -- ** Compatibility+    , Compatibility (..)++    -- ** Connectivity+    , Connectivity (..)+     -- ** ContainerInstanceStatus     , ContainerInstanceStatus (..) @@ -185,6 +217,12 @@     -- ** DeviceCgroupPermission     , DeviceCgroupPermission (..) +    -- ** HealthStatus+    , HealthStatus (..)++    -- ** LaunchType+    , LaunchType (..)+     -- ** LogDriver     , LogDriver (..) @@ -218,6 +256,27 @@     -- ** UlimitName     , UlimitName (..) +    -- ** AWSVPCConfiguration+    , AWSVPCConfiguration+    , awsVPCConfiguration+    , avcSecurityGroups+    , avcAssignPublicIP+    , avcSubnets++    -- ** Attachment+    , Attachment+    , attachment+    , aStatus+    , aDetails+    , aId+    , aType++    -- ** AttachmentStateChange+    , AttachmentStateChange+    , attachmentStateChange+    , ascAttachmentARN+    , ascStatus+     -- ** Attribute     , Attribute     , attribute@@ -235,6 +294,7 @@     , cRegisteredContainerInstancesCount     , cPendingTasksCount     , cClusterName+    , cStatistics     , cActiveServicesCount      -- ** Container@@ -242,11 +302,13 @@     , container     , cNetworkBindings     , cContainerARN+    , cNetworkInterfaces     , cTaskARN     , cLastStatus     , cReason     , cName     , cExitCode+    , cHealthStatus      -- ** ContainerDefinition     , ContainerDefinition@@ -255,6 +317,7 @@     , cdCommand     , cdHostname     , cdDockerSecurityOptions+    , cdHealthCheck     , cdDisableNetworking     , cdVolumesFrom     , cdEnvironment@@ -283,6 +346,7 @@     , ContainerInstance     , containerInstance     , ciStatus+    , ciAttachments     , ciRunningTasksCount     , ciRemainingResources     , ciEc2InstanceId@@ -313,6 +377,7 @@     , csStatus     , csClusterARN     , csCreatedAt+    , csPlatformVersion     , csDesiredCount     , csLoadBalancers     , csPendingCount@@ -321,22 +386,38 @@     , csPlacementStrategy     , csDeployments     , csServiceName+    , csLaunchType     , csServiceARN     , csTaskDefinition+    , csHealthCheckGracePeriodSeconds+    , csNetworkConfiguration+    , csServiceRegistries     , csRoleARN     , csDeploymentConfiguration +    -- ** ContainerStateChange+    , ContainerStateChange+    , containerStateChange+    , cscNetworkBindings+    , cscStatus+    , cscContainerName+    , cscReason+    , cscExitCode+     -- ** Deployment     , Deployment     , deployment     , dRunningCount     , dStatus     , dCreatedAt+    , dPlatformVersion     , dDesiredCount     , dPendingCount     , dId+    , dLaunchType     , dUpdatedAt     , dTaskDefinition+    , dNetworkConfiguration      -- ** DeploymentConfiguration     , DeploymentConfiguration@@ -357,6 +438,15 @@     , fArn     , fReason +    -- ** HealthCheck+    , HealthCheck+    , healthCheck+    , hcStartPeriod+    , hcRetries+    , hcInterval+    , hcTimeout+    , hcCommand+     -- ** HostEntry     , HostEntry     , hostEntry@@ -383,7 +473,9 @@     -- ** LinuxParameters     , LinuxParameters     , linuxParameters+    , lpSharedMemorySize     , lpInitProcessEnabled+    , lpTmpfs     , lpDevices     , lpCapabilities @@ -416,6 +508,18 @@     , nbHostPort     , nbContainerPort +    -- ** NetworkConfiguration+    , NetworkConfiguration+    , networkConfiguration+    , ncAwsvpcConfiguration++    -- ** NetworkInterface+    , NetworkInterface+    , networkInterface+    , niIpv6Address+    , niPrivateIPv4Address+    , niAttachmentId+     -- ** PlacementConstraint     , PlacementConstraint     , placementConstraint@@ -452,6 +556,12 @@     , seId     , seMessage +    -- ** ServiceRegistry+    , ServiceRegistry+    , serviceRegistry+    , srRegistryARN+    , srPort+     -- ** Task     , Task     , task@@ -460,29 +570,46 @@     , tOverrides     , tClusterARN     , tGroup+    , tAttachments     , tCreatedAt+    , tPlatformVersion     , tTaskARN     , tContainerInstanceARN+    , tExecutionStoppedAt     , tLastStatus+    , tMemory+    , tPullStoppedAt     , tContainers     , tStartedAt     , tVersion     , tStartedBy     , tStoppedReason+    , tConnectivity+    , tStoppingAt+    , tLaunchType     , tTaskDefinitionARN+    , tHealthStatus+    , tConnectivityAt+    , tCpu+    , tPullStartedAt      -- ** TaskDefinition     , TaskDefinition     , taskDefinition     , tdStatus+    , tdExecutionRoleARN+    , tdRequiresCompatibilities     , tdFamily     , tdContainerDefinitions+    , tdMemory     , tdTaskRoleARN     , tdPlacementConstraints     , tdNetworkMode     , tdTaskDefinitionARN+    , tdCompatibilities     , tdRevision     , tdVolumes+    , tdCpu     , tdRequiresAttributes      -- ** TaskDefinitionPlacementConstraint@@ -495,7 +622,15 @@     , TaskOverride     , taskOverride     , toContainerOverrides+    , toExecutionRoleARN     , toTaskRoleARN++    -- ** Tmpfs+    , Tmpfs+    , tmpfs+    , tMountOptions+    , tContainerPath+    , tSize      -- ** Ulimit     , Ulimit

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.CreateCluster--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@  -- | The name of your cluster. If you do not specify a name for your cluster, you create a cluster named @default@ . Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. ccClusterName :: Lens' CreateCluster (Maybe Text)-ccClusterName = lens _ccClusterName (\ s a -> s{_ccClusterName = a});+ccClusterName = lens _ccClusterName (\ s a -> s{_ccClusterName = a})  instance AWSRequest CreateCluster where         type Rs CreateCluster = CreateClusterResponse@@ -117,15 +117,15 @@     -> CreateClusterResponse createClusterResponse pResponseStatus_ =   CreateClusterResponse'-  {_ccrsCluster = Nothing, _ccrsResponseStatus = pResponseStatus_}+    {_ccrsCluster = Nothing, _ccrsResponseStatus = pResponseStatus_}   -- | The full description of your new cluster. ccrsCluster :: Lens' CreateClusterResponse (Maybe Cluster)-ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a});+ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a})  -- | -- | The response status code. ccrsResponseStatus :: Lens' CreateClusterResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})  instance NFData CreateClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.CreateService--- 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 @@ -- Runs and maintains a desired number of tasks from a specified task definition. If the number of tasks running in a service drops below @desiredCount@ , Amazon ECS spawns another copy of the task in the specified cluster. To update an existing service, see 'UpdateService' . -- ----- In addition to maintaining the desired count of tasks in your service, you can optionally run your service behind a load balancer. The load balancer distributes traffic across the tasks that are associated with the service. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/service-load-balancing.html Service Load Balancing> in the /Amazon EC2 Container Service Developer Guide/ .+-- In addition to maintaining the desired count of tasks in your service, you can optionally run your service behind a load balancer. The load balancer distributes traffic across the tasks that are associated with the service. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/service-load-balancing.html Service Load Balancing> in the /Amazon Elastic Container Service Developer Guide/ . ----- You can optionally specify a deployment configuration for your service. During a deployment (which is triggered by changing the task definition or the desired count of a service with an 'UpdateService' operation), the service scheduler uses the @minimumHealthyPercent@ and @maximumPercent@ parameters to determine the deployment strategy.+-- You can optionally specify a deployment configuration for your service. During a deployment, the service scheduler uses the @minimumHealthyPercent@ and @maximumPercent@ parameters to determine the deployment strategy. The deployment is triggered by changing the task definition or the desired count of a service with an 'UpdateService' operation. -- -- The @minimumHealthyPercent@ represents a lower limit on the number of your service's tasks that must remain in the @RUNNING@ state during a deployment, as a percentage of the @desiredCount@ (rounded up to the nearest integer). This parameter enables you to deploy without using additional cluster capacity. For example, if your service has a @desiredCount@ of four tasks and a @minimumHealthyPercent@ of 50%, the scheduler can stop two existing tasks to free up cluster capacity before starting two new tasks. Tasks for services that /do not/ use a load balancer are considered healthy if they are in the @RUNNING@ state. Tasks for services that /do/ use a load balancer are considered healthy if they are in the @RUNNING@ state and the container instance they are hosted on is reported as healthy by the load balancer. The default value for @minimumHealthyPercent@ is 50% in the console and 100% for the AWS CLI, the AWS SDKs, and the APIs. --@@ -51,10 +51,15 @@     -- * Request Lenses     , cCluster     , cClientToken+    , cPlatformVersion     , cLoadBalancers     , cRole     , cPlacementConstraints     , cPlacementStrategy+    , cLaunchType+    , cHealthCheckGracePeriodSeconds+    , cNetworkConfiguration+    , cServiceRegistries     , cDeploymentConfiguration     , cServiceName     , cTaskDefinition@@ -77,16 +82,21 @@  -- | /See:/ 'createService' smart constructor. data CreateService = CreateService'-  { _cCluster                 :: !(Maybe Text)-  , _cClientToken             :: !(Maybe Text)-  , _cLoadBalancers           :: !(Maybe [LoadBalancer])-  , _cRole                    :: !(Maybe Text)-  , _cPlacementConstraints    :: !(Maybe [PlacementConstraint])-  , _cPlacementStrategy       :: !(Maybe [PlacementStrategy])-  , _cDeploymentConfiguration :: !(Maybe DeploymentConfiguration)-  , _cServiceName             :: !Text-  , _cTaskDefinition          :: !Text-  , _cDesiredCount            :: !Int+  { _cCluster                       :: !(Maybe Text)+  , _cClientToken                   :: !(Maybe Text)+  , _cPlatformVersion               :: !(Maybe Text)+  , _cLoadBalancers                 :: !(Maybe [LoadBalancer])+  , _cRole                          :: !(Maybe Text)+  , _cPlacementConstraints          :: !(Maybe [PlacementConstraint])+  , _cPlacementStrategy             :: !(Maybe [PlacementStrategy])+  , _cLaunchType                    :: !(Maybe LaunchType)+  , _cHealthCheckGracePeriodSeconds :: !(Maybe Int)+  , _cNetworkConfiguration          :: !(Maybe NetworkConfiguration)+  , _cServiceRegistries             :: !(Maybe [ServiceRegistry])+  , _cDeploymentConfiguration       :: !(Maybe DeploymentConfiguration)+  , _cServiceName                   :: !Text+  , _cTaskDefinition                :: !Text+  , _cDesiredCount                  :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -98,19 +108,29 @@ -- -- * 'cClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. Up to 32 ASCII characters are allowed. --+-- * 'cPlatformVersion' - The platform version on which to run your service. If one is not specified, the latest version is used by default.+-- -- * 'cLoadBalancers' - A load balancer object representing the load balancer to use with your service. Currently, you are limited to one load balancer or target group per service. After you create a service, the load balancer name or target group ARN, container name, and container port specified in the service definition are immutable. For Classic Load Balancers, this object must contain the load balancer name, the container name (as it appears in a container definition), and the container port to access from the load balancer. When a task from this service is placed on a container instance, the container instance is registered with the load balancer specified here. For Application Load Balancers and Network Load Balancers, this object must contain the load balancer target group ARN, the container name (as it appears in a container definition), and the container port to access from the load balancer. When a task from this service is placed on a container instance, the container instance and port combination is registered as a target in the target group specified here. ----- * 'cRole' - The name or full Amazon Resource Name (ARN) of the IAM role that allows Amazon ECS to make calls to your load balancer on your behalf. This parameter is required if you are using a load balancer with your service. If you specify the @role@ parameter, you must also specify a load balancer object with the @loadBalancers@ parameter. 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. For example, if a role with the name @bar@ has a path of @/foo/@ then you would specify @/foo/bar@ as the role name. For more information, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/reference_identifiers.html#identifiers-friendly-names Friendly Names and Paths> in the /IAM User Guide/ .+-- * 'cRole' - The name or full Amazon Resource Name (ARN) of the IAM role that allows Amazon ECS to make calls to your load balancer on your behalf. This parameter is only permitted if you are using a load balancer with your service and your task definition does not use the @awsvpc@ network mode. If you specify the @role@ parameter, you must also specify a load balancer object with the @loadBalancers@ parameter. /Important:/ If your account has already created the Amazon ECS service-linked role, that role is used by default for your service unless you specify a role here. The service-linked role is required if your task definition uses the @awsvpc@ network mode, in which case you should not specify a role here. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/using-service-linked-roles.html Using Service-Linked Roles for Amazon ECS> in the /Amazon Elastic Container Service Developer Guide/ . 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. For example, if a role with the name @bar@ has a path of @/foo/@ then you would specify @/foo/bar@ as the role name. For more information, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/reference_identifiers.html#identifiers-friendly-names Friendly Names and Paths> in the /IAM User Guide/ . -- -- * 'cPlacementConstraints' - An array of placement constraint objects to use for tasks in your service. You can specify a maximum of 10 constraints per task (this limit includes constraints in the task definition and those specified at run time). ----- * 'cPlacementStrategy' - The placement strategy objects to use for tasks in your service. You can specify a maximum of 5 strategy rules per service.+-- * 'cPlacementStrategy' - The placement strategy objects to use for tasks in your service. You can specify a maximum of five strategy rules per service. --+-- * 'cLaunchType' - The launch type on which to run your service.+--+-- * 'cHealthCheckGracePeriodSeconds' - The period of time, in seconds, that the Amazon ECS service scheduler should ignore unhealthy Elastic Load Balancing target health checks after a task has first started. This is only valid if your service is configured to use a load balancer. If your service's tasks take a while to start and respond to Elastic Load Balancing health checks, you can specify a health check grace period of up to 1,800 seconds during which the ECS service scheduler ignores health check status. This grace period can prevent the ECS service scheduler from marking tasks as unhealthy and stopping them before they have time to come up.+--+-- * 'cNetworkConfiguration' - The network configuration for the service. This parameter is required for task definitions that use the @awsvpc@ network mode to receive their own Elastic Network Interface, and it is not supported for other network modes. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-networking.html Task Networking> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'cServiceRegistries' - The details of the service discovery registries you want to assign to this service. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguideservice-discovery.html Service Discovery> .+-- -- * 'cDeploymentConfiguration' - Optional deployment parameters that control how many tasks run during the deployment and the ordering of stopping and starting tasks. -- -- * 'cServiceName' - The name of your service. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. Service names must be unique within a cluster, but you can have similarly named services in multiple clusters within a region or across multiple regions. ----- * 'cTaskDefinition' - The @family@ and @revision@ (@family:revision@ ) or full Amazon Resource Name (ARN) of the task definition to run in your service. If a @revision@ is not specified, the latest @ACTIVE@ revision is used.+-- * 'cTaskDefinition' - The @family@ and @revision@ (@family:revision@ ) or full ARN of the task definition to run in your service. If a @revision@ is not specified, the latest @ACTIVE@ revision is used. -- -- * 'cDesiredCount' - The number of instantiations of the specified task definition to place and keep running on your cluster. createService@@ -120,58 +140,83 @@     -> CreateService createService pServiceName_ pTaskDefinition_ pDesiredCount_ =   CreateService'-  { _cCluster = Nothing-  , _cClientToken = Nothing-  , _cLoadBalancers = Nothing-  , _cRole = Nothing-  , _cPlacementConstraints = Nothing-  , _cPlacementStrategy = Nothing-  , _cDeploymentConfiguration = Nothing-  , _cServiceName = pServiceName_-  , _cTaskDefinition = pTaskDefinition_-  , _cDesiredCount = pDesiredCount_-  }+    { _cCluster = Nothing+    , _cClientToken = Nothing+    , _cPlatformVersion = Nothing+    , _cLoadBalancers = Nothing+    , _cRole = Nothing+    , _cPlacementConstraints = Nothing+    , _cPlacementStrategy = Nothing+    , _cLaunchType = Nothing+    , _cHealthCheckGracePeriodSeconds = Nothing+    , _cNetworkConfiguration = Nothing+    , _cServiceRegistries = Nothing+    , _cDeploymentConfiguration = Nothing+    , _cServiceName = pServiceName_+    , _cTaskDefinition = pTaskDefinition_+    , _cDesiredCount = pDesiredCount_+    }   -- | The short name or full Amazon Resource Name (ARN) of the cluster on which to run your service. If you do not specify a cluster, the default cluster is assumed. cCluster :: Lens' CreateService (Maybe Text)-cCluster = lens _cCluster (\ s a -> s{_cCluster = a});+cCluster = lens _cCluster (\ s a -> s{_cCluster = a})  -- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. Up to 32 ASCII characters are allowed. cClientToken :: Lens' CreateService (Maybe Text)-cClientToken = lens _cClientToken (\ s a -> s{_cClientToken = a});+cClientToken = lens _cClientToken (\ s a -> s{_cClientToken = a}) +-- | The platform version on which to run your service. If one is not specified, the latest version is used by default.+cPlatformVersion :: Lens' CreateService (Maybe Text)+cPlatformVersion = lens _cPlatformVersion (\ s a -> s{_cPlatformVersion = a})+ -- | A load balancer object representing the load balancer to use with your service. Currently, you are limited to one load balancer or target group per service. After you create a service, the load balancer name or target group ARN, container name, and container port specified in the service definition are immutable. For Classic Load Balancers, this object must contain the load balancer name, the container name (as it appears in a container definition), and the container port to access from the load balancer. When a task from this service is placed on a container instance, the container instance is registered with the load balancer specified here. For Application Load Balancers and Network Load Balancers, this object must contain the load balancer target group ARN, the container name (as it appears in a container definition), and the container port to access from the load balancer. When a task from this service is placed on a container instance, the container instance and port combination is registered as a target in the target group specified here. cLoadBalancers :: Lens' CreateService [LoadBalancer]-cLoadBalancers = lens _cLoadBalancers (\ s a -> s{_cLoadBalancers = a}) . _Default . _Coerce;+cLoadBalancers = lens _cLoadBalancers (\ s a -> s{_cLoadBalancers = a}) . _Default . _Coerce --- | The name or full Amazon Resource Name (ARN) of the IAM role that allows Amazon ECS to make calls to your load balancer on your behalf. This parameter is required if you are using a load balancer with your service. If you specify the @role@ parameter, you must also specify a load balancer object with the @loadBalancers@ parameter. 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. For example, if a role with the name @bar@ has a path of @/foo/@ then you would specify @/foo/bar@ as the role name. For more information, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/reference_identifiers.html#identifiers-friendly-names Friendly Names and Paths> in the /IAM User Guide/ .+-- | The name or full Amazon Resource Name (ARN) of the IAM role that allows Amazon ECS to make calls to your load balancer on your behalf. This parameter is only permitted if you are using a load balancer with your service and your task definition does not use the @awsvpc@ network mode. If you specify the @role@ parameter, you must also specify a load balancer object with the @loadBalancers@ parameter. /Important:/ If your account has already created the Amazon ECS service-linked role, that role is used by default for your service unless you specify a role here. The service-linked role is required if your task definition uses the @awsvpc@ network mode, in which case you should not specify a role here. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/using-service-linked-roles.html Using Service-Linked Roles for Amazon ECS> in the /Amazon Elastic Container Service Developer Guide/ . 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. For example, if a role with the name @bar@ has a path of @/foo/@ then you would specify @/foo/bar@ as the role name. For more information, see <http://docs.aws.amazon.com/IAM/latest/UserGuide/reference_identifiers.html#identifiers-friendly-names Friendly Names and Paths> in the /IAM User Guide/ . cRole :: Lens' CreateService (Maybe Text)-cRole = lens _cRole (\ s a -> s{_cRole = a});+cRole = lens _cRole (\ s a -> s{_cRole = a})  -- | An array of placement constraint objects to use for tasks in your service. You can specify a maximum of 10 constraints per task (this limit includes constraints in the task definition and those specified at run time). cPlacementConstraints :: Lens' CreateService [PlacementConstraint]-cPlacementConstraints = lens _cPlacementConstraints (\ s a -> s{_cPlacementConstraints = a}) . _Default . _Coerce;+cPlacementConstraints = lens _cPlacementConstraints (\ s a -> s{_cPlacementConstraints = a}) . _Default . _Coerce --- | The placement strategy objects to use for tasks in your service. You can specify a maximum of 5 strategy rules per service.+-- | The placement strategy objects to use for tasks in your service. You can specify a maximum of five strategy rules per service. cPlacementStrategy :: Lens' CreateService [PlacementStrategy]-cPlacementStrategy = lens _cPlacementStrategy (\ s a -> s{_cPlacementStrategy = a}) . _Default . _Coerce;+cPlacementStrategy = lens _cPlacementStrategy (\ s a -> s{_cPlacementStrategy = a}) . _Default . _Coerce +-- | The launch type on which to run your service.+cLaunchType :: Lens' CreateService (Maybe LaunchType)+cLaunchType = lens _cLaunchType (\ s a -> s{_cLaunchType = a})++-- | The period of time, in seconds, that the Amazon ECS service scheduler should ignore unhealthy Elastic Load Balancing target health checks after a task has first started. This is only valid if your service is configured to use a load balancer. If your service's tasks take a while to start and respond to Elastic Load Balancing health checks, you can specify a health check grace period of up to 1,800 seconds during which the ECS service scheduler ignores health check status. This grace period can prevent the ECS service scheduler from marking tasks as unhealthy and stopping them before they have time to come up.+cHealthCheckGracePeriodSeconds :: Lens' CreateService (Maybe Int)+cHealthCheckGracePeriodSeconds = lens _cHealthCheckGracePeriodSeconds (\ s a -> s{_cHealthCheckGracePeriodSeconds = a})++-- | The network configuration for the service. This parameter is required for task definitions that use the @awsvpc@ network mode to receive their own Elastic Network Interface, and it is not supported for other network modes. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-networking.html Task Networking> in the /Amazon Elastic Container Service Developer Guide/ .+cNetworkConfiguration :: Lens' CreateService (Maybe NetworkConfiguration)+cNetworkConfiguration = lens _cNetworkConfiguration (\ s a -> s{_cNetworkConfiguration = a})++-- | The details of the service discovery registries you want to assign to this service. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguideservice-discovery.html Service Discovery> .+cServiceRegistries :: Lens' CreateService [ServiceRegistry]+cServiceRegistries = lens _cServiceRegistries (\ s a -> s{_cServiceRegistries = a}) . _Default . _Coerce+ -- | Optional deployment parameters that control how many tasks run during the deployment and the ordering of stopping and starting tasks. cDeploymentConfiguration :: Lens' CreateService (Maybe DeploymentConfiguration)-cDeploymentConfiguration = lens _cDeploymentConfiguration (\ s a -> s{_cDeploymentConfiguration = a});+cDeploymentConfiguration = lens _cDeploymentConfiguration (\ s a -> s{_cDeploymentConfiguration = a})  -- | The name of your service. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. Service names must be unique within a cluster, but you can have similarly named services in multiple clusters within a region or across multiple regions. cServiceName :: Lens' CreateService Text-cServiceName = lens _cServiceName (\ s a -> s{_cServiceName = a});+cServiceName = lens _cServiceName (\ s a -> s{_cServiceName = a}) --- | The @family@ and @revision@ (@family:revision@ ) or full Amazon Resource Name (ARN) of the task definition to run in your service. If a @revision@ is not specified, the latest @ACTIVE@ revision is used.+-- | The @family@ and @revision@ (@family:revision@ ) or full ARN of the task definition to run in your service. If a @revision@ is not specified, the latest @ACTIVE@ revision is used. cTaskDefinition :: Lens' CreateService Text-cTaskDefinition = lens _cTaskDefinition (\ s a -> s{_cTaskDefinition = a});+cTaskDefinition = lens _cTaskDefinition (\ s a -> s{_cTaskDefinition = a})  -- | The number of instantiations of the specified task definition to place and keep running on your cluster. cDesiredCount :: Lens' CreateService Int-cDesiredCount = lens _cDesiredCount (\ s a -> s{_cDesiredCount = a});+cDesiredCount = lens _cDesiredCount (\ s a -> s{_cDesiredCount = a})  instance AWSRequest CreateService where         type Rs CreateService = CreateServiceResponse@@ -202,11 +247,18 @@               (catMaybes                  [("cluster" .=) <$> _cCluster,                   ("clientToken" .=) <$> _cClientToken,+                  ("platformVersion" .=) <$> _cPlatformVersion,                   ("loadBalancers" .=) <$> _cLoadBalancers,                   ("role" .=) <$> _cRole,                   ("placementConstraints" .=) <$>                     _cPlacementConstraints,                   ("placementStrategy" .=) <$> _cPlacementStrategy,+                  ("launchType" .=) <$> _cLaunchType,+                  ("healthCheckGracePeriodSeconds" .=) <$>+                    _cHealthCheckGracePeriodSeconds,+                  ("networkConfiguration" .=) <$>+                    _cNetworkConfiguration,+                  ("serviceRegistries" .=) <$> _cServiceRegistries,                   ("deploymentConfiguration" .=) <$>                     _cDeploymentConfiguration,                   Just ("serviceName" .= _cServiceName),@@ -238,15 +290,15 @@     -> CreateServiceResponse createServiceResponse pResponseStatus_ =   CreateServiceResponse'-  {_csrsService = Nothing, _csrsResponseStatus = pResponseStatus_}+    {_csrsService = Nothing, _csrsResponseStatus = pResponseStatus_}   -- | The full description of your service following the create call. csrsService :: Lens' CreateServiceResponse (Maybe ContainerService)-csrsService = lens _csrsService (\ s a -> s{_csrsService = a});+csrsService = lens _csrsService (\ s a -> s{_csrsService = a})  -- | -- | The response status code. csrsResponseStatus :: Lens' CreateServiceResponse Int-csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a})  instance NFData CreateServiceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.DeleteAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,11 +67,11 @@  -- | The short name or full Amazon Resource Name (ARN) of the cluster that contains the resource to delete attributes. If you do not specify a cluster, the default cluster is assumed. daCluster :: Lens' DeleteAttributes (Maybe Text)-daCluster = lens _daCluster (\ s a -> s{_daCluster = a});+daCluster = lens _daCluster (\ s a -> s{_daCluster = a})  -- | The attributes to delete from your resource. You can specify up to 10 attributes per request. For custom attributes, specify the attribute name and target ID, but do not specify the value. If you specify the target ID using the short form, you must also specify the target type. daAttributes :: Lens' DeleteAttributes [Attribute]-daAttributes = lens _daAttributes (\ s a -> s{_daAttributes = a}) . _Coerce;+daAttributes = lens _daAttributes (\ s a -> s{_daAttributes = a}) . _Coerce  instance AWSRequest DeleteAttributes where         type Rs DeleteAttributes = DeleteAttributesResponse@@ -129,15 +129,15 @@     -> DeleteAttributesResponse deleteAttributesResponse pResponseStatus_ =   DeleteAttributesResponse'-  {_darsAttributes = Nothing, _darsResponseStatus = pResponseStatus_}+    {_darsAttributes = Nothing, _darsResponseStatus = pResponseStatus_}   -- | A list of attribute objects that were successfully deleted from your resource. darsAttributes :: Lens' DeleteAttributesResponse [Attribute]-darsAttributes = lens _darsAttributes (\ s a -> s{_darsAttributes = a}) . _Default . _Coerce;+darsAttributes = lens _darsAttributes (\ s a -> s{_darsAttributes = a}) . _Default . _Coerce  -- | -- | The response status code. darsResponseStatus :: Lens' DeleteAttributesResponse Int-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})  instance NFData DeleteAttributesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.DeleteCluster--- 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 short name or full Amazon Resource Name (ARN) of the cluster to delete. dcCluster :: Lens' DeleteCluster Text-dcCluster = lens _dcCluster (\ s a -> s{_dcCluster = a});+dcCluster = lens _dcCluster (\ s a -> s{_dcCluster = a})  instance AWSRequest DeleteCluster where         type Rs DeleteCluster = DeleteClusterResponse@@ -117,15 +117,15 @@     -> DeleteClusterResponse deleteClusterResponse pResponseStatus_ =   DeleteClusterResponse'-  {_drsCluster = Nothing, _drsResponseStatus = pResponseStatus_}+    {_drsCluster = Nothing, _drsResponseStatus = pResponseStatus_}   -- | The full description of the deleted cluster. drsCluster :: Lens' DeleteClusterResponse (Maybe Cluster)-drsCluster = lens _drsCluster (\ s a -> s{_drsCluster = a});+drsCluster = lens _drsCluster (\ s a -> s{_drsCluster = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteClusterResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.DeleteService--- 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,11 +68,11 @@  -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the service to delete. If you do not specify a cluster, the default cluster is assumed. dsCluster :: Lens' DeleteService (Maybe Text)-dsCluster = lens _dsCluster (\ s a -> s{_dsCluster = a});+dsCluster = lens _dsCluster (\ s a -> s{_dsCluster = a})  -- | The name of the service to delete. dsService :: Lens' DeleteService Text-dsService = lens _dsService (\ s a -> s{_dsService = a});+dsService = lens _dsService (\ s a -> s{_dsService = a})  instance AWSRequest DeleteService where         type Rs DeleteService = DeleteServiceResponse@@ -129,15 +129,15 @@     -> DeleteServiceResponse deleteServiceResponse pResponseStatus_ =   DeleteServiceResponse'-  {_dsrsService = Nothing, _dsrsResponseStatus = pResponseStatus_}+    {_dsrsService = Nothing, _dsrsResponseStatus = pResponseStatus_}   -- | The full description of the deleted service. dsrsService :: Lens' DeleteServiceResponse (Maybe ContainerService)-dsrsService = lens _dsrsService (\ s a -> s{_dsrsService = a});+dsrsService = lens _dsrsService (\ s a -> s{_dsrsService = a})  -- | -- | The response status code. dsrsResponseStatus :: Lens' DeleteServiceResponse Int-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})  instance NFData DeleteServiceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.DeregisterContainerInstance--- 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,7 +21,7 @@ -- Deregisters an Amazon ECS container instance from the specified cluster. This instance is no longer available to run tasks. -- ----- If you intend to use the container instance for some other purpose after deregistration, you should stop all of the tasks running on the container instance before deregistration to avoid any orphaned tasks from consuming resources.+-- If you intend to use the container instance for some other purpose after deregistration, you should stop all of the tasks running on the container instance before deregistration. That prevents any orphaned tasks from consuming resources. -- -- Deregistering a container instance removes the instance from a cluster, but it does not terminate the EC2 instance; if you are finished using the instance, be sure to terminate it in the Amazon EC2 console to stop billing. --@@ -64,31 +64,31 @@ -- -- * 'derCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that hosts the container instance to deregister. If you do not specify a cluster, the default cluster is assumed. ----- * 'derForce' - Forces the deregistration of the container instance. If you have tasks running on the container instance when you deregister it with the @force@ option, these tasks remain running until you terminate the instance or the tasks stop through some other means, but they are orphaned (no longer monitored or accounted for by Amazon ECS). If an orphaned task on your container instance is part of an Amazon ECS service, then the service scheduler starts another copy of that task, on a different container instance if possible.  Any containers in orphaned service tasks that are registered with a Classic Load Balancer or an Application Load Balancer target group are deregistered, and they will begin connection draining according to the settings on the load balancer or target group.+-- * 'derForce' - Forces the deregistration of the container instance. If you have tasks running on the container instance when you deregister it with the @force@ option, these tasks remain running until you terminate the instance or the tasks stop through some other means, but they are orphaned (no longer monitored or accounted for by Amazon ECS). If an orphaned task on your container instance is part of an Amazon ECS service, then the service scheduler starts another copy of that task, on a different container instance if possible.  Any containers in orphaned service tasks that are registered with a Classic Load Balancer or an Application Load Balancer target group are deregistered. They begin connection draining according to the settings on the load balancer or target group. ----- * 'derContainerInstance' - The container instance ID or full Amazon Resource Name (ARN) of the container instance to deregister. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ .+-- * 'derContainerInstance' - The container instance ID or full ARN of the container instance to deregister. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ . deregisterContainerInstance     :: Text -- ^ 'derContainerInstance'     -> DeregisterContainerInstance deregisterContainerInstance pContainerInstance_ =   DeregisterContainerInstance'-  { _derCluster = Nothing-  , _derForce = Nothing-  , _derContainerInstance = pContainerInstance_-  }+    { _derCluster = Nothing+    , _derForce = Nothing+    , _derContainerInstance = pContainerInstance_+    }   -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the container instance to deregister. If you do not specify a cluster, the default cluster is assumed. derCluster :: Lens' DeregisterContainerInstance (Maybe Text)-derCluster = lens _derCluster (\ s a -> s{_derCluster = a});+derCluster = lens _derCluster (\ s a -> s{_derCluster = a}) --- | Forces the deregistration of the container instance. If you have tasks running on the container instance when you deregister it with the @force@ option, these tasks remain running until you terminate the instance or the tasks stop through some other means, but they are orphaned (no longer monitored or accounted for by Amazon ECS). If an orphaned task on your container instance is part of an Amazon ECS service, then the service scheduler starts another copy of that task, on a different container instance if possible.  Any containers in orphaned service tasks that are registered with a Classic Load Balancer or an Application Load Balancer target group are deregistered, and they will begin connection draining according to the settings on the load balancer or target group.+-- | Forces the deregistration of the container instance. If you have tasks running on the container instance when you deregister it with the @force@ option, these tasks remain running until you terminate the instance or the tasks stop through some other means, but they are orphaned (no longer monitored or accounted for by Amazon ECS). If an orphaned task on your container instance is part of an Amazon ECS service, then the service scheduler starts another copy of that task, on a different container instance if possible.  Any containers in orphaned service tasks that are registered with a Classic Load Balancer or an Application Load Balancer target group are deregistered. They begin connection draining according to the settings on the load balancer or target group. derForce :: Lens' DeregisterContainerInstance (Maybe Bool)-derForce = lens _derForce (\ s a -> s{_derForce = a});+derForce = lens _derForce (\ s a -> s{_derForce = a}) --- | The container instance ID or full Amazon Resource Name (ARN) of the container instance to deregister. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ .+-- | The container instance ID or full ARN of the container instance to deregister. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ . derContainerInstance :: Lens' DeregisterContainerInstance Text-derContainerInstance = lens _derContainerInstance (\ s a -> s{_derContainerInstance = a});+derContainerInstance = lens _derContainerInstance (\ s a -> s{_derContainerInstance = a})  instance AWSRequest DeregisterContainerInstance where         type Rs DeregisterContainerInstance =@@ -147,16 +147,16 @@     -> DeregisterContainerInstanceResponse deregisterContainerInstanceResponse pResponseStatus_ =   DeregisterContainerInstanceResponse'-  {_dcirsContainerInstance = Nothing, _dcirsResponseStatus = pResponseStatus_}+    {_dcirsContainerInstance = Nothing, _dcirsResponseStatus = pResponseStatus_}   -- | The container instance that was deregistered. dcirsContainerInstance :: Lens' DeregisterContainerInstanceResponse (Maybe ContainerInstance)-dcirsContainerInstance = lens _dcirsContainerInstance (\ s a -> s{_dcirsContainerInstance = a});+dcirsContainerInstance = lens _dcirsContainerInstance (\ s a -> s{_dcirsContainerInstance = a})  -- | -- | The response status code. dcirsResponseStatus :: Lens' DeregisterContainerInstanceResponse Int-dcirsResponseStatus = lens _dcirsResponseStatus (\ s a -> s{_dcirsResponseStatus = a});+dcirsResponseStatus = lens _dcirsResponseStatus (\ s a -> s{_dcirsResponseStatus = a})  instance NFData DeregisterContainerInstanceResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.DeregisterTaskDefinition--- 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,7 +21,7 @@ -- Deregisters the specified task definition by family and revision. Upon deregistration, the task definition is marked as @INACTIVE@ . Existing tasks and services that reference an @INACTIVE@ task definition continue to run without disruption. Existing services that reference an @INACTIVE@ task definition can still scale up or down by modifying the service's desired count. -- ----- You cannot use an @INACTIVE@ task definition to run new tasks or create new services, and you cannot update an existing service to reference an @INACTIVE@ task definition (although there may be up to a 10 minute window following deregistration where these restrictions have not yet taken effect).+-- You cannot use an @INACTIVE@ task definition to run new tasks or create new services, and you cannot update an existing service to reference an @INACTIVE@ task definition (although there may be up to a 10-minute window following deregistration where these restrictions have not yet taken effect). -- module Network.AWS.ECS.DeregisterTaskDefinition     (@@ -66,7 +66,7 @@  -- | The @family@ and @revision@ (@family:revision@ ) or full Amazon Resource Name (ARN) of the task definition to deregister. You must specify a @revision@ . derTaskDefinition :: Lens' DeregisterTaskDefinition Text-derTaskDefinition = lens _derTaskDefinition (\ s a -> s{_derTaskDefinition = a});+derTaskDefinition = lens _derTaskDefinition (\ s a -> s{_derTaskDefinition = a})  instance AWSRequest DeregisterTaskDefinition where         type Rs DeregisterTaskDefinition =@@ -123,16 +123,16 @@     -> DeregisterTaskDefinitionResponse deregisterTaskDefinitionResponse pResponseStatus_ =   DeregisterTaskDefinitionResponse'-  {_dtdrsTaskDefinition = Nothing, _dtdrsResponseStatus = pResponseStatus_}+    {_dtdrsTaskDefinition = Nothing, _dtdrsResponseStatus = pResponseStatus_}   -- | The full description of the deregistered task. dtdrsTaskDefinition :: Lens' DeregisterTaskDefinitionResponse (Maybe TaskDefinition)-dtdrsTaskDefinition = lens _dtdrsTaskDefinition (\ s a -> s{_dtdrsTaskDefinition = a});+dtdrsTaskDefinition = lens _dtdrsTaskDefinition (\ s a -> s{_dtdrsTaskDefinition = a})  -- | -- | The response status code. dtdrsResponseStatus :: Lens' DeregisterTaskDefinitionResponse Int-dtdrsResponseStatus = lens _dtdrsResponseStatus (\ s a -> s{_dtdrsResponseStatus = a});+dtdrsResponseStatus = lens _dtdrsResponseStatus (\ s a -> s{_dtdrsResponseStatus = a})  instance NFData DeregisterTaskDefinitionResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.DescribeClusters--- 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@@ -27,6 +27,7 @@       describeClusters     , DescribeClusters     -- * Request Lenses+    , dcInclude     , dcClusters      -- * Destructuring the Response@@ -46,8 +47,9 @@ import Network.AWS.Response  -- | /See:/ 'describeClusters' smart constructor.-newtype DescribeClusters = DescribeClusters'-  { _dcClusters :: Maybe [Text]+data DescribeClusters = DescribeClusters'+  { _dcInclude  :: !(Maybe [ClusterField])+  , _dcClusters :: !(Maybe [Text])   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -55,15 +57,22 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dcInclude' - Additional information about your clusters to be separated by launch type, including:     * runningEC2TasksCount     * runningFargateTasksCount     * pendingEC2TasksCount     * pendingFargateTasksCount     * activeEC2ServiceCount     * activeFargateServiceCount     * drainingEC2ServiceCount     * drainingFargateServiceCount+-- -- * 'dcClusters' - A list of up to 100 cluster names or full cluster Amazon Resource Name (ARN) entries. If you do not specify a cluster, the default cluster is assumed. describeClusters     :: DescribeClusters-describeClusters = DescribeClusters' {_dcClusters = Nothing}+describeClusters =+  DescribeClusters' {_dcInclude = Nothing, _dcClusters = Nothing}  +-- | Additional information about your clusters to be separated by launch type, including:     * runningEC2TasksCount     * runningFargateTasksCount     * pendingEC2TasksCount     * pendingFargateTasksCount     * activeEC2ServiceCount     * activeFargateServiceCount     * drainingEC2ServiceCount     * drainingFargateServiceCount+dcInclude :: Lens' DescribeClusters [ClusterField]+dcInclude = lens _dcInclude (\ s a -> s{_dcInclude = a}) . _Default . _Coerce+ -- | A list of up to 100 cluster names or full cluster Amazon Resource Name (ARN) entries. If you do not specify a cluster, the default cluster is assumed. dcClusters :: Lens' DescribeClusters [Text]-dcClusters = lens _dcClusters (\ s a -> s{_dcClusters = a}) . _Default . _Coerce;+dcClusters = lens _dcClusters (\ s a -> s{_dcClusters = a}) . _Default . _Coerce  instance AWSRequest DescribeClusters where         type Rs DescribeClusters = DescribeClustersResponse@@ -93,7 +102,9 @@ instance ToJSON DescribeClusters where         toJSON DescribeClusters'{..}           = object-              (catMaybes [("clusters" .=) <$> _dcClusters])+              (catMaybes+                 [("include" .=) <$> _dcInclude,+                  ("clusters" .=) <$> _dcClusters])  instance ToPath DescribeClusters where         toPath = const "/"@@ -123,22 +134,22 @@     -> DescribeClustersResponse describeClustersResponse pResponseStatus_ =   DescribeClustersResponse'-  { _dcrsFailures = Nothing-  , _dcrsClusters = Nothing-  , _dcrsResponseStatus = pResponseStatus_-  }+    { _dcrsFailures = Nothing+    , _dcrsClusters = Nothing+    , _dcrsResponseStatus = pResponseStatus_+    }   -- | Any failures associated with the call. dcrsFailures :: Lens' DescribeClustersResponse [Failure]-dcrsFailures = lens _dcrsFailures (\ s a -> s{_dcrsFailures = a}) . _Default . _Coerce;+dcrsFailures = lens _dcrsFailures (\ s a -> s{_dcrsFailures = a}) . _Default . _Coerce  -- | The list of clusters. dcrsClusters :: Lens' DescribeClustersResponse [Cluster]-dcrsClusters = lens _dcrsClusters (\ s a -> s{_dcrsClusters = a}) . _Default . _Coerce;+dcrsClusters = lens _dcrsClusters (\ s a -> s{_dcrsClusters = a}) . _Default . _Coerce  -- | -- | The response status code. dcrsResponseStatus :: Lens' DescribeClustersResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})  instance NFData DescribeClustersResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ECS.DescribeContainerInstances--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes Amazon EC2 Container Service container instances. Returns metadata about registered and remaining resources on each container instance requested.+-- Describes Amazon Elastic Container Service container instances. Returns metadata about registered and remaining resources on each container instance requested. -- -- module Network.AWS.ECS.DescribeContainerInstances@@ -59,21 +59,21 @@ -- -- * 'dciCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that hosts the container instances to describe. If you do not specify a cluster, the default cluster is assumed. ----- * 'dciContainerInstances' - A list of container instance IDs or full Amazon Resource Name (ARN) entries.+-- * 'dciContainerInstances' - A list of container instance IDs or full ARN entries. describeContainerInstances     :: DescribeContainerInstances describeContainerInstances =   DescribeContainerInstances'-  {_dciCluster = Nothing, _dciContainerInstances = mempty}+    {_dciCluster = Nothing, _dciContainerInstances = mempty}   -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the container instances to describe. If you do not specify a cluster, the default cluster is assumed. dciCluster :: Lens' DescribeContainerInstances (Maybe Text)-dciCluster = lens _dciCluster (\ s a -> s{_dciCluster = a});+dciCluster = lens _dciCluster (\ s a -> s{_dciCluster = a}) --- | A list of container instance IDs or full Amazon Resource Name (ARN) entries.+-- | A list of container instance IDs or full ARN entries. dciContainerInstances :: Lens' DescribeContainerInstances [Text]-dciContainerInstances = lens _dciContainerInstances (\ s a -> s{_dciContainerInstances = a}) . _Coerce;+dciContainerInstances = lens _dciContainerInstances (\ s a -> s{_dciContainerInstances = a}) . _Coerce  instance AWSRequest DescribeContainerInstances where         type Rs DescribeContainerInstances =@@ -137,23 +137,23 @@     -> DescribeContainerInstancesResponse describeContainerInstancesResponse pResponseStatus_ =   DescribeContainerInstancesResponse'-  { _dcisrsFailures = Nothing-  , _dcisrsContainerInstances = Nothing-  , _dcisrsResponseStatus = pResponseStatus_-  }+    { _dcisrsFailures = Nothing+    , _dcisrsContainerInstances = Nothing+    , _dcisrsResponseStatus = pResponseStatus_+    }   -- | Any failures associated with the call. dcisrsFailures :: Lens' DescribeContainerInstancesResponse [Failure]-dcisrsFailures = lens _dcisrsFailures (\ s a -> s{_dcisrsFailures = a}) . _Default . _Coerce;+dcisrsFailures = lens _dcisrsFailures (\ s a -> s{_dcisrsFailures = a}) . _Default . _Coerce  -- | The list of container instances. dcisrsContainerInstances :: Lens' DescribeContainerInstancesResponse [ContainerInstance]-dcisrsContainerInstances = lens _dcisrsContainerInstances (\ s a -> s{_dcisrsContainerInstances = a}) . _Default . _Coerce;+dcisrsContainerInstances = lens _dcisrsContainerInstances (\ s a -> s{_dcisrsContainerInstances = a}) . _Default . _Coerce  -- | -- | The response status code. dcisrsResponseStatus :: Lens' DescribeContainerInstancesResponse Int-dcisrsResponseStatus = lens _dcisrsResponseStatus (\ s a -> s{_dcisrsResponseStatus = a});+dcisrsResponseStatus = lens _dcisrsResponseStatus (\ s a -> s{_dcisrsResponseStatus = a})  instance NFData DescribeContainerInstancesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.DescribeServices--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,11 +67,11 @@  -- | The short name or full Amazon Resource Name (ARN)the cluster that hosts the service to describe. If you do not specify a cluster, the default cluster is assumed. dCluster :: Lens' DescribeServices (Maybe Text)-dCluster = lens _dCluster (\ s a -> s{_dCluster = a});+dCluster = lens _dCluster (\ s a -> s{_dCluster = a})  -- | A list of services to describe. You may specify up to 10 services to describe in a single operation. dServices :: Lens' DescribeServices [Text]-dServices = lens _dServices (\ s a -> s{_dServices = a}) . _Coerce;+dServices = lens _dServices (\ s a -> s{_dServices = a}) . _Coerce  instance AWSRequest DescribeServices where         type Rs DescribeServices = DescribeServicesResponse@@ -133,22 +133,22 @@     -> DescribeServicesResponse describeServicesResponse pResponseStatus_ =   DescribeServicesResponse'-  { _dssrsFailures = Nothing-  , _dssrsServices = Nothing-  , _dssrsResponseStatus = pResponseStatus_-  }+    { _dssrsFailures = Nothing+    , _dssrsServices = Nothing+    , _dssrsResponseStatus = pResponseStatus_+    }   -- | Any failures associated with the call. dssrsFailures :: Lens' DescribeServicesResponse [Failure]-dssrsFailures = lens _dssrsFailures (\ s a -> s{_dssrsFailures = a}) . _Default . _Coerce;+dssrsFailures = lens _dssrsFailures (\ s a -> s{_dssrsFailures = a}) . _Default . _Coerce  -- | The list of services described. dssrsServices :: Lens' DescribeServicesResponse [ContainerService]-dssrsServices = lens _dssrsServices (\ s a -> s{_dssrsServices = a}) . _Default . _Coerce;+dssrsServices = lens _dssrsServices (\ s a -> s{_dssrsServices = a}) . _Default . _Coerce  -- | -- | The response status code. dssrsResponseStatus :: Lens' DescribeServicesResponse Int-dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a})  instance NFData DescribeServicesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.DescribeTaskDefinition--- 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 @family@ for the latest @ACTIVE@ revision, @family@ and @revision@ (@family:revision@ ) for a specific revision in the family, or full Amazon Resource Name (ARN) of the task definition to describe. dtdTaskDefinition :: Lens' DescribeTaskDefinition Text-dtdTaskDefinition = lens _dtdTaskDefinition (\ s a -> s{_dtdTaskDefinition = a});+dtdTaskDefinition = lens _dtdTaskDefinition (\ s a -> s{_dtdTaskDefinition = a})  instance AWSRequest DescribeTaskDefinition where         type Rs DescribeTaskDefinition =@@ -121,15 +121,15 @@     -> DescribeTaskDefinitionResponse describeTaskDefinitionResponse pResponseStatus_ =   DescribeTaskDefinitionResponse'-  {_desrsTaskDefinition = Nothing, _desrsResponseStatus = pResponseStatus_}+    {_desrsTaskDefinition = Nothing, _desrsResponseStatus = pResponseStatus_}   -- | The full task definition description. desrsTaskDefinition :: Lens' DescribeTaskDefinitionResponse (Maybe TaskDefinition)-desrsTaskDefinition = lens _desrsTaskDefinition (\ s a -> s{_desrsTaskDefinition = a});+desrsTaskDefinition = lens _desrsTaskDefinition (\ s a -> s{_desrsTaskDefinition = a})  -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeTaskDefinitionResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})  instance NFData DescribeTaskDefinitionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.DescribeTasks--- 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@@ -59,7 +59,7 @@ -- -- * 'dtCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that hosts the task to describe. If you do not specify a cluster, the default cluster is assumed. ----- * 'dtTasks' - A list of up to 100 task IDs or full Amazon Resource Name (ARN) entries.+-- * 'dtTasks' - A list of up to 100 task IDs or full ARN entries. describeTasks     :: DescribeTasks describeTasks = DescribeTasks' {_dtCluster = Nothing, _dtTasks = mempty}@@ -67,11 +67,11 @@  -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the task to describe. If you do not specify a cluster, the default cluster is assumed. dtCluster :: Lens' DescribeTasks (Maybe Text)-dtCluster = lens _dtCluster (\ s a -> s{_dtCluster = a});+dtCluster = lens _dtCluster (\ s a -> s{_dtCluster = a}) --- | A list of up to 100 task IDs or full Amazon Resource Name (ARN) entries.+-- | A list of up to 100 task IDs or full ARN entries. dtTasks :: Lens' DescribeTasks [Text]-dtTasks = lens _dtTasks (\ s a -> s{_dtTasks = a}) . _Coerce;+dtTasks = lens _dtTasks (\ s a -> s{_dtTasks = a}) . _Coerce  instance AWSRequest DescribeTasks where         type Rs DescribeTasks = DescribeTasksResponse@@ -133,22 +133,22 @@     -> DescribeTasksResponse describeTasksResponse pResponseStatus_ =   DescribeTasksResponse'-  { _dtrsFailures = Nothing-  , _dtrsTasks = Nothing-  , _dtrsResponseStatus = pResponseStatus_-  }+    { _dtrsFailures = Nothing+    , _dtrsTasks = Nothing+    , _dtrsResponseStatus = pResponseStatus_+    }   -- | Any failures associated with the call. dtrsFailures :: Lens' DescribeTasksResponse [Failure]-dtrsFailures = lens _dtrsFailures (\ s a -> s{_dtrsFailures = a}) . _Default . _Coerce;+dtrsFailures = lens _dtrsFailures (\ s a -> s{_dtrsFailures = a}) . _Default . _Coerce  -- | The list of tasks. dtrsTasks :: Lens' DescribeTasksResponse [Task]-dtrsTasks = lens _dtrsTasks (\ s a -> s{_dtrsTasks = a}) . _Default . _Coerce;+dtrsTasks = lens _dtrsTasks (\ s a -> s{_dtrsTasks = a}) . _Default . _Coerce  -- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTasksResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})  instance NFData DescribeTasksResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ECS.DiscoverPollEndpoint--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns an endpoint for the Amazon EC2 Container Service agent to poll for updates.+-- Returns an endpoint for the Amazon ECS agent to poll for updates. -- -- module Network.AWS.ECS.DiscoverPollEndpoint@@ -59,7 +59,7 @@ -- -- * 'dpeCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that the container instance belongs to. ----- * 'dpeContainerInstance' - The container instance ID or full Amazon Resource Name (ARN) of the container instance. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ .+-- * 'dpeContainerInstance' - The container instance ID or full ARN of the container instance. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ . discoverPollEndpoint     :: DiscoverPollEndpoint discoverPollEndpoint =@@ -68,11 +68,11 @@  -- | The short name or full Amazon Resource Name (ARN) of the cluster that the container instance belongs to. dpeCluster :: Lens' DiscoverPollEndpoint (Maybe Text)-dpeCluster = lens _dpeCluster (\ s a -> s{_dpeCluster = a});+dpeCluster = lens _dpeCluster (\ s a -> s{_dpeCluster = a}) --- | The container instance ID or full Amazon Resource Name (ARN) of the container instance. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ .+-- | The container instance ID or full ARN of the container instance. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ . dpeContainerInstance :: Lens' DiscoverPollEndpoint (Maybe Text)-dpeContainerInstance = lens _dpeContainerInstance (\ s a -> s{_dpeContainerInstance = a});+dpeContainerInstance = lens _dpeContainerInstance (\ s a -> s{_dpeContainerInstance = a})  instance AWSRequest DiscoverPollEndpoint where         type Rs DiscoverPollEndpoint =@@ -134,22 +134,22 @@     -> DiscoverPollEndpointResponse discoverPollEndpointResponse pResponseStatus_ =   DiscoverPollEndpointResponse'-  { _dpersTelemetryEndpoint = Nothing-  , _dpersEndpoint = Nothing-  , _dpersResponseStatus = pResponseStatus_-  }+    { _dpersTelemetryEndpoint = Nothing+    , _dpersEndpoint = Nothing+    , _dpersResponseStatus = pResponseStatus_+    }   -- | The telemetry endpoint for the Amazon ECS agent. dpersTelemetryEndpoint :: Lens' DiscoverPollEndpointResponse (Maybe Text)-dpersTelemetryEndpoint = lens _dpersTelemetryEndpoint (\ s a -> s{_dpersTelemetryEndpoint = a});+dpersTelemetryEndpoint = lens _dpersTelemetryEndpoint (\ s a -> s{_dpersTelemetryEndpoint = a})  -- | The endpoint for the Amazon ECS agent to poll. dpersEndpoint :: Lens' DiscoverPollEndpointResponse (Maybe Text)-dpersEndpoint = lens _dpersEndpoint (\ s a -> s{_dpersEndpoint = a});+dpersEndpoint = lens _dpersEndpoint (\ s a -> s{_dpersEndpoint = a})  -- | -- | The response status code. dpersResponseStatus :: Lens' DiscoverPollEndpointResponse Int-dpersResponseStatus = lens _dpersResponseStatus (\ s a -> s{_dpersResponseStatus = a});+dpersResponseStatus = lens _dpersResponseStatus (\ s a -> s{_dpersResponseStatus = a})  instance NFData DiscoverPollEndpointResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.ListAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@ -- -- * 'laCluster' - The short name or full Amazon Resource Name (ARN) of the cluster to list attributes. If you do not specify a cluster, the default cluster is assumed. ----- * 'laNextToken' - The @nextToken@ value returned from a previous paginated @ListAttributes@ 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.+-- * 'laNextToken' - The @nextToken@ value returned from a previous paginated @ListAttributes@ 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. -- -- * 'laAttributeName' - The name of the attribute with which to filter the results. --@@ -81,38 +81,38 @@     -> ListAttributes listAttributes pTargetType_ =   ListAttributes'-  { _laAttributeValue = Nothing-  , _laCluster = Nothing-  , _laNextToken = Nothing-  , _laAttributeName = Nothing-  , _laMaxResults = Nothing-  , _laTargetType = pTargetType_-  }+    { _laAttributeValue = Nothing+    , _laCluster = Nothing+    , _laNextToken = Nothing+    , _laAttributeName = Nothing+    , _laMaxResults = Nothing+    , _laTargetType = pTargetType_+    }   -- | The value of the attribute with which to filter results. You must also specify an attribute name to use this parameter. laAttributeValue :: Lens' ListAttributes (Maybe Text)-laAttributeValue = lens _laAttributeValue (\ s a -> s{_laAttributeValue = a});+laAttributeValue = lens _laAttributeValue (\ s a -> s{_laAttributeValue = a})  -- | The short name or full Amazon Resource Name (ARN) of the cluster to list attributes. If you do not specify a cluster, the default cluster is assumed. laCluster :: Lens' ListAttributes (Maybe Text)-laCluster = lens _laCluster (\ s a -> s{_laCluster = a});+laCluster = lens _laCluster (\ s a -> s{_laCluster = a}) --- | The @nextToken@ value returned from a previous paginated @ListAttributes@ 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.+-- | The @nextToken@ value returned from a previous paginated @ListAttributes@ 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. laNextToken :: Lens' ListAttributes (Maybe Text)-laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a});+laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a})  -- | The name of the attribute with which to filter the results. laAttributeName :: Lens' ListAttributes (Maybe Text)-laAttributeName = lens _laAttributeName (\ s a -> s{_laAttributeName = a});+laAttributeName = lens _laAttributeName (\ s a -> s{_laAttributeName = a})  -- | The maximum number of cluster results returned by @ListAttributes@ in paginated output. When this parameter is used, @ListAttributes@ 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 @ListAttributes@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListAttributes@ returns up to 100 results and a @nextToken@ value if applicable. laMaxResults :: Lens' ListAttributes (Maybe Int)-laMaxResults = lens _laMaxResults (\ s a -> s{_laMaxResults = a});+laMaxResults = lens _laMaxResults (\ s a -> s{_laMaxResults = a})  -- | The type of the target with which to list attributes. laTargetType :: Lens' ListAttributes TargetType-laTargetType = lens _laTargetType (\ s a -> s{_laTargetType = a});+laTargetType = lens _laTargetType (\ s a -> s{_laTargetType = a})  instance AWSRequest ListAttributes where         type Rs ListAttributes = ListAttributesResponse@@ -178,22 +178,22 @@     -> ListAttributesResponse listAttributesResponse pResponseStatus_ =   ListAttributesResponse'-  { _larsNextToken = Nothing-  , _larsAttributes = Nothing-  , _larsResponseStatus = pResponseStatus_-  }+    { _larsNextToken = Nothing+    , _larsAttributes = Nothing+    , _larsResponseStatus = pResponseStatus_+    }   -- | The @nextToken@ value to include in a future @ListAttributes@ request. When the results of a @ListAttributes@ 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. larsNextToken :: Lens' ListAttributesResponse (Maybe Text)-larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a});+larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a})  -- | A list of attribute objects that meet the criteria of the request. larsAttributes :: Lens' ListAttributesResponse [Attribute]-larsAttributes = lens _larsAttributes (\ s a -> s{_larsAttributes = a}) . _Default . _Coerce;+larsAttributes = lens _larsAttributes (\ s a -> s{_larsAttributes = a}) . _Default . _Coerce  -- | -- | The response status code. larsResponseStatus :: Lens' ListAttributesResponse Int-larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});+larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a})  instance NFData ListAttributesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.ListClusters--- 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@@ -60,7 +60,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcNextToken' - The @nextToken@ value returned from a previous paginated @ListClusters@ 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.+-- * 'lcNextToken' - The @nextToken@ value returned from a previous paginated @ListClusters@ 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. -- -- * 'lcMaxResults' - The maximum number of cluster results returned by @ListClusters@ in paginated output. When this parameter is used, @ListClusters@ 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 @ListClusters@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListClusters@ returns up to 100 results and a @nextToken@ value if applicable. listClusters@@ -68,13 +68,13 @@ listClusters = ListClusters' {_lcNextToken = Nothing, _lcMaxResults = Nothing}  --- | The @nextToken@ value returned from a previous paginated @ListClusters@ 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.+-- | The @nextToken@ value returned from a previous paginated @ListClusters@ 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. lcNextToken :: Lens' ListClusters (Maybe Text)-lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a});+lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a})  -- | The maximum number of cluster results returned by @ListClusters@ in paginated output. When this parameter is used, @ListClusters@ 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 @ListClusters@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListClusters@ returns up to 100 results and a @nextToken@ value if applicable. lcMaxResults :: Lens' ListClusters (Maybe Int)-lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a});+lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a})  instance AWSPager ListClusters where         page rq rs@@ -143,22 +143,22 @@     -> ListClustersResponse listClustersResponse pResponseStatus_ =   ListClustersResponse'-  { _lcrsClusterARNs = Nothing-  , _lcrsNextToken = Nothing-  , _lcrsResponseStatus = pResponseStatus_-  }+    { _lcrsClusterARNs = Nothing+    , _lcrsNextToken = Nothing+    , _lcrsResponseStatus = pResponseStatus_+    }   -- | The list of full Amazon Resource Name (ARN) entries for each cluster associated with your account. lcrsClusterARNs :: Lens' ListClustersResponse [Text]-lcrsClusterARNs = lens _lcrsClusterARNs (\ s a -> s{_lcrsClusterARNs = a}) . _Default . _Coerce;+lcrsClusterARNs = lens _lcrsClusterARNs (\ s a -> s{_lcrsClusterARNs = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @ListClusters@ request. When the results of a @ListClusters@ 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. lcrsNextToken :: Lens' ListClustersResponse (Maybe Text)-lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a});+lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a})  -- | -- | The response status code. lcrsResponseStatus :: Lens' ListClustersResponse Int-lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a});+lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a})  instance NFData ListClustersResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ECS.ListContainerInstances--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a list of container instances in a specified cluster. You can filter the results of a @ListContainerInstances@ operation with cluster query language statements inside the @filter@ parameter. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon EC2 Container Service Developer Guide/ .+-- Returns a list of container instances in a specified cluster. You can filter the results of a @ListContainerInstances@ operation with cluster query language statements inside the @filter@ parameter. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon Elastic Container Service Developer Guide/ . -- -- --@@ -70,42 +70,42 @@ -- -- * 'lciCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that hosts the container instances to list. If you do not specify a cluster, the default cluster is assumed. ----- * 'lciNextToken' - The @nextToken@ value returned from a previous paginated @ListContainerInstances@ 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.+-- * 'lciNextToken' - The @nextToken@ value returned from a previous paginated @ListContainerInstances@ 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. ----- * 'lciFilter' - You can filter the results of a @ListContainerInstances@ operation with cluster query language statements. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon EC2 Container Service Developer Guide/ .+-- * 'lciFilter' - You can filter the results of a @ListContainerInstances@ operation with cluster query language statements. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon Elastic Container Service Developer Guide/ . -- -- * 'lciMaxResults' - The maximum number of container instance results returned by @ListContainerInstances@ in paginated output. When this parameter is used, @ListContainerInstances@ 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 @ListContainerInstances@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListContainerInstances@ returns up to 100 results and a @nextToken@ value if applicable. listContainerInstances     :: ListContainerInstances listContainerInstances =   ListContainerInstances'-  { _lciStatus = Nothing-  , _lciCluster = Nothing-  , _lciNextToken = Nothing-  , _lciFilter = Nothing-  , _lciMaxResults = Nothing-  }+    { _lciStatus = Nothing+    , _lciCluster = Nothing+    , _lciNextToken = Nothing+    , _lciFilter = Nothing+    , _lciMaxResults = Nothing+    }   -- | Filters the container instances by status. For example, if you specify the @DRAINING@ status, the results include only container instances that have been set to @DRAINING@ using 'UpdateContainerInstancesState' . If you do not specify this parameter, the default is to include container instances set to @ACTIVE@ and @DRAINING@ . lciStatus :: Lens' ListContainerInstances (Maybe ContainerInstanceStatus)-lciStatus = lens _lciStatus (\ s a -> s{_lciStatus = a});+lciStatus = lens _lciStatus (\ s a -> s{_lciStatus = a})  -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the container instances to list. If you do not specify a cluster, the default cluster is assumed. lciCluster :: Lens' ListContainerInstances (Maybe Text)-lciCluster = lens _lciCluster (\ s a -> s{_lciCluster = a});+lciCluster = lens _lciCluster (\ s a -> s{_lciCluster = a}) --- | The @nextToken@ value returned from a previous paginated @ListContainerInstances@ 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.+-- | The @nextToken@ value returned from a previous paginated @ListContainerInstances@ 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. lciNextToken :: Lens' ListContainerInstances (Maybe Text)-lciNextToken = lens _lciNextToken (\ s a -> s{_lciNextToken = a});+lciNextToken = lens _lciNextToken (\ s a -> s{_lciNextToken = a}) --- | You can filter the results of a @ListContainerInstances@ operation with cluster query language statements. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon EC2 Container Service Developer Guide/ .+-- | You can filter the results of a @ListContainerInstances@ operation with cluster query language statements. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon Elastic Container Service Developer Guide/ . lciFilter :: Lens' ListContainerInstances (Maybe Text)-lciFilter = lens _lciFilter (\ s a -> s{_lciFilter = a});+lciFilter = lens _lciFilter (\ s a -> s{_lciFilter = a})  -- | The maximum number of container instance results returned by @ListContainerInstances@ in paginated output. When this parameter is used, @ListContainerInstances@ 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 @ListContainerInstances@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListContainerInstances@ returns up to 100 results and a @nextToken@ value if applicable. lciMaxResults :: Lens' ListContainerInstances (Maybe Int)-lciMaxResults = lens _lciMaxResults (\ s a -> s{_lciMaxResults = a});+lciMaxResults = lens _lciMaxResults (\ s a -> s{_lciMaxResults = a})  instance AWSPager ListContainerInstances where         page rq rs@@ -168,7 +168,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcirsContainerInstanceARNs' - The list of container instances with full Amazon Resource Name (ARN) entries for each container instance associated with the specified cluster.+-- * 'lcirsContainerInstanceARNs' - The list of container instances with full ARN entries for each container instance associated with the specified cluster. -- -- * 'lcirsNextToken' - The @nextToken@ value to include in a future @ListContainerInstances@ request. When the results of a @ListContainerInstances@ 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. --@@ -178,22 +178,22 @@     -> ListContainerInstancesResponse listContainerInstancesResponse pResponseStatus_ =   ListContainerInstancesResponse'-  { _lcirsContainerInstanceARNs = Nothing-  , _lcirsNextToken = Nothing-  , _lcirsResponseStatus = pResponseStatus_-  }+    { _lcirsContainerInstanceARNs = Nothing+    , _lcirsNextToken = Nothing+    , _lcirsResponseStatus = pResponseStatus_+    }  --- | The list of container instances with full Amazon Resource Name (ARN) entries for each container instance associated with the specified cluster.+-- | The list of container instances with full ARN entries for each container instance associated with the specified cluster. lcirsContainerInstanceARNs :: Lens' ListContainerInstancesResponse [Text]-lcirsContainerInstanceARNs = lens _lcirsContainerInstanceARNs (\ s a -> s{_lcirsContainerInstanceARNs = a}) . _Default . _Coerce;+lcirsContainerInstanceARNs = lens _lcirsContainerInstanceARNs (\ s a -> s{_lcirsContainerInstanceARNs = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @ListContainerInstances@ request. When the results of a @ListContainerInstances@ 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. lcirsNextToken :: Lens' ListContainerInstancesResponse (Maybe Text)-lcirsNextToken = lens _lcirsNextToken (\ s a -> s{_lcirsNextToken = a});+lcirsNextToken = lens _lcirsNextToken (\ s a -> s{_lcirsNextToken = a})  -- | -- | The response status code. lcirsResponseStatus :: Lens' ListContainerInstancesResponse Int-lcirsResponseStatus = lens _lcirsResponseStatus (\ s a -> s{_lcirsResponseStatus = a});+lcirsResponseStatus = lens _lcirsResponseStatus (\ s a -> s{_lcirsResponseStatus = a})  instance NFData ListContainerInstancesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.ListServices--- 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,7 @@     -- * Request Lenses     , lsCluster     , lsNextToken+    , lsLaunchType     , lsMaxResults      -- * Destructuring the Response@@ -54,6 +55,7 @@ data ListServices = ListServices'   { _lsCluster    :: !(Maybe Text)   , _lsNextToken  :: !(Maybe Text)+  , _lsLaunchType :: !(Maybe LaunchType)   , _lsMaxResults :: !(Maybe Int)   } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -64,27 +66,37 @@ -- -- * 'lsCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that hosts the services to list. If you do not specify a cluster, the default cluster is assumed. ----- * 'lsNextToken' - The @nextToken@ value returned from a previous paginated @ListServices@ 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.+-- * 'lsNextToken' - The @nextToken@ value returned from a previous paginated @ListServices@ 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. --+-- * 'lsLaunchType' - The launch type for services you want to list.+-- -- * 'lsMaxResults' - The maximum number of service results returned by @ListServices@ in paginated output. When this parameter is used, @ListServices@ 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 @ListServices@ request with the returned @nextToken@ value. This value can be between 1 and 10. If this parameter is not used, then @ListServices@ returns up to 10 results and a @nextToken@ value if applicable. listServices     :: ListServices listServices =   ListServices'-  {_lsCluster = Nothing, _lsNextToken = Nothing, _lsMaxResults = Nothing}+    { _lsCluster = Nothing+    , _lsNextToken = Nothing+    , _lsLaunchType = Nothing+    , _lsMaxResults = Nothing+    }   -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the services to list. If you do not specify a cluster, the default cluster is assumed. lsCluster :: Lens' ListServices (Maybe Text)-lsCluster = lens _lsCluster (\ s a -> s{_lsCluster = a});+lsCluster = lens _lsCluster (\ s a -> s{_lsCluster = a}) --- | The @nextToken@ value returned from a previous paginated @ListServices@ 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.+-- | The @nextToken@ value returned from a previous paginated @ListServices@ 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. lsNextToken :: Lens' ListServices (Maybe Text)-lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a});+lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a}) +-- | The launch type for services you want to list.+lsLaunchType :: Lens' ListServices (Maybe LaunchType)+lsLaunchType = lens _lsLaunchType (\ s a -> s{_lsLaunchType = a})+ -- | The maximum number of service results returned by @ListServices@ in paginated output. When this parameter is used, @ListServices@ 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 @ListServices@ request with the returned @nextToken@ value. This value can be between 1 and 10. If this parameter is not used, then @ListServices@ returns up to 10 results and a @nextToken@ value if applicable. lsMaxResults :: Lens' ListServices (Maybe Int)-lsMaxResults = lens _lsMaxResults (\ s a -> s{_lsMaxResults = a});+lsMaxResults = lens _lsMaxResults (\ s a -> s{_lsMaxResults = a})  instance AWSPager ListServices where         page rq rs@@ -124,6 +136,7 @@               (catMaybes                  [("cluster" .=) <$> _lsCluster,                   ("nextToken" .=) <$> _lsNextToken,+                  ("launchType" .=) <$> _lsLaunchType,                   ("maxResults" .=) <$> _lsMaxResults])  instance ToPath ListServices where@@ -144,7 +157,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lsrsServiceARNs' - The list of full Amazon Resource Name (ARN) entries for each service associated with the specified cluster.+-- * 'lsrsServiceARNs' - The list of full ARN entries for each service associated with the specified cluster. -- -- * 'lsrsNextToken' - The @nextToken@ value to include in a future @ListServices@ request. When the results of a @ListServices@ 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. --@@ -154,22 +167,22 @@     -> ListServicesResponse listServicesResponse pResponseStatus_ =   ListServicesResponse'-  { _lsrsServiceARNs = Nothing-  , _lsrsNextToken = Nothing-  , _lsrsResponseStatus = pResponseStatus_-  }+    { _lsrsServiceARNs = Nothing+    , _lsrsNextToken = Nothing+    , _lsrsResponseStatus = pResponseStatus_+    }  --- | The list of full Amazon Resource Name (ARN) entries for each service associated with the specified cluster.+-- | The list of full ARN entries for each service associated with the specified cluster. lsrsServiceARNs :: Lens' ListServicesResponse [Text]-lsrsServiceARNs = lens _lsrsServiceARNs (\ s a -> s{_lsrsServiceARNs = a}) . _Default . _Coerce;+lsrsServiceARNs = lens _lsrsServiceARNs (\ s a -> s{_lsrsServiceARNs = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @ListServices@ request. When the results of a @ListServices@ 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. lsrsNextToken :: Lens' ListServicesResponse (Maybe Text)-lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a});+lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a})  -- | -- | The response status code. lsrsResponseStatus :: Lens' ListServicesResponse Int-lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a});+lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a})  instance NFData ListServicesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.ListTaskDefinitionFamilies--- 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,35 +70,35 @@ -- -- * 'ltdfFamilyPrefix' - The @familyPrefix@ is a string that is used to filter the results of @ListTaskDefinitionFamilies@ . If you specify a @familyPrefix@ , only task definition family names that begin with the @familyPrefix@ string are returned. ----- * 'ltdfNextToken' - The @nextToken@ value returned from a previous paginated @ListTaskDefinitionFamilies@ 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.+-- * 'ltdfNextToken' - The @nextToken@ value returned from a previous paginated @ListTaskDefinitionFamilies@ 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. -- -- * 'ltdfMaxResults' - The maximum number of task definition family results returned by @ListTaskDefinitionFamilies@ in paginated output. When this parameter is used, @ListTaskDefinitions@ 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 @ListTaskDefinitionFamilies@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListTaskDefinitionFamilies@ returns up to 100 results and a @nextToken@ value if applicable. listTaskDefinitionFamilies     :: ListTaskDefinitionFamilies listTaskDefinitionFamilies =   ListTaskDefinitionFamilies'-  { _ltdfStatus = Nothing-  , _ltdfFamilyPrefix = Nothing-  , _ltdfNextToken = Nothing-  , _ltdfMaxResults = Nothing-  }+    { _ltdfStatus = Nothing+    , _ltdfFamilyPrefix = Nothing+    , _ltdfNextToken = Nothing+    , _ltdfMaxResults = Nothing+    }   -- | The task definition family status with which to filter the @ListTaskDefinitionFamilies@ results. By default, both @ACTIVE@ and @INACTIVE@ task definition families are listed. If this parameter is set to @ACTIVE@ , only task definition families that have an @ACTIVE@ task definition revision are returned. If this parameter is set to @INACTIVE@ , only task definition families that do not have any @ACTIVE@ task definition revisions are returned. If you paginate the resulting output, be sure to keep the @status@ value constant in each subsequent request. ltdfStatus :: Lens' ListTaskDefinitionFamilies (Maybe TaskDefinitionFamilyStatus)-ltdfStatus = lens _ltdfStatus (\ s a -> s{_ltdfStatus = a});+ltdfStatus = lens _ltdfStatus (\ s a -> s{_ltdfStatus = a})  -- | The @familyPrefix@ is a string that is used to filter the results of @ListTaskDefinitionFamilies@ . If you specify a @familyPrefix@ , only task definition family names that begin with the @familyPrefix@ string are returned. ltdfFamilyPrefix :: Lens' ListTaskDefinitionFamilies (Maybe Text)-ltdfFamilyPrefix = lens _ltdfFamilyPrefix (\ s a -> s{_ltdfFamilyPrefix = a});+ltdfFamilyPrefix = lens _ltdfFamilyPrefix (\ s a -> s{_ltdfFamilyPrefix = a}) --- | The @nextToken@ value returned from a previous paginated @ListTaskDefinitionFamilies@ 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.+-- | The @nextToken@ value returned from a previous paginated @ListTaskDefinitionFamilies@ 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. ltdfNextToken :: Lens' ListTaskDefinitionFamilies (Maybe Text)-ltdfNextToken = lens _ltdfNextToken (\ s a -> s{_ltdfNextToken = a});+ltdfNextToken = lens _ltdfNextToken (\ s a -> s{_ltdfNextToken = a})  -- | The maximum number of task definition family results returned by @ListTaskDefinitionFamilies@ in paginated output. When this parameter is used, @ListTaskDefinitions@ 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 @ListTaskDefinitionFamilies@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListTaskDefinitionFamilies@ returns up to 100 results and a @nextToken@ value if applicable. ltdfMaxResults :: Lens' ListTaskDefinitionFamilies (Maybe Int)-ltdfMaxResults = lens _ltdfMaxResults (\ s a -> s{_ltdfMaxResults = a});+ltdfMaxResults = lens _ltdfMaxResults (\ s a -> s{_ltdfMaxResults = a})  instance AWSPager ListTaskDefinitionFamilies where         page rq rs@@ -169,23 +169,23 @@     -> ListTaskDefinitionFamiliesResponse listTaskDefinitionFamiliesResponse pResponseStatus_ =   ListTaskDefinitionFamiliesResponse'-  { _ltdfrsFamilies = Nothing-  , _ltdfrsNextToken = Nothing-  , _ltdfrsResponseStatus = pResponseStatus_-  }+    { _ltdfrsFamilies = Nothing+    , _ltdfrsNextToken = Nothing+    , _ltdfrsResponseStatus = pResponseStatus_+    }   -- | The list of task definition family names that match the @ListTaskDefinitionFamilies@ request. ltdfrsFamilies :: Lens' ListTaskDefinitionFamiliesResponse [Text]-ltdfrsFamilies = lens _ltdfrsFamilies (\ s a -> s{_ltdfrsFamilies = a}) . _Default . _Coerce;+ltdfrsFamilies = lens _ltdfrsFamilies (\ s a -> s{_ltdfrsFamilies = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @ListTaskDefinitionFamilies@ request. When the results of a @ListTaskDefinitionFamilies@ 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. ltdfrsNextToken :: Lens' ListTaskDefinitionFamiliesResponse (Maybe Text)-ltdfrsNextToken = lens _ltdfrsNextToken (\ s a -> s{_ltdfrsNextToken = a});+ltdfrsNextToken = lens _ltdfrsNextToken (\ s a -> s{_ltdfrsNextToken = a})  -- | -- | The response status code. ltdfrsResponseStatus :: Lens' ListTaskDefinitionFamiliesResponse Int-ltdfrsResponseStatus = lens _ltdfrsResponseStatus (\ s a -> s{_ltdfrsResponseStatus = a});+ltdfrsResponseStatus = lens _ltdfrsResponseStatus (\ s a -> s{_ltdfrsResponseStatus = a})  instance NFData ListTaskDefinitionFamiliesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.ListTaskDefinitions--- 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,7 +70,7 @@ -- -- * 'ltdFamilyPrefix' - The full family name with which to filter the @ListTaskDefinitions@ results. Specifying a @familyPrefix@ limits the listed task definitions to task definition revisions that belong to that family. ----- * 'ltdNextToken' - The @nextToken@ value returned from a previous paginated @ListTaskDefinitions@ 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.+-- * 'ltdNextToken' - The @nextToken@ value returned from a previous paginated @ListTaskDefinitions@ 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. -- -- * 'ltdSort' - The order in which to sort the results. Valid values are @ASC@ and @DESC@ . By default (@ASC@ ), task definitions are listed lexicographically by family name and in ascending numerical order by revision so that the newest task definitions in a family are listed last. Setting this parameter to @DESC@ reverses the sort order on family name and revision so that the newest task definitions in a family are listed first. --@@ -79,33 +79,33 @@     :: ListTaskDefinitions listTaskDefinitions =   ListTaskDefinitions'-  { _ltdStatus = Nothing-  , _ltdFamilyPrefix = Nothing-  , _ltdNextToken = Nothing-  , _ltdSort = Nothing-  , _ltdMaxResults = Nothing-  }+    { _ltdStatus = Nothing+    , _ltdFamilyPrefix = Nothing+    , _ltdNextToken = Nothing+    , _ltdSort = Nothing+    , _ltdMaxResults = Nothing+    }   -- | The task definition status with which to filter the @ListTaskDefinitions@ results. By default, only @ACTIVE@ task definitions are listed. By setting this parameter to @INACTIVE@ , you can view task definitions that are @INACTIVE@ as long as an active task or service still references them. If you paginate the resulting output, be sure to keep the @status@ value constant in each subsequent request. ltdStatus :: Lens' ListTaskDefinitions (Maybe TaskDefinitionStatus)-ltdStatus = lens _ltdStatus (\ s a -> s{_ltdStatus = a});+ltdStatus = lens _ltdStatus (\ s a -> s{_ltdStatus = a})  -- | The full family name with which to filter the @ListTaskDefinitions@ results. Specifying a @familyPrefix@ limits the listed task definitions to task definition revisions that belong to that family. ltdFamilyPrefix :: Lens' ListTaskDefinitions (Maybe Text)-ltdFamilyPrefix = lens _ltdFamilyPrefix (\ s a -> s{_ltdFamilyPrefix = a});+ltdFamilyPrefix = lens _ltdFamilyPrefix (\ s a -> s{_ltdFamilyPrefix = a}) --- | The @nextToken@ value returned from a previous paginated @ListTaskDefinitions@ 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.+-- | The @nextToken@ value returned from a previous paginated @ListTaskDefinitions@ 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. ltdNextToken :: Lens' ListTaskDefinitions (Maybe Text)-ltdNextToken = lens _ltdNextToken (\ s a -> s{_ltdNextToken = a});+ltdNextToken = lens _ltdNextToken (\ s a -> s{_ltdNextToken = a})  -- | The order in which to sort the results. Valid values are @ASC@ and @DESC@ . By default (@ASC@ ), task definitions are listed lexicographically by family name and in ascending numerical order by revision so that the newest task definitions in a family are listed last. Setting this parameter to @DESC@ reverses the sort order on family name and revision so that the newest task definitions in a family are listed first. ltdSort :: Lens' ListTaskDefinitions (Maybe SortOrder)-ltdSort = lens _ltdSort (\ s a -> s{_ltdSort = a});+ltdSort = lens _ltdSort (\ s a -> s{_ltdSort = a})  -- | The maximum number of task definition results returned by @ListTaskDefinitions@ in paginated output. When this parameter is used, @ListTaskDefinitions@ 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 @ListTaskDefinitions@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListTaskDefinitions@ returns up to 100 results and a @nextToken@ value if applicable. ltdMaxResults :: Lens' ListTaskDefinitions (Maybe Int)-ltdMaxResults = lens _ltdMaxResults (\ s a -> s{_ltdMaxResults = a});+ltdMaxResults = lens _ltdMaxResults (\ s a -> s{_ltdMaxResults = a})  instance AWSPager ListTaskDefinitions where         page rq rs@@ -178,22 +178,22 @@     -> ListTaskDefinitionsResponse listTaskDefinitionsResponse pResponseStatus_ =   ListTaskDefinitionsResponse'-  { _ltdrsTaskDefinitionARNs = Nothing-  , _ltdrsNextToken = Nothing-  , _ltdrsResponseStatus = pResponseStatus_-  }+    { _ltdrsTaskDefinitionARNs = Nothing+    , _ltdrsNextToken = Nothing+    , _ltdrsResponseStatus = pResponseStatus_+    }   -- | The list of task definition Amazon Resource Name (ARN) entries for the @ListTaskDefinitions@ request. ltdrsTaskDefinitionARNs :: Lens' ListTaskDefinitionsResponse [Text]-ltdrsTaskDefinitionARNs = lens _ltdrsTaskDefinitionARNs (\ s a -> s{_ltdrsTaskDefinitionARNs = a}) . _Default . _Coerce;+ltdrsTaskDefinitionARNs = lens _ltdrsTaskDefinitionARNs (\ s a -> s{_ltdrsTaskDefinitionARNs = a}) . _Default . _Coerce  -- | The @nextToken@ value to include in a future @ListTaskDefinitions@ request. When the results of a @ListTaskDefinitions@ 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. ltdrsNextToken :: Lens' ListTaskDefinitionsResponse (Maybe Text)-ltdrsNextToken = lens _ltdrsNextToken (\ s a -> s{_ltdrsNextToken = a});+ltdrsNextToken = lens _ltdrsNextToken (\ s a -> s{_ltdrsNextToken = a})  -- | -- | The response status code. ltdrsResponseStatus :: Lens' ListTaskDefinitionsResponse Int-ltdrsResponseStatus = lens _ltdrsResponseStatus (\ s a -> s{_ltdrsResponseStatus = a});+ltdrsResponseStatus = lens _ltdrsResponseStatus (\ s a -> s{_ltdrsResponseStatus = a})  instance NFData ListTaskDefinitionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.ListTasks--- 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,7 +21,7 @@ -- Returns a list of tasks for a specified cluster. You can filter the results by family name, by a particular container instance, or by the desired status of the task with the @family@ , @containerInstance@ , and @desiredStatus@ parameters. -- ----- Recently-stopped tasks might appear in the returned results. Currently, stopped tasks appear in the returned results for at least one hour.+-- Recently stopped tasks might appear in the returned results. Currently, stopped tasks appear in the returned results for at least one hour. -- -- -- This operation returns paginated results.@@ -37,6 +37,7 @@     , ltNextToken     , ltStartedBy     , ltServiceName+    , ltLaunchType     , ltContainerInstance     , ltMaxResults @@ -65,6 +66,7 @@   , _ltNextToken         :: !(Maybe Text)   , _ltStartedBy         :: !(Maybe Text)   , _ltServiceName       :: !(Maybe Text)+  , _ltLaunchType        :: !(Maybe LaunchType)   , _ltContainerInstance :: !(Maybe Text)   , _ltMaxResults        :: !(Maybe Int)   } deriving (Eq, Read, Show, Data, Typeable, Generic)@@ -74,67 +76,74 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltDesiredStatus' - The task desired status with which to filter the @ListTasks@ results. Specifying a @desiredStatus@ of @STOPPED@ limits the results to tasks that ECS has set the desired status to @STOPPED@ , which can be useful for debugging tasks that are not starting properly or have died or finished. The default status filter is @RUNNING@ , which shows tasks that ECS has set the desired status to @RUNNING@ .+-- * 'ltDesiredStatus' - The task desired status with which to filter the @ListTasks@ results. Specifying a @desiredStatus@ of @STOPPED@ limits the results to tasks that Amazon ECS has set the desired status to @STOPPED@ , which can be useful for debugging tasks that are not starting properly or have died or finished. The default status filter is @RUNNING@ , which shows tasks that Amazon ECS has set the desired status to @RUNNING@ . -- -- * 'ltCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that hosts the tasks to list. If you do not specify a cluster, the default cluster is assumed. -- -- * 'ltFamily' - The name of the family with which to filter the @ListTasks@ results. Specifying a @family@ limits the results to tasks that belong to that family. ----- * 'ltNextToken' - The @nextToken@ value returned from a previous paginated @ListTasks@ 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.+-- * 'ltNextToken' - The @nextToken@ value returned from a previous paginated @ListTasks@ 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. -- -- * 'ltStartedBy' - The @startedBy@ value with which to filter the task results. Specifying a @startedBy@ value limits the results to tasks that were started with that value. -- -- * 'ltServiceName' - The name of the service with which to filter the @ListTasks@ results. Specifying a @serviceName@ limits the results to tasks that belong to that service. ----- * 'ltContainerInstance' - The container instance ID or full Amazon Resource Name (ARN) of the container instance with which to filter the @ListTasks@ results. Specifying a @containerInstance@ limits the results to tasks that belong to that container instance.+-- * 'ltLaunchType' - The launch type for services you want to list. --+-- * 'ltContainerInstance' - The container instance ID or full ARN of the container instance with which to filter the @ListTasks@ results. Specifying a @containerInstance@ limits the results to tasks that belong to that container instance.+-- -- * 'ltMaxResults' - The maximum number of task results returned by @ListTasks@ in paginated output. When this parameter is used, @ListTasks@ 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 @ListTasks@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListTasks@ returns up to 100 results and a @nextToken@ value if applicable. listTasks     :: ListTasks listTasks =   ListTasks'-  { _ltDesiredStatus = Nothing-  , _ltCluster = Nothing-  , _ltFamily = Nothing-  , _ltNextToken = Nothing-  , _ltStartedBy = Nothing-  , _ltServiceName = Nothing-  , _ltContainerInstance = Nothing-  , _ltMaxResults = Nothing-  }+    { _ltDesiredStatus = Nothing+    , _ltCluster = Nothing+    , _ltFamily = Nothing+    , _ltNextToken = Nothing+    , _ltStartedBy = Nothing+    , _ltServiceName = Nothing+    , _ltLaunchType = Nothing+    , _ltContainerInstance = Nothing+    , _ltMaxResults = Nothing+    }  --- | The task desired status with which to filter the @ListTasks@ results. Specifying a @desiredStatus@ of @STOPPED@ limits the results to tasks that ECS has set the desired status to @STOPPED@ , which can be useful for debugging tasks that are not starting properly or have died or finished. The default status filter is @RUNNING@ , which shows tasks that ECS has set the desired status to @RUNNING@ .+-- | The task desired status with which to filter the @ListTasks@ results. Specifying a @desiredStatus@ of @STOPPED@ limits the results to tasks that Amazon ECS has set the desired status to @STOPPED@ , which can be useful for debugging tasks that are not starting properly or have died or finished. The default status filter is @RUNNING@ , which shows tasks that Amazon ECS has set the desired status to @RUNNING@ . ltDesiredStatus :: Lens' ListTasks (Maybe DesiredStatus)-ltDesiredStatus = lens _ltDesiredStatus (\ s a -> s{_ltDesiredStatus = a});+ltDesiredStatus = lens _ltDesiredStatus (\ s a -> s{_ltDesiredStatus = a})  -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the tasks to list. If you do not specify a cluster, the default cluster is assumed. ltCluster :: Lens' ListTasks (Maybe Text)-ltCluster = lens _ltCluster (\ s a -> s{_ltCluster = a});+ltCluster = lens _ltCluster (\ s a -> s{_ltCluster = a})  -- | The name of the family with which to filter the @ListTasks@ results. Specifying a @family@ limits the results to tasks that belong to that family. ltFamily :: Lens' ListTasks (Maybe Text)-ltFamily = lens _ltFamily (\ s a -> s{_ltFamily = a});+ltFamily = lens _ltFamily (\ s a -> s{_ltFamily = a}) --- | The @nextToken@ value returned from a previous paginated @ListTasks@ 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.+-- | The @nextToken@ value returned from a previous paginated @ListTasks@ 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. ltNextToken :: Lens' ListTasks (Maybe Text)-ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a});+ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a})  -- | The @startedBy@ value with which to filter the task results. Specifying a @startedBy@ value limits the results to tasks that were started with that value. ltStartedBy :: Lens' ListTasks (Maybe Text)-ltStartedBy = lens _ltStartedBy (\ s a -> s{_ltStartedBy = a});+ltStartedBy = lens _ltStartedBy (\ s a -> s{_ltStartedBy = a})  -- | The name of the service with which to filter the @ListTasks@ results. Specifying a @serviceName@ limits the results to tasks that belong to that service. ltServiceName :: Lens' ListTasks (Maybe Text)-ltServiceName = lens _ltServiceName (\ s a -> s{_ltServiceName = a});+ltServiceName = lens _ltServiceName (\ s a -> s{_ltServiceName = a}) --- | The container instance ID or full Amazon Resource Name (ARN) of the container instance with which to filter the @ListTasks@ results. Specifying a @containerInstance@ limits the results to tasks that belong to that container instance.+-- | The launch type for services you want to list.+ltLaunchType :: Lens' ListTasks (Maybe LaunchType)+ltLaunchType = lens _ltLaunchType (\ s a -> s{_ltLaunchType = a})++-- | The container instance ID or full ARN of the container instance with which to filter the @ListTasks@ results. Specifying a @containerInstance@ limits the results to tasks that belong to that container instance. ltContainerInstance :: Lens' ListTasks (Maybe Text)-ltContainerInstance = lens _ltContainerInstance (\ s a -> s{_ltContainerInstance = a});+ltContainerInstance = lens _ltContainerInstance (\ s a -> s{_ltContainerInstance = a})  -- | The maximum number of task results returned by @ListTasks@ in paginated output. When this parameter is used, @ListTasks@ 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 @ListTasks@ request with the returned @nextToken@ value. This value can be between 1 and 100. If this parameter is not used, then @ListTasks@ returns up to 100 results and a @nextToken@ value if applicable. ltMaxResults :: Lens' ListTasks (Maybe Int)-ltMaxResults = lens _ltMaxResults (\ s a -> s{_ltMaxResults = a});+ltMaxResults = lens _ltMaxResults (\ s a -> s{_ltMaxResults = a})  instance AWSPager ListTasks where         page rq rs@@ -177,6 +186,7 @@                   ("nextToken" .=) <$> _ltNextToken,                   ("startedBy" .=) <$> _ltStartedBy,                   ("serviceName" .=) <$> _ltServiceName,+                  ("launchType" .=) <$> _ltLaunchType,                   ("containerInstance" .=) <$> _ltContainerInstance,                   ("maxResults" .=) <$> _ltMaxResults]) @@ -200,7 +210,7 @@ -- -- * 'ltrsNextToken' - The @nextToken@ value to include in a future @ListTasks@ request. When the results of a @ListTasks@ 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. ----- * 'ltrsTaskARNs' - The list of task Amazon Resource Name (ARN) entries for the @ListTasks@ request.+-- * 'ltrsTaskARNs' - The list of task ARN entries for the @ListTasks@ request. -- -- * 'ltrsResponseStatus' - -- | The response status code. listTasksResponse@@ -208,22 +218,22 @@     -> ListTasksResponse listTasksResponse pResponseStatus_ =   ListTasksResponse'-  { _ltrsNextToken = Nothing-  , _ltrsTaskARNs = Nothing-  , _ltrsResponseStatus = pResponseStatus_-  }+    { _ltrsNextToken = Nothing+    , _ltrsTaskARNs = Nothing+    , _ltrsResponseStatus = pResponseStatus_+    }   -- | The @nextToken@ value to include in a future @ListTasks@ request. When the results of a @ListTasks@ 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. ltrsNextToken :: Lens' ListTasksResponse (Maybe Text)-ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a}) --- | The list of task Amazon Resource Name (ARN) entries for the @ListTasks@ request.+-- | The list of task ARN entries for the @ListTasks@ request. ltrsTaskARNs :: Lens' ListTasksResponse [Text]-ltrsTaskARNs = lens _ltrsTaskARNs (\ s a -> s{_ltrsTaskARNs = a}) . _Default . _Coerce;+ltrsTaskARNs = lens _ltrsTaskARNs (\ s a -> s{_ltrsTaskARNs = a}) . _Default . _Coerce  -- | -- | The response status code. ltrsResponseStatus :: Lens' ListTasksResponse Int-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})  instance NFData ListTasksResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.ECS.PutAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Create or update an attribute on an Amazon ECS resource. If the attribute does not exist, it is created. If the attribute exists, its value is replaced with the specified value. To delete an attribute, use 'DeleteAttributes' . For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-constraints.html#attributes Attributes> in the /Amazon EC2 Container Service Developer Guide/ .+-- Create or update an attribute on an Amazon ECS resource. If the attribute does not exist, it is created. If the attribute exists, its value is replaced with the specified value. To delete an attribute, use 'DeleteAttributes' . For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-constraints.html#attributes Attributes> in the /Amazon Elastic Container Service Developer Guide/ . -- -- module Network.AWS.ECS.PutAttributes@@ -66,11 +66,11 @@  -- | The short name or full Amazon Resource Name (ARN) of the cluster that contains the resource to apply attributes. If you do not specify a cluster, the default cluster is assumed. paCluster :: Lens' PutAttributes (Maybe Text)-paCluster = lens _paCluster (\ s a -> s{_paCluster = a});+paCluster = lens _paCluster (\ s a -> s{_paCluster = a})  -- | The attributes to apply to your resource. You can specify up to 10 custom attributes per resource. You can specify up to 10 attributes in a single call. paAttributes :: Lens' PutAttributes [Attribute]-paAttributes = lens _paAttributes (\ s a -> s{_paAttributes = a}) . _Coerce;+paAttributes = lens _paAttributes (\ s a -> s{_paAttributes = a}) . _Coerce  instance AWSRequest PutAttributes where         type Rs PutAttributes = PutAttributesResponse@@ -128,15 +128,15 @@     -> PutAttributesResponse putAttributesResponse pResponseStatus_ =   PutAttributesResponse'-  {_parsAttributes = Nothing, _parsResponseStatus = pResponseStatus_}+    {_parsAttributes = Nothing, _parsResponseStatus = pResponseStatus_}   -- | The attributes applied to your resource. parsAttributes :: Lens' PutAttributesResponse [Attribute]-parsAttributes = lens _parsAttributes (\ s a -> s{_parsAttributes = a}) . _Default . _Coerce;+parsAttributes = lens _parsAttributes (\ s a -> s{_parsAttributes = a}) . _Default . _Coerce  -- | -- | The response status code. parsResponseStatus :: Lens' PutAttributesResponse Int-parsResponseStatus = lens _parsResponseStatus (\ s a -> s{_parsResponseStatus = a});+parsResponseStatus = lens _parsResponseStatus (\ s a -> s{_parsResponseStatus = a})  instance NFData PutAttributesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.RegisterContainerInstance--- 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@@ -72,7 +72,7 @@ -- -- * 'rciInstanceIdentityDocument' - The instance identity document for the EC2 instance to register. This document can be found by running the following command from the instance: @curl http://169.254.169.254/latest/dynamic/instance-identity/document/@ ----- * 'rciContainerInstanceARN' - The Amazon Resource Name (ARN) of the container instance (if it was previously registered).+-- * 'rciContainerInstanceARN' - The ARN of the container instance (if it was previously registered). -- -- * 'rciVersionInfo' - The version information for the Amazon ECS container agent and Docker daemon running on the container instance. --@@ -83,43 +83,43 @@     :: RegisterContainerInstance registerContainerInstance =   RegisterContainerInstance'-  { _rciInstanceIdentityDocumentSignature = Nothing-  , _rciCluster = Nothing-  , _rciInstanceIdentityDocument = Nothing-  , _rciContainerInstanceARN = Nothing-  , _rciVersionInfo = Nothing-  , _rciAttributes = Nothing-  , _rciTotalResources = Nothing-  }+    { _rciInstanceIdentityDocumentSignature = Nothing+    , _rciCluster = Nothing+    , _rciInstanceIdentityDocument = Nothing+    , _rciContainerInstanceARN = Nothing+    , _rciVersionInfo = Nothing+    , _rciAttributes = Nothing+    , _rciTotalResources = Nothing+    }   -- | The instance identity document signature for the EC2 instance to register. This signature can be found by running the following command from the instance: @curl http://169.254.169.254/latest/dynamic/instance-identity/signature/@ rciInstanceIdentityDocumentSignature :: Lens' RegisterContainerInstance (Maybe Text)-rciInstanceIdentityDocumentSignature = lens _rciInstanceIdentityDocumentSignature (\ s a -> s{_rciInstanceIdentityDocumentSignature = a});+rciInstanceIdentityDocumentSignature = lens _rciInstanceIdentityDocumentSignature (\ s a -> s{_rciInstanceIdentityDocumentSignature = a})  -- | The short name or full Amazon Resource Name (ARN) of the cluster with which to register your container instance. If you do not specify a cluster, the default cluster is assumed. rciCluster :: Lens' RegisterContainerInstance (Maybe Text)-rciCluster = lens _rciCluster (\ s a -> s{_rciCluster = a});+rciCluster = lens _rciCluster (\ s a -> s{_rciCluster = a})  -- | The instance identity document for the EC2 instance to register. This document can be found by running the following command from the instance: @curl http://169.254.169.254/latest/dynamic/instance-identity/document/@ rciInstanceIdentityDocument :: Lens' RegisterContainerInstance (Maybe Text)-rciInstanceIdentityDocument = lens _rciInstanceIdentityDocument (\ s a -> s{_rciInstanceIdentityDocument = a});+rciInstanceIdentityDocument = lens _rciInstanceIdentityDocument (\ s a -> s{_rciInstanceIdentityDocument = a}) --- | The Amazon Resource Name (ARN) of the container instance (if it was previously registered).+-- | The ARN of the container instance (if it was previously registered). rciContainerInstanceARN :: Lens' RegisterContainerInstance (Maybe Text)-rciContainerInstanceARN = lens _rciContainerInstanceARN (\ s a -> s{_rciContainerInstanceARN = a});+rciContainerInstanceARN = lens _rciContainerInstanceARN (\ s a -> s{_rciContainerInstanceARN = a})  -- | The version information for the Amazon ECS container agent and Docker daemon running on the container instance. rciVersionInfo :: Lens' RegisterContainerInstance (Maybe VersionInfo)-rciVersionInfo = lens _rciVersionInfo (\ s a -> s{_rciVersionInfo = a});+rciVersionInfo = lens _rciVersionInfo (\ s a -> s{_rciVersionInfo = a})  -- | The container instance attributes that this container instance supports. rciAttributes :: Lens' RegisterContainerInstance [Attribute]-rciAttributes = lens _rciAttributes (\ s a -> s{_rciAttributes = a}) . _Default . _Coerce;+rciAttributes = lens _rciAttributes (\ s a -> s{_rciAttributes = a}) . _Default . _Coerce  -- | The resources available on the instance. rciTotalResources :: Lens' RegisterContainerInstance [Resource]-rciTotalResources = lens _rciTotalResources (\ s a -> s{_rciTotalResources = a}) . _Default . _Coerce;+rciTotalResources = lens _rciTotalResources (\ s a -> s{_rciTotalResources = a}) . _Default . _Coerce  instance AWSRequest RegisterContainerInstance where         type Rs RegisterContainerInstance =@@ -185,16 +185,16 @@     -> RegisterContainerInstanceResponse registerContainerInstanceResponse pResponseStatus_ =   RegisterContainerInstanceResponse'-  {_rcirsContainerInstance = Nothing, _rcirsResponseStatus = pResponseStatus_}+    {_rcirsContainerInstance = Nothing, _rcirsResponseStatus = pResponseStatus_}   -- | The container instance that was registered. rcirsContainerInstance :: Lens' RegisterContainerInstanceResponse (Maybe ContainerInstance)-rcirsContainerInstance = lens _rcirsContainerInstance (\ s a -> s{_rcirsContainerInstance = a});+rcirsContainerInstance = lens _rcirsContainerInstance (\ s a -> s{_rcirsContainerInstance = a})  -- | -- | The response status code. rcirsResponseStatus :: Lens' RegisterContainerInstanceResponse Int-rcirsResponseStatus = lens _rcirsResponseStatus (\ s a -> s{_rcirsResponseStatus = a});+rcirsResponseStatus = lens _rcirsResponseStatus (\ s a -> s{_rcirsResponseStatus = a})  instance NFData RegisterContainerInstanceResponse          where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.ECS.RegisterTaskDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Registers a new task definition from the supplied @family@ and @containerDefinitions@ . Optionally, you can add data volumes to your containers with the @volumes@ parameter. For more information about task definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Amazon ECS Task Definitions> in the /Amazon EC2 Container Service Developer Guide/ .+-- Registers a new task definition from the supplied @family@ and @containerDefinitions@ . Optionally, you can add data volumes to your containers with the @volumes@ parameter. For more information about task definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Amazon ECS Task Definitions> in the /Amazon Elastic Container Service Developer Guide/ . -- ----- You can specify an IAM role for your task with the @taskRoleArn@ parameter. When you specify an IAM role for a task, its containers can then use the latest versions of the AWS CLI or SDKs to make API requests to the AWS services that are specified in the IAM policy associated with the role. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-iam-roles.html IAM Roles for Tasks> in the /Amazon EC2 Container Service Developer Guide/ .+-- You can specify an IAM role for your task with the @taskRoleArn@ parameter. When you specify an IAM role for a task, its containers can then use the latest versions of the AWS CLI or SDKs to make API requests to the AWS services that are specified in the IAM policy associated with the role. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-iam-roles.html IAM Roles for Tasks> in the /Amazon Elastic Container Service Developer Guide/ . ----- You can specify a Docker networking mode for the containers in your task definition with the @networkMode@ parameter. The available network modes correspond to those described in <https://docs.docker.com/engine/reference/run/#/network-settings Network settings> in the Docker run reference.+-- You can specify a Docker networking mode for the containers in your task definition with the @networkMode@ parameter. The available network modes correspond to those described in <https://docs.docker.com/engine/reference/run/#/network-settings Network settings> in the Docker run reference. If you specify the @awsvpc@ network mode, the task is allocated an Elastic Network Interface, and you must specify a 'NetworkConfiguration' when you create a service or run a task with the task definition. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-networking.html Task Networking> in the /Amazon Elastic Container Service Developer Guide/ . -- module Network.AWS.ECS.RegisterTaskDefinition     (@@ -31,10 +31,14 @@       registerTaskDefinition     , RegisterTaskDefinition     -- * Request Lenses+    , rtdExecutionRoleARN+    , rtdRequiresCompatibilities+    , rtdMemory     , rtdTaskRoleARN     , rtdPlacementConstraints     , rtdNetworkMode     , rtdVolumes+    , rtdCpu     , rtdFamily     , rtdContainerDefinitions @@ -55,12 +59,16 @@  -- | /See:/ 'registerTaskDefinition' smart constructor. data RegisterTaskDefinition = RegisterTaskDefinition'-  { _rtdTaskRoleARN          :: !(Maybe Text)-  , _rtdPlacementConstraints :: !(Maybe [TaskDefinitionPlacementConstraint])-  , _rtdNetworkMode          :: !(Maybe NetworkMode)-  , _rtdVolumes              :: !(Maybe [Volume])-  , _rtdFamily               :: !Text-  , _rtdContainerDefinitions :: ![ContainerDefinition]+  { _rtdExecutionRoleARN        :: !(Maybe Text)+  , _rtdRequiresCompatibilities :: !(Maybe [Compatibility])+  , _rtdMemory                  :: !(Maybe Text)+  , _rtdTaskRoleARN             :: !(Maybe Text)+  , _rtdPlacementConstraints    :: !(Maybe [TaskDefinitionPlacementConstraint])+  , _rtdNetworkMode             :: !(Maybe NetworkMode)+  , _rtdVolumes                 :: !(Maybe [Volume])+  , _rtdCpu                     :: !(Maybe Text)+  , _rtdFamily                  :: !Text+  , _rtdContainerDefinitions    :: ![ContainerDefinition]   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -68,14 +76,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rtdTaskRoleARN' - The short name or full Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-iam-roles.html IAM Roles for Tasks> in the /Amazon EC2 Container Service Developer Guide/ .+-- * 'rtdExecutionRoleARN' - The Amazon Resource Name (ARN) of the task execution role that the Amazon ECS container agent and the Docker daemon can assume. --+-- * 'rtdRequiresCompatibilities' - The launch type required by the task. If no value is specified, it defaults to @EC2@ .+--+-- * 'rtdMemory' - The amount of memory (in MiB) used by the task. It can be expressed as an integer using MiB, for example @1024@ , or as a string using GB, for example @1GB@ or @1 GB@ , in a task definition but will be converted to an integer indicating the MiB when the task definition is registered. If using the EC2 launch type, this field is optional. If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of supported values for the @cpu@ parameter:     * 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB) - Available @cpu@ values: 256 (.25 vCPU)     * 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB) - Available @cpu@ values: 512 (.5 vCPU)     * 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB) - Available @cpu@ values: 1024 (1 vCPU)     * Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 2048 (2 vCPU)     * Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 4096 (4 vCPU)+--+-- * 'rtdTaskRoleARN' - The short name or full Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-iam-roles.html IAM Roles for Tasks> in the /Amazon Elastic Container Service Developer Guide/ .+-- -- * 'rtdPlacementConstraints' - An array of placement constraint objects to use for the task. You can specify a maximum of 10 constraints per task (this limit includes constraints in the task definition and those specified at run time). ----- * 'rtdNetworkMode' - The Docker networking mode to use for the containers in the task. The valid values are @none@ , @bridge@ , and @host@ .  The default Docker network mode is @bridge@ . If the network mode is set to @none@ , you cannot specify port mappings in your container definitions, and the task's containers do not have external connectivity. The @host@ network mode offers the highest networking performance for containers because they use the host network stack instead of the virtualized network stack provided by the @bridge@ mode; however, exposed container ports are mapped directly to the corresponding host port, so you cannot take advantage of dynamic host port mappings or run multiple instantiations of the same task on a single container instance if port mappings are used. For more information, see <https://docs.docker.com/engine/reference/run/#network-settings Network settings> in the /Docker run reference/ .+-- * 'rtdNetworkMode' - The Docker networking mode to use for the containers in the task. The valid values are @none@ , @bridge@ , @awsvpc@ , and @host@ . The default Docker network mode is @bridge@ . If using the Fargate launch type, the @awsvpc@ network mode is required. If using the EC2 launch type, any network mode can be used. If the network mode is set to @none@ , you can't specify port mappings in your container definitions, and the task's containers do not have external connectivity. The @host@ and @awsvpc@ network modes offer the highest networking performance for containers because they use the EC2 network stack instead of the virtualized network stack provided by the @bridge@ mode. With the @host@ and @awsvpc@ network modes, exposed container ports are mapped directly to the corresponding host port (for the @host@ network mode) or the attached elastic network interface port (for the @awsvpc@ network mode), so you cannot take advantage of dynamic host port mappings.  If the network mode is @awsvpc@ , the task is allocated an Elastic Network Interface, and you must specify a 'NetworkConfiguration' when you create a service or run a task with the task definition. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-networking.html Task Networking> in the /Amazon Elastic Container Service Developer Guide/ . If the network mode is @host@ , you can't run multiple instantiations of the same task on a single container instance when port mappings are used. Docker for Windows uses different network modes than Docker for Linux. When you register a task definition with Windows containers, you must not specify a network mode. For more information, see <https://docs.docker.com/engine/reference/run/#network-settings Network settings> in the /Docker run reference/ . -- -- * 'rtdVolumes' - A list of volume definitions in JSON format that containers in your task may use. --+-- * 'rtdCpu' - The number of CPU units used by the task. It can be expressed as an integer using CPU units, for example @1024@ , or as a string using vCPUs, for example @1 vCPU@ or @1 vcpu@ , in a task definition but will be converted to an integer indicating the CPU units when the task definition is registered. If using the EC2 launch type, this field is optional. Supported values are between @128@ CPU units (@0.125@ vCPUs) and @10240@ CPU units (@10@ vCPUs). If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of supported values for the @memory@ parameter:     * 256 (.25 vCPU) - Available @memory@ values: 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB)     * 512 (.5 vCPU) - Available @memory@ values: 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB)     * 1024 (1 vCPU) - Available @memory@ values: 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB)     * 2048 (2 vCPU) - Available @memory@ values: Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB)     * 4096 (4 vCPU) - Available @memory@ values: Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB)+-- -- * 'rtdFamily' - You must specify a @family@ for a task definition, which allows you to track multiple versions of the same task definition. The @family@ is used as a name for your task definition. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. -- -- * 'rtdContainerDefinitions' - A list of container definitions in JSON format that describe the different containers that make up your task.@@ -84,38 +100,58 @@     -> RegisterTaskDefinition registerTaskDefinition pFamily_ =   RegisterTaskDefinition'-  { _rtdTaskRoleARN = Nothing-  , _rtdPlacementConstraints = Nothing-  , _rtdNetworkMode = Nothing-  , _rtdVolumes = Nothing-  , _rtdFamily = pFamily_-  , _rtdContainerDefinitions = mempty-  }+    { _rtdExecutionRoleARN = Nothing+    , _rtdRequiresCompatibilities = Nothing+    , _rtdMemory = Nothing+    , _rtdTaskRoleARN = Nothing+    , _rtdPlacementConstraints = Nothing+    , _rtdNetworkMode = Nothing+    , _rtdVolumes = Nothing+    , _rtdCpu = Nothing+    , _rtdFamily = pFamily_+    , _rtdContainerDefinitions = mempty+    }  --- | The short name or full Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-iam-roles.html IAM Roles for Tasks> in the /Amazon EC2 Container Service Developer Guide/ .+-- | The Amazon Resource Name (ARN) of the task execution role that the Amazon ECS container agent and the Docker daemon can assume.+rtdExecutionRoleARN :: Lens' RegisterTaskDefinition (Maybe Text)+rtdExecutionRoleARN = lens _rtdExecutionRoleARN (\ s a -> s{_rtdExecutionRoleARN = a})++-- | The launch type required by the task. If no value is specified, it defaults to @EC2@ .+rtdRequiresCompatibilities :: Lens' RegisterTaskDefinition [Compatibility]+rtdRequiresCompatibilities = lens _rtdRequiresCompatibilities (\ s a -> s{_rtdRequiresCompatibilities = a}) . _Default . _Coerce++-- | The amount of memory (in MiB) used by the task. It can be expressed as an integer using MiB, for example @1024@ , or as a string using GB, for example @1GB@ or @1 GB@ , in a task definition but will be converted to an integer indicating the MiB when the task definition is registered. If using the EC2 launch type, this field is optional. If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of supported values for the @cpu@ parameter:     * 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB) - Available @cpu@ values: 256 (.25 vCPU)     * 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB) - Available @cpu@ values: 512 (.5 vCPU)     * 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB) - Available @cpu@ values: 1024 (1 vCPU)     * Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 2048 (2 vCPU)     * Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 4096 (4 vCPU)+rtdMemory :: Lens' RegisterTaskDefinition (Maybe Text)+rtdMemory = lens _rtdMemory (\ s a -> s{_rtdMemory = a})++-- | The short name or full Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-iam-roles.html IAM Roles for Tasks> in the /Amazon Elastic Container Service Developer Guide/ . rtdTaskRoleARN :: Lens' RegisterTaskDefinition (Maybe Text)-rtdTaskRoleARN = lens _rtdTaskRoleARN (\ s a -> s{_rtdTaskRoleARN = a});+rtdTaskRoleARN = lens _rtdTaskRoleARN (\ s a -> s{_rtdTaskRoleARN = a})  -- | An array of placement constraint objects to use for the task. You can specify a maximum of 10 constraints per task (this limit includes constraints in the task definition and those specified at run time). rtdPlacementConstraints :: Lens' RegisterTaskDefinition [TaskDefinitionPlacementConstraint]-rtdPlacementConstraints = lens _rtdPlacementConstraints (\ s a -> s{_rtdPlacementConstraints = a}) . _Default . _Coerce;+rtdPlacementConstraints = lens _rtdPlacementConstraints (\ s a -> s{_rtdPlacementConstraints = a}) . _Default . _Coerce --- | The Docker networking mode to use for the containers in the task. The valid values are @none@ , @bridge@ , and @host@ .  The default Docker network mode is @bridge@ . If the network mode is set to @none@ , you cannot specify port mappings in your container definitions, and the task's containers do not have external connectivity. The @host@ network mode offers the highest networking performance for containers because they use the host network stack instead of the virtualized network stack provided by the @bridge@ mode; however, exposed container ports are mapped directly to the corresponding host port, so you cannot take advantage of dynamic host port mappings or run multiple instantiations of the same task on a single container instance if port mappings are used. For more information, see <https://docs.docker.com/engine/reference/run/#network-settings Network settings> in the /Docker run reference/ .+-- | The Docker networking mode to use for the containers in the task. The valid values are @none@ , @bridge@ , @awsvpc@ , and @host@ . The default Docker network mode is @bridge@ . If using the Fargate launch type, the @awsvpc@ network mode is required. If using the EC2 launch type, any network mode can be used. If the network mode is set to @none@ , you can't specify port mappings in your container definitions, and the task's containers do not have external connectivity. The @host@ and @awsvpc@ network modes offer the highest networking performance for containers because they use the EC2 network stack instead of the virtualized network stack provided by the @bridge@ mode. With the @host@ and @awsvpc@ network modes, exposed container ports are mapped directly to the corresponding host port (for the @host@ network mode) or the attached elastic network interface port (for the @awsvpc@ network mode), so you cannot take advantage of dynamic host port mappings.  If the network mode is @awsvpc@ , the task is allocated an Elastic Network Interface, and you must specify a 'NetworkConfiguration' when you create a service or run a task with the task definition. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-networking.html Task Networking> in the /Amazon Elastic Container Service Developer Guide/ . If the network mode is @host@ , you can't run multiple instantiations of the same task on a single container instance when port mappings are used. Docker for Windows uses different network modes than Docker for Linux. When you register a task definition with Windows containers, you must not specify a network mode. For more information, see <https://docs.docker.com/engine/reference/run/#network-settings Network settings> in the /Docker run reference/ . rtdNetworkMode :: Lens' RegisterTaskDefinition (Maybe NetworkMode)-rtdNetworkMode = lens _rtdNetworkMode (\ s a -> s{_rtdNetworkMode = a});+rtdNetworkMode = lens _rtdNetworkMode (\ s a -> s{_rtdNetworkMode = a})  -- | A list of volume definitions in JSON format that containers in your task may use. rtdVolumes :: Lens' RegisterTaskDefinition [Volume]-rtdVolumes = lens _rtdVolumes (\ s a -> s{_rtdVolumes = a}) . _Default . _Coerce;+rtdVolumes = lens _rtdVolumes (\ s a -> s{_rtdVolumes = a}) . _Default . _Coerce +-- | The number of CPU units used by the task. It can be expressed as an integer using CPU units, for example @1024@ , or as a string using vCPUs, for example @1 vCPU@ or @1 vcpu@ , in a task definition but will be converted to an integer indicating the CPU units when the task definition is registered. If using the EC2 launch type, this field is optional. Supported values are between @128@ CPU units (@0.125@ vCPUs) and @10240@ CPU units (@10@ vCPUs). If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of supported values for the @memory@ parameter:     * 256 (.25 vCPU) - Available @memory@ values: 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB)     * 512 (.5 vCPU) - Available @memory@ values: 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB)     * 1024 (1 vCPU) - Available @memory@ values: 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB)     * 2048 (2 vCPU) - Available @memory@ values: Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB)     * 4096 (4 vCPU) - Available @memory@ values: Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB)+rtdCpu :: Lens' RegisterTaskDefinition (Maybe Text)+rtdCpu = lens _rtdCpu (\ s a -> s{_rtdCpu = a})+ -- | You must specify a @family@ for a task definition, which allows you to track multiple versions of the same task definition. The @family@ is used as a name for your task definition. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. rtdFamily :: Lens' RegisterTaskDefinition Text-rtdFamily = lens _rtdFamily (\ s a -> s{_rtdFamily = a});+rtdFamily = lens _rtdFamily (\ s a -> s{_rtdFamily = a})  -- | A list of container definitions in JSON format that describe the different containers that make up your task. rtdContainerDefinitions :: Lens' RegisterTaskDefinition [ContainerDefinition]-rtdContainerDefinitions = lens _rtdContainerDefinitions (\ s a -> s{_rtdContainerDefinitions = a}) . _Coerce;+rtdContainerDefinitions = lens _rtdContainerDefinitions (\ s a -> s{_rtdContainerDefinitions = a}) . _Coerce  instance AWSRequest RegisterTaskDefinition where         type Rs RegisterTaskDefinition =@@ -145,11 +181,16 @@         toJSON RegisterTaskDefinition'{..}           = object               (catMaybes-                 [("taskRoleArn" .=) <$> _rtdTaskRoleARN,+                 [("executionRoleArn" .=) <$> _rtdExecutionRoleARN,+                  ("requiresCompatibilities" .=) <$>+                    _rtdRequiresCompatibilities,+                  ("memory" .=) <$> _rtdMemory,+                  ("taskRoleArn" .=) <$> _rtdTaskRoleARN,                   ("placementConstraints" .=) <$>                     _rtdPlacementConstraints,                   ("networkMode" .=) <$> _rtdNetworkMode,                   ("volumes" .=) <$> _rtdVolumes,+                  ("cpu" .=) <$> _rtdCpu,                   Just ("family" .= _rtdFamily),                   Just                     ("containerDefinitions" .=@@ -180,15 +221,15 @@     -> RegisterTaskDefinitionResponse registerTaskDefinitionResponse pResponseStatus_ =   RegisterTaskDefinitionResponse'-  {_rtdrsTaskDefinition = Nothing, _rtdrsResponseStatus = pResponseStatus_}+    {_rtdrsTaskDefinition = Nothing, _rtdrsResponseStatus = pResponseStatus_}   -- | The full description of the registered task definition. rtdrsTaskDefinition :: Lens' RegisterTaskDefinitionResponse (Maybe TaskDefinition)-rtdrsTaskDefinition = lens _rtdrsTaskDefinition (\ s a -> s{_rtdrsTaskDefinition = a});+rtdrsTaskDefinition = lens _rtdrsTaskDefinition (\ s a -> s{_rtdrsTaskDefinition = a})  -- | -- | The response status code. rtdrsResponseStatus :: Lens' RegisterTaskDefinitionResponse Int-rtdrsResponseStatus = lens _rtdrsResponseStatus (\ s a -> s{_rtdrsResponseStatus = a});+rtdrsResponseStatus = lens _rtdrsResponseStatus (\ s a -> s{_rtdrsResponseStatus = a})  instance NFData RegisterTaskDefinitionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.RunTask--- 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,10 +21,20 @@ -- Starts a new task using the specified task definition. -- ----- You can allow Amazon ECS to place tasks for you, or you can customize how Amazon ECS places tasks using placement constraints and placement strategies. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/scheduling_tasks.html Scheduling Tasks> in the /Amazon EC2 Container Service Developer Guide/ .+-- You can allow Amazon ECS to place tasks for you, or you can customize how Amazon ECS places tasks using placement constraints and placement strategies. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/scheduling_tasks.html Scheduling Tasks> in the /Amazon Elastic Container Service Developer Guide/ . -- -- Alternatively, you can use 'StartTask' to use your own scheduler or place tasks manually on specific container instances. --+-- The Amazon ECS API follows an eventual consistency model, due to the distributed nature of the system supporting the API. This means that the result of an API command you run that affects your Amazon ECS resources might not be immediately visible to all subsequent commands you run. You should keep this in mind when you carry out an API command that immediately follows a previous API command.+--+-- To manage eventual consistency, you can do the following:+--+--     * Confirm the state of the resource before you run a command to modify it. Run the DescribeTasks command using an exponential backoff algorithm to ensure that you allow enough time for the previous command to propagate through the system. To do this, run the DescribeTasks command repeatedly, starting with a couple of seconds of wait time, and increasing gradually up to five minutes of wait time.+--+--     * Add wait time between subsequent commands, even if the DescribeTasks command returns an accurate response. Apply an exponential backoff algorithm starting with a couple of seconds of wait time, and increase gradually up to about five minutes of wait time.+--+--+-- module Network.AWS.ECS.RunTask     (     -- * Creating a Request@@ -34,10 +44,13 @@     , rtOverrides     , rtGroup     , rtCluster+    , rtPlatformVersion     , rtCount     , rtPlacementConstraints     , rtPlacementStrategy     , rtStartedBy+    , rtLaunchType+    , rtNetworkConfiguration     , rtTaskDefinition      -- * Destructuring the Response@@ -61,10 +74,13 @@   { _rtOverrides            :: !(Maybe TaskOverride)   , _rtGroup                :: !(Maybe Text)   , _rtCluster              :: !(Maybe Text)+  , _rtPlatformVersion      :: !(Maybe Text)   , _rtCount                :: !(Maybe Int)   , _rtPlacementConstraints :: !(Maybe [PlacementConstraint])   , _rtPlacementStrategy    :: !(Maybe [PlacementStrategy])   , _rtStartedBy            :: !(Maybe Text)+  , _rtLaunchType           :: !(Maybe LaunchType)+  , _rtNetworkConfiguration :: !(Maybe NetworkConfiguration)   , _rtTaskDefinition       :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -79,62 +95,83 @@ -- -- * 'rtCluster' - The short name or full Amazon Resource Name (ARN) of the cluster on which to run your task. If you do not specify a cluster, the default cluster is assumed. --+-- * 'rtPlatformVersion' - The platform version on which to run your task. If one is not specified, the latest version is used by default.+-- -- * 'rtCount' - The number of instantiations of the specified task to place on your cluster. You can specify up to 10 tasks per call. -- -- * 'rtPlacementConstraints' - An array of placement constraint objects to use for the task. You can specify up to 10 constraints per task (including constraints in the task definition and those specified at run time). ----- * 'rtPlacementStrategy' - The placement strategy objects to use for the task. You can specify a maximum of 5 strategy rules per task.+-- * 'rtPlacementStrategy' - The placement strategy objects to use for the task. You can specify a maximum of five strategy rules per task. -- -- * 'rtStartedBy' - An optional tag specified when a task is started. For example if you automatically trigger a task to run a batch process job, you could apply a unique identifier for that job to your task with the @startedBy@ parameter. You can then identify which tasks belong to that job by filtering the results of a 'ListTasks' call with the @startedBy@ value. Up to 36 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. If a task is started by an Amazon ECS service, then the @startedBy@ parameter contains the deployment ID of the service that starts it. ----- * 'rtTaskDefinition' - The @family@ and @revision@ (@family:revision@ ) or full Amazon Resource Name (ARN) of the task definition to run. If a @revision@ is not specified, the latest @ACTIVE@ revision is used.+-- * 'rtLaunchType' - The launch type on which to run your task.+--+-- * 'rtNetworkConfiguration' - The network configuration for the task. This parameter is required for task definitions that use the @awsvpc@ network mode to receive their own Elastic Network Interface, and it is not supported for other network modes. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-networking.html Task Networking> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'rtTaskDefinition' - The @family@ and @revision@ (@family:revision@ ) or full ARN of the task definition to run. If a @revision@ is not specified, the latest @ACTIVE@ revision is used. runTask     :: Text -- ^ 'rtTaskDefinition'     -> RunTask runTask pTaskDefinition_ =   RunTask'-  { _rtOverrides = Nothing-  , _rtGroup = Nothing-  , _rtCluster = Nothing-  , _rtCount = Nothing-  , _rtPlacementConstraints = Nothing-  , _rtPlacementStrategy = Nothing-  , _rtStartedBy = Nothing-  , _rtTaskDefinition = pTaskDefinition_-  }+    { _rtOverrides = Nothing+    , _rtGroup = Nothing+    , _rtCluster = Nothing+    , _rtPlatformVersion = Nothing+    , _rtCount = Nothing+    , _rtPlacementConstraints = Nothing+    , _rtPlacementStrategy = Nothing+    , _rtStartedBy = Nothing+    , _rtLaunchType = Nothing+    , _rtNetworkConfiguration = Nothing+    , _rtTaskDefinition = pTaskDefinition_+    }   -- | A list of container overrides in JSON format that specify the name of a container in the specified task definition and the overrides it should receive. You can override the default command for a container (that is specified in the task definition or Docker image) with a @command@ override. You can also override existing environment variables (that are specified in the task definition or Docker image) on a container or add new environment variables to it with an @environment@ override. rtOverrides :: Lens' RunTask (Maybe TaskOverride)-rtOverrides = lens _rtOverrides (\ s a -> s{_rtOverrides = a});+rtOverrides = lens _rtOverrides (\ s a -> s{_rtOverrides = a})  -- | The name of the task group to associate with the task. The default value is the family name of the task definition (for example, family:my-family-name). rtGroup :: Lens' RunTask (Maybe Text)-rtGroup = lens _rtGroup (\ s a -> s{_rtGroup = a});+rtGroup = lens _rtGroup (\ s a -> s{_rtGroup = a})  -- | The short name or full Amazon Resource Name (ARN) of the cluster on which to run your task. If you do not specify a cluster, the default cluster is assumed. rtCluster :: Lens' RunTask (Maybe Text)-rtCluster = lens _rtCluster (\ s a -> s{_rtCluster = a});+rtCluster = lens _rtCluster (\ s a -> s{_rtCluster = a}) +-- | The platform version on which to run your task. If one is not specified, the latest version is used by default.+rtPlatformVersion :: Lens' RunTask (Maybe Text)+rtPlatformVersion = lens _rtPlatformVersion (\ s a -> s{_rtPlatformVersion = a})+ -- | The number of instantiations of the specified task to place on your cluster. You can specify up to 10 tasks per call. rtCount :: Lens' RunTask (Maybe Int)-rtCount = lens _rtCount (\ s a -> s{_rtCount = a});+rtCount = lens _rtCount (\ s a -> s{_rtCount = a})  -- | An array of placement constraint objects to use for the task. You can specify up to 10 constraints per task (including constraints in the task definition and those specified at run time). rtPlacementConstraints :: Lens' RunTask [PlacementConstraint]-rtPlacementConstraints = lens _rtPlacementConstraints (\ s a -> s{_rtPlacementConstraints = a}) . _Default . _Coerce;+rtPlacementConstraints = lens _rtPlacementConstraints (\ s a -> s{_rtPlacementConstraints = a}) . _Default . _Coerce --- | The placement strategy objects to use for the task. You can specify a maximum of 5 strategy rules per task.+-- | The placement strategy objects to use for the task. You can specify a maximum of five strategy rules per task. rtPlacementStrategy :: Lens' RunTask [PlacementStrategy]-rtPlacementStrategy = lens _rtPlacementStrategy (\ s a -> s{_rtPlacementStrategy = a}) . _Default . _Coerce;+rtPlacementStrategy = lens _rtPlacementStrategy (\ s a -> s{_rtPlacementStrategy = a}) . _Default . _Coerce  -- | An optional tag specified when a task is started. For example if you automatically trigger a task to run a batch process job, you could apply a unique identifier for that job to your task with the @startedBy@ parameter. You can then identify which tasks belong to that job by filtering the results of a 'ListTasks' call with the @startedBy@ value. Up to 36 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. If a task is started by an Amazon ECS service, then the @startedBy@ parameter contains the deployment ID of the service that starts it. rtStartedBy :: Lens' RunTask (Maybe Text)-rtStartedBy = lens _rtStartedBy (\ s a -> s{_rtStartedBy = a});+rtStartedBy = lens _rtStartedBy (\ s a -> s{_rtStartedBy = a}) --- | The @family@ and @revision@ (@family:revision@ ) or full Amazon Resource Name (ARN) of the task definition to run. If a @revision@ is not specified, the latest @ACTIVE@ revision is used.+-- | The launch type on which to run your task.+rtLaunchType :: Lens' RunTask (Maybe LaunchType)+rtLaunchType = lens _rtLaunchType (\ s a -> s{_rtLaunchType = a})++-- | The network configuration for the task. This parameter is required for task definitions that use the @awsvpc@ network mode to receive their own Elastic Network Interface, and it is not supported for other network modes. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-networking.html Task Networking> in the /Amazon Elastic Container Service Developer Guide/ .+rtNetworkConfiguration :: Lens' RunTask (Maybe NetworkConfiguration)+rtNetworkConfiguration = lens _rtNetworkConfiguration (\ s a -> s{_rtNetworkConfiguration = a})++-- | The @family@ and @revision@ (@family:revision@ ) or full ARN of the task definition to run. If a @revision@ is not specified, the latest @ACTIVE@ revision is used. rtTaskDefinition :: Lens' RunTask Text-rtTaskDefinition = lens _rtTaskDefinition (\ s a -> s{_rtTaskDefinition = a});+rtTaskDefinition = lens _rtTaskDefinition (\ s a -> s{_rtTaskDefinition = a})  instance AWSRequest RunTask where         type Rs RunTask = RunTaskResponse@@ -168,11 +205,15 @@                  [("overrides" .=) <$> _rtOverrides,                   ("group" .=) <$> _rtGroup,                   ("cluster" .=) <$> _rtCluster,+                  ("platformVersion" .=) <$> _rtPlatformVersion,                   ("count" .=) <$> _rtCount,                   ("placementConstraints" .=) <$>                     _rtPlacementConstraints,                   ("placementStrategy" .=) <$> _rtPlacementStrategy,                   ("startedBy" .=) <$> _rtStartedBy,+                  ("launchType" .=) <$> _rtLaunchType,+                  ("networkConfiguration" .=) <$>+                    _rtNetworkConfiguration,                   Just ("taskDefinition" .= _rtTaskDefinition)])  instance ToPath RunTask where@@ -195,7 +236,7 @@ -- -- * 'rtrsFailures' - Any failures associated with the call. ----- * 'rtrsTasks' - A full description of the tasks that were run. Each task that was successfully placed on your cluster are described here.+-- * 'rtrsTasks' - A full description of the tasks that were run. The tasks that were successfully placed on your cluster are described here. -- -- * 'rtrsResponseStatus' - -- | The response status code. runTaskResponse@@ -203,22 +244,22 @@     -> RunTaskResponse runTaskResponse pResponseStatus_ =   RunTaskResponse'-  { _rtrsFailures = Nothing-  , _rtrsTasks = Nothing-  , _rtrsResponseStatus = pResponseStatus_-  }+    { _rtrsFailures = Nothing+    , _rtrsTasks = Nothing+    , _rtrsResponseStatus = pResponseStatus_+    }   -- | Any failures associated with the call. rtrsFailures :: Lens' RunTaskResponse [Failure]-rtrsFailures = lens _rtrsFailures (\ s a -> s{_rtrsFailures = a}) . _Default . _Coerce;+rtrsFailures = lens _rtrsFailures (\ s a -> s{_rtrsFailures = a}) . _Default . _Coerce --- | A full description of the tasks that were run. Each task that was successfully placed on your cluster are described here.+-- | A full description of the tasks that were run. The tasks that were successfully placed on your cluster are described here. rtrsTasks :: Lens' RunTaskResponse [Task]-rtrsTasks = lens _rtrsTasks (\ s a -> s{_rtrsTasks = a}) . _Default . _Coerce;+rtrsTasks = lens _rtrsTasks (\ s a -> s{_rtrsTasks = a}) . _Default . _Coerce  -- | -- | The response status code. rtrsResponseStatus :: Lens' RunTaskResponse Int-rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});+rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a})  instance NFData RunTaskResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.StartTask--- 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,7 +21,7 @@ -- Starts a new task from the specified task definition on the specified container instance or instances. -- ----- Alternatively, you can use 'RunTask' to place tasks for you. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/scheduling_tasks.html Scheduling Tasks> in the /Amazon EC2 Container Service Developer Guide/ .+-- Alternatively, you can use 'RunTask' to place tasks for you. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/scheduling_tasks.html Scheduling Tasks> in the /Amazon Elastic Container Service Developer Guide/ . -- module Network.AWS.ECS.StartTask     (@@ -33,6 +33,7 @@     , sGroup     , sCluster     , sStartedBy+    , sNetworkConfiguration     , sTaskDefinition     , sContainerInstances @@ -54,12 +55,13 @@  -- | /See:/ 'startTask' smart constructor. data StartTask = StartTask'-  { _sOverrides          :: !(Maybe TaskOverride)-  , _sGroup              :: !(Maybe Text)-  , _sCluster            :: !(Maybe Text)-  , _sStartedBy          :: !(Maybe Text)-  , _sTaskDefinition     :: !Text-  , _sContainerInstances :: ![Text]+  { _sOverrides            :: !(Maybe TaskOverride)+  , _sGroup                :: !(Maybe Text)+  , _sCluster              :: !(Maybe Text)+  , _sStartedBy            :: !(Maybe Text)+  , _sNetworkConfiguration :: !(Maybe NetworkConfiguration)+  , _sTaskDefinition       :: !Text+  , _sContainerInstances   :: ![Text]   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -75,46 +77,53 @@ -- -- * 'sStartedBy' - An optional tag specified when a task is started. For example if you automatically trigger a task to run a batch process job, you could apply a unique identifier for that job to your task with the @startedBy@ parameter. You can then identify which tasks belong to that job by filtering the results of a 'ListTasks' call with the @startedBy@ value. Up to 36 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. If a task is started by an Amazon ECS service, then the @startedBy@ parameter contains the deployment ID of the service that starts it. ----- * 'sTaskDefinition' - The @family@ and @revision@ (@family:revision@ ) or full Amazon Resource Name (ARN) of the task definition to start. If a @revision@ is not specified, the latest @ACTIVE@ revision is used.+-- * 'sNetworkConfiguration' - The VPC subnet and security group configuration for tasks that receive their own Elastic Network Interface by using the @awsvpc@ networking mode. ----- * 'sContainerInstances' - The container instance IDs or full Amazon Resource Name (ARN) entries for the container instances on which you would like to place your task. You can specify up to 10 container instances.+-- * 'sTaskDefinition' - The @family@ and @revision@ (@family:revision@ ) or full ARN of the task definition to start. If a @revision@ is not specified, the latest @ACTIVE@ revision is used.+--+-- * 'sContainerInstances' - The container instance IDs or full ARN entries for the container instances on which you would like to place your task. You can specify up to 10 container instances. startTask     :: Text -- ^ 'sTaskDefinition'     -> StartTask startTask pTaskDefinition_ =   StartTask'-  { _sOverrides = Nothing-  , _sGroup = Nothing-  , _sCluster = Nothing-  , _sStartedBy = Nothing-  , _sTaskDefinition = pTaskDefinition_-  , _sContainerInstances = mempty-  }+    { _sOverrides = Nothing+    , _sGroup = Nothing+    , _sCluster = Nothing+    , _sStartedBy = Nothing+    , _sNetworkConfiguration = Nothing+    , _sTaskDefinition = pTaskDefinition_+    , _sContainerInstances = mempty+    }   -- | A list of container overrides in JSON format that specify the name of a container in the specified task definition and the overrides it should receive. You can override the default command for a container (that is specified in the task definition or Docker image) with a @command@ override. You can also override existing environment variables (that are specified in the task definition or Docker image) on a container or add new environment variables to it with an @environment@ override. sOverrides :: Lens' StartTask (Maybe TaskOverride)-sOverrides = lens _sOverrides (\ s a -> s{_sOverrides = a});+sOverrides = lens _sOverrides (\ s a -> s{_sOverrides = a})  -- | The name of the task group to associate with the task. The default value is the family name of the task definition (for example, family:my-family-name). sGroup :: Lens' StartTask (Maybe Text)-sGroup = lens _sGroup (\ s a -> s{_sGroup = a});+sGroup = lens _sGroup (\ s a -> s{_sGroup = a})  -- | The short name or full Amazon Resource Name (ARN) of the cluster on which to start your task. If you do not specify a cluster, the default cluster is assumed. sCluster :: Lens' StartTask (Maybe Text)-sCluster = lens _sCluster (\ s a -> s{_sCluster = a});+sCluster = lens _sCluster (\ s a -> s{_sCluster = a})  -- | An optional tag specified when a task is started. For example if you automatically trigger a task to run a batch process job, you could apply a unique identifier for that job to your task with the @startedBy@ parameter. You can then identify which tasks belong to that job by filtering the results of a 'ListTasks' call with the @startedBy@ value. Up to 36 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. If a task is started by an Amazon ECS service, then the @startedBy@ parameter contains the deployment ID of the service that starts it. sStartedBy :: Lens' StartTask (Maybe Text)-sStartedBy = lens _sStartedBy (\ s a -> s{_sStartedBy = a});+sStartedBy = lens _sStartedBy (\ s a -> s{_sStartedBy = a}) --- | The @family@ and @revision@ (@family:revision@ ) or full Amazon Resource Name (ARN) of the task definition to start. If a @revision@ is not specified, the latest @ACTIVE@ revision is used.+-- | The VPC subnet and security group configuration for tasks that receive their own Elastic Network Interface by using the @awsvpc@ networking mode.+sNetworkConfiguration :: Lens' StartTask (Maybe NetworkConfiguration)+sNetworkConfiguration = lens _sNetworkConfiguration (\ s a -> s{_sNetworkConfiguration = a})++-- | The @family@ and @revision@ (@family:revision@ ) or full ARN of the task definition to start. If a @revision@ is not specified, the latest @ACTIVE@ revision is used. sTaskDefinition :: Lens' StartTask Text-sTaskDefinition = lens _sTaskDefinition (\ s a -> s{_sTaskDefinition = a});+sTaskDefinition = lens _sTaskDefinition (\ s a -> s{_sTaskDefinition = a}) --- | The container instance IDs or full Amazon Resource Name (ARN) entries for the container instances on which you would like to place your task. You can specify up to 10 container instances.+-- | The container instance IDs or full ARN entries for the container instances on which you would like to place your task. You can specify up to 10 container instances. sContainerInstances :: Lens' StartTask [Text]-sContainerInstances = lens _sContainerInstances (\ s a -> s{_sContainerInstances = a}) . _Coerce;+sContainerInstances = lens _sContainerInstances (\ s a -> s{_sContainerInstances = a}) . _Coerce  instance AWSRequest StartTask where         type Rs StartTask = StartTaskResponse@@ -149,6 +158,8 @@                   ("group" .=) <$> _sGroup,                   ("cluster" .=) <$> _sCluster,                   ("startedBy" .=) <$> _sStartedBy,+                  ("networkConfiguration" .=) <$>+                    _sNetworkConfiguration,                   Just ("taskDefinition" .= _sTaskDefinition),                   Just ("containerInstances" .= _sContainerInstances)]) @@ -172,7 +183,7 @@ -- -- * 'strsFailures' - Any failures associated with the call. ----- * 'strsTasks' - A full description of the tasks that were started. Each task that was successfully placed on your container instances are described here.+-- * 'strsTasks' - A full description of the tasks that were started. Each task that was successfully placed on your container instances is described. -- -- * 'strsResponseStatus' - -- | The response status code. startTaskResponse@@ -180,22 +191,22 @@     -> StartTaskResponse startTaskResponse pResponseStatus_ =   StartTaskResponse'-  { _strsFailures = Nothing-  , _strsTasks = Nothing-  , _strsResponseStatus = pResponseStatus_-  }+    { _strsFailures = Nothing+    , _strsTasks = Nothing+    , _strsResponseStatus = pResponseStatus_+    }   -- | Any failures associated with the call. strsFailures :: Lens' StartTaskResponse [Failure]-strsFailures = lens _strsFailures (\ s a -> s{_strsFailures = a}) . _Default . _Coerce;+strsFailures = lens _strsFailures (\ s a -> s{_strsFailures = a}) . _Default . _Coerce --- | A full description of the tasks that were started. Each task that was successfully placed on your container instances are described here.+-- | A full description of the tasks that were started. Each task that was successfully placed on your container instances is described. strsTasks :: Lens' StartTaskResponse [Task]-strsTasks = lens _strsTasks (\ s a -> s{_strsTasks = a}) . _Default . _Coerce;+strsTasks = lens _strsTasks (\ s a -> s{_strsTasks = a}) . _Default . _Coerce  -- | -- | The response status code. strsResponseStatus :: Lens' StartTaskResponse Int-strsResponseStatus = lens _strsResponseStatus (\ s a -> s{_strsResponseStatus = a});+strsResponseStatus = lens _strsResponseStatus (\ s a -> s{_strsResponseStatus = a})  instance NFData StartTaskResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.StopTask--- 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,9 +62,9 @@ -- -- * 'stCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that hosts the task to stop. If you do not specify a cluster, the default cluster is assumed. ----- * 'stReason' - An optional message specified when a task is stopped. For example, if you are using a custom scheduler, you can use this parameter to specify the reason for stopping the task here, and the message will appear in subsequent 'DescribeTasks' API operations on this task. Up to 255 characters are allowed in this message.+-- * 'stReason' - An optional message specified when a task is stopped. For example, if you are using a custom scheduler, you can use this parameter to specify the reason for stopping the task here, and the message appears in subsequent 'DescribeTasks' API operations on this task. Up to 255 characters are allowed in this message. ----- * 'stTask' - The task ID or full Amazon Resource Name (ARN) entry of the task to stop.+-- * 'stTask' - The task ID or full ARN entry of the task to stop. stopTask     :: Text -- ^ 'stTask'     -> StopTask@@ -74,15 +74,15 @@  -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the task to stop. If you do not specify a cluster, the default cluster is assumed. stCluster :: Lens' StopTask (Maybe Text)-stCluster = lens _stCluster (\ s a -> s{_stCluster = a});+stCluster = lens _stCluster (\ s a -> s{_stCluster = a}) --- | An optional message specified when a task is stopped. For example, if you are using a custom scheduler, you can use this parameter to specify the reason for stopping the task here, and the message will appear in subsequent 'DescribeTasks' API operations on this task. Up to 255 characters are allowed in this message.+-- | An optional message specified when a task is stopped. For example, if you are using a custom scheduler, you can use this parameter to specify the reason for stopping the task here, and the message appears in subsequent 'DescribeTasks' API operations on this task. Up to 255 characters are allowed in this message. stReason :: Lens' StopTask (Maybe Text)-stReason = lens _stReason (\ s a -> s{_stReason = a});+stReason = lens _stReason (\ s a -> s{_stReason = a}) --- | The task ID or full Amazon Resource Name (ARN) entry of the task to stop.+-- | The task ID or full ARN entry of the task to stop. stTask :: Lens' StopTask Text-stTask = lens _stTask (\ s a -> s{_stTask = a});+stTask = lens _stTask (\ s a -> s{_stTask = a})  instance AWSRequest StopTask where         type Rs StopTask = StopTaskResponse@@ -144,10 +144,10 @@  -- | The task that was stopped. srsTask :: Lens' StopTaskResponse (Maybe Task)-srsTask = lens _srsTask (\ s a -> s{_srsTask = a});+srsTask = lens _srsTask (\ s a -> s{_srsTask = a})  -- | -- | The response status code. srsResponseStatus :: Lens' StopTaskResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})  instance NFData StopTaskResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.SubmitContainerStateChange--- 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,7 +70,7 @@ -- -- * 'scscStatus' - The status of the state change request. ----- * 'scscCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that hosts the container.+-- * 'scscCluster' - The short name or full ARN of the cluster that hosts the container. -- -- * 'scscContainerName' - The name of the container. --@@ -83,43 +83,43 @@     :: SubmitContainerStateChange submitContainerStateChange =   SubmitContainerStateChange'-  { _scscNetworkBindings = Nothing-  , _scscStatus = Nothing-  , _scscCluster = Nothing-  , _scscContainerName = Nothing-  , _scscReason = Nothing-  , _scscExitCode = Nothing-  , _scscTask = Nothing-  }+    { _scscNetworkBindings = Nothing+    , _scscStatus = Nothing+    , _scscCluster = Nothing+    , _scscContainerName = Nothing+    , _scscReason = Nothing+    , _scscExitCode = Nothing+    , _scscTask = Nothing+    }   -- | The network bindings of the container. scscNetworkBindings :: Lens' SubmitContainerStateChange [NetworkBinding]-scscNetworkBindings = lens _scscNetworkBindings (\ s a -> s{_scscNetworkBindings = a}) . _Default . _Coerce;+scscNetworkBindings = lens _scscNetworkBindings (\ s a -> s{_scscNetworkBindings = a}) . _Default . _Coerce  -- | The status of the state change request. scscStatus :: Lens' SubmitContainerStateChange (Maybe Text)-scscStatus = lens _scscStatus (\ s a -> s{_scscStatus = a});+scscStatus = lens _scscStatus (\ s a -> s{_scscStatus = a}) --- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the container.+-- | The short name or full ARN of the cluster that hosts the container. scscCluster :: Lens' SubmitContainerStateChange (Maybe Text)-scscCluster = lens _scscCluster (\ s a -> s{_scscCluster = a});+scscCluster = lens _scscCluster (\ s a -> s{_scscCluster = a})  -- | The name of the container. scscContainerName :: Lens' SubmitContainerStateChange (Maybe Text)-scscContainerName = lens _scscContainerName (\ s a -> s{_scscContainerName = a});+scscContainerName = lens _scscContainerName (\ s a -> s{_scscContainerName = a})  -- | The reason for the state change request. scscReason :: Lens' SubmitContainerStateChange (Maybe Text)-scscReason = lens _scscReason (\ s a -> s{_scscReason = a});+scscReason = lens _scscReason (\ s a -> s{_scscReason = a})  -- | The exit code returned for the state change request. scscExitCode :: Lens' SubmitContainerStateChange (Maybe Int)-scscExitCode = lens _scscExitCode (\ s a -> s{_scscExitCode = a});+scscExitCode = lens _scscExitCode (\ s a -> s{_scscExitCode = a})  -- | The task ID or full Amazon Resource Name (ARN) of the task that hosts the container. scscTask :: Lens' SubmitContainerStateChange (Maybe Text)-scscTask = lens _scscTask (\ s a -> s{_scscTask = a});+scscTask = lens _scscTask (\ s a -> s{_scscTask = a})  instance AWSRequest SubmitContainerStateChange where         type Rs SubmitContainerStateChange =@@ -182,16 +182,16 @@     -> SubmitContainerStateChangeResponse submitContainerStateChangeResponse pResponseStatus_ =   SubmitContainerStateChangeResponse'-  {_scscrsAcknowledgment = Nothing, _scscrsResponseStatus = pResponseStatus_}+    {_scscrsAcknowledgment = Nothing, _scscrsResponseStatus = pResponseStatus_}   -- | Acknowledgement of the state change. scscrsAcknowledgment :: Lens' SubmitContainerStateChangeResponse (Maybe Text)-scscrsAcknowledgment = lens _scscrsAcknowledgment (\ s a -> s{_scscrsAcknowledgment = a});+scscrsAcknowledgment = lens _scscrsAcknowledgment (\ s a -> s{_scscrsAcknowledgment = a})  -- | -- | The response status code. scscrsResponseStatus :: Lens' SubmitContainerStateChangeResponse Int-scscrsResponseStatus = lens _scscrsResponseStatus (\ s a -> s{_scscrsResponseStatus = a});+scscrsResponseStatus = lens _scscrsResponseStatus (\ s a -> s{_scscrsResponseStatus = a})  instance NFData SubmitContainerStateChangeResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ECS.SubmitTaskStateChange--- 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,13 @@     -- * Request Lenses     , stscStatus     , stscCluster+    , stscAttachments+    , stscExecutionStoppedAt+    , stscPullStoppedAt+    , stscContainers     , stscReason     , stscTask+    , stscPullStartedAt      -- * Destructuring the Response     , submitTaskStateChangeResponse@@ -49,10 +54,15 @@  -- | /See:/ 'submitTaskStateChange' smart constructor. data SubmitTaskStateChange = SubmitTaskStateChange'-  { _stscStatus  :: !(Maybe Text)-  , _stscCluster :: !(Maybe Text)-  , _stscReason  :: !(Maybe Text)-  , _stscTask    :: !(Maybe Text)+  { _stscStatus             :: !(Maybe Text)+  , _stscCluster            :: !(Maybe Text)+  , _stscAttachments        :: !(Maybe [AttachmentStateChange])+  , _stscExecutionStoppedAt :: !(Maybe POSIX)+  , _stscPullStoppedAt      :: !(Maybe POSIX)+  , _stscContainers         :: !(Maybe [ContainerStateChange])+  , _stscReason             :: !(Maybe Text)+  , _stscTask               :: !(Maybe Text)+  , _stscPullStartedAt      :: !(Maybe POSIX)   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -64,36 +74,71 @@ -- -- * 'stscCluster' - The short name or full Amazon Resource Name (ARN) of the cluster that hosts the task. --+-- * 'stscAttachments' - Any attachments associated with the state change request.+--+-- * 'stscExecutionStoppedAt' - The Unix time stamp for when the task execution stopped.+--+-- * 'stscPullStoppedAt' - The Unix time stamp for when the container image pull completed.+--+-- * 'stscContainers' - Any containers associated with the state change request.+-- -- * 'stscReason' - The reason for the state change request. ----- * 'stscTask' - The task ID or full Amazon Resource Name (ARN) of the task in the state change request.+-- * 'stscTask' - The task ID or full ARN of the task in the state change request.+--+-- * 'stscPullStartedAt' - The Unix time stamp for when the container image pull began. submitTaskStateChange     :: SubmitTaskStateChange submitTaskStateChange =   SubmitTaskStateChange'-  { _stscStatus = Nothing-  , _stscCluster = Nothing-  , _stscReason = Nothing-  , _stscTask = Nothing-  }+    { _stscStatus = Nothing+    , _stscCluster = Nothing+    , _stscAttachments = Nothing+    , _stscExecutionStoppedAt = Nothing+    , _stscPullStoppedAt = Nothing+    , _stscContainers = Nothing+    , _stscReason = Nothing+    , _stscTask = Nothing+    , _stscPullStartedAt = Nothing+    }   -- | The status of the state change request. stscStatus :: Lens' SubmitTaskStateChange (Maybe Text)-stscStatus = lens _stscStatus (\ s a -> s{_stscStatus = a});+stscStatus = lens _stscStatus (\ s a -> s{_stscStatus = a})  -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts the task. stscCluster :: Lens' SubmitTaskStateChange (Maybe Text)-stscCluster = lens _stscCluster (\ s a -> s{_stscCluster = a});+stscCluster = lens _stscCluster (\ s a -> s{_stscCluster = a}) +-- | Any attachments associated with the state change request.+stscAttachments :: Lens' SubmitTaskStateChange [AttachmentStateChange]+stscAttachments = lens _stscAttachments (\ s a -> s{_stscAttachments = a}) . _Default . _Coerce++-- | The Unix time stamp for when the task execution stopped.+stscExecutionStoppedAt :: Lens' SubmitTaskStateChange (Maybe UTCTime)+stscExecutionStoppedAt = lens _stscExecutionStoppedAt (\ s a -> s{_stscExecutionStoppedAt = a}) . mapping _Time++-- | The Unix time stamp for when the container image pull completed.+stscPullStoppedAt :: Lens' SubmitTaskStateChange (Maybe UTCTime)+stscPullStoppedAt = lens _stscPullStoppedAt (\ s a -> s{_stscPullStoppedAt = a}) . mapping _Time++-- | Any containers associated with the state change request.+stscContainers :: Lens' SubmitTaskStateChange [ContainerStateChange]+stscContainers = lens _stscContainers (\ s a -> s{_stscContainers = a}) . _Default . _Coerce+ -- | The reason for the state change request. stscReason :: Lens' SubmitTaskStateChange (Maybe Text)-stscReason = lens _stscReason (\ s a -> s{_stscReason = a});+stscReason = lens _stscReason (\ s a -> s{_stscReason = a}) --- | The task ID or full Amazon Resource Name (ARN) of the task in the state change request.+-- | The task ID or full ARN of the task in the state change request. stscTask :: Lens' SubmitTaskStateChange (Maybe Text)-stscTask = lens _stscTask (\ s a -> s{_stscTask = a});+stscTask = lens _stscTask (\ s a -> s{_stscTask = a}) +-- | The Unix time stamp for when the container image pull began.+stscPullStartedAt :: Lens' SubmitTaskStateChange (Maybe UTCTime)+stscPullStartedAt = lens _stscPullStartedAt (\ s a -> s{_stscPullStartedAt = a}) . mapping _Time+ instance AWSRequest SubmitTaskStateChange where         type Rs SubmitTaskStateChange =              SubmitTaskStateChangeResponse@@ -124,8 +169,14 @@               (catMaybes                  [("status" .=) <$> _stscStatus,                   ("cluster" .=) <$> _stscCluster,+                  ("attachments" .=) <$> _stscAttachments,+                  ("executionStoppedAt" .=) <$>+                    _stscExecutionStoppedAt,+                  ("pullStoppedAt" .=) <$> _stscPullStoppedAt,+                  ("containers" .=) <$> _stscContainers,                   ("reason" .=) <$> _stscReason,-                  ("task" .=) <$> _stscTask])+                  ("task" .=) <$> _stscTask,+                  ("pullStartedAt" .=) <$> _stscPullStartedAt])  instance ToPath SubmitTaskStateChange where         toPath = const "/"@@ -152,15 +203,15 @@     -> SubmitTaskStateChangeResponse submitTaskStateChangeResponse pResponseStatus_ =   SubmitTaskStateChangeResponse'-  {_stscrsAcknowledgment = Nothing, _stscrsResponseStatus = pResponseStatus_}+    {_stscrsAcknowledgment = Nothing, _stscrsResponseStatus = pResponseStatus_}   -- | Acknowledgement of the state change. stscrsAcknowledgment :: Lens' SubmitTaskStateChangeResponse (Maybe Text)-stscrsAcknowledgment = lens _stscrsAcknowledgment (\ s a -> s{_stscrsAcknowledgment = a});+stscrsAcknowledgment = lens _stscrsAcknowledgment (\ s a -> s{_stscrsAcknowledgment = a})  -- | -- | The response status code. stscrsResponseStatus :: Lens' SubmitTaskStateChangeResponse Int-stscrsResponseStatus = lens _stscrsResponseStatus (\ s a -> s{_stscrsResponseStatus = a});+stscrsResponseStatus = lens _stscrsResponseStatus (\ s a -> s{_stscrsResponseStatus = a})  instance NFData SubmitTaskStateChangeResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.ECS.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@@ -16,16 +16,22 @@       ecs      -- * Errors+    , _AccessDeniedException     , _InvalidParameterException     , _ServerException+    , _ClusterContainsTasksException+    , _PlatformUnknownException     , _ClusterContainsServicesException     , _ClusterContainsContainerInstancesException     , _ServiceNotActiveException     , _ClusterNotFoundException     , _NoUpdateAvailableException+    , _UnsupportedFeatureException     , _ServiceNotFoundException+    , _PlatformTaskDefinitionIncompatibilityException     , _MissingVersionException     , _UpdateInProgressException+    , _BlockedException     , _TargetNotFoundException     , _AttributeLimitExceededException     , _ClientException@@ -33,6 +39,18 @@     -- * AgentUpdateStatus     , AgentUpdateStatus (..) +    -- * AssignPublicIP+    , AssignPublicIP (..)++    -- * ClusterField+    , ClusterField (..)++    -- * Compatibility+    , Compatibility (..)++    -- * Connectivity+    , Connectivity (..)+     -- * ContainerInstanceStatus     , ContainerInstanceStatus (..) @@ -42,6 +60,12 @@     -- * DeviceCgroupPermission     , DeviceCgroupPermission (..) +    -- * HealthStatus+    , HealthStatus (..)++    -- * LaunchType+    , LaunchType (..)+     -- * LogDriver     , LogDriver (..) @@ -75,6 +99,27 @@     -- * UlimitName     , UlimitName (..) +    -- * AWSVPCConfiguration+    , AWSVPCConfiguration+    , awsVPCConfiguration+    , avcSecurityGroups+    , avcAssignPublicIP+    , avcSubnets++    -- * Attachment+    , Attachment+    , attachment+    , aStatus+    , aDetails+    , aId+    , aType++    -- * AttachmentStateChange+    , AttachmentStateChange+    , attachmentStateChange+    , ascAttachmentARN+    , ascStatus+     -- * Attribute     , Attribute     , attribute@@ -92,6 +137,7 @@     , cRegisteredContainerInstancesCount     , cPendingTasksCount     , cClusterName+    , cStatistics     , cActiveServicesCount      -- * Container@@ -99,11 +145,13 @@     , container     , cNetworkBindings     , cContainerARN+    , cNetworkInterfaces     , cTaskARN     , cLastStatus     , cReason     , cName     , cExitCode+    , cHealthStatus      -- * ContainerDefinition     , ContainerDefinition@@ -112,6 +160,7 @@     , cdCommand     , cdHostname     , cdDockerSecurityOptions+    , cdHealthCheck     , cdDisableNetworking     , cdVolumesFrom     , cdEnvironment@@ -140,6 +189,7 @@     , ContainerInstance     , containerInstance     , ciStatus+    , ciAttachments     , ciRunningTasksCount     , ciRemainingResources     , ciEc2InstanceId@@ -170,6 +220,7 @@     , csStatus     , csClusterARN     , csCreatedAt+    , csPlatformVersion     , csDesiredCount     , csLoadBalancers     , csPendingCount@@ -178,22 +229,38 @@     , csPlacementStrategy     , csDeployments     , csServiceName+    , csLaunchType     , csServiceARN     , csTaskDefinition+    , csHealthCheckGracePeriodSeconds+    , csNetworkConfiguration+    , csServiceRegistries     , csRoleARN     , csDeploymentConfiguration +    -- * ContainerStateChange+    , ContainerStateChange+    , containerStateChange+    , cscNetworkBindings+    , cscStatus+    , cscContainerName+    , cscReason+    , cscExitCode+     -- * Deployment     , Deployment     , deployment     , dRunningCount     , dStatus     , dCreatedAt+    , dPlatformVersion     , dDesiredCount     , dPendingCount     , dId+    , dLaunchType     , dUpdatedAt     , dTaskDefinition+    , dNetworkConfiguration      -- * DeploymentConfiguration     , DeploymentConfiguration@@ -214,6 +281,15 @@     , fArn     , fReason +    -- * HealthCheck+    , HealthCheck+    , healthCheck+    , hcStartPeriod+    , hcRetries+    , hcInterval+    , hcTimeout+    , hcCommand+     -- * HostEntry     , HostEntry     , hostEntry@@ -240,7 +316,9 @@     -- * LinuxParameters     , LinuxParameters     , linuxParameters+    , lpSharedMemorySize     , lpInitProcessEnabled+    , lpTmpfs     , lpDevices     , lpCapabilities @@ -273,6 +351,18 @@     , nbHostPort     , nbContainerPort +    -- * NetworkConfiguration+    , NetworkConfiguration+    , networkConfiguration+    , ncAwsvpcConfiguration++    -- * NetworkInterface+    , NetworkInterface+    , networkInterface+    , niIpv6Address+    , niPrivateIPv4Address+    , niAttachmentId+     -- * PlacementConstraint     , PlacementConstraint     , placementConstraint@@ -309,6 +399,12 @@     , seId     , seMessage +    -- * ServiceRegistry+    , ServiceRegistry+    , serviceRegistry+    , srRegistryARN+    , srPort+     -- * Task     , Task     , task@@ -317,29 +413,46 @@     , tOverrides     , tClusterARN     , tGroup+    , tAttachments     , tCreatedAt+    , tPlatformVersion     , tTaskARN     , tContainerInstanceARN+    , tExecutionStoppedAt     , tLastStatus+    , tMemory+    , tPullStoppedAt     , tContainers     , tStartedAt     , tVersion     , tStartedBy     , tStoppedReason+    , tConnectivity+    , tStoppingAt+    , tLaunchType     , tTaskDefinitionARN+    , tHealthStatus+    , tConnectivityAt+    , tCpu+    , tPullStartedAt      -- * TaskDefinition     , TaskDefinition     , taskDefinition     , tdStatus+    , tdExecutionRoleARN+    , tdRequiresCompatibilities     , tdFamily     , tdContainerDefinitions+    , tdMemory     , tdTaskRoleARN     , tdPlacementConstraints     , tdNetworkMode     , tdTaskDefinitionARN+    , tdCompatibilities     , tdRevision     , tdVolumes+    , tdCpu     , tdRequiresAttributes      -- * TaskDefinitionPlacementConstraint@@ -352,8 +465,16 @@     , TaskOverride     , taskOverride     , toContainerOverrides+    , toExecutionRoleARN     , toTaskRoleARN +    -- * Tmpfs+    , Tmpfs+    , tmpfs+    , tMountOptions+    , tContainerPath+    , tSize+     -- * Ulimit     , Ulimit     , ulimit@@ -391,24 +512,24 @@ ecs :: Service ecs =   Service-  { _svcAbbrev = "ECS"-  , _svcSigner = v4-  , _svcPrefix = "ecs"-  , _svcVersion = "2014-11-13"-  , _svcEndpoint = defaultEndpoint ecs-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "ECS"-  , _svcRetry = retry-  }+    { _svcAbbrev = "ECS"+    , _svcSigner = v4+    , _svcPrefix = "ecs"+    , _svcVersion = "2014-11-13"+    , _svcEndpoint = defaultEndpoint ecs+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "ECS"+    , _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"@@ -417,6 +538,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"@@ -424,6 +547,13 @@       | otherwise = Nothing  +-- | You do not have authorization to perform the requested action.+--+--+_AccessDeniedException :: AsError a => Getting (First ServiceError) a ServiceError+_AccessDeniedException = _MatchServiceError ecs "AccessDeniedException"++ -- | The specified parameter is invalid. Review the available parameters for the API request. -- --@@ -438,6 +568,21 @@ _ServerException = _MatchServiceError ecs "ServerException"  +-- | You cannot delete a cluster that has active tasks.+--+--+_ClusterContainsTasksException :: AsError a => Getting (First ServiceError) a ServiceError+_ClusterContainsTasksException =+  _MatchServiceError ecs "ClusterContainsTasksException"+++-- | The specified platform version does not exist.+--+--+_PlatformUnknownException :: AsError a => Getting (First ServiceError) a ServiceError+_PlatformUnknownException = _MatchServiceError ecs "PlatformUnknownException"++ -- | You cannot delete a cluster that contains services. You must first update the service to reduce its desired task count to 0 and then delete the service. For more information, see 'UpdateService' and 'DeleteService' . -- --@@ -454,7 +599,7 @@   _MatchServiceError ecs "ClusterContainsContainerInstancesException"  --- | The specified service is not active. You cannot update a service that is not active. If you have previously deleted a service, you can re-create it with 'CreateService' .+-- | The specified service is not active. You can't update a service that is inactive. If you have previously deleted a service, you can re-create it with 'CreateService' . -- -- _ServiceNotActiveException :: AsError a => Getting (First ServiceError) a ServiceError@@ -476,6 +621,14 @@   _MatchServiceError ecs "NoUpdateAvailableException"  +-- | The specified task is not supported in this region.+--+--+_UnsupportedFeatureException :: AsError a => Getting (First ServiceError) a ServiceError+_UnsupportedFeatureException =+  _MatchServiceError ecs "UnsupportedFeatureException"++ -- | The specified service could not be found. You can view your available services with 'ListServices' . Amazon ECS services are cluster-specific and region-specific. -- --@@ -483,6 +636,14 @@ _ServiceNotFoundException = _MatchServiceError ecs "ServiceNotFoundException"  +-- | The specified platform version does not satisfy the task definition’s required capabilities.+--+--+_PlatformTaskDefinitionIncompatibilityException :: AsError a => Getting (First ServiceError) a ServiceError+_PlatformTaskDefinitionIncompatibilityException =+  _MatchServiceError ecs "PlatformTaskDefinitionIncompatibilityException"++ -- | Amazon ECS is unable to determine the current version of the Amazon ECS container agent on the container instance and does not have enough information to proceed with an update. This could be because the agent running on the container instance is an older or custom version that does not use our version information. -- --@@ -497,6 +658,13 @@ _UpdateInProgressException = _MatchServiceError ecs "UpdateInProgressException"  +-- | Your AWS account has been blocked. <http://aws.amazon.com/contact-us/ Contact AWS Support> for more information.+--+--+_BlockedException :: AsError a => Getting (First ServiceError) a ServiceError+_BlockedException = _MatchServiceError ecs "BlockedException"++ -- | The specified target could not be found. You can view your available container instances with 'ListContainerInstances' . Amazon ECS container instances are cluster-specific and region-specific. -- --@@ -512,7 +680,7 @@   _MatchServiceError ecs "AttributeLimitExceededException"  --- | 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,2647 +9,3504 @@  -- | -- Module      : Network.AWS.ECS.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.ECS.Types.Product where--import Network.AWS.ECS.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude---- | An attribute is a name-value pair associated with an Amazon ECS object. Attributes enable you to extend the Amazon ECS data model by adding custom metadata to your resources. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-constraints.html#attributes Attributes> in the /Amazon EC2 Container Service Developer Guide/ .------------ /See:/ 'attribute' smart constructor.-data Attribute = Attribute'-  { _aTargetId   :: !(Maybe Text)-  , _aValue      :: !(Maybe Text)-  , _aTargetType :: !(Maybe TargetType)-  , _aName       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Attribute' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aTargetId' - The ID of the target. You can specify the short form ID for a resource or the full Amazon Resource Name (ARN).------ * 'aValue' - The value of the attribute. Up to 128 letters (uppercase and lowercase), numbers, hyphens, underscores, periods, at signs (@), forward slashes, colons, and spaces are allowed.------ * 'aTargetType' - The type of the target with which to attach the attribute. This parameter is required if you use the short form ID for a resource instead of the full Amazon Resource Name (ARN).------ * 'aName' - The name of the attribute. Up to 128 letters (uppercase and lowercase), numbers, hyphens, underscores, and periods are allowed.-attribute-    :: Text -- ^ 'aName'-    -> Attribute-attribute pName_ =-  Attribute'-  { _aTargetId = Nothing-  , _aValue = Nothing-  , _aTargetType = Nothing-  , _aName = pName_-  }----- | The ID of the target. You can specify the short form ID for a resource or the full Amazon Resource Name (ARN).-aTargetId :: Lens' Attribute (Maybe Text)-aTargetId = lens _aTargetId (\ s a -> s{_aTargetId = a});---- | The value of the attribute. Up to 128 letters (uppercase and lowercase), numbers, hyphens, underscores, periods, at signs (@), forward slashes, colons, and spaces are allowed.-aValue :: Lens' Attribute (Maybe Text)-aValue = lens _aValue (\ s a -> s{_aValue = a});---- | The type of the target with which to attach the attribute. This parameter is required if you use the short form ID for a resource instead of the full Amazon Resource Name (ARN).-aTargetType :: Lens' Attribute (Maybe TargetType)-aTargetType = lens _aTargetType (\ s a -> s{_aTargetType = a});---- | The name of the attribute. Up to 128 letters (uppercase and lowercase), numbers, hyphens, underscores, and periods are allowed.-aName :: Lens' Attribute Text-aName = lens _aName (\ s a -> s{_aName = a});--instance FromJSON Attribute where-        parseJSON-          = withObject "Attribute"-              (\ x ->-                 Attribute' <$>-                   (x .:? "targetId") <*> (x .:? "value") <*>-                     (x .:? "targetType")-                     <*> (x .: "name"))--instance Hashable Attribute where--instance NFData Attribute where--instance ToJSON Attribute where-        toJSON Attribute'{..}-          = object-              (catMaybes-                 [("targetId" .=) <$> _aTargetId,-                  ("value" .=) <$> _aValue,-                  ("targetType" .=) <$> _aTargetType,-                  Just ("name" .= _aName)])---- | A regional grouping of one or more container instances on which you can run task requests. Each account receives a default cluster the first time you use the Amazon ECS service, but you may also create other clusters. Clusters may contain more than one instance type simultaneously.------------ /See:/ 'cluster' smart constructor.-data Cluster = Cluster'-  { _cStatus                            :: !(Maybe Text)-  , _cClusterARN                        :: !(Maybe Text)-  , _cRunningTasksCount                 :: !(Maybe Int)-  , _cRegisteredContainerInstancesCount :: !(Maybe Int)-  , _cPendingTasksCount                 :: !(Maybe Int)-  , _cClusterName                       :: !(Maybe Text)-  , _cActiveServicesCount               :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Cluster' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cStatus' - The status of the cluster. The valid values are @ACTIVE@ or @INACTIVE@ . @ACTIVE@ indicates that you can register container instances with the cluster and the associated instances can accept tasks.------ * 'cClusterARN' - The Amazon Resource Name (ARN) that identifies the cluster. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the cluster, the AWS account ID of the cluster owner, the @cluster@ namespace, and then the cluster name. For example, @arn:aws:ecs:/region/ :/012345678910/ :cluster//test/ @ ..------ * 'cRunningTasksCount' - The number of tasks in the cluster that are in the @RUNNING@ state.------ * 'cRegisteredContainerInstancesCount' - The number of container instances registered into the cluster.------ * 'cPendingTasksCount' - The number of tasks in the cluster that are in the @PENDING@ state.------ * 'cClusterName' - A user-generated string that you use to identify your cluster.------ * 'cActiveServicesCount' - The number of services that are running on the cluster in an @ACTIVE@ state. You can view these services with 'ListServices' .-cluster-    :: Cluster-cluster =-  Cluster'-  { _cStatus = Nothing-  , _cClusterARN = Nothing-  , _cRunningTasksCount = Nothing-  , _cRegisteredContainerInstancesCount = Nothing-  , _cPendingTasksCount = Nothing-  , _cClusterName = Nothing-  , _cActiveServicesCount = Nothing-  }----- | The status of the cluster. The valid values are @ACTIVE@ or @INACTIVE@ . @ACTIVE@ indicates that you can register container instances with the cluster and the associated instances can accept tasks.-cStatus :: Lens' Cluster (Maybe Text)-cStatus = lens _cStatus (\ s a -> s{_cStatus = a});---- | The Amazon Resource Name (ARN) that identifies the cluster. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the cluster, the AWS account ID of the cluster owner, the @cluster@ namespace, and then the cluster name. For example, @arn:aws:ecs:/region/ :/012345678910/ :cluster//test/ @ ..-cClusterARN :: Lens' Cluster (Maybe Text)-cClusterARN = lens _cClusterARN (\ s a -> s{_cClusterARN = a});---- | The number of tasks in the cluster that are in the @RUNNING@ state.-cRunningTasksCount :: Lens' Cluster (Maybe Int)-cRunningTasksCount = lens _cRunningTasksCount (\ s a -> s{_cRunningTasksCount = a});---- | The number of container instances registered into the cluster.-cRegisteredContainerInstancesCount :: Lens' Cluster (Maybe Int)-cRegisteredContainerInstancesCount = lens _cRegisteredContainerInstancesCount (\ s a -> s{_cRegisteredContainerInstancesCount = a});---- | The number of tasks in the cluster that are in the @PENDING@ state.-cPendingTasksCount :: Lens' Cluster (Maybe Int)-cPendingTasksCount = lens _cPendingTasksCount (\ s a -> s{_cPendingTasksCount = a});---- | A user-generated string that you use to identify your cluster.-cClusterName :: Lens' Cluster (Maybe Text)-cClusterName = lens _cClusterName (\ s a -> s{_cClusterName = a});---- | The number of services that are running on the cluster in an @ACTIVE@ state. You can view these services with 'ListServices' .-cActiveServicesCount :: Lens' Cluster (Maybe Int)-cActiveServicesCount = lens _cActiveServicesCount (\ s a -> s{_cActiveServicesCount = a});--instance FromJSON Cluster where-        parseJSON-          = withObject "Cluster"-              (\ x ->-                 Cluster' <$>-                   (x .:? "status") <*> (x .:? "clusterArn") <*>-                     (x .:? "runningTasksCount")-                     <*> (x .:? "registeredContainerInstancesCount")-                     <*> (x .:? "pendingTasksCount")-                     <*> (x .:? "clusterName")-                     <*> (x .:? "activeServicesCount"))--instance Hashable Cluster where--instance NFData Cluster where---- | A Docker container that is part of a task.------------ /See:/ 'container' smart constructor.-data Container = Container'-  { _cNetworkBindings :: !(Maybe [NetworkBinding])-  , _cContainerARN    :: !(Maybe Text)-  , _cTaskARN         :: !(Maybe Text)-  , _cLastStatus      :: !(Maybe Text)-  , _cReason          :: !(Maybe Text)-  , _cName            :: !(Maybe Text)-  , _cExitCode        :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Container' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cNetworkBindings' - The network bindings associated with the container.------ * 'cContainerARN' - The Amazon Resource Name (ARN) of the container.------ * 'cTaskARN' - The Amazon Resource Name (ARN) of the task.------ * 'cLastStatus' - The last known status of the container.------ * 'cReason' - A short (255 max characters) human-readable string to provide additional details about a running or stopped container.------ * 'cName' - The name of the container.------ * 'cExitCode' - The exit code returned from the container.-container-    :: Container-container =-  Container'-  { _cNetworkBindings = Nothing-  , _cContainerARN = Nothing-  , _cTaskARN = Nothing-  , _cLastStatus = Nothing-  , _cReason = Nothing-  , _cName = Nothing-  , _cExitCode = Nothing-  }----- | The network bindings associated with the container.-cNetworkBindings :: Lens' Container [NetworkBinding]-cNetworkBindings = lens _cNetworkBindings (\ s a -> s{_cNetworkBindings = a}) . _Default . _Coerce;---- | The Amazon Resource Name (ARN) of the container.-cContainerARN :: Lens' Container (Maybe Text)-cContainerARN = lens _cContainerARN (\ s a -> s{_cContainerARN = a});---- | The Amazon Resource Name (ARN) of the task.-cTaskARN :: Lens' Container (Maybe Text)-cTaskARN = lens _cTaskARN (\ s a -> s{_cTaskARN = a});---- | The last known status of the container.-cLastStatus :: Lens' Container (Maybe Text)-cLastStatus = lens _cLastStatus (\ s a -> s{_cLastStatus = a});---- | A short (255 max characters) human-readable string to provide additional details about a running or stopped container.-cReason :: Lens' Container (Maybe Text)-cReason = lens _cReason (\ s a -> s{_cReason = a});---- | The name of the container.-cName :: Lens' Container (Maybe Text)-cName = lens _cName (\ s a -> s{_cName = a});---- | The exit code returned from the container.-cExitCode :: Lens' Container (Maybe Int)-cExitCode = lens _cExitCode (\ s a -> s{_cExitCode = a});--instance FromJSON Container where-        parseJSON-          = withObject "Container"-              (\ x ->-                 Container' <$>-                   (x .:? "networkBindings" .!= mempty) <*>-                     (x .:? "containerArn")-                     <*> (x .:? "taskArn")-                     <*> (x .:? "lastStatus")-                     <*> (x .:? "reason")-                     <*> (x .:? "name")-                     <*> (x .:? "exitCode"))--instance Hashable Container where--instance NFData Container where---- | Container definitions are used in task definitions to describe the different containers that are launched as part of a task.------------ /See:/ 'containerDefinition' smart constructor.-data ContainerDefinition = ContainerDefinition'-  { _cdImage                  :: !(Maybe Text)-  , _cdCommand                :: !(Maybe [Text])-  , _cdHostname               :: !(Maybe Text)-  , _cdDockerSecurityOptions  :: !(Maybe [Text])-  , _cdDisableNetworking      :: !(Maybe Bool)-  , _cdVolumesFrom            :: !(Maybe [VolumeFrom])-  , _cdEnvironment            :: !(Maybe [KeyValuePair])-  , _cdEntryPoint             :: !(Maybe [Text])-  , _cdWorkingDirectory       :: !(Maybe Text)-  , _cdUlimits                :: !(Maybe [Ulimit])-  , _cdPrivileged             :: !(Maybe Bool)-  , _cdPortMappings           :: !(Maybe [PortMapping])-  , _cdDockerLabels           :: !(Maybe (Map Text Text))-  , _cdExtraHosts             :: !(Maybe [HostEntry])-  , _cdMemory                 :: !(Maybe Int)-  , _cdUser                   :: !(Maybe Text)-  , _cdDnsSearchDomains       :: !(Maybe [Text])-  , _cdLogConfiguration       :: !(Maybe LogConfiguration)-  , _cdLinuxParameters        :: !(Maybe LinuxParameters)-  , _cdName                   :: !(Maybe Text)-  , _cdDnsServers             :: !(Maybe [Text])-  , _cdMountPoints            :: !(Maybe [MountPoint])-  , _cdLinks                  :: !(Maybe [Text])-  , _cdReadonlyRootFilesystem :: !(Maybe Bool)-  , _cdEssential              :: !(Maybe Bool)-  , _cdCpu                    :: !(Maybe Int)-  , _cdMemoryReservation      :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ContainerDefinition' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdImage' - 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 either @/repository-url/ //image/ :/tag/ @ or @/repository-url/ //image/ @/digest/ @ . 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @IMAGE@ parameter of <https://docs.docker.com/engine/reference/run/ docker run> .     * Images in Amazon ECR repositories can be specified by either using the full @registry/repository:tag@ or @registry/repository@digest@ . For example, @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>:latest@ or @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>@sha256:94afd1f2e64d908bc90dbca0035a5b567EXAMPLE@ .      * 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@ ).------ * 'cdCommand' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ 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> .------ * 'cdHostname' - The hostname to use for your container. This parameter maps to @Hostname@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--hostname@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdDockerSecurityOptions' - A list of strings to provide custom labels for SELinux and AppArmor multi-level security systems. This parameter maps to @SecurityOpt@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--security-opt@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdDisableNetworking' - When this parameter is true, networking is disabled within the container. This parameter maps to @NetworkDisabled@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> .------ * 'cdVolumesFrom' - Data volumes to mount from another container. This parameter maps to @VolumesFrom@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--volumes-from@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdEnvironment' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ 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.------ * 'cdEntryPoint' - /Important:/ Early versions of the Amazon ECS container agent do not properly handle @entryPoint@ parameters. If you have problems using @entryPoint@ , update your container agent or enter your commands and arguments as @command@ array items instead. The entry point that is passed to the container. This parameter maps to @Entrypoint@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--entrypoint@ option to <https://docs.docker.com/engine/reference/run/ docker run> . For more information, see <https://docs.docker.com/engine/reference/builder/#entrypoint https://docs.docker.com/engine/reference/builder/#entrypoint> .------ * 'cdWorkingDirectory' - The working directory in which to run commands inside the container. This parameter maps to @WorkingDir@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--workdir@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdUlimits' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--ulimit@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid naming values are displayed in the 'Ulimit' data type. This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@------ * 'cdPrivileged' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--privileged@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdPortMappings' - The list of port mappings for the container. Port mappings allow containers to access ports on the host container instance to send or receive traffic. This parameter maps to @PortBindings@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--publish@ option to <https://docs.docker.com/engine/reference/run/ docker run> . If the network mode of a task definition is set to @none@ , then you cannot specify port mappings. If the network mode of a task definition is set to @host@ , then host ports must either be undefined or they must match the container port in the port mapping.------ * 'cdDockerLabels' - A key/value map of labels to add to the container. This parameter maps to @Labels@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--label@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@------ * 'cdExtraHosts' - A list of hostnames and IP address mappings to append to the @/etc/hosts@ file on the container. This parameter maps to @ExtraHosts@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--add-host@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdMemory' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--memory@ option to <https://docs.docker.com/engine/reference/run/ docker run> . You must specify a non-zero integer for one or both of @memory@ or @memoryReservation@ in container definitions. If you specify both, @memory@ must be greater than @memoryReservation@ . If you specify @memoryReservation@ , then that value is subtracted from the available memory resources for the container instance on which the container is placed; otherwise, the value of @memory@ is used. The Docker daemon reserves a minimum of 4 MiB of memory for a container, so you should not specify fewer than 4 MiB of memory for your containers.------ * 'cdUser' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--user@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdDnsSearchDomains' - A list of DNS search domains that are presented to the container. This parameter maps to @DnsSearch@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--dns-search@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdLogConfiguration' - The log configuration specification for the container. This parameter maps to @LogConfig@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--log-driver@ option to <https://docs.docker.com/engine/reference/run/ docker run> . By default, containers use the same logging driver that the Docker daemon uses; however the container may use a different logging driver than the Docker daemon by specifying a log driver with this parameter in the container definition. To use a different logging driver for a container, the log system must be configured properly on the container instance (or on a different log server for remote logging options). For more information on the options for different supported log drivers, see <https://docs.docker.com/engine/admin/logging/overview/ Configure logging drivers> in the Docker documentation. This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@------ * 'cdLinuxParameters' - Linux-specific modifications that are applied to the container, such as Linux 'KernelCapabilities' .------ * 'cdName' - The name of a container. If you are linking multiple containers together in a task definition, the @name@ of one container can be entered in the @links@ of another container to connect the containers. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. This parameter maps to @name@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--name@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdDnsServers' - A list of DNS servers that are presented to the container. This parameter maps to @Dns@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--dns@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdMountPoints' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--volume@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'cdLinks' - The @link@ parameter allows containers to communicate with each other without the need for port mappings, using the @name@ parameter and optionally, an @alias@ for the link. This construct is analogous to @name:alias@ in Docker links. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed for each @name@ and @alias@ . For more information on linking Docker containers, see <https://docs.docker.com/engine/userguide/networking/default_network/dockerlinks/ https://docs.docker.com/engine/userguide/networking/default_network/dockerlinks/> . This parameter maps to @Links@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--link@ option to <https://docs.docker.com/engine/reference/run/ docker run> . /Important:/ Containers that are collocated on a single container instance may be able to communicate with each other without requiring links or host port mappings. Network isolation is achieved on the container instance using security groups and VPC settings.------ * 'cdReadonlyRootFilesystem' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--read-only@ option to @docker run@ .------ * 'cdEssential' - If the @essential@ parameter of a container is marked as @true@ , and that container fails or stops for any reason, all other containers that are part of the task are stopped. If the @essential@ parameter of a container is marked as @false@ , then its failure does not affect the rest of the containers in a task. If this parameter is omitted, a container is assumed to be essential. All tasks must have at least one essential container. If you have an application that is composed of multiple containers, you should group containers that are used for a common purpose into components, and separate the different components into multiple task definitions. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/application_architecture.html Application Architecture> in the /Amazon EC2 Container Service Developer Guide/ .------ * 'cdCpu' - The number of @cpu@ units reserved for the container. A container instance has 1,024 @cpu@ units for every CPU core. This parameter specifies the minimum amount of CPU to reserve for a container, and containers share unallocated CPU units with other containers on the instance with the same ratio as their allocated amount. This parameter maps to @CpuShares@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cpu-shares@ option to <https://docs.docker.com/engine/reference/run/ docker run> . For example, if you run a single-container task on a single-core instance type with 512 CPU units specified for that container, and that is the only task running on the container instance, that container could use the full 1,024 CPU unit share at any given time. However, if you launched another copy of the same task on that container instance, each task would be guaranteed a minimum of 512 CPU units when needed, and each container could float to higher CPU usage if the other container was not using it, but if both tasks were 100% active all of the time, they would be limited to 512 CPU units. The Docker daemon on the container instance uses the CPU value to calculate the relative CPU share ratios for running containers. For more information, see <https://docs.docker.com/engine/reference/run/#cpu-share-constraint CPU share constraint> in the Docker documentation. The minimum valid CPU share value that the Linux kernel allows is 2; however, the CPU parameter is not required, and you can use CPU values below 2 in your container definitions. For CPU values below 2 (including null), the behavior varies based on your Amazon ECS container agent version:     * __Agent versions less than or equal to 1.1.0:__ Null and zero CPU values are passed to Docker as 0, which Docker then converts to 1,024 CPU shares. CPU values of 1 are passed to Docker as 1, which the Linux kernel converts to 2 CPU shares.     * __Agent versions greater than or equal to 1.2.0:__ Null, zero, and CPU values of 1 are passed to Docker as 2.------ * 'cdMemoryReservation' - The soft limit (in MiB) of memory to reserve for the container. When system memory is under heavy contention, Docker attempts to keep the container memory to this soft limit; however, your container can consume more memory when it needs to, up to either the hard limit specified with the @memory@ parameter (if applicable), or all of the available memory on the container instance, whichever comes first. This parameter maps to @MemoryReservation@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--memory-reservation@ option to <https://docs.docker.com/engine/reference/run/ docker run> . You must specify a non-zero integer for one or both of @memory@ or @memoryReservation@ in container definitions. If you specify both, @memory@ must be greater than @memoryReservation@ . If you specify @memoryReservation@ , then that value is subtracted from the available memory resources for the container instance on which the container is placed; otherwise, the value of @memory@ is used. For example, if your container normally uses 128 MiB of memory, but occasionally bursts to 256 MiB of memory for short periods of time, you can set a @memoryReservation@ of 128 MiB, and a @memory@ hard limit of 300 MiB. This configuration would allow the container to only reserve 128 MiB of memory from the remaining resources on the container instance, but also allow the container to consume more memory resources when needed.-containerDefinition-    :: ContainerDefinition-containerDefinition =-  ContainerDefinition'-  { _cdImage = Nothing-  , _cdCommand = Nothing-  , _cdHostname = Nothing-  , _cdDockerSecurityOptions = Nothing-  , _cdDisableNetworking = Nothing-  , _cdVolumesFrom = Nothing-  , _cdEnvironment = Nothing-  , _cdEntryPoint = Nothing-  , _cdWorkingDirectory = Nothing-  , _cdUlimits = Nothing-  , _cdPrivileged = Nothing-  , _cdPortMappings = Nothing-  , _cdDockerLabels = Nothing-  , _cdExtraHosts = Nothing-  , _cdMemory = Nothing-  , _cdUser = Nothing-  , _cdDnsSearchDomains = Nothing-  , _cdLogConfiguration = Nothing-  , _cdLinuxParameters = Nothing-  , _cdName = Nothing-  , _cdDnsServers = Nothing-  , _cdMountPoints = Nothing-  , _cdLinks = Nothing-  , _cdReadonlyRootFilesystem = Nothing-  , _cdEssential = Nothing-  , _cdCpu = Nothing-  , _cdMemoryReservation = Nothing-  }----- | 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 either @/repository-url/ //image/ :/tag/ @ or @/repository-url/ //image/ @/digest/ @ . 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @IMAGE@ parameter of <https://docs.docker.com/engine/reference/run/ docker run> .     * Images in Amazon ECR repositories can be specified by either using the full @registry/repository:tag@ or @registry/repository@digest@ . For example, @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>:latest@ or @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>@sha256:94afd1f2e64d908bc90dbca0035a5b567EXAMPLE@ .      * 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@ ).-cdImage :: Lens' ContainerDefinition (Maybe Text)-cdImage = lens _cdImage (\ s a -> s{_cdImage = a});---- | 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ 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> .-cdCommand :: Lens' ContainerDefinition [Text]-cdCommand = lens _cdCommand (\ s a -> s{_cdCommand = a}) . _Default . _Coerce;---- | The hostname to use for your container. This parameter maps to @Hostname@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--hostname@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdHostname :: Lens' ContainerDefinition (Maybe Text)-cdHostname = lens _cdHostname (\ s a -> s{_cdHostname = a});---- | A list of strings to provide custom labels for SELinux and AppArmor multi-level security systems. This parameter maps to @SecurityOpt@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--security-opt@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdDockerSecurityOptions :: Lens' ContainerDefinition [Text]-cdDockerSecurityOptions = lens _cdDockerSecurityOptions (\ s a -> s{_cdDockerSecurityOptions = a}) . _Default . _Coerce;---- | When this parameter is true, networking is disabled within the container. This parameter maps to @NetworkDisabled@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> .-cdDisableNetworking :: Lens' ContainerDefinition (Maybe Bool)-cdDisableNetworking = lens _cdDisableNetworking (\ s a -> s{_cdDisableNetworking = a});---- | Data volumes to mount from another container. This parameter maps to @VolumesFrom@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--volumes-from@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdVolumesFrom :: Lens' ContainerDefinition [VolumeFrom]-cdVolumesFrom = lens _cdVolumesFrom (\ s a -> s{_cdVolumesFrom = 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ 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.-cdEnvironment :: Lens' ContainerDefinition [KeyValuePair]-cdEnvironment = lens _cdEnvironment (\ s a -> s{_cdEnvironment = a}) . _Default . _Coerce;---- | /Important:/ Early versions of the Amazon ECS container agent do not properly handle @entryPoint@ parameters. If you have problems using @entryPoint@ , update your container agent or enter your commands and arguments as @command@ array items instead. The entry point that is passed to the container. This parameter maps to @Entrypoint@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--entrypoint@ option to <https://docs.docker.com/engine/reference/run/ docker run> . For more information, see <https://docs.docker.com/engine/reference/builder/#entrypoint https://docs.docker.com/engine/reference/builder/#entrypoint> .-cdEntryPoint :: Lens' ContainerDefinition [Text]-cdEntryPoint = lens _cdEntryPoint (\ s a -> s{_cdEntryPoint = a}) . _Default . _Coerce;---- | The working directory in which to run commands inside the container. This parameter maps to @WorkingDir@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--workdir@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdWorkingDirectory :: Lens' ContainerDefinition (Maybe Text)-cdWorkingDirectory = lens _cdWorkingDirectory (\ s a -> s{_cdWorkingDirectory = a});---- | 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--ulimit@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid naming values are displayed in the 'Ulimit' data type. This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@-cdUlimits :: Lens' ContainerDefinition [Ulimit]-cdUlimits = lens _cdUlimits (\ s a -> s{_cdUlimits = 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--privileged@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdPrivileged :: Lens' ContainerDefinition (Maybe Bool)-cdPrivileged = lens _cdPrivileged (\ s a -> s{_cdPrivileged = a});---- | The list of port mappings for the container. Port mappings allow containers to access ports on the host container instance to send or receive traffic. This parameter maps to @PortBindings@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--publish@ option to <https://docs.docker.com/engine/reference/run/ docker run> . If the network mode of a task definition is set to @none@ , then you cannot specify port mappings. If the network mode of a task definition is set to @host@ , then host ports must either be undefined or they must match the container port in the port mapping.-cdPortMappings :: Lens' ContainerDefinition [PortMapping]-cdPortMappings = lens _cdPortMappings (\ s a -> s{_cdPortMappings = a}) . _Default . _Coerce;---- | A key/value map of labels to add to the container. This parameter maps to @Labels@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--label@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@-cdDockerLabels :: Lens' ContainerDefinition (HashMap Text Text)-cdDockerLabels = lens _cdDockerLabels (\ s a -> s{_cdDockerLabels = a}) . _Default . _Map;---- | A list of hostnames and IP address mappings to append to the @/etc/hosts@ file on the container. This parameter maps to @ExtraHosts@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--add-host@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdExtraHosts :: Lens' ContainerDefinition [HostEntry]-cdExtraHosts = lens _cdExtraHosts (\ s a -> s{_cdExtraHosts = a}) . _Default . _Coerce;---- | 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--memory@ option to <https://docs.docker.com/engine/reference/run/ docker run> . You must specify a non-zero integer for one or both of @memory@ or @memoryReservation@ in container definitions. If you specify both, @memory@ must be greater than @memoryReservation@ . If you specify @memoryReservation@ , then that value is subtracted from the available memory resources for the container instance on which the container is placed; otherwise, the value of @memory@ is used. The Docker daemon reserves a minimum of 4 MiB of memory for a container, so you should not specify fewer than 4 MiB of memory for your containers.-cdMemory :: Lens' ContainerDefinition (Maybe Int)-cdMemory = lens _cdMemory (\ s a -> s{_cdMemory = 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--user@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdUser :: Lens' ContainerDefinition (Maybe Text)-cdUser = lens _cdUser (\ s a -> s{_cdUser = a});---- | A list of DNS search domains that are presented to the container. This parameter maps to @DnsSearch@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--dns-search@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdDnsSearchDomains :: Lens' ContainerDefinition [Text]-cdDnsSearchDomains = lens _cdDnsSearchDomains (\ s a -> s{_cdDnsSearchDomains = a}) . _Default . _Coerce;---- | The log configuration specification for the container. This parameter maps to @LogConfig@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--log-driver@ option to <https://docs.docker.com/engine/reference/run/ docker run> . By default, containers use the same logging driver that the Docker daemon uses; however the container may use a different logging driver than the Docker daemon by specifying a log driver with this parameter in the container definition. To use a different logging driver for a container, the log system must be configured properly on the container instance (or on a different log server for remote logging options). For more information on the options for different supported log drivers, see <https://docs.docker.com/engine/admin/logging/overview/ Configure logging drivers> in the Docker documentation. This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@-cdLogConfiguration :: Lens' ContainerDefinition (Maybe LogConfiguration)-cdLogConfiguration = lens _cdLogConfiguration (\ s a -> s{_cdLogConfiguration = a});---- | Linux-specific modifications that are applied to the container, such as Linux 'KernelCapabilities' .-cdLinuxParameters :: Lens' ContainerDefinition (Maybe LinuxParameters)-cdLinuxParameters = lens _cdLinuxParameters (\ s a -> s{_cdLinuxParameters = a});---- | The name of a container. If you are linking multiple containers together in a task definition, the @name@ of one container can be entered in the @links@ of another container to connect the containers. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. This parameter maps to @name@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--name@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdName :: Lens' ContainerDefinition (Maybe Text)-cdName = lens _cdName (\ s a -> s{_cdName = a});---- | A list of DNS servers that are presented to the container. This parameter maps to @Dns@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--dns@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdDnsServers :: Lens' ContainerDefinition [Text]-cdDnsServers = lens _cdDnsServers (\ s a -> s{_cdDnsServers = a}) . _Default . _Coerce;---- | 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--volume@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-cdMountPoints :: Lens' ContainerDefinition [MountPoint]-cdMountPoints = lens _cdMountPoints (\ s a -> s{_cdMountPoints = a}) . _Default . _Coerce;---- | The @link@ parameter allows containers to communicate with each other without the need for port mappings, using the @name@ parameter and optionally, an @alias@ for the link. This construct is analogous to @name:alias@ in Docker links. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed for each @name@ and @alias@ . For more information on linking Docker containers, see <https://docs.docker.com/engine/userguide/networking/default_network/dockerlinks/ https://docs.docker.com/engine/userguide/networking/default_network/dockerlinks/> . This parameter maps to @Links@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--link@ option to <https://docs.docker.com/engine/reference/run/ docker run> . /Important:/ Containers that are collocated on a single container instance may be able to communicate with each other without requiring links or host port mappings. Network isolation is achieved on the container instance using security groups and VPC settings.-cdLinks :: Lens' ContainerDefinition [Text]-cdLinks = lens _cdLinks (\ s a -> s{_cdLinks = 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--read-only@ option to @docker run@ .-cdReadonlyRootFilesystem :: Lens' ContainerDefinition (Maybe Bool)-cdReadonlyRootFilesystem = lens _cdReadonlyRootFilesystem (\ s a -> s{_cdReadonlyRootFilesystem = a});---- | If the @essential@ parameter of a container is marked as @true@ , and that container fails or stops for any reason, all other containers that are part of the task are stopped. If the @essential@ parameter of a container is marked as @false@ , then its failure does not affect the rest of the containers in a task. If this parameter is omitted, a container is assumed to be essential. All tasks must have at least one essential container. If you have an application that is composed of multiple containers, you should group containers that are used for a common purpose into components, and separate the different components into multiple task definitions. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/application_architecture.html Application Architecture> in the /Amazon EC2 Container Service Developer Guide/ .-cdEssential :: Lens' ContainerDefinition (Maybe Bool)-cdEssential = lens _cdEssential (\ s a -> s{_cdEssential = a});---- | The number of @cpu@ units reserved for the container. A container instance has 1,024 @cpu@ units for every CPU core. This parameter specifies the minimum amount of CPU to reserve for a container, and containers share unallocated CPU units with other containers on the instance with the same ratio as their allocated amount. This parameter maps to @CpuShares@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cpu-shares@ option to <https://docs.docker.com/engine/reference/run/ docker run> . For example, if you run a single-container task on a single-core instance type with 512 CPU units specified for that container, and that is the only task running on the container instance, that container could use the full 1,024 CPU unit share at any given time. However, if you launched another copy of the same task on that container instance, each task would be guaranteed a minimum of 512 CPU units when needed, and each container could float to higher CPU usage if the other container was not using it, but if both tasks were 100% active all of the time, they would be limited to 512 CPU units. The Docker daemon on the container instance uses the CPU value to calculate the relative CPU share ratios for running containers. For more information, see <https://docs.docker.com/engine/reference/run/#cpu-share-constraint CPU share constraint> in the Docker documentation. The minimum valid CPU share value that the Linux kernel allows is 2; however, the CPU parameter is not required, and you can use CPU values below 2 in your container definitions. For CPU values below 2 (including null), the behavior varies based on your Amazon ECS container agent version:     * __Agent versions less than or equal to 1.1.0:__ Null and zero CPU values are passed to Docker as 0, which Docker then converts to 1,024 CPU shares. CPU values of 1 are passed to Docker as 1, which the Linux kernel converts to 2 CPU shares.     * __Agent versions greater than or equal to 1.2.0:__ Null, zero, and CPU values of 1 are passed to Docker as 2.-cdCpu :: Lens' ContainerDefinition (Maybe Int)-cdCpu = lens _cdCpu (\ s a -> s{_cdCpu = a});---- | The soft limit (in MiB) of memory to reserve for the container. When system memory is under heavy contention, Docker attempts to keep the container memory to this soft limit; however, your container can consume more memory when it needs to, up to either the hard limit specified with the @memory@ parameter (if applicable), or all of the available memory on the container instance, whichever comes first. This parameter maps to @MemoryReservation@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--memory-reservation@ option to <https://docs.docker.com/engine/reference/run/ docker run> . You must specify a non-zero integer for one or both of @memory@ or @memoryReservation@ in container definitions. If you specify both, @memory@ must be greater than @memoryReservation@ . If you specify @memoryReservation@ , then that value is subtracted from the available memory resources for the container instance on which the container is placed; otherwise, the value of @memory@ is used. For example, if your container normally uses 128 MiB of memory, but occasionally bursts to 256 MiB of memory for short periods of time, you can set a @memoryReservation@ of 128 MiB, and a @memory@ hard limit of 300 MiB. This configuration would allow the container to only reserve 128 MiB of memory from the remaining resources on the container instance, but also allow the container to consume more memory resources when needed.-cdMemoryReservation :: Lens' ContainerDefinition (Maybe Int)-cdMemoryReservation = lens _cdMemoryReservation (\ s a -> s{_cdMemoryReservation = a});--instance FromJSON ContainerDefinition where-        parseJSON-          = withObject "ContainerDefinition"-              (\ x ->-                 ContainerDefinition' <$>-                   (x .:? "image") <*> (x .:? "command" .!= mempty) <*>-                     (x .:? "hostname")-                     <*> (x .:? "dockerSecurityOptions" .!= mempty)-                     <*> (x .:? "disableNetworking")-                     <*> (x .:? "volumesFrom" .!= mempty)-                     <*> (x .:? "environment" .!= mempty)-                     <*> (x .:? "entryPoint" .!= mempty)-                     <*> (x .:? "workingDirectory")-                     <*> (x .:? "ulimits" .!= mempty)-                     <*> (x .:? "privileged")-                     <*> (x .:? "portMappings" .!= mempty)-                     <*> (x .:? "dockerLabels" .!= mempty)-                     <*> (x .:? "extraHosts" .!= mempty)-                     <*> (x .:? "memory")-                     <*> (x .:? "user")-                     <*> (x .:? "dnsSearchDomains" .!= mempty)-                     <*> (x .:? "logConfiguration")-                     <*> (x .:? "linuxParameters")-                     <*> (x .:? "name")-                     <*> (x .:? "dnsServers" .!= mempty)-                     <*> (x .:? "mountPoints" .!= mempty)-                     <*> (x .:? "links" .!= mempty)-                     <*> (x .:? "readonlyRootFilesystem")-                     <*> (x .:? "essential")-                     <*> (x .:? "cpu")-                     <*> (x .:? "memoryReservation"))--instance Hashable ContainerDefinition where--instance NFData ContainerDefinition where--instance ToJSON ContainerDefinition where-        toJSON ContainerDefinition'{..}-          = object-              (catMaybes-                 [("image" .=) <$> _cdImage,-                  ("command" .=) <$> _cdCommand,-                  ("hostname" .=) <$> _cdHostname,-                  ("dockerSecurityOptions" .=) <$>-                    _cdDockerSecurityOptions,-                  ("disableNetworking" .=) <$> _cdDisableNetworking,-                  ("volumesFrom" .=) <$> _cdVolumesFrom,-                  ("environment" .=) <$> _cdEnvironment,-                  ("entryPoint" .=) <$> _cdEntryPoint,-                  ("workingDirectory" .=) <$> _cdWorkingDirectory,-                  ("ulimits" .=) <$> _cdUlimits,-                  ("privileged" .=) <$> _cdPrivileged,-                  ("portMappings" .=) <$> _cdPortMappings,-                  ("dockerLabels" .=) <$> _cdDockerLabels,-                  ("extraHosts" .=) <$> _cdExtraHosts,-                  ("memory" .=) <$> _cdMemory, ("user" .=) <$> _cdUser,-                  ("dnsSearchDomains" .=) <$> _cdDnsSearchDomains,-                  ("logConfiguration" .=) <$> _cdLogConfiguration,-                  ("linuxParameters" .=) <$> _cdLinuxParameters,-                  ("name" .=) <$> _cdName,-                  ("dnsServers" .=) <$> _cdDnsServers,-                  ("mountPoints" .=) <$> _cdMountPoints,-                  ("links" .=) <$> _cdLinks,-                  ("readonlyRootFilesystem" .=) <$>-                    _cdReadonlyRootFilesystem,-                  ("essential" .=) <$> _cdEssential,-                  ("cpu" .=) <$> _cdCpu,-                  ("memoryReservation" .=) <$> _cdMemoryReservation])---- | An EC2 instance that is running the Amazon ECS agent and has been registered with a cluster.------------ /See:/ 'containerInstance' smart constructor.-data ContainerInstance = ContainerInstance'-  { _ciStatus               :: !(Maybe Text)-  , _ciRunningTasksCount    :: !(Maybe Int)-  , _ciRemainingResources   :: !(Maybe [Resource])-  , _ciEc2InstanceId        :: !(Maybe Text)-  , _ciContainerInstanceARN :: !(Maybe Text)-  , _ciAgentConnected       :: !(Maybe Bool)-  , _ciVersionInfo          :: !(Maybe VersionInfo)-  , _ciAgentUpdateStatus    :: !(Maybe AgentUpdateStatus)-  , _ciAttributes           :: !(Maybe [Attribute])-  , _ciVersion              :: !(Maybe Integer)-  , _ciPendingTasksCount    :: !(Maybe Int)-  , _ciRegisteredAt         :: !(Maybe POSIX)-  , _ciRegisteredResources  :: !(Maybe [Resource])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ContainerInstance' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ciStatus' - The status of the container instance. The valid values are @ACTIVE@ , @INACTIVE@ , or @DRAINING@ . @ACTIVE@ indicates that the container instance can accept tasks. @DRAINING@ indicates that new tasks are not placed on the container instance and any service tasks running on the container instance are removed if possible. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/container-instance-draining.html Container Instance Draining> in the /Amazon EC2 Container Service Developer Guide/ .------ * 'ciRunningTasksCount' - The number of tasks on the container instance that are in the @RUNNING@ status.------ * 'ciRemainingResources' - For most resource types, this parameter describes the remaining resources of the container instance that are available for new tasks. For port resource types, this parameter describes the ports that are reserved by the Amazon ECS container agent and any containers that have reserved port mappings; any port that is not specified here is available for new tasks.------ * 'ciEc2InstanceId' - The EC2 instance ID of the container instance.------ * 'ciContainerInstanceARN' - The Amazon Resource Name (ARN) of the container instance. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ .------ * 'ciAgentConnected' - This parameter returns @true@ if the agent is actually connected to Amazon ECS. Registered instances with an agent that may be unhealthy or stopped return @false@ , and instances without a connected agent cannot accept placement requests.------ * 'ciVersionInfo' - The version information for the Amazon ECS container agent and Docker daemon running on the container instance.------ * 'ciAgentUpdateStatus' - The status of the most recent agent update. If an update has never been requested, this value is @NULL@ .------ * 'ciAttributes' - The attributes set for the container instance, either by the Amazon ECS container agent at instance registration or manually with the 'PutAttributes' operation.------ * 'ciVersion' - The version counter for the container instance. Every time a container instance experiences a change that triggers a CloudWatch event, the version counter is incremented. If you are replicating your Amazon ECS container instance state with CloudWatch events, you can compare the version of a container instance reported by the Amazon ECS APIs with the version reported in CloudWatch events for the container instance (inside the @detail@ object) to verify that the version in your event stream is current.------ * 'ciPendingTasksCount' - The number of tasks on the container instance that are in the @PENDING@ status.------ * 'ciRegisteredAt' - The Unix timestamp for when the container instance was registered.------ * 'ciRegisteredResources' - For most resource types, this parameter describes the registered resources on the container instance that are in use by current tasks. For port resource types, this parameter describes the ports that were reserved by the Amazon ECS container agent when it registered the container instance with Amazon ECS.-containerInstance-    :: ContainerInstance-containerInstance =-  ContainerInstance'-  { _ciStatus = Nothing-  , _ciRunningTasksCount = Nothing-  , _ciRemainingResources = Nothing-  , _ciEc2InstanceId = Nothing-  , _ciContainerInstanceARN = Nothing-  , _ciAgentConnected = Nothing-  , _ciVersionInfo = Nothing-  , _ciAgentUpdateStatus = Nothing-  , _ciAttributes = Nothing-  , _ciVersion = Nothing-  , _ciPendingTasksCount = Nothing-  , _ciRegisteredAt = Nothing-  , _ciRegisteredResources = Nothing-  }----- | The status of the container instance. The valid values are @ACTIVE@ , @INACTIVE@ , or @DRAINING@ . @ACTIVE@ indicates that the container instance can accept tasks. @DRAINING@ indicates that new tasks are not placed on the container instance and any service tasks running on the container instance are removed if possible. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/container-instance-draining.html Container Instance Draining> in the /Amazon EC2 Container Service Developer Guide/ .-ciStatus :: Lens' ContainerInstance (Maybe Text)-ciStatus = lens _ciStatus (\ s a -> s{_ciStatus = a});---- | The number of tasks on the container instance that are in the @RUNNING@ status.-ciRunningTasksCount :: Lens' ContainerInstance (Maybe Int)-ciRunningTasksCount = lens _ciRunningTasksCount (\ s a -> s{_ciRunningTasksCount = a});---- | For most resource types, this parameter describes the remaining resources of the container instance that are available for new tasks. For port resource types, this parameter describes the ports that are reserved by the Amazon ECS container agent and any containers that have reserved port mappings; any port that is not specified here is available for new tasks.-ciRemainingResources :: Lens' ContainerInstance [Resource]-ciRemainingResources = lens _ciRemainingResources (\ s a -> s{_ciRemainingResources = a}) . _Default . _Coerce;---- | The EC2 instance ID of the container instance.-ciEc2InstanceId :: Lens' ContainerInstance (Maybe Text)-ciEc2InstanceId = lens _ciEc2InstanceId (\ s a -> s{_ciEc2InstanceId = a});---- | The Amazon Resource Name (ARN) of the container instance. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ .-ciContainerInstanceARN :: Lens' ContainerInstance (Maybe Text)-ciContainerInstanceARN = lens _ciContainerInstanceARN (\ s a -> s{_ciContainerInstanceARN = a});---- | This parameter returns @true@ if the agent is actually connected to Amazon ECS. Registered instances with an agent that may be unhealthy or stopped return @false@ , and instances without a connected agent cannot accept placement requests.-ciAgentConnected :: Lens' ContainerInstance (Maybe Bool)-ciAgentConnected = lens _ciAgentConnected (\ s a -> s{_ciAgentConnected = a});---- | The version information for the Amazon ECS container agent and Docker daemon running on the container instance.-ciVersionInfo :: Lens' ContainerInstance (Maybe VersionInfo)-ciVersionInfo = lens _ciVersionInfo (\ s a -> s{_ciVersionInfo = a});---- | The status of the most recent agent update. If an update has never been requested, this value is @NULL@ .-ciAgentUpdateStatus :: Lens' ContainerInstance (Maybe AgentUpdateStatus)-ciAgentUpdateStatus = lens _ciAgentUpdateStatus (\ s a -> s{_ciAgentUpdateStatus = a});---- | The attributes set for the container instance, either by the Amazon ECS container agent at instance registration or manually with the 'PutAttributes' operation.-ciAttributes :: Lens' ContainerInstance [Attribute]-ciAttributes = lens _ciAttributes (\ s a -> s{_ciAttributes = a}) . _Default . _Coerce;---- | The version counter for the container instance. Every time a container instance experiences a change that triggers a CloudWatch event, the version counter is incremented. If you are replicating your Amazon ECS container instance state with CloudWatch events, you can compare the version of a container instance reported by the Amazon ECS APIs with the version reported in CloudWatch events for the container instance (inside the @detail@ object) to verify that the version in your event stream is current.-ciVersion :: Lens' ContainerInstance (Maybe Integer)-ciVersion = lens _ciVersion (\ s a -> s{_ciVersion = a});---- | The number of tasks on the container instance that are in the @PENDING@ status.-ciPendingTasksCount :: Lens' ContainerInstance (Maybe Int)-ciPendingTasksCount = lens _ciPendingTasksCount (\ s a -> s{_ciPendingTasksCount = a});---- | The Unix timestamp for when the container instance was registered.-ciRegisteredAt :: Lens' ContainerInstance (Maybe UTCTime)-ciRegisteredAt = lens _ciRegisteredAt (\ s a -> s{_ciRegisteredAt = a}) . mapping _Time;---- | For most resource types, this parameter describes the registered resources on the container instance that are in use by current tasks. For port resource types, this parameter describes the ports that were reserved by the Amazon ECS container agent when it registered the container instance with Amazon ECS.-ciRegisteredResources :: Lens' ContainerInstance [Resource]-ciRegisteredResources = lens _ciRegisteredResources (\ s a -> s{_ciRegisteredResources = a}) . _Default . _Coerce;--instance FromJSON ContainerInstance where-        parseJSON-          = withObject "ContainerInstance"-              (\ x ->-                 ContainerInstance' <$>-                   (x .:? "status") <*> (x .:? "runningTasksCount") <*>-                     (x .:? "remainingResources" .!= mempty)-                     <*> (x .:? "ec2InstanceId")-                     <*> (x .:? "containerInstanceArn")-                     <*> (x .:? "agentConnected")-                     <*> (x .:? "versionInfo")-                     <*> (x .:? "agentUpdateStatus")-                     <*> (x .:? "attributes" .!= mempty)-                     <*> (x .:? "version")-                     <*> (x .:? "pendingTasksCount")-                     <*> (x .:? "registeredAt")-                     <*> (x .:? "registeredResources" .!= mempty))--instance Hashable ContainerInstance where--instance NFData ContainerInstance where---- | The overrides that should be sent to a container.------------ /See:/ 'containerOverride' smart constructor.-data ContainerOverride = ContainerOverride'-  { _coCommand           :: !(Maybe [Text])-  , _coEnvironment       :: !(Maybe [KeyValuePair])-  , _coMemory            :: !(Maybe Int)-  , _coName              :: !(Maybe Text)-  , _coCpu               :: !(Maybe Int)-  , _coMemoryReservation :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ContainerOverride' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'coCommand' - The command to send to the container that overrides the default command from the Docker image or the task definition. You must also specify a container name.------ * 'coEnvironment' - 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 task definition. You must also specify a container name.------ * 'coMemory' - The hard limit (in MiB) of memory to present to the container, instead of the default value from the task definition. If your container attempts to exceed the memory specified here, the container is killed. You must also specify a container name.------ * 'coName' - The name of the container that receives the override. This parameter is required if any override is specified.------ * 'coCpu' - The number of @cpu@ units reserved for the container, instead of the default value from the task definition. You must also specify a container name.------ * 'coMemoryReservation' - The soft limit (in MiB) of memory to reserve for the container, instead of the default value from the task definition. You must also specify a container name.-containerOverride-    :: ContainerOverride-containerOverride =-  ContainerOverride'-  { _coCommand = Nothing-  , _coEnvironment = Nothing-  , _coMemory = Nothing-  , _coName = Nothing-  , _coCpu = Nothing-  , _coMemoryReservation = Nothing-  }----- | The command to send to the container that overrides the default command from the Docker image or the task definition. You must also specify a container name.-coCommand :: Lens' ContainerOverride [Text]-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 task definition. You must also specify a container name.-coEnvironment :: Lens' ContainerOverride [KeyValuePair]-coEnvironment = lens _coEnvironment (\ s a -> s{_coEnvironment = a}) . _Default . _Coerce;---- | The hard limit (in MiB) of memory to present to the container, instead of the default value from the task definition. If your container attempts to exceed the memory specified here, the container is killed. You must also specify a container name.-coMemory :: Lens' ContainerOverride (Maybe Int)-coMemory = lens _coMemory (\ s a -> s{_coMemory = a});---- | The name of the container that receives the override. This parameter is required if any override is specified.-coName :: Lens' ContainerOverride (Maybe Text)-coName = lens _coName (\ s a -> s{_coName = a});---- | The number of @cpu@ units reserved for the container, instead of the default value from the task definition. You must also specify a container name.-coCpu :: Lens' ContainerOverride (Maybe Int)-coCpu = lens _coCpu (\ s a -> s{_coCpu = a});---- | The soft limit (in MiB) of memory to reserve for the container, instead of the default value from the task definition. You must also specify a container name.-coMemoryReservation :: Lens' ContainerOverride (Maybe Int)-coMemoryReservation = lens _coMemoryReservation (\ s a -> s{_coMemoryReservation = a});--instance FromJSON ContainerOverride where-        parseJSON-          = withObject "ContainerOverride"-              (\ x ->-                 ContainerOverride' <$>-                   (x .:? "command" .!= mempty) <*>-                     (x .:? "environment" .!= mempty)-                     <*> (x .:? "memory")-                     <*> (x .:? "name")-                     <*> (x .:? "cpu")-                     <*> (x .:? "memoryReservation"))--instance Hashable ContainerOverride where--instance NFData ContainerOverride where--instance ToJSON ContainerOverride where-        toJSON ContainerOverride'{..}-          = object-              (catMaybes-                 [("command" .=) <$> _coCommand,-                  ("environment" .=) <$> _coEnvironment,-                  ("memory" .=) <$> _coMemory, ("name" .=) <$> _coName,-                  ("cpu" .=) <$> _coCpu,-                  ("memoryReservation" .=) <$> _coMemoryReservation])---- | Details on a service within a cluster------------ /See:/ 'containerService' smart constructor.-data ContainerService = ContainerService'-  { _csRunningCount            :: !(Maybe Int)-  , _csStatus                  :: !(Maybe Text)-  , _csClusterARN              :: !(Maybe Text)-  , _csCreatedAt               :: !(Maybe POSIX)-  , _csDesiredCount            :: !(Maybe Int)-  , _csLoadBalancers           :: !(Maybe [LoadBalancer])-  , _csPendingCount            :: !(Maybe Int)-  , _csPlacementConstraints    :: !(Maybe [PlacementConstraint])-  , _csEvents                  :: !(Maybe [ServiceEvent])-  , _csPlacementStrategy       :: !(Maybe [PlacementStrategy])-  , _csDeployments             :: !(Maybe [Deployment])-  , _csServiceName             :: !(Maybe Text)-  , _csServiceARN              :: !(Maybe Text)-  , _csTaskDefinition          :: !(Maybe Text)-  , _csRoleARN                 :: !(Maybe Text)-  , _csDeploymentConfiguration :: !(Maybe DeploymentConfiguration)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ContainerService' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csRunningCount' - The number of tasks in the cluster that are in the @RUNNING@ state.------ * 'csStatus' - The status of the service. The valid values are @ACTIVE@ , @DRAINING@ , or @INACTIVE@ .------ * 'csClusterARN' - The Amazon Resource Name (ARN) of the cluster that hosts the service.------ * 'csCreatedAt' - The Unix timestamp for when the service was created.------ * 'csDesiredCount' - The desired number of instantiations of the task definition to keep running on the service. This value is specified when the service is created with 'CreateService' , and it can be modified with 'UpdateService' .------ * 'csLoadBalancers' - A list of Elastic Load Balancing load balancer objects, containing the load balancer name, the container name (as it appears in a container definition), and the container port to access from the load balancer.------ * 'csPendingCount' - The number of tasks in the cluster that are in the @PENDING@ state.------ * 'csPlacementConstraints' - The placement constraints for the tasks in the service.------ * 'csEvents' - The event stream for your service. A maximum of 100 of the latest events are displayed.------ * 'csPlacementStrategy' - The placement strategy that determines how tasks for the service are placed.------ * 'csDeployments' - The current state of deployments for the service.------ * 'csServiceName' - The name of your service. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. Service names must be unique within a cluster, but you can have similarly named services in multiple clusters within a region or across multiple regions.------ * 'csServiceARN' - The Amazon Resource Name (ARN) that identifies the service. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the service, the AWS account ID of the service owner, the @service@ namespace, and then the service name. For example, @arn:aws:ecs:/region/ :/012345678910/ :service//my-service/ @ .------ * 'csTaskDefinition' - The task definition to use for tasks in the service. This value is specified when the service is created with 'CreateService' , and it can be modified with 'UpdateService' .------ * 'csRoleARN' - The Amazon Resource Name (ARN) of the IAM role associated with the service that allows the Amazon ECS container agent to register container instances with an Elastic Load Balancing load balancer.------ * 'csDeploymentConfiguration' - Optional deployment parameters that control how many tasks run during the deployment and the ordering of stopping and starting tasks.-containerService-    :: ContainerService-containerService =-  ContainerService'-  { _csRunningCount = Nothing-  , _csStatus = Nothing-  , _csClusterARN = Nothing-  , _csCreatedAt = Nothing-  , _csDesiredCount = Nothing-  , _csLoadBalancers = Nothing-  , _csPendingCount = Nothing-  , _csPlacementConstraints = Nothing-  , _csEvents = Nothing-  , _csPlacementStrategy = Nothing-  , _csDeployments = Nothing-  , _csServiceName = Nothing-  , _csServiceARN = Nothing-  , _csTaskDefinition = Nothing-  , _csRoleARN = Nothing-  , _csDeploymentConfiguration = Nothing-  }----- | The number of tasks in the cluster that are in the @RUNNING@ state.-csRunningCount :: Lens' ContainerService (Maybe Int)-csRunningCount = lens _csRunningCount (\ s a -> s{_csRunningCount = a});---- | The status of the service. The valid values are @ACTIVE@ , @DRAINING@ , or @INACTIVE@ .-csStatus :: Lens' ContainerService (Maybe Text)-csStatus = lens _csStatus (\ s a -> s{_csStatus = a});---- | The Amazon Resource Name (ARN) of the cluster that hosts the service.-csClusterARN :: Lens' ContainerService (Maybe Text)-csClusterARN = lens _csClusterARN (\ s a -> s{_csClusterARN = a});---- | The Unix timestamp for when the service was created.-csCreatedAt :: Lens' ContainerService (Maybe UTCTime)-csCreatedAt = lens _csCreatedAt (\ s a -> s{_csCreatedAt = a}) . mapping _Time;---- | The desired number of instantiations of the task definition to keep running on the service. This value is specified when the service is created with 'CreateService' , and it can be modified with 'UpdateService' .-csDesiredCount :: Lens' ContainerService (Maybe Int)-csDesiredCount = lens _csDesiredCount (\ s a -> s{_csDesiredCount = a});---- | A list of Elastic Load Balancing load balancer objects, containing the load balancer name, the container name (as it appears in a container definition), and the container port to access from the load balancer.-csLoadBalancers :: Lens' ContainerService [LoadBalancer]-csLoadBalancers = lens _csLoadBalancers (\ s a -> s{_csLoadBalancers = a}) . _Default . _Coerce;---- | The number of tasks in the cluster that are in the @PENDING@ state.-csPendingCount :: Lens' ContainerService (Maybe Int)-csPendingCount = lens _csPendingCount (\ s a -> s{_csPendingCount = a});---- | The placement constraints for the tasks in the service.-csPlacementConstraints :: Lens' ContainerService [PlacementConstraint]-csPlacementConstraints = lens _csPlacementConstraints (\ s a -> s{_csPlacementConstraints = a}) . _Default . _Coerce;---- | The event stream for your service. A maximum of 100 of the latest events are displayed.-csEvents :: Lens' ContainerService [ServiceEvent]-csEvents = lens _csEvents (\ s a -> s{_csEvents = a}) . _Default . _Coerce;---- | The placement strategy that determines how tasks for the service are placed.-csPlacementStrategy :: Lens' ContainerService [PlacementStrategy]-csPlacementStrategy = lens _csPlacementStrategy (\ s a -> s{_csPlacementStrategy = a}) . _Default . _Coerce;---- | The current state of deployments for the service.-csDeployments :: Lens' ContainerService [Deployment]-csDeployments = lens _csDeployments (\ s a -> s{_csDeployments = a}) . _Default . _Coerce;---- | The name of your service. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. Service names must be unique within a cluster, but you can have similarly named services in multiple clusters within a region or across multiple regions.-csServiceName :: Lens' ContainerService (Maybe Text)-csServiceName = lens _csServiceName (\ s a -> s{_csServiceName = a});---- | The Amazon Resource Name (ARN) that identifies the service. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the service, the AWS account ID of the service owner, the @service@ namespace, and then the service name. For example, @arn:aws:ecs:/region/ :/012345678910/ :service//my-service/ @ .-csServiceARN :: Lens' ContainerService (Maybe Text)-csServiceARN = lens _csServiceARN (\ s a -> s{_csServiceARN = a});---- | The task definition to use for tasks in the service. This value is specified when the service is created with 'CreateService' , and it can be modified with 'UpdateService' .-csTaskDefinition :: Lens' ContainerService (Maybe Text)-csTaskDefinition = lens _csTaskDefinition (\ s a -> s{_csTaskDefinition = a});---- | The Amazon Resource Name (ARN) of the IAM role associated with the service that allows the Amazon ECS container agent to register container instances with an Elastic Load Balancing load balancer.-csRoleARN :: Lens' ContainerService (Maybe Text)-csRoleARN = lens _csRoleARN (\ s a -> s{_csRoleARN = a});---- | Optional deployment parameters that control how many tasks run during the deployment and the ordering of stopping and starting tasks.-csDeploymentConfiguration :: Lens' ContainerService (Maybe DeploymentConfiguration)-csDeploymentConfiguration = lens _csDeploymentConfiguration (\ s a -> s{_csDeploymentConfiguration = a});--instance FromJSON ContainerService where-        parseJSON-          = withObject "ContainerService"-              (\ x ->-                 ContainerService' <$>-                   (x .:? "runningCount") <*> (x .:? "status") <*>-                     (x .:? "clusterArn")-                     <*> (x .:? "createdAt")-                     <*> (x .:? "desiredCount")-                     <*> (x .:? "loadBalancers" .!= mempty)-                     <*> (x .:? "pendingCount")-                     <*> (x .:? "placementConstraints" .!= mempty)-                     <*> (x .:? "events" .!= mempty)-                     <*> (x .:? "placementStrategy" .!= mempty)-                     <*> (x .:? "deployments" .!= mempty)-                     <*> (x .:? "serviceName")-                     <*> (x .:? "serviceArn")-                     <*> (x .:? "taskDefinition")-                     <*> (x .:? "roleArn")-                     <*> (x .:? "deploymentConfiguration"))--instance Hashable ContainerService where--instance NFData ContainerService where---- | The details of an Amazon ECS service deployment.------------ /See:/ 'deployment' smart constructor.-data Deployment = Deployment'-  { _dRunningCount   :: !(Maybe Int)-  , _dStatus         :: !(Maybe Text)-  , _dCreatedAt      :: !(Maybe POSIX)-  , _dDesiredCount   :: !(Maybe Int)-  , _dPendingCount   :: !(Maybe Int)-  , _dId             :: !(Maybe Text)-  , _dUpdatedAt      :: !(Maybe POSIX)-  , _dTaskDefinition :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Deployment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dRunningCount' - The number of tasks in the deployment that are in the @RUNNING@ status.------ * 'dStatus' - The status of the deployment. Valid values are @PRIMARY@ (for the most recent deployment), @ACTIVE@ (for previous deployments that still have tasks running, but are being replaced with the @PRIMARY@ deployment), and @INACTIVE@ (for deployments that have been completely replaced).------ * 'dCreatedAt' - The Unix timestamp for when the service was created.------ * 'dDesiredCount' - The most recent desired count of tasks that was specified for the service to deploy or maintain.------ * 'dPendingCount' - The number of tasks in the deployment that are in the @PENDING@ status.------ * 'dId' - The ID of the deployment.------ * 'dUpdatedAt' - The Unix timestamp for when the service was last updated.------ * 'dTaskDefinition' - The most recent task definition that was specified for the service to use.-deployment-    :: Deployment-deployment =-  Deployment'-  { _dRunningCount = Nothing-  , _dStatus = Nothing-  , _dCreatedAt = Nothing-  , _dDesiredCount = Nothing-  , _dPendingCount = Nothing-  , _dId = Nothing-  , _dUpdatedAt = Nothing-  , _dTaskDefinition = Nothing-  }----- | The number of tasks in the deployment that are in the @RUNNING@ status.-dRunningCount :: Lens' Deployment (Maybe Int)-dRunningCount = lens _dRunningCount (\ s a -> s{_dRunningCount = a});---- | The status of the deployment. Valid values are @PRIMARY@ (for the most recent deployment), @ACTIVE@ (for previous deployments that still have tasks running, but are being replaced with the @PRIMARY@ deployment), and @INACTIVE@ (for deployments that have been completely replaced).-dStatus :: Lens' Deployment (Maybe Text)-dStatus = lens _dStatus (\ s a -> s{_dStatus = a});---- | The Unix timestamp for when the service was created.-dCreatedAt :: Lens' Deployment (Maybe UTCTime)-dCreatedAt = lens _dCreatedAt (\ s a -> s{_dCreatedAt = a}) . mapping _Time;---- | The most recent desired count of tasks that was specified for the service to deploy or maintain.-dDesiredCount :: Lens' Deployment (Maybe Int)-dDesiredCount = lens _dDesiredCount (\ s a -> s{_dDesiredCount = a});---- | The number of tasks in the deployment that are in the @PENDING@ status.-dPendingCount :: Lens' Deployment (Maybe Int)-dPendingCount = lens _dPendingCount (\ s a -> s{_dPendingCount = a});---- | The ID of the deployment.-dId :: Lens' Deployment (Maybe Text)-dId = lens _dId (\ s a -> s{_dId = a});---- | The Unix timestamp for when the service was last updated.-dUpdatedAt :: Lens' Deployment (Maybe UTCTime)-dUpdatedAt = lens _dUpdatedAt (\ s a -> s{_dUpdatedAt = a}) . mapping _Time;---- | The most recent task definition that was specified for the service to use.-dTaskDefinition :: Lens' Deployment (Maybe Text)-dTaskDefinition = lens _dTaskDefinition (\ s a -> s{_dTaskDefinition = a});--instance FromJSON Deployment where-        parseJSON-          = withObject "Deployment"-              (\ x ->-                 Deployment' <$>-                   (x .:? "runningCount") <*> (x .:? "status") <*>-                     (x .:? "createdAt")-                     <*> (x .:? "desiredCount")-                     <*> (x .:? "pendingCount")-                     <*> (x .:? "id")-                     <*> (x .:? "updatedAt")-                     <*> (x .:? "taskDefinition"))--instance Hashable Deployment where--instance NFData Deployment where---- | Optional deployment parameters that control how many tasks run during the deployment and the ordering of stopping and starting tasks.------------ /See:/ 'deploymentConfiguration' smart constructor.-data DeploymentConfiguration = DeploymentConfiguration'-  { _dcMinimumHealthyPercent :: !(Maybe Int)-  , _dcMaximumPercent        :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeploymentConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcMinimumHealthyPercent' - The lower limit (as a percentage of the service's @desiredCount@ ) of the number of running tasks that must remain in the @RUNNING@ state in a service during a deployment. The minimum healthy tasks during a deployment is the @desiredCount@ multiplied by @minimumHealthyPercent@ /100, rounded up to the nearest integer value.------ * 'dcMaximumPercent' - The upper limit (as a percentage of the service's @desiredCount@ ) of the number of tasks that are allowed in the @RUNNING@ or @PENDING@ state in a service during a deployment. The maximum number of tasks during a deployment is the @desiredCount@ multiplied by @maximumPercent@ /100, rounded down to the nearest integer value.-deploymentConfiguration-    :: DeploymentConfiguration-deploymentConfiguration =-  DeploymentConfiguration'-  {_dcMinimumHealthyPercent = Nothing, _dcMaximumPercent = Nothing}----- | The lower limit (as a percentage of the service's @desiredCount@ ) of the number of running tasks that must remain in the @RUNNING@ state in a service during a deployment. The minimum healthy tasks during a deployment is the @desiredCount@ multiplied by @minimumHealthyPercent@ /100, rounded up to the nearest integer value.-dcMinimumHealthyPercent :: Lens' DeploymentConfiguration (Maybe Int)-dcMinimumHealthyPercent = lens _dcMinimumHealthyPercent (\ s a -> s{_dcMinimumHealthyPercent = a});---- | The upper limit (as a percentage of the service's @desiredCount@ ) of the number of tasks that are allowed in the @RUNNING@ or @PENDING@ state in a service during a deployment. The maximum number of tasks during a deployment is the @desiredCount@ multiplied by @maximumPercent@ /100, rounded down to the nearest integer value.-dcMaximumPercent :: Lens' DeploymentConfiguration (Maybe Int)-dcMaximumPercent = lens _dcMaximumPercent (\ s a -> s{_dcMaximumPercent = a});--instance FromJSON DeploymentConfiguration where-        parseJSON-          = withObject "DeploymentConfiguration"-              (\ x ->-                 DeploymentConfiguration' <$>-                   (x .:? "minimumHealthyPercent") <*>-                     (x .:? "maximumPercent"))--instance Hashable DeploymentConfiguration where--instance NFData DeploymentConfiguration where--instance ToJSON DeploymentConfiguration where-        toJSON DeploymentConfiguration'{..}-          = object-              (catMaybes-                 [("minimumHealthyPercent" .=) <$>-                    _dcMinimumHealthyPercent,-                  ("maximumPercent" .=) <$> _dcMaximumPercent])---- | An object representing a container instance host device.------------ /See:/ 'device' smart constructor.-data Device = Device'-  { _dContainerPath :: !(Maybe Text)-  , _dPermissions   :: !(Maybe [DeviceCgroupPermission])-  , _dHostPath      :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Device' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dContainerPath' - The path inside the container at which to expose the host device.------ * 'dPermissions' - The explicit permissions to provide to the container for the device. By default, the container will be able to @read@ , @write@ , and @mknod@ the device.------ * 'dHostPath' - The path for the device on the host container instance.-device-    :: Text -- ^ 'dHostPath'-    -> Device-device pHostPath_ =-  Device'-  {_dContainerPath = Nothing, _dPermissions = Nothing, _dHostPath = pHostPath_}----- | The path inside the container at which to expose the host device.-dContainerPath :: Lens' Device (Maybe Text)-dContainerPath = lens _dContainerPath (\ s a -> s{_dContainerPath = a});---- | The explicit permissions to provide to the container for the device. By default, the container will be able to @read@ , @write@ , and @mknod@ the device.-dPermissions :: Lens' Device [DeviceCgroupPermission]-dPermissions = lens _dPermissions (\ s a -> s{_dPermissions = a}) . _Default . _Coerce;---- | The path for the device on the host container instance.-dHostPath :: Lens' Device Text-dHostPath = lens _dHostPath (\ s a -> s{_dHostPath = a});--instance FromJSON Device where-        parseJSON-          = withObject "Device"-              (\ x ->-                 Device' <$>-                   (x .:? "containerPath") <*>-                     (x .:? "permissions" .!= mempty)-                     <*> (x .: "hostPath"))--instance Hashable Device where--instance NFData Device where--instance ToJSON Device where-        toJSON Device'{..}-          = object-              (catMaybes-                 [("containerPath" .=) <$> _dContainerPath,-                  ("permissions" .=) <$> _dPermissions,-                  Just ("hostPath" .= _dHostPath)])---- | A failed resource.------------ /See:/ 'failure' smart constructor.-data Failure = Failure'-  { _fArn    :: !(Maybe Text)-  , _fReason :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Failure' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fArn' - The Amazon Resource Name (ARN) of the failed resource.------ * 'fReason' - The reason for the failure.-failure-    :: Failure-failure = Failure' {_fArn = Nothing, _fReason = Nothing}----- | The Amazon Resource Name (ARN) of the failed resource.-fArn :: Lens' Failure (Maybe Text)-fArn = lens _fArn (\ s a -> s{_fArn = a});---- | The reason for the failure.-fReason :: Lens' Failure (Maybe Text)-fReason = lens _fReason (\ s a -> s{_fReason = a});--instance FromJSON Failure where-        parseJSON-          = withObject "Failure"-              (\ x ->-                 Failure' <$> (x .:? "arn") <*> (x .:? "reason"))--instance Hashable Failure where--instance NFData Failure where---- | Hostnames and IP address entries that are added to the @/etc/hosts@ file of a container via the @extraHosts@ parameter of its 'ContainerDefinition' .------------ /See:/ 'hostEntry' smart constructor.-data HostEntry = HostEntry'-  { _heHostname  :: !Text-  , _heIpAddress :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'HostEntry' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'heHostname' - The hostname to use in the @/etc/hosts@ entry.------ * 'heIpAddress' - The IP address to use in the @/etc/hosts@ entry.-hostEntry-    :: Text -- ^ 'heHostname'-    -> Text -- ^ 'heIpAddress'-    -> HostEntry-hostEntry pHostname_ pIpAddress_ =-  HostEntry' {_heHostname = pHostname_, _heIpAddress = pIpAddress_}----- | The hostname to use in the @/etc/hosts@ entry.-heHostname :: Lens' HostEntry Text-heHostname = lens _heHostname (\ s a -> s{_heHostname = a});---- | The IP address to use in the @/etc/hosts@ entry.-heIpAddress :: Lens' HostEntry Text-heIpAddress = lens _heIpAddress (\ s a -> s{_heIpAddress = a});--instance FromJSON HostEntry where-        parseJSON-          = withObject "HostEntry"-              (\ x ->-                 HostEntry' <$>-                   (x .: "hostname") <*> (x .: "ipAddress"))--instance Hashable HostEntry where--instance NFData HostEntry where--instance ToJSON HostEntry where-        toJSON HostEntry'{..}-          = object-              (catMaybes-                 [Just ("hostname" .= _heHostname),-                  Just ("ipAddress" .= _heIpAddress)])---- | Details on a container instance host volume.------------ /See:/ 'hostVolumeProperties' smart constructor.-newtype HostVolumeProperties = HostVolumeProperties'-  { _hvpSourcePath :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'HostVolumeProperties' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hvpSourcePath' - 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.-hostVolumeProperties-    :: HostVolumeProperties-hostVolumeProperties = HostVolumeProperties' {_hvpSourcePath = Nothing}----- | 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.-hvpSourcePath :: Lens' HostVolumeProperties (Maybe Text)-hvpSourcePath = lens _hvpSourcePath (\ s a -> s{_hvpSourcePath = a});--instance FromJSON HostVolumeProperties where-        parseJSON-          = withObject "HostVolumeProperties"-              (\ x ->-                 HostVolumeProperties' <$> (x .:? "sourcePath"))--instance Hashable HostVolumeProperties where--instance NFData HostVolumeProperties where--instance ToJSON HostVolumeProperties where-        toJSON HostVolumeProperties'{..}-          = object-              (catMaybes [("sourcePath" .=) <$> _hvpSourcePath])---- | The Linux capabilities for the container that are added to or dropped from the default configuration provided by Docker. For more information on the default capabilities and the non-default available capabilities, see <https://docs.docker.com/engine/reference/run/#runtime-privilege-and-linux-capabilities Runtime privilege and Linux capabilities> in the /Docker run reference/ . For more detailed information on these Linux capabilities, see the <http://man7.org/linux/man-pages/man7/capabilities.7.html capabilities(7)> Linux manual page.------------ /See:/ 'kernelCapabilities' smart constructor.-data KernelCapabilities = KernelCapabilities'-  { _kcDrop :: !(Maybe [Text])-  , _kcAdd  :: !(Maybe [Text])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'KernelCapabilities' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'kcDrop' - The Linux capabilities for the container that have been removed from the default configuration provided by Docker. This parameter maps to @CapDrop@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cap-drop@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid values: @"ALL" | "AUDIT_CONTROL" | "AUDIT_WRITE" | "BLOCK_SUSPEND" | "CHOWN" | "DAC_OVERRIDE" | "DAC_READ_SEARCH" | "FOWNER" | "FSETID" | "IPC_LOCK" | "IPC_OWNER" | "KILL" | "LEASE" | "LINUX_IMMUTABLE" | "MAC_ADMIN" | "MAC_OVERRIDE" | "MKNOD" | "NET_ADMIN" | "NET_BIND_SERVICE" | "NET_BROADCAST" | "NET_RAW" | "SETFCAP" | "SETGID" | "SETPCAP" | "SETUID" | "SYS_ADMIN" | "SYS_BOOT" | "SYS_CHROOT" | "SYS_MODULE" | "SYS_NICE" | "SYS_PACCT" | "SYS_PTRACE" | "SYS_RAWIO" | "SYS_RESOURCE" | "SYS_TIME" | "SYS_TTY_CONFIG" | "SYSLOG" | "WAKE_ALARM"@------ * 'kcAdd' - The Linux capabilities for the container that have been added to the default configuration provided by Docker. This parameter maps to @CapAdd@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cap-add@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid values: @"ALL" | "AUDIT_CONTROL" | "AUDIT_WRITE" | "BLOCK_SUSPEND" | "CHOWN" | "DAC_OVERRIDE" | "DAC_READ_SEARCH" | "FOWNER" | "FSETID" | "IPC_LOCK" | "IPC_OWNER" | "KILL" | "LEASE" | "LINUX_IMMUTABLE" | "MAC_ADMIN" | "MAC_OVERRIDE" | "MKNOD" | "NET_ADMIN" | "NET_BIND_SERVICE" | "NET_BROADCAST" | "NET_RAW" | "SETFCAP" | "SETGID" | "SETPCAP" | "SETUID" | "SYS_ADMIN" | "SYS_BOOT" | "SYS_CHROOT" | "SYS_MODULE" | "SYS_NICE" | "SYS_PACCT" | "SYS_PTRACE" | "SYS_RAWIO" | "SYS_RESOURCE" | "SYS_TIME" | "SYS_TTY_CONFIG" | "SYSLOG" | "WAKE_ALARM"@-kernelCapabilities-    :: KernelCapabilities-kernelCapabilities = KernelCapabilities' {_kcDrop = Nothing, _kcAdd = Nothing}----- | The Linux capabilities for the container that have been removed from the default configuration provided by Docker. This parameter maps to @CapDrop@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cap-drop@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid values: @"ALL" | "AUDIT_CONTROL" | "AUDIT_WRITE" | "BLOCK_SUSPEND" | "CHOWN" | "DAC_OVERRIDE" | "DAC_READ_SEARCH" | "FOWNER" | "FSETID" | "IPC_LOCK" | "IPC_OWNER" | "KILL" | "LEASE" | "LINUX_IMMUTABLE" | "MAC_ADMIN" | "MAC_OVERRIDE" | "MKNOD" | "NET_ADMIN" | "NET_BIND_SERVICE" | "NET_BROADCAST" | "NET_RAW" | "SETFCAP" | "SETGID" | "SETPCAP" | "SETUID" | "SYS_ADMIN" | "SYS_BOOT" | "SYS_CHROOT" | "SYS_MODULE" | "SYS_NICE" | "SYS_PACCT" | "SYS_PTRACE" | "SYS_RAWIO" | "SYS_RESOURCE" | "SYS_TIME" | "SYS_TTY_CONFIG" | "SYSLOG" | "WAKE_ALARM"@-kcDrop :: Lens' KernelCapabilities [Text]-kcDrop = lens _kcDrop (\ s a -> s{_kcDrop = a}) . _Default . _Coerce;---- | The Linux capabilities for the container that have been added to the default configuration provided by Docker. This parameter maps to @CapAdd@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cap-add@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid values: @"ALL" | "AUDIT_CONTROL" | "AUDIT_WRITE" | "BLOCK_SUSPEND" | "CHOWN" | "DAC_OVERRIDE" | "DAC_READ_SEARCH" | "FOWNER" | "FSETID" | "IPC_LOCK" | "IPC_OWNER" | "KILL" | "LEASE" | "LINUX_IMMUTABLE" | "MAC_ADMIN" | "MAC_OVERRIDE" | "MKNOD" | "NET_ADMIN" | "NET_BIND_SERVICE" | "NET_BROADCAST" | "NET_RAW" | "SETFCAP" | "SETGID" | "SETPCAP" | "SETUID" | "SYS_ADMIN" | "SYS_BOOT" | "SYS_CHROOT" | "SYS_MODULE" | "SYS_NICE" | "SYS_PACCT" | "SYS_PTRACE" | "SYS_RAWIO" | "SYS_RESOURCE" | "SYS_TIME" | "SYS_TTY_CONFIG" | "SYSLOG" | "WAKE_ALARM"@-kcAdd :: Lens' KernelCapabilities [Text]-kcAdd = lens _kcAdd (\ s a -> s{_kcAdd = a}) . _Default . _Coerce;--instance FromJSON KernelCapabilities where-        parseJSON-          = withObject "KernelCapabilities"-              (\ x ->-                 KernelCapabilities' <$>-                   (x .:? "drop" .!= mempty) <*>-                     (x .:? "add" .!= mempty))--instance Hashable KernelCapabilities where--instance NFData KernelCapabilities where--instance ToJSON KernelCapabilities where-        toJSON KernelCapabilities'{..}-          = object-              (catMaybes-                 [("drop" .=) <$> _kcDrop, ("add" .=) <$> _kcAdd])---- | A key and value pair object.------------ /See:/ 'keyValuePair' smart constructor.-data KeyValuePair = KeyValuePair'-  { _kvpValue :: !(Maybe Text)-  , _kvpName  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'KeyValuePair' with the minimum fields required to make a request.------ 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.------ * '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.-kvpValue :: Lens' KeyValuePair (Maybe Text)-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.-kvpName :: Lens' KeyValuePair (Maybe Text)-kvpName = lens _kvpName (\ s a -> s{_kvpName = a});--instance FromJSON KeyValuePair where-        parseJSON-          = withObject "KeyValuePair"-              (\ x ->-                 KeyValuePair' <$> (x .:? "value") <*> (x .:? "name"))--instance Hashable KeyValuePair where--instance NFData KeyValuePair where--instance ToJSON KeyValuePair where-        toJSON KeyValuePair'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _kvpValue,-                  ("name" .=) <$> _kvpName])---- | Linux-specific options that are applied to the container, such as Linux 'KernelCapabilities' .------------ /See:/ 'linuxParameters' smart constructor.-data LinuxParameters = LinuxParameters'-  { _lpInitProcessEnabled :: !(Maybe Bool)-  , _lpDevices            :: !(Maybe [Device])-  , _lpCapabilities       :: !(Maybe KernelCapabilities)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'LinuxParameters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lpInitProcessEnabled' - Run an @init@ process inside the container that forwards signals and reaps processes. This parameter maps to the @--init@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This parameter requires version 1.25 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@------ * 'lpDevices' - Any host devices to expose to the container. This parameter maps to @Devices@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--device@ option to <https://docs.docker.com/engine/reference/run/ docker run> .------ * 'lpCapabilities' - The Linux capabilities for the container that are added to or dropped from the default configuration provided by Docker.-linuxParameters-    :: LinuxParameters-linuxParameters =-  LinuxParameters'-  { _lpInitProcessEnabled = Nothing-  , _lpDevices = Nothing-  , _lpCapabilities = Nothing-  }----- | Run an @init@ process inside the container that forwards signals and reaps processes. This parameter maps to the @--init@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This parameter requires version 1.25 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@-lpInitProcessEnabled :: Lens' LinuxParameters (Maybe Bool)-lpInitProcessEnabled = lens _lpInitProcessEnabled (\ s a -> s{_lpInitProcessEnabled = a});---- | Any host devices to expose to the container. This parameter maps to @Devices@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--device@ option to <https://docs.docker.com/engine/reference/run/ docker run> .-lpDevices :: Lens' LinuxParameters [Device]-lpDevices = lens _lpDevices (\ s a -> s{_lpDevices = a}) . _Default . _Coerce;---- | The Linux capabilities for the container that are added to or dropped from the default configuration provided by Docker.-lpCapabilities :: Lens' LinuxParameters (Maybe KernelCapabilities)-lpCapabilities = lens _lpCapabilities (\ s a -> s{_lpCapabilities = a});--instance FromJSON LinuxParameters where-        parseJSON-          = withObject "LinuxParameters"-              (\ x ->-                 LinuxParameters' <$>-                   (x .:? "initProcessEnabled") <*>-                     (x .:? "devices" .!= mempty)-                     <*> (x .:? "capabilities"))--instance Hashable LinuxParameters where--instance NFData LinuxParameters where--instance ToJSON LinuxParameters where-        toJSON LinuxParameters'{..}-          = object-              (catMaybes-                 [("initProcessEnabled" .=) <$> _lpInitProcessEnabled,-                  ("devices" .=) <$> _lpDevices,-                  ("capabilities" .=) <$> _lpCapabilities])---- | Details on a load balancer that is used with a service.------------ /See:/ 'loadBalancer' smart constructor.-data LoadBalancer = LoadBalancer'-  { _lbLoadBalancerName :: !(Maybe Text)-  , _lbContainerName    :: !(Maybe Text)-  , _lbTargetGroupARN   :: !(Maybe Text)-  , _lbContainerPort    :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'LoadBalancer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lbLoadBalancerName' - The name of a load balancer.------ * 'lbContainerName' - The name of the container (as it appears in a container definition) to associate with the load balancer.------ * 'lbTargetGroupARN' - The full Amazon Resource Name (ARN) of the Elastic Load Balancing target group associated with a service.------ * 'lbContainerPort' - The port on the container to associate with the load balancer. This port must correspond to a @containerPort@ in the service's task definition. Your container instances must allow ingress traffic on the @hostPort@ of the port mapping.-loadBalancer-    :: LoadBalancer-loadBalancer =-  LoadBalancer'-  { _lbLoadBalancerName = Nothing-  , _lbContainerName = Nothing-  , _lbTargetGroupARN = Nothing-  , _lbContainerPort = Nothing-  }----- | The name of a load balancer.-lbLoadBalancerName :: Lens' LoadBalancer (Maybe Text)-lbLoadBalancerName = lens _lbLoadBalancerName (\ s a -> s{_lbLoadBalancerName = a});---- | The name of the container (as it appears in a container definition) to associate with the load balancer.-lbContainerName :: Lens' LoadBalancer (Maybe Text)-lbContainerName = lens _lbContainerName (\ s a -> s{_lbContainerName = a});---- | The full Amazon Resource Name (ARN) of the Elastic Load Balancing target group associated with a service.-lbTargetGroupARN :: Lens' LoadBalancer (Maybe Text)-lbTargetGroupARN = lens _lbTargetGroupARN (\ s a -> s{_lbTargetGroupARN = a});---- | The port on the container to associate with the load balancer. This port must correspond to a @containerPort@ in the service's task definition. Your container instances must allow ingress traffic on the @hostPort@ of the port mapping.-lbContainerPort :: Lens' LoadBalancer (Maybe Int)-lbContainerPort = lens _lbContainerPort (\ s a -> s{_lbContainerPort = a});--instance FromJSON LoadBalancer where-        parseJSON-          = withObject "LoadBalancer"-              (\ x ->-                 LoadBalancer' <$>-                   (x .:? "loadBalancerName") <*>-                     (x .:? "containerName")-                     <*> (x .:? "targetGroupArn")-                     <*> (x .:? "containerPort"))--instance Hashable LoadBalancer where--instance NFData LoadBalancer where--instance ToJSON LoadBalancer where-        toJSON LoadBalancer'{..}-          = object-              (catMaybes-                 [("loadBalancerName" .=) <$> _lbLoadBalancerName,-                  ("containerName" .=) <$> _lbContainerName,-                  ("targetGroupArn" .=) <$> _lbTargetGroupARN,-                  ("containerPort" .=) <$> _lbContainerPort])---- | Log configuration options to send to a custom log driver for the container.------------ /See:/ 'logConfiguration' smart constructor.-data LogConfiguration = LogConfiguration'-  { _lcOptions   :: !(Maybe (Map Text Text))-  , _lcLogDriver :: !LogDriver-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'LogConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lcOptions' - The configuration options to send to the log driver. This parameter requires version 1.19 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@------ * 'lcLogDriver' - The log driver to use for the container. The valid values listed for this parameter are log drivers that the Amazon ECS container agent can communicate with by default.  This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@-logConfiguration-    :: LogDriver -- ^ 'lcLogDriver'-    -> LogConfiguration-logConfiguration pLogDriver_ =-  LogConfiguration' {_lcOptions = Nothing, _lcLogDriver = pLogDriver_}----- | The configuration options to send to the log driver. This parameter requires version 1.19 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@-lcOptions :: Lens' LogConfiguration (HashMap Text Text)-lcOptions = lens _lcOptions (\ s a -> s{_lcOptions = a}) . _Default . _Map;---- | The log driver to use for the container. The valid values listed for this parameter are log drivers that the Amazon ECS container agent can communicate with by default.  This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log into your container instance and run the following command: @sudo docker version | grep "Server API version"@-lcLogDriver :: Lens' LogConfiguration LogDriver-lcLogDriver = lens _lcLogDriver (\ s a -> s{_lcLogDriver = a});--instance FromJSON LogConfiguration where-        parseJSON-          = withObject "LogConfiguration"-              (\ x ->-                 LogConfiguration' <$>-                   (x .:? "options" .!= mempty) <*> (x .: "logDriver"))--instance Hashable LogConfiguration where--instance NFData LogConfiguration where--instance ToJSON LogConfiguration where-        toJSON LogConfiguration'{..}-          = object-              (catMaybes-                 [("options" .=) <$> _lcOptions,-                  Just ("logDriver" .= _lcLogDriver)])---- | Details on a volume mount point that is used in a container definition.------------ /See:/ 'mountPoint' smart constructor.-data MountPoint = MountPoint'-  { _mpContainerPath :: !(Maybe Text)-  , _mpSourceVolume  :: !(Maybe Text)-  , _mpReadOnly      :: !(Maybe Bool)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'MountPoint' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mpContainerPath' - The path on the container to mount the host volume at.------ * 'mpSourceVolume' - The name of the volume to mount.------ * 'mpReadOnly' - If this value is @true@ , the container has read-only access to the volume. If this value is @false@ , then the container can write to the volume. The default value is @false@ .-mountPoint-    :: MountPoint-mountPoint =-  MountPoint'-  {_mpContainerPath = Nothing, _mpSourceVolume = Nothing, _mpReadOnly = Nothing}----- | The path on the container to mount the host volume at.-mpContainerPath :: Lens' MountPoint (Maybe Text)-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});---- | If this value is @true@ , the container has read-only access to the volume. If this value is @false@ , then 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});--instance FromJSON MountPoint where-        parseJSON-          = withObject "MountPoint"-              (\ x ->-                 MountPoint' <$>-                   (x .:? "containerPath") <*> (x .:? "sourceVolume")-                     <*> (x .:? "readOnly"))--instance Hashable MountPoint where--instance NFData MountPoint where--instance ToJSON MountPoint where-        toJSON MountPoint'{..}-          = object-              (catMaybes-                 [("containerPath" .=) <$> _mpContainerPath,-                  ("sourceVolume" .=) <$> _mpSourceVolume,-                  ("readOnly" .=) <$> _mpReadOnly])---- | Details on the network bindings between a container and its host container instance. After a task reaches the @RUNNING@ status, manual and automatic host and container port assignments are visible in the @networkBindings@ section of 'DescribeTasks' API responses.------------ /See:/ 'networkBinding' smart constructor.-data NetworkBinding = NetworkBinding'-  { _nbBindIP        :: !(Maybe Text)-  , _nbProtocol      :: !(Maybe TransportProtocol)-  , _nbHostPort      :: !(Maybe Int)-  , _nbContainerPort :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'NetworkBinding' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'nbBindIP' - The IP address that the container is bound to on the container instance.------ * 'nbProtocol' - The protocol used for the network binding.------ * 'nbHostPort' - The port number on the host that is used with the network binding.------ * 'nbContainerPort' - The port number on the container that is be used with the network binding.-networkBinding-    :: NetworkBinding-networkBinding =-  NetworkBinding'-  { _nbBindIP = Nothing-  , _nbProtocol = Nothing-  , _nbHostPort = Nothing-  , _nbContainerPort = Nothing-  }----- | The IP address that the container is bound to on the container instance.-nbBindIP :: Lens' NetworkBinding (Maybe Text)-nbBindIP = lens _nbBindIP (\ s a -> s{_nbBindIP = a});---- | The protocol used for the network binding.-nbProtocol :: Lens' NetworkBinding (Maybe TransportProtocol)-nbProtocol = lens _nbProtocol (\ s a -> s{_nbProtocol = a});---- | The port number on the host that is used with the network binding.-nbHostPort :: Lens' NetworkBinding (Maybe Int)-nbHostPort = lens _nbHostPort (\ s a -> s{_nbHostPort = a});---- | The port number on the container that is be used with the network binding.-nbContainerPort :: Lens' NetworkBinding (Maybe Int)-nbContainerPort = lens _nbContainerPort (\ s a -> s{_nbContainerPort = a});--instance FromJSON NetworkBinding where-        parseJSON-          = withObject "NetworkBinding"-              (\ x ->-                 NetworkBinding' <$>-                   (x .:? "bindIP") <*> (x .:? "protocol") <*>-                     (x .:? "hostPort")-                     <*> (x .:? "containerPort"))--instance Hashable NetworkBinding where--instance NFData NetworkBinding where--instance ToJSON NetworkBinding where-        toJSON NetworkBinding'{..}-          = object-              (catMaybes-                 [("bindIP" .=) <$> _nbBindIP,-                  ("protocol" .=) <$> _nbProtocol,-                  ("hostPort" .=) <$> _nbHostPort,-                  ("containerPort" .=) <$> _nbContainerPort])---- | An object representing a constraint on task placement. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-constraints.html Task Placement Constraints> in the /Amazon EC2 Container Service Developer Guide/ .------------ /See:/ 'placementConstraint' smart constructor.-data PlacementConstraint = PlacementConstraint'-  { _pcExpression :: !(Maybe Text)-  , _pcType       :: !(Maybe PlacementConstraintType)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PlacementConstraint' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pcExpression' - A cluster query language expression to apply to the constraint. Note you cannot specify an expression if the constraint type is @distinctInstance@ . For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon EC2 Container Service Developer Guide/ .------ * 'pcType' - The type of constraint. Use @distinctInstance@ to ensure that each task in a particular group is running on a different container instance. Use @memberOf@ to restrict selection to a group of valid candidates. Note that @distinctInstance@ is not supported in task definitions.-placementConstraint-    :: PlacementConstraint-placementConstraint =-  PlacementConstraint' {_pcExpression = Nothing, _pcType = Nothing}----- | A cluster query language expression to apply to the constraint. Note you cannot specify an expression if the constraint type is @distinctInstance@ . For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon EC2 Container Service Developer Guide/ .-pcExpression :: Lens' PlacementConstraint (Maybe Text)-pcExpression = lens _pcExpression (\ s a -> s{_pcExpression = a});---- | The type of constraint. Use @distinctInstance@ to ensure that each task in a particular group is running on a different container instance. Use @memberOf@ to restrict selection to a group of valid candidates. Note that @distinctInstance@ is not supported in task definitions.-pcType :: Lens' PlacementConstraint (Maybe PlacementConstraintType)-pcType = lens _pcType (\ s a -> s{_pcType = a});--instance FromJSON PlacementConstraint where-        parseJSON-          = withObject "PlacementConstraint"-              (\ x ->-                 PlacementConstraint' <$>-                   (x .:? "expression") <*> (x .:? "type"))--instance Hashable PlacementConstraint where--instance NFData PlacementConstraint where--instance ToJSON PlacementConstraint where-        toJSON PlacementConstraint'{..}-          = object-              (catMaybes-                 [("expression" .=) <$> _pcExpression,-                  ("type" .=) <$> _pcType])---- | The task placement strategy for a task or service. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-strategies.html Task Placement Strategies> in the /Amazon EC2 Container Service Developer Guide/ .------------ /See:/ 'placementStrategy' smart constructor.-data PlacementStrategy = PlacementStrategy'-  { _psField :: !(Maybe Text)-  , _psType  :: !(Maybe PlacementStrategyType)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PlacementStrategy' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'psField' - The field to apply the placement strategy against. For the @spread@ placement strategy, valid values are @instanceId@ (or @host@ , which has the same effect), or any platform or custom attribute that is applied to a container instance, such as @attribute:ecs.availability-zone@ . For the @binpack@ placement strategy, valid values are @cpu@ and @memory@ . For the @random@ placement strategy, this field is not used.------ * 'psType' - The type of placement strategy. The @random@ placement strategy randomly places tasks on available candidates. The @spread@ placement strategy spreads placement across available candidates evenly based on the @field@ parameter. The @binpack@ strategy places tasks on available candidates that have the least available amount of the resource that is specified with the @field@ parameter. For example, if you binpack on memory, a task is placed on the instance with the least amount of remaining memory (but still enough to run the task).-placementStrategy-    :: PlacementStrategy-placementStrategy = PlacementStrategy' {_psField = Nothing, _psType = Nothing}----- | The field to apply the placement strategy against. For the @spread@ placement strategy, valid values are @instanceId@ (or @host@ , which has the same effect), or any platform or custom attribute that is applied to a container instance, such as @attribute:ecs.availability-zone@ . For the @binpack@ placement strategy, valid values are @cpu@ and @memory@ . For the @random@ placement strategy, this field is not used.-psField :: Lens' PlacementStrategy (Maybe Text)-psField = lens _psField (\ s a -> s{_psField = a});---- | The type of placement strategy. The @random@ placement strategy randomly places tasks on available candidates. The @spread@ placement strategy spreads placement across available candidates evenly based on the @field@ parameter. The @binpack@ strategy places tasks on available candidates that have the least available amount of the resource that is specified with the @field@ parameter. For example, if you binpack on memory, a task is placed on the instance with the least amount of remaining memory (but still enough to run the task).-psType :: Lens' PlacementStrategy (Maybe PlacementStrategyType)-psType = lens _psType (\ s a -> s{_psType = a});--instance FromJSON PlacementStrategy where-        parseJSON-          = withObject "PlacementStrategy"-              (\ x ->-                 PlacementStrategy' <$>-                   (x .:? "field") <*> (x .:? "type"))--instance Hashable PlacementStrategy where--instance NFData PlacementStrategy where--instance ToJSON PlacementStrategy where-        toJSON PlacementStrategy'{..}-          = object-              (catMaybes-                 [("field" .=) <$> _psField, ("type" .=) <$> _psType])---- | Port mappings allow containers to access ports on the host container instance to send or receive traffic. Port mappings are specified as part of the container definition. After a task reaches the @RUNNING@ status, manual and automatic host and container port assignments are visible in the @networkBindings@ section of 'DescribeTasks' API responses.------------ /See:/ 'portMapping' smart constructor.-data PortMapping = PortMapping'-  { _pmProtocol      :: !(Maybe TransportProtocol)-  , _pmHostPort      :: !(Maybe Int)-  , _pmContainerPort :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PortMapping' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pmProtocol' - The protocol used for the port mapping. Valid values are @tcp@ and @udp@ . The default is @tcp@ .------ * 'pmHostPort' - The port number on the container instance to reserve for your container. You can specify a non-reserved host port for your container port mapping, or you can omit the @hostPort@ (or set it to @0@ ) while specifying a @containerPort@ and your container automatically receives a port in the ephemeral port range for your container instance operating system and Docker version. The default ephemeral port range for Docker version 1.6.0 and later is listed on the instance under @/proc/sys/net/ipv4/ip_local_port_range@ ; if this kernel parameter is unavailable, the default ephemeral port range of 49153 to 65535 is used. You should not attempt to specify a host port in the ephemeral port range as these are reserved for automatic assignment. In general, ports below 32768 are outside of the ephemeral port range. The default reserved ports are 22 for SSH, the Docker ports 2375 and 2376, and the Amazon ECS container agent ports 51678 and 51679. Any host port that was previously specified in a running task is also reserved while the task is running (after a task stops, the host port is released).The current reserved ports are displayed in the @remainingResources@ of 'DescribeContainerInstances' output, and a container instance may have up to 100 reserved ports at a time, including the default reserved ports (automatically assigned ports do not count toward the 100 reserved ports limit).------ * 'pmContainerPort' - The port number on the container that is bound to the user-specified or automatically assigned host port. If you specify a container port and not a host port, your container automatically receives a host port in the ephemeral port range (for more information, see @hostPort@ ). Port mappings that are automatically assigned in this way do not count toward the 100 reserved ports limit of a container instance.-portMapping-    :: PortMapping-portMapping =-  PortMapping'-  {_pmProtocol = Nothing, _pmHostPort = Nothing, _pmContainerPort = Nothing}----- | The protocol used for the port mapping. Valid values are @tcp@ and @udp@ . The default is @tcp@ .-pmProtocol :: Lens' PortMapping (Maybe TransportProtocol)-pmProtocol = lens _pmProtocol (\ s a -> s{_pmProtocol = a});---- | The port number on the container instance to reserve for your container. You can specify a non-reserved host port for your container port mapping, or you can omit the @hostPort@ (or set it to @0@ ) while specifying a @containerPort@ and your container automatically receives a port in the ephemeral port range for your container instance operating system and Docker version. The default ephemeral port range for Docker version 1.6.0 and later is listed on the instance under @/proc/sys/net/ipv4/ip_local_port_range@ ; if this kernel parameter is unavailable, the default ephemeral port range of 49153 to 65535 is used. You should not attempt to specify a host port in the ephemeral port range as these are reserved for automatic assignment. In general, ports below 32768 are outside of the ephemeral port range. The default reserved ports are 22 for SSH, the Docker ports 2375 and 2376, and the Amazon ECS container agent ports 51678 and 51679. Any host port that was previously specified in a running task is also reserved while the task is running (after a task stops, the host port is released).The current reserved ports are displayed in the @remainingResources@ of 'DescribeContainerInstances' output, and a container instance may have up to 100 reserved ports at a time, including the default reserved ports (automatically assigned ports do not count toward the 100 reserved ports limit).-pmHostPort :: Lens' PortMapping (Maybe Int)-pmHostPort = lens _pmHostPort (\ s a -> s{_pmHostPort = a});---- | The port number on the container that is bound to the user-specified or automatically assigned host port. If you specify a container port and not a host port, your container automatically receives a host port in the ephemeral port range (for more information, see @hostPort@ ). Port mappings that are automatically assigned in this way do not count toward the 100 reserved ports limit of a container instance.-pmContainerPort :: Lens' PortMapping (Maybe Int)-pmContainerPort = lens _pmContainerPort (\ s a -> s{_pmContainerPort = a});--instance FromJSON PortMapping where-        parseJSON-          = withObject "PortMapping"-              (\ x ->-                 PortMapping' <$>-                   (x .:? "protocol") <*> (x .:? "hostPort") <*>-                     (x .:? "containerPort"))--instance Hashable PortMapping where--instance NFData PortMapping where--instance ToJSON PortMapping where-        toJSON PortMapping'{..}-          = object-              (catMaybes-                 [("protocol" .=) <$> _pmProtocol,-                  ("hostPort" .=) <$> _pmHostPort,-                  ("containerPort" .=) <$> _pmContainerPort])---- | Describes the resources available for a container instance.------------ /See:/ 'resource' smart constructor.-data Resource = Resource'-  { _rStringSetValue :: !(Maybe [Text])-  , _rIntegerValue   :: !(Maybe Int)-  , _rDoubleValue    :: !(Maybe Double)-  , _rLongValue      :: !(Maybe Integer)-  , _rName           :: !(Maybe Text)-  , _rType           :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Resource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rStringSetValue' - When the @stringSetValue@ type is set, the value of the resource must be a string type.------ * 'rIntegerValue' - When the @integerValue@ type is set, the value of the resource must be an integer.------ * 'rDoubleValue' - When the @doubleValue@ type is set, the value of the resource must be a double precision floating-point type.------ * 'rLongValue' - When the @longValue@ type is set, the value of the resource must be an extended precision floating-point type.------ * 'rName' - The name of the resource, such as @cpu@ , @memory@ , @ports@ , or a user-defined resource.------ * 'rType' - The type of the resource, such as @INTEGER@ , @DOUBLE@ , @LONG@ , or @STRINGSET@ .-resource-    :: Resource-resource =-  Resource'-  { _rStringSetValue = Nothing-  , _rIntegerValue = Nothing-  , _rDoubleValue = Nothing-  , _rLongValue = Nothing-  , _rName = Nothing-  , _rType = Nothing-  }----- | When the @stringSetValue@ type is set, the value of the resource must be a string type.-rStringSetValue :: Lens' Resource [Text]-rStringSetValue = lens _rStringSetValue (\ s a -> s{_rStringSetValue = a}) . _Default . _Coerce;---- | When the @integerValue@ type is set, the value of the resource must be an integer.-rIntegerValue :: Lens' Resource (Maybe Int)-rIntegerValue = lens _rIntegerValue (\ s a -> s{_rIntegerValue = a});---- | When the @doubleValue@ type is set, the value of the resource must be a double precision floating-point type.-rDoubleValue :: Lens' Resource (Maybe Double)-rDoubleValue = lens _rDoubleValue (\ s a -> s{_rDoubleValue = a});---- | When the @longValue@ type is set, the value of the resource must be an extended precision floating-point type.-rLongValue :: Lens' Resource (Maybe Integer)-rLongValue = lens _rLongValue (\ s a -> s{_rLongValue = a});---- | The name of the resource, such as @cpu@ , @memory@ , @ports@ , or a user-defined resource.-rName :: Lens' Resource (Maybe Text)-rName = lens _rName (\ s a -> s{_rName = a});---- | The type of the resource, such as @INTEGER@ , @DOUBLE@ , @LONG@ , or @STRINGSET@ .-rType :: Lens' Resource (Maybe Text)-rType = lens _rType (\ s a -> s{_rType = a});--instance FromJSON Resource where-        parseJSON-          = withObject "Resource"-              (\ x ->-                 Resource' <$>-                   (x .:? "stringSetValue" .!= mempty) <*>-                     (x .:? "integerValue")-                     <*> (x .:? "doubleValue")-                     <*> (x .:? "longValue")-                     <*> (x .:? "name")-                     <*> (x .:? "type"))--instance Hashable Resource where--instance NFData Resource where--instance ToJSON Resource where-        toJSON Resource'{..}-          = object-              (catMaybes-                 [("stringSetValue" .=) <$> _rStringSetValue,-                  ("integerValue" .=) <$> _rIntegerValue,-                  ("doubleValue" .=) <$> _rDoubleValue,-                  ("longValue" .=) <$> _rLongValue,-                  ("name" .=) <$> _rName, ("type" .=) <$> _rType])---- | Details on an event associated with a service.------------ /See:/ 'serviceEvent' smart constructor.-data ServiceEvent = ServiceEvent'-  { _seCreatedAt :: !(Maybe POSIX)-  , _seId        :: !(Maybe Text)-  , _seMessage   :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ServiceEvent' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'seCreatedAt' - The Unix timestamp for when the event was triggered.------ * 'seId' - The ID string of the event.------ * 'seMessage' - The event message.-serviceEvent-    :: ServiceEvent-serviceEvent =-  ServiceEvent' {_seCreatedAt = Nothing, _seId = Nothing, _seMessage = Nothing}----- | The Unix timestamp for when the event was triggered.-seCreatedAt :: Lens' ServiceEvent (Maybe UTCTime)-seCreatedAt = lens _seCreatedAt (\ s a -> s{_seCreatedAt = a}) . mapping _Time;---- | The ID string of the event.-seId :: Lens' ServiceEvent (Maybe Text)-seId = lens _seId (\ s a -> s{_seId = a});---- | The event message.-seMessage :: Lens' ServiceEvent (Maybe Text)-seMessage = lens _seMessage (\ s a -> s{_seMessage = a});--instance FromJSON ServiceEvent where-        parseJSON-          = withObject "ServiceEvent"-              (\ x ->-                 ServiceEvent' <$>-                   (x .:? "createdAt") <*> (x .:? "id") <*>-                     (x .:? "message"))--instance Hashable ServiceEvent where--instance NFData ServiceEvent where---- | Details on a task in a cluster.------------ /See:/ 'task' smart constructor.-data Task = Task'-  { _tStoppedAt            :: !(Maybe POSIX)-  , _tDesiredStatus        :: !(Maybe Text)-  , _tOverrides            :: !(Maybe TaskOverride)-  , _tClusterARN           :: !(Maybe Text)-  , _tGroup                :: !(Maybe Text)-  , _tCreatedAt            :: !(Maybe POSIX)-  , _tTaskARN              :: !(Maybe Text)-  , _tContainerInstanceARN :: !(Maybe Text)-  , _tLastStatus           :: !(Maybe Text)-  , _tContainers           :: !(Maybe [Container])-  , _tStartedAt            :: !(Maybe POSIX)-  , _tVersion              :: !(Maybe Integer)-  , _tStartedBy            :: !(Maybe Text)-  , _tStoppedReason        :: !(Maybe Text)-  , _tTaskDefinitionARN    :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Task' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tStoppedAt' - The Unix timestamp for when the task was stopped (the task transitioned from the @RUNNING@ state to the @STOPPED@ state).------ * 'tDesiredStatus' - The desired status of the task.------ * 'tOverrides' - One or more container overrides.------ * 'tClusterARN' - The Amazon Resource Name (ARN) of the cluster that hosts the task.------ * 'tGroup' - The name of the task group associated with the task.------ * 'tCreatedAt' - The Unix timestamp for when the task was created (the task entered the @PENDING@ state).------ * 'tTaskARN' - The Amazon Resource Name (ARN) of the task.------ * 'tContainerInstanceARN' - The Amazon Resource Name (ARN) of the container instances that host the task.------ * 'tLastStatus' - The last known status of the task.------ * 'tContainers' - The containers associated with the task.------ * 'tStartedAt' - The Unix timestamp for when the task was started (the task transitioned from the @PENDING@ state to the @RUNNING@ state).------ * 'tVersion' - The version counter for the task. Every time a task experiences a change that triggers a CloudWatch event, the version counter is incremented. If you are replicating your Amazon ECS task state with CloudWatch events, you can compare the version of a task reported by the Amazon ECS APIs with the version reported in CloudWatch events for the task (inside the @detail@ object) to verify that the version in your event stream is current.------ * 'tStartedBy' - The tag specified when a task is started. If the task is started by an Amazon ECS service, then the @startedBy@ parameter contains the deployment ID of the service that starts it.------ * 'tStoppedReason' - The reason the task was stopped.------ * 'tTaskDefinitionARN' - The Amazon Resource Name (ARN) of the task definition that creates the task.-task-    :: Task-task =-  Task'-  { _tStoppedAt = Nothing-  , _tDesiredStatus = Nothing-  , _tOverrides = Nothing-  , _tClusterARN = Nothing-  , _tGroup = Nothing-  , _tCreatedAt = Nothing-  , _tTaskARN = Nothing-  , _tContainerInstanceARN = Nothing-  , _tLastStatus = Nothing-  , _tContainers = Nothing-  , _tStartedAt = Nothing-  , _tVersion = Nothing-  , _tStartedBy = Nothing-  , _tStoppedReason = Nothing-  , _tTaskDefinitionARN = Nothing-  }----- | The Unix timestamp for when the task was stopped (the task transitioned from the @RUNNING@ state to the @STOPPED@ state).-tStoppedAt :: Lens' Task (Maybe UTCTime)-tStoppedAt = lens _tStoppedAt (\ s a -> s{_tStoppedAt = a}) . mapping _Time;---- | The desired status of the task.-tDesiredStatus :: Lens' Task (Maybe Text)-tDesiredStatus = lens _tDesiredStatus (\ s a -> s{_tDesiredStatus = a});---- | One or more container overrides.-tOverrides :: Lens' Task (Maybe TaskOverride)-tOverrides = lens _tOverrides (\ s a -> s{_tOverrides = a});---- | The Amazon Resource Name (ARN) of the cluster that hosts the task.-tClusterARN :: Lens' Task (Maybe Text)-tClusterARN = lens _tClusterARN (\ s a -> s{_tClusterARN = a});---- | The name of the task group associated with the task.-tGroup :: Lens' Task (Maybe Text)-tGroup = lens _tGroup (\ s a -> s{_tGroup = a});---- | The Unix timestamp for when the task was created (the task entered the @PENDING@ state).-tCreatedAt :: Lens' Task (Maybe UTCTime)-tCreatedAt = lens _tCreatedAt (\ s a -> s{_tCreatedAt = a}) . mapping _Time;---- | The Amazon Resource Name (ARN) of the task.-tTaskARN :: Lens' Task (Maybe Text)-tTaskARN = lens _tTaskARN (\ s a -> s{_tTaskARN = a});---- | The Amazon Resource Name (ARN) of the container instances that host the task.-tContainerInstanceARN :: Lens' Task (Maybe Text)-tContainerInstanceARN = lens _tContainerInstanceARN (\ s a -> s{_tContainerInstanceARN = a});---- | The last known status of the task.-tLastStatus :: Lens' Task (Maybe Text)-tLastStatus = lens _tLastStatus (\ s a -> s{_tLastStatus = a});---- | The containers associated with the task.-tContainers :: Lens' Task [Container]-tContainers = lens _tContainers (\ s a -> s{_tContainers = a}) . _Default . _Coerce;---- | The Unix timestamp for when the task was started (the task transitioned from the @PENDING@ state to the @RUNNING@ state).-tStartedAt :: Lens' Task (Maybe UTCTime)-tStartedAt = lens _tStartedAt (\ s a -> s{_tStartedAt = a}) . mapping _Time;---- | The version counter for the task. Every time a task experiences a change that triggers a CloudWatch event, the version counter is incremented. If you are replicating your Amazon ECS task state with CloudWatch events, you can compare the version of a task reported by the Amazon ECS APIs with the version reported in CloudWatch events for the task (inside the @detail@ object) to verify that the version in your event stream is current.-tVersion :: Lens' Task (Maybe Integer)-tVersion = lens _tVersion (\ s a -> s{_tVersion = a});---- | The tag specified when a task is started. If the task is started by an Amazon ECS service, then the @startedBy@ parameter contains the deployment ID of the service that starts it.-tStartedBy :: Lens' Task (Maybe Text)-tStartedBy = lens _tStartedBy (\ s a -> s{_tStartedBy = a});---- | The reason the task was stopped.-tStoppedReason :: Lens' Task (Maybe Text)-tStoppedReason = lens _tStoppedReason (\ s a -> s{_tStoppedReason = a});---- | The Amazon Resource Name (ARN) of the task definition that creates the task.-tTaskDefinitionARN :: Lens' Task (Maybe Text)-tTaskDefinitionARN = lens _tTaskDefinitionARN (\ s a -> s{_tTaskDefinitionARN = a});--instance FromJSON Task where-        parseJSON-          = withObject "Task"-              (\ x ->-                 Task' <$>-                   (x .:? "stoppedAt") <*> (x .:? "desiredStatus") <*>-                     (x .:? "overrides")-                     <*> (x .:? "clusterArn")-                     <*> (x .:? "group")-                     <*> (x .:? "createdAt")-                     <*> (x .:? "taskArn")-                     <*> (x .:? "containerInstanceArn")-                     <*> (x .:? "lastStatus")-                     <*> (x .:? "containers" .!= mempty)-                     <*> (x .:? "startedAt")-                     <*> (x .:? "version")-                     <*> (x .:? "startedBy")-                     <*> (x .:? "stoppedReason")-                     <*> (x .:? "taskDefinitionArn"))--instance Hashable Task where--instance NFData Task where---- | Details of a task definition.------------ /See:/ 'taskDefinition' smart constructor.-data TaskDefinition = TaskDefinition'-  { _tdStatus               :: !(Maybe TaskDefinitionStatus)-  , _tdFamily               :: !(Maybe Text)-  , _tdContainerDefinitions :: !(Maybe [ContainerDefinition])-  , _tdTaskRoleARN          :: !(Maybe Text)-  , _tdPlacementConstraints :: !(Maybe [TaskDefinitionPlacementConstraint])-  , _tdNetworkMode          :: !(Maybe NetworkMode)-  , _tdTaskDefinitionARN    :: !(Maybe Text)-  , _tdRevision             :: !(Maybe Int)-  , _tdVolumes              :: !(Maybe [Volume])-  , _tdRequiresAttributes   :: !(Maybe [Attribute])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'TaskDefinition' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tdStatus' - The status of the task definition.------ * 'tdFamily' - The family of your task definition, used as the definition name.------ * 'tdContainerDefinitions' - A list of container definitions in JSON format that describe the different containers that make up your task. For more information about container definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Amazon ECS Task Definitions> in the /Amazon EC2 Container Service Developer Guide/ .------ * 'tdTaskRoleARN' - The Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role.------ * 'tdPlacementConstraints' - An array of placement constraint objects to use for tasks.------ * 'tdNetworkMode' - The Docker networking mode to use for the containers in the task. The valid values are @none@ , @bridge@ , and @host@ .  If the network mode is @none@ , the containers do not have external connectivity. The default Docker network mode is @bridge@ . The @host@ network mode offers the highest networking performance for containers because it uses the host network stack instead of the virtualized network stack provided by the @bridge@ mode. For more information, see <https://docs.docker.com/engine/reference/run/#network-settings Network settings> in the /Docker run reference/ .------ * 'tdTaskDefinitionARN' - The full Amazon Resource Name (ARN) of the task definition.------ * 'tdRevision' - The revision of the task in a particular family. The revision is a version number of a task definition in a family. When you register a task definition for the first time, the revision is @1@ ; each time you register a new revision of a task definition in the same family, the revision value always increases by one (even if you have deregistered previous revisions in this family).------ * 'tdVolumes' - The list of volumes in a task. For more information about volume definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Amazon ECS Task Definitions> in the /Amazon EC2 Container Service Developer Guide/ .------ * 'tdRequiresAttributes' - The container instance attributes required by your task.-taskDefinition-    :: TaskDefinition-taskDefinition =-  TaskDefinition'-  { _tdStatus = Nothing-  , _tdFamily = Nothing-  , _tdContainerDefinitions = Nothing-  , _tdTaskRoleARN = Nothing-  , _tdPlacementConstraints = Nothing-  , _tdNetworkMode = Nothing-  , _tdTaskDefinitionARN = Nothing-  , _tdRevision = Nothing-  , _tdVolumes = Nothing-  , _tdRequiresAttributes = Nothing-  }----- | The status of the task definition.-tdStatus :: Lens' TaskDefinition (Maybe TaskDefinitionStatus)-tdStatus = lens _tdStatus (\ s a -> s{_tdStatus = a});---- | The family of your task definition, used as the definition name.-tdFamily :: Lens' TaskDefinition (Maybe Text)-tdFamily = lens _tdFamily (\ s a -> s{_tdFamily = a});---- | A list of container definitions in JSON format that describe the different containers that make up your task. For more information about container definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Amazon ECS Task Definitions> in the /Amazon EC2 Container Service Developer Guide/ .-tdContainerDefinitions :: Lens' TaskDefinition [ContainerDefinition]-tdContainerDefinitions = lens _tdContainerDefinitions (\ s a -> s{_tdContainerDefinitions = a}) . _Default . _Coerce;---- | The Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role.-tdTaskRoleARN :: Lens' TaskDefinition (Maybe Text)-tdTaskRoleARN = lens _tdTaskRoleARN (\ s a -> s{_tdTaskRoleARN = a});---- | An array of placement constraint objects to use for tasks.-tdPlacementConstraints :: Lens' TaskDefinition [TaskDefinitionPlacementConstraint]-tdPlacementConstraints = lens _tdPlacementConstraints (\ s a -> s{_tdPlacementConstraints = a}) . _Default . _Coerce;---- | The Docker networking mode to use for the containers in the task. The valid values are @none@ , @bridge@ , and @host@ .  If the network mode is @none@ , the containers do not have external connectivity. The default Docker network mode is @bridge@ . The @host@ network mode offers the highest networking performance for containers because it uses the host network stack instead of the virtualized network stack provided by the @bridge@ mode. For more information, see <https://docs.docker.com/engine/reference/run/#network-settings Network settings> in the /Docker run reference/ .-tdNetworkMode :: Lens' TaskDefinition (Maybe NetworkMode)-tdNetworkMode = lens _tdNetworkMode (\ s a -> s{_tdNetworkMode = a});---- | The full Amazon Resource Name (ARN) of the task definition.-tdTaskDefinitionARN :: Lens' TaskDefinition (Maybe Text)-tdTaskDefinitionARN = lens _tdTaskDefinitionARN (\ s a -> s{_tdTaskDefinitionARN = a});---- | The revision of the task in a particular family. The revision is a version number of a task definition in a family. When you register a task definition for the first time, the revision is @1@ ; each time you register a new revision of a task definition in the same family, the revision value always increases by one (even if you have deregistered previous revisions in this family).-tdRevision :: Lens' TaskDefinition (Maybe Int)-tdRevision = lens _tdRevision (\ s a -> s{_tdRevision = a});---- | The list of volumes in a task. For more information about volume definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Amazon ECS Task Definitions> in the /Amazon EC2 Container Service Developer Guide/ .-tdVolumes :: Lens' TaskDefinition [Volume]-tdVolumes = lens _tdVolumes (\ s a -> s{_tdVolumes = a}) . _Default . _Coerce;---- | The container instance attributes required by your task.-tdRequiresAttributes :: Lens' TaskDefinition [Attribute]-tdRequiresAttributes = lens _tdRequiresAttributes (\ s a -> s{_tdRequiresAttributes = a}) . _Default . _Coerce;--instance FromJSON TaskDefinition where-        parseJSON-          = withObject "TaskDefinition"-              (\ x ->-                 TaskDefinition' <$>-                   (x .:? "status") <*> (x .:? "family") <*>-                     (x .:? "containerDefinitions" .!= mempty)-                     <*> (x .:? "taskRoleArn")-                     <*> (x .:? "placementConstraints" .!= mempty)-                     <*> (x .:? "networkMode")-                     <*> (x .:? "taskDefinitionArn")-                     <*> (x .:? "revision")-                     <*> (x .:? "volumes" .!= mempty)-                     <*> (x .:? "requiresAttributes" .!= mempty))--instance Hashable TaskDefinition where--instance NFData TaskDefinition where---- | An object representing a constraint on task placement in the task definition. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-constraints.html Task Placement Constraints> in the /Amazon EC2 Container Service Developer Guide/ .------------ /See:/ 'taskDefinitionPlacementConstraint' smart constructor.-data TaskDefinitionPlacementConstraint = TaskDefinitionPlacementConstraint'-  { _tdpcExpression :: !(Maybe Text)-  , _tdpcType       :: !(Maybe TaskDefinitionPlacementConstraintType)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'TaskDefinitionPlacementConstraint' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tdpcExpression' - A cluster query language expression to apply to the constraint. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon EC2 Container Service Developer Guide/ .------ * 'tdpcType' - The type of constraint. The @DistinctInstance@ constraint ensures that each task in a particular group is running on a different container instance. The @MemberOf@ constraint restricts selection to be from a group of valid candidates.-taskDefinitionPlacementConstraint-    :: TaskDefinitionPlacementConstraint-taskDefinitionPlacementConstraint =-  TaskDefinitionPlacementConstraint'-  {_tdpcExpression = Nothing, _tdpcType = Nothing}----- | A cluster query language expression to apply to the constraint. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon EC2 Container Service Developer Guide/ .-tdpcExpression :: Lens' TaskDefinitionPlacementConstraint (Maybe Text)-tdpcExpression = lens _tdpcExpression (\ s a -> s{_tdpcExpression = a});---- | The type of constraint. The @DistinctInstance@ constraint ensures that each task in a particular group is running on a different container instance. The @MemberOf@ constraint restricts selection to be from a group of valid candidates.-tdpcType :: Lens' TaskDefinitionPlacementConstraint (Maybe TaskDefinitionPlacementConstraintType)-tdpcType = lens _tdpcType (\ s a -> s{_tdpcType = a});--instance FromJSON TaskDefinitionPlacementConstraint-         where-        parseJSON-          = withObject "TaskDefinitionPlacementConstraint"-              (\ x ->-                 TaskDefinitionPlacementConstraint' <$>-                   (x .:? "expression") <*> (x .:? "type"))--instance Hashable TaskDefinitionPlacementConstraint-         where--instance NFData TaskDefinitionPlacementConstraint-         where--instance ToJSON TaskDefinitionPlacementConstraint-         where-        toJSON TaskDefinitionPlacementConstraint'{..}-          = object-              (catMaybes-                 [("expression" .=) <$> _tdpcExpression,-                  ("type" .=) <$> _tdpcType])---- | The overrides associated with a task.------------ /See:/ 'taskOverride' smart constructor.-data TaskOverride = TaskOverride'-  { _toContainerOverrides :: !(Maybe [ContainerOverride])-  , _toTaskRoleARN        :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'TaskOverride' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'toContainerOverrides' - One or more container overrides sent to a task.------ * 'toTaskRoleARN' - The Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role.-taskOverride-    :: TaskOverride-taskOverride =-  TaskOverride' {_toContainerOverrides = Nothing, _toTaskRoleARN = Nothing}----- | One or more container overrides sent to a task.-toContainerOverrides :: Lens' TaskOverride [ContainerOverride]-toContainerOverrides = lens _toContainerOverrides (\ s a -> s{_toContainerOverrides = a}) . _Default . _Coerce;---- | The Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role.-toTaskRoleARN :: Lens' TaskOverride (Maybe Text)-toTaskRoleARN = lens _toTaskRoleARN (\ s a -> s{_toTaskRoleARN = a});--instance FromJSON TaskOverride where-        parseJSON-          = withObject "TaskOverride"-              (\ x ->-                 TaskOverride' <$>-                   (x .:? "containerOverrides" .!= mempty) <*>-                     (x .:? "taskRoleArn"))--instance Hashable TaskOverride where--instance NFData TaskOverride where--instance ToJSON TaskOverride where-        toJSON TaskOverride'{..}-          = object-              (catMaybes-                 [("containerOverrides" .=) <$> _toContainerOverrides,-                  ("taskRoleArn" .=) <$> _toTaskRoleARN])---- | The @ulimit@ settings to pass to the container.------------ /See:/ 'ulimit' smart constructor.-data Ulimit = Ulimit'-  { _uName      :: !UlimitName-  , _uSoftLimit :: !Int-  , _uHardLimit :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Ulimit' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uName' - The @type@ of the @ulimit@ .------ * 'uSoftLimit' - The soft limit for the ulimit type.------ * 'uHardLimit' - The hard limit for the ulimit type.-ulimit-    :: UlimitName -- ^ 'uName'-    -> Int -- ^ 'uSoftLimit'-    -> Int -- ^ 'uHardLimit'-    -> Ulimit-ulimit pName_ pSoftLimit_ pHardLimit_ =-  Ulimit'-  {_uName = pName_, _uSoftLimit = pSoftLimit_, _uHardLimit = pHardLimit_}----- | The @type@ of the @ulimit@ .-uName :: Lens' Ulimit UlimitName-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});---- | The hard limit for the ulimit type.-uHardLimit :: Lens' Ulimit Int-uHardLimit = lens _uHardLimit (\ s a -> s{_uHardLimit = a});--instance FromJSON Ulimit where-        parseJSON-          = withObject "Ulimit"-              (\ x ->-                 Ulimit' <$>-                   (x .: "name") <*> (x .: "softLimit") <*>-                     (x .: "hardLimit"))--instance Hashable Ulimit where--instance NFData Ulimit where--instance ToJSON Ulimit where-        toJSON Ulimit'{..}-          = object-              (catMaybes-                 [Just ("name" .= _uName),-                  Just ("softLimit" .= _uSoftLimit),-                  Just ("hardLimit" .= _uHardLimit)])---- | The Docker and Amazon ECS container agent version information about a container instance.------------ /See:/ 'versionInfo' smart constructor.-data VersionInfo = VersionInfo'-  { _viAgentHash     :: !(Maybe Text)-  , _viAgentVersion  :: !(Maybe Text)-  , _viDockerVersion :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'VersionInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'viAgentHash' - The Git commit hash for the Amazon ECS container agent build on the <https://github.com/aws/amazon-ecs-agent/commits/master amazon-ecs-agent > GitHub repository.------ * 'viAgentVersion' - The version number of the Amazon ECS container agent.------ * 'viDockerVersion' - The Docker version running on the container instance.-versionInfo-    :: VersionInfo-versionInfo =-  VersionInfo'-  { _viAgentHash = Nothing-  , _viAgentVersion = Nothing-  , _viDockerVersion = Nothing-  }----- | The Git commit hash for the Amazon ECS container agent build on the <https://github.com/aws/amazon-ecs-agent/commits/master amazon-ecs-agent > GitHub repository.-viAgentHash :: Lens' VersionInfo (Maybe Text)-viAgentHash = lens _viAgentHash (\ s a -> s{_viAgentHash = a});---- | The version number of the Amazon ECS container agent.-viAgentVersion :: Lens' VersionInfo (Maybe Text)-viAgentVersion = lens _viAgentVersion (\ s a -> s{_viAgentVersion = a});---- | The Docker version running on the container instance.-viDockerVersion :: Lens' VersionInfo (Maybe Text)-viDockerVersion = lens _viDockerVersion (\ s a -> s{_viDockerVersion = a});--instance FromJSON VersionInfo where-        parseJSON-          = withObject "VersionInfo"-              (\ x ->-                 VersionInfo' <$>-                   (x .:? "agentHash") <*> (x .:? "agentVersion") <*>-                     (x .:? "dockerVersion"))--instance Hashable VersionInfo where--instance NFData VersionInfo where--instance ToJSON VersionInfo where-        toJSON VersionInfo'{..}-          = object-              (catMaybes-                 [("agentHash" .=) <$> _viAgentHash,-                  ("agentVersion" .=) <$> _viAgentVersion,-                  ("dockerVersion" .=) <$> _viDockerVersion])---- | A data volume used in a task definition.------------ /See:/ 'volume' smart constructor.-data Volume = Volume'-  { _vName :: !(Maybe Text)-  , _vHost :: !(Maybe HostVolumeProperties)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Volume' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * '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.-volume-    :: Volume-volume = Volume' {_vName = Nothing, _vHost = Nothing}----- | 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});---- | 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 :: Lens' Volume (Maybe HostVolumeProperties)-vHost = lens _vHost (\ s a -> s{_vHost = a});--instance FromJSON Volume where-        parseJSON-          = withObject "Volume"-              (\ x ->-                 Volume' <$> (x .:? "name") <*> (x .:? "host"))--instance Hashable Volume where--instance NFData Volume where--instance ToJSON Volume where-        toJSON Volume'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _vName, ("host" .=) <$> _vHost])---- | Details on a data volume from another container in the same task definition.------------ /See:/ 'volumeFrom' smart constructor.-data VolumeFrom = VolumeFrom'-  { _vfSourceContainer :: !(Maybe Text)-  , _vfReadOnly        :: !(Maybe Bool)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'VolumeFrom' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vfSourceContainer' - The name of another container within the same task definition to mount volumes from.------ * 'vfReadOnly' - If this value is @true@ , the container has read-only access to the volume. If this value is @false@ , then the container can write to the volume. The default value is @false@ .-volumeFrom-    :: VolumeFrom-volumeFrom = VolumeFrom' {_vfSourceContainer = Nothing, _vfReadOnly = Nothing}----- | The name of another container within the same task definition to mount volumes from.-vfSourceContainer :: Lens' VolumeFrom (Maybe Text)-vfSourceContainer = lens _vfSourceContainer (\ s a -> s{_vfSourceContainer = a});---- | If this value is @true@ , the container has read-only access to the volume. If this value is @false@ , then the container can write to the volume. The default value is @false@ .-vfReadOnly :: Lens' VolumeFrom (Maybe Bool)-vfReadOnly = lens _vfReadOnly (\ s a -> s{_vfReadOnly = a});+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.ECS.Types.Product where++import Network.AWS.ECS.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude++-- | An object representing the networking details for a task or service.+--+--+--+-- /See:/ 'awsVPCConfiguration' smart constructor.+data AWSVPCConfiguration = AWSVPCConfiguration'+  { _avcSecurityGroups :: !(Maybe [Text])+  , _avcAssignPublicIP :: !(Maybe AssignPublicIP)+  , _avcSubnets        :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AWSVPCConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'avcSecurityGroups' - The security groups associated with the task or service. If you do not specify a security group, the default security group for the VPC is used. There is a limit of 5 security groups able to be specified per AwsVpcConfiguration.+--+-- * 'avcAssignPublicIP' - Whether the task's elastic network interface receives a public IP address.+--+-- * 'avcSubnets' - The subnets associated with the task or service. There is a limit of 10 subnets able to be specified per AwsVpcConfiguration.+awsVPCConfiguration+    :: AWSVPCConfiguration+awsVPCConfiguration =+  AWSVPCConfiguration'+    { _avcSecurityGroups = Nothing+    , _avcAssignPublicIP = Nothing+    , _avcSubnets = mempty+    }+++-- | The security groups associated with the task or service. If you do not specify a security group, the default security group for the VPC is used. There is a limit of 5 security groups able to be specified per AwsVpcConfiguration.+avcSecurityGroups :: Lens' AWSVPCConfiguration [Text]+avcSecurityGroups = lens _avcSecurityGroups (\ s a -> s{_avcSecurityGroups = a}) . _Default . _Coerce++-- | Whether the task's elastic network interface receives a public IP address.+avcAssignPublicIP :: Lens' AWSVPCConfiguration (Maybe AssignPublicIP)+avcAssignPublicIP = lens _avcAssignPublicIP (\ s a -> s{_avcAssignPublicIP = a})++-- | The subnets associated with the task or service. There is a limit of 10 subnets able to be specified per AwsVpcConfiguration.+avcSubnets :: Lens' AWSVPCConfiguration [Text]+avcSubnets = lens _avcSubnets (\ s a -> s{_avcSubnets = a}) . _Coerce++instance FromJSON AWSVPCConfiguration where+        parseJSON+          = withObject "AWSVPCConfiguration"+              (\ x ->+                 AWSVPCConfiguration' <$>+                   (x .:? "securityGroups" .!= mempty) <*>+                     (x .:? "assignPublicIp")+                     <*> (x .:? "subnets" .!= mempty))++instance Hashable AWSVPCConfiguration where++instance NFData AWSVPCConfiguration where++instance ToJSON AWSVPCConfiguration where+        toJSON AWSVPCConfiguration'{..}+          = object+              (catMaybes+                 [("securityGroups" .=) <$> _avcSecurityGroups,+                  ("assignPublicIp" .=) <$> _avcAssignPublicIP,+                  Just ("subnets" .= _avcSubnets)])++-- | An object representing a container instance or task attachment.+--+--+--+-- /See:/ 'attachment' smart constructor.+data Attachment = Attachment'+  { _aStatus  :: !(Maybe Text)+  , _aDetails :: !(Maybe [KeyValuePair])+  , _aId      :: !(Maybe Text)+  , _aType    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Attachment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aStatus' - The status of the attachment. Valid values are @PRECREATED@ , @CREATED@ , @ATTACHING@ , @ATTACHED@ , @DETACHING@ , @DETACHED@ , and @DELETED@ .+--+-- * 'aDetails' - Details of the attachment. For Elastic Network Interfaces, this includes the network interface ID, the MAC address, the subnet ID, and the private IPv4 address.+--+-- * 'aId' - The unique identifier for the attachment.+--+-- * 'aType' - The type of the attachment, such as @ElasticNetworkInterface@ .+attachment+    :: Attachment+attachment =+  Attachment'+    {_aStatus = Nothing, _aDetails = Nothing, _aId = Nothing, _aType = Nothing}+++-- | The status of the attachment. Valid values are @PRECREATED@ , @CREATED@ , @ATTACHING@ , @ATTACHED@ , @DETACHING@ , @DETACHED@ , and @DELETED@ .+aStatus :: Lens' Attachment (Maybe Text)+aStatus = lens _aStatus (\ s a -> s{_aStatus = a})++-- | Details of the attachment. For Elastic Network Interfaces, this includes the network interface ID, the MAC address, the subnet ID, and the private IPv4 address.+aDetails :: Lens' Attachment [KeyValuePair]+aDetails = lens _aDetails (\ s a -> s{_aDetails = a}) . _Default . _Coerce++-- | The unique identifier for the attachment.+aId :: Lens' Attachment (Maybe Text)+aId = lens _aId (\ s a -> s{_aId = a})++-- | The type of the attachment, such as @ElasticNetworkInterface@ .+aType :: Lens' Attachment (Maybe Text)+aType = lens _aType (\ s a -> s{_aType = a})++instance FromJSON Attachment where+        parseJSON+          = withObject "Attachment"+              (\ x ->+                 Attachment' <$>+                   (x .:? "status") <*> (x .:? "details" .!= mempty) <*>+                     (x .:? "id")+                     <*> (x .:? "type"))++instance Hashable Attachment where++instance NFData Attachment where++-- | An object representing a change in state for a task attachment.+--+--+--+-- /See:/ 'attachmentStateChange' smart constructor.+data AttachmentStateChange = AttachmentStateChange'+  { _ascAttachmentARN :: !Text+  , _ascStatus        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AttachmentStateChange' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ascAttachmentARN' - The Amazon Resource Name (ARN) of the attachment.+--+-- * 'ascStatus' - The status of the attachment.+attachmentStateChange+    :: Text -- ^ 'ascAttachmentARN'+    -> Text -- ^ 'ascStatus'+    -> AttachmentStateChange+attachmentStateChange pAttachmentARN_ pStatus_ =+  AttachmentStateChange'+    {_ascAttachmentARN = pAttachmentARN_, _ascStatus = pStatus_}+++-- | The Amazon Resource Name (ARN) of the attachment.+ascAttachmentARN :: Lens' AttachmentStateChange Text+ascAttachmentARN = lens _ascAttachmentARN (\ s a -> s{_ascAttachmentARN = a})++-- | The status of the attachment.+ascStatus :: Lens' AttachmentStateChange Text+ascStatus = lens _ascStatus (\ s a -> s{_ascStatus = a})++instance Hashable AttachmentStateChange where++instance NFData AttachmentStateChange where++instance ToJSON AttachmentStateChange where+        toJSON AttachmentStateChange'{..}+          = object+              (catMaybes+                 [Just ("attachmentArn" .= _ascAttachmentARN),+                  Just ("status" .= _ascStatus)])++-- | An attribute is a name-value pair associated with an Amazon ECS object. Attributes enable you to extend the Amazon ECS data model by adding custom metadata to your resources. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-constraints.html#attributes Attributes> in the /Amazon Elastic Container Service Developer Guide/ .+--+--+--+-- /See:/ 'attribute' smart constructor.+data Attribute = Attribute'+  { _aTargetId   :: !(Maybe Text)+  , _aValue      :: !(Maybe Text)+  , _aTargetType :: !(Maybe TargetType)+  , _aName       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Attribute' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aTargetId' - The ID of the target. You can specify the short form ID for a resource or the full Amazon Resource Name (ARN).+--+-- * 'aValue' - The value of the attribute. Up to 128 letters (uppercase and lowercase), numbers, hyphens, underscores, periods, at signs (@), forward slashes, colons, and spaces are allowed.+--+-- * 'aTargetType' - The type of the target with which to attach the attribute. This parameter is required if you use the short form ID for a resource instead of the full ARN.+--+-- * 'aName' - The name of the attribute. Up to 128 letters (uppercase and lowercase), numbers, hyphens, underscores, and periods are allowed.+attribute+    :: Text -- ^ 'aName'+    -> Attribute+attribute pName_ =+  Attribute'+    { _aTargetId = Nothing+    , _aValue = Nothing+    , _aTargetType = Nothing+    , _aName = pName_+    }+++-- | The ID of the target. You can specify the short form ID for a resource or the full Amazon Resource Name (ARN).+aTargetId :: Lens' Attribute (Maybe Text)+aTargetId = lens _aTargetId (\ s a -> s{_aTargetId = a})++-- | The value of the attribute. Up to 128 letters (uppercase and lowercase), numbers, hyphens, underscores, periods, at signs (@), forward slashes, colons, and spaces are allowed.+aValue :: Lens' Attribute (Maybe Text)+aValue = lens _aValue (\ s a -> s{_aValue = a})++-- | The type of the target with which to attach the attribute. This parameter is required if you use the short form ID for a resource instead of the full ARN.+aTargetType :: Lens' Attribute (Maybe TargetType)+aTargetType = lens _aTargetType (\ s a -> s{_aTargetType = a})++-- | The name of the attribute. Up to 128 letters (uppercase and lowercase), numbers, hyphens, underscores, and periods are allowed.+aName :: Lens' Attribute Text+aName = lens _aName (\ s a -> s{_aName = a})++instance FromJSON Attribute where+        parseJSON+          = withObject "Attribute"+              (\ x ->+                 Attribute' <$>+                   (x .:? "targetId") <*> (x .:? "value") <*>+                     (x .:? "targetType")+                     <*> (x .: "name"))++instance Hashable Attribute where++instance NFData Attribute where++instance ToJSON Attribute where+        toJSON Attribute'{..}+          = object+              (catMaybes+                 [("targetId" .=) <$> _aTargetId,+                  ("value" .=) <$> _aValue,+                  ("targetType" .=) <$> _aTargetType,+                  Just ("name" .= _aName)])++-- | A regional grouping of one or more container instances on which you can run task requests. Each account receives a default cluster the first time you use the Amazon ECS service, but you may also create other clusters. Clusters may contain more than one instance type simultaneously.+--+--+--+-- /See:/ 'cluster' smart constructor.+data Cluster = Cluster'+  { _cStatus                            :: !(Maybe Text)+  , _cClusterARN                        :: !(Maybe Text)+  , _cRunningTasksCount                 :: !(Maybe Int)+  , _cRegisteredContainerInstancesCount :: !(Maybe Int)+  , _cPendingTasksCount                 :: !(Maybe Int)+  , _cClusterName                       :: !(Maybe Text)+  , _cStatistics                        :: !(Maybe [KeyValuePair])+  , _cActiveServicesCount               :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Cluster' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cStatus' - The status of the cluster. The valid values are @ACTIVE@ or @INACTIVE@ . @ACTIVE@ indicates that you can register container instances with the cluster and the associated instances can accept tasks.+--+-- * 'cClusterARN' - The Amazon Resource Name (ARN) that identifies the cluster. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the cluster, the AWS account ID of the cluster owner, the @cluster@ namespace, and then the cluster name. For example, @arn:aws:ecs:/region/ :/012345678910/ :cluster//test/ @ ..+--+-- * 'cRunningTasksCount' - The number of tasks in the cluster that are in the @RUNNING@ state.+--+-- * 'cRegisteredContainerInstancesCount' - The number of container instances registered into the cluster.+--+-- * 'cPendingTasksCount' - The number of tasks in the cluster that are in the @PENDING@ state.+--+-- * 'cClusterName' - A user-generated string that you use to identify your cluster.+--+-- * 'cStatistics' - Additional information about your clusters that are separated by launch type, including:     * runningEC2TasksCount     * RunningFargateTasksCount     * pendingEC2TasksCount     * pendingFargateTasksCount     * activeEC2ServiceCount     * activeFargateServiceCount     * drainingEC2ServiceCount     * drainingFargateServiceCount+--+-- * 'cActiveServicesCount' - The number of services that are running on the cluster in an @ACTIVE@ state. You can view these services with 'ListServices' .+cluster+    :: Cluster+cluster =+  Cluster'+    { _cStatus = Nothing+    , _cClusterARN = Nothing+    , _cRunningTasksCount = Nothing+    , _cRegisteredContainerInstancesCount = Nothing+    , _cPendingTasksCount = Nothing+    , _cClusterName = Nothing+    , _cStatistics = Nothing+    , _cActiveServicesCount = Nothing+    }+++-- | The status of the cluster. The valid values are @ACTIVE@ or @INACTIVE@ . @ACTIVE@ indicates that you can register container instances with the cluster and the associated instances can accept tasks.+cStatus :: Lens' Cluster (Maybe Text)+cStatus = lens _cStatus (\ s a -> s{_cStatus = a})++-- | The Amazon Resource Name (ARN) that identifies the cluster. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the cluster, the AWS account ID of the cluster owner, the @cluster@ namespace, and then the cluster name. For example, @arn:aws:ecs:/region/ :/012345678910/ :cluster//test/ @ ..+cClusterARN :: Lens' Cluster (Maybe Text)+cClusterARN = lens _cClusterARN (\ s a -> s{_cClusterARN = a})++-- | The number of tasks in the cluster that are in the @RUNNING@ state.+cRunningTasksCount :: Lens' Cluster (Maybe Int)+cRunningTasksCount = lens _cRunningTasksCount (\ s a -> s{_cRunningTasksCount = a})++-- | The number of container instances registered into the cluster.+cRegisteredContainerInstancesCount :: Lens' Cluster (Maybe Int)+cRegisteredContainerInstancesCount = lens _cRegisteredContainerInstancesCount (\ s a -> s{_cRegisteredContainerInstancesCount = a})++-- | The number of tasks in the cluster that are in the @PENDING@ state.+cPendingTasksCount :: Lens' Cluster (Maybe Int)+cPendingTasksCount = lens _cPendingTasksCount (\ s a -> s{_cPendingTasksCount = a})++-- | A user-generated string that you use to identify your cluster.+cClusterName :: Lens' Cluster (Maybe Text)+cClusterName = lens _cClusterName (\ s a -> s{_cClusterName = a})++-- | Additional information about your clusters that are separated by launch type, including:     * runningEC2TasksCount     * RunningFargateTasksCount     * pendingEC2TasksCount     * pendingFargateTasksCount     * activeEC2ServiceCount     * activeFargateServiceCount     * drainingEC2ServiceCount     * drainingFargateServiceCount+cStatistics :: Lens' Cluster [KeyValuePair]+cStatistics = lens _cStatistics (\ s a -> s{_cStatistics = a}) . _Default . _Coerce++-- | The number of services that are running on the cluster in an @ACTIVE@ state. You can view these services with 'ListServices' .+cActiveServicesCount :: Lens' Cluster (Maybe Int)+cActiveServicesCount = lens _cActiveServicesCount (\ s a -> s{_cActiveServicesCount = a})++instance FromJSON Cluster where+        parseJSON+          = withObject "Cluster"+              (\ x ->+                 Cluster' <$>+                   (x .:? "status") <*> (x .:? "clusterArn") <*>+                     (x .:? "runningTasksCount")+                     <*> (x .:? "registeredContainerInstancesCount")+                     <*> (x .:? "pendingTasksCount")+                     <*> (x .:? "clusterName")+                     <*> (x .:? "statistics" .!= mempty)+                     <*> (x .:? "activeServicesCount"))++instance Hashable Cluster where++instance NFData Cluster where++-- | A Docker container that is part of a task.+--+--+--+-- /See:/ 'container' smart constructor.+data Container = Container'+  { _cNetworkBindings   :: !(Maybe [NetworkBinding])+  , _cContainerARN      :: !(Maybe Text)+  , _cNetworkInterfaces :: !(Maybe [NetworkInterface])+  , _cTaskARN           :: !(Maybe Text)+  , _cLastStatus        :: !(Maybe Text)+  , _cReason            :: !(Maybe Text)+  , _cName              :: !(Maybe Text)+  , _cExitCode          :: !(Maybe Int)+  , _cHealthStatus      :: !(Maybe HealthStatus)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Container' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cNetworkBindings' - The network bindings associated with the container.+--+-- * 'cContainerARN' - The Amazon Resource Name (ARN) of the container.+--+-- * 'cNetworkInterfaces' - The network interfaces associated with the container.+--+-- * 'cTaskARN' - The ARN of the task.+--+-- * 'cLastStatus' - The last known status of the container.+--+-- * 'cReason' - A short (255 max characters) human-readable string to provide additional details about a running or stopped container.+--+-- * 'cName' - The name of the container.+--+-- * 'cExitCode' - The exit code returned from the container.+--+-- * 'cHealthStatus' - The health status of the container. If health checks are not configured for this container in its task definition, then it reports health status as @UNKNOWN@ .+container+    :: Container+container =+  Container'+    { _cNetworkBindings = Nothing+    , _cContainerARN = Nothing+    , _cNetworkInterfaces = Nothing+    , _cTaskARN = Nothing+    , _cLastStatus = Nothing+    , _cReason = Nothing+    , _cName = Nothing+    , _cExitCode = Nothing+    , _cHealthStatus = Nothing+    }+++-- | The network bindings associated with the container.+cNetworkBindings :: Lens' Container [NetworkBinding]+cNetworkBindings = lens _cNetworkBindings (\ s a -> s{_cNetworkBindings = a}) . _Default . _Coerce++-- | The Amazon Resource Name (ARN) of the container.+cContainerARN :: Lens' Container (Maybe Text)+cContainerARN = lens _cContainerARN (\ s a -> s{_cContainerARN = a})++-- | The network interfaces associated with the container.+cNetworkInterfaces :: Lens' Container [NetworkInterface]+cNetworkInterfaces = lens _cNetworkInterfaces (\ s a -> s{_cNetworkInterfaces = a}) . _Default . _Coerce++-- | The ARN of the task.+cTaskARN :: Lens' Container (Maybe Text)+cTaskARN = lens _cTaskARN (\ s a -> s{_cTaskARN = a})++-- | The last known status of the container.+cLastStatus :: Lens' Container (Maybe Text)+cLastStatus = lens _cLastStatus (\ s a -> s{_cLastStatus = a})++-- | A short (255 max characters) human-readable string to provide additional details about a running or stopped container.+cReason :: Lens' Container (Maybe Text)+cReason = lens _cReason (\ s a -> s{_cReason = a})++-- | The name of the container.+cName :: Lens' Container (Maybe Text)+cName = lens _cName (\ s a -> s{_cName = a})++-- | The exit code returned from the container.+cExitCode :: Lens' Container (Maybe Int)+cExitCode = lens _cExitCode (\ s a -> s{_cExitCode = a})++-- | The health status of the container. If health checks are not configured for this container in its task definition, then it reports health status as @UNKNOWN@ .+cHealthStatus :: Lens' Container (Maybe HealthStatus)+cHealthStatus = lens _cHealthStatus (\ s a -> s{_cHealthStatus = a})++instance FromJSON Container where+        parseJSON+          = withObject "Container"+              (\ x ->+                 Container' <$>+                   (x .:? "networkBindings" .!= mempty) <*>+                     (x .:? "containerArn")+                     <*> (x .:? "networkInterfaces" .!= mempty)+                     <*> (x .:? "taskArn")+                     <*> (x .:? "lastStatus")+                     <*> (x .:? "reason")+                     <*> (x .:? "name")+                     <*> (x .:? "exitCode")+                     <*> (x .:? "healthStatus"))++instance Hashable Container where++instance NFData Container where++-- | Container definitions are used in task definitions to describe the different containers that are launched as part of a task.+--+--+--+-- /See:/ 'containerDefinition' smart constructor.+data ContainerDefinition = ContainerDefinition'+  { _cdImage                  :: !(Maybe Text)+  , _cdCommand                :: !(Maybe [Text])+  , _cdHostname               :: !(Maybe Text)+  , _cdDockerSecurityOptions  :: !(Maybe [Text])+  , _cdHealthCheck            :: !(Maybe HealthCheck)+  , _cdDisableNetworking      :: !(Maybe Bool)+  , _cdVolumesFrom            :: !(Maybe [VolumeFrom])+  , _cdEnvironment            :: !(Maybe [KeyValuePair])+  , _cdEntryPoint             :: !(Maybe [Text])+  , _cdWorkingDirectory       :: !(Maybe Text)+  , _cdUlimits                :: !(Maybe [Ulimit])+  , _cdPrivileged             :: !(Maybe Bool)+  , _cdPortMappings           :: !(Maybe [PortMapping])+  , _cdDockerLabels           :: !(Maybe (Map Text Text))+  , _cdExtraHosts             :: !(Maybe [HostEntry])+  , _cdMemory                 :: !(Maybe Int)+  , _cdUser                   :: !(Maybe Text)+  , _cdDnsSearchDomains       :: !(Maybe [Text])+  , _cdLogConfiguration       :: !(Maybe LogConfiguration)+  , _cdLinuxParameters        :: !(Maybe LinuxParameters)+  , _cdName                   :: !(Maybe Text)+  , _cdDnsServers             :: !(Maybe [Text])+  , _cdMountPoints            :: !(Maybe [MountPoint])+  , _cdLinks                  :: !(Maybe [Text])+  , _cdReadonlyRootFilesystem :: !(Maybe Bool)+  , _cdEssential              :: !(Maybe Bool)+  , _cdCpu                    :: !(Maybe Int)+  , _cdMemoryReservation      :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContainerDefinition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdImage' - 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 either @/repository-url/ //image/ :/tag/ @ or @/repository-url/ //image/ @/digest/ @ . 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @IMAGE@ parameter of <https://docs.docker.com/engine/reference/run/ docker run> .     * When a new task starts, the Amazon ECS container agent pulls the latest version of the specified image and tag for the container to use. However, subsequent updates to a repository image are not propagated to already running tasks.     * Images in Amazon ECR repositories can be specified by either using the full @registry/repository:tag@ or @registry/repository@digest@ . For example, @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>:latest@ or @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>@sha256:94afd1f2e64d908bc90dbca0035a5b567EXAMPLE@ .      * 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@ ).+--+-- * 'cdCommand' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ 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> .+--+-- * 'cdHostname' - The hostname to use for your container. This parameter maps to @Hostname@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--hostname@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdDockerSecurityOptions' - A list of strings to provide custom labels for SELinux and AppArmor multi-level security systems. This field is not valid for containers in tasks using the Fargate launch type. This parameter maps to @SecurityOpt@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--security-opt@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdHealthCheck' - The health check command and associated configuration parameters for the container. This parameter maps to @HealthCheck@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @HEALTHCHECK@ parameter of <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdDisableNetworking' - When this parameter is true, networking is disabled within the container. This parameter maps to @NetworkDisabled@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> .+--+-- * 'cdVolumesFrom' - Data volumes to mount from another container. This parameter maps to @VolumesFrom@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--volumes-from@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdEnvironment' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ 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.+--+-- * 'cdEntryPoint' - /Important:/ Early versions of the Amazon ECS container agent do not properly handle @entryPoint@ parameters. If you have problems using @entryPoint@ , update your container agent or enter your commands and arguments as @command@ array items instead. The entry point that is passed to the container. This parameter maps to @Entrypoint@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--entrypoint@ option to <https://docs.docker.com/engine/reference/run/ docker run> . For more information, see <https://docs.docker.com/engine/reference/builder/#entrypoint https://docs.docker.com/engine/reference/builder/#entrypoint> .+--+-- * 'cdWorkingDirectory' - The working directory in which to run commands inside the container. This parameter maps to @WorkingDir@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--workdir@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdUlimits' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--ulimit@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid naming values are displayed in the 'Ulimit' data type. This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+--+-- * 'cdPrivileged' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--privileged@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdPortMappings' - The list of port mappings for the container. Port mappings allow containers to access ports on the host container instance to send or receive traffic. For task definitions that use the @awsvpc@ network mode, you should only specify the @containerPort@ . The @hostPort@ can be left blank or it must be the same value as the @containerPort@ . Port mappings on Windows use the @NetNAT@ gateway address rather than @localhost@ . There is no loopback for port mappings on Windows, so you cannot access a container's mapped port from the host itself.  This parameter maps to @PortBindings@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--publish@ option to <https://docs.docker.com/engine/reference/run/ docker run> . If the network mode of a task definition is set to @none@ , then you can't specify port mappings. If the network mode of a task definition is set to @host@ , then host ports must either be undefined or they must match the container port in the port mapping.+--+-- * 'cdDockerLabels' - A key/value map of labels to add to the container. This parameter maps to @Labels@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--label@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+--+-- * 'cdExtraHosts' - A list of hostnames and IP address mappings to append to the @/etc/hosts@ file on the container. If using the Fargate launch type, this may be used to list non-Fargate hosts you want the container to talk to. This parameter maps to @ExtraHosts@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--add-host@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdMemory' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--memory@ option to <https://docs.docker.com/engine/reference/run/ docker run> . If your containers are part of a task using the Fargate launch type, this field is optional and the only requirement is that the total amount of memory reserved for all containers within a task be lower than the task @memory@ value. For containers that are part of a task using the EC2 launch type, you must specify a non-zero integer for one or both of @memory@ or @memoryReservation@ in container definitions. If you specify both, @memory@ must be greater than @memoryReservation@ . If you specify @memoryReservation@ , then that value is subtracted from the available memory resources for the container instance on which the container is placed; otherwise, the value of @memory@ is used. The Docker daemon reserves a minimum of 4 MiB of memory for a container, so you should not specify fewer than 4 MiB of memory for your containers.+--+-- * 'cdUser' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--user@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdDnsSearchDomains' - A list of DNS search domains that are presented to the container. This parameter maps to @DnsSearch@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--dns-search@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdLogConfiguration' - The log configuration specification for the container. If using the Fargate launch type, the only supported value is @awslogs@ . This parameter maps to @LogConfig@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--log-driver@ option to <https://docs.docker.com/engine/reference/run/ docker run> . By default, containers use the same logging driver that the Docker daemon uses; however the container may use a different logging driver than the Docker daemon by specifying a log driver with this parameter in the container definition. To use a different logging driver for a container, the log system must be configured properly on the container instance (or on a different log server for remote logging options). For more information on the options for different supported log drivers, see <https://docs.docker.com/engine/admin/logging/overview/ Configure logging drivers> in the Docker documentation. This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+--+-- * 'cdLinuxParameters' - Linux-specific modifications that are applied to the container, such as Linux 'KernelCapabilities' .+--+-- * 'cdName' - The name of a container. If you are linking multiple containers together in a task definition, the @name@ of one container can be entered in the @links@ of another container to connect the containers. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. This parameter maps to @name@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--name@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdDnsServers' - A list of DNS servers that are presented to the container. This parameter maps to @Dns@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--dns@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'cdMountPoints' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--volume@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Windows containers can mount whole directories on the same drive as @> env:ProgramData@ . Windows containers cannot mount directories on a different drive, and mount point cannot be across drives.+--+-- * 'cdLinks' - The @link@ parameter allows containers to communicate with each other without the need for port mappings. Only supported if the network mode of a task definition is set to @bridge@ . The @name:internalName@ construct is analogous to @name:alias@ in Docker links. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. For more information about linking Docker containers, go to <https://docs.docker.com/engine/userguide/networking/default_network/dockerlinks/ https://docs.docker.com/engine/userguide/networking/default_network/dockerlinks/> . This parameter maps to @Links@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--link@ option to <https://docs.docker.com/engine/reference/commandline/run/ @docker run@ > . /Important:/ Containers that are collocated on a single container instance may be able to communicate with each other without requiring links or host port mappings. Network isolation is achieved on the container instance using security groups and VPC settings.+--+-- * 'cdReadonlyRootFilesystem' - 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--read-only@ option to @docker run@ .+--+-- * 'cdEssential' - If the @essential@ parameter of a container is marked as @true@ , and that container fails or stops for any reason, all other containers that are part of the task are stopped. If the @essential@ parameter of a container is marked as @false@ , then its failure does not affect the rest of the containers in a task. If this parameter is omitted, a container is assumed to be essential. All tasks must have at least one essential container. If you have an application that is composed of multiple containers, you should group containers that are used for a common purpose into components, and separate the different components into multiple task definitions. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/application_architecture.html Application Architecture> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'cdCpu' - The number of @cpu@ units reserved for the container. This parameter maps to @CpuShares@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cpu-shares@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This field is optional for tasks using the Fargate launch type, and the only requirement is that the total amount of CPU reserved for all containers within a task be lower than the task-level @cpu@ value. For example, if you run a single-container task on a single-core instance type with 512 CPU units specified for that container, and that is the only task running on the container instance, that container could use the full 1,024 CPU unit share at any given time. However, if you launched another copy of the same task on that container instance, each task would be guaranteed a minimum of 512 CPU units when needed, and each container could float to higher CPU usage if the other container was not using it, but if both tasks were 100% active all of the time, they would be limited to 512 CPU units. Linux containers share unallocated CPU units with other containers on the container instance with the same ratio as their allocated amount. For example, if you run a single-container task on a single-core instance type with 512 CPU units specified for that container, and that is the only task running on the container instance, that container could use the full 1,024 CPU unit share at any given time. However, if you launched another copy of the same task on that container instance, each task would be guaranteed a minimum of 512 CPU units when needed, and each container could float to higher CPU usage if the other container was not using it, but if both tasks were 100% active all of the time, they would be limited to 512 CPU units. On Linux container instances, the Docker daemon on the container instance uses the CPU value to calculate the relative CPU share ratios for running containers. For more information, see <https://docs.docker.com/engine/reference/run/#cpu-share-constraint CPU share constraint> in the Docker documentation. The minimum valid CPU share value that the Linux kernel allows is 2; however, the CPU parameter is not required, and you can use CPU values below 2 in your container definitions. For CPU values below 2 (including null), the behavior varies based on your Amazon ECS container agent version:     * __Agent versions less than or equal to 1.1.0:__ Null and zero CPU values are passed to Docker as 0, which Docker then converts to 1,024 CPU shares. CPU values of 1 are passed to Docker as 1, which the Linux kernel converts to 2 CPU shares.     * __Agent versions greater than or equal to 1.2.0:__ Null, zero, and CPU values of 1 are passed to Docker as 2. On Windows container instances, the CPU limit is enforced as an absolute limit, or a quota. Windows containers only have access to the specified amount of CPU that is described in the task definition.+--+-- * 'cdMemoryReservation' - The soft limit (in MiB) of memory to reserve for the container. When system memory is under heavy contention, Docker attempts to keep the container memory to this soft limit; however, your container can consume more memory when it needs to, up to either the hard limit specified with the @memory@ parameter (if applicable), or all of the available memory on the container instance, whichever comes first. This parameter maps to @MemoryReservation@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--memory-reservation@ option to <https://docs.docker.com/engine/reference/run/ docker run> . You must specify a non-zero integer for one or both of @memory@ or @memoryReservation@ in container definitions. If you specify both, @memory@ must be greater than @memoryReservation@ . If you specify @memoryReservation@ , then that value is subtracted from the available memory resources for the container instance on which the container is placed; otherwise, the value of @memory@ is used. For example, if your container normally uses 128 MiB of memory, but occasionally bursts to 256 MiB of memory for short periods of time, you can set a @memoryReservation@ of 128 MiB, and a @memory@ hard limit of 300 MiB. This configuration would allow the container to only reserve 128 MiB of memory from the remaining resources on the container instance, but also allow the container to consume more memory resources when needed. The Docker daemon reserves a minimum of 4 MiB of memory for a container, so you should not specify fewer than 4 MiB of memory for your containers.+containerDefinition+    :: ContainerDefinition+containerDefinition =+  ContainerDefinition'+    { _cdImage = Nothing+    , _cdCommand = Nothing+    , _cdHostname = Nothing+    , _cdDockerSecurityOptions = Nothing+    , _cdHealthCheck = Nothing+    , _cdDisableNetworking = Nothing+    , _cdVolumesFrom = Nothing+    , _cdEnvironment = Nothing+    , _cdEntryPoint = Nothing+    , _cdWorkingDirectory = Nothing+    , _cdUlimits = Nothing+    , _cdPrivileged = Nothing+    , _cdPortMappings = Nothing+    , _cdDockerLabels = Nothing+    , _cdExtraHosts = Nothing+    , _cdMemory = Nothing+    , _cdUser = Nothing+    , _cdDnsSearchDomains = Nothing+    , _cdLogConfiguration = Nothing+    , _cdLinuxParameters = Nothing+    , _cdName = Nothing+    , _cdDnsServers = Nothing+    , _cdMountPoints = Nothing+    , _cdLinks = Nothing+    , _cdReadonlyRootFilesystem = Nothing+    , _cdEssential = Nothing+    , _cdCpu = Nothing+    , _cdMemoryReservation = Nothing+    }+++-- | 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 either @/repository-url/ //image/ :/tag/ @ or @/repository-url/ //image/ @/digest/ @ . 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @IMAGE@ parameter of <https://docs.docker.com/engine/reference/run/ docker run> .     * When a new task starts, the Amazon ECS container agent pulls the latest version of the specified image and tag for the container to use. However, subsequent updates to a repository image are not propagated to already running tasks.     * Images in Amazon ECR repositories can be specified by either using the full @registry/repository:tag@ or @registry/repository@digest@ . For example, @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>:latest@ or @012345678910.dkr.ecr.<region-name>.amazonaws.com/<repository-name>@sha256:94afd1f2e64d908bc90dbca0035a5b567EXAMPLE@ .      * 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@ ).+cdImage :: Lens' ContainerDefinition (Maybe Text)+cdImage = lens _cdImage (\ s a -> s{_cdImage = a})++-- | 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ 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> .+cdCommand :: Lens' ContainerDefinition [Text]+cdCommand = lens _cdCommand (\ s a -> s{_cdCommand = a}) . _Default . _Coerce++-- | The hostname to use for your container. This parameter maps to @Hostname@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--hostname@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdHostname :: Lens' ContainerDefinition (Maybe Text)+cdHostname = lens _cdHostname (\ s a -> s{_cdHostname = a})++-- | A list of strings to provide custom labels for SELinux and AppArmor multi-level security systems. This field is not valid for containers in tasks using the Fargate launch type. This parameter maps to @SecurityOpt@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--security-opt@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdDockerSecurityOptions :: Lens' ContainerDefinition [Text]+cdDockerSecurityOptions = lens _cdDockerSecurityOptions (\ s a -> s{_cdDockerSecurityOptions = a}) . _Default . _Coerce++-- | The health check command and associated configuration parameters for the container. This parameter maps to @HealthCheck@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @HEALTHCHECK@ parameter of <https://docs.docker.com/engine/reference/run/ docker run> .+cdHealthCheck :: Lens' ContainerDefinition (Maybe HealthCheck)+cdHealthCheck = lens _cdHealthCheck (\ s a -> s{_cdHealthCheck = a})++-- | When this parameter is true, networking is disabled within the container. This parameter maps to @NetworkDisabled@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> .+cdDisableNetworking :: Lens' ContainerDefinition (Maybe Bool)+cdDisableNetworking = lens _cdDisableNetworking (\ s a -> s{_cdDisableNetworking = a})++-- | Data volumes to mount from another container. This parameter maps to @VolumesFrom@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--volumes-from@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdVolumesFrom :: Lens' ContainerDefinition [VolumeFrom]+cdVolumesFrom = lens _cdVolumesFrom (\ s a -> s{_cdVolumesFrom = 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ 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.+cdEnvironment :: Lens' ContainerDefinition [KeyValuePair]+cdEnvironment = lens _cdEnvironment (\ s a -> s{_cdEnvironment = a}) . _Default . _Coerce++-- | /Important:/ Early versions of the Amazon ECS container agent do not properly handle @entryPoint@ parameters. If you have problems using @entryPoint@ , update your container agent or enter your commands and arguments as @command@ array items instead. The entry point that is passed to the container. This parameter maps to @Entrypoint@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--entrypoint@ option to <https://docs.docker.com/engine/reference/run/ docker run> . For more information, see <https://docs.docker.com/engine/reference/builder/#entrypoint https://docs.docker.com/engine/reference/builder/#entrypoint> .+cdEntryPoint :: Lens' ContainerDefinition [Text]+cdEntryPoint = lens _cdEntryPoint (\ s a -> s{_cdEntryPoint = a}) . _Default . _Coerce++-- | The working directory in which to run commands inside the container. This parameter maps to @WorkingDir@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--workdir@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdWorkingDirectory :: Lens' ContainerDefinition (Maybe Text)+cdWorkingDirectory = lens _cdWorkingDirectory (\ s a -> s{_cdWorkingDirectory = a})++-- | 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--ulimit@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid naming values are displayed in the 'Ulimit' data type. This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+cdUlimits :: Lens' ContainerDefinition [Ulimit]+cdUlimits = lens _cdUlimits (\ s a -> s{_cdUlimits = 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--privileged@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdPrivileged :: Lens' ContainerDefinition (Maybe Bool)+cdPrivileged = lens _cdPrivileged (\ s a -> s{_cdPrivileged = a})++-- | The list of port mappings for the container. Port mappings allow containers to access ports on the host container instance to send or receive traffic. For task definitions that use the @awsvpc@ network mode, you should only specify the @containerPort@ . The @hostPort@ can be left blank or it must be the same value as the @containerPort@ . Port mappings on Windows use the @NetNAT@ gateway address rather than @localhost@ . There is no loopback for port mappings on Windows, so you cannot access a container's mapped port from the host itself.  This parameter maps to @PortBindings@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--publish@ option to <https://docs.docker.com/engine/reference/run/ docker run> . If the network mode of a task definition is set to @none@ , then you can't specify port mappings. If the network mode of a task definition is set to @host@ , then host ports must either be undefined or they must match the container port in the port mapping.+cdPortMappings :: Lens' ContainerDefinition [PortMapping]+cdPortMappings = lens _cdPortMappings (\ s a -> s{_cdPortMappings = a}) . _Default . _Coerce++-- | A key/value map of labels to add to the container. This parameter maps to @Labels@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--label@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+cdDockerLabels :: Lens' ContainerDefinition (HashMap Text Text)+cdDockerLabels = lens _cdDockerLabels (\ s a -> s{_cdDockerLabels = a}) . _Default . _Map++-- | A list of hostnames and IP address mappings to append to the @/etc/hosts@ file on the container. If using the Fargate launch type, this may be used to list non-Fargate hosts you want the container to talk to. This parameter maps to @ExtraHosts@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--add-host@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdExtraHosts :: Lens' ContainerDefinition [HostEntry]+cdExtraHosts = lens _cdExtraHosts (\ s a -> s{_cdExtraHosts = a}) . _Default . _Coerce++-- | 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--memory@ option to <https://docs.docker.com/engine/reference/run/ docker run> . If your containers are part of a task using the Fargate launch type, this field is optional and the only requirement is that the total amount of memory reserved for all containers within a task be lower than the task @memory@ value. For containers that are part of a task using the EC2 launch type, you must specify a non-zero integer for one or both of @memory@ or @memoryReservation@ in container definitions. If you specify both, @memory@ must be greater than @memoryReservation@ . If you specify @memoryReservation@ , then that value is subtracted from the available memory resources for the container instance on which the container is placed; otherwise, the value of @memory@ is used. The Docker daemon reserves a minimum of 4 MiB of memory for a container, so you should not specify fewer than 4 MiB of memory for your containers.+cdMemory :: Lens' ContainerDefinition (Maybe Int)+cdMemory = lens _cdMemory (\ s a -> s{_cdMemory = 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--user@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdUser :: Lens' ContainerDefinition (Maybe Text)+cdUser = lens _cdUser (\ s a -> s{_cdUser = a})++-- | A list of DNS search domains that are presented to the container. This parameter maps to @DnsSearch@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--dns-search@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdDnsSearchDomains :: Lens' ContainerDefinition [Text]+cdDnsSearchDomains = lens _cdDnsSearchDomains (\ s a -> s{_cdDnsSearchDomains = a}) . _Default . _Coerce++-- | The log configuration specification for the container. If using the Fargate launch type, the only supported value is @awslogs@ . This parameter maps to @LogConfig@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--log-driver@ option to <https://docs.docker.com/engine/reference/run/ docker run> . By default, containers use the same logging driver that the Docker daemon uses; however the container may use a different logging driver than the Docker daemon by specifying a log driver with this parameter in the container definition. To use a different logging driver for a container, the log system must be configured properly on the container instance (or on a different log server for remote logging options). For more information on the options for different supported log drivers, see <https://docs.docker.com/engine/admin/logging/overview/ Configure logging drivers> in the Docker documentation. This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+cdLogConfiguration :: Lens' ContainerDefinition (Maybe LogConfiguration)+cdLogConfiguration = lens _cdLogConfiguration (\ s a -> s{_cdLogConfiguration = a})++-- | Linux-specific modifications that are applied to the container, such as Linux 'KernelCapabilities' .+cdLinuxParameters :: Lens' ContainerDefinition (Maybe LinuxParameters)+cdLinuxParameters = lens _cdLinuxParameters (\ s a -> s{_cdLinuxParameters = a})++-- | The name of a container. If you are linking multiple containers together in a task definition, the @name@ of one container can be entered in the @links@ of another container to connect the containers. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. This parameter maps to @name@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--name@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdName :: Lens' ContainerDefinition (Maybe Text)+cdName = lens _cdName (\ s a -> s{_cdName = a})++-- | A list of DNS servers that are presented to the container. This parameter maps to @Dns@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--dns@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+cdDnsServers :: Lens' ContainerDefinition [Text]+cdDnsServers = lens _cdDnsServers (\ s a -> s{_cdDnsServers = a}) . _Default . _Coerce++-- | 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--volume@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Windows containers can mount whole directories on the same drive as @> env:ProgramData@ . Windows containers cannot mount directories on a different drive, and mount point cannot be across drives.+cdMountPoints :: Lens' ContainerDefinition [MountPoint]+cdMountPoints = lens _cdMountPoints (\ s a -> s{_cdMountPoints = a}) . _Default . _Coerce++-- | The @link@ parameter allows containers to communicate with each other without the need for port mappings. Only supported if the network mode of a task definition is set to @bridge@ . The @name:internalName@ construct is analogous to @name:alias@ in Docker links. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. For more information about linking Docker containers, go to <https://docs.docker.com/engine/userguide/networking/default_network/dockerlinks/ https://docs.docker.com/engine/userguide/networking/default_network/dockerlinks/> . This parameter maps to @Links@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--link@ option to <https://docs.docker.com/engine/reference/commandline/run/ @docker run@ > . /Important:/ Containers that are collocated on a single container instance may be able to communicate with each other without requiring links or host port mappings. Network isolation is achieved on the container instance using security groups and VPC settings.+cdLinks :: Lens' ContainerDefinition [Text]+cdLinks = lens _cdLinks (\ s a -> s{_cdLinks = 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.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--read-only@ option to @docker run@ .+cdReadonlyRootFilesystem :: Lens' ContainerDefinition (Maybe Bool)+cdReadonlyRootFilesystem = lens _cdReadonlyRootFilesystem (\ s a -> s{_cdReadonlyRootFilesystem = a})++-- | If the @essential@ parameter of a container is marked as @true@ , and that container fails or stops for any reason, all other containers that are part of the task are stopped. If the @essential@ parameter of a container is marked as @false@ , then its failure does not affect the rest of the containers in a task. If this parameter is omitted, a container is assumed to be essential. All tasks must have at least one essential container. If you have an application that is composed of multiple containers, you should group containers that are used for a common purpose into components, and separate the different components into multiple task definitions. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/application_architecture.html Application Architecture> in the /Amazon Elastic Container Service Developer Guide/ .+cdEssential :: Lens' ContainerDefinition (Maybe Bool)+cdEssential = lens _cdEssential (\ s a -> s{_cdEssential = a})++-- | The number of @cpu@ units reserved for the container. This parameter maps to @CpuShares@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cpu-shares@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This field is optional for tasks using the Fargate launch type, and the only requirement is that the total amount of CPU reserved for all containers within a task be lower than the task-level @cpu@ value. For example, if you run a single-container task on a single-core instance type with 512 CPU units specified for that container, and that is the only task running on the container instance, that container could use the full 1,024 CPU unit share at any given time. However, if you launched another copy of the same task on that container instance, each task would be guaranteed a minimum of 512 CPU units when needed, and each container could float to higher CPU usage if the other container was not using it, but if both tasks were 100% active all of the time, they would be limited to 512 CPU units. Linux containers share unallocated CPU units with other containers on the container instance with the same ratio as their allocated amount. For example, if you run a single-container task on a single-core instance type with 512 CPU units specified for that container, and that is the only task running on the container instance, that container could use the full 1,024 CPU unit share at any given time. However, if you launched another copy of the same task on that container instance, each task would be guaranteed a minimum of 512 CPU units when needed, and each container could float to higher CPU usage if the other container was not using it, but if both tasks were 100% active all of the time, they would be limited to 512 CPU units. On Linux container instances, the Docker daemon on the container instance uses the CPU value to calculate the relative CPU share ratios for running containers. For more information, see <https://docs.docker.com/engine/reference/run/#cpu-share-constraint CPU share constraint> in the Docker documentation. The minimum valid CPU share value that the Linux kernel allows is 2; however, the CPU parameter is not required, and you can use CPU values below 2 in your container definitions. For CPU values below 2 (including null), the behavior varies based on your Amazon ECS container agent version:     * __Agent versions less than or equal to 1.1.0:__ Null and zero CPU values are passed to Docker as 0, which Docker then converts to 1,024 CPU shares. CPU values of 1 are passed to Docker as 1, which the Linux kernel converts to 2 CPU shares.     * __Agent versions greater than or equal to 1.2.0:__ Null, zero, and CPU values of 1 are passed to Docker as 2. On Windows container instances, the CPU limit is enforced as an absolute limit, or a quota. Windows containers only have access to the specified amount of CPU that is described in the task definition.+cdCpu :: Lens' ContainerDefinition (Maybe Int)+cdCpu = lens _cdCpu (\ s a -> s{_cdCpu = a})++-- | The soft limit (in MiB) of memory to reserve for the container. When system memory is under heavy contention, Docker attempts to keep the container memory to this soft limit; however, your container can consume more memory when it needs to, up to either the hard limit specified with the @memory@ parameter (if applicable), or all of the available memory on the container instance, whichever comes first. This parameter maps to @MemoryReservation@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--memory-reservation@ option to <https://docs.docker.com/engine/reference/run/ docker run> . You must specify a non-zero integer for one or both of @memory@ or @memoryReservation@ in container definitions. If you specify both, @memory@ must be greater than @memoryReservation@ . If you specify @memoryReservation@ , then that value is subtracted from the available memory resources for the container instance on which the container is placed; otherwise, the value of @memory@ is used. For example, if your container normally uses 128 MiB of memory, but occasionally bursts to 256 MiB of memory for short periods of time, you can set a @memoryReservation@ of 128 MiB, and a @memory@ hard limit of 300 MiB. This configuration would allow the container to only reserve 128 MiB of memory from the remaining resources on the container instance, but also allow the container to consume more memory resources when needed. The Docker daemon reserves a minimum of 4 MiB of memory for a container, so you should not specify fewer than 4 MiB of memory for your containers.+cdMemoryReservation :: Lens' ContainerDefinition (Maybe Int)+cdMemoryReservation = lens _cdMemoryReservation (\ s a -> s{_cdMemoryReservation = a})++instance FromJSON ContainerDefinition where+        parseJSON+          = withObject "ContainerDefinition"+              (\ x ->+                 ContainerDefinition' <$>+                   (x .:? "image") <*> (x .:? "command" .!= mempty) <*>+                     (x .:? "hostname")+                     <*> (x .:? "dockerSecurityOptions" .!= mempty)+                     <*> (x .:? "healthCheck")+                     <*> (x .:? "disableNetworking")+                     <*> (x .:? "volumesFrom" .!= mempty)+                     <*> (x .:? "environment" .!= mempty)+                     <*> (x .:? "entryPoint" .!= mempty)+                     <*> (x .:? "workingDirectory")+                     <*> (x .:? "ulimits" .!= mempty)+                     <*> (x .:? "privileged")+                     <*> (x .:? "portMappings" .!= mempty)+                     <*> (x .:? "dockerLabels" .!= mempty)+                     <*> (x .:? "extraHosts" .!= mempty)+                     <*> (x .:? "memory")+                     <*> (x .:? "user")+                     <*> (x .:? "dnsSearchDomains" .!= mempty)+                     <*> (x .:? "logConfiguration")+                     <*> (x .:? "linuxParameters")+                     <*> (x .:? "name")+                     <*> (x .:? "dnsServers" .!= mempty)+                     <*> (x .:? "mountPoints" .!= mempty)+                     <*> (x .:? "links" .!= mempty)+                     <*> (x .:? "readonlyRootFilesystem")+                     <*> (x .:? "essential")+                     <*> (x .:? "cpu")+                     <*> (x .:? "memoryReservation"))++instance Hashable ContainerDefinition where++instance NFData ContainerDefinition where++instance ToJSON ContainerDefinition where+        toJSON ContainerDefinition'{..}+          = object+              (catMaybes+                 [("image" .=) <$> _cdImage,+                  ("command" .=) <$> _cdCommand,+                  ("hostname" .=) <$> _cdHostname,+                  ("dockerSecurityOptions" .=) <$>+                    _cdDockerSecurityOptions,+                  ("healthCheck" .=) <$> _cdHealthCheck,+                  ("disableNetworking" .=) <$> _cdDisableNetworking,+                  ("volumesFrom" .=) <$> _cdVolumesFrom,+                  ("environment" .=) <$> _cdEnvironment,+                  ("entryPoint" .=) <$> _cdEntryPoint,+                  ("workingDirectory" .=) <$> _cdWorkingDirectory,+                  ("ulimits" .=) <$> _cdUlimits,+                  ("privileged" .=) <$> _cdPrivileged,+                  ("portMappings" .=) <$> _cdPortMappings,+                  ("dockerLabels" .=) <$> _cdDockerLabels,+                  ("extraHosts" .=) <$> _cdExtraHosts,+                  ("memory" .=) <$> _cdMemory, ("user" .=) <$> _cdUser,+                  ("dnsSearchDomains" .=) <$> _cdDnsSearchDomains,+                  ("logConfiguration" .=) <$> _cdLogConfiguration,+                  ("linuxParameters" .=) <$> _cdLinuxParameters,+                  ("name" .=) <$> _cdName,+                  ("dnsServers" .=) <$> _cdDnsServers,+                  ("mountPoints" .=) <$> _cdMountPoints,+                  ("links" .=) <$> _cdLinks,+                  ("readonlyRootFilesystem" .=) <$>+                    _cdReadonlyRootFilesystem,+                  ("essential" .=) <$> _cdEssential,+                  ("cpu" .=) <$> _cdCpu,+                  ("memoryReservation" .=) <$> _cdMemoryReservation])++-- | An EC2 instance that is running the Amazon ECS agent and has been registered with a cluster.+--+--+--+-- /See:/ 'containerInstance' smart constructor.+data ContainerInstance = ContainerInstance'+  { _ciStatus               :: !(Maybe Text)+  , _ciAttachments          :: !(Maybe [Attachment])+  , _ciRunningTasksCount    :: !(Maybe Int)+  , _ciRemainingResources   :: !(Maybe [Resource])+  , _ciEc2InstanceId        :: !(Maybe Text)+  , _ciContainerInstanceARN :: !(Maybe Text)+  , _ciAgentConnected       :: !(Maybe Bool)+  , _ciVersionInfo          :: !(Maybe VersionInfo)+  , _ciAgentUpdateStatus    :: !(Maybe AgentUpdateStatus)+  , _ciAttributes           :: !(Maybe [Attribute])+  , _ciVersion              :: !(Maybe Integer)+  , _ciPendingTasksCount    :: !(Maybe Int)+  , _ciRegisteredAt         :: !(Maybe POSIX)+  , _ciRegisteredResources  :: !(Maybe [Resource])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContainerInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ciStatus' - The status of the container instance. The valid values are @ACTIVE@ , @INACTIVE@ , or @DRAINING@ . @ACTIVE@ indicates that the container instance can accept tasks. @DRAINING@ indicates that new tasks are not placed on the container instance and any service tasks running on the container instance are removed if possible. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/container-instance-draining.html Container Instance Draining> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'ciAttachments' - The Elastic Network Interfaces associated with the container instance.+--+-- * 'ciRunningTasksCount' - The number of tasks on the container instance that are in the @RUNNING@ status.+--+-- * 'ciRemainingResources' - For CPU and memory resource types, this parameter describes the remaining CPU and memory on the that has not already been allocated to tasks (and is therefore available for new tasks). For port resource types, this parameter describes the ports that were reserved by the Amazon ECS container agent (at instance registration time) and any task containers that have reserved port mappings on the host (with the @host@ or @bridge@ network mode). Any port that is not specified here is available for new tasks.+--+-- * 'ciEc2InstanceId' - The EC2 instance ID of the container instance.+--+-- * 'ciContainerInstanceARN' - The Amazon Resource Name (ARN) of the container instance. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ .+--+-- * 'ciAgentConnected' - This parameter returns @true@ if the agent is connected to Amazon ECS. Registered instances with an agent that may be unhealthy or stopped return @false@ . Instances without a connected agent can't accept placement requests.+--+-- * 'ciVersionInfo' - The version information for the Amazon ECS container agent and Docker daemon running on the container instance.+--+-- * 'ciAgentUpdateStatus' - The status of the most recent agent update. If an update has never been requested, this value is @NULL@ .+--+-- * 'ciAttributes' - The attributes set for the container instance, either by the Amazon ECS container agent at instance registration or manually with the 'PutAttributes' operation.+--+-- * 'ciVersion' - The version counter for the container instance. Every time a container instance experiences a change that triggers a CloudWatch event, the version counter is incremented. If you are replicating your Amazon ECS container instance state with CloudWatch Events, you can compare the version of a container instance reported by the Amazon ECS APIs with the version reported in CloudWatch Events for the container instance (inside the @detail@ object) to verify that the version in your event stream is current.+--+-- * 'ciPendingTasksCount' - The number of tasks on the container instance that are in the @PENDING@ status.+--+-- * 'ciRegisteredAt' - The Unix time stamp for when the container instance was registered.+--+-- * 'ciRegisteredResources' - For CPU and memory resource types, this parameter describes the amount of each resource that was available on the container instance when the container agent registered it with Amazon ECS; this value represents the total amount of CPU and memory that can be allocated on this container instance to tasks. For port resource types, this parameter describes the ports that were reserved by the Amazon ECS container agent when it registered the container instance with Amazon ECS.+containerInstance+    :: ContainerInstance+containerInstance =+  ContainerInstance'+    { _ciStatus = Nothing+    , _ciAttachments = Nothing+    , _ciRunningTasksCount = Nothing+    , _ciRemainingResources = Nothing+    , _ciEc2InstanceId = Nothing+    , _ciContainerInstanceARN = Nothing+    , _ciAgentConnected = Nothing+    , _ciVersionInfo = Nothing+    , _ciAgentUpdateStatus = Nothing+    , _ciAttributes = Nothing+    , _ciVersion = Nothing+    , _ciPendingTasksCount = Nothing+    , _ciRegisteredAt = Nothing+    , _ciRegisteredResources = Nothing+    }+++-- | The status of the container instance. The valid values are @ACTIVE@ , @INACTIVE@ , or @DRAINING@ . @ACTIVE@ indicates that the container instance can accept tasks. @DRAINING@ indicates that new tasks are not placed on the container instance and any service tasks running on the container instance are removed if possible. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/container-instance-draining.html Container Instance Draining> in the /Amazon Elastic Container Service Developer Guide/ .+ciStatus :: Lens' ContainerInstance (Maybe Text)+ciStatus = lens _ciStatus (\ s a -> s{_ciStatus = a})++-- | The Elastic Network Interfaces associated with the container instance.+ciAttachments :: Lens' ContainerInstance [Attachment]+ciAttachments = lens _ciAttachments (\ s a -> s{_ciAttachments = a}) . _Default . _Coerce++-- | The number of tasks on the container instance that are in the @RUNNING@ status.+ciRunningTasksCount :: Lens' ContainerInstance (Maybe Int)+ciRunningTasksCount = lens _ciRunningTasksCount (\ s a -> s{_ciRunningTasksCount = a})++-- | For CPU and memory resource types, this parameter describes the remaining CPU and memory on the that has not already been allocated to tasks (and is therefore available for new tasks). For port resource types, this parameter describes the ports that were reserved by the Amazon ECS container agent (at instance registration time) and any task containers that have reserved port mappings on the host (with the @host@ or @bridge@ network mode). Any port that is not specified here is available for new tasks.+ciRemainingResources :: Lens' ContainerInstance [Resource]+ciRemainingResources = lens _ciRemainingResources (\ s a -> s{_ciRemainingResources = a}) . _Default . _Coerce++-- | The EC2 instance ID of the container instance.+ciEc2InstanceId :: Lens' ContainerInstance (Maybe Text)+ciEc2InstanceId = lens _ciEc2InstanceId (\ s a -> s{_ciEc2InstanceId = a})++-- | The Amazon Resource Name (ARN) of the container instance. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the container instance, the AWS account ID of the container instance owner, the @container-instance@ namespace, and then the container instance ID. For example, @arn:aws:ecs:/region/ :/aws_account_id/ :container-instance//container_instance_ID/ @ .+ciContainerInstanceARN :: Lens' ContainerInstance (Maybe Text)+ciContainerInstanceARN = lens _ciContainerInstanceARN (\ s a -> s{_ciContainerInstanceARN = a})++-- | This parameter returns @true@ if the agent is connected to Amazon ECS. Registered instances with an agent that may be unhealthy or stopped return @false@ . Instances without a connected agent can't accept placement requests.+ciAgentConnected :: Lens' ContainerInstance (Maybe Bool)+ciAgentConnected = lens _ciAgentConnected (\ s a -> s{_ciAgentConnected = a})++-- | The version information for the Amazon ECS container agent and Docker daemon running on the container instance.+ciVersionInfo :: Lens' ContainerInstance (Maybe VersionInfo)+ciVersionInfo = lens _ciVersionInfo (\ s a -> s{_ciVersionInfo = a})++-- | The status of the most recent agent update. If an update has never been requested, this value is @NULL@ .+ciAgentUpdateStatus :: Lens' ContainerInstance (Maybe AgentUpdateStatus)+ciAgentUpdateStatus = lens _ciAgentUpdateStatus (\ s a -> s{_ciAgentUpdateStatus = a})++-- | The attributes set for the container instance, either by the Amazon ECS container agent at instance registration or manually with the 'PutAttributes' operation.+ciAttributes :: Lens' ContainerInstance [Attribute]+ciAttributes = lens _ciAttributes (\ s a -> s{_ciAttributes = a}) . _Default . _Coerce++-- | The version counter for the container instance. Every time a container instance experiences a change that triggers a CloudWatch event, the version counter is incremented. If you are replicating your Amazon ECS container instance state with CloudWatch Events, you can compare the version of a container instance reported by the Amazon ECS APIs with the version reported in CloudWatch Events for the container instance (inside the @detail@ object) to verify that the version in your event stream is current.+ciVersion :: Lens' ContainerInstance (Maybe Integer)+ciVersion = lens _ciVersion (\ s a -> s{_ciVersion = a})++-- | The number of tasks on the container instance that are in the @PENDING@ status.+ciPendingTasksCount :: Lens' ContainerInstance (Maybe Int)+ciPendingTasksCount = lens _ciPendingTasksCount (\ s a -> s{_ciPendingTasksCount = a})++-- | The Unix time stamp for when the container instance was registered.+ciRegisteredAt :: Lens' ContainerInstance (Maybe UTCTime)+ciRegisteredAt = lens _ciRegisteredAt (\ s a -> s{_ciRegisteredAt = a}) . mapping _Time++-- | For CPU and memory resource types, this parameter describes the amount of each resource that was available on the container instance when the container agent registered it with Amazon ECS; this value represents the total amount of CPU and memory that can be allocated on this container instance to tasks. For port resource types, this parameter describes the ports that were reserved by the Amazon ECS container agent when it registered the container instance with Amazon ECS.+ciRegisteredResources :: Lens' ContainerInstance [Resource]+ciRegisteredResources = lens _ciRegisteredResources (\ s a -> s{_ciRegisteredResources = a}) . _Default . _Coerce++instance FromJSON ContainerInstance where+        parseJSON+          = withObject "ContainerInstance"+              (\ x ->+                 ContainerInstance' <$>+                   (x .:? "status") <*> (x .:? "attachments" .!= mempty)+                     <*> (x .:? "runningTasksCount")+                     <*> (x .:? "remainingResources" .!= mempty)+                     <*> (x .:? "ec2InstanceId")+                     <*> (x .:? "containerInstanceArn")+                     <*> (x .:? "agentConnected")+                     <*> (x .:? "versionInfo")+                     <*> (x .:? "agentUpdateStatus")+                     <*> (x .:? "attributes" .!= mempty)+                     <*> (x .:? "version")+                     <*> (x .:? "pendingTasksCount")+                     <*> (x .:? "registeredAt")+                     <*> (x .:? "registeredResources" .!= mempty))++instance Hashable ContainerInstance where++instance NFData ContainerInstance where++-- | The overrides that should be sent to a container.+--+--+--+-- /See:/ 'containerOverride' smart constructor.+data ContainerOverride = ContainerOverride'+  { _coCommand           :: !(Maybe [Text])+  , _coEnvironment       :: !(Maybe [KeyValuePair])+  , _coMemory            :: !(Maybe Int)+  , _coName              :: !(Maybe Text)+  , _coCpu               :: !(Maybe Int)+  , _coMemoryReservation :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContainerOverride' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'coCommand' - The command to send to the container that overrides the default command from the Docker image or the task definition. You must also specify a container name.+--+-- * 'coEnvironment' - 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 task definition. You must also specify a container name.+--+-- * 'coMemory' - The hard limit (in MiB) of memory to present to the container, instead of the default value from the task definition. If your container attempts to exceed the memory specified here, the container is killed. You must also specify a container name.+--+-- * 'coName' - The name of the container that receives the override. This parameter is required if any override is specified.+--+-- * 'coCpu' - The number of @cpu@ units reserved for the container, instead of the default value from the task definition. You must also specify a container name.+--+-- * 'coMemoryReservation' - The soft limit (in MiB) of memory to reserve for the container, instead of the default value from the task definition. You must also specify a container name.+containerOverride+    :: ContainerOverride+containerOverride =+  ContainerOverride'+    { _coCommand = Nothing+    , _coEnvironment = Nothing+    , _coMemory = Nothing+    , _coName = Nothing+    , _coCpu = Nothing+    , _coMemoryReservation = Nothing+    }+++-- | The command to send to the container that overrides the default command from the Docker image or the task definition. You must also specify a container name.+coCommand :: Lens' ContainerOverride [Text]+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 task definition. You must also specify a container name.+coEnvironment :: Lens' ContainerOverride [KeyValuePair]+coEnvironment = lens _coEnvironment (\ s a -> s{_coEnvironment = a}) . _Default . _Coerce++-- | The hard limit (in MiB) of memory to present to the container, instead of the default value from the task definition. If your container attempts to exceed the memory specified here, the container is killed. You must also specify a container name.+coMemory :: Lens' ContainerOverride (Maybe Int)+coMemory = lens _coMemory (\ s a -> s{_coMemory = a})++-- | The name of the container that receives the override. This parameter is required if any override is specified.+coName :: Lens' ContainerOverride (Maybe Text)+coName = lens _coName (\ s a -> s{_coName = a})++-- | The number of @cpu@ units reserved for the container, instead of the default value from the task definition. You must also specify a container name.+coCpu :: Lens' ContainerOverride (Maybe Int)+coCpu = lens _coCpu (\ s a -> s{_coCpu = a})++-- | The soft limit (in MiB) of memory to reserve for the container, instead of the default value from the task definition. You must also specify a container name.+coMemoryReservation :: Lens' ContainerOverride (Maybe Int)+coMemoryReservation = lens _coMemoryReservation (\ s a -> s{_coMemoryReservation = a})++instance FromJSON ContainerOverride where+        parseJSON+          = withObject "ContainerOverride"+              (\ x ->+                 ContainerOverride' <$>+                   (x .:? "command" .!= mempty) <*>+                     (x .:? "environment" .!= mempty)+                     <*> (x .:? "memory")+                     <*> (x .:? "name")+                     <*> (x .:? "cpu")+                     <*> (x .:? "memoryReservation"))++instance Hashable ContainerOverride where++instance NFData ContainerOverride where++instance ToJSON ContainerOverride where+        toJSON ContainerOverride'{..}+          = object+              (catMaybes+                 [("command" .=) <$> _coCommand,+                  ("environment" .=) <$> _coEnvironment,+                  ("memory" .=) <$> _coMemory, ("name" .=) <$> _coName,+                  ("cpu" .=) <$> _coCpu,+                  ("memoryReservation" .=) <$> _coMemoryReservation])++-- | Details on a service within a cluster+--+--+--+-- /See:/ 'containerService' smart constructor.+data ContainerService = ContainerService'+  { _csRunningCount                  :: !(Maybe Int)+  , _csStatus                        :: !(Maybe Text)+  , _csClusterARN                    :: !(Maybe Text)+  , _csCreatedAt                     :: !(Maybe POSIX)+  , _csPlatformVersion               :: !(Maybe Text)+  , _csDesiredCount                  :: !(Maybe Int)+  , _csLoadBalancers                 :: !(Maybe [LoadBalancer])+  , _csPendingCount                  :: !(Maybe Int)+  , _csPlacementConstraints          :: !(Maybe [PlacementConstraint])+  , _csEvents                        :: !(Maybe [ServiceEvent])+  , _csPlacementStrategy             :: !(Maybe [PlacementStrategy])+  , _csDeployments                   :: !(Maybe [Deployment])+  , _csServiceName                   :: !(Maybe Text)+  , _csLaunchType                    :: !(Maybe LaunchType)+  , _csServiceARN                    :: !(Maybe Text)+  , _csTaskDefinition                :: !(Maybe Text)+  , _csHealthCheckGracePeriodSeconds :: !(Maybe Int)+  , _csNetworkConfiguration          :: !(Maybe NetworkConfiguration)+  , _csServiceRegistries             :: !(Maybe [ServiceRegistry])+  , _csRoleARN                       :: !(Maybe Text)+  , _csDeploymentConfiguration       :: !(Maybe DeploymentConfiguration)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContainerService' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csRunningCount' - The number of tasks in the cluster that are in the @RUNNING@ state.+--+-- * 'csStatus' - The status of the service. The valid values are @ACTIVE@ , @DRAINING@ , or @INACTIVE@ .+--+-- * 'csClusterARN' - The Amazon Resource Name (ARN) of the cluster that hosts the service.+--+-- * 'csCreatedAt' - The Unix time stamp for when the service was created.+--+-- * 'csPlatformVersion' - The platform version on which your task is running. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/platform_versions.html AWS Fargate Platform Versions> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'csDesiredCount' - The desired number of instantiations of the task definition to keep running on the service. This value is specified when the service is created with 'CreateService' , and it can be modified with 'UpdateService' .+--+-- * 'csLoadBalancers' - A list of Elastic Load Balancing load balancer objects, containing the load balancer name, the container name (as it appears in a container definition), and the container port to access from the load balancer.+--+-- * 'csPendingCount' - The number of tasks in the cluster that are in the @PENDING@ state.+--+-- * 'csPlacementConstraints' - The placement constraints for the tasks in the service.+--+-- * 'csEvents' - The event stream for your service. A maximum of 100 of the latest events are displayed.+--+-- * 'csPlacementStrategy' - The placement strategy that determines how tasks for the service are placed.+--+-- * 'csDeployments' - The current state of deployments for the service.+--+-- * 'csServiceName' - The name of your service. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. Service names must be unique within a cluster, but you can have similarly named services in multiple clusters within a region or across multiple regions.+--+-- * 'csLaunchType' - The launch type on which your service is running.+--+-- * 'csServiceARN' - The ARN that identifies the service. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the service, the AWS account ID of the service owner, the @service@ namespace, and then the service name. For example, @arn:aws:ecs:/region/ :/012345678910/ :service//my-service/ @ .+--+-- * 'csTaskDefinition' - The task definition to use for tasks in the service. This value is specified when the service is created with 'CreateService' , and it can be modified with 'UpdateService' .+--+-- * 'csHealthCheckGracePeriodSeconds' - The period of time, in seconds, that the Amazon ECS service scheduler ignores unhealthy Elastic Load Balancing target health checks after a task has first started.+--+-- * 'csNetworkConfiguration' - The VPC subnet and security group configuration for tasks that receive their own Elastic Network Interface by using the @awsvpc@ networking mode.+--+-- * 'csServiceRegistries' -+--+-- * 'csRoleARN' - The ARN of the IAM role associated with the service that allows the Amazon ECS container agent to register container instances with an Elastic Load Balancing load balancer.+--+-- * 'csDeploymentConfiguration' - Optional deployment parameters that control how many tasks run during the deployment and the ordering of stopping and starting tasks.+containerService+    :: ContainerService+containerService =+  ContainerService'+    { _csRunningCount = Nothing+    , _csStatus = Nothing+    , _csClusterARN = Nothing+    , _csCreatedAt = Nothing+    , _csPlatformVersion = Nothing+    , _csDesiredCount = Nothing+    , _csLoadBalancers = Nothing+    , _csPendingCount = Nothing+    , _csPlacementConstraints = Nothing+    , _csEvents = Nothing+    , _csPlacementStrategy = Nothing+    , _csDeployments = Nothing+    , _csServiceName = Nothing+    , _csLaunchType = Nothing+    , _csServiceARN = Nothing+    , _csTaskDefinition = Nothing+    , _csHealthCheckGracePeriodSeconds = Nothing+    , _csNetworkConfiguration = Nothing+    , _csServiceRegistries = Nothing+    , _csRoleARN = Nothing+    , _csDeploymentConfiguration = Nothing+    }+++-- | The number of tasks in the cluster that are in the @RUNNING@ state.+csRunningCount :: Lens' ContainerService (Maybe Int)+csRunningCount = lens _csRunningCount (\ s a -> s{_csRunningCount = a})++-- | The status of the service. The valid values are @ACTIVE@ , @DRAINING@ , or @INACTIVE@ .+csStatus :: Lens' ContainerService (Maybe Text)+csStatus = lens _csStatus (\ s a -> s{_csStatus = a})++-- | The Amazon Resource Name (ARN) of the cluster that hosts the service.+csClusterARN :: Lens' ContainerService (Maybe Text)+csClusterARN = lens _csClusterARN (\ s a -> s{_csClusterARN = a})++-- | The Unix time stamp for when the service was created.+csCreatedAt :: Lens' ContainerService (Maybe UTCTime)+csCreatedAt = lens _csCreatedAt (\ s a -> s{_csCreatedAt = a}) . mapping _Time++-- | The platform version on which your task is running. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/platform_versions.html AWS Fargate Platform Versions> in the /Amazon Elastic Container Service Developer Guide/ .+csPlatformVersion :: Lens' ContainerService (Maybe Text)+csPlatformVersion = lens _csPlatformVersion (\ s a -> s{_csPlatformVersion = a})++-- | The desired number of instantiations of the task definition to keep running on the service. This value is specified when the service is created with 'CreateService' , and it can be modified with 'UpdateService' .+csDesiredCount :: Lens' ContainerService (Maybe Int)+csDesiredCount = lens _csDesiredCount (\ s a -> s{_csDesiredCount = a})++-- | A list of Elastic Load Balancing load balancer objects, containing the load balancer name, the container name (as it appears in a container definition), and the container port to access from the load balancer.+csLoadBalancers :: Lens' ContainerService [LoadBalancer]+csLoadBalancers = lens _csLoadBalancers (\ s a -> s{_csLoadBalancers = a}) . _Default . _Coerce++-- | The number of tasks in the cluster that are in the @PENDING@ state.+csPendingCount :: Lens' ContainerService (Maybe Int)+csPendingCount = lens _csPendingCount (\ s a -> s{_csPendingCount = a})++-- | The placement constraints for the tasks in the service.+csPlacementConstraints :: Lens' ContainerService [PlacementConstraint]+csPlacementConstraints = lens _csPlacementConstraints (\ s a -> s{_csPlacementConstraints = a}) . _Default . _Coerce++-- | The event stream for your service. A maximum of 100 of the latest events are displayed.+csEvents :: Lens' ContainerService [ServiceEvent]+csEvents = lens _csEvents (\ s a -> s{_csEvents = a}) . _Default . _Coerce++-- | The placement strategy that determines how tasks for the service are placed.+csPlacementStrategy :: Lens' ContainerService [PlacementStrategy]+csPlacementStrategy = lens _csPlacementStrategy (\ s a -> s{_csPlacementStrategy = a}) . _Default . _Coerce++-- | The current state of deployments for the service.+csDeployments :: Lens' ContainerService [Deployment]+csDeployments = lens _csDeployments (\ s a -> s{_csDeployments = a}) . _Default . _Coerce++-- | The name of your service. Up to 255 letters (uppercase and lowercase), numbers, hyphens, and underscores are allowed. Service names must be unique within a cluster, but you can have similarly named services in multiple clusters within a region or across multiple regions.+csServiceName :: Lens' ContainerService (Maybe Text)+csServiceName = lens _csServiceName (\ s a -> s{_csServiceName = a})++-- | The launch type on which your service is running.+csLaunchType :: Lens' ContainerService (Maybe LaunchType)+csLaunchType = lens _csLaunchType (\ s a -> s{_csLaunchType = a})++-- | The ARN that identifies the service. The ARN contains the @arn:aws:ecs@ namespace, followed by the region of the service, the AWS account ID of the service owner, the @service@ namespace, and then the service name. For example, @arn:aws:ecs:/region/ :/012345678910/ :service//my-service/ @ .+csServiceARN :: Lens' ContainerService (Maybe Text)+csServiceARN = lens _csServiceARN (\ s a -> s{_csServiceARN = a})++-- | The task definition to use for tasks in the service. This value is specified when the service is created with 'CreateService' , and it can be modified with 'UpdateService' .+csTaskDefinition :: Lens' ContainerService (Maybe Text)+csTaskDefinition = lens _csTaskDefinition (\ s a -> s{_csTaskDefinition = a})++-- | The period of time, in seconds, that the Amazon ECS service scheduler ignores unhealthy Elastic Load Balancing target health checks after a task has first started.+csHealthCheckGracePeriodSeconds :: Lens' ContainerService (Maybe Int)+csHealthCheckGracePeriodSeconds = lens _csHealthCheckGracePeriodSeconds (\ s a -> s{_csHealthCheckGracePeriodSeconds = a})++-- | The VPC subnet and security group configuration for tasks that receive their own Elastic Network Interface by using the @awsvpc@ networking mode.+csNetworkConfiguration :: Lens' ContainerService (Maybe NetworkConfiguration)+csNetworkConfiguration = lens _csNetworkConfiguration (\ s a -> s{_csNetworkConfiguration = a})++-- |+csServiceRegistries :: Lens' ContainerService [ServiceRegistry]+csServiceRegistries = lens _csServiceRegistries (\ s a -> s{_csServiceRegistries = a}) . _Default . _Coerce++-- | The ARN of the IAM role associated with the service that allows the Amazon ECS container agent to register container instances with an Elastic Load Balancing load balancer.+csRoleARN :: Lens' ContainerService (Maybe Text)+csRoleARN = lens _csRoleARN (\ s a -> s{_csRoleARN = a})++-- | Optional deployment parameters that control how many tasks run during the deployment and the ordering of stopping and starting tasks.+csDeploymentConfiguration :: Lens' ContainerService (Maybe DeploymentConfiguration)+csDeploymentConfiguration = lens _csDeploymentConfiguration (\ s a -> s{_csDeploymentConfiguration = a})++instance FromJSON ContainerService where+        parseJSON+          = withObject "ContainerService"+              (\ x ->+                 ContainerService' <$>+                   (x .:? "runningCount") <*> (x .:? "status") <*>+                     (x .:? "clusterArn")+                     <*> (x .:? "createdAt")+                     <*> (x .:? "platformVersion")+                     <*> (x .:? "desiredCount")+                     <*> (x .:? "loadBalancers" .!= mempty)+                     <*> (x .:? "pendingCount")+                     <*> (x .:? "placementConstraints" .!= mempty)+                     <*> (x .:? "events" .!= mempty)+                     <*> (x .:? "placementStrategy" .!= mempty)+                     <*> (x .:? "deployments" .!= mempty)+                     <*> (x .:? "serviceName")+                     <*> (x .:? "launchType")+                     <*> (x .:? "serviceArn")+                     <*> (x .:? "taskDefinition")+                     <*> (x .:? "healthCheckGracePeriodSeconds")+                     <*> (x .:? "networkConfiguration")+                     <*> (x .:? "serviceRegistries" .!= mempty)+                     <*> (x .:? "roleArn")+                     <*> (x .:? "deploymentConfiguration"))++instance Hashable ContainerService where++instance NFData ContainerService where++-- | An object representing a change in state for a container.+--+--+--+-- /See:/ 'containerStateChange' smart constructor.+data ContainerStateChange = ContainerStateChange'+  { _cscNetworkBindings :: !(Maybe [NetworkBinding])+  , _cscStatus          :: !(Maybe Text)+  , _cscContainerName   :: !(Maybe Text)+  , _cscReason          :: !(Maybe Text)+  , _cscExitCode        :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContainerStateChange' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cscNetworkBindings' - Any network bindings associated with the container.+--+-- * 'cscStatus' - The status of the container.+--+-- * 'cscContainerName' - The name of the container.+--+-- * 'cscReason' - The reason for the state change.+--+-- * 'cscExitCode' - The exit code for the container, if the state change is a result of the container exiting.+containerStateChange+    :: ContainerStateChange+containerStateChange =+  ContainerStateChange'+    { _cscNetworkBindings = Nothing+    , _cscStatus = Nothing+    , _cscContainerName = Nothing+    , _cscReason = Nothing+    , _cscExitCode = Nothing+    }+++-- | Any network bindings associated with the container.+cscNetworkBindings :: Lens' ContainerStateChange [NetworkBinding]+cscNetworkBindings = lens _cscNetworkBindings (\ s a -> s{_cscNetworkBindings = a}) . _Default . _Coerce++-- | The status of the container.+cscStatus :: Lens' ContainerStateChange (Maybe Text)+cscStatus = lens _cscStatus (\ s a -> s{_cscStatus = a})++-- | The name of the container.+cscContainerName :: Lens' ContainerStateChange (Maybe Text)+cscContainerName = lens _cscContainerName (\ s a -> s{_cscContainerName = a})++-- | The reason for the state change.+cscReason :: Lens' ContainerStateChange (Maybe Text)+cscReason = lens _cscReason (\ s a -> s{_cscReason = a})++-- | The exit code for the container, if the state change is a result of the container exiting.+cscExitCode :: Lens' ContainerStateChange (Maybe Int)+cscExitCode = lens _cscExitCode (\ s a -> s{_cscExitCode = a})++instance Hashable ContainerStateChange where++instance NFData ContainerStateChange where++instance ToJSON ContainerStateChange where+        toJSON ContainerStateChange'{..}+          = object+              (catMaybes+                 [("networkBindings" .=) <$> _cscNetworkBindings,+                  ("status" .=) <$> _cscStatus,+                  ("containerName" .=) <$> _cscContainerName,+                  ("reason" .=) <$> _cscReason,+                  ("exitCode" .=) <$> _cscExitCode])++-- | The details of an Amazon ECS service deployment.+--+--+--+-- /See:/ 'deployment' smart constructor.+data Deployment = Deployment'+  { _dRunningCount         :: !(Maybe Int)+  , _dStatus               :: !(Maybe Text)+  , _dCreatedAt            :: !(Maybe POSIX)+  , _dPlatformVersion      :: !(Maybe Text)+  , _dDesiredCount         :: !(Maybe Int)+  , _dPendingCount         :: !(Maybe Int)+  , _dId                   :: !(Maybe Text)+  , _dLaunchType           :: !(Maybe LaunchType)+  , _dUpdatedAt            :: !(Maybe POSIX)+  , _dTaskDefinition       :: !(Maybe Text)+  , _dNetworkConfiguration :: !(Maybe NetworkConfiguration)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Deployment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dRunningCount' - The number of tasks in the deployment that are in the @RUNNING@ status.+--+-- * 'dStatus' - The status of the deployment. Valid values are @PRIMARY@ (for the most recent deployment), @ACTIVE@ (for previous deployments that still have tasks running, but are being replaced with the @PRIMARY@ deployment), and @INACTIVE@ (for deployments that have been completely replaced).+--+-- * 'dCreatedAt' - The Unix time stamp for when the service was created.+--+-- * 'dPlatformVersion' - The platform version on which your service is running.+--+-- * 'dDesiredCount' - The most recent desired count of tasks that was specified for the service to deploy or maintain.+--+-- * 'dPendingCount' - The number of tasks in the deployment that are in the @PENDING@ status.+--+-- * 'dId' - The ID of the deployment.+--+-- * 'dLaunchType' - The launch type on which your service is running.+--+-- * 'dUpdatedAt' - The Unix time stamp for when the service was last updated.+--+-- * 'dTaskDefinition' - The most recent task definition that was specified for the service to use.+--+-- * 'dNetworkConfiguration' - The VPC subnet and security group configuration for tasks that receive their own Elastic Network Interface by using the @awsvpc@ networking mode.+deployment+    :: Deployment+deployment =+  Deployment'+    { _dRunningCount = Nothing+    , _dStatus = Nothing+    , _dCreatedAt = Nothing+    , _dPlatformVersion = Nothing+    , _dDesiredCount = Nothing+    , _dPendingCount = Nothing+    , _dId = Nothing+    , _dLaunchType = Nothing+    , _dUpdatedAt = Nothing+    , _dTaskDefinition = Nothing+    , _dNetworkConfiguration = Nothing+    }+++-- | The number of tasks in the deployment that are in the @RUNNING@ status.+dRunningCount :: Lens' Deployment (Maybe Int)+dRunningCount = lens _dRunningCount (\ s a -> s{_dRunningCount = a})++-- | The status of the deployment. Valid values are @PRIMARY@ (for the most recent deployment), @ACTIVE@ (for previous deployments that still have tasks running, but are being replaced with the @PRIMARY@ deployment), and @INACTIVE@ (for deployments that have been completely replaced).+dStatus :: Lens' Deployment (Maybe Text)+dStatus = lens _dStatus (\ s a -> s{_dStatus = a})++-- | The Unix time stamp for when the service was created.+dCreatedAt :: Lens' Deployment (Maybe UTCTime)+dCreatedAt = lens _dCreatedAt (\ s a -> s{_dCreatedAt = a}) . mapping _Time++-- | The platform version on which your service is running.+dPlatformVersion :: Lens' Deployment (Maybe Text)+dPlatformVersion = lens _dPlatformVersion (\ s a -> s{_dPlatformVersion = a})++-- | The most recent desired count of tasks that was specified for the service to deploy or maintain.+dDesiredCount :: Lens' Deployment (Maybe Int)+dDesiredCount = lens _dDesiredCount (\ s a -> s{_dDesiredCount = a})++-- | The number of tasks in the deployment that are in the @PENDING@ status.+dPendingCount :: Lens' Deployment (Maybe Int)+dPendingCount = lens _dPendingCount (\ s a -> s{_dPendingCount = a})++-- | The ID of the deployment.+dId :: Lens' Deployment (Maybe Text)+dId = lens _dId (\ s a -> s{_dId = a})++-- | The launch type on which your service is running.+dLaunchType :: Lens' Deployment (Maybe LaunchType)+dLaunchType = lens _dLaunchType (\ s a -> s{_dLaunchType = a})++-- | The Unix time stamp for when the service was last updated.+dUpdatedAt :: Lens' Deployment (Maybe UTCTime)+dUpdatedAt = lens _dUpdatedAt (\ s a -> s{_dUpdatedAt = a}) . mapping _Time++-- | The most recent task definition that was specified for the service to use.+dTaskDefinition :: Lens' Deployment (Maybe Text)+dTaskDefinition = lens _dTaskDefinition (\ s a -> s{_dTaskDefinition = a})++-- | The VPC subnet and security group configuration for tasks that receive their own Elastic Network Interface by using the @awsvpc@ networking mode.+dNetworkConfiguration :: Lens' Deployment (Maybe NetworkConfiguration)+dNetworkConfiguration = lens _dNetworkConfiguration (\ s a -> s{_dNetworkConfiguration = a})++instance FromJSON Deployment where+        parseJSON+          = withObject "Deployment"+              (\ x ->+                 Deployment' <$>+                   (x .:? "runningCount") <*> (x .:? "status") <*>+                     (x .:? "createdAt")+                     <*> (x .:? "platformVersion")+                     <*> (x .:? "desiredCount")+                     <*> (x .:? "pendingCount")+                     <*> (x .:? "id")+                     <*> (x .:? "launchType")+                     <*> (x .:? "updatedAt")+                     <*> (x .:? "taskDefinition")+                     <*> (x .:? "networkConfiguration"))++instance Hashable Deployment where++instance NFData Deployment where++-- | Optional deployment parameters that control how many tasks run during the deployment and the ordering of stopping and starting tasks.+--+--+--+-- /See:/ 'deploymentConfiguration' smart constructor.+data DeploymentConfiguration = DeploymentConfiguration'+  { _dcMinimumHealthyPercent :: !(Maybe Int)+  , _dcMaximumPercent        :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeploymentConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcMinimumHealthyPercent' - The lower limit (as a percentage of the service's @desiredCount@ ) of the number of running tasks that must remain in the @RUNNING@ state in a service during a deployment. The minimum number of healthy tasks during a deployment is the @desiredCount@ multiplied by @minimumHealthyPercent@ /100, rounded up to the nearest integer value.+--+-- * 'dcMaximumPercent' - The upper limit (as a percentage of the service's @desiredCount@ ) of the number of tasks that are allowed in the @RUNNING@ or @PENDING@ state in a service during a deployment. The maximum number of tasks during a deployment is the @desiredCount@ multiplied by @maximumPercent@ /100, rounded down to the nearest integer value.+deploymentConfiguration+    :: DeploymentConfiguration+deploymentConfiguration =+  DeploymentConfiguration'+    {_dcMinimumHealthyPercent = Nothing, _dcMaximumPercent = Nothing}+++-- | The lower limit (as a percentage of the service's @desiredCount@ ) of the number of running tasks that must remain in the @RUNNING@ state in a service during a deployment. The minimum number of healthy tasks during a deployment is the @desiredCount@ multiplied by @minimumHealthyPercent@ /100, rounded up to the nearest integer value.+dcMinimumHealthyPercent :: Lens' DeploymentConfiguration (Maybe Int)+dcMinimumHealthyPercent = lens _dcMinimumHealthyPercent (\ s a -> s{_dcMinimumHealthyPercent = a})++-- | The upper limit (as a percentage of the service's @desiredCount@ ) of the number of tasks that are allowed in the @RUNNING@ or @PENDING@ state in a service during a deployment. The maximum number of tasks during a deployment is the @desiredCount@ multiplied by @maximumPercent@ /100, rounded down to the nearest integer value.+dcMaximumPercent :: Lens' DeploymentConfiguration (Maybe Int)+dcMaximumPercent = lens _dcMaximumPercent (\ s a -> s{_dcMaximumPercent = a})++instance FromJSON DeploymentConfiguration where+        parseJSON+          = withObject "DeploymentConfiguration"+              (\ x ->+                 DeploymentConfiguration' <$>+                   (x .:? "minimumHealthyPercent") <*>+                     (x .:? "maximumPercent"))++instance Hashable DeploymentConfiguration where++instance NFData DeploymentConfiguration where++instance ToJSON DeploymentConfiguration where+        toJSON DeploymentConfiguration'{..}+          = object+              (catMaybes+                 [("minimumHealthyPercent" .=) <$>+                    _dcMinimumHealthyPercent,+                  ("maximumPercent" .=) <$> _dcMaximumPercent])++-- | An object representing a container instance host device.+--+--+--+-- /See:/ 'device' smart constructor.+data Device = Device'+  { _dContainerPath :: !(Maybe Text)+  , _dPermissions   :: !(Maybe [DeviceCgroupPermission])+  , _dHostPath      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Device' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dContainerPath' - The path inside the container at which to expose the host device.+--+-- * 'dPermissions' - The explicit permissions to provide to the container for the device. By default, the container has permissions for @read@ , @write@ , and @mknod@ for the device.+--+-- * 'dHostPath' - The path for the device on the host container instance.+device+    :: Text -- ^ 'dHostPath'+    -> Device+device pHostPath_ =+  Device'+    { _dContainerPath = Nothing+    , _dPermissions = Nothing+    , _dHostPath = pHostPath_+    }+++-- | The path inside the container at which to expose the host device.+dContainerPath :: Lens' Device (Maybe Text)+dContainerPath = lens _dContainerPath (\ s a -> s{_dContainerPath = a})++-- | The explicit permissions to provide to the container for the device. By default, the container has permissions for @read@ , @write@ , and @mknod@ for the device.+dPermissions :: Lens' Device [DeviceCgroupPermission]+dPermissions = lens _dPermissions (\ s a -> s{_dPermissions = a}) . _Default . _Coerce++-- | The path for the device on the host container instance.+dHostPath :: Lens' Device Text+dHostPath = lens _dHostPath (\ s a -> s{_dHostPath = a})++instance FromJSON Device where+        parseJSON+          = withObject "Device"+              (\ x ->+                 Device' <$>+                   (x .:? "containerPath") <*>+                     (x .:? "permissions" .!= mempty)+                     <*> (x .: "hostPath"))++instance Hashable Device where++instance NFData Device where++instance ToJSON Device where+        toJSON Device'{..}+          = object+              (catMaybes+                 [("containerPath" .=) <$> _dContainerPath,+                  ("permissions" .=) <$> _dPermissions,+                  Just ("hostPath" .= _dHostPath)])++-- | A failed resource.+--+--+--+-- /See:/ 'failure' smart constructor.+data Failure = Failure'+  { _fArn    :: !(Maybe Text)+  , _fReason :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Failure' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fArn' - The Amazon Resource Name (ARN) of the failed resource.+--+-- * 'fReason' - The reason for the failure.+failure+    :: Failure+failure = Failure' {_fArn = Nothing, _fReason = Nothing}+++-- | The Amazon Resource Name (ARN) of the failed resource.+fArn :: Lens' Failure (Maybe Text)+fArn = lens _fArn (\ s a -> s{_fArn = a})++-- | The reason for the failure.+fReason :: Lens' Failure (Maybe Text)+fReason = lens _fReason (\ s a -> s{_fReason = a})++instance FromJSON Failure where+        parseJSON+          = withObject "Failure"+              (\ x ->+                 Failure' <$> (x .:? "arn") <*> (x .:? "reason"))++instance Hashable Failure where++instance NFData Failure where++-- | An object representing a container health check. Health check parameters that are specified in a container definition override any Docker health checks that exist in the container image (such as those specified in a parent image or from the image's Dockerfile).+--+--+--+-- /See:/ 'healthCheck' smart constructor.+data HealthCheck = HealthCheck'+  { _hcStartPeriod :: !(Maybe Int)+  , _hcRetries     :: !(Maybe Int)+  , _hcInterval    :: !(Maybe Int)+  , _hcTimeout     :: !(Maybe Int)+  , _hcCommand     :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'HealthCheck' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'hcStartPeriod' - The optional grace period within which to provide containers time to bootstrap before failed health checks count towards the maximum number of retries. You may specify between 0 and 300 seconds. The @startPeriod@ is disabled by default.+--+-- * 'hcRetries' - The number of times to retry a failed health check before the container is considered unhealthy. You may specify between 1 and 10 retries. The default value is 3 retries.+--+-- * 'hcInterval' - The time period in seconds between each health check execution. You may specify between 5 and 300 seconds. The default value is 30 seconds.+--+-- * 'hcTimeout' - The time period in seconds to wait for a health check to succeed before it is considered a failure. You may specify between 2 and 60 seconds. The default value is 5 seconds.+--+-- * 'hcCommand' - A string array representing the command that the container runs to determine if it is healthy. The string array must start with @CMD@ to execute the command arguments directly, or @CMD-SHELL@ to run the command with the container's default shell. For example: @[ "CMD-SHELL", "curl -f http://localhost/ || exit 1" ]@  An exit code of 0 indicates success, and non-zero exit code indicates failure. For more information, see @HealthCheck@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> .+healthCheck+    :: HealthCheck+healthCheck =+  HealthCheck'+    { _hcStartPeriod = Nothing+    , _hcRetries = Nothing+    , _hcInterval = Nothing+    , _hcTimeout = Nothing+    , _hcCommand = mempty+    }+++-- | The optional grace period within which to provide containers time to bootstrap before failed health checks count towards the maximum number of retries. You may specify between 0 and 300 seconds. The @startPeriod@ is disabled by default.+hcStartPeriod :: Lens' HealthCheck (Maybe Int)+hcStartPeriod = lens _hcStartPeriod (\ s a -> s{_hcStartPeriod = a})++-- | The number of times to retry a failed health check before the container is considered unhealthy. You may specify between 1 and 10 retries. The default value is 3 retries.+hcRetries :: Lens' HealthCheck (Maybe Int)+hcRetries = lens _hcRetries (\ s a -> s{_hcRetries = a})++-- | The time period in seconds between each health check execution. You may specify between 5 and 300 seconds. The default value is 30 seconds.+hcInterval :: Lens' HealthCheck (Maybe Int)+hcInterval = lens _hcInterval (\ s a -> s{_hcInterval = a})++-- | The time period in seconds to wait for a health check to succeed before it is considered a failure. You may specify between 2 and 60 seconds. The default value is 5 seconds.+hcTimeout :: Lens' HealthCheck (Maybe Int)+hcTimeout = lens _hcTimeout (\ s a -> s{_hcTimeout = a})++-- | A string array representing the command that the container runs to determine if it is healthy. The string array must start with @CMD@ to execute the command arguments directly, or @CMD-SHELL@ to run the command with the container's default shell. For example: @[ "CMD-SHELL", "curl -f http://localhost/ || exit 1" ]@  An exit code of 0 indicates success, and non-zero exit code indicates failure. For more information, see @HealthCheck@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> .+hcCommand :: Lens' HealthCheck [Text]+hcCommand = lens _hcCommand (\ s a -> s{_hcCommand = a}) . _Coerce++instance FromJSON HealthCheck where+        parseJSON+          = withObject "HealthCheck"+              (\ x ->+                 HealthCheck' <$>+                   (x .:? "startPeriod") <*> (x .:? "retries") <*>+                     (x .:? "interval")+                     <*> (x .:? "timeout")+                     <*> (x .:? "command" .!= mempty))++instance Hashable HealthCheck where++instance NFData HealthCheck where++instance ToJSON HealthCheck where+        toJSON HealthCheck'{..}+          = object+              (catMaybes+                 [("startPeriod" .=) <$> _hcStartPeriod,+                  ("retries" .=) <$> _hcRetries,+                  ("interval" .=) <$> _hcInterval,+                  ("timeout" .=) <$> _hcTimeout,+                  Just ("command" .= _hcCommand)])++-- | Hostnames and IP address entries that are added to the @/etc/hosts@ file of a container via the @extraHosts@ parameter of its 'ContainerDefinition' .+--+--+--+-- /See:/ 'hostEntry' smart constructor.+data HostEntry = HostEntry'+  { _heHostname  :: !Text+  , _heIpAddress :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'HostEntry' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'heHostname' - The hostname to use in the @/etc/hosts@ entry.+--+-- * 'heIpAddress' - The IP address to use in the @/etc/hosts@ entry.+hostEntry+    :: Text -- ^ 'heHostname'+    -> Text -- ^ 'heIpAddress'+    -> HostEntry+hostEntry pHostname_ pIpAddress_ =+  HostEntry' {_heHostname = pHostname_, _heIpAddress = pIpAddress_}+++-- | The hostname to use in the @/etc/hosts@ entry.+heHostname :: Lens' HostEntry Text+heHostname = lens _heHostname (\ s a -> s{_heHostname = a})++-- | The IP address to use in the @/etc/hosts@ entry.+heIpAddress :: Lens' HostEntry Text+heIpAddress = lens _heIpAddress (\ s a -> s{_heIpAddress = a})++instance FromJSON HostEntry where+        parseJSON+          = withObject "HostEntry"+              (\ x ->+                 HostEntry' <$>+                   (x .: "hostname") <*> (x .: "ipAddress"))++instance Hashable HostEntry where++instance NFData HostEntry where++instance ToJSON HostEntry where+        toJSON HostEntry'{..}+          = object+              (catMaybes+                 [Just ("hostname" .= _heHostname),+                  Just ("ipAddress" .= _heIpAddress)])++-- | Details on a container instance host volume.+--+--+--+-- /See:/ 'hostVolumeProperties' smart constructor.+newtype HostVolumeProperties = HostVolumeProperties'+  { _hvpSourcePath :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'HostVolumeProperties' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'hvpSourcePath' - 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. If you are using the Fargate launch type, the @sourcePath@ parameter is not supported.+hostVolumeProperties+    :: HostVolumeProperties+hostVolumeProperties = HostVolumeProperties' {_hvpSourcePath = Nothing}+++-- | 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. If you are using the Fargate launch type, the @sourcePath@ parameter is not supported.+hvpSourcePath :: Lens' HostVolumeProperties (Maybe Text)+hvpSourcePath = lens _hvpSourcePath (\ s a -> s{_hvpSourcePath = a})++instance FromJSON HostVolumeProperties where+        parseJSON+          = withObject "HostVolumeProperties"+              (\ x ->+                 HostVolumeProperties' <$> (x .:? "sourcePath"))++instance Hashable HostVolumeProperties where++instance NFData HostVolumeProperties where++instance ToJSON HostVolumeProperties where+        toJSON HostVolumeProperties'{..}+          = object+              (catMaybes [("sourcePath" .=) <$> _hvpSourcePath])++-- | The Linux capabilities for the container that are added to or dropped from the default configuration provided by Docker. For more information on the default capabilities and the non-default available capabilities, see <https://docs.docker.com/engine/reference/run/#runtime-privilege-and-linux-capabilities Runtime privilege and Linux capabilities> in the /Docker run reference/ . For more detailed information on these Linux capabilities, see the <http://man7.org/linux/man-pages/man7/capabilities.7.html capabilities(7)> Linux manual page.+--+--+--+-- /See:/ 'kernelCapabilities' smart constructor.+data KernelCapabilities = KernelCapabilities'+  { _kcDrop :: !(Maybe [Text])+  , _kcAdd  :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'KernelCapabilities' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'kcDrop' - The Linux capabilities for the container that have been removed from the default configuration provided by Docker. This parameter maps to @CapDrop@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cap-drop@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid values: @"ALL" | "AUDIT_CONTROL" | "AUDIT_WRITE" | "BLOCK_SUSPEND" | "CHOWN" | "DAC_OVERRIDE" | "DAC_READ_SEARCH" | "FOWNER" | "FSETID" | "IPC_LOCK" | "IPC_OWNER" | "KILL" | "LEASE" | "LINUX_IMMUTABLE" | "MAC_ADMIN" | "MAC_OVERRIDE" | "MKNOD" | "NET_ADMIN" | "NET_BIND_SERVICE" | "NET_BROADCAST" | "NET_RAW" | "SETFCAP" | "SETGID" | "SETPCAP" | "SETUID" | "SYS_ADMIN" | "SYS_BOOT" | "SYS_CHROOT" | "SYS_MODULE" | "SYS_NICE" | "SYS_PACCT" | "SYS_PTRACE" | "SYS_RAWIO" | "SYS_RESOURCE" | "SYS_TIME" | "SYS_TTY_CONFIG" | "SYSLOG" | "WAKE_ALARM"@+--+-- * 'kcAdd' - The Linux capabilities for the container that have been added to the default configuration provided by Docker. This parameter maps to @CapAdd@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cap-add@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid values: @"ALL" | "AUDIT_CONTROL" | "AUDIT_WRITE" | "BLOCK_SUSPEND" | "CHOWN" | "DAC_OVERRIDE" | "DAC_READ_SEARCH" | "FOWNER" | "FSETID" | "IPC_LOCK" | "IPC_OWNER" | "KILL" | "LEASE" | "LINUX_IMMUTABLE" | "MAC_ADMIN" | "MAC_OVERRIDE" | "MKNOD" | "NET_ADMIN" | "NET_BIND_SERVICE" | "NET_BROADCAST" | "NET_RAW" | "SETFCAP" | "SETGID" | "SETPCAP" | "SETUID" | "SYS_ADMIN" | "SYS_BOOT" | "SYS_CHROOT" | "SYS_MODULE" | "SYS_NICE" | "SYS_PACCT" | "SYS_PTRACE" | "SYS_RAWIO" | "SYS_RESOURCE" | "SYS_TIME" | "SYS_TTY_CONFIG" | "SYSLOG" | "WAKE_ALARM"@+kernelCapabilities+    :: KernelCapabilities+kernelCapabilities = KernelCapabilities' {_kcDrop = Nothing, _kcAdd = Nothing}+++-- | The Linux capabilities for the container that have been removed from the default configuration provided by Docker. This parameter maps to @CapDrop@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cap-drop@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid values: @"ALL" | "AUDIT_CONTROL" | "AUDIT_WRITE" | "BLOCK_SUSPEND" | "CHOWN" | "DAC_OVERRIDE" | "DAC_READ_SEARCH" | "FOWNER" | "FSETID" | "IPC_LOCK" | "IPC_OWNER" | "KILL" | "LEASE" | "LINUX_IMMUTABLE" | "MAC_ADMIN" | "MAC_OVERRIDE" | "MKNOD" | "NET_ADMIN" | "NET_BIND_SERVICE" | "NET_BROADCAST" | "NET_RAW" | "SETFCAP" | "SETGID" | "SETPCAP" | "SETUID" | "SYS_ADMIN" | "SYS_BOOT" | "SYS_CHROOT" | "SYS_MODULE" | "SYS_NICE" | "SYS_PACCT" | "SYS_PTRACE" | "SYS_RAWIO" | "SYS_RESOURCE" | "SYS_TIME" | "SYS_TTY_CONFIG" | "SYSLOG" | "WAKE_ALARM"@+kcDrop :: Lens' KernelCapabilities [Text]+kcDrop = lens _kcDrop (\ s a -> s{_kcDrop = a}) . _Default . _Coerce++-- | The Linux capabilities for the container that have been added to the default configuration provided by Docker. This parameter maps to @CapAdd@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--cap-add@ option to <https://docs.docker.com/engine/reference/run/ docker run> . Valid values: @"ALL" | "AUDIT_CONTROL" | "AUDIT_WRITE" | "BLOCK_SUSPEND" | "CHOWN" | "DAC_OVERRIDE" | "DAC_READ_SEARCH" | "FOWNER" | "FSETID" | "IPC_LOCK" | "IPC_OWNER" | "KILL" | "LEASE" | "LINUX_IMMUTABLE" | "MAC_ADMIN" | "MAC_OVERRIDE" | "MKNOD" | "NET_ADMIN" | "NET_BIND_SERVICE" | "NET_BROADCAST" | "NET_RAW" | "SETFCAP" | "SETGID" | "SETPCAP" | "SETUID" | "SYS_ADMIN" | "SYS_BOOT" | "SYS_CHROOT" | "SYS_MODULE" | "SYS_NICE" | "SYS_PACCT" | "SYS_PTRACE" | "SYS_RAWIO" | "SYS_RESOURCE" | "SYS_TIME" | "SYS_TTY_CONFIG" | "SYSLOG" | "WAKE_ALARM"@+kcAdd :: Lens' KernelCapabilities [Text]+kcAdd = lens _kcAdd (\ s a -> s{_kcAdd = a}) . _Default . _Coerce++instance FromJSON KernelCapabilities where+        parseJSON+          = withObject "KernelCapabilities"+              (\ x ->+                 KernelCapabilities' <$>+                   (x .:? "drop" .!= mempty) <*>+                     (x .:? "add" .!= mempty))++instance Hashable KernelCapabilities where++instance NFData KernelCapabilities where++instance ToJSON KernelCapabilities where+        toJSON KernelCapabilities'{..}+          = object+              (catMaybes+                 [("drop" .=) <$> _kcDrop, ("add" .=) <$> _kcAdd])++-- | A key and value pair object.+--+--+--+-- /See:/ 'keyValuePair' smart constructor.+data KeyValuePair = KeyValuePair'+  { _kvpValue :: !(Maybe Text)+  , _kvpName  :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'KeyValuePair' with the minimum fields required to make a request.+--+-- 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.+--+-- * '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.+kvpValue :: Lens' KeyValuePair (Maybe Text)+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.+kvpName :: Lens' KeyValuePair (Maybe Text)+kvpName = lens _kvpName (\ s a -> s{_kvpName = a})++instance FromJSON KeyValuePair where+        parseJSON+          = withObject "KeyValuePair"+              (\ x ->+                 KeyValuePair' <$> (x .:? "value") <*> (x .:? "name"))++instance Hashable KeyValuePair where++instance NFData KeyValuePair where++instance ToJSON KeyValuePair where+        toJSON KeyValuePair'{..}+          = object+              (catMaybes+                 [("value" .=) <$> _kvpValue,+                  ("name" .=) <$> _kvpName])++-- | Linux-specific options that are applied to the container, such as Linux 'KernelCapabilities' .+--+--+--+-- /See:/ 'linuxParameters' smart constructor.+data LinuxParameters = LinuxParameters'+  { _lpSharedMemorySize   :: !(Maybe Int)+  , _lpInitProcessEnabled :: !(Maybe Bool)+  , _lpTmpfs              :: !(Maybe [Tmpfs])+  , _lpDevices            :: !(Maybe [Device])+  , _lpCapabilities       :: !(Maybe KernelCapabilities)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LinuxParameters' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lpSharedMemorySize' - The value for the size of the @/dev/shm@ volume. This parameter maps to the @--shm-size@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'lpInitProcessEnabled' - Run an @init@ process inside the container that forwards signals and reaps processes. This parameter maps to the @--init@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This parameter requires version 1.25 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+--+-- * 'lpTmpfs' - The container path, mount options, and size of the tmpfs mount. This parameter maps to the @--tmpfs@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'lpDevices' - Any host devices to expose to the container. This parameter maps to @Devices@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--device@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+--+-- * 'lpCapabilities' - The Linux capabilities for the container that are added to or dropped from the default configuration provided by Docker.+linuxParameters+    :: LinuxParameters+linuxParameters =+  LinuxParameters'+    { _lpSharedMemorySize = Nothing+    , _lpInitProcessEnabled = Nothing+    , _lpTmpfs = Nothing+    , _lpDevices = Nothing+    , _lpCapabilities = Nothing+    }+++-- | The value for the size of the @/dev/shm@ volume. This parameter maps to the @--shm-size@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+lpSharedMemorySize :: Lens' LinuxParameters (Maybe Int)+lpSharedMemorySize = lens _lpSharedMemorySize (\ s a -> s{_lpSharedMemorySize = a})++-- | Run an @init@ process inside the container that forwards signals and reaps processes. This parameter maps to the @--init@ option to <https://docs.docker.com/engine/reference/run/ docker run> . This parameter requires version 1.25 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+lpInitProcessEnabled :: Lens' LinuxParameters (Maybe Bool)+lpInitProcessEnabled = lens _lpInitProcessEnabled (\ s a -> s{_lpInitProcessEnabled = a})++-- | The container path, mount options, and size of the tmpfs mount. This parameter maps to the @--tmpfs@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+lpTmpfs :: Lens' LinuxParameters [Tmpfs]+lpTmpfs = lens _lpTmpfs (\ s a -> s{_lpTmpfs = a}) . _Default . _Coerce++-- | Any host devices to expose to the container. This parameter maps to @Devices@ in the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/#create-a-container Create a container> section of the <https://docs.docker.com/engine/reference/api/docker_remote_api_v1.27/ Docker Remote API> and the @--device@ option to <https://docs.docker.com/engine/reference/run/ docker run> .+lpDevices :: Lens' LinuxParameters [Device]+lpDevices = lens _lpDevices (\ s a -> s{_lpDevices = a}) . _Default . _Coerce++-- | The Linux capabilities for the container that are added to or dropped from the default configuration provided by Docker.+lpCapabilities :: Lens' LinuxParameters (Maybe KernelCapabilities)+lpCapabilities = lens _lpCapabilities (\ s a -> s{_lpCapabilities = a})++instance FromJSON LinuxParameters where+        parseJSON+          = withObject "LinuxParameters"+              (\ x ->+                 LinuxParameters' <$>+                   (x .:? "sharedMemorySize") <*>+                     (x .:? "initProcessEnabled")+                     <*> (x .:? "tmpfs" .!= mempty)+                     <*> (x .:? "devices" .!= mempty)+                     <*> (x .:? "capabilities"))++instance Hashable LinuxParameters where++instance NFData LinuxParameters where++instance ToJSON LinuxParameters where+        toJSON LinuxParameters'{..}+          = object+              (catMaybes+                 [("sharedMemorySize" .=) <$> _lpSharedMemorySize,+                  ("initProcessEnabled" .=) <$> _lpInitProcessEnabled,+                  ("tmpfs" .=) <$> _lpTmpfs,+                  ("devices" .=) <$> _lpDevices,+                  ("capabilities" .=) <$> _lpCapabilities])++-- | Details on a load balancer that is used with a service.+--+--+--+-- /See:/ 'loadBalancer' smart constructor.+data LoadBalancer = LoadBalancer'+  { _lbLoadBalancerName :: !(Maybe Text)+  , _lbContainerName    :: !(Maybe Text)+  , _lbTargetGroupARN   :: !(Maybe Text)+  , _lbContainerPort    :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LoadBalancer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lbLoadBalancerName' - The name of a load balancer.+--+-- * 'lbContainerName' - The name of the container (as it appears in a container definition) to associate with the load balancer.+--+-- * 'lbTargetGroupARN' - The full Amazon Resource Name (ARN) of the Elastic Load Balancing target group associated with a service.+--+-- * 'lbContainerPort' - The port on the container to associate with the load balancer. This port must correspond to a @containerPort@ in the service's task definition. Your container instances must allow ingress traffic on the @hostPort@ of the port mapping.+loadBalancer+    :: LoadBalancer+loadBalancer =+  LoadBalancer'+    { _lbLoadBalancerName = Nothing+    , _lbContainerName = Nothing+    , _lbTargetGroupARN = Nothing+    , _lbContainerPort = Nothing+    }+++-- | The name of a load balancer.+lbLoadBalancerName :: Lens' LoadBalancer (Maybe Text)+lbLoadBalancerName = lens _lbLoadBalancerName (\ s a -> s{_lbLoadBalancerName = a})++-- | The name of the container (as it appears in a container definition) to associate with the load balancer.+lbContainerName :: Lens' LoadBalancer (Maybe Text)+lbContainerName = lens _lbContainerName (\ s a -> s{_lbContainerName = a})++-- | The full Amazon Resource Name (ARN) of the Elastic Load Balancing target group associated with a service.+lbTargetGroupARN :: Lens' LoadBalancer (Maybe Text)+lbTargetGroupARN = lens _lbTargetGroupARN (\ s a -> s{_lbTargetGroupARN = a})++-- | The port on the container to associate with the load balancer. This port must correspond to a @containerPort@ in the service's task definition. Your container instances must allow ingress traffic on the @hostPort@ of the port mapping.+lbContainerPort :: Lens' LoadBalancer (Maybe Int)+lbContainerPort = lens _lbContainerPort (\ s a -> s{_lbContainerPort = a})++instance FromJSON LoadBalancer where+        parseJSON+          = withObject "LoadBalancer"+              (\ x ->+                 LoadBalancer' <$>+                   (x .:? "loadBalancerName") <*>+                     (x .:? "containerName")+                     <*> (x .:? "targetGroupArn")+                     <*> (x .:? "containerPort"))++instance Hashable LoadBalancer where++instance NFData LoadBalancer where++instance ToJSON LoadBalancer where+        toJSON LoadBalancer'{..}+          = object+              (catMaybes+                 [("loadBalancerName" .=) <$> _lbLoadBalancerName,+                  ("containerName" .=) <$> _lbContainerName,+                  ("targetGroupArn" .=) <$> _lbTargetGroupARN,+                  ("containerPort" .=) <$> _lbContainerPort])++-- | Log configuration options to send to a custom log driver for the container.+--+--+--+-- /See:/ 'logConfiguration' smart constructor.+data LogConfiguration = LogConfiguration'+  { _lcOptions   :: !(Maybe (Map Text Text))+  , _lcLogDriver :: !LogDriver+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LogConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lcOptions' - The configuration options to send to the log driver. This parameter requires version 1.19 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+--+-- * 'lcLogDriver' - The log driver to use for the container. The valid values listed for this parameter are log drivers that the Amazon ECS container agent can communicate with by default. If using the Fargate launch type, the only supported value is @awslogs@ . For more information about using the @awslogs@ driver, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/using_awslogs.html Using the awslogs Log Driver> in the /Amazon Elastic Container Service Developer Guide/ . This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+logConfiguration+    :: LogDriver -- ^ 'lcLogDriver'+    -> LogConfiguration+logConfiguration pLogDriver_ =+  LogConfiguration' {_lcOptions = Nothing, _lcLogDriver = pLogDriver_}+++-- | The configuration options to send to the log driver. This parameter requires version 1.19 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+lcOptions :: Lens' LogConfiguration (HashMap Text Text)+lcOptions = lens _lcOptions (\ s a -> s{_lcOptions = a}) . _Default . _Map++-- | The log driver to use for the container. The valid values listed for this parameter are log drivers that the Amazon ECS container agent can communicate with by default. If using the Fargate launch type, the only supported value is @awslogs@ . For more information about using the @awslogs@ driver, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/using_awslogs.html Using the awslogs Log Driver> in the /Amazon Elastic Container Service Developer Guide/ . This parameter requires version 1.18 of the Docker Remote API or greater on your container instance. To check the Docker Remote API version on your container instance, log in to your container instance and run the following command: @sudo docker version | grep "Server API version"@+lcLogDriver :: Lens' LogConfiguration LogDriver+lcLogDriver = lens _lcLogDriver (\ s a -> s{_lcLogDriver = a})++instance FromJSON LogConfiguration where+        parseJSON+          = withObject "LogConfiguration"+              (\ x ->+                 LogConfiguration' <$>+                   (x .:? "options" .!= mempty) <*> (x .: "logDriver"))++instance Hashable LogConfiguration where++instance NFData LogConfiguration where++instance ToJSON LogConfiguration where+        toJSON LogConfiguration'{..}+          = object+              (catMaybes+                 [("options" .=) <$> _lcOptions,+                  Just ("logDriver" .= _lcLogDriver)])++-- | Details on a volume mount point that is used in a container definition.+--+--+--+-- /See:/ 'mountPoint' smart constructor.+data MountPoint = MountPoint'+  { _mpContainerPath :: !(Maybe Text)+  , _mpSourceVolume  :: !(Maybe Text)+  , _mpReadOnly      :: !(Maybe Bool)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'MountPoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mpContainerPath' - The path on the container to mount the host volume at.+--+-- * 'mpSourceVolume' - The name of the volume to mount.+--+-- * 'mpReadOnly' - If this value is @true@ , the container has read-only access to the volume. If this value is @false@ , then the container can write to the volume. The default value is @false@ .+mountPoint+    :: MountPoint+mountPoint =+  MountPoint'+    { _mpContainerPath = Nothing+    , _mpSourceVolume = Nothing+    , _mpReadOnly = Nothing+    }+++-- | The path on the container to mount the host volume at.+mpContainerPath :: Lens' MountPoint (Maybe Text)+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})++-- | If this value is @true@ , the container has read-only access to the volume. If this value is @false@ , then 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})++instance FromJSON MountPoint where+        parseJSON+          = withObject "MountPoint"+              (\ x ->+                 MountPoint' <$>+                   (x .:? "containerPath") <*> (x .:? "sourceVolume")+                     <*> (x .:? "readOnly"))++instance Hashable MountPoint where++instance NFData MountPoint where++instance ToJSON MountPoint where+        toJSON MountPoint'{..}+          = object+              (catMaybes+                 [("containerPath" .=) <$> _mpContainerPath,+                  ("sourceVolume" .=) <$> _mpSourceVolume,+                  ("readOnly" .=) <$> _mpReadOnly])++-- | Details on the network bindings between a container and its host container instance. After a task reaches the @RUNNING@ status, manual and automatic host and container port assignments are visible in the @networkBindings@ section of 'DescribeTasks' API responses.+--+--+--+-- /See:/ 'networkBinding' smart constructor.+data NetworkBinding = NetworkBinding'+  { _nbBindIP        :: !(Maybe Text)+  , _nbProtocol      :: !(Maybe TransportProtocol)+  , _nbHostPort      :: !(Maybe Int)+  , _nbContainerPort :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NetworkBinding' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'nbBindIP' - The IP address that the container is bound to on the container instance.+--+-- * 'nbProtocol' - The protocol used for the network binding.+--+-- * 'nbHostPort' - The port number on the host that is used with the network binding.+--+-- * 'nbContainerPort' - The port number on the container that is used with the network binding.+networkBinding+    :: NetworkBinding+networkBinding =+  NetworkBinding'+    { _nbBindIP = Nothing+    , _nbProtocol = Nothing+    , _nbHostPort = Nothing+    , _nbContainerPort = Nothing+    }+++-- | The IP address that the container is bound to on the container instance.+nbBindIP :: Lens' NetworkBinding (Maybe Text)+nbBindIP = lens _nbBindIP (\ s a -> s{_nbBindIP = a})++-- | The protocol used for the network binding.+nbProtocol :: Lens' NetworkBinding (Maybe TransportProtocol)+nbProtocol = lens _nbProtocol (\ s a -> s{_nbProtocol = a})++-- | The port number on the host that is used with the network binding.+nbHostPort :: Lens' NetworkBinding (Maybe Int)+nbHostPort = lens _nbHostPort (\ s a -> s{_nbHostPort = a})++-- | The port number on the container that is used with the network binding.+nbContainerPort :: Lens' NetworkBinding (Maybe Int)+nbContainerPort = lens _nbContainerPort (\ s a -> s{_nbContainerPort = a})++instance FromJSON NetworkBinding where+        parseJSON+          = withObject "NetworkBinding"+              (\ x ->+                 NetworkBinding' <$>+                   (x .:? "bindIP") <*> (x .:? "protocol") <*>+                     (x .:? "hostPort")+                     <*> (x .:? "containerPort"))++instance Hashable NetworkBinding where++instance NFData NetworkBinding where++instance ToJSON NetworkBinding where+        toJSON NetworkBinding'{..}+          = object+              (catMaybes+                 [("bindIP" .=) <$> _nbBindIP,+                  ("protocol" .=) <$> _nbProtocol,+                  ("hostPort" .=) <$> _nbHostPort,+                  ("containerPort" .=) <$> _nbContainerPort])++-- | An object representing the network configuration for a task or service.+--+--+--+-- /See:/ 'networkConfiguration' smart constructor.+newtype NetworkConfiguration = NetworkConfiguration'+  { _ncAwsvpcConfiguration :: Maybe AWSVPCConfiguration+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NetworkConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ncAwsvpcConfiguration' - The VPC subnets and security groups associated with a task.+networkConfiguration+    :: NetworkConfiguration+networkConfiguration = NetworkConfiguration' {_ncAwsvpcConfiguration = Nothing}+++-- | The VPC subnets and security groups associated with a task.+ncAwsvpcConfiguration :: Lens' NetworkConfiguration (Maybe AWSVPCConfiguration)+ncAwsvpcConfiguration = lens _ncAwsvpcConfiguration (\ s a -> s{_ncAwsvpcConfiguration = a})++instance FromJSON NetworkConfiguration where+        parseJSON+          = withObject "NetworkConfiguration"+              (\ x ->+                 NetworkConfiguration' <$>+                   (x .:? "awsvpcConfiguration"))++instance Hashable NetworkConfiguration where++instance NFData NetworkConfiguration where++instance ToJSON NetworkConfiguration where+        toJSON NetworkConfiguration'{..}+          = object+              (catMaybes+                 [("awsvpcConfiguration" .=) <$>+                    _ncAwsvpcConfiguration])++-- | An object representing the Elastic Network Interface for tasks that use the @awsvpc@ network mode.+--+--+--+-- /See:/ 'networkInterface' smart constructor.+data NetworkInterface = NetworkInterface'+  { _niIpv6Address        :: !(Maybe Text)+  , _niPrivateIPv4Address :: !(Maybe Text)+  , _niAttachmentId       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NetworkInterface' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'niIpv6Address' - The private IPv6 address for the network interface.+--+-- * 'niPrivateIPv4Address' - The private IPv4 address for the network interface.+--+-- * 'niAttachmentId' - The attachment ID for the network interface.+networkInterface+    :: NetworkInterface+networkInterface =+  NetworkInterface'+    { _niIpv6Address = Nothing+    , _niPrivateIPv4Address = Nothing+    , _niAttachmentId = Nothing+    }+++-- | The private IPv6 address for the network interface.+niIpv6Address :: Lens' NetworkInterface (Maybe Text)+niIpv6Address = lens _niIpv6Address (\ s a -> s{_niIpv6Address = a})++-- | The private IPv4 address for the network interface.+niPrivateIPv4Address :: Lens' NetworkInterface (Maybe Text)+niPrivateIPv4Address = lens _niPrivateIPv4Address (\ s a -> s{_niPrivateIPv4Address = a})++-- | The attachment ID for the network interface.+niAttachmentId :: Lens' NetworkInterface (Maybe Text)+niAttachmentId = lens _niAttachmentId (\ s a -> s{_niAttachmentId = a})++instance FromJSON NetworkInterface where+        parseJSON+          = withObject "NetworkInterface"+              (\ x ->+                 NetworkInterface' <$>+                   (x .:? "ipv6Address") <*>+                     (x .:? "privateIpv4Address")+                     <*> (x .:? "attachmentId"))++instance Hashable NetworkInterface where++instance NFData NetworkInterface where++-- | An object representing a constraint on task placement. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-constraints.html Task Placement Constraints> in the /Amazon Elastic Container Service Developer Guide/ .+--+--+--+-- /See:/ 'placementConstraint' smart constructor.+data PlacementConstraint = PlacementConstraint'+  { _pcExpression :: !(Maybe Text)+  , _pcType       :: !(Maybe PlacementConstraintType)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PlacementConstraint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pcExpression' - A cluster query language expression to apply to the constraint. Note you cannot specify an expression if the constraint type is @distinctInstance@ . For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'pcType' - The type of constraint. Use @distinctInstance@ to ensure that each task in a particular group is running on a different container instance. Use @memberOf@ to restrict the selection to a group of valid candidates. The value @distinctInstance@ is not supported in task definitions.+placementConstraint+    :: PlacementConstraint+placementConstraint =+  PlacementConstraint' {_pcExpression = Nothing, _pcType = Nothing}+++-- | A cluster query language expression to apply to the constraint. Note you cannot specify an expression if the constraint type is @distinctInstance@ . For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon Elastic Container Service Developer Guide/ .+pcExpression :: Lens' PlacementConstraint (Maybe Text)+pcExpression = lens _pcExpression (\ s a -> s{_pcExpression = a})++-- | The type of constraint. Use @distinctInstance@ to ensure that each task in a particular group is running on a different container instance. Use @memberOf@ to restrict the selection to a group of valid candidates. The value @distinctInstance@ is not supported in task definitions.+pcType :: Lens' PlacementConstraint (Maybe PlacementConstraintType)+pcType = lens _pcType (\ s a -> s{_pcType = a})++instance FromJSON PlacementConstraint where+        parseJSON+          = withObject "PlacementConstraint"+              (\ x ->+                 PlacementConstraint' <$>+                   (x .:? "expression") <*> (x .:? "type"))++instance Hashable PlacementConstraint where++instance NFData PlacementConstraint where++instance ToJSON PlacementConstraint where+        toJSON PlacementConstraint'{..}+          = object+              (catMaybes+                 [("expression" .=) <$> _pcExpression,+                  ("type" .=) <$> _pcType])++-- | The task placement strategy for a task or service. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-strategies.html Task Placement Strategies> in the /Amazon Elastic Container Service Developer Guide/ .+--+--+--+-- /See:/ 'placementStrategy' smart constructor.+data PlacementStrategy = PlacementStrategy'+  { _psField :: !(Maybe Text)+  , _psType  :: !(Maybe PlacementStrategyType)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PlacementStrategy' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'psField' - The field to apply the placement strategy against. For the @spread@ placement strategy, valid values are @instanceId@ (or @host@ , which has the same effect), or any platform or custom attribute that is applied to a container instance, such as @attribute:ecs.availability-zone@ . For the @binpack@ placement strategy, valid values are @cpu@ and @memory@ . For the @random@ placement strategy, this field is not used.+--+-- * 'psType' - The type of placement strategy. The @random@ placement strategy randomly places tasks on available candidates. The @spread@ placement strategy spreads placement across available candidates evenly based on the @field@ parameter. The @binpack@ strategy places tasks on available candidates that have the least available amount of the resource that is specified with the @field@ parameter. For example, if you binpack on memory, a task is placed on the instance with the least amount of remaining memory (but still enough to run the task).+placementStrategy+    :: PlacementStrategy+placementStrategy = PlacementStrategy' {_psField = Nothing, _psType = Nothing}+++-- | The field to apply the placement strategy against. For the @spread@ placement strategy, valid values are @instanceId@ (or @host@ , which has the same effect), or any platform or custom attribute that is applied to a container instance, such as @attribute:ecs.availability-zone@ . For the @binpack@ placement strategy, valid values are @cpu@ and @memory@ . For the @random@ placement strategy, this field is not used.+psField :: Lens' PlacementStrategy (Maybe Text)+psField = lens _psField (\ s a -> s{_psField = a})++-- | The type of placement strategy. The @random@ placement strategy randomly places tasks on available candidates. The @spread@ placement strategy spreads placement across available candidates evenly based on the @field@ parameter. The @binpack@ strategy places tasks on available candidates that have the least available amount of the resource that is specified with the @field@ parameter. For example, if you binpack on memory, a task is placed on the instance with the least amount of remaining memory (but still enough to run the task).+psType :: Lens' PlacementStrategy (Maybe PlacementStrategyType)+psType = lens _psType (\ s a -> s{_psType = a})++instance FromJSON PlacementStrategy where+        parseJSON+          = withObject "PlacementStrategy"+              (\ x ->+                 PlacementStrategy' <$>+                   (x .:? "field") <*> (x .:? "type"))++instance Hashable PlacementStrategy where++instance NFData PlacementStrategy where++instance ToJSON PlacementStrategy where+        toJSON PlacementStrategy'{..}+          = object+              (catMaybes+                 [("field" .=) <$> _psField, ("type" .=) <$> _psType])++-- | Port mappings allow containers to access ports on the host container instance to send or receive traffic. Port mappings are specified as part of the container definition.+--+--+-- If using containers in a task with the @awsvpc@ or @host@ network mode, exposed ports should be specified using @containerPort@ . The @hostPort@ can be left blank or it must be the same value as the @containerPort@ .+--+-- After a task reaches the @RUNNING@ status, manual and automatic host and container port assignments are visible in the @networkBindings@ section of 'DescribeTasks' API responses.+--+--+-- /See:/ 'portMapping' smart constructor.+data PortMapping = PortMapping'+  { _pmProtocol      :: !(Maybe TransportProtocol)+  , _pmHostPort      :: !(Maybe Int)+  , _pmContainerPort :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PortMapping' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pmProtocol' - The protocol used for the port mapping. Valid values are @tcp@ and @udp@ . The default is @tcp@ .+--+-- * 'pmHostPort' - The port number on the container instance to reserve for your container. If using containers in a task with the @awsvpc@ or @host@ network mode, the @hostPort@ can either be left blank or set to the same value as the @containerPort@ . If using containers in a task with the @bridge@ network mode, you can specify a non-reserved host port for your container port mapping, or you can omit the @hostPort@ (or set it to @0@ ) while specifying a @containerPort@ and your container automatically receives a port in the ephemeral port range for your container instance operating system and Docker version. The default ephemeral port range for Docker version 1.6.0 and later is listed on the instance under @/proc/sys/net/ipv4/ip_local_port_range@ ; if this kernel parameter is unavailable, the default ephemeral port range from 49153 through 65535 is used. You should not attempt to specify a host port in the ephemeral port range as these are reserved for automatic assignment. In general, ports below 32768 are outside of the ephemeral port range. The default reserved ports are 22 for SSH, the Docker ports 2375 and 2376, and the Amazon ECS container agent ports 51678 and 51679. Any host port that was previously specified in a running task is also reserved while the task is running (after a task stops, the host port is released). The current reserved ports are displayed in the @remainingResources@ of 'DescribeContainerInstances' output, and a container instance may have up to 100 reserved ports at a time, including the default reserved ports (automatically assigned ports do not count toward the 100 reserved ports limit).+--+-- * 'pmContainerPort' - The port number on the container that is bound to the user-specified or automatically assigned host port. If using containers in a task with the @awsvpc@ or @host@ network mode, exposed ports should be specified using @containerPort@ . If using containers in a task with the @bridge@ network mode and you specify a container port and not a host port, your container automatically receives a host port in the ephemeral port range (for more information, see @hostPort@ ). Port mappings that are automatically assigned in this way do not count toward the 100 reserved ports limit of a container instance.+portMapping+    :: PortMapping+portMapping =+  PortMapping'+    {_pmProtocol = Nothing, _pmHostPort = Nothing, _pmContainerPort = Nothing}+++-- | The protocol used for the port mapping. Valid values are @tcp@ and @udp@ . The default is @tcp@ .+pmProtocol :: Lens' PortMapping (Maybe TransportProtocol)+pmProtocol = lens _pmProtocol (\ s a -> s{_pmProtocol = a})++-- | The port number on the container instance to reserve for your container. If using containers in a task with the @awsvpc@ or @host@ network mode, the @hostPort@ can either be left blank or set to the same value as the @containerPort@ . If using containers in a task with the @bridge@ network mode, you can specify a non-reserved host port for your container port mapping, or you can omit the @hostPort@ (or set it to @0@ ) while specifying a @containerPort@ and your container automatically receives a port in the ephemeral port range for your container instance operating system and Docker version. The default ephemeral port range for Docker version 1.6.0 and later is listed on the instance under @/proc/sys/net/ipv4/ip_local_port_range@ ; if this kernel parameter is unavailable, the default ephemeral port range from 49153 through 65535 is used. You should not attempt to specify a host port in the ephemeral port range as these are reserved for automatic assignment. In general, ports below 32768 are outside of the ephemeral port range. The default reserved ports are 22 for SSH, the Docker ports 2375 and 2376, and the Amazon ECS container agent ports 51678 and 51679. Any host port that was previously specified in a running task is also reserved while the task is running (after a task stops, the host port is released). The current reserved ports are displayed in the @remainingResources@ of 'DescribeContainerInstances' output, and a container instance may have up to 100 reserved ports at a time, including the default reserved ports (automatically assigned ports do not count toward the 100 reserved ports limit).+pmHostPort :: Lens' PortMapping (Maybe Int)+pmHostPort = lens _pmHostPort (\ s a -> s{_pmHostPort = a})++-- | The port number on the container that is bound to the user-specified or automatically assigned host port. If using containers in a task with the @awsvpc@ or @host@ network mode, exposed ports should be specified using @containerPort@ . If using containers in a task with the @bridge@ network mode and you specify a container port and not a host port, your container automatically receives a host port in the ephemeral port range (for more information, see @hostPort@ ). Port mappings that are automatically assigned in this way do not count toward the 100 reserved ports limit of a container instance.+pmContainerPort :: Lens' PortMapping (Maybe Int)+pmContainerPort = lens _pmContainerPort (\ s a -> s{_pmContainerPort = a})++instance FromJSON PortMapping where+        parseJSON+          = withObject "PortMapping"+              (\ x ->+                 PortMapping' <$>+                   (x .:? "protocol") <*> (x .:? "hostPort") <*>+                     (x .:? "containerPort"))++instance Hashable PortMapping where++instance NFData PortMapping where++instance ToJSON PortMapping where+        toJSON PortMapping'{..}+          = object+              (catMaybes+                 [("protocol" .=) <$> _pmProtocol,+                  ("hostPort" .=) <$> _pmHostPort,+                  ("containerPort" .=) <$> _pmContainerPort])++-- | Describes the resources available for a container instance.+--+--+--+-- /See:/ 'resource' smart constructor.+data Resource = Resource'+  { _rStringSetValue :: !(Maybe [Text])+  , _rIntegerValue   :: !(Maybe Int)+  , _rDoubleValue    :: !(Maybe Double)+  , _rLongValue      :: !(Maybe Integer)+  , _rName           :: !(Maybe Text)+  , _rType           :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Resource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rStringSetValue' - When the @stringSetValue@ type is set, the value of the resource must be a string type.+--+-- * 'rIntegerValue' - When the @integerValue@ type is set, the value of the resource must be an integer.+--+-- * 'rDoubleValue' - When the @doubleValue@ type is set, the value of the resource must be a double precision floating-point type.+--+-- * 'rLongValue' - When the @longValue@ type is set, the value of the resource must be an extended precision floating-point type.+--+-- * 'rName' - The name of the resource, such as @cpu@ , @memory@ , @ports@ , or a user-defined resource.+--+-- * 'rType' - The type of the resource, such as @INTEGER@ , @DOUBLE@ , @LONG@ , or @STRINGSET@ .+resource+    :: Resource+resource =+  Resource'+    { _rStringSetValue = Nothing+    , _rIntegerValue = Nothing+    , _rDoubleValue = Nothing+    , _rLongValue = Nothing+    , _rName = Nothing+    , _rType = Nothing+    }+++-- | When the @stringSetValue@ type is set, the value of the resource must be a string type.+rStringSetValue :: Lens' Resource [Text]+rStringSetValue = lens _rStringSetValue (\ s a -> s{_rStringSetValue = a}) . _Default . _Coerce++-- | When the @integerValue@ type is set, the value of the resource must be an integer.+rIntegerValue :: Lens' Resource (Maybe Int)+rIntegerValue = lens _rIntegerValue (\ s a -> s{_rIntegerValue = a})++-- | When the @doubleValue@ type is set, the value of the resource must be a double precision floating-point type.+rDoubleValue :: Lens' Resource (Maybe Double)+rDoubleValue = lens _rDoubleValue (\ s a -> s{_rDoubleValue = a})++-- | When the @longValue@ type is set, the value of the resource must be an extended precision floating-point type.+rLongValue :: Lens' Resource (Maybe Integer)+rLongValue = lens _rLongValue (\ s a -> s{_rLongValue = a})++-- | The name of the resource, such as @cpu@ , @memory@ , @ports@ , or a user-defined resource.+rName :: Lens' Resource (Maybe Text)+rName = lens _rName (\ s a -> s{_rName = a})++-- | The type of the resource, such as @INTEGER@ , @DOUBLE@ , @LONG@ , or @STRINGSET@ .+rType :: Lens' Resource (Maybe Text)+rType = lens _rType (\ s a -> s{_rType = a})++instance FromJSON Resource where+        parseJSON+          = withObject "Resource"+              (\ x ->+                 Resource' <$>+                   (x .:? "stringSetValue" .!= mempty) <*>+                     (x .:? "integerValue")+                     <*> (x .:? "doubleValue")+                     <*> (x .:? "longValue")+                     <*> (x .:? "name")+                     <*> (x .:? "type"))++instance Hashable Resource where++instance NFData Resource where++instance ToJSON Resource where+        toJSON Resource'{..}+          = object+              (catMaybes+                 [("stringSetValue" .=) <$> _rStringSetValue,+                  ("integerValue" .=) <$> _rIntegerValue,+                  ("doubleValue" .=) <$> _rDoubleValue,+                  ("longValue" .=) <$> _rLongValue,+                  ("name" .=) <$> _rName, ("type" .=) <$> _rType])++-- | Details on an event associated with a service.+--+--+--+-- /See:/ 'serviceEvent' smart constructor.+data ServiceEvent = ServiceEvent'+  { _seCreatedAt :: !(Maybe POSIX)+  , _seId        :: !(Maybe Text)+  , _seMessage   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ServiceEvent' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'seCreatedAt' - The Unix time stamp for when the event was triggered.+--+-- * 'seId' - The ID string of the event.+--+-- * 'seMessage' - The event message.+serviceEvent+    :: ServiceEvent+serviceEvent =+  ServiceEvent' {_seCreatedAt = Nothing, _seId = Nothing, _seMessage = Nothing}+++-- | The Unix time stamp for when the event was triggered.+seCreatedAt :: Lens' ServiceEvent (Maybe UTCTime)+seCreatedAt = lens _seCreatedAt (\ s a -> s{_seCreatedAt = a}) . mapping _Time++-- | The ID string of the event.+seId :: Lens' ServiceEvent (Maybe Text)+seId = lens _seId (\ s a -> s{_seId = a})++-- | The event message.+seMessage :: Lens' ServiceEvent (Maybe Text)+seMessage = lens _seMessage (\ s a -> s{_seMessage = a})++instance FromJSON ServiceEvent where+        parseJSON+          = withObject "ServiceEvent"+              (\ x ->+                 ServiceEvent' <$>+                   (x .:? "createdAt") <*> (x .:? "id") <*>+                     (x .:? "message"))++instance Hashable ServiceEvent where++instance NFData ServiceEvent where++-- | Details of the service registry.+--+--+--+-- /See:/ 'serviceRegistry' smart constructor.+data ServiceRegistry = ServiceRegistry'+  { _srRegistryARN :: !(Maybe Text)+  , _srPort        :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ServiceRegistry' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srRegistryARN' - The Amazon Resource Name (ARN) of the Service Registry. The currently supported service registry is Amazon Route 53 Auto Naming Service. For more information, see <https://docs.aws.amazon.com/Route53/latest/APIReference/API_autonaming_Service.html Service> .+--+-- * 'srPort' - The port value used if your Service Discovery service specified an SRV record.+serviceRegistry+    :: ServiceRegistry+serviceRegistry = ServiceRegistry' {_srRegistryARN = Nothing, _srPort = Nothing}+++-- | The Amazon Resource Name (ARN) of the Service Registry. The currently supported service registry is Amazon Route 53 Auto Naming Service. For more information, see <https://docs.aws.amazon.com/Route53/latest/APIReference/API_autonaming_Service.html Service> .+srRegistryARN :: Lens' ServiceRegistry (Maybe Text)+srRegistryARN = lens _srRegistryARN (\ s a -> s{_srRegistryARN = a})++-- | The port value used if your Service Discovery service specified an SRV record.+srPort :: Lens' ServiceRegistry (Maybe Int)+srPort = lens _srPort (\ s a -> s{_srPort = a})++instance FromJSON ServiceRegistry where+        parseJSON+          = withObject "ServiceRegistry"+              (\ x ->+                 ServiceRegistry' <$>+                   (x .:? "registryArn") <*> (x .:? "port"))++instance Hashable ServiceRegistry where++instance NFData ServiceRegistry where++instance ToJSON ServiceRegistry where+        toJSON ServiceRegistry'{..}+          = object+              (catMaybes+                 [("registryArn" .=) <$> _srRegistryARN,+                  ("port" .=) <$> _srPort])++-- | Details on a task in a cluster.+--+--+--+-- /See:/ 'task' smart constructor.+data Task = Task'+  { _tStoppedAt            :: !(Maybe POSIX)+  , _tDesiredStatus        :: !(Maybe Text)+  , _tOverrides            :: !(Maybe TaskOverride)+  , _tClusterARN           :: !(Maybe Text)+  , _tGroup                :: !(Maybe Text)+  , _tAttachments          :: !(Maybe [Attachment])+  , _tCreatedAt            :: !(Maybe POSIX)+  , _tPlatformVersion      :: !(Maybe Text)+  , _tTaskARN              :: !(Maybe Text)+  , _tContainerInstanceARN :: !(Maybe Text)+  , _tExecutionStoppedAt   :: !(Maybe POSIX)+  , _tLastStatus           :: !(Maybe Text)+  , _tMemory               :: !(Maybe Text)+  , _tPullStoppedAt        :: !(Maybe POSIX)+  , _tContainers           :: !(Maybe [Container])+  , _tStartedAt            :: !(Maybe POSIX)+  , _tVersion              :: !(Maybe Integer)+  , _tStartedBy            :: !(Maybe Text)+  , _tStoppedReason        :: !(Maybe Text)+  , _tConnectivity         :: !(Maybe Connectivity)+  , _tStoppingAt           :: !(Maybe POSIX)+  , _tLaunchType           :: !(Maybe LaunchType)+  , _tTaskDefinitionARN    :: !(Maybe Text)+  , _tHealthStatus         :: !(Maybe HealthStatus)+  , _tConnectivityAt       :: !(Maybe POSIX)+  , _tCpu                  :: !(Maybe Text)+  , _tPullStartedAt        :: !(Maybe POSIX)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Task' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tStoppedAt' - The Unix time stamp for when the task was stopped (the task transitioned from the @RUNNING@ state to the @STOPPED@ state).+--+-- * 'tDesiredStatus' - The desired status of the task.+--+-- * 'tOverrides' - One or more container overrides.+--+-- * 'tClusterARN' - The ARN of the cluster that hosts the task.+--+-- * 'tGroup' - The name of the task group associated with the task.+--+-- * 'tAttachments' - The Elastic Network Adapter associated with the task if the task uses the @awsvpc@ network mode.+--+-- * 'tCreatedAt' - The Unix time stamp for when the task was created (the task entered the @PENDING@ state).+--+-- * 'tPlatformVersion' - The platform version on which your task is running. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/platform_versions.html AWS Fargate Platform Versions> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'tTaskARN' - The Amazon Resource Name (ARN) of the task.+--+-- * 'tContainerInstanceARN' - The ARN of the container instances that host the task.+--+-- * 'tExecutionStoppedAt' - The Unix time stamp for when the task execution stopped.+--+-- * 'tLastStatus' - The last known status of the task.+--+-- * 'tMemory' - The amount of memory (in MiB) used by the task. It can be expressed as an integer using MiB, for example @1024@ , or as a string using GB, for example @1GB@ or @1 GB@ , in a task definition but is converted to an integer indicating the MiB when the task definition is registered. If using the EC2 launch type, this field is optional. If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of supported values for the @cpu@ parameter:     * 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB) - Available @cpu@ values: 256 (.25 vCPU)     * 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB) - Available @cpu@ values: 512 (.5 vCPU)     * 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB) - Available @cpu@ values: 1024 (1 vCPU)     * Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 2048 (2 vCPU)     * Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 4096 (4 vCPU)+--+-- * 'tPullStoppedAt' - The Unix time stamp for when the container image pull completed.+--+-- * 'tContainers' - The containers associated with the task.+--+-- * 'tStartedAt' - The Unix time stamp for when the task started (the task transitioned from the @PENDING@ state to the @RUNNING@ state).+--+-- * 'tVersion' - The version counter for the task. Every time a task experiences a change that triggers a CloudWatch event, the version counter is incremented. If you are replicating your Amazon ECS task state with CloudWatch Events, you can compare the version of a task reported by the Amazon ECS APIs with the version reported in CloudWatch Events for the task (inside the @detail@ object) to verify that the version in your event stream is current.+--+-- * 'tStartedBy' - The tag specified when a task is started. If the task is started by an Amazon ECS service, then the @startedBy@ parameter contains the deployment ID of the service that starts it.+--+-- * 'tStoppedReason' - The reason the task was stopped.+--+-- * 'tConnectivity' - The connectivity status of a task.+--+-- * 'tStoppingAt' - The Unix time stamp for when the task will stop (transitions from the @RUNNING@ state to @STOPPED@ ).+--+-- * 'tLaunchType' - The launch type on which your task is running.+--+-- * 'tTaskDefinitionARN' - The ARN of the task definition that creates the task.+--+-- * 'tHealthStatus' - The health status for the task, which is determined by the health of the essential containers in the task. If all essential containers in the task are reporting as @HEALTHY@ , then the task status also reports as @HEALTHY@ . If any essential containers in the task are reporting as @UNHEALTHY@ or @UNKNOWN@ , then the task status also reports as @UNHEALTHY@ or @UNKNOWN@ , accordingly.+--+-- * 'tConnectivityAt' - The Unix time stamp for when the task last went into @CONNECTED@ status.+--+-- * 'tCpu' - The number of CPU units used by the task. It can be expressed as an integer using CPU units, for example @1024@ , or as a string using vCPUs, for example @1 vCPU@ or @1 vcpu@ , in a task definition but is converted to an integer indicating the CPU units when the task definition is registered. If using the EC2 launch type, this field is optional. Supported values are between @128@ CPU units (@0.125@ vCPUs) and @10240@ CPU units (@10@ vCPUs). If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of supported values for the @memory@ parameter:     * 256 (.25 vCPU) - Available @memory@ values: 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB)     * 512 (.5 vCPU) - Available @memory@ values: 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB)     * 1024 (1 vCPU) - Available @memory@ values: 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB)     * 2048 (2 vCPU) - Available @memory@ values: Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB)     * 4096 (4 vCPU) - Available @memory@ values: Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB)+--+-- * 'tPullStartedAt' - The Unix time stamp for when the container image pull began.+task+    :: Task+task =+  Task'+    { _tStoppedAt = Nothing+    , _tDesiredStatus = Nothing+    , _tOverrides = Nothing+    , _tClusterARN = Nothing+    , _tGroup = Nothing+    , _tAttachments = Nothing+    , _tCreatedAt = Nothing+    , _tPlatformVersion = Nothing+    , _tTaskARN = Nothing+    , _tContainerInstanceARN = Nothing+    , _tExecutionStoppedAt = Nothing+    , _tLastStatus = Nothing+    , _tMemory = Nothing+    , _tPullStoppedAt = Nothing+    , _tContainers = Nothing+    , _tStartedAt = Nothing+    , _tVersion = Nothing+    , _tStartedBy = Nothing+    , _tStoppedReason = Nothing+    , _tConnectivity = Nothing+    , _tStoppingAt = Nothing+    , _tLaunchType = Nothing+    , _tTaskDefinitionARN = Nothing+    , _tHealthStatus = Nothing+    , _tConnectivityAt = Nothing+    , _tCpu = Nothing+    , _tPullStartedAt = Nothing+    }+++-- | The Unix time stamp for when the task was stopped (the task transitioned from the @RUNNING@ state to the @STOPPED@ state).+tStoppedAt :: Lens' Task (Maybe UTCTime)+tStoppedAt = lens _tStoppedAt (\ s a -> s{_tStoppedAt = a}) . mapping _Time++-- | The desired status of the task.+tDesiredStatus :: Lens' Task (Maybe Text)+tDesiredStatus = lens _tDesiredStatus (\ s a -> s{_tDesiredStatus = a})++-- | One or more container overrides.+tOverrides :: Lens' Task (Maybe TaskOverride)+tOverrides = lens _tOverrides (\ s a -> s{_tOverrides = a})++-- | The ARN of the cluster that hosts the task.+tClusterARN :: Lens' Task (Maybe Text)+tClusterARN = lens _tClusterARN (\ s a -> s{_tClusterARN = a})++-- | The name of the task group associated with the task.+tGroup :: Lens' Task (Maybe Text)+tGroup = lens _tGroup (\ s a -> s{_tGroup = a})++-- | The Elastic Network Adapter associated with the task if the task uses the @awsvpc@ network mode.+tAttachments :: Lens' Task [Attachment]+tAttachments = lens _tAttachments (\ s a -> s{_tAttachments = a}) . _Default . _Coerce++-- | The Unix time stamp for when the task was created (the task entered the @PENDING@ state).+tCreatedAt :: Lens' Task (Maybe UTCTime)+tCreatedAt = lens _tCreatedAt (\ s a -> s{_tCreatedAt = a}) . mapping _Time++-- | The platform version on which your task is running. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/platform_versions.html AWS Fargate Platform Versions> in the /Amazon Elastic Container Service Developer Guide/ .+tPlatformVersion :: Lens' Task (Maybe Text)+tPlatformVersion = lens _tPlatformVersion (\ s a -> s{_tPlatformVersion = a})++-- | The Amazon Resource Name (ARN) of the task.+tTaskARN :: Lens' Task (Maybe Text)+tTaskARN = lens _tTaskARN (\ s a -> s{_tTaskARN = a})++-- | The ARN of the container instances that host the task.+tContainerInstanceARN :: Lens' Task (Maybe Text)+tContainerInstanceARN = lens _tContainerInstanceARN (\ s a -> s{_tContainerInstanceARN = a})++-- | The Unix time stamp for when the task execution stopped.+tExecutionStoppedAt :: Lens' Task (Maybe UTCTime)+tExecutionStoppedAt = lens _tExecutionStoppedAt (\ s a -> s{_tExecutionStoppedAt = a}) . mapping _Time++-- | The last known status of the task.+tLastStatus :: Lens' Task (Maybe Text)+tLastStatus = lens _tLastStatus (\ s a -> s{_tLastStatus = a})++-- | The amount of memory (in MiB) used by the task. It can be expressed as an integer using MiB, for example @1024@ , or as a string using GB, for example @1GB@ or @1 GB@ , in a task definition but is converted to an integer indicating the MiB when the task definition is registered. If using the EC2 launch type, this field is optional. If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of supported values for the @cpu@ parameter:     * 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB) - Available @cpu@ values: 256 (.25 vCPU)     * 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB) - Available @cpu@ values: 512 (.5 vCPU)     * 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB) - Available @cpu@ values: 1024 (1 vCPU)     * Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 2048 (2 vCPU)     * Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 4096 (4 vCPU)+tMemory :: Lens' Task (Maybe Text)+tMemory = lens _tMemory (\ s a -> s{_tMemory = a})++-- | The Unix time stamp for when the container image pull completed.+tPullStoppedAt :: Lens' Task (Maybe UTCTime)+tPullStoppedAt = lens _tPullStoppedAt (\ s a -> s{_tPullStoppedAt = a}) . mapping _Time++-- | The containers associated with the task.+tContainers :: Lens' Task [Container]+tContainers = lens _tContainers (\ s a -> s{_tContainers = a}) . _Default . _Coerce++-- | The Unix time stamp for when the task started (the task transitioned from the @PENDING@ state to the @RUNNING@ state).+tStartedAt :: Lens' Task (Maybe UTCTime)+tStartedAt = lens _tStartedAt (\ s a -> s{_tStartedAt = a}) . mapping _Time++-- | The version counter for the task. Every time a task experiences a change that triggers a CloudWatch event, the version counter is incremented. If you are replicating your Amazon ECS task state with CloudWatch Events, you can compare the version of a task reported by the Amazon ECS APIs with the version reported in CloudWatch Events for the task (inside the @detail@ object) to verify that the version in your event stream is current.+tVersion :: Lens' Task (Maybe Integer)+tVersion = lens _tVersion (\ s a -> s{_tVersion = a})++-- | The tag specified when a task is started. If the task is started by an Amazon ECS service, then the @startedBy@ parameter contains the deployment ID of the service that starts it.+tStartedBy :: Lens' Task (Maybe Text)+tStartedBy = lens _tStartedBy (\ s a -> s{_tStartedBy = a})++-- | The reason the task was stopped.+tStoppedReason :: Lens' Task (Maybe Text)+tStoppedReason = lens _tStoppedReason (\ s a -> s{_tStoppedReason = a})++-- | The connectivity status of a task.+tConnectivity :: Lens' Task (Maybe Connectivity)+tConnectivity = lens _tConnectivity (\ s a -> s{_tConnectivity = a})++-- | The Unix time stamp for when the task will stop (transitions from the @RUNNING@ state to @STOPPED@ ).+tStoppingAt :: Lens' Task (Maybe UTCTime)+tStoppingAt = lens _tStoppingAt (\ s a -> s{_tStoppingAt = a}) . mapping _Time++-- | The launch type on which your task is running.+tLaunchType :: Lens' Task (Maybe LaunchType)+tLaunchType = lens _tLaunchType (\ s a -> s{_tLaunchType = a})++-- | The ARN of the task definition that creates the task.+tTaskDefinitionARN :: Lens' Task (Maybe Text)+tTaskDefinitionARN = lens _tTaskDefinitionARN (\ s a -> s{_tTaskDefinitionARN = a})++-- | The health status for the task, which is determined by the health of the essential containers in the task. If all essential containers in the task are reporting as @HEALTHY@ , then the task status also reports as @HEALTHY@ . If any essential containers in the task are reporting as @UNHEALTHY@ or @UNKNOWN@ , then the task status also reports as @UNHEALTHY@ or @UNKNOWN@ , accordingly.+tHealthStatus :: Lens' Task (Maybe HealthStatus)+tHealthStatus = lens _tHealthStatus (\ s a -> s{_tHealthStatus = a})++-- | The Unix time stamp for when the task last went into @CONNECTED@ status.+tConnectivityAt :: Lens' Task (Maybe UTCTime)+tConnectivityAt = lens _tConnectivityAt (\ s a -> s{_tConnectivityAt = a}) . mapping _Time++-- | The number of CPU units used by the task. It can be expressed as an integer using CPU units, for example @1024@ , or as a string using vCPUs, for example @1 vCPU@ or @1 vcpu@ , in a task definition but is converted to an integer indicating the CPU units when the task definition is registered. If using the EC2 launch type, this field is optional. Supported values are between @128@ CPU units (@0.125@ vCPUs) and @10240@ CPU units (@10@ vCPUs). If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of supported values for the @memory@ parameter:     * 256 (.25 vCPU) - Available @memory@ values: 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB)     * 512 (.5 vCPU) - Available @memory@ values: 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB)     * 1024 (1 vCPU) - Available @memory@ values: 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB)     * 2048 (2 vCPU) - Available @memory@ values: Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB)     * 4096 (4 vCPU) - Available @memory@ values: Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB)+tCpu :: Lens' Task (Maybe Text)+tCpu = lens _tCpu (\ s a -> s{_tCpu = a})++-- | The Unix time stamp for when the container image pull began.+tPullStartedAt :: Lens' Task (Maybe UTCTime)+tPullStartedAt = lens _tPullStartedAt (\ s a -> s{_tPullStartedAt = a}) . mapping _Time++instance FromJSON Task where+        parseJSON+          = withObject "Task"+              (\ x ->+                 Task' <$>+                   (x .:? "stoppedAt") <*> (x .:? "desiredStatus") <*>+                     (x .:? "overrides")+                     <*> (x .:? "clusterArn")+                     <*> (x .:? "group")+                     <*> (x .:? "attachments" .!= mempty)+                     <*> (x .:? "createdAt")+                     <*> (x .:? "platformVersion")+                     <*> (x .:? "taskArn")+                     <*> (x .:? "containerInstanceArn")+                     <*> (x .:? "executionStoppedAt")+                     <*> (x .:? "lastStatus")+                     <*> (x .:? "memory")+                     <*> (x .:? "pullStoppedAt")+                     <*> (x .:? "containers" .!= mempty)+                     <*> (x .:? "startedAt")+                     <*> (x .:? "version")+                     <*> (x .:? "startedBy")+                     <*> (x .:? "stoppedReason")+                     <*> (x .:? "connectivity")+                     <*> (x .:? "stoppingAt")+                     <*> (x .:? "launchType")+                     <*> (x .:? "taskDefinitionArn")+                     <*> (x .:? "healthStatus")+                     <*> (x .:? "connectivityAt")+                     <*> (x .:? "cpu")+                     <*> (x .:? "pullStartedAt"))++instance Hashable Task where++instance NFData Task where++-- | Details of a task definition.+--+--+--+-- /See:/ 'taskDefinition' smart constructor.+data TaskDefinition = TaskDefinition'+  { _tdStatus                  :: !(Maybe TaskDefinitionStatus)+  , _tdExecutionRoleARN        :: !(Maybe Text)+  , _tdRequiresCompatibilities :: !(Maybe [Compatibility])+  , _tdFamily                  :: !(Maybe Text)+  , _tdContainerDefinitions    :: !(Maybe [ContainerDefinition])+  , _tdMemory                  :: !(Maybe Text)+  , _tdTaskRoleARN             :: !(Maybe Text)+  , _tdPlacementConstraints    :: !(Maybe [TaskDefinitionPlacementConstraint])+  , _tdNetworkMode             :: !(Maybe NetworkMode)+  , _tdTaskDefinitionARN       :: !(Maybe Text)+  , _tdCompatibilities         :: !(Maybe [Compatibility])+  , _tdRevision                :: !(Maybe Int)+  , _tdVolumes                 :: !(Maybe [Volume])+  , _tdCpu                     :: !(Maybe Text)+  , _tdRequiresAttributes      :: !(Maybe [Attribute])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TaskDefinition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tdStatus' - The status of the task definition.+--+-- * 'tdExecutionRoleARN' - The Amazon Resource Name (ARN) of the task execution role that the Amazon ECS container agent and the Docker daemon can assume.+--+-- * 'tdRequiresCompatibilities' - The launch type the task is using.+--+-- * 'tdFamily' - The family of your task definition, used as the definition name.+--+-- * 'tdContainerDefinitions' - A list of container definitions in JSON format that describe the different containers that make up your task. For more information about container definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Amazon ECS Task Definitions> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'tdMemory' - The amount (in MiB) of memory used by the task. If using the EC2 launch type, this field is optional and any value can be used. If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of valid values for the @cpu@ parameter:     * 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB) - Available @cpu@ values: 256 (.25 vCPU)     * 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB) - Available @cpu@ values: 512 (.5 vCPU)     * 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB) - Available @cpu@ values: 1024 (1 vCPU)     * Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 2048 (2 vCPU)     * Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 4096 (4 vCPU)+--+-- * 'tdTaskRoleARN' - The ARN of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role. IAM roles for tasks on Windows require that the @-EnableTaskIAMRole@ option is set when you launch the Amazon ECS-optimized Windows AMI. Your containers must also run some configuration code in order to take advantage of the feature. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/windows_task_IAM_roles.html Windows IAM Roles for Tasks> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'tdPlacementConstraints' - An array of placement constraint objects to use for tasks. This field is not valid if using the Fargate launch type for your task.+--+-- * 'tdNetworkMode' - The Docker networking mode to use for the containers in the task. The valid values are @none@ , @bridge@ , @awsvpc@ , and @host@ . The default Docker network mode is @bridge@ . If using the Fargate launch type, the @awsvpc@ network mode is required. If using the EC2 launch type, any network mode can be used. If the network mode is set to @none@ , you can't specify port mappings in your container definitions, and the task's containers do not have external connectivity. The @host@ and @awsvpc@ network modes offer the highest networking performance for containers because they use the EC2 network stack instead of the virtualized network stack provided by the @bridge@ mode. With the @host@ and @awsvpc@ network modes, exposed container ports are mapped directly to the corresponding host port (for the @host@ network mode) or the attached elastic network interface port (for the @awsvpc@ network mode), so you cannot take advantage of dynamic host port mappings.  If the network mode is @awsvpc@ , the task is allocated an Elastic Network Interface, and you must specify a 'NetworkConfiguration' when you create a service or run a task with the task definition. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-networking.html Task Networking> in the /Amazon Elastic Container Service Developer Guide/ . If the network mode is @host@ , you can't run multiple instantiations of the same task on a single container instance when port mappings are used. Docker for Windows uses different network modes than Docker for Linux. When you register a task definition with Windows containers, you must not specify a network mode. If you use the console to register a task definition with Windows containers, you must choose the @<default>@ network mode object.  For more information, see <https://docs.docker.com/engine/reference/run/#network-settings Network settings> in the /Docker run reference/ .+--+-- * 'tdTaskDefinitionARN' - The full Amazon Resource Name (ARN) of the task definition.+--+-- * 'tdCompatibilities' - The launch type to use with your task. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/launch_types.html Amazon ECS Launch Types> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'tdRevision' - The revision of the task in a particular family. The revision is a version number of a task definition in a family. When you register a task definition for the first time, the revision is @1@ ; each time you register a new revision of a task definition in the same family, the revision value always increases by one (even if you have deregistered previous revisions in this family).+--+-- * 'tdVolumes' - The list of volumes in a task. If you are using the Fargate launch type, the @host@ and @sourcePath@ parameters are not supported. For more information about volume definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_definitions.html Amazon ECS Task Definitions> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'tdCpu' - The number of @cpu@ units used by the task. If using the EC2 launch type, this field is optional and any value can be used. If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of valid values for the @memory@ parameter:     * 256 (.25 vCPU) - Available @memory@ values: 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB)     * 512 (.5 vCPU) - Available @memory@ values: 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB)     * 1024 (1 vCPU) - Available @memory@ values: 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB)     * 2048 (2 vCPU) - Available @memory@ values: Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB)     * 4096 (4 vCPU) - Available @memory@ values: Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB)+--+-- * 'tdRequiresAttributes' - The container instance attributes required by your task. This field is not valid if using the Fargate launch type for your task.+taskDefinition+    :: TaskDefinition+taskDefinition =+  TaskDefinition'+    { _tdStatus = Nothing+    , _tdExecutionRoleARN = Nothing+    , _tdRequiresCompatibilities = Nothing+    , _tdFamily = Nothing+    , _tdContainerDefinitions = Nothing+    , _tdMemory = Nothing+    , _tdTaskRoleARN = Nothing+    , _tdPlacementConstraints = Nothing+    , _tdNetworkMode = Nothing+    , _tdTaskDefinitionARN = Nothing+    , _tdCompatibilities = Nothing+    , _tdRevision = Nothing+    , _tdVolumes = Nothing+    , _tdCpu = Nothing+    , _tdRequiresAttributes = Nothing+    }+++-- | The status of the task definition.+tdStatus :: Lens' TaskDefinition (Maybe TaskDefinitionStatus)+tdStatus = lens _tdStatus (\ s a -> s{_tdStatus = a})++-- | The Amazon Resource Name (ARN) of the task execution role that the Amazon ECS container agent and the Docker daemon can assume.+tdExecutionRoleARN :: Lens' TaskDefinition (Maybe Text)+tdExecutionRoleARN = lens _tdExecutionRoleARN (\ s a -> s{_tdExecutionRoleARN = a})++-- | The launch type the task is using.+tdRequiresCompatibilities :: Lens' TaskDefinition [Compatibility]+tdRequiresCompatibilities = lens _tdRequiresCompatibilities (\ s a -> s{_tdRequiresCompatibilities = a}) . _Default . _Coerce++-- | The family of your task definition, used as the definition name.+tdFamily :: Lens' TaskDefinition (Maybe Text)+tdFamily = lens _tdFamily (\ s a -> s{_tdFamily = a})++-- | A list of container definitions in JSON format that describe the different containers that make up your task. For more information about container definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_defintions.html Amazon ECS Task Definitions> in the /Amazon Elastic Container Service Developer Guide/ .+tdContainerDefinitions :: Lens' TaskDefinition [ContainerDefinition]+tdContainerDefinitions = lens _tdContainerDefinitions (\ s a -> s{_tdContainerDefinitions = a}) . _Default . _Coerce++-- | The amount (in MiB) of memory used by the task. If using the EC2 launch type, this field is optional and any value can be used. If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of valid values for the @cpu@ parameter:     * 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB) - Available @cpu@ values: 256 (.25 vCPU)     * 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB) - Available @cpu@ values: 512 (.5 vCPU)     * 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB) - Available @cpu@ values: 1024 (1 vCPU)     * Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 2048 (2 vCPU)     * Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB) - Available @cpu@ values: 4096 (4 vCPU)+tdMemory :: Lens' TaskDefinition (Maybe Text)+tdMemory = lens _tdMemory (\ s a -> s{_tdMemory = a})++-- | The ARN of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role. IAM roles for tasks on Windows require that the @-EnableTaskIAMRole@ option is set when you launch the Amazon ECS-optimized Windows AMI. Your containers must also run some configuration code in order to take advantage of the feature. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/windows_task_IAM_roles.html Windows IAM Roles for Tasks> in the /Amazon Elastic Container Service Developer Guide/ .+tdTaskRoleARN :: Lens' TaskDefinition (Maybe Text)+tdTaskRoleARN = lens _tdTaskRoleARN (\ s a -> s{_tdTaskRoleARN = a})++-- | An array of placement constraint objects to use for tasks. This field is not valid if using the Fargate launch type for your task.+tdPlacementConstraints :: Lens' TaskDefinition [TaskDefinitionPlacementConstraint]+tdPlacementConstraints = lens _tdPlacementConstraints (\ s a -> s{_tdPlacementConstraints = a}) . _Default . _Coerce++-- | The Docker networking mode to use for the containers in the task. The valid values are @none@ , @bridge@ , @awsvpc@ , and @host@ . The default Docker network mode is @bridge@ . If using the Fargate launch type, the @awsvpc@ network mode is required. If using the EC2 launch type, any network mode can be used. If the network mode is set to @none@ , you can't specify port mappings in your container definitions, and the task's containers do not have external connectivity. The @host@ and @awsvpc@ network modes offer the highest networking performance for containers because they use the EC2 network stack instead of the virtualized network stack provided by the @bridge@ mode. With the @host@ and @awsvpc@ network modes, exposed container ports are mapped directly to the corresponding host port (for the @host@ network mode) or the attached elastic network interface port (for the @awsvpc@ network mode), so you cannot take advantage of dynamic host port mappings.  If the network mode is @awsvpc@ , the task is allocated an Elastic Network Interface, and you must specify a 'NetworkConfiguration' when you create a service or run a task with the task definition. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-networking.html Task Networking> in the /Amazon Elastic Container Service Developer Guide/ . If the network mode is @host@ , you can't run multiple instantiations of the same task on a single container instance when port mappings are used. Docker for Windows uses different network modes than Docker for Linux. When you register a task definition with Windows containers, you must not specify a network mode. If you use the console to register a task definition with Windows containers, you must choose the @<default>@ network mode object.  For more information, see <https://docs.docker.com/engine/reference/run/#network-settings Network settings> in the /Docker run reference/ .+tdNetworkMode :: Lens' TaskDefinition (Maybe NetworkMode)+tdNetworkMode = lens _tdNetworkMode (\ s a -> s{_tdNetworkMode = a})++-- | The full Amazon Resource Name (ARN) of the task definition.+tdTaskDefinitionARN :: Lens' TaskDefinition (Maybe Text)+tdTaskDefinitionARN = lens _tdTaskDefinitionARN (\ s a -> s{_tdTaskDefinitionARN = a})++-- | The launch type to use with your task. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/launch_types.html Amazon ECS Launch Types> in the /Amazon Elastic Container Service Developer Guide/ .+tdCompatibilities :: Lens' TaskDefinition [Compatibility]+tdCompatibilities = lens _tdCompatibilities (\ s a -> s{_tdCompatibilities = a}) . _Default . _Coerce++-- | The revision of the task in a particular family. The revision is a version number of a task definition in a family. When you register a task definition for the first time, the revision is @1@ ; each time you register a new revision of a task definition in the same family, the revision value always increases by one (even if you have deregistered previous revisions in this family).+tdRevision :: Lens' TaskDefinition (Maybe Int)+tdRevision = lens _tdRevision (\ s a -> s{_tdRevision = a})++-- | The list of volumes in a task. If you are using the Fargate launch type, the @host@ and @sourcePath@ parameters are not supported. For more information about volume definition parameters and defaults, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task_definitions.html Amazon ECS Task Definitions> in the /Amazon Elastic Container Service Developer Guide/ .+tdVolumes :: Lens' TaskDefinition [Volume]+tdVolumes = lens _tdVolumes (\ s a -> s{_tdVolumes = a}) . _Default . _Coerce++-- | The number of @cpu@ units used by the task. If using the EC2 launch type, this field is optional and any value can be used. If using the Fargate launch type, this field is required and you must use one of the following values, which determines your range of valid values for the @memory@ parameter:     * 256 (.25 vCPU) - Available @memory@ values: 512 (0.5 GB), 1024 (1 GB), 2048 (2 GB)     * 512 (.5 vCPU) - Available @memory@ values: 1024 (1 GB), 2048 (2 GB), 3072 (3 GB), 4096 (4 GB)     * 1024 (1 vCPU) - Available @memory@ values: 2048 (2 GB), 3072 (3 GB), 4096 (4 GB), 5120 (5 GB), 6144 (6 GB), 7168 (7 GB), 8192 (8 GB)     * 2048 (2 vCPU) - Available @memory@ values: Between 4096 (4 GB) and 16384 (16 GB) in increments of 1024 (1 GB)     * 4096 (4 vCPU) - Available @memory@ values: Between 8192 (8 GB) and 30720 (30 GB) in increments of 1024 (1 GB)+tdCpu :: Lens' TaskDefinition (Maybe Text)+tdCpu = lens _tdCpu (\ s a -> s{_tdCpu = a})++-- | The container instance attributes required by your task. This field is not valid if using the Fargate launch type for your task.+tdRequiresAttributes :: Lens' TaskDefinition [Attribute]+tdRequiresAttributes = lens _tdRequiresAttributes (\ s a -> s{_tdRequiresAttributes = a}) . _Default . _Coerce++instance FromJSON TaskDefinition where+        parseJSON+          = withObject "TaskDefinition"+              (\ x ->+                 TaskDefinition' <$>+                   (x .:? "status") <*> (x .:? "executionRoleArn") <*>+                     (x .:? "requiresCompatibilities" .!= mempty)+                     <*> (x .:? "family")+                     <*> (x .:? "containerDefinitions" .!= mempty)+                     <*> (x .:? "memory")+                     <*> (x .:? "taskRoleArn")+                     <*> (x .:? "placementConstraints" .!= mempty)+                     <*> (x .:? "networkMode")+                     <*> (x .:? "taskDefinitionArn")+                     <*> (x .:? "compatibilities" .!= mempty)+                     <*> (x .:? "revision")+                     <*> (x .:? "volumes" .!= mempty)+                     <*> (x .:? "cpu")+                     <*> (x .:? "requiresAttributes" .!= mempty))++instance Hashable TaskDefinition where++instance NFData TaskDefinition where++-- | An object representing a constraint on task placement in the task definition.+--+--+-- If you are using the Fargate launch type, task placement constraints are not supported.+--+-- For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-placement-constraints.html Task Placement Constraints> in the /Amazon Elastic Container Service Developer Guide/ .+--+--+-- /See:/ 'taskDefinitionPlacementConstraint' smart constructor.+data TaskDefinitionPlacementConstraint = TaskDefinitionPlacementConstraint'+  { _tdpcExpression :: !(Maybe Text)+  , _tdpcType       :: !(Maybe TaskDefinitionPlacementConstraintType)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TaskDefinitionPlacementConstraint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tdpcExpression' - A cluster query language expression to apply to the constraint. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon Elastic Container Service Developer Guide/ .+--+-- * 'tdpcType' - The type of constraint. The @DistinctInstance@ constraint ensures that each task in a particular group is running on a different container instance. The @MemberOf@ constraint restricts selection to be from a group of valid candidates.+taskDefinitionPlacementConstraint+    :: TaskDefinitionPlacementConstraint+taskDefinitionPlacementConstraint =+  TaskDefinitionPlacementConstraint'+    {_tdpcExpression = Nothing, _tdpcType = Nothing}+++-- | A cluster query language expression to apply to the constraint. For more information, see <http://docs.aws.amazon.com/AmazonECS/latest/developerguide/cluster-query-language.html Cluster Query Language> in the /Amazon Elastic Container Service Developer Guide/ .+tdpcExpression :: Lens' TaskDefinitionPlacementConstraint (Maybe Text)+tdpcExpression = lens _tdpcExpression (\ s a -> s{_tdpcExpression = a})++-- | The type of constraint. The @DistinctInstance@ constraint ensures that each task in a particular group is running on a different container instance. The @MemberOf@ constraint restricts selection to be from a group of valid candidates.+tdpcType :: Lens' TaskDefinitionPlacementConstraint (Maybe TaskDefinitionPlacementConstraintType)+tdpcType = lens _tdpcType (\ s a -> s{_tdpcType = a})++instance FromJSON TaskDefinitionPlacementConstraint+         where+        parseJSON+          = withObject "TaskDefinitionPlacementConstraint"+              (\ x ->+                 TaskDefinitionPlacementConstraint' <$>+                   (x .:? "expression") <*> (x .:? "type"))++instance Hashable TaskDefinitionPlacementConstraint+         where++instance NFData TaskDefinitionPlacementConstraint+         where++instance ToJSON TaskDefinitionPlacementConstraint+         where+        toJSON TaskDefinitionPlacementConstraint'{..}+          = object+              (catMaybes+                 [("expression" .=) <$> _tdpcExpression,+                  ("type" .=) <$> _tdpcType])++-- | The overrides associated with a task.+--+--+--+-- /See:/ 'taskOverride' smart constructor.+data TaskOverride = TaskOverride'+  { _toContainerOverrides :: !(Maybe [ContainerOverride])+  , _toExecutionRoleARN   :: !(Maybe Text)+  , _toTaskRoleARN        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TaskOverride' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'toContainerOverrides' - One or more container overrides sent to a task.+--+-- * 'toExecutionRoleARN' - The Amazon Resource Name (ARN) of the task execution role that the Amazon ECS container agent and the Docker daemon can assume.+--+-- * 'toTaskRoleARN' - The Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role.+taskOverride+    :: TaskOverride+taskOverride =+  TaskOverride'+    { _toContainerOverrides = Nothing+    , _toExecutionRoleARN = Nothing+    , _toTaskRoleARN = Nothing+    }+++-- | One or more container overrides sent to a task.+toContainerOverrides :: Lens' TaskOverride [ContainerOverride]+toContainerOverrides = lens _toContainerOverrides (\ s a -> s{_toContainerOverrides = a}) . _Default . _Coerce++-- | The Amazon Resource Name (ARN) of the task execution role that the Amazon ECS container agent and the Docker daemon can assume.+toExecutionRoleARN :: Lens' TaskOverride (Maybe Text)+toExecutionRoleARN = lens _toExecutionRoleARN (\ s a -> s{_toExecutionRoleARN = a})++-- | The Amazon Resource Name (ARN) of the IAM role that containers in this task can assume. All containers in this task are granted the permissions that are specified in this role.+toTaskRoleARN :: Lens' TaskOverride (Maybe Text)+toTaskRoleARN = lens _toTaskRoleARN (\ s a -> s{_toTaskRoleARN = a})++instance FromJSON TaskOverride where+        parseJSON+          = withObject "TaskOverride"+              (\ x ->+                 TaskOverride' <$>+                   (x .:? "containerOverrides" .!= mempty) <*>+                     (x .:? "executionRoleArn")+                     <*> (x .:? "taskRoleArn"))++instance Hashable TaskOverride where++instance NFData TaskOverride where++instance ToJSON TaskOverride where+        toJSON TaskOverride'{..}+          = object+              (catMaybes+                 [("containerOverrides" .=) <$> _toContainerOverrides,+                  ("executionRoleArn" .=) <$> _toExecutionRoleARN,+                  ("taskRoleArn" .=) <$> _toTaskRoleARN])++-- | The container path, mount options, and size of the tmpfs mount.+--+--+--+-- /See:/ 'tmpfs' smart constructor.+data Tmpfs = Tmpfs'+  { _tMountOptions  :: !(Maybe [Text])+  , _tContainerPath :: !Text+  , _tSize          :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Tmpfs' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tMountOptions' - The list of tmpfs volume mount options. Valid values: @"defaults" | "ro" | "rw" | "suid" | "nosuid" | "dev" | "nodev" | "exec" | "noexec" | "sync" | "async" | "dirsync" | "remount" | "mand" | "nomand" | "atime" | "noatime" | "diratime" | "nodiratime" | "bind" | "rbind" | "unbindable" | "runbindable" | "private" | "rprivate" | "shared" | "rshared" | "slave" | "rslave" | "relatime" | "norelatime" | "strictatime" | "nostrictatime"@+--+-- * 'tContainerPath' - The absolute file path where the tmpfs volume will be mounted.+--+-- * 'tSize' - The size of the tmpfs volume.+tmpfs+    :: Text -- ^ 'tContainerPath'+    -> Int -- ^ 'tSize'+    -> Tmpfs+tmpfs pContainerPath_ pSize_ =+  Tmpfs'+    { _tMountOptions = Nothing+    , _tContainerPath = pContainerPath_+    , _tSize = pSize_+    }+++-- | The list of tmpfs volume mount options. Valid values: @"defaults" | "ro" | "rw" | "suid" | "nosuid" | "dev" | "nodev" | "exec" | "noexec" | "sync" | "async" | "dirsync" | "remount" | "mand" | "nomand" | "atime" | "noatime" | "diratime" | "nodiratime" | "bind" | "rbind" | "unbindable" | "runbindable" | "private" | "rprivate" | "shared" | "rshared" | "slave" | "rslave" | "relatime" | "norelatime" | "strictatime" | "nostrictatime"@+tMountOptions :: Lens' Tmpfs [Text]+tMountOptions = lens _tMountOptions (\ s a -> s{_tMountOptions = a}) . _Default . _Coerce++-- | The absolute file path where the tmpfs volume will be mounted.+tContainerPath :: Lens' Tmpfs Text+tContainerPath = lens _tContainerPath (\ s a -> s{_tContainerPath = a})++-- | The size of the tmpfs volume.+tSize :: Lens' Tmpfs Int+tSize = lens _tSize (\ s a -> s{_tSize = a})++instance FromJSON Tmpfs where+        parseJSON+          = withObject "Tmpfs"+              (\ x ->+                 Tmpfs' <$>+                   (x .:? "mountOptions" .!= mempty) <*>+                     (x .: "containerPath")+                     <*> (x .: "size"))++instance Hashable Tmpfs where++instance NFData Tmpfs where++instance ToJSON Tmpfs where+        toJSON Tmpfs'{..}+          = object+              (catMaybes+                 [("mountOptions" .=) <$> _tMountOptions,+                  Just ("containerPath" .= _tContainerPath),+                  Just ("size" .= _tSize)])++-- | The @ulimit@ settings to pass to the container.+--+--+--+-- /See:/ 'ulimit' smart constructor.+data Ulimit = Ulimit'+  { _uName      :: !UlimitName+  , _uSoftLimit :: !Int+  , _uHardLimit :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Ulimit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uName' - The @type@ of the @ulimit@ .+--+-- * 'uSoftLimit' - The soft limit for the ulimit type.+--+-- * 'uHardLimit' - The hard limit for the ulimit type.+ulimit+    :: UlimitName -- ^ 'uName'+    -> Int -- ^ 'uSoftLimit'+    -> Int -- ^ 'uHardLimit'+    -> Ulimit+ulimit pName_ pSoftLimit_ pHardLimit_ =+  Ulimit'+    {_uName = pName_, _uSoftLimit = pSoftLimit_, _uHardLimit = pHardLimit_}+++-- | The @type@ of the @ulimit@ .+uName :: Lens' Ulimit UlimitName+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})++-- | The hard limit for the ulimit type.+uHardLimit :: Lens' Ulimit Int+uHardLimit = lens _uHardLimit (\ s a -> s{_uHardLimit = a})++instance FromJSON Ulimit where+        parseJSON+          = withObject "Ulimit"+              (\ x ->+                 Ulimit' <$>+                   (x .: "name") <*> (x .: "softLimit") <*>+                     (x .: "hardLimit"))++instance Hashable Ulimit where++instance NFData Ulimit where++instance ToJSON Ulimit where+        toJSON Ulimit'{..}+          = object+              (catMaybes+                 [Just ("name" .= _uName),+                  Just ("softLimit" .= _uSoftLimit),+                  Just ("hardLimit" .= _uHardLimit)])++-- | The Docker and Amazon ECS container agent version information about a container instance.+--+--+--+-- /See:/ 'versionInfo' smart constructor.+data VersionInfo = VersionInfo'+  { _viAgentHash     :: !(Maybe Text)+  , _viAgentVersion  :: !(Maybe Text)+  , _viDockerVersion :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VersionInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'viAgentHash' - The Git commit hash for the Amazon ECS container agent build on the <https://github.com/aws/amazon-ecs-agent/commits/master amazon-ecs-agent > GitHub repository.+--+-- * 'viAgentVersion' - The version number of the Amazon ECS container agent.+--+-- * 'viDockerVersion' - The Docker version running on the container instance.+versionInfo+    :: VersionInfo+versionInfo =+  VersionInfo'+    { _viAgentHash = Nothing+    , _viAgentVersion = Nothing+    , _viDockerVersion = Nothing+    }+++-- | The Git commit hash for the Amazon ECS container agent build on the <https://github.com/aws/amazon-ecs-agent/commits/master amazon-ecs-agent > GitHub repository.+viAgentHash :: Lens' VersionInfo (Maybe Text)+viAgentHash = lens _viAgentHash (\ s a -> s{_viAgentHash = a})++-- | The version number of the Amazon ECS container agent.+viAgentVersion :: Lens' VersionInfo (Maybe Text)+viAgentVersion = lens _viAgentVersion (\ s a -> s{_viAgentVersion = a})++-- | The Docker version running on the container instance.+viDockerVersion :: Lens' VersionInfo (Maybe Text)+viDockerVersion = lens _viDockerVersion (\ s a -> s{_viDockerVersion = a})++instance FromJSON VersionInfo where+        parseJSON+          = withObject "VersionInfo"+              (\ x ->+                 VersionInfo' <$>+                   (x .:? "agentHash") <*> (x .:? "agentVersion") <*>+                     (x .:? "dockerVersion"))++instance Hashable VersionInfo where++instance NFData VersionInfo where++instance ToJSON VersionInfo where+        toJSON VersionInfo'{..}+          = object+              (catMaybes+                 [("agentHash" .=) <$> _viAgentHash,+                  ("agentVersion" .=) <$> _viAgentVersion,+                  ("dockerVersion" .=) <$> _viDockerVersion])++-- | A data volume used in a task definition.+--+--+--+-- /See:/ 'volume' smart constructor.+data Volume = Volume'+  { _vName :: !(Maybe Text)+  , _vHost :: !(Maybe HostVolumeProperties)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Volume' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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. Windows containers can mount whole directories on the same drive as @> env:ProgramData@ . Windows containers cannot mount directories on a different drive, and mount point cannot be across drives. For example, you can mount @C:\my\path:C:\my\path@ and @D:\:D:\@ , but not @D:\my\path:C:\my\path@ or @D:\:C:\my\path@ .+volume+    :: Volume+volume = Volume' {_vName = Nothing, _vHost = Nothing}+++-- | 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})++-- | 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. Windows containers can mount whole directories on the same drive as @> env:ProgramData@ . Windows containers cannot mount directories on a different drive, and mount point cannot be across drives. For example, you can mount @C:\my\path:C:\my\path@ and @D:\:D:\@ , but not @D:\my\path:C:\my\path@ or @D:\:C:\my\path@ .+vHost :: Lens' Volume (Maybe HostVolumeProperties)+vHost = lens _vHost (\ s a -> s{_vHost = a})++instance FromJSON Volume where+        parseJSON+          = withObject "Volume"+              (\ x ->+                 Volume' <$> (x .:? "name") <*> (x .:? "host"))++instance Hashable Volume where++instance NFData Volume where++instance ToJSON Volume where+        toJSON Volume'{..}+          = object+              (catMaybes+                 [("name" .=) <$> _vName, ("host" .=) <$> _vHost])++-- | Details on a data volume from another container in the same task definition.+--+--+--+-- /See:/ 'volumeFrom' smart constructor.+data VolumeFrom = VolumeFrom'+  { _vfSourceContainer :: !(Maybe Text)+  , _vfReadOnly        :: !(Maybe Bool)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VolumeFrom' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vfSourceContainer' - The name of another container within the same task definition to mount volumes from.+--+-- * 'vfReadOnly' - If this value is @true@ , the container has read-only access to the volume. If this value is @false@ , then the container can write to the volume. The default value is @false@ .+volumeFrom+    :: VolumeFrom+volumeFrom = VolumeFrom' {_vfSourceContainer = Nothing, _vfReadOnly = Nothing}+++-- | The name of another container within the same task definition to mount volumes from.+vfSourceContainer :: Lens' VolumeFrom (Maybe Text)+vfSourceContainer = lens _vfSourceContainer (\ s a -> s{_vfSourceContainer = a})++-- | If this value is @true@ , the container has read-only access to the volume. If this value is @false@ , then the container can write to the volume. The default value is @false@ .+vfReadOnly :: Lens' VolumeFrom (Maybe Bool)+vfReadOnly = lens _vfReadOnly (\ s a -> s{_vfReadOnly = a})  instance FromJSON VolumeFrom where         parseJSON