amazonka-ecs 0.3.6 → 1.0.0

raw patch · 38 files changed

+6911/−4674 lines, 38 filesdep +amazonka-ecsdep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-ecs, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +29/−14
• amazonka-ecs.cabal +60/−18
• gen/Network/AWS/ECS.hs +427/−68
• gen/Network/AWS/ECS/CreateCluster.hs +95/−79
• gen/Network/AWS/ECS/CreateService.hs +161/−142
• gen/Network/AWS/ECS/DeleteCluster.hs +96/−81
• gen/Network/AWS/ECS/DeleteService.hs +97/−82
• gen/Network/AWS/ECS/DeregisterContainerInstance.hs +142/−108
• gen/Network/AWS/ECS/DeregisterTaskDefinition.hs +108/−86
• gen/Network/AWS/ECS/DescribeClusters.hs +104/−94
• gen/Network/AWS/ECS/DescribeContainerInstances.hs +114/−99
• gen/Network/AWS/ECS/DescribeServices.hs +110/−95
• gen/Network/AWS/ECS/DescribeTaskDefinition.hs +101/−84
• gen/Network/AWS/ECS/DescribeTasks.hs +108/−92
• gen/Network/AWS/ECS/DiscoverPollEndpoint.hs +115/−90
• gen/Network/AWS/ECS/ListClusters.hs +135/−107
• gen/Network/AWS/ECS/ListContainerInstances.hs +145/−119
• gen/Network/AWS/ECS/ListServices.hs +143/−114
• gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs +149/−110
• gen/Network/AWS/ECS/ListTaskDefinitions.hs +176/−117
• gen/Network/AWS/ECS/ListTasks.hs +195/−153
• gen/Network/AWS/ECS/RegisterContainerInstance.hs +147/−113
• gen/Network/AWS/ECS/RegisterTaskDefinition.hs +120/−103
• gen/Network/AWS/ECS/RunTask.hs +151/−133
• gen/Network/AWS/ECS/StartTask.hs +160/−145
• gen/Network/AWS/ECS/StopTask.hs +101/−87
• gen/Network/AWS/ECS/SubmitContainerStateChange.hs +137/−127
• gen/Network/AWS/ECS/SubmitTaskStateChange.hs +115/−102
• gen/Network/AWS/ECS/Types.hs +355/−1795
• gen/Network/AWS/ECS/Types/Product.hs +1719/−0
• gen/Network/AWS/ECS/Types/Sum.hs +166/−0
• gen/Network/AWS/ECS/UpdateContainerAgent.hs +153/−0
• gen/Network/AWS/ECS/UpdateService.hs +133/−117
• gen/Network/AWS/ECS/Waiters.hs +83/−0
• test/Main.hs +21/−0
• test/Test/AWS/ECS.hs +26/−0
• test/Test/AWS/ECS/Internal.hs +16/−0
• test/Test/AWS/Gen/ECS.hs +498/−0

@@ -1,29 +1,44 @@ # Amazon EC2 Container Service SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -Amazon EC2 Container Service is a highly scalable, high performance container-management service that supports Docker containers and allows you to easily-run distributed applications on a managed cluster of Amazon EC2 instances.-Amazon EC2 Container Service lets you launch and stop container-enabled-applications with simple API calls, allows you to query the state of your-cluster from a centralized service, and gives you access to many familiar-Amazon EC2 features like security groups, EBS volumes and IAM roles. You can-use EC2 Container Service 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 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 Amazon 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. +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.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-ecs) and the [AWS API Reference](http://docs.aws.amazon.com/AmazonECS/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,36 +1,46 @@ name:                  amazonka-ecs-version:               0.3.6+version:               1.0.0 synopsis:              Amazon EC2 Container Service SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    Amazon EC2 Container Service is a highly scalable, high performance container-    management service that supports Docker containers and allows you to easily-    run distributed applications on a managed cluster of Amazon EC2 instances.-    Amazon EC2 Container Service lets you launch and stop container-enabled-    applications with simple API calls, allows you to query the state of your-    cluster from a centralized service, and gives you access to many familiar-    Amazon EC2 features like security groups, EBS volumes and IAM roles. You can-    use EC2 Container Service 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 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 Amazon 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. +    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.     .-    /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.ECS" and the <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -70,10 +80,42 @@         , Network.AWS.ECS.SubmitContainerStateChange         , Network.AWS.ECS.SubmitTaskStateChange         , Network.AWS.ECS.Types+        , Network.AWS.ECS.UpdateContainerAgent         , Network.AWS.ECS.UpdateService+        , Network.AWS.ECS.Waiters      other-modules:+          Network.AWS.ECS.Types.Product+        , Network.AWS.ECS.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-ecs-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.ECS+        , Test.AWS.Gen.ECS+        , Test.AWS.ECS.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-ecs == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,81 +1,440 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Amazon EC2 Container Service is a highly scalable, high performance container--- management service that supports Docker containers and allows you to easily--- run distributed applications on a managed cluster of Amazon EC2 instances.--- Amazon EC2 Container Service lets you launch and stop container-enabled--- applications with simple API calls, allows you to query the state of your--- cluster from a centralized service, and gives you access to many familiar--- Amazon EC2 features like security groups, EBS volumes and IAM roles. You can--- use EC2 Container Service 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 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 Amazon 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.+--+-- 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.+--+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.ECS-    ( module Network.AWS.ECS.CreateCluster-    , module Network.AWS.ECS.CreateService-    , module Network.AWS.ECS.DeleteCluster-    , module Network.AWS.ECS.DeleteService-    , module Network.AWS.ECS.DeregisterContainerInstance-    , module Network.AWS.ECS.DeregisterTaskDefinition+    (+    -- * Service+      ECS++    -- * Errors+    -- $errors++    -- ** InvalidParameterException+    , _InvalidParameterException++    -- ** ServerException+    , _ServerException++    -- ** ClusterContainsServicesException+    , _ClusterContainsServicesException++    -- ** ClusterContainsContainerInstancesException+    , _ClusterContainsContainerInstancesException++    -- ** ServiceNotActiveException+    , _ServiceNotActiveException++    -- ** NoUpdateAvailableException+    , _NoUpdateAvailableException++    -- ** ClusterNotFoundException+    , _ClusterNotFoundException++    -- ** ServiceNotFoundException+    , _ServiceNotFoundException++    -- ** MissingVersionException+    , _MissingVersionException++    -- ** UpdateInProgressException+    , _UpdateInProgressException++    -- ** ClientException+    , _ClientException++    -- * Waiters+    -- $waiters++    -- ** ServicesInactive+    , servicesInactive++    -- ** TasksRunning+    , tasksRunning++    -- ** TasksStopped+    , tasksStopped++    -- * Operations+    -- $operations++    -- ** ListServices (Paginated)+    , module Network.AWS.ECS.ListServices++    -- ** DescribeClusters     , module Network.AWS.ECS.DescribeClusters-    , module Network.AWS.ECS.DescribeContainerInstances-    , module Network.AWS.ECS.DescribeServices-    , module Network.AWS.ECS.DescribeTaskDefinition-    , module Network.AWS.ECS.DescribeTasks++    -- ** DeleteService+    , module Network.AWS.ECS.DeleteService++    -- ** UpdateService+    , module Network.AWS.ECS.UpdateService++    -- ** DiscoverPollEndpoint     , module Network.AWS.ECS.DiscoverPollEndpoint-    , module Network.AWS.ECS.ListClusters-    , module Network.AWS.ECS.ListContainerInstances-    , module Network.AWS.ECS.ListServices-    , module Network.AWS.ECS.ListTaskDefinitionFamilies++    -- ** SubmitContainerStateChange+    , module Network.AWS.ECS.SubmitContainerStateChange++    -- ** StopTask+    , module Network.AWS.ECS.StopTask++    -- ** DescribeTaskDefinition+    , module Network.AWS.ECS.DescribeTaskDefinition++    -- ** SubmitTaskStateChange+    , module Network.AWS.ECS.SubmitTaskStateChange++    -- ** DescribeContainerInstances+    , module Network.AWS.ECS.DescribeContainerInstances++    -- ** DeleteCluster+    , module Network.AWS.ECS.DeleteCluster++    -- ** CreateCluster+    , module Network.AWS.ECS.CreateCluster++    -- ** ListTaskDefinitions (Paginated)     , module Network.AWS.ECS.ListTaskDefinitions++    -- ** ListTasks (Paginated)     , module Network.AWS.ECS.ListTasks-    , module Network.AWS.ECS.RegisterContainerInstance-    , module Network.AWS.ECS.RegisterTaskDefinition++    -- ** RunTask     , module Network.AWS.ECS.RunTask++    -- ** ListContainerInstances (Paginated)+    , module Network.AWS.ECS.ListContainerInstances++    -- ** RegisterContainerInstance+    , module Network.AWS.ECS.RegisterContainerInstance++    -- ** UpdateContainerAgent+    , module Network.AWS.ECS.UpdateContainerAgent++    -- ** ListTaskDefinitionFamilies (Paginated)+    , module Network.AWS.ECS.ListTaskDefinitionFamilies++    -- ** StartTask     , module Network.AWS.ECS.StartTask-    , module Network.AWS.ECS.StopTask-    , module Network.AWS.ECS.SubmitContainerStateChange-    , module Network.AWS.ECS.SubmitTaskStateChange-    , module Network.AWS.ECS.Types-    , module Network.AWS.ECS.UpdateService++    -- ** DeregisterTaskDefinition+    , module Network.AWS.ECS.DeregisterTaskDefinition++    -- ** DescribeTasks+    , module Network.AWS.ECS.DescribeTasks++    -- ** ListClusters (Paginated)+    , module Network.AWS.ECS.ListClusters++    -- ** DescribeServices+    , module Network.AWS.ECS.DescribeServices++    -- ** DeregisterContainerInstance+    , module Network.AWS.ECS.DeregisterContainerInstance++    -- ** RegisterTaskDefinition+    , module Network.AWS.ECS.RegisterTaskDefinition++    -- ** CreateService+    , module Network.AWS.ECS.CreateService++    -- * Types++    -- ** AgentUpdateStatus+    , AgentUpdateStatus (..)++    -- ** DesiredStatus+    , DesiredStatus (..)++    -- ** SortOrder+    , SortOrder (..)++    -- ** TaskDefinitionStatus+    , TaskDefinitionStatus (..)++    -- ** TransportProtocol+    , TransportProtocol (..)++    -- ** Cluster+    , Cluster+    , cluster+    , cStatus+    , cClusterARN+    , cRunningTasksCount+    , cRegisteredContainerInstancesCount+    , cPendingTasksCount+    , cClusterName+    , cActiveServicesCount++    -- ** Container+    , Container+    , container+    , cNetworkBindings+    , cContainerARN+    , cTaskARN+    , cLastStatus+    , cReason+    , cName+    , cExitCode++    -- ** ContainerDefinition+    , ContainerDefinition+    , containerDefinition+    , cdImage+    , cdCommand+    , cdVolumesFrom+    , cdEnvironment+    , cdEntryPoint+    , cdPortMappings+    , cdMemory+    , cdName+    , cdMountPoints+    , cdLinks+    , cdEssential+    , cdCpu++    -- ** ContainerInstance+    , ContainerInstance+    , containerInstance+    , ciStatus+    , ciRunningTasksCount+    , ciRemainingResources+    , ciEc2InstanceId+    , ciContainerInstanceARN+    , ciAgentConnected+    , ciVersionInfo+    , ciAgentUpdateStatus+    , ciPendingTasksCount+    , ciRegisteredResources++    -- ** ContainerOverride+    , ContainerOverride+    , containerOverride+    , coCommand+    , coEnvironment+    , coName++    -- ** ContainerService+    , ContainerService+    , containerService+    , csStatus+    , csRunningCount+    , csClusterARN+    , csDesiredCount+    , csLoadBalancers+    , csPendingCount+    , csEvents+    , csServiceName+    , csDeployments+    , csTaskDefinition+    , csServiceARN+    , csRoleARN++    -- ** Deployment+    , Deployment+    , deployment+    , dStatus+    , dRunningCount+    , dCreatedAt+    , dDesiredCount+    , dPendingCount+    , dId+    , dTaskDefinition+    , dUpdatedAt++    -- ** Failure+    , Failure+    , failure+    , fArn+    , fReason++    -- ** HostVolumeProperties+    , HostVolumeProperties+    , hostVolumeProperties+    , hvpSourcePath++    -- ** KeyValuePair+    , KeyValuePair+    , keyValuePair+    , kvpValue+    , kvpName++    -- ** LoadBalancer+    , LoadBalancer+    , loadBalancer+    , lbLoadBalancerName+    , lbContainerName+    , lbContainerPort++    -- ** MountPoint+    , MountPoint+    , mountPoint+    , mpContainerPath+    , mpSourceVolume+    , mpReadOnly++    -- ** NetworkBinding+    , NetworkBinding+    , networkBinding+    , nbBindIP+    , nbProtocol+    , nbHostPort+    , nbContainerPort++    -- ** PortMapping+    , PortMapping+    , portMapping+    , pmProtocol+    , pmHostPort+    , pmContainerPort++    -- ** Resource+    , Resource+    , resource+    , rStringSetValue+    , rIntegerValue+    , rDoubleValue+    , rLongValue+    , rName+    , rType++    -- ** ServiceEvent+    , ServiceEvent+    , serviceEvent+    , seCreatedAt+    , seId+    , seMessage++    -- ** Task+    , Task+    , task+    , tDesiredStatus+    , tClusterARN+    , tOverrides+    , tTaskARN+    , tContainerInstanceARN+    , tLastStatus+    , tContainers+    , tStartedBy+    , tTaskDefinitionARN++    -- ** TaskDefinition+    , TaskDefinition+    , taskDefinition+    , tdStatus+    , tdFamily+    , tdContainerDefinitions+    , tdTaskDefinitionARN+    , tdRevision+    , tdVolumes++    -- ** TaskOverride+    , TaskOverride+    , taskOverride+    , toContainerOverrides++    -- ** VersionInfo+    , VersionInfo+    , versionInfo+    , viAgentVersion+    , viAgentHash+    , viDockerVersion++    -- ** Volume+    , Volume+    , volume+    , vName+    , vHost++    -- ** VolumeFrom+    , VolumeFrom+    , volumeFrom+    , vfSourceContainer+    , vfReadOnly     ) where -import Network.AWS.ECS.CreateCluster-import Network.AWS.ECS.CreateService-import Network.AWS.ECS.DeleteCluster-import Network.AWS.ECS.DeleteService-import Network.AWS.ECS.DeregisterContainerInstance-import Network.AWS.ECS.DeregisterTaskDefinition-import Network.AWS.ECS.DescribeClusters-import Network.AWS.ECS.DescribeContainerInstances-import Network.AWS.ECS.DescribeServices-import Network.AWS.ECS.DescribeTaskDefinition-import Network.AWS.ECS.DescribeTasks-import Network.AWS.ECS.DiscoverPollEndpoint-import Network.AWS.ECS.ListClusters-import Network.AWS.ECS.ListContainerInstances-import Network.AWS.ECS.ListServices-import Network.AWS.ECS.ListTaskDefinitionFamilies-import Network.AWS.ECS.ListTaskDefinitions-import Network.AWS.ECS.ListTasks-import Network.AWS.ECS.RegisterContainerInstance-import Network.AWS.ECS.RegisterTaskDefinition-import Network.AWS.ECS.RunTask-import Network.AWS.ECS.StartTask-import Network.AWS.ECS.StopTask-import Network.AWS.ECS.SubmitContainerStateChange-import Network.AWS.ECS.SubmitTaskStateChange-import Network.AWS.ECS.Types-import Network.AWS.ECS.UpdateService+import           Network.AWS.ECS.CreateCluster+import           Network.AWS.ECS.CreateService+import           Network.AWS.ECS.DeleteCluster+import           Network.AWS.ECS.DeleteService+import           Network.AWS.ECS.DeregisterContainerInstance+import           Network.AWS.ECS.DeregisterTaskDefinition+import           Network.AWS.ECS.DescribeClusters+import           Network.AWS.ECS.DescribeContainerInstances+import           Network.AWS.ECS.DescribeServices+import           Network.AWS.ECS.DescribeTaskDefinition+import           Network.AWS.ECS.DescribeTasks+import           Network.AWS.ECS.DiscoverPollEndpoint+import           Network.AWS.ECS.ListClusters+import           Network.AWS.ECS.ListContainerInstances+import           Network.AWS.ECS.ListServices+import           Network.AWS.ECS.ListTaskDefinitionFamilies+import           Network.AWS.ECS.ListTaskDefinitions+import           Network.AWS.ECS.ListTasks+import           Network.AWS.ECS.RegisterContainerInstance+import           Network.AWS.ECS.RegisterTaskDefinition+import           Network.AWS.ECS.RunTask+import           Network.AWS.ECS.StartTask+import           Network.AWS.ECS.StopTask+import           Network.AWS.ECS.SubmitContainerStateChange+import           Network.AWS.ECS.SubmitTaskStateChange+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.UpdateContainerAgent+import           Network.AWS.ECS.UpdateService+import           Network.AWS.ECS.Waiters++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'ECS'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,114 +1,130 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.CreateCluster--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new Amazon ECS cluster. By default, your account will receive a 'default' cluster when you launch your first container instance. However, you can--- create your own cluster with a unique name with the 'CreateCluster' action.+-- Creates a new Amazon ECS cluster. By default, your account will receive+-- a 'default' cluster when you launch your first container instance.+-- However, you can create your own cluster with a unique name with the+-- 'CreateCluster' action. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_CreateCluster.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_CreateCluster.html AWS API Reference> for CreateCluster. module Network.AWS.ECS.CreateCluster     (-    -- * Request-      CreateCluster-    -- ** Request constructor-    , createCluster-    -- ** Request lenses+    -- * Creating a Request+      createCluster+    , CreateCluster+    -- * Request Lenses     , ccClusterName -    -- * Response-    , CreateClusterResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createClusterResponse-    -- ** Response lenses-    , ccrCluster+    , CreateClusterResponse+    -- * Response Lenses+    , ccrsCluster+    , ccrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype CreateCluster = CreateCluster+-- | /See:/ 'createCluster' smart constructor.+newtype CreateCluster = CreateCluster'     { _ccClusterName :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateCluster' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateCluster' with the minimum fields required to make a request. ----- * 'ccClusterName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ---createCluster :: CreateCluster-createCluster = CreateCluster+-- * 'ccClusterName'+createCluster+    :: CreateCluster+createCluster =+    CreateCluster'     { _ccClusterName = Nothing     } --- | The name of your cluster. If you do not specify a name for your cluster, you--- will create a cluster named 'default'. Up to 255 letters (uppercase and--- lowercase), numbers, hyphens, and underscores are allowed.+-- | The name of your cluster. If you do not specify a name for your cluster,+-- you will 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}); -newtype CreateClusterResponse = CreateClusterResponse-    { _ccrCluster :: Maybe Cluster-    } deriving (Eq, Read, Show)+instance AWSRequest CreateCluster where+        type Sv CreateCluster = ECS+        type Rs CreateCluster = CreateClusterResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateClusterResponse' <$>+                   (x .?> "cluster") <*> (pure (fromEnum s))) --- | 'CreateClusterResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccrCluster' @::@ 'Maybe' 'Cluster'----createClusterResponse :: CreateClusterResponse-createClusterResponse = CreateClusterResponse-    { _ccrCluster = Nothing-    }+instance ToHeaders CreateCluster where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.CreateCluster"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The full description of your new cluster.-ccrCluster :: Lens' CreateClusterResponse (Maybe Cluster)-ccrCluster = lens _ccrCluster (\s a -> s { _ccrCluster = a })+instance ToJSON CreateCluster where+        toJSON CreateCluster'{..}+          = object ["clusterName" .= _ccClusterName]  instance ToPath CreateCluster where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateCluster where-    toQuery = const mempty--instance ToHeaders CreateCluster+        toQuery = const mempty -instance ToJSON CreateCluster where-    toJSON CreateCluster{..} = object-        [ "clusterName" .= _ccClusterName-        ]+-- | /See:/ 'createClusterResponse' smart constructor.+data CreateClusterResponse = CreateClusterResponse'+    { _ccrsCluster :: !(Maybe Cluster)+    , _ccrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateCluster where-    type Sv CreateCluster = ECS-    type Rs CreateCluster = CreateClusterResponse+-- | Creates a value of 'CreateClusterResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccrsCluster'+--+-- * 'ccrsStatus'+createClusterResponse+    :: Int -- ^ 'ccrsStatus'+    -> CreateClusterResponse+createClusterResponse pStatus_ =+    CreateClusterResponse'+    { _ccrsCluster = Nothing+    , _ccrsStatus = pStatus_+    } -    request  = post "CreateCluster"-    response = jsonResponse+-- | The full description of your new cluster.+ccrsCluster :: Lens' CreateClusterResponse (Maybe Cluster)+ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a}); -instance FromJSON CreateClusterResponse where-    parseJSON = withObject "CreateClusterResponse" $ \o -> CreateClusterResponse-        <$> o .:? "cluster"+-- | The response status code.+ccrsStatus :: Lens' CreateClusterResponse Int+ccrsStatus = lens _ccrsStatus (\ s a -> s{_ccrsStatus = a});

@@ -1,186 +1,205 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.CreateService--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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 will spawn another instantiation of the task in the specified--- cluster.+-- 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 will spawn another instantiation of the task+-- in the specified cluster. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_CreateService.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_CreateService.html AWS API Reference> for CreateService. module Network.AWS.ECS.CreateService     (-    -- * Request-      CreateService-    -- ** Request constructor-    , createService-    -- ** Request lenses-    , cs1ClientToken-    , cs1Cluster-    , cs1DesiredCount-    , cs1LoadBalancers-    , cs1Role-    , cs1ServiceName-    , cs1TaskDefinition+    -- * Creating a Request+      createService+    , CreateService+    -- * Request Lenses+    , cCluster+    , cClientToken+    , cLoadBalancers+    , cRole+    , cServiceName+    , cTaskDefinition+    , cDesiredCount -    -- * Response-    , CreateServiceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createServiceResponse-    -- ** Response lenses-    , csrService+    , CreateServiceResponse+    -- * Response Lenses+    , csrsService+    , csrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateService = CreateService-    { _cs1ClientToken    :: Maybe Text-    , _cs1Cluster        :: Maybe Text-    , _cs1DesiredCount   :: Maybe Int-    , _cs1LoadBalancers  :: List "loadBalancers" LoadBalancer-    , _cs1Role           :: Maybe Text-    , _cs1ServiceName    :: Text-    , _cs1TaskDefinition :: Maybe Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'createService' smart constructor.+data CreateService = CreateService'+    { _cCluster        :: !(Maybe Text)+    , _cClientToken    :: !(Maybe Text)+    , _cLoadBalancers  :: !(Maybe [LoadBalancer])+    , _cRole           :: !(Maybe Text)+    , _cServiceName    :: !Text+    , _cTaskDefinition :: !Text+    , _cDesiredCount   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateService' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateService' with the minimum fields required to make a request. ----- * 'cs1ClientToken' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cs1Cluster' @::@ 'Maybe' 'Text'+-- * 'cCluster' ----- * 'cs1DesiredCount' @::@ 'Maybe' 'Int'+-- * 'cClientToken' ----- * 'cs1LoadBalancers' @::@ ['LoadBalancer']+-- * 'cLoadBalancers' ----- * 'cs1Role' @::@ 'Maybe' 'Text'+-- * 'cRole' ----- * 'cs1ServiceName' @::@ 'Text'+-- * 'cServiceName' ----- * 'cs1TaskDefinition' @::@ 'Maybe' 'Text'+-- * 'cTaskDefinition' ---createService :: Text -- ^ 'cs1ServiceName'-              -> CreateService-createService p1 = CreateService-    { _cs1ServiceName    = p1-    , _cs1Cluster        = Nothing-    , _cs1TaskDefinition = Nothing-    , _cs1LoadBalancers  = mempty-    , _cs1DesiredCount   = Nothing-    , _cs1ClientToken    = Nothing-    , _cs1Role           = Nothing+-- * 'cDesiredCount'+createService+    :: Text -- ^ 'cServiceName'+    -> Text -- ^ 'cTaskDefinition'+    -> Int -- ^ 'cDesiredCount'+    -> CreateService+createService pServiceName_ pTaskDefinition_ pDesiredCount_ =+    CreateService'+    { _cCluster = Nothing+    , _cClientToken = Nothing+    , _cLoadBalancers = Nothing+    , _cRole = Nothing+    , _cServiceName = pServiceName_+    , _cTaskDefinition = pTaskDefinition_+    , _cDesiredCount = pDesiredCount_     } --- | Unique, case-sensitive identifier you provide to ensure the idempotency of--- the request. Up to 32 ASCII characters are allowed.-cs1ClientToken :: Lens' CreateService (Maybe Text)-cs1ClientToken = lens _cs1ClientToken (\s a -> s { _cs1ClientToken = a })---- | The short name or full Amazon Resource Name (ARN) of the cluster that you--- want to run your service on. If you do not specify a cluster, the default--- cluster is assumed.-cs1Cluster :: Lens' CreateService (Maybe Text)-cs1Cluster = lens _cs1Cluster (\s a -> s { _cs1Cluster = a })+-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- you want to run your service on. 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}); --- | The number of instantiations of the specified task definition that you would--- like to place and keep running on your cluster.-cs1DesiredCount :: Lens' CreateService (Maybe Int)-cs1DesiredCount = lens _cs1DesiredCount (\s a -> s { _cs1DesiredCount = 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});  -- | A list of 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.-cs1LoadBalancers :: Lens' CreateService [LoadBalancer]-cs1LoadBalancers = lens _cs1LoadBalancers (\s a -> s { _cs1LoadBalancers = a }) . _List+-- container name (as it appears in a container definition), and the+-- container port to access from the load balancer.+cLoadBalancers :: Lens' CreateService [LoadBalancer]+cLoadBalancers = lens _cLoadBalancers (\ s a -> s{_cLoadBalancers = a}) . _Default . _Coerce; --- | The name or full Amazon Resource Name (ARN) of the IAM role that allows your--- Amazon ECS container agent to make calls to your load balancer on your--- behalf. This parameter is only required if you are using a load balancer with--- your service.-cs1Role :: Lens' CreateService (Maybe Text)-cs1Role = lens _cs1Role (\s a -> s { _cs1Role = a })+-- | The name or full Amazon Resource Name (ARN) of the IAM role that allows+-- your Amazon ECS container agent to make calls to your load balancer on+-- your behalf. This parameter is only required if you are using a load+-- balancer with your service.+cRole :: Lens' CreateService (Maybe Text)+cRole = lens _cRole (\ s a -> s{_cRole = a});  -- | The name of your service. Up to 255 letters (uppercase and lowercase),--- numbers, hyphens, and underscores are allowed.-cs1ServiceName :: Lens' CreateService Text-cs1ServiceName = lens _cs1ServiceName (\s a -> s { _cs1ServiceName = a })+-- 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}); --- | The 'family' and 'revision' ('family:revision') or full Amazon Resource Name (ARN)--- of the task definition that you want to run in your service.-cs1TaskDefinition :: Lens' CreateService (Maybe Text)-cs1TaskDefinition =-    lens _cs1TaskDefinition (\s a -> s { _cs1TaskDefinition = a })+-- | The 'family' and 'revision' ('family:revision') or full Amazon Resource+-- Name (ARN) of the task definition that you want 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}); -newtype CreateServiceResponse = CreateServiceResponse-    { _csrService :: Maybe ContainerService-    } deriving (Eq, Read, Show)+-- | The number of instantiations of the specified task definition that you+-- would like to place and keep running on your cluster.+cDesiredCount :: Lens' CreateService Int+cDesiredCount = lens _cDesiredCount (\ s a -> s{_cDesiredCount = a}); --- | 'CreateServiceResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'csrService' @::@ 'Maybe' 'ContainerService'----createServiceResponse :: CreateServiceResponse-createServiceResponse = CreateServiceResponse-    { _csrService = Nothing-    }+instance AWSRequest CreateService where+        type Sv CreateService = ECS+        type Rs CreateService = CreateServiceResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateServiceResponse' <$>+                   (x .?> "service") <*> (pure (fromEnum s))) --- | The full description of your service following the create call.-csrService :: Lens' CreateServiceResponse (Maybe ContainerService)-csrService = lens _csrService (\s a -> s { _csrService = a })+instance ToHeaders CreateService where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.CreateService"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON CreateService where+        toJSON CreateService'{..}+          = object+              ["cluster" .= _cCluster,+               "clientToken" .= _cClientToken,+               "loadBalancers" .= _cLoadBalancers, "role" .= _cRole,+               "serviceName" .= _cServiceName,+               "taskDefinition" .= _cTaskDefinition,+               "desiredCount" .= _cDesiredCount]+ instance ToPath CreateService where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateService where-    toQuery = const mempty--instance ToHeaders CreateService+        toQuery = const mempty -instance ToJSON CreateService where-    toJSON CreateService{..} = object-        [ "cluster"        .= _cs1Cluster-        , "serviceName"    .= _cs1ServiceName-        , "taskDefinition" .= _cs1TaskDefinition-        , "loadBalancers"  .= _cs1LoadBalancers-        , "desiredCount"   .= _cs1DesiredCount-        , "clientToken"    .= _cs1ClientToken-        , "role"           .= _cs1Role-        ]+-- | /See:/ 'createServiceResponse' smart constructor.+data CreateServiceResponse = CreateServiceResponse'+    { _csrsService :: !(Maybe ContainerService)+    , _csrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateService where-    type Sv CreateService = ECS-    type Rs CreateService = CreateServiceResponse+-- | Creates a value of 'CreateServiceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csrsService'+--+-- * 'csrsStatus'+createServiceResponse+    :: Int -- ^ 'csrsStatus'+    -> CreateServiceResponse+createServiceResponse pStatus_ =+    CreateServiceResponse'+    { _csrsService = Nothing+    , _csrsStatus = pStatus_+    } -    request  = post "CreateService"-    response = jsonResponse+-- | The full description of your service following the create call.+csrsService :: Lens' CreateServiceResponse (Maybe ContainerService)+csrsService = lens _csrsService (\ s a -> s{_csrsService = a}); -instance FromJSON CreateServiceResponse where-    parseJSON = withObject "CreateServiceResponse" $ \o -> CreateServiceResponse-        <$> o .:? "service"+-- | The response status code.+csrsStatus :: Lens' CreateServiceResponse Int+csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a});

@@ -1,115 +1,130 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DeleteCluster--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified cluster. You must deregister all container instances--- from this cluster before you may delete it. You can list the container--- instances in a cluster with 'ListContainerInstances' and deregister them with 'DeregisterContainerInstance'.+-- Deletes the specified cluster. You must deregister all container+-- instances from this cluster before you may delete it. You can list the+-- container instances in a cluster with ListContainerInstances and+-- deregister them with DeregisterContainerInstance. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DeleteCluster.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DeleteCluster.html AWS API Reference> for DeleteCluster. module Network.AWS.ECS.DeleteCluster     (-    -- * Request-      DeleteCluster-    -- ** Request constructor-    , deleteCluster-    -- ** Request lenses+    -- * Creating a Request+      deleteCluster+    , DeleteCluster+    -- * Request Lenses     , dcCluster -    -- * Response-    , DeleteClusterResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteClusterResponse-    -- ** Response lenses-    , dcrCluster+    , DeleteClusterResponse+    -- * Response Lenses+    , drsCluster+    , drsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteCluster = DeleteCluster+-- | /See:/ 'deleteCluster' smart constructor.+newtype DeleteCluster = DeleteCluster'     { _dcCluster :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteCluster' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteCluster' with the minimum fields required to make a request. ----- * 'dcCluster' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteCluster :: Text -- ^ 'dcCluster'-              -> DeleteCluster-deleteCluster p1 = DeleteCluster-    { _dcCluster = p1+-- * 'dcCluster'+deleteCluster+    :: Text -- ^ 'dcCluster'+    -> DeleteCluster+deleteCluster pCluster_ =+    DeleteCluster'+    { _dcCluster = pCluster_     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that you--- want to delete.+-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- you want to delete. dcCluster :: Lens' DeleteCluster Text-dcCluster = lens _dcCluster (\s a -> s { _dcCluster = a })+dcCluster = lens _dcCluster (\ s a -> s{_dcCluster = a}); -newtype DeleteClusterResponse = DeleteClusterResponse-    { _dcrCluster :: Maybe Cluster-    } deriving (Eq, Read, Show)+instance AWSRequest DeleteCluster where+        type Sv DeleteCluster = ECS+        type Rs DeleteCluster = DeleteClusterResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteClusterResponse' <$>+                   (x .?> "cluster") <*> (pure (fromEnum s))) --- | 'DeleteClusterResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dcrCluster' @::@ 'Maybe' 'Cluster'----deleteClusterResponse :: DeleteClusterResponse-deleteClusterResponse = DeleteClusterResponse-    { _dcrCluster = Nothing-    }+instance ToHeaders DeleteCluster where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DeleteCluster"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The full description of the deleted cluster.-dcrCluster :: Lens' DeleteClusterResponse (Maybe Cluster)-dcrCluster = lens _dcrCluster (\s a -> s { _dcrCluster = a })+instance ToJSON DeleteCluster where+        toJSON DeleteCluster'{..}+          = object ["cluster" .= _dcCluster]  instance ToPath DeleteCluster where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteCluster where-    toQuery = const mempty--instance ToHeaders DeleteCluster+        toQuery = const mempty -instance ToJSON DeleteCluster where-    toJSON DeleteCluster{..} = object-        [ "cluster" .= _dcCluster-        ]+-- | /See:/ 'deleteClusterResponse' smart constructor.+data DeleteClusterResponse = DeleteClusterResponse'+    { _drsCluster :: !(Maybe Cluster)+    , _drsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteCluster where-    type Sv DeleteCluster = ECS-    type Rs DeleteCluster = DeleteClusterResponse+-- | Creates a value of 'DeleteClusterResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsCluster'+--+-- * 'drsStatus'+deleteClusterResponse+    :: Int -- ^ 'drsStatus'+    -> DeleteClusterResponse+deleteClusterResponse pStatus_ =+    DeleteClusterResponse'+    { _drsCluster = Nothing+    , _drsStatus = pStatus_+    } -    request  = post "DeleteCluster"-    response = jsonResponse+-- | The full description of the deleted cluster.+drsCluster :: Lens' DeleteClusterResponse (Maybe Cluster)+drsCluster = lens _drsCluster (\ s a -> s{_drsCluster = a}); -instance FromJSON DeleteClusterResponse where-    parseJSON = withObject "DeleteClusterResponse" $ \o -> DeleteClusterResponse-        <$> o .:? "cluster"+-- | The response status code.+drsStatus :: Lens' DeleteClusterResponse Int+drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});

@@ -1,121 +1,136 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DeleteService--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes a specified service within a cluster.+-- Deletes a specified service within a cluster. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DeleteService.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DeleteService.html AWS API Reference> for DeleteService. module Network.AWS.ECS.DeleteService     (-    -- * Request-      DeleteService-    -- ** Request constructor-    , deleteService-    -- ** Request lenses+    -- * Creating a Request+      deleteService+    , DeleteService+    -- * Request Lenses     , dsCluster     , dsService -    -- * Response-    , DeleteServiceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteServiceResponse-    -- ** Response lenses-    , dsrService+    , DeleteServiceResponse+    -- * Response Lenses+    , dsrsService+    , dsrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DeleteService = DeleteService-    { _dsCluster :: Maybe Text-    , _dsService :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'deleteService' smart constructor.+data DeleteService = DeleteService'+    { _dsCluster :: !(Maybe Text)+    , _dsService :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteService' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteService' with the minimum fields required to make a request. ----- * 'dsCluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dsService' @::@ 'Text'+-- * 'dsCluster' ---deleteService :: Text -- ^ 'dsService'-              -> DeleteService-deleteService p1 = DeleteService-    { _dsService = p1-    , _dsCluster = Nothing+-- * 'dsService'+deleteService+    :: Text -- ^ 'dsService'+    -> DeleteService+deleteService pService_ =+    DeleteService'+    { _dsCluster = Nothing+    , _dsService = pService_     }  -- | The name of the cluster that hosts the service you want to delete. 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 you want to delete. dsService :: Lens' DeleteService Text-dsService = lens _dsService (\s a -> s { _dsService = a })+dsService = lens _dsService (\ s a -> s{_dsService = a}); -newtype DeleteServiceResponse = DeleteServiceResponse-    { _dsrService :: Maybe ContainerService-    } deriving (Eq, Read, Show)+instance AWSRequest DeleteService where+        type Sv DeleteService = ECS+        type Rs DeleteService = DeleteServiceResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteServiceResponse' <$>+                   (x .?> "service") <*> (pure (fromEnum s))) --- | 'DeleteServiceResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsrService' @::@ 'Maybe' 'ContainerService'----deleteServiceResponse :: DeleteServiceResponse-deleteServiceResponse = DeleteServiceResponse-    { _dsrService = Nothing-    }+instance ToHeaders DeleteService where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DeleteService"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -dsrService :: Lens' DeleteServiceResponse (Maybe ContainerService)-dsrService = lens _dsrService (\s a -> s { _dsrService = a })+instance ToJSON DeleteService where+        toJSON DeleteService'{..}+          = object+              ["cluster" .= _dsCluster, "service" .= _dsService]  instance ToPath DeleteService where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteService where-    toQuery = const mempty--instance ToHeaders DeleteService+        toQuery = const mempty -instance ToJSON DeleteService where-    toJSON DeleteService{..} = object-        [ "cluster" .= _dsCluster-        , "service" .= _dsService-        ]+-- | /See:/ 'deleteServiceResponse' smart constructor.+data DeleteServiceResponse = DeleteServiceResponse'+    { _dsrsService :: !(Maybe ContainerService)+    , _dsrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteService where-    type Sv DeleteService = ECS-    type Rs DeleteService = DeleteServiceResponse+-- | Creates a value of 'DeleteServiceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsrsService'+--+-- * 'dsrsStatus'+deleteServiceResponse+    :: Int -- ^ 'dsrsStatus'+    -> DeleteServiceResponse+deleteServiceResponse pStatus_ =+    DeleteServiceResponse'+    { _dsrsService = Nothing+    , _dsrsStatus = pStatus_+    } -    request  = post "DeleteService"-    response = jsonResponse+-- | Undocumented member.+dsrsService :: Lens' DeleteServiceResponse (Maybe ContainerService)+dsrsService = lens _dsrsService (\ s a -> s{_dsrsService = a}); -instance FromJSON DeleteServiceResponse where-    parseJSON = withObject "DeleteServiceResponse" $ \o -> DeleteServiceResponse-        <$> o .:? "service"+-- | The response status code.+dsrsStatus :: Lens' DeleteServiceResponse Int+dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a});

@@ -1,143 +1,177 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DeregisterContainerInstance--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deregisters an Amazon ECS container instance from the specified cluster. This--- instance will no longer be available to run tasks.+-- Deregisters an Amazon ECS container instance from the specified cluster.+-- This instance will no longer be available to run tasks. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DeregisterContainerInstance.html>+-- 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.+--+-- 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.+--+-- When you terminate a container instance, it is automatically+-- deregistered from your cluster.+--+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DeregisterContainerInstance.html AWS API Reference> for DeregisterContainerInstance. module Network.AWS.ECS.DeregisterContainerInstance     (-    -- * Request-      DeregisterContainerInstance-    -- ** Request constructor-    , deregisterContainerInstance-    -- ** Request lenses-    , dci1Cluster-    , dci1ContainerInstance-    , dci1Force+    -- * Creating a Request+      deregisterContainerInstance+    , DeregisterContainerInstance+    -- * Request Lenses+    , derCluster+    , derForce+    , derContainerInstance -    -- * Response-    , DeregisterContainerInstanceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deregisterContainerInstanceResponse-    -- ** Response lenses-    , dcirContainerInstance+    , DeregisterContainerInstanceResponse+    -- * Response Lenses+    , dcirsContainerInstance+    , dcirsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DeregisterContainerInstance = DeregisterContainerInstance-    { _dci1Cluster           :: Maybe Text-    , _dci1ContainerInstance :: Text-    , _dci1Force             :: Maybe Bool-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'deregisterContainerInstance' smart constructor.+data DeregisterContainerInstance = DeregisterContainerInstance'+    { _derCluster           :: !(Maybe Text)+    , _derForce             :: !(Maybe Bool)+    , _derContainerInstance :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeregisterContainerInstance' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeregisterContainerInstance' with the minimum fields required to make a request. ----- * 'dci1Cluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dci1ContainerInstance' @::@ 'Text'+-- * 'derCluster' ----- * 'dci1Force' @::@ 'Maybe' 'Bool'+-- * 'derForce' ---deregisterContainerInstance :: Text -- ^ 'dci1ContainerInstance'-                            -> DeregisterContainerInstance-deregisterContainerInstance p1 = DeregisterContainerInstance-    { _dci1ContainerInstance = p1-    , _dci1Cluster           = Nothing-    , _dci1Force             = Nothing+-- * 'derContainerInstance'+deregisterContainerInstance+    :: Text -- ^ 'derContainerInstance'+    -> DeregisterContainerInstance+deregisterContainerInstance pContainerInstance_ =+    DeregisterContainerInstance'+    { _derCluster = Nothing+    , _derForce = Nothing+    , _derContainerInstance = pContainerInstance_     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts--- the container instance you want to deregister. If you do not specify a--- cluster, the default cluster is assumed.-dci1Cluster :: Lens' DeregisterContainerInstance (Maybe Text)-dci1Cluster = lens _dci1Cluster (\s a -> s { _dci1Cluster = a })+-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- hosts the container instance you want 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}); --- | The container instance UUID or full Amazon Resource Name (ARN) of the--- container instance you want 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 UUID. For example, arn:aws:ecs:/region/:/aws_account_id/:container-instance//container_instance_UUID/.-dci1ContainerInstance :: Lens' DeregisterContainerInstance Text-dci1ContainerInstance =-    lens _dci1ContainerInstance (\s a -> s { _dci1ContainerInstance = a })+-- | Force 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 and they will continue to+-- pass Elastic Load Balancing load balancer health checks 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 will start another copy of that task+-- on a different container instance if possible.+derForce :: Lens' DeregisterContainerInstance (Maybe Bool)+derForce = lens _derForce (\ s a -> s{_derForce = a}); --- | Force the deregistration of the container instance. You can use the 'force'--- parameter if you have several tasks running on a container instance and you--- don't want to run 'StopTask' for each task before deregistering the container--- instance.-dci1Force :: Lens' DeregisterContainerInstance (Maybe Bool)-dci1Force = lens _dci1Force (\s a -> s { _dci1Force = a })+-- | The container instance UUID or full Amazon Resource Name (ARN) of the+-- container instance you want 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 UUID.+-- For example,+-- arn:aws:ecs:/region/:/aws_account_id/:container-instance\//container_instance_UUID/.+derContainerInstance :: Lens' DeregisterContainerInstance Text+derContainerInstance = lens _derContainerInstance (\ s a -> s{_derContainerInstance = a}); -newtype DeregisterContainerInstanceResponse = DeregisterContainerInstanceResponse-    { _dcirContainerInstance :: Maybe ContainerInstance-    } deriving (Eq, Read, Show)+instance AWSRequest DeregisterContainerInstance where+        type Sv DeregisterContainerInstance = ECS+        type Rs DeregisterContainerInstance =+             DeregisterContainerInstanceResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeregisterContainerInstanceResponse' <$>+                   (x .?> "containerInstance") <*> (pure (fromEnum s))) --- | 'DeregisterContainerInstanceResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dcirContainerInstance' @::@ 'Maybe' 'ContainerInstance'----deregisterContainerInstanceResponse :: DeregisterContainerInstanceResponse-deregisterContainerInstanceResponse = DeregisterContainerInstanceResponse-    { _dcirContainerInstance = Nothing-    }+instance ToHeaders DeregisterContainerInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DeregisterContainerInstance"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -dcirContainerInstance :: Lens' DeregisterContainerInstanceResponse (Maybe ContainerInstance)-dcirContainerInstance =-    lens _dcirContainerInstance (\s a -> s { _dcirContainerInstance = a })+instance ToJSON DeregisterContainerInstance where+        toJSON DeregisterContainerInstance'{..}+          = object+              ["cluster" .= _derCluster, "force" .= _derForce,+               "containerInstance" .= _derContainerInstance]  instance ToPath DeregisterContainerInstance where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeregisterContainerInstance where-    toQuery = const mempty--instance ToHeaders DeregisterContainerInstance+        toQuery = const mempty -instance ToJSON DeregisterContainerInstance where-    toJSON DeregisterContainerInstance{..} = object-        [ "cluster"           .= _dci1Cluster-        , "containerInstance" .= _dci1ContainerInstance-        , "force"             .= _dci1Force-        ]+-- | /See:/ 'deregisterContainerInstanceResponse' smart constructor.+data DeregisterContainerInstanceResponse = DeregisterContainerInstanceResponse'+    { _dcirsContainerInstance :: !(Maybe ContainerInstance)+    , _dcirsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeregisterContainerInstance where-    type Sv DeregisterContainerInstance = ECS-    type Rs DeregisterContainerInstance = DeregisterContainerInstanceResponse+-- | Creates a value of 'DeregisterContainerInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcirsContainerInstance'+--+-- * 'dcirsStatus'+deregisterContainerInstanceResponse+    :: Int -- ^ 'dcirsStatus'+    -> DeregisterContainerInstanceResponse+deregisterContainerInstanceResponse pStatus_ =+    DeregisterContainerInstanceResponse'+    { _dcirsContainerInstance = Nothing+    , _dcirsStatus = pStatus_+    } -    request  = post "DeregisterContainerInstance"-    response = jsonResponse+-- | Undocumented member.+dcirsContainerInstance :: Lens' DeregisterContainerInstanceResponse (Maybe ContainerInstance)+dcirsContainerInstance = lens _dcirsContainerInstance (\ s a -> s{_dcirsContainerInstance = a}); -instance FromJSON DeregisterContainerInstanceResponse where-    parseJSON = withObject "DeregisterContainerInstanceResponse" $ \o -> DeregisterContainerInstanceResponse-        <$> o .:? "containerInstance"+-- | The response status code.+dcirsStatus :: Lens' DeregisterContainerInstanceResponse Int+dcirsStatus = lens _dcirsStatus (\ s a -> s{_dcirsStatus = a});

@@ -1,118 +1,140 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DeregisterTaskDefinition--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | NOT YET IMPLEMENTED.+-- 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. ----- Deregisters the specified task definition. You will no longer be able to run--- tasks from this definition after deregistration.+-- 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). ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DeregisterTaskDefinition.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DeregisterTaskDefinition.html AWS API Reference> for DeregisterTaskDefinition. module Network.AWS.ECS.DeregisterTaskDefinition     (-    -- * Request-      DeregisterTaskDefinition-    -- ** Request constructor-    , deregisterTaskDefinition-    -- ** Request lenses-    , dtd1TaskDefinition+    -- * Creating a Request+      deregisterTaskDefinition+    , DeregisterTaskDefinition+    -- * Request Lenses+    , derTaskDefinition -    -- * Response-    , DeregisterTaskDefinitionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deregisterTaskDefinitionResponse-    -- ** Response lenses-    , dtdrTaskDefinition+    , DeregisterTaskDefinitionResponse+    -- * Response Lenses+    , dtdrsTaskDefinition+    , dtdrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeregisterTaskDefinition = DeregisterTaskDefinition-    { _dtd1TaskDefinition :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+-- | /See:/ 'deregisterTaskDefinition' smart constructor.+newtype DeregisterTaskDefinition = DeregisterTaskDefinition'+    { _derTaskDefinition :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeregisterTaskDefinition' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeregisterTaskDefinition' with the minimum fields required to make a request. ----- * 'dtd1TaskDefinition' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deregisterTaskDefinition :: Text -- ^ 'dtd1TaskDefinition'-                         -> DeregisterTaskDefinition-deregisterTaskDefinition p1 = DeregisterTaskDefinition-    { _dtd1TaskDefinition = p1+-- * 'derTaskDefinition'+deregisterTaskDefinition+    :: Text -- ^ 'derTaskDefinition'+    -> DeregisterTaskDefinition+deregisterTaskDefinition pTaskDefinition_ =+    DeregisterTaskDefinition'+    { _derTaskDefinition = pTaskDefinition_     } --- | The 'family' and 'revision' ('family:revision') or full Amazon Resource Name (ARN)--- of the task definition that you want to deregister.-dtd1TaskDefinition :: Lens' DeregisterTaskDefinition Text-dtd1TaskDefinition =-    lens _dtd1TaskDefinition (\s a -> s { _dtd1TaskDefinition = a })+-- | The 'family' and 'revision' ('family:revision') or full Amazon Resource+-- Name (ARN) of the task definition that you want to deregister. You must+-- specify a 'revision'.+derTaskDefinition :: Lens' DeregisterTaskDefinition Text+derTaskDefinition = lens _derTaskDefinition (\ s a -> s{_derTaskDefinition = a}); -newtype DeregisterTaskDefinitionResponse = DeregisterTaskDefinitionResponse-    { _dtdrTaskDefinition :: Maybe TaskDefinition-    } deriving (Eq, Read, Show)+instance AWSRequest DeregisterTaskDefinition where+        type Sv DeregisterTaskDefinition = ECS+        type Rs DeregisterTaskDefinition =+             DeregisterTaskDefinitionResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeregisterTaskDefinitionResponse' <$>+                   (x .?> "taskDefinition") <*> (pure (fromEnum s))) --- | 'DeregisterTaskDefinitionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dtdrTaskDefinition' @::@ 'Maybe' 'TaskDefinition'----deregisterTaskDefinitionResponse :: DeregisterTaskDefinitionResponse-deregisterTaskDefinitionResponse = DeregisterTaskDefinitionResponse-    { _dtdrTaskDefinition = Nothing-    }+instance ToHeaders DeregisterTaskDefinition where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DeregisterTaskDefinition"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The full description of the deregistered task.-dtdrTaskDefinition :: Lens' DeregisterTaskDefinitionResponse (Maybe TaskDefinition)-dtdrTaskDefinition =-    lens _dtdrTaskDefinition (\s a -> s { _dtdrTaskDefinition = a })+instance ToJSON DeregisterTaskDefinition where+        toJSON DeregisterTaskDefinition'{..}+          = object ["taskDefinition" .= _derTaskDefinition]  instance ToPath DeregisterTaskDefinition where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeregisterTaskDefinition where-    toQuery = const mempty--instance ToHeaders DeregisterTaskDefinition+        toQuery = const mempty -instance ToJSON DeregisterTaskDefinition where-    toJSON DeregisterTaskDefinition{..} = object-        [ "taskDefinition" .= _dtd1TaskDefinition-        ]+-- | /See:/ 'deregisterTaskDefinitionResponse' smart constructor.+data DeregisterTaskDefinitionResponse = DeregisterTaskDefinitionResponse'+    { _dtdrsTaskDefinition :: !(Maybe TaskDefinition)+    , _dtdrsStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeregisterTaskDefinition where-    type Sv DeregisterTaskDefinition = ECS-    type Rs DeregisterTaskDefinition = DeregisterTaskDefinitionResponse+-- | Creates a value of 'DeregisterTaskDefinitionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtdrsTaskDefinition'+--+-- * 'dtdrsStatus'+deregisterTaskDefinitionResponse+    :: Int -- ^ 'dtdrsStatus'+    -> DeregisterTaskDefinitionResponse+deregisterTaskDefinitionResponse pStatus_ =+    DeregisterTaskDefinitionResponse'+    { _dtdrsTaskDefinition = Nothing+    , _dtdrsStatus = pStatus_+    } -    request  = post "DeregisterTaskDefinition"-    response = jsonResponse+-- | The full description of the deregistered task.+dtdrsTaskDefinition :: Lens' DeregisterTaskDefinitionResponse (Maybe TaskDefinition)+dtdrsTaskDefinition = lens _dtdrsTaskDefinition (\ s a -> s{_dtdrsTaskDefinition = a}); -instance FromJSON DeregisterTaskDefinitionResponse where-    parseJSON = withObject "DeregisterTaskDefinitionResponse" $ \o -> DeregisterTaskDefinitionResponse-        <$> o .:? "taskDefinition"+-- | The response status code.+dtdrsStatus :: Lens' DeregisterTaskDefinitionResponse Int+dtdrsStatus = lens _dtdrsStatus (\ s a -> s{_dtdrsStatus = a});

@@ -1,128 +1,138 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DescribeClusters--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes one or more of your clusters.+-- Describes one or more of your clusters. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeClusters.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeClusters.html AWS API Reference> for DescribeClusters. module Network.AWS.ECS.DescribeClusters     (-    -- * Request-      DescribeClusters-    -- ** Request constructor-    , describeClusters-    -- ** Request lenses+    -- * Creating a Request+      describeClusters+    , DescribeClusters+    -- * Request Lenses     , dcClusters -    -- * Response-    , DescribeClustersResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeClustersResponse-    -- ** Response lenses-    , dcrClusters-    , dcrFailures+    , DescribeClustersResponse+    -- * Response Lenses+    , dcrsFailures+    , dcrsClusters+    , dcrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts--newtype DescribeClusters = DescribeClusters-    { _dcClusters :: List "clusters" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeClusters where-    type Item DescribeClusters = Text+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -    fromList = DescribeClusters . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dcClusters+-- | /See:/ 'describeClusters' smart constructor.+newtype DescribeClusters = DescribeClusters'+    { _dcClusters :: Maybe [Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeClusters' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeClusters' with the minimum fields required to make a request. ----- * 'dcClusters' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ---describeClusters :: DescribeClusters-describeClusters = DescribeClusters-    { _dcClusters = mempty+-- * 'dcClusters'+describeClusters+    :: DescribeClusters+describeClusters =+    DescribeClusters'+    { _dcClusters = Nothing     } --- | A space-separated list of cluster names or full cluster Amazon Resource Name--- (ARN) entries. If you do not specify a cluster, the default cluster is--- assumed.+-- | A space-separated list of 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 }) . _List--data DescribeClustersResponse = DescribeClustersResponse-    { _dcrClusters :: List "clusters" Cluster-    , _dcrFailures :: List "failures" Failure-    } deriving (Eq, Read, Show)+dcClusters = lens _dcClusters (\ s a -> s{_dcClusters = a}) . _Default . _Coerce; --- | 'DescribeClustersResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dcrClusters' @::@ ['Cluster']------ * 'dcrFailures' @::@ ['Failure']----describeClustersResponse :: DescribeClustersResponse-describeClustersResponse = DescribeClustersResponse-    { _dcrClusters = mempty-    , _dcrFailures = mempty-    }+instance AWSRequest DescribeClusters where+        type Sv DescribeClusters = ECS+        type Rs DescribeClusters = DescribeClustersResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeClustersResponse' <$>+                   (x .?> "failures" .!@ mempty) <*>+                     (x .?> "clusters" .!@ mempty)+                     <*> (pure (fromEnum s))) --- | The list of clusters.-dcrClusters :: Lens' DescribeClustersResponse [Cluster]-dcrClusters = lens _dcrClusters (\s a -> s { _dcrClusters = a }) . _List+instance ToHeaders DescribeClusters where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DescribeClusters"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -dcrFailures :: Lens' DescribeClustersResponse [Failure]-dcrFailures = lens _dcrFailures (\s a -> s { _dcrFailures = a }) . _List+instance ToJSON DescribeClusters where+        toJSON DescribeClusters'{..}+          = object ["clusters" .= _dcClusters]  instance ToPath DescribeClusters where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeClusters where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DescribeClusters+-- | /See:/ 'describeClustersResponse' smart constructor.+data DescribeClustersResponse = DescribeClustersResponse'+    { _dcrsFailures :: !(Maybe [Failure])+    , _dcrsClusters :: !(Maybe [Cluster])+    , _dcrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DescribeClusters where-    toJSON DescribeClusters{..} = object-        [ "clusters" .= _dcClusters-        ]+-- | Creates a value of 'DescribeClustersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcrsFailures'+--+-- * 'dcrsClusters'+--+-- * 'dcrsStatus'+describeClustersResponse+    :: Int -- ^ 'dcrsStatus'+    -> DescribeClustersResponse+describeClustersResponse pStatus_ =+    DescribeClustersResponse'+    { _dcrsFailures = Nothing+    , _dcrsClusters = Nothing+    , _dcrsStatus = pStatus_+    } -instance AWSRequest DescribeClusters where-    type Sv DescribeClusters = ECS-    type Rs DescribeClusters = DescribeClustersResponse+-- | Undocumented member.+dcrsFailures :: Lens' DescribeClustersResponse [Failure]+dcrsFailures = lens _dcrsFailures (\ s a -> s{_dcrsFailures = a}) . _Default . _Coerce; -    request  = post "DescribeClusters"-    response = jsonResponse+-- | The list of clusters.+dcrsClusters :: Lens' DescribeClustersResponse [Cluster]+dcrsClusters = lens _dcrsClusters (\ s a -> s{_dcrsClusters = a}) . _Default . _Coerce; -instance FromJSON DescribeClustersResponse where-    parseJSON = withObject "DescribeClustersResponse" $ \o -> DescribeClustersResponse-        <$> o .:? "clusters" .!= mempty-        <*> o .:? "failures" .!= mempty+-- | The response status code.+dcrsStatus :: Lens' DescribeClustersResponse Int+dcrsStatus = lens _dcrsStatus (\ s a -> s{_dcrsStatus = a});

@@ -1,138 +1,153 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DescribeContainerInstances--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes Amazon EC2 Container Service container instances. Returns metadata--- about registered and remaining resources on each container instance requested.+-- Describes Amazon EC2 Container Service container instances. Returns+-- metadata about registered and remaining resources on each container+-- instance requested. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeContainerInstances.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeContainerInstances.html AWS API Reference> for DescribeContainerInstances. module Network.AWS.ECS.DescribeContainerInstances     (-    -- * Request-      DescribeContainerInstances-    -- ** Request constructor-    , describeContainerInstances-    -- ** Request lenses+    -- * Creating a Request+      describeContainerInstances+    , DescribeContainerInstances+    -- * Request Lenses     , dciCluster     , dciContainerInstances -    -- * Response-    , DescribeContainerInstancesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeContainerInstancesResponse-    -- ** Response lenses-    , dcirContainerInstances-    , dcirFailures+    , DescribeContainerInstancesResponse+    -- * Response Lenses+    , dcisrsFailures+    , dcisrsContainerInstances+    , dcisrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeContainerInstances = DescribeContainerInstances-    { _dciCluster            :: Maybe Text-    , _dciContainerInstances :: List "containerInstances" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeContainerInstances' smart constructor.+data DescribeContainerInstances = DescribeContainerInstances'+    { _dciCluster            :: !(Maybe Text)+    , _dciContainerInstances :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeContainerInstances' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeContainerInstances' with the minimum fields required to make a request. ----- * 'dciCluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dciContainerInstances' @::@ ['Text']+-- * 'dciCluster' ---describeContainerInstances :: DescribeContainerInstances-describeContainerInstances = DescribeContainerInstances-    { _dciCluster            = Nothing+-- * 'dciContainerInstances'+describeContainerInstances+    :: DescribeContainerInstances+describeContainerInstances =+    DescribeContainerInstances'+    { _dciCluster = Nothing     , _dciContainerInstances = mempty     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts--- the container instances you want to describe. If you do not specify a--- cluster, the default cluster is assumed.+-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- hosts the container instances you want 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 space-separated list of container instance UUIDs or full Amazon Resource--- Name (ARN) entries.+-- | A space-separated list of container instance UUIDs or full Amazon+-- Resource Name (ARN) entries. dciContainerInstances :: Lens' DescribeContainerInstances [Text]-dciContainerInstances =-    lens _dciContainerInstances (\s a -> s { _dciContainerInstances = a })-        . _List--data DescribeContainerInstancesResponse = DescribeContainerInstancesResponse-    { _dcirContainerInstances :: List "containerInstances" ContainerInstance-    , _dcirFailures           :: List "failures" Failure-    } deriving (Eq, Read, Show)+dciContainerInstances = lens _dciContainerInstances (\ s a -> s{_dciContainerInstances = a}) . _Coerce; --- | 'DescribeContainerInstancesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dcirContainerInstances' @::@ ['ContainerInstance']------ * 'dcirFailures' @::@ ['Failure']----describeContainerInstancesResponse :: DescribeContainerInstancesResponse-describeContainerInstancesResponse = DescribeContainerInstancesResponse-    { _dcirContainerInstances = mempty-    , _dcirFailures           = mempty-    }+instance AWSRequest DescribeContainerInstances where+        type Sv DescribeContainerInstances = ECS+        type Rs DescribeContainerInstances =+             DescribeContainerInstancesResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeContainerInstancesResponse' <$>+                   (x .?> "failures" .!@ mempty) <*>+                     (x .?> "containerInstances" .!@ mempty)+                     <*> (pure (fromEnum s))) --- | The list of container instances.-dcirContainerInstances :: Lens' DescribeContainerInstancesResponse [ContainerInstance]-dcirContainerInstances =-    lens _dcirContainerInstances (\s a -> s { _dcirContainerInstances = a })-        . _List+instance ToHeaders DescribeContainerInstances where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DescribeContainerInstances"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -dcirFailures :: Lens' DescribeContainerInstancesResponse [Failure]-dcirFailures = lens _dcirFailures (\s a -> s { _dcirFailures = a }) . _List+instance ToJSON DescribeContainerInstances where+        toJSON DescribeContainerInstances'{..}+          = object+              ["cluster" .= _dciCluster,+               "containerInstances" .= _dciContainerInstances]  instance ToPath DescribeContainerInstances where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeContainerInstances where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DescribeContainerInstances+-- | /See:/ 'describeContainerInstancesResponse' smart constructor.+data DescribeContainerInstancesResponse = DescribeContainerInstancesResponse'+    { _dcisrsFailures           :: !(Maybe [Failure])+    , _dcisrsContainerInstances :: !(Maybe [ContainerInstance])+    , _dcisrsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DescribeContainerInstances where-    toJSON DescribeContainerInstances{..} = object-        [ "cluster"            .= _dciCluster-        , "containerInstances" .= _dciContainerInstances-        ]+-- | Creates a value of 'DescribeContainerInstancesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcisrsFailures'+--+-- * 'dcisrsContainerInstances'+--+-- * 'dcisrsStatus'+describeContainerInstancesResponse+    :: Int -- ^ 'dcisrsStatus'+    -> DescribeContainerInstancesResponse+describeContainerInstancesResponse pStatus_ =+    DescribeContainerInstancesResponse'+    { _dcisrsFailures = Nothing+    , _dcisrsContainerInstances = Nothing+    , _dcisrsStatus = pStatus_+    } -instance AWSRequest DescribeContainerInstances where-    type Sv DescribeContainerInstances = ECS-    type Rs DescribeContainerInstances = DescribeContainerInstancesResponse+-- | Undocumented member.+dcisrsFailures :: Lens' DescribeContainerInstancesResponse [Failure]+dcisrsFailures = lens _dcisrsFailures (\ s a -> s{_dcisrsFailures = a}) . _Default . _Coerce; -    request  = post "DescribeContainerInstances"-    response = jsonResponse+-- | The list of container instances.+dcisrsContainerInstances :: Lens' DescribeContainerInstancesResponse [ContainerInstance]+dcisrsContainerInstances = lens _dcisrsContainerInstances (\ s a -> s{_dcisrsContainerInstances = a}) . _Default . _Coerce; -instance FromJSON DescribeContainerInstancesResponse where-    parseJSON = withObject "DescribeContainerInstancesResponse" $ \o -> DescribeContainerInstancesResponse-        <$> o .:? "containerInstances" .!= mempty-        <*> o .:? "failures" .!= mempty+-- | The response status code.+dcisrsStatus :: Lens' DescribeContainerInstancesResponse Int+dcisrsStatus = lens _dcisrsStatus (\ s a -> s{_dcisrsStatus = a});

@@ -1,131 +1,146 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DescribeServices--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the specified services running in your cluster.+-- Describes the specified services running in your cluster. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeServices.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeServices.html AWS API Reference> for DescribeServices. module Network.AWS.ECS.DescribeServices     (-    -- * Request-      DescribeServices-    -- ** Request constructor-    , describeServices-    -- ** Request lenses-    , ds1Cluster-    , ds1Services+    -- * Creating a Request+      describeServices+    , DescribeServices+    -- * Request Lenses+    , dCluster+    , dServices -    -- * Response-    , DescribeServicesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeServicesResponse-    -- ** Response lenses-    , dsrFailures-    , dsrServices+    , DescribeServicesResponse+    -- * Response Lenses+    , dssrsFailures+    , dssrsServices+    , dssrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeServices = DescribeServices-    { _ds1Cluster  :: Maybe Text-    , _ds1Services :: List "services" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeServices' smart constructor.+data DescribeServices = DescribeServices'+    { _dCluster  :: !(Maybe Text)+    , _dServices :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeServices' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeServices' with the minimum fields required to make a request. ----- * 'ds1Cluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ds1Services' @::@ ['Text']+-- * 'dCluster' ---describeServices :: DescribeServices-describeServices = DescribeServices-    { _ds1Cluster  = Nothing-    , _ds1Services = mempty+-- * 'dServices'+describeServices+    :: DescribeServices+describeServices =+    DescribeServices'+    { _dCluster = Nothing+    , _dServices = mempty     }  -- | The name of the cluster that hosts the service you want to describe.-ds1Cluster :: Lens' DescribeServices (Maybe Text)-ds1Cluster = lens _ds1Cluster (\s a -> s { _ds1Cluster = a })+dCluster :: Lens' DescribeServices (Maybe Text)+dCluster = lens _dCluster (\ s a -> s{_dCluster = a});  -- | A list of services you want to describe.-ds1Services :: Lens' DescribeServices [Text]-ds1Services = lens _ds1Services (\s a -> s { _ds1Services = a }) . _List--data DescribeServicesResponse = DescribeServicesResponse-    { _dsrFailures :: List "failures" Failure-    , _dsrServices :: List "services" ContainerService-    } deriving (Eq, Read, Show)+dServices :: Lens' DescribeServices [Text]+dServices = lens _dServices (\ s a -> s{_dServices = a}) . _Coerce; --- | 'DescribeServicesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsrFailures' @::@ ['Failure']------ * 'dsrServices' @::@ ['ContainerService']----describeServicesResponse :: DescribeServicesResponse-describeServicesResponse = DescribeServicesResponse-    { _dsrServices = mempty-    , _dsrFailures = mempty-    }+instance AWSRequest DescribeServices where+        type Sv DescribeServices = ECS+        type Rs DescribeServices = DescribeServicesResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeServicesResponse' <$>+                   (x .?> "failures" .!@ mempty) <*>+                     (x .?> "services" .!@ mempty)+                     <*> (pure (fromEnum s))) --- | Any failures associated with the call.-dsrFailures :: Lens' DescribeServicesResponse [Failure]-dsrFailures = lens _dsrFailures (\s a -> s { _dsrFailures = a }) . _List+instance ToHeaders DescribeServices where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DescribeServices"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The list of services described.-dsrServices :: Lens' DescribeServicesResponse [ContainerService]-dsrServices = lens _dsrServices (\s a -> s { _dsrServices = a }) . _List+instance ToJSON DescribeServices where+        toJSON DescribeServices'{..}+          = object+              ["cluster" .= _dCluster, "services" .= _dServices]  instance ToPath DescribeServices where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeServices where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DescribeServices+-- | /See:/ 'describeServicesResponse' smart constructor.+data DescribeServicesResponse = DescribeServicesResponse'+    { _dssrsFailures :: !(Maybe [Failure])+    , _dssrsServices :: !(Maybe [ContainerService])+    , _dssrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DescribeServices where-    toJSON DescribeServices{..} = object-        [ "cluster"  .= _ds1Cluster-        , "services" .= _ds1Services-        ]+-- | Creates a value of 'DescribeServicesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dssrsFailures'+--+-- * 'dssrsServices'+--+-- * 'dssrsStatus'+describeServicesResponse+    :: Int -- ^ 'dssrsStatus'+    -> DescribeServicesResponse+describeServicesResponse pStatus_ =+    DescribeServicesResponse'+    { _dssrsFailures = Nothing+    , _dssrsServices = Nothing+    , _dssrsStatus = pStatus_+    } -instance AWSRequest DescribeServices where-    type Sv DescribeServices = ECS-    type Rs DescribeServices = DescribeServicesResponse+-- | Any failures associated with the call.+dssrsFailures :: Lens' DescribeServicesResponse [Failure]+dssrsFailures = lens _dssrsFailures (\ s a -> s{_dssrsFailures = a}) . _Default . _Coerce; -    request  = post "DescribeServices"-    response = jsonResponse+-- | The list of services described.+dssrsServices :: Lens' DescribeServicesResponse [ContainerService]+dssrsServices = lens _dssrsServices (\ s a -> s{_dssrsServices = a}) . _Default . _Coerce; -instance FromJSON DescribeServicesResponse where-    parseJSON = withObject "DescribeServicesResponse" $ \o -> DescribeServicesResponse-        <$> o .:? "failures" .!= mempty-        <*> o .:? "services" .!= mempty+-- | The response status code.+dssrsStatus :: Lens' DescribeServicesResponse Int+dssrsStatus = lens _dssrsStatus (\ s a -> s{_dssrsStatus = a});

@@ -1,118 +1,135 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DescribeTaskDefinition--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes a task definition. You can specify a 'family' and 'revision' to find--- information on a specific task definition, or you can simply specify the--- family to find the latest revision in that family.+-- Describes a task definition. You can specify a 'family' and 'revision'+-- to find information on a specific task definition, or you can simply+-- specify the family to find the latest 'ACTIVE' revision in that family. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeTaskDefinition.html>+-- You can only describe 'INACTIVE' task definitions while an active task+-- or service references them.+--+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeTaskDefinition.html AWS API Reference> for DescribeTaskDefinition. module Network.AWS.ECS.DescribeTaskDefinition     (-    -- * Request-      DescribeTaskDefinition-    -- ** Request constructor-    , describeTaskDefinition-    -- ** Request lenses+    -- * Creating a Request+      describeTaskDefinition+    , DescribeTaskDefinition+    -- * Request Lenses     , dtdTaskDefinition -    -- * Response-    , DescribeTaskDefinitionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeTaskDefinitionResponse-    -- ** Response lenses-    , dtdr1TaskDefinition+    , DescribeTaskDefinitionResponse+    -- * Response Lenses+    , desrsTaskDefinition+    , desrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DescribeTaskDefinition = DescribeTaskDefinition+-- | /See:/ 'describeTaskDefinition' smart constructor.+newtype DescribeTaskDefinition = DescribeTaskDefinition'     { _dtdTaskDefinition :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeTaskDefinition' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeTaskDefinition' with the minimum fields required to make a request. ----- * 'dtdTaskDefinition' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---describeTaskDefinition :: Text -- ^ 'dtdTaskDefinition'-                       -> DescribeTaskDefinition-describeTaskDefinition p1 = DescribeTaskDefinition-    { _dtdTaskDefinition = p1+-- * 'dtdTaskDefinition'+describeTaskDefinition+    :: Text -- ^ 'dtdTaskDefinition'+    -> DescribeTaskDefinition+describeTaskDefinition pTaskDefinition_ =+    DescribeTaskDefinition'+    { _dtdTaskDefinition = pTaskDefinition_     } --- | The 'family' for the latest revision, 'family' and 'revision' ('family:revision') for--- a specific revision in the family, or full Amazon Resource Name (ARN) of the--- task definition that you want to describe.+-- | 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 that you want to+-- describe. dtdTaskDefinition :: Lens' DescribeTaskDefinition Text-dtdTaskDefinition =-    lens _dtdTaskDefinition (\s a -> s { _dtdTaskDefinition = a })+dtdTaskDefinition = lens _dtdTaskDefinition (\ s a -> s{_dtdTaskDefinition = a}); -newtype DescribeTaskDefinitionResponse = DescribeTaskDefinitionResponse-    { _dtdr1TaskDefinition :: Maybe TaskDefinition-    } deriving (Eq, Read, Show)+instance AWSRequest DescribeTaskDefinition where+        type Sv DescribeTaskDefinition = ECS+        type Rs DescribeTaskDefinition =+             DescribeTaskDefinitionResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeTaskDefinitionResponse' <$>+                   (x .?> "taskDefinition") <*> (pure (fromEnum s))) --- | 'DescribeTaskDefinitionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dtdr1TaskDefinition' @::@ 'Maybe' 'TaskDefinition'----describeTaskDefinitionResponse :: DescribeTaskDefinitionResponse-describeTaskDefinitionResponse = DescribeTaskDefinitionResponse-    { _dtdr1TaskDefinition = Nothing-    }+instance ToHeaders DescribeTaskDefinition where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DescribeTaskDefinition"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The full task definition description.-dtdr1TaskDefinition :: Lens' DescribeTaskDefinitionResponse (Maybe TaskDefinition)-dtdr1TaskDefinition =-    lens _dtdr1TaskDefinition (\s a -> s { _dtdr1TaskDefinition = a })+instance ToJSON DescribeTaskDefinition where+        toJSON DescribeTaskDefinition'{..}+          = object ["taskDefinition" .= _dtdTaskDefinition]  instance ToPath DescribeTaskDefinition where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeTaskDefinition where-    toQuery = const mempty--instance ToHeaders DescribeTaskDefinition+        toQuery = const mempty -instance ToJSON DescribeTaskDefinition where-    toJSON DescribeTaskDefinition{..} = object-        [ "taskDefinition" .= _dtdTaskDefinition-        ]+-- | /See:/ 'describeTaskDefinitionResponse' smart constructor.+data DescribeTaskDefinitionResponse = DescribeTaskDefinitionResponse'+    { _desrsTaskDefinition :: !(Maybe TaskDefinition)+    , _desrsStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeTaskDefinition where-    type Sv DescribeTaskDefinition = ECS-    type Rs DescribeTaskDefinition = DescribeTaskDefinitionResponse+-- | Creates a value of 'DescribeTaskDefinitionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'desrsTaskDefinition'+--+-- * 'desrsStatus'+describeTaskDefinitionResponse+    :: Int -- ^ 'desrsStatus'+    -> DescribeTaskDefinitionResponse+describeTaskDefinitionResponse pStatus_ =+    DescribeTaskDefinitionResponse'+    { _desrsTaskDefinition = Nothing+    , _desrsStatus = pStatus_+    } -    request  = post "DescribeTaskDefinition"-    response = jsonResponse+-- | The full task definition description.+desrsTaskDefinition :: Lens' DescribeTaskDefinitionResponse (Maybe TaskDefinition)+desrsTaskDefinition = lens _desrsTaskDefinition (\ s a -> s{_desrsTaskDefinition = a}); -instance FromJSON DescribeTaskDefinitionResponse where-    parseJSON = withObject "DescribeTaskDefinitionResponse" $ \o -> DescribeTaskDefinitionResponse-        <$> o .:? "taskDefinition"+-- | The response status code.+desrsStatus :: Lens' DescribeTaskDefinitionResponse Int+desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});

@@ -1,133 +1,149 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DescribeTasks--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes a specified task or tasks.+-- Describes a specified task or tasks. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeTasks.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeTasks.html AWS API Reference> for DescribeTasks. module Network.AWS.ECS.DescribeTasks     (-    -- * Request-      DescribeTasks-    -- ** Request constructor-    , describeTasks-    -- ** Request lenses+    -- * Creating a Request+      describeTasks+    , DescribeTasks+    -- * Request Lenses     , dtCluster     , dtTasks -    -- * Response-    , DescribeTasksResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeTasksResponse-    -- ** Response lenses-    , dtrFailures-    , dtrTasks+    , DescribeTasksResponse+    -- * Response Lenses+    , dtrsFailures+    , dtrsTasks+    , dtrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeTasks = DescribeTasks-    { _dtCluster :: Maybe Text-    , _dtTasks   :: List "tasks" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeTasks' smart constructor.+data DescribeTasks = DescribeTasks'+    { _dtCluster :: !(Maybe Text)+    , _dtTasks   :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeTasks' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeTasks' with the minimum fields required to make a request. ----- * 'dtCluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dtTasks' @::@ ['Text']+-- * 'dtCluster' ---describeTasks :: DescribeTasks-describeTasks = DescribeTasks+-- * 'dtTasks'+describeTasks+    :: DescribeTasks+describeTasks =+    DescribeTasks'     { _dtCluster = Nothing-    , _dtTasks   = mempty+    , _dtTasks = mempty     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts--- the task you want to describe. If you do not specify a cluster, the default--- cluster is assumed.+-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- hosts the task you want 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 space-separated list of task UUIDs or full Amazon Resource Name (ARN) -- entries. dtTasks :: Lens' DescribeTasks [Text]-dtTasks = lens _dtTasks (\s a -> s { _dtTasks = a }) . _List--data DescribeTasksResponse = DescribeTasksResponse-    { _dtrFailures :: List "failures" Failure-    , _dtrTasks    :: List "tasks" Task-    } deriving (Eq, Read, Show)+dtTasks = lens _dtTasks (\ s a -> s{_dtTasks = a}) . _Coerce; --- | 'DescribeTasksResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dtrFailures' @::@ ['Failure']------ * 'dtrTasks' @::@ ['Task']----describeTasksResponse :: DescribeTasksResponse-describeTasksResponse = DescribeTasksResponse-    { _dtrTasks    = mempty-    , _dtrFailures = mempty-    }+instance AWSRequest DescribeTasks where+        type Sv DescribeTasks = ECS+        type Rs DescribeTasks = DescribeTasksResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeTasksResponse' <$>+                   (x .?> "failures" .!@ mempty) <*>+                     (x .?> "tasks" .!@ mempty)+                     <*> (pure (fromEnum s))) -dtrFailures :: Lens' DescribeTasksResponse [Failure]-dtrFailures = lens _dtrFailures (\s a -> s { _dtrFailures = a }) . _List+instance ToHeaders DescribeTasks where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DescribeTasks"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The list of tasks.-dtrTasks :: Lens' DescribeTasksResponse [Task]-dtrTasks = lens _dtrTasks (\s a -> s { _dtrTasks = a }) . _List+instance ToJSON DescribeTasks where+        toJSON DescribeTasks'{..}+          = object+              ["cluster" .= _dtCluster, "tasks" .= _dtTasks]  instance ToPath DescribeTasks where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeTasks where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DescribeTasks+-- | /See:/ 'describeTasksResponse' smart constructor.+data DescribeTasksResponse = DescribeTasksResponse'+    { _dtrsFailures :: !(Maybe [Failure])+    , _dtrsTasks    :: !(Maybe [Task])+    , _dtrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DescribeTasks where-    toJSON DescribeTasks{..} = object-        [ "cluster" .= _dtCluster-        , "tasks"   .= _dtTasks-        ]+-- | Creates a value of 'DescribeTasksResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtrsFailures'+--+-- * 'dtrsTasks'+--+-- * 'dtrsStatus'+describeTasksResponse+    :: Int -- ^ 'dtrsStatus'+    -> DescribeTasksResponse+describeTasksResponse pStatus_ =+    DescribeTasksResponse'+    { _dtrsFailures = Nothing+    , _dtrsTasks = Nothing+    , _dtrsStatus = pStatus_+    } -instance AWSRequest DescribeTasks where-    type Sv DescribeTasks = ECS-    type Rs DescribeTasks = DescribeTasksResponse+-- | Undocumented member.+dtrsFailures :: Lens' DescribeTasksResponse [Failure]+dtrsFailures = lens _dtrsFailures (\ s a -> s{_dtrsFailures = a}) . _Default . _Coerce; -    request  = post "DescribeTasks"-    response = jsonResponse+-- | The list of tasks.+dtrsTasks :: Lens' DescribeTasksResponse [Task]+dtrsTasks = lens _dtrsTasks (\ s a -> s{_dtrsTasks = a}) . _Default . _Coerce; -instance FromJSON DescribeTasksResponse where-    parseJSON = withObject "DescribeTasksResponse" $ \o -> DescribeTasksResponse-        <$> o .:? "failures" .!= mempty-        <*> o .:? "tasks" .!= mempty+-- | The response status code.+dtrsStatus :: Lens' DescribeTasksResponse Int+dtrsStatus = lens _dtrsStatus (\ s a -> s{_dtrsStatus = a});

@@ -1,131 +1,156 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.DiscoverPollEndpoint--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action is only used by the Amazon EC2 Container Service agent, and it is--- not intended for use outside of the agent.+-- This action is only used by the Amazon EC2 Container Service agent, and+-- it is not intended for use outside of the agent. ----- Returns an endpoint for the Amazon EC2 Container Service agent to poll for--- updates.+-- Returns an endpoint for the Amazon EC2 Container Service agent to poll+-- for updates. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DiscoverPollEndpoint.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DiscoverPollEndpoint.html AWS API Reference> for DiscoverPollEndpoint. module Network.AWS.ECS.DiscoverPollEndpoint     (-    -- * Request-      DiscoverPollEndpoint-    -- ** Request constructor-    , discoverPollEndpoint-    -- ** Request lenses+    -- * Creating a Request+      discoverPollEndpoint+    , DiscoverPollEndpoint+    -- * Request Lenses     , dpeCluster     , dpeContainerInstance -    -- * Response-    , DiscoverPollEndpointResponse-    -- ** Response constructor+    -- * Destructuring the Response     , discoverPollEndpointResponse-    -- ** Response lenses-    , dperEndpoint+    , DiscoverPollEndpointResponse+    -- * Response Lenses+    , dpersTelemetryEndpoint+    , dpersEndpoint+    , dpersStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DiscoverPollEndpoint = DiscoverPollEndpoint-    { _dpeCluster           :: Maybe Text-    , _dpeContainerInstance :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'discoverPollEndpoint' smart constructor.+data DiscoverPollEndpoint = DiscoverPollEndpoint'+    { _dpeCluster           :: !(Maybe Text)+    , _dpeContainerInstance :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DiscoverPollEndpoint' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DiscoverPollEndpoint' with the minimum fields required to make a request. ----- * 'dpeCluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dpeContainerInstance' @::@ 'Maybe' 'Text'+-- * 'dpeCluster' ---discoverPollEndpoint :: DiscoverPollEndpoint-discoverPollEndpoint = DiscoverPollEndpoint-    { _dpeContainerInstance = Nothing-    , _dpeCluster           = Nothing+-- * 'dpeContainerInstance'+discoverPollEndpoint+    :: DiscoverPollEndpoint+discoverPollEndpoint =+    DiscoverPollEndpoint'+    { _dpeCluster = Nothing+    , _dpeContainerInstance = Nothing     }  -- | 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 UUID 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 UUID. For example, arn:aws:ecs:/region/:/aws_account_id/:container-instance/--- /container_instance_UUID/.+-- 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 UUID. For example,+-- arn:aws:ecs:/region/:/aws_account_id/:container-instance\//container_instance_UUID/. dpeContainerInstance :: Lens' DiscoverPollEndpoint (Maybe Text)-dpeContainerInstance =-    lens _dpeContainerInstance (\s a -> s { _dpeContainerInstance = a })+dpeContainerInstance = lens _dpeContainerInstance (\ s a -> s{_dpeContainerInstance = a}); -newtype DiscoverPollEndpointResponse = DiscoverPollEndpointResponse-    { _dperEndpoint :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DiscoverPollEndpoint where+        type Sv DiscoverPollEndpoint = ECS+        type Rs DiscoverPollEndpoint =+             DiscoverPollEndpointResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DiscoverPollEndpointResponse' <$>+                   (x .?> "telemetryEndpoint") <*> (x .?> "endpoint")+                     <*> (pure (fromEnum s))) --- | 'DiscoverPollEndpointResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dperEndpoint' @::@ 'Maybe' 'Text'----discoverPollEndpointResponse :: DiscoverPollEndpointResponse-discoverPollEndpointResponse = DiscoverPollEndpointResponse-    { _dperEndpoint = Nothing-    }+instance ToHeaders DiscoverPollEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.DiscoverPollEndpoint"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The endpoint for the Amazon ECS agent to poll.-dperEndpoint :: Lens' DiscoverPollEndpointResponse (Maybe Text)-dperEndpoint = lens _dperEndpoint (\s a -> s { _dperEndpoint = a })+instance ToJSON DiscoverPollEndpoint where+        toJSON DiscoverPollEndpoint'{..}+          = object+              ["cluster" .= _dpeCluster,+               "containerInstance" .= _dpeContainerInstance]  instance ToPath DiscoverPollEndpoint where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DiscoverPollEndpoint where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DiscoverPollEndpoint+-- | /See:/ 'discoverPollEndpointResponse' smart constructor.+data DiscoverPollEndpointResponse = DiscoverPollEndpointResponse'+    { _dpersTelemetryEndpoint :: !(Maybe Text)+    , _dpersEndpoint          :: !(Maybe Text)+    , _dpersStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DiscoverPollEndpoint where-    toJSON DiscoverPollEndpoint{..} = object-        [ "containerInstance" .= _dpeContainerInstance-        , "cluster"           .= _dpeCluster-        ]+-- | Creates a value of 'DiscoverPollEndpointResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpersTelemetryEndpoint'+--+-- * 'dpersEndpoint'+--+-- * 'dpersStatus'+discoverPollEndpointResponse+    :: Int -- ^ 'dpersStatus'+    -> DiscoverPollEndpointResponse+discoverPollEndpointResponse pStatus_ =+    DiscoverPollEndpointResponse'+    { _dpersTelemetryEndpoint = Nothing+    , _dpersEndpoint = Nothing+    , _dpersStatus = pStatus_+    } -instance AWSRequest DiscoverPollEndpoint where-    type Sv DiscoverPollEndpoint = ECS-    type Rs DiscoverPollEndpoint = DiscoverPollEndpointResponse+-- | The telemetry endpoint for the Amazon ECS agent.+dpersTelemetryEndpoint :: Lens' DiscoverPollEndpointResponse (Maybe Text)+dpersTelemetryEndpoint = lens _dpersTelemetryEndpoint (\ s a -> s{_dpersTelemetryEndpoint = a}); -    request  = post "DiscoverPollEndpoint"-    response = jsonResponse+-- | The endpoint for the Amazon ECS agent to poll.+dpersEndpoint :: Lens' DiscoverPollEndpointResponse (Maybe Text)+dpersEndpoint = lens _dpersEndpoint (\ s a -> s{_dpersEndpoint = a}); -instance FromJSON DiscoverPollEndpointResponse where-    parseJSON = withObject "DiscoverPollEndpointResponse" $ \o -> DiscoverPollEndpointResponse-        <$> o .:? "endpoint"+-- | The response status code.+dpersStatus :: Lens' DiscoverPollEndpointResponse Int+dpersStatus = lens _dpersStatus (\ s a -> s{_dpersStatus = a});

@@ -1,144 +1,172 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.ListClusters--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of existing clusters.+-- Returns a list of existing clusters. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListClusters.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListClusters.html AWS API Reference> for ListClusters.+--+-- This operation returns paginated results. module Network.AWS.ECS.ListClusters     (-    -- * Request-      ListClusters-    -- ** Request constructor-    , listClusters-    -- ** Request lenses-    , lcMaxResults+    -- * Creating a Request+      listClusters+    , ListClusters+    -- * Request Lenses     , lcNextToken+    , lcMaxResults -    -- * Response-    , ListClustersResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listClustersResponse-    -- ** Response lenses-    , lcrClusterArns-    , lcrNextToken+    , ListClustersResponse+    -- * Response Lenses+    , lcrsClusterARNs+    , lcrsNextToken+    , lcrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data ListClusters = ListClusters-    { _lcMaxResults :: Maybe Int-    , _lcNextToken  :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'listClusters' smart constructor.+data ListClusters = ListClusters'+    { _lcNextToken  :: !(Maybe Text)+    , _lcMaxResults :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListClusters' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ListClusters' with the minimum fields required to make a request. ----- * 'lcMaxResults' @::@ 'Maybe' 'Int'+-- Use one of the following lenses to modify other fields as desired: ----- * 'lcNextToken' @::@ 'Maybe' 'Text'+-- * 'lcNextToken' ---listClusters :: ListClusters-listClusters = ListClusters-    { _lcNextToken  = Nothing+-- * 'lcMaxResults'+listClusters+    :: ListClusters+listClusters =+    ListClusters'+    { _lcNextToken = Nothing     , _lcMaxResults = Nothing     } --- | 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 })---- | 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. This value is 'null' when+-- there are no more results to return. lcNextToken :: Lens' ListClusters (Maybe Text)-lcNextToken = lens _lcNextToken (\s a -> s { _lcNextToken = a })+lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a}); -data ListClustersResponse = ListClustersResponse-    { _lcrClusterArns :: List "clusterArns" Text-    , _lcrNextToken   :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | 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}); --- | 'ListClustersResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'lcrClusterArns' @::@ ['Text']------ * 'lcrNextToken' @::@ 'Maybe' 'Text'----listClustersResponse :: ListClustersResponse-listClustersResponse = ListClustersResponse-    { _lcrClusterArns = mempty-    , _lcrNextToken   = Nothing-    }+instance AWSPager ListClusters where+        page rq rs+          | stop (rs ^. lcrsNextToken) = Nothing+          | stop (rs ^. lcrsClusterARNs) = Nothing+          | otherwise =+            Just $ rq & lcNextToken .~ rs ^. lcrsNextToken --- | The list of full Amazon Resource Name (ARN) entries for each cluster--- associated with your account.-lcrClusterArns :: Lens' ListClustersResponse [Text]-lcrClusterArns = lens _lcrClusterArns (\s a -> s { _lcrClusterArns = a }) . _List+instance AWSRequest ListClusters where+        type Sv ListClusters = ECS+        type Rs ListClusters = ListClustersResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListClustersResponse' <$>+                   (x .?> "clusterArns" .!@ mempty) <*>+                     (x .?> "nextToken")+                     <*> (pure (fromEnum s))) --- | 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.-lcrNextToken :: Lens' ListClustersResponse (Maybe Text)-lcrNextToken = lens _lcrNextToken (\s a -> s { _lcrNextToken = a })+instance ToHeaders ListClusters where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.ListClusters" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON ListClusters where+        toJSON ListClusters'{..}+          = object+              ["nextToken" .= _lcNextToken,+               "maxResults" .= _lcMaxResults]+ instance ToPath ListClusters where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ListClusters where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders ListClusters+-- | /See:/ 'listClustersResponse' smart constructor.+data ListClustersResponse = ListClustersResponse'+    { _lcrsClusterARNs :: !(Maybe [Text])+    , _lcrsNextToken   :: !(Maybe Text)+    , _lcrsStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON ListClusters where-    toJSON ListClusters{..} = object-        [ "nextToken"  .= _lcNextToken-        , "maxResults" .= _lcMaxResults-        ]+-- | Creates a value of 'ListClustersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lcrsClusterARNs'+--+-- * 'lcrsNextToken'+--+-- * 'lcrsStatus'+listClustersResponse+    :: Int -- ^ 'lcrsStatus'+    -> ListClustersResponse+listClustersResponse pStatus_ =+    ListClustersResponse'+    { _lcrsClusterARNs = Nothing+    , _lcrsNextToken = Nothing+    , _lcrsStatus = pStatus_+    } -instance AWSRequest ListClusters where-    type Sv ListClusters = ECS-    type Rs ListClusters = ListClustersResponse+-- | 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; -    request  = post "ListClusters"-    response = jsonResponse+-- | 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}); -instance FromJSON ListClustersResponse where-    parseJSON = withObject "ListClustersResponse" $ \o -> ListClustersResponse-        <$> o .:? "clusterArns" .!= mempty-        <*> o .:? "nextToken"+-- | The response status code.+lcrsStatus :: Lens' ListClustersResponse Int+lcrsStatus = lens _lcrsStatus (\ s a -> s{_lcrsStatus = a});

@@ -1,160 +1,186 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.ListContainerInstances--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of container instances in a specified cluster.+-- Returns a list of container instances in a specified cluster. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListContainerInstances.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListContainerInstances.html AWS API Reference> for ListContainerInstances.+--+-- This operation returns paginated results. module Network.AWS.ECS.ListContainerInstances     (-    -- * Request-      ListContainerInstances-    -- ** Request constructor-    , listContainerInstances-    -- ** Request lenses+    -- * Creating a Request+      listContainerInstances+    , ListContainerInstances+    -- * Request Lenses     , lciCluster-    , lciMaxResults     , lciNextToken+    , lciMaxResults -    -- * Response-    , ListContainerInstancesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listContainerInstancesResponse-    -- ** Response lenses-    , lcirContainerInstanceArns-    , lcirNextToken+    , ListContainerInstancesResponse+    -- * Response Lenses+    , lcirsContainerInstanceARNs+    , lcirsNextToken+    , lcirsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data ListContainerInstances = ListContainerInstances-    { _lciCluster    :: Maybe Text-    , _lciMaxResults :: Maybe Int-    , _lciNextToken  :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'listContainerInstances' smart constructor.+data ListContainerInstances = ListContainerInstances'+    { _lciCluster    :: !(Maybe Text)+    , _lciNextToken  :: !(Maybe Text)+    , _lciMaxResults :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListContainerInstances' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ListContainerInstances' with the minimum fields required to make a request. ----- * 'lciCluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'lciMaxResults' @::@ 'Maybe' 'Int'+-- * 'lciCluster' ----- * 'lciNextToken' @::@ 'Maybe' 'Text'+-- * 'lciNextToken' ---listContainerInstances :: ListContainerInstances-listContainerInstances = ListContainerInstances-    { _lciCluster    = Nothing-    , _lciNextToken  = Nothing+-- * 'lciMaxResults'+listContainerInstances+    :: ListContainerInstances+listContainerInstances =+    ListContainerInstances'+    { _lciCluster = Nothing+    , _lciNextToken = Nothing     , _lciMaxResults = Nothing     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts--- the container instances you want to list. If you do not specify a cluster,--- the default cluster is assumed..+-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- hosts the container instances you want 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 })---- | 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 })+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.+-- This value is 'null' when there are no more results to return. lciNextToken :: Lens' ListContainerInstances (Maybe Text)-lciNextToken = lens _lciNextToken (\s a -> s { _lciNextToken = a })+lciNextToken = lens _lciNextToken (\ s a -> s{_lciNextToken = a}); -data ListContainerInstancesResponse = ListContainerInstancesResponse-    { _lcirContainerInstanceArns :: List "containerInstanceArns" Text-    , _lcirNextToken             :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | 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}); --- | 'ListContainerInstancesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'lcirContainerInstanceArns' @::@ ['Text']------ * 'lcirNextToken' @::@ 'Maybe' 'Text'----listContainerInstancesResponse :: ListContainerInstancesResponse-listContainerInstancesResponse = ListContainerInstancesResponse-    { _lcirContainerInstanceArns = mempty-    , _lcirNextToken             = Nothing-    }+instance AWSPager ListContainerInstances where+        page rq rs+          | stop (rs ^. lcirsNextToken) = Nothing+          | stop (rs ^. lcirsContainerInstanceARNs) = Nothing+          | otherwise =+            Just $ rq & lciNextToken .~ rs ^. lcirsNextToken --- | The list of container instance full Amazon Resource Name (ARN) entries for--- each container instance associated with the specified cluster.-lcirContainerInstanceArns :: Lens' ListContainerInstancesResponse [Text]-lcirContainerInstanceArns =-    lens _lcirContainerInstanceArns-        (\s a -> s { _lcirContainerInstanceArns = a })-            . _List+instance AWSRequest ListContainerInstances where+        type Sv ListContainerInstances = ECS+        type Rs ListContainerInstances =+             ListContainerInstancesResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListContainerInstancesResponse' <$>+                   (x .?> "containerInstanceArns" .!@ mempty) <*>+                     (x .?> "nextToken")+                     <*> (pure (fromEnum s))) --- | 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.-lcirNextToken :: Lens' ListContainerInstancesResponse (Maybe Text)-lcirNextToken = lens _lcirNextToken (\s a -> s { _lcirNextToken = a })+instance ToHeaders ListContainerInstances where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.ListContainerInstances"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON ListContainerInstances where+        toJSON ListContainerInstances'{..}+          = object+              ["cluster" .= _lciCluster,+               "nextToken" .= _lciNextToken,+               "maxResults" .= _lciMaxResults]+ instance ToPath ListContainerInstances where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ListContainerInstances where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders ListContainerInstances+-- | /See:/ 'listContainerInstancesResponse' smart constructor.+data ListContainerInstancesResponse = ListContainerInstancesResponse'+    { _lcirsContainerInstanceARNs :: !(Maybe [Text])+    , _lcirsNextToken             :: !(Maybe Text)+    , _lcirsStatus                :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON ListContainerInstances where-    toJSON ListContainerInstances{..} = object-        [ "cluster"    .= _lciCluster-        , "nextToken"  .= _lciNextToken-        , "maxResults" .= _lciMaxResults-        ]+-- | Creates a value of 'ListContainerInstancesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lcirsContainerInstanceARNs'+--+-- * 'lcirsNextToken'+--+-- * 'lcirsStatus'+listContainerInstancesResponse+    :: Int -- ^ 'lcirsStatus'+    -> ListContainerInstancesResponse+listContainerInstancesResponse pStatus_ =+    ListContainerInstancesResponse'+    { _lcirsContainerInstanceARNs = Nothing+    , _lcirsNextToken = Nothing+    , _lcirsStatus = pStatus_+    } -instance AWSRequest ListContainerInstances where-    type Sv ListContainerInstances = ECS-    type Rs ListContainerInstances = ListContainerInstancesResponse+-- | The list of container instance full Amazon Resource Name (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; -    request  = post "ListContainerInstances"-    response = jsonResponse+-- | 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}); -instance FromJSON ListContainerInstancesResponse where-    parseJSON = withObject "ListContainerInstancesResponse" $ \o -> ListContainerInstancesResponse-        <$> o .:? "containerInstanceArns" .!= mempty-        <*> o .:? "nextToken"+-- | The response status code.+lcirsStatus :: Lens' ListContainerInstancesResponse Int+lcirsStatus = lens _lcirsStatus (\ s a -> s{_lcirsStatus = a});

@@ -1,155 +1,184 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.ListServices--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Lists the services that are running in a specified cluster.+-- Lists the services that are running in a specified cluster. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListServices.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListServices.html AWS API Reference> for ListServices.+--+-- This operation returns paginated results. module Network.AWS.ECS.ListServices     (-    -- * Request-      ListServices-    -- ** Request constructor-    , listServices-    -- ** Request lenses+    -- * Creating a Request+      listServices+    , ListServices+    -- * Request Lenses     , lsCluster-    , lsMaxResults     , lsNextToken+    , lsMaxResults -    -- * Response-    , ListServicesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listServicesResponse-    -- ** Response lenses-    , lsrNextToken-    , lsrServiceArns+    , ListServicesResponse+    -- * Response Lenses+    , lsrsServiceARNs+    , lsrsNextToken+    , lsrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data ListServices = ListServices-    { _lsCluster    :: Maybe Text-    , _lsMaxResults :: Maybe Int-    , _lsNextToken  :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'listServices' smart constructor.+data ListServices = ListServices'+    { _lsCluster    :: !(Maybe Text)+    , _lsNextToken  :: !(Maybe Text)+    , _lsMaxResults :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListServices' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ListServices' with the minimum fields required to make a request. ----- * 'lsCluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'lsMaxResults' @::@ 'Maybe' 'Int'+-- * 'lsCluster' ----- * 'lsNextToken' @::@ 'Maybe' 'Text'+-- * 'lsNextToken' ---listServices :: ListServices-listServices = ListServices-    { _lsCluster    = Nothing-    , _lsNextToken  = Nothing+-- * 'lsMaxResults'+listServices+    :: ListServices+listServices =+    ListServices'+    { _lsCluster = Nothing+    , _lsNextToken = Nothing     , _lsMaxResults = Nothing     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts--- the services you want to list. If you do not specify a cluster, the default--- cluster is assumed..+-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- hosts the services you want 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 })---- | The maximum number of container instance 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--- 100. If this parameter is not used, then 'ListServices' returns up to 100--- results and a 'nextToken' value if applicable.-lsMaxResults :: Lens' ListServices (Maybe Int)-lsMaxResults = lens _lsMaxResults (\s a -> s { _lsMaxResults = 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. This value is 'null' when+-- there are no more results to return. lsNextToken :: Lens' ListServices (Maybe Text)-lsNextToken = lens _lsNextToken (\s a -> s { _lsNextToken = a })+lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a}); -data ListServicesResponse = ListServicesResponse-    { _lsrNextToken   :: Maybe Text-    , _lsrServiceArns :: List "serviceArns" Text-    } deriving (Eq, Ord, Read, Show)+-- | The maximum number of container instance 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+-- 100. If this parameter is not used, then 'ListServices' returns up to+-- 100 results and a 'nextToken' value if applicable.+lsMaxResults :: Lens' ListServices (Maybe Int)+lsMaxResults = lens _lsMaxResults (\ s a -> s{_lsMaxResults = a}); --- | 'ListServicesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'lsrNextToken' @::@ 'Maybe' 'Text'------ * 'lsrServiceArns' @::@ ['Text']----listServicesResponse :: ListServicesResponse-listServicesResponse = ListServicesResponse-    { _lsrServiceArns = mempty-    , _lsrNextToken   = Nothing-    }+instance AWSPager ListServices where+        page rq rs+          | stop (rs ^. lsrsNextToken) = Nothing+          | stop (rs ^. lsrsServiceARNs) = Nothing+          | otherwise =+            Just $ rq & lsNextToken .~ rs ^. 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.-lsrNextToken :: Lens' ListServicesResponse (Maybe Text)-lsrNextToken = lens _lsrNextToken (\s a -> s { _lsrNextToken = a })+instance AWSRequest ListServices where+        type Sv ListServices = ECS+        type Rs ListServices = ListServicesResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListServicesResponse' <$>+                   (x .?> "serviceArns" .!@ mempty) <*>+                     (x .?> "nextToken")+                     <*> (pure (fromEnum s))) --- | The list of full Amazon Resource Name (ARN) entries for each service--- associated with the specified cluster.-lsrServiceArns :: Lens' ListServicesResponse [Text]-lsrServiceArns = lens _lsrServiceArns (\s a -> s { _lsrServiceArns = a }) . _List+instance ToHeaders ListServices where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.ListServices" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON ListServices where+        toJSON ListServices'{..}+          = object+              ["cluster" .= _lsCluster,+               "nextToken" .= _lsNextToken,+               "maxResults" .= _lsMaxResults]+ instance ToPath ListServices where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ListServices where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders ListServices+-- | /See:/ 'listServicesResponse' smart constructor.+data ListServicesResponse = ListServicesResponse'+    { _lsrsServiceARNs :: !(Maybe [Text])+    , _lsrsNextToken   :: !(Maybe Text)+    , _lsrsStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON ListServices where-    toJSON ListServices{..} = object-        [ "cluster"    .= _lsCluster-        , "nextToken"  .= _lsNextToken-        , "maxResults" .= _lsMaxResults-        ]+-- | Creates a value of 'ListServicesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lsrsServiceARNs'+--+-- * 'lsrsNextToken'+--+-- * 'lsrsStatus'+listServicesResponse+    :: Int -- ^ 'lsrsStatus'+    -> ListServicesResponse+listServicesResponse pStatus_ =+    ListServicesResponse'+    { _lsrsServiceARNs = Nothing+    , _lsrsNextToken = Nothing+    , _lsrsStatus = pStatus_+    } -instance AWSRequest ListServices where-    type Sv ListServices = ECS-    type Rs ListServices = ListServicesResponse+-- | The list of full Amazon Resource Name (ARN) entries for each service+-- associated with the specified cluster.+lsrsServiceARNs :: Lens' ListServicesResponse [Text]+lsrsServiceARNs = lens _lsrsServiceARNs (\ s a -> s{_lsrsServiceARNs = a}) . _Default . _Coerce; -    request  = post "ListServices"-    response = jsonResponse+-- | 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}); -instance FromJSON ListServicesResponse where-    parseJSON = withObject "ListServicesResponse" $ \o -> ListServicesResponse-        <$> o .:? "nextToken"-        <*> o .:? "serviceArns" .!= mempty+-- | The response status code.+lsrsStatus :: Lens' ListServicesResponse Int+lsrsStatus = lens _lsrsStatus (\ s a -> s{_lsrsStatus = a});

@@ -1,151 +1,190 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.ListTaskDefinitionFamilies--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of task definition families that are registered to your--- account. You can filter the results with the 'familyPrefix' parameter.+-- Returns a list of task definition families that are registered to your+-- account (which may include task definition families that no longer have+-- any 'ACTIVE' task definitions). You can filter the results with the+-- 'familyPrefix' parameter. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListTaskDefinitionFamilies.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListTaskDefinitionFamilies.html AWS API Reference> for ListTaskDefinitionFamilies.+--+-- This operation returns paginated results. module Network.AWS.ECS.ListTaskDefinitionFamilies     (-    -- * Request-      ListTaskDefinitionFamilies-    -- ** Request constructor-    , listTaskDefinitionFamilies-    -- ** Request lenses+    -- * Creating a Request+      listTaskDefinitionFamilies+    , ListTaskDefinitionFamilies+    -- * Request Lenses     , ltdfFamilyPrefix-    , ltdfMaxResults     , ltdfNextToken+    , ltdfMaxResults -    -- * Response-    , ListTaskDefinitionFamiliesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listTaskDefinitionFamiliesResponse-    -- ** Response lenses-    , ltdfrFamilies-    , ltdfrNextToken+    , ListTaskDefinitionFamiliesResponse+    -- * Response Lenses+    , ltdfrsFamilies+    , ltdfrsNextToken+    , ltdfrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data ListTaskDefinitionFamilies = ListTaskDefinitionFamilies-    { _ltdfFamilyPrefix :: Maybe Text-    , _ltdfMaxResults   :: Maybe Int-    , _ltdfNextToken    :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'listTaskDefinitionFamilies' smart constructor.+data ListTaskDefinitionFamilies = ListTaskDefinitionFamilies'+    { _ltdfFamilyPrefix :: !(Maybe Text)+    , _ltdfNextToken    :: !(Maybe Text)+    , _ltdfMaxResults   :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListTaskDefinitionFamilies' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ListTaskDefinitionFamilies' with the minimum fields required to make a request. ----- * 'ltdfFamilyPrefix' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ltdfMaxResults' @::@ 'Maybe' 'Int'+-- * 'ltdfFamilyPrefix' ----- * 'ltdfNextToken' @::@ 'Maybe' 'Text'+-- * 'ltdfNextToken' ---listTaskDefinitionFamilies :: ListTaskDefinitionFamilies-listTaskDefinitionFamilies = ListTaskDefinitionFamilies+-- * 'ltdfMaxResults'+listTaskDefinitionFamilies+    :: ListTaskDefinitionFamilies+listTaskDefinitionFamilies =+    ListTaskDefinitionFamilies'     { _ltdfFamilyPrefix = Nothing-    , _ltdfNextToken    = Nothing-    , _ltdfMaxResults   = Nothing+    , _ltdfNextToken = Nothing+    , _ltdfMaxResults = Nothing     } --- | 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.+-- | 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 })---- | 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 })+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.+-- This value is 'null' when there are no more results to return. ltdfNextToken :: Lens' ListTaskDefinitionFamilies (Maybe Text)-ltdfNextToken = lens _ltdfNextToken (\s a -> s { _ltdfNextToken = a })+ltdfNextToken = lens _ltdfNextToken (\ s a -> s{_ltdfNextToken = a}); -data ListTaskDefinitionFamiliesResponse = ListTaskDefinitionFamiliesResponse-    { _ltdfrFamilies  :: List "families" Text-    , _ltdfrNextToken :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | 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}); --- | 'ListTaskDefinitionFamiliesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ltdfrFamilies' @::@ ['Text']------ * 'ltdfrNextToken' @::@ 'Maybe' 'Text'----listTaskDefinitionFamiliesResponse :: ListTaskDefinitionFamiliesResponse-listTaskDefinitionFamiliesResponse = ListTaskDefinitionFamiliesResponse-    { _ltdfrFamilies  = mempty-    , _ltdfrNextToken = Nothing-    }+instance AWSPager ListTaskDefinitionFamilies where+        page rq rs+          | stop (rs ^. ltdfrsNextToken) = Nothing+          | stop (rs ^. ltdfrsFamilies) = Nothing+          | otherwise =+            Just $ rq & ltdfNextToken .~ rs ^. ltdfrsNextToken --- | The list of task definition family names that match the 'ListTaskDefinitionFamilies' request.-ltdfrFamilies :: Lens' ListTaskDefinitionFamiliesResponse [Text]-ltdfrFamilies = lens _ltdfrFamilies (\s a -> s { _ltdfrFamilies = a }) . _List+instance AWSRequest ListTaskDefinitionFamilies where+        type Sv ListTaskDefinitionFamilies = ECS+        type Rs ListTaskDefinitionFamilies =+             ListTaskDefinitionFamiliesResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListTaskDefinitionFamiliesResponse' <$>+                   (x .?> "families" .!@ mempty) <*> (x .?> "nextToken")+                     <*> (pure (fromEnum s))) --- | 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.-ltdfrNextToken :: Lens' ListTaskDefinitionFamiliesResponse (Maybe Text)-ltdfrNextToken = lens _ltdfrNextToken (\s a -> s { _ltdfrNextToken = a })+instance ToHeaders ListTaskDefinitionFamilies where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.ListTaskDefinitionFamilies"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON ListTaskDefinitionFamilies where+        toJSON ListTaskDefinitionFamilies'{..}+          = object+              ["familyPrefix" .= _ltdfFamilyPrefix,+               "nextToken" .= _ltdfNextToken,+               "maxResults" .= _ltdfMaxResults]+ instance ToPath ListTaskDefinitionFamilies where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ListTaskDefinitionFamilies where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders ListTaskDefinitionFamilies+-- | /See:/ 'listTaskDefinitionFamiliesResponse' smart constructor.+data ListTaskDefinitionFamiliesResponse = ListTaskDefinitionFamiliesResponse'+    { _ltdfrsFamilies  :: !(Maybe [Text])+    , _ltdfrsNextToken :: !(Maybe Text)+    , _ltdfrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON ListTaskDefinitionFamilies where-    toJSON ListTaskDefinitionFamilies{..} = object-        [ "familyPrefix" .= _ltdfFamilyPrefix-        , "nextToken"    .= _ltdfNextToken-        , "maxResults"   .= _ltdfMaxResults-        ]+-- | Creates a value of 'ListTaskDefinitionFamiliesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltdfrsFamilies'+--+-- * 'ltdfrsNextToken'+--+-- * 'ltdfrsStatus'+listTaskDefinitionFamiliesResponse+    :: Int -- ^ 'ltdfrsStatus'+    -> ListTaskDefinitionFamiliesResponse+listTaskDefinitionFamiliesResponse pStatus_ =+    ListTaskDefinitionFamiliesResponse'+    { _ltdfrsFamilies = Nothing+    , _ltdfrsNextToken = Nothing+    , _ltdfrsStatus = pStatus_+    } -instance AWSRequest ListTaskDefinitionFamilies where-    type Sv ListTaskDefinitionFamilies = ECS-    type Rs ListTaskDefinitionFamilies = ListTaskDefinitionFamiliesResponse+-- | 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; -    request  = post "ListTaskDefinitionFamilies"-    response = jsonResponse+-- | 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}); -instance FromJSON ListTaskDefinitionFamiliesResponse where-    parseJSON = withObject "ListTaskDefinitionFamiliesResponse" $ \o -> ListTaskDefinitionFamiliesResponse-        <$> o .:? "families" .!= mempty-        <*> o .:? "nextToken"+-- | The response status code.+ltdfrsStatus :: Lens' ListTaskDefinitionFamiliesResponse Int+ltdfrsStatus = lens _ltdfrsStatus (\ s a -> s{_ltdfrsStatus = a});

@@ -1,158 +1,217 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.ListTaskDefinitions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of task definitions that are registered to your account. You--- can filter the results by family name with the 'familyPrefix' parameter.+-- Returns a list of task definitions that are registered to your account.+-- You can filter the results by family name with the 'familyPrefix'+-- parameter or by status with the 'status' parameter. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListTaskDefinitions.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListTaskDefinitions.html AWS API Reference> for ListTaskDefinitions.+--+-- This operation returns paginated results. module Network.AWS.ECS.ListTaskDefinitions     (-    -- * Request-      ListTaskDefinitions-    -- ** Request constructor-    , listTaskDefinitions-    -- ** Request lenses+    -- * Creating a Request+      listTaskDefinitions+    , ListTaskDefinitions+    -- * Request Lenses+    , ltdStatus     , ltdFamilyPrefix-    , ltdMaxResults     , ltdNextToken+    , ltdSort+    , ltdMaxResults -    -- * Response-    , ListTaskDefinitionsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listTaskDefinitionsResponse-    -- ** Response lenses-    , ltdrNextToken-    , ltdrTaskDefinitionArns+    , ListTaskDefinitionsResponse+    -- * Response Lenses+    , ltdrsTaskDefinitionARNs+    , ltdrsNextToken+    , ltdrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data ListTaskDefinitions = ListTaskDefinitions-    { _ltdFamilyPrefix :: Maybe Text-    , _ltdMaxResults   :: Maybe Int-    , _ltdNextToken    :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'listTaskDefinitions' smart constructor.+data ListTaskDefinitions = ListTaskDefinitions'+    { _ltdStatus       :: !(Maybe TaskDefinitionStatus)+    , _ltdFamilyPrefix :: !(Maybe Text)+    , _ltdNextToken    :: !(Maybe Text)+    , _ltdSort         :: !(Maybe SortOrder)+    , _ltdMaxResults   :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListTaskDefinitions' constructor.+-- | Creates a value of 'ListTaskDefinitions' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'ltdFamilyPrefix' @::@ 'Maybe' 'Text'+-- * 'ltdStatus' ----- * 'ltdMaxResults' @::@ 'Maybe' 'Int'+-- * 'ltdFamilyPrefix' ----- * 'ltdNextToken' @::@ 'Maybe' 'Text'+-- * 'ltdNextToken' ---listTaskDefinitions :: ListTaskDefinitions-listTaskDefinitions = ListTaskDefinitions-    { _ltdFamilyPrefix = Nothing-    , _ltdNextToken    = Nothing-    , _ltdMaxResults   = Nothing+-- * 'ltdSort'+--+-- * 'ltdMaxResults'+listTaskDefinitions+    :: ListTaskDefinitions+listTaskDefinitions =+    ListTaskDefinitions'+    { _ltdStatus = Nothing+    , _ltdFamilyPrefix = Nothing+    , _ltdNextToken = Nothing+    , _ltdSort = Nothing+    , _ltdMaxResults = Nothing     } --- | The full family name that you want to filter the 'ListTaskDefinitions' results--- with. Specifying a 'familyPrefix' will limit 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 })+-- | The task definition status that you want to filter the+-- 'ListTaskDefinitions' results with. 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}); --- | 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 })+-- | The full family name that you want to filter the 'ListTaskDefinitions'+-- results with. Specifying a 'familyPrefix' will limit 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}); --- | 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.+-- This value is 'null' when there are no more results to return. ltdNextToken :: Lens' ListTaskDefinitions (Maybe Text)-ltdNextToken = lens _ltdNextToken (\s a -> s { _ltdNextToken = a })+ltdNextToken = lens _ltdNextToken (\ s a -> s{_ltdNextToken = a}); -data ListTaskDefinitionsResponse = ListTaskDefinitionsResponse-    { _ltdrNextToken          :: Maybe Text-    , _ltdrTaskDefinitionArns :: List "taskDefinitionArns" Text-    } deriving (Eq, Ord, Read, Show)+-- | 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}); --- | 'ListTaskDefinitionsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ltdrNextToken' @::@ 'Maybe' 'Text'------ * 'ltdrTaskDefinitionArns' @::@ ['Text']----listTaskDefinitionsResponse :: ListTaskDefinitionsResponse-listTaskDefinitionsResponse = ListTaskDefinitionsResponse-    { _ltdrTaskDefinitionArns = mempty-    , _ltdrNextToken          = Nothing-    }+-- | 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}); --- | 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.-ltdrNextToken :: Lens' ListTaskDefinitionsResponse (Maybe Text)-ltdrNextToken = lens _ltdrNextToken (\s a -> s { _ltdrNextToken = a })+instance AWSPager ListTaskDefinitions where+        page rq rs+          | stop (rs ^. ltdrsNextToken) = Nothing+          | stop (rs ^. ltdrsTaskDefinitionARNs) = Nothing+          | otherwise =+            Just $ rq & ltdNextToken .~ rs ^. ltdrsNextToken --- | The list of task definition Amazon Resource Name (ARN) entries for the 'ListTaskDefintions' request.-ltdrTaskDefinitionArns :: Lens' ListTaskDefinitionsResponse [Text]-ltdrTaskDefinitionArns =-    lens _ltdrTaskDefinitionArns (\s a -> s { _ltdrTaskDefinitionArns = a })-        . _List+instance AWSRequest ListTaskDefinitions where+        type Sv ListTaskDefinitions = ECS+        type Rs ListTaskDefinitions =+             ListTaskDefinitionsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListTaskDefinitionsResponse' <$>+                   (x .?> "taskDefinitionArns" .!@ mempty) <*>+                     (x .?> "nextToken")+                     <*> (pure (fromEnum s))) +instance ToHeaders ListTaskDefinitions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.ListTaskDefinitions"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListTaskDefinitions where+        toJSON ListTaskDefinitions'{..}+          = object+              ["status" .= _ltdStatus,+               "familyPrefix" .= _ltdFamilyPrefix,+               "nextToken" .= _ltdNextToken, "sort" .= _ltdSort,+               "maxResults" .= _ltdMaxResults]+ instance ToPath ListTaskDefinitions where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ListTaskDefinitions where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders ListTaskDefinitions+-- | /See:/ 'listTaskDefinitionsResponse' smart constructor.+data ListTaskDefinitionsResponse = ListTaskDefinitionsResponse'+    { _ltdrsTaskDefinitionARNs :: !(Maybe [Text])+    , _ltdrsNextToken          :: !(Maybe Text)+    , _ltdrsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON ListTaskDefinitions where-    toJSON ListTaskDefinitions{..} = object-        [ "familyPrefix" .= _ltdFamilyPrefix-        , "nextToken"    .= _ltdNextToken-        , "maxResults"   .= _ltdMaxResults-        ]+-- | Creates a value of 'ListTaskDefinitionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltdrsTaskDefinitionARNs'+--+-- * 'ltdrsNextToken'+--+-- * 'ltdrsStatus'+listTaskDefinitionsResponse+    :: Int -- ^ 'ltdrsStatus'+    -> ListTaskDefinitionsResponse+listTaskDefinitionsResponse pStatus_ =+    ListTaskDefinitionsResponse'+    { _ltdrsTaskDefinitionARNs = Nothing+    , _ltdrsNextToken = Nothing+    , _ltdrsStatus = pStatus_+    } -instance AWSRequest ListTaskDefinitions where-    type Sv ListTaskDefinitions = ECS-    type Rs ListTaskDefinitions = ListTaskDefinitionsResponse+-- | The list of task definition Amazon Resource Name (ARN) entries for the+-- 'ListTaskDefintions' request.+ltdrsTaskDefinitionARNs :: Lens' ListTaskDefinitionsResponse [Text]+ltdrsTaskDefinitionARNs = lens _ltdrsTaskDefinitionARNs (\ s a -> s{_ltdrsTaskDefinitionARNs = a}) . _Default . _Coerce; -    request  = post "ListTaskDefinitions"-    response = jsonResponse+-- | 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}); -instance FromJSON ListTaskDefinitionsResponse where-    parseJSON = withObject "ListTaskDefinitionsResponse" $ \o -> ListTaskDefinitionsResponse-        <$> o .:? "nextToken"-        <*> o .:? "taskDefinitionArns" .!= mempty+-- | The response status code.+ltdrsStatus :: Lens' ListTaskDefinitionsResponse Int+ltdrsStatus = lens _ltdrsStatus (\ s a -> s{_ltdrsStatus = a});

@@ -1,206 +1,248 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.ListTasks--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of tasks for a specified cluster. You can filter the results--- by family name or by a particular container instance with the 'family' and 'containerInstance' parameters.+-- 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. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListTasks.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListTasks.html AWS API Reference> for ListTasks.+--+-- This operation returns paginated results. module Network.AWS.ECS.ListTasks     (-    -- * Request-      ListTasks-    -- ** Request constructor-    , listTasks-    -- ** Request lenses+    -- * Creating a Request+      listTasks+    , ListTasks+    -- * Request Lenses+    , ltDesiredStatus     , ltCluster-    , ltContainerInstance     , ltFamily-    , ltMaxResults     , ltNextToken-    , ltServiceName     , ltStartedBy+    , ltServiceName+    , ltContainerInstance+    , ltMaxResults -    -- * Response-    , ListTasksResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listTasksResponse-    -- ** Response lenses-    , ltrNextToken-    , ltrTaskArns+    , ListTasksResponse+    -- * Response Lenses+    , ltrsNextToken+    , ltrsTaskARNs+    , ltrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data ListTasks = ListTasks-    { _ltCluster           :: Maybe Text-    , _ltContainerInstance :: Maybe Text-    , _ltFamily            :: Maybe Text-    , _ltMaxResults        :: Maybe Int-    , _ltNextToken         :: Maybe Text-    , _ltServiceName       :: Maybe Text-    , _ltStartedBy         :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'listTasks' smart constructor.+data ListTasks = ListTasks'+    { _ltDesiredStatus     :: !(Maybe DesiredStatus)+    , _ltCluster           :: !(Maybe Text)+    , _ltFamily            :: !(Maybe Text)+    , _ltNextToken         :: !(Maybe Text)+    , _ltStartedBy         :: !(Maybe Text)+    , _ltServiceName       :: !(Maybe Text)+    , _ltContainerInstance :: !(Maybe Text)+    , _ltMaxResults        :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListTasks' constructor.+-- | Creates a value of 'ListTasks' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'ltCluster' @::@ 'Maybe' 'Text'+-- * 'ltDesiredStatus' ----- * 'ltContainerInstance' @::@ 'Maybe' 'Text'+-- * 'ltCluster' ----- * 'ltFamily' @::@ 'Maybe' 'Text'+-- * 'ltFamily' ----- * 'ltMaxResults' @::@ 'Maybe' 'Int'+-- * 'ltNextToken' ----- * 'ltNextToken' @::@ 'Maybe' 'Text'+-- * 'ltStartedBy' ----- * 'ltServiceName' @::@ 'Maybe' 'Text'+-- * 'ltServiceName' ----- * 'ltStartedBy' @::@ 'Maybe' 'Text'+-- * 'ltContainerInstance' ---listTasks :: ListTasks-listTasks = ListTasks-    { _ltCluster           = Nothing+-- * 'ltMaxResults'+listTasks+    :: ListTasks+listTasks =+    ListTasks'+    { _ltDesiredStatus = Nothing+    , _ltCluster = Nothing+    , _ltFamily = Nothing+    , _ltNextToken = Nothing+    , _ltStartedBy = Nothing+    , _ltServiceName = Nothing     , _ltContainerInstance = Nothing-    , _ltFamily            = Nothing-    , _ltNextToken         = Nothing-    , _ltMaxResults        = Nothing-    , _ltStartedBy         = Nothing-    , _ltServiceName       = Nothing+    , _ltMaxResults = Nothing     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts--- the tasks you want 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 })+-- | The task status that you want to filter the 'ListTasks' results with.+-- Specifying a 'desiredStatus' of 'STOPPED' will limit the results to+-- tasks that are in the 'STOPPED' status, which can be useful for+-- debugging tasks that are not starting properly or have died or finished.+-- The default status filter is 'RUNNING'.+ltDesiredStatus :: Lens' ListTasks (Maybe DesiredStatus)+ltDesiredStatus = lens _ltDesiredStatus (\ s a -> s{_ltDesiredStatus = a}); --- | The container instance UUID or full Amazon Resource Name (ARN) of the--- container instance that you want to filter the 'ListTasks' results with.--- Specifying a 'containerInstance' will limit the results to tasks that belong to--- that container instance.-ltContainerInstance :: Lens' ListTasks (Maybe Text)-ltContainerInstance =-    lens _ltContainerInstance (\s a -> s { _ltContainerInstance = a })+-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- hosts the tasks you want 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}); --- | The name of the family that you want to filter the 'ListTasks' results with.--- Specifying a 'family' will limit the results to tasks that belong to that--- family.+-- | The name of the family that you want to filter the 'ListTasks' results+-- with. Specifying a 'family' will limit the results to tasks that belong+-- to that family. ltFamily :: Lens' ListTasks (Maybe Text)-ltFamily = lens _ltFamily (\s a -> s { _ltFamily = 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 })+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. This value is 'null' when+-- there are no more results to return. ltNextToken :: Lens' ListTasks (Maybe Text)-ltNextToken = lens _ltNextToken (\s a -> s { _ltNextToken = a })+ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a}); --- | The name of the service that you want to filter the 'ListTasks' results with.--- Specifying a 'serviceName' will limit the results to tasks that belong to that--- service.+-- | The 'startedBy' value that you want to filter the task results with.+-- Specifying a 'startedBy' value will limit the results to tasks that were+-- started with that value.+ltStartedBy :: Lens' ListTasks (Maybe Text)+ltStartedBy = lens _ltStartedBy (\ s a -> s{_ltStartedBy = a});++-- | The name of the service that you want to filter the 'ListTasks' results+-- with. Specifying a 'serviceName' will limit 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 'startedBy' value that you want to filter the task results with. Specifying--- a 'startedBy' value will limit the results to tasks that were started with that--- value.-ltStartedBy :: Lens' ListTasks (Maybe Text)-ltStartedBy = lens _ltStartedBy (\s a -> s { _ltStartedBy = a })+-- | The container instance UUID or full Amazon Resource Name (ARN) of the+-- container instance that you want to filter the 'ListTasks' results with.+-- Specifying a 'containerInstance' will limit the results to tasks that+-- belong to that container instance.+ltContainerInstance :: Lens' ListTasks (Maybe Text)+ltContainerInstance = lens _ltContainerInstance (\ s a -> s{_ltContainerInstance = a}); -data ListTasksResponse = ListTasksResponse-    { _ltrNextToken :: Maybe Text-    , _ltrTaskArns  :: List "taskArns" Text-    } deriving (Eq, Ord, Read, Show)+-- | 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}); --- | 'ListTasksResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ltrNextToken' @::@ 'Maybe' 'Text'------ * 'ltrTaskArns' @::@ ['Text']----listTasksResponse :: ListTasksResponse-listTasksResponse = ListTasksResponse-    { _ltrTaskArns  = mempty-    , _ltrNextToken = Nothing-    }+instance AWSPager ListTasks where+        page rq rs+          | stop (rs ^. ltrsNextToken) = Nothing+          | stop (rs ^. ltrsTaskARNs) = Nothing+          | otherwise =+            Just $ rq & ltNextToken .~ rs ^. 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.-ltrNextToken :: Lens' ListTasksResponse (Maybe Text)-ltrNextToken = lens _ltrNextToken (\s a -> s { _ltrNextToken = a })+instance AWSRequest ListTasks where+        type Sv ListTasks = ECS+        type Rs ListTasks = ListTasksResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListTasksResponse' <$>+                   (x .?> "nextToken") <*> (x .?> "taskArns" .!@ mempty)+                     <*> (pure (fromEnum s))) --- | The list of task Amazon Resource Name (ARN) entries for the 'ListTasks' request.-ltrTaskArns :: Lens' ListTasksResponse [Text]-ltrTaskArns = lens _ltrTaskArns (\s a -> s { _ltrTaskArns = a }) . _List+instance ToHeaders ListTasks where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.ListTasks" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON ListTasks where+        toJSON ListTasks'{..}+          = object+              ["desiredStatus" .= _ltDesiredStatus,+               "cluster" .= _ltCluster, "family" .= _ltFamily,+               "nextToken" .= _ltNextToken,+               "startedBy" .= _ltStartedBy,+               "serviceName" .= _ltServiceName,+               "containerInstance" .= _ltContainerInstance,+               "maxResults" .= _ltMaxResults]+ instance ToPath ListTasks where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ListTasks where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders ListTasks+-- | /See:/ 'listTasksResponse' smart constructor.+data ListTasksResponse = ListTasksResponse'+    { _ltrsNextToken :: !(Maybe Text)+    , _ltrsTaskARNs  :: !(Maybe [Text])+    , _ltrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON ListTasks where-    toJSON ListTasks{..} = object-        [ "cluster"           .= _ltCluster-        , "containerInstance" .= _ltContainerInstance-        , "family"            .= _ltFamily-        , "nextToken"         .= _ltNextToken-        , "maxResults"        .= _ltMaxResults-        , "startedBy"         .= _ltStartedBy-        , "serviceName"       .= _ltServiceName-        ]+-- | Creates a value of 'ListTasksResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltrsNextToken'+--+-- * 'ltrsTaskARNs'+--+-- * 'ltrsStatus'+listTasksResponse+    :: Int -- ^ 'ltrsStatus'+    -> ListTasksResponse+listTasksResponse pStatus_ =+    ListTasksResponse'+    { _ltrsNextToken = Nothing+    , _ltrsTaskARNs = Nothing+    , _ltrsStatus = pStatus_+    } -instance AWSRequest ListTasks where-    type Sv ListTasks = ECS-    type Rs ListTasks = ListTasksResponse+-- | 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}); -    request  = post "ListTasks"-    response = jsonResponse+-- | The list of task Amazon Resource Name (ARN) entries for the 'ListTasks'+-- request.+ltrsTaskARNs :: Lens' ListTasksResponse [Text]+ltrsTaskARNs = lens _ltrsTaskARNs (\ s a -> s{_ltrsTaskARNs = a}) . _Default . _Coerce; -instance FromJSON ListTasksResponse where-    parseJSON = withObject "ListTasksResponse" $ \o -> ListTasksResponse-        <$> o .:? "nextToken"-        <*> o .:? "taskArns" .!= mempty+-- | The response status code.+ltrsStatus :: Lens' ListTasksResponse Int+ltrsStatus = lens _ltrsStatus (\ s a -> s{_ltrsStatus = a});

@@ -1,159 +1,193 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.RegisterContainerInstance--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This action is only used by the Amazon EC2 Container Service agent, and it is--- not intended for use outside of the agent.+-- This action is only used by the Amazon EC2 Container Service agent, and+-- it is not intended for use outside of the agent. ----- Registers an Amazon EC2 instance into the specified cluster. This instance--- will become available to place containers on.+-- Registers an Amazon EC2 instance into the specified cluster. This+-- instance will become available to place containers on. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_RegisterContainerInstance.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_RegisterContainerInstance.html AWS API Reference> for RegisterContainerInstance. module Network.AWS.ECS.RegisterContainerInstance     (-    -- * Request-      RegisterContainerInstance-    -- ** Request constructor-    , registerContainerInstance-    -- ** Request lenses+    -- * Creating a Request+      registerContainerInstance+    , RegisterContainerInstance+    -- * Request Lenses+    , rciInstanceIdentityDocumentSignature     , rciCluster     , rciInstanceIdentityDocument-    , rciInstanceIdentityDocumentSignature-    , rciTotalResources+    , rciContainerInstanceARN     , rciVersionInfo+    , rciTotalResources -    -- * Response-    , RegisterContainerInstanceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , registerContainerInstanceResponse-    -- ** Response lenses-    , rcirContainerInstance+    , RegisterContainerInstanceResponse+    -- * Response Lenses+    , rcirsContainerInstance+    , rcirsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data RegisterContainerInstance = RegisterContainerInstance-    { _rciCluster                           :: Maybe Text-    , _rciInstanceIdentityDocument          :: Maybe Text-    , _rciInstanceIdentityDocumentSignature :: Maybe Text-    , _rciTotalResources                    :: List "totalResources" Resource-    , _rciVersionInfo                       :: Maybe VersionInfo-    } deriving (Eq, Read, Show)+-- | /See:/ 'registerContainerInstance' smart constructor.+data RegisterContainerInstance = RegisterContainerInstance'+    { _rciInstanceIdentityDocumentSignature :: !(Maybe Text)+    , _rciCluster                           :: !(Maybe Text)+    , _rciInstanceIdentityDocument          :: !(Maybe Text)+    , _rciContainerInstanceARN              :: !(Maybe Text)+    , _rciVersionInfo                       :: !(Maybe VersionInfo)+    , _rciTotalResources                    :: !(Maybe [Resource])+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'RegisterContainerInstance' constructor.+-- | Creates a value of 'RegisterContainerInstance' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'rciCluster' @::@ 'Maybe' 'Text'+-- * 'rciInstanceIdentityDocumentSignature' ----- * 'rciInstanceIdentityDocument' @::@ 'Maybe' 'Text'+-- * 'rciCluster' ----- * 'rciInstanceIdentityDocumentSignature' @::@ 'Maybe' 'Text'+-- * 'rciInstanceIdentityDocument' ----- * 'rciTotalResources' @::@ ['Resource']+-- * 'rciContainerInstanceARN' ----- * 'rciVersionInfo' @::@ 'Maybe' 'VersionInfo'+-- * 'rciVersionInfo' ---registerContainerInstance :: RegisterContainerInstance-registerContainerInstance = RegisterContainerInstance-    { _rciCluster                           = Nothing-    , _rciInstanceIdentityDocument          = Nothing-    , _rciInstanceIdentityDocumentSignature = Nothing-    , _rciTotalResources                    = mempty-    , _rciVersionInfo                       = Nothing+-- * 'rciTotalResources'+registerContainerInstance+    :: RegisterContainerInstance+registerContainerInstance =+    RegisterContainerInstance'+    { _rciInstanceIdentityDocumentSignature = Nothing+    , _rciCluster = Nothing+    , _rciInstanceIdentityDocument = Nothing+    , _rciContainerInstanceARN = Nothing+    , _rciVersionInfo = Nothing+    , _rciTotalResources = Nothing     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that you--- want to register your container instance with. If you do not specify a--- cluster, the default cluster is assumed..+-- | The instance identity document signature for the Amazon 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});++-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- you want to register your container instance with. 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 Amazon 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 })--rciInstanceIdentityDocumentSignature :: Lens' RegisterContainerInstance (Maybe Text)-rciInstanceIdentityDocumentSignature =-    lens _rciInstanceIdentityDocumentSignature-        (\s a -> s { _rciInstanceIdentityDocumentSignature = a })+rciInstanceIdentityDocument = lens _rciInstanceIdentityDocument (\ s a -> s{_rciInstanceIdentityDocument = a}); -rciTotalResources :: Lens' RegisterContainerInstance [Resource]-rciTotalResources =-    lens _rciTotalResources (\s a -> s { _rciTotalResources = a })-        . _List+-- | The Amazon Resource Name (ARN) of the container instance (if it was+-- previously registered).+rciContainerInstanceARN :: Lens' RegisterContainerInstance (Maybe Text)+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}); -newtype RegisterContainerInstanceResponse = RegisterContainerInstanceResponse-    { _rcirContainerInstance :: Maybe ContainerInstance-    } deriving (Eq, Read, Show)+-- | The resources available on the instance.+rciTotalResources :: Lens' RegisterContainerInstance [Resource]+rciTotalResources = lens _rciTotalResources (\ s a -> s{_rciTotalResources = a}) . _Default . _Coerce; --- | 'RegisterContainerInstanceResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'rcirContainerInstance' @::@ 'Maybe' 'ContainerInstance'----registerContainerInstanceResponse :: RegisterContainerInstanceResponse-registerContainerInstanceResponse = RegisterContainerInstanceResponse-    { _rcirContainerInstance = Nothing-    }+instance AWSRequest RegisterContainerInstance where+        type Sv RegisterContainerInstance = ECS+        type Rs RegisterContainerInstance =+             RegisterContainerInstanceResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 RegisterContainerInstanceResponse' <$>+                   (x .?> "containerInstance") <*> (pure (fromEnum s))) -rcirContainerInstance :: Lens' RegisterContainerInstanceResponse (Maybe ContainerInstance)-rcirContainerInstance =-    lens _rcirContainerInstance (\s a -> s { _rcirContainerInstance = a })+instance ToHeaders RegisterContainerInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.RegisterContainerInstance"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON RegisterContainerInstance where+        toJSON RegisterContainerInstance'{..}+          = object+              ["instanceIdentityDocumentSignature" .=+                 _rciInstanceIdentityDocumentSignature,+               "cluster" .= _rciCluster,+               "instanceIdentityDocument" .=+                 _rciInstanceIdentityDocument,+               "containerInstanceArn" .= _rciContainerInstanceARN,+               "versionInfo" .= _rciVersionInfo,+               "totalResources" .= _rciTotalResources]+ instance ToPath RegisterContainerInstance where-    toPath = const "/"+        toPath = const "/"  instance ToQuery RegisterContainerInstance where-    toQuery = const mempty--instance ToHeaders RegisterContainerInstance+        toQuery = const mempty -instance ToJSON RegisterContainerInstance where-    toJSON RegisterContainerInstance{..} = object-        [ "cluster"                           .= _rciCluster-        , "instanceIdentityDocument"          .= _rciInstanceIdentityDocument-        , "instanceIdentityDocumentSignature" .= _rciInstanceIdentityDocumentSignature-        , "totalResources"                    .= _rciTotalResources-        , "versionInfo"                       .= _rciVersionInfo-        ]+-- | /See:/ 'registerContainerInstanceResponse' smart constructor.+data RegisterContainerInstanceResponse = RegisterContainerInstanceResponse'+    { _rcirsContainerInstance :: !(Maybe ContainerInstance)+    , _rcirsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest RegisterContainerInstance where-    type Sv RegisterContainerInstance = ECS-    type Rs RegisterContainerInstance = RegisterContainerInstanceResponse+-- | Creates a value of 'RegisterContainerInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcirsContainerInstance'+--+-- * 'rcirsStatus'+registerContainerInstanceResponse+    :: Int -- ^ 'rcirsStatus'+    -> RegisterContainerInstanceResponse+registerContainerInstanceResponse pStatus_ =+    RegisterContainerInstanceResponse'+    { _rcirsContainerInstance = Nothing+    , _rcirsStatus = pStatus_+    } -    request  = post "RegisterContainerInstance"-    response = jsonResponse+-- | Undocumented member.+rcirsContainerInstance :: Lens' RegisterContainerInstanceResponse (Maybe ContainerInstance)+rcirsContainerInstance = lens _rcirsContainerInstance (\ s a -> s{_rcirsContainerInstance = a}); -instance FromJSON RegisterContainerInstanceResponse where-    parseJSON = withObject "RegisterContainerInstanceResponse" $ \o -> RegisterContainerInstanceResponse-        <$> o .:? "containerInstance"+-- | The response status code.+rcirsStatus :: Lens' RegisterContainerInstanceResponse Int+rcirsStatus = lens _rcirsStatus (\ s a -> s{_rcirsStatus = a});

@@ -1,141 +1,158 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.RegisterTaskDefinition--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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 on 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 DeveloperGuide/.+-- 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 on 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/. ----- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_RegisterTaskDefinition.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_RegisterTaskDefinition.html AWS API Reference> for RegisterTaskDefinition. module Network.AWS.ECS.RegisterTaskDefinition     (-    -- * Request-      RegisterTaskDefinition-    -- ** Request constructor-    , registerTaskDefinition-    -- ** Request lenses-    , rtdContainerDefinitions-    , rtdFamily+    -- * Creating a Request+      registerTaskDefinition+    , RegisterTaskDefinition+    -- * Request Lenses     , rtdVolumes+    , rtdFamily+    , rtdContainerDefinitions -    -- * Response-    , RegisterTaskDefinitionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , registerTaskDefinitionResponse-    -- ** Response lenses-    , rtdrTaskDefinition+    , RegisterTaskDefinitionResponse+    -- * Response Lenses+    , rtdrsTaskDefinition+    , rtdrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data RegisterTaskDefinition = RegisterTaskDefinition-    { _rtdContainerDefinitions :: List "containerDefinitions" ContainerDefinition-    , _rtdFamily               :: Text-    , _rtdVolumes              :: List "volumes" Volume-    } deriving (Eq, Read, Show)+-- | /See:/ 'registerTaskDefinition' smart constructor.+data RegisterTaskDefinition = RegisterTaskDefinition'+    { _rtdVolumes              :: !(Maybe [Volume])+    , _rtdFamily               :: !Text+    , _rtdContainerDefinitions :: ![ContainerDefinition]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'RegisterTaskDefinition' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'RegisterTaskDefinition' with the minimum fields required to make a request. ----- * 'rtdContainerDefinitions' @::@ ['ContainerDefinition']+-- Use one of the following lenses to modify other fields as desired: ----- * 'rtdFamily' @::@ 'Text'+-- * 'rtdVolumes' ----- * 'rtdVolumes' @::@ ['Volume']+-- * 'rtdFamily' ---registerTaskDefinition :: Text -- ^ 'rtdFamily'-                       -> RegisterTaskDefinition-registerTaskDefinition p1 = RegisterTaskDefinition-    { _rtdFamily               = p1+-- * 'rtdContainerDefinitions'+registerTaskDefinition+    :: Text -- ^ 'rtdFamily'+    -> RegisterTaskDefinition+registerTaskDefinition pFamily_ =+    RegisterTaskDefinition'+    { _rtdVolumes = Nothing+    , _rtdFamily = pFamily_     , _rtdContainerDefinitions = mempty-    , _rtdVolumes              = mempty     } --- | 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 })-        . _List+-- | 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; --- | You must specify a 'family' for a task definition, which allows you to track--- multiple versions of the same task definition. You can think of the 'family' as--- a name for your task definition. Up to 255 letters (uppercase and lowercase),--- numbers, hyphens, and underscores are allowed.+-- | You must specify a 'family' for a task definition, which allows you to+-- track multiple versions of the same task definition. You can think of+-- the 'family' 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 volume definitions in JSON format that containers in your task may--- use.-rtdVolumes :: Lens' RegisterTaskDefinition [Volume]-rtdVolumes = lens _rtdVolumes (\s a -> s { _rtdVolumes = a }) . _List+-- | 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; -newtype RegisterTaskDefinitionResponse = RegisterTaskDefinitionResponse-    { _rtdrTaskDefinition :: Maybe TaskDefinition-    } deriving (Eq, Read, Show)+instance AWSRequest RegisterTaskDefinition where+        type Sv RegisterTaskDefinition = ECS+        type Rs RegisterTaskDefinition =+             RegisterTaskDefinitionResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 RegisterTaskDefinitionResponse' <$>+                   (x .?> "taskDefinition") <*> (pure (fromEnum s))) --- | 'RegisterTaskDefinitionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'rtdrTaskDefinition' @::@ 'Maybe' 'TaskDefinition'----registerTaskDefinitionResponse :: RegisterTaskDefinitionResponse-registerTaskDefinitionResponse = RegisterTaskDefinitionResponse-    { _rtdrTaskDefinition = Nothing-    }+instance ToHeaders RegisterTaskDefinition where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.RegisterTaskDefinition"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -rtdrTaskDefinition :: Lens' RegisterTaskDefinitionResponse (Maybe TaskDefinition)-rtdrTaskDefinition =-    lens _rtdrTaskDefinition (\s a -> s { _rtdrTaskDefinition = a })+instance ToJSON RegisterTaskDefinition where+        toJSON RegisterTaskDefinition'{..}+          = object+              ["volumes" .= _rtdVolumes, "family" .= _rtdFamily,+               "containerDefinitions" .= _rtdContainerDefinitions]  instance ToPath RegisterTaskDefinition where-    toPath = const "/"+        toPath = const "/"  instance ToQuery RegisterTaskDefinition where-    toQuery = const mempty--instance ToHeaders RegisterTaskDefinition+        toQuery = const mempty -instance ToJSON RegisterTaskDefinition where-    toJSON RegisterTaskDefinition{..} = object-        [ "family"               .= _rtdFamily-        , "containerDefinitions" .= _rtdContainerDefinitions-        , "volumes"              .= _rtdVolumes-        ]+-- | /See:/ 'registerTaskDefinitionResponse' smart constructor.+data RegisterTaskDefinitionResponse = RegisterTaskDefinitionResponse'+    { _rtdrsTaskDefinition :: !(Maybe TaskDefinition)+    , _rtdrsStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest RegisterTaskDefinition where-    type Sv RegisterTaskDefinition = ECS-    type Rs RegisterTaskDefinition = RegisterTaskDefinitionResponse+-- | Creates a value of 'RegisterTaskDefinitionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtdrsTaskDefinition'+--+-- * 'rtdrsStatus'+registerTaskDefinitionResponse+    :: Int -- ^ 'rtdrsStatus'+    -> RegisterTaskDefinitionResponse+registerTaskDefinitionResponse pStatus_ =+    RegisterTaskDefinitionResponse'+    { _rtdrsTaskDefinition = Nothing+    , _rtdrsStatus = pStatus_+    } -    request  = post "RegisterTaskDefinition"-    response = jsonResponse+-- | Undocumented member.+rtdrsTaskDefinition :: Lens' RegisterTaskDefinitionResponse (Maybe TaskDefinition)+rtdrsTaskDefinition = lens _rtdrsTaskDefinition (\ s a -> s{_rtdrsTaskDefinition = a}); -instance FromJSON RegisterTaskDefinitionResponse where-    parseJSON = withObject "RegisterTaskDefinitionResponse" $ \o -> RegisterTaskDefinitionResponse-        <$> o .:? "taskDefinition"+-- | The response status code.+rtdrsStatus :: Lens' RegisterTaskDefinitionResponse Int+rtdrsStatus = lens _rtdrsStatus (\ s a -> s{_rtdrsStatus = a});

@@ -1,187 +1,205 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.RunTask--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Start a task using random placement and the default Amazon ECS scheduler. If--- you want to use your own scheduler or place a task on a specific container--- instance, use 'StartTask' instead.+-- Start a task using random placement and the default Amazon ECS+-- scheduler. If you want to use your own scheduler or place a task on a+-- specific container instance, use 'StartTask' instead. -- -- The 'count' parameter is limited to 10 tasks per call. ----------- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_RunTask.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_RunTask.html AWS API Reference> for RunTask. module Network.AWS.ECS.RunTask     (-    -- * Request-      RunTask-    -- ** Request constructor-    , runTask-    -- ** Request lenses+    -- * Creating a Request+      runTask+    , RunTask+    -- * Request Lenses+    , rtOverrides     , rtCluster     , rtCount-    , rtOverrides     , rtStartedBy     , rtTaskDefinition -    -- * Response-    , RunTaskResponse-    -- ** Response constructor+    -- * Destructuring the Response     , runTaskResponse-    -- ** Response lenses-    , rtrFailures-    , rtrTasks+    , RunTaskResponse+    -- * Response Lenses+    , rtrsFailures+    , rtrsTasks+    , rtrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data RunTask = RunTask-    { _rtCluster        :: Maybe Text-    , _rtCount          :: Maybe Int-    , _rtOverrides      :: Maybe TaskOverride-    , _rtStartedBy      :: Maybe Text-    , _rtTaskDefinition :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'runTask' smart constructor.+data RunTask = RunTask'+    { _rtOverrides      :: !(Maybe TaskOverride)+    , _rtCluster        :: !(Maybe Text)+    , _rtCount          :: !(Maybe Int)+    , _rtStartedBy      :: !(Maybe Text)+    , _rtTaskDefinition :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'RunTask' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'RunTask' with the minimum fields required to make a request. ----- * 'rtCluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'rtCount' @::@ 'Maybe' 'Int'+-- * 'rtOverrides' ----- * 'rtOverrides' @::@ 'Maybe' 'TaskOverride'+-- * 'rtCluster' ----- * 'rtStartedBy' @::@ 'Maybe' 'Text'+-- * 'rtCount' ----- * 'rtTaskDefinition' @::@ 'Text'+-- * 'rtStartedBy' ---runTask :: Text -- ^ 'rtTaskDefinition'-        -> RunTask-runTask p1 = RunTask-    { _rtTaskDefinition = p1-    , _rtCluster        = Nothing-    , _rtOverrides      = Nothing-    , _rtCount          = Nothing-    , _rtStartedBy      = Nothing+-- * 'rtTaskDefinition'+runTask+    :: Text -- ^ 'rtTaskDefinition'+    -> RunTask+runTask pTaskDefinition_ =+    RunTask'+    { _rtOverrides = Nothing+    , _rtCluster = Nothing+    , _rtCount = Nothing+    , _rtStartedBy = Nothing+    , _rtTaskDefinition = pTaskDefinition_     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that you--- want to run your task on. If you do not specify a cluster, the default--- cluster is assumed..+-- | 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.+--+-- A total of 8192 characters are allowed for overrides. This limit+-- includes the JSON formatting characters of the override structure.+rtOverrides :: Lens' RunTask (Maybe TaskOverride)+rtOverrides = lens _rtOverrides (\ s a -> s{_rtOverrides = a});++-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- you want to run your task on. 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 number of instantiations of the specified task that you would like to--- place on your cluster.+-- | The number of instantiations of the specified task that you would like+-- to place on your cluster. -- -- The 'count' parameter is limited to 10 tasks per call.------ rtCount :: Lens' RunTask (Maybe Int)-rtCount = lens _rtCount (\s a -> s { _rtCount = a })---- | A list of container overrides in JSON format that specify the name of a--- container in the specified task definition and the command it should run--- instead of its default. A total of 8192 characters are allowed for overrides.--- This limit includes the JSON formatting characters of the override structure.-rtOverrides :: Lens' RunTask (Maybe TaskOverride)-rtOverrides = lens _rtOverrides (\s a -> s { _rtOverrides = a })+rtCount = lens _rtCount (\ s a -> s{_rtCount = 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.+-- 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. ----- If a task is started by an Amazon ECS service, then the 'startedBy' parameter--- contains the deployment ID of the service that starts it.+-- 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 that you want to run.+-- | The 'family' and 'revision' ('family:revision') or full Amazon Resource+-- Name (ARN) of the task definition that you want 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}); -data RunTaskResponse = RunTaskResponse-    { _rtrFailures :: List "failures" Failure-    , _rtrTasks    :: List "tasks" Task-    } deriving (Eq, Read, Show)+instance AWSRequest RunTask where+        type Sv RunTask = ECS+        type Rs RunTask = RunTaskResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 RunTaskResponse' <$>+                   (x .?> "failures" .!@ mempty) <*>+                     (x .?> "tasks" .!@ mempty)+                     <*> (pure (fromEnum s))) --- | 'RunTaskResponse' constructor.+instance ToHeaders RunTask where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.RunTask" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RunTask where+        toJSON RunTask'{..}+          = object+              ["overrides" .= _rtOverrides,+               "cluster" .= _rtCluster, "count" .= _rtCount,+               "startedBy" .= _rtStartedBy,+               "taskDefinition" .= _rtTaskDefinition]++instance ToPath RunTask where+        toPath = const "/"++instance ToQuery RunTask where+        toQuery = const mempty++-- | /See:/ 'runTaskResponse' smart constructor.+data RunTaskResponse = RunTaskResponse'+    { _rtrsFailures :: !(Maybe [Failure])+    , _rtrsTasks    :: !(Maybe [Task])+    , _rtrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RunTaskResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'rtrFailures' @::@ ['Failure']+-- * 'rtrsFailures' ----- * 'rtrTasks' @::@ ['Task']+-- * 'rtrsTasks' ---runTaskResponse :: RunTaskResponse-runTaskResponse = RunTaskResponse-    { _rtrTasks    = mempty-    , _rtrFailures = mempty+-- * 'rtrsStatus'+runTaskResponse+    :: Int -- ^ 'rtrsStatus'+    -> RunTaskResponse+runTaskResponse pStatus_ =+    RunTaskResponse'+    { _rtrsFailures = Nothing+    , _rtrsTasks = Nothing+    , _rtrsStatus = pStatus_     }  -- | Any failed tasks from your 'RunTask' action are listed here.-rtrFailures :: Lens' RunTaskResponse [Failure]-rtrFailures = lens _rtrFailures (\s a -> s { _rtrFailures = a }) . _List+rtrsFailures :: Lens' RunTaskResponse [Failure]+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 will be described here.-rtrTasks :: Lens' RunTaskResponse [Task]-rtrTasks = lens _rtrTasks (\s a -> s { _rtrTasks = a }) . _List--instance ToPath RunTask where-    toPath = const "/"--instance ToQuery RunTask where-    toQuery = const mempty--instance ToHeaders RunTask--instance ToJSON RunTask where-    toJSON RunTask{..} = object-        [ "cluster"        .= _rtCluster-        , "taskDefinition" .= _rtTaskDefinition-        , "overrides"      .= _rtOverrides-        , "count"          .= _rtCount-        , "startedBy"      .= _rtStartedBy-        ]--instance AWSRequest RunTask where-    type Sv RunTask = ECS-    type Rs RunTask = RunTaskResponse--    request  = post "RunTask"-    response = jsonResponse+rtrsTasks :: Lens' RunTaskResponse [Task]+rtrsTasks = lens _rtrsTasks (\ s a -> s{_rtrsTasks = a}) . _Default . _Coerce; -instance FromJSON RunTaskResponse where-    parseJSON = withObject "RunTaskResponse" $ \o -> RunTaskResponse-        <$> o .:? "failures" .!= mempty-        <*> o .:? "tasks" .!= mempty+-- | The response status code.+rtrsStatus :: Lens' RunTaskResponse Int+rtrsStatus = lens _rtrsStatus (\ s a -> s{_rtrsStatus = a});

@@ -1,190 +1,205 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ECS.StartTask--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Starts a new task from the specified task definition on the specified--- container instance or instances. If you want to use the default Amazon ECS--- scheduler to place your task, use 'RunTask' instead.+-- Starts a new task from the specified task definition on the specified+-- container instance or instances. If you want to use the default Amazon+-- ECS scheduler to place your task, use 'RunTask' instead. -- -- The list of container instances to start tasks on is limited to 10. ----------- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_StartTask.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_StartTask.html AWS API Reference> for StartTask. module Network.AWS.ECS.StartTask     (-    -- * Request-      StartTask-    -- ** Request constructor-    , startTask-    -- ** Request lenses-    , st1Cluster-    , st1ContainerInstances-    , st1Overrides-    , st1StartedBy-    , st1TaskDefinition+    -- * Creating a Request+      startTask+    , StartTask+    -- * Request Lenses+    , sOverrides+    , sCluster+    , sStartedBy+    , sTaskDefinition+    , sContainerInstances -    -- * Response-    , StartTaskResponse-    -- ** Response constructor+    -- * Destructuring the Response     , startTaskResponse-    -- ** Response lenses-    , strFailures-    , strTasks+    , StartTaskResponse+    -- * Response Lenses+    , strsFailures+    , strsTasks+    , strsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.ECS.Types-import qualified GHC.Exts+import           Network.AWS.ECS.Types+import           Network.AWS.ECS.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data StartTask = StartTask-    { _st1Cluster            :: Maybe Text-    , _st1ContainerInstances :: List "containerInstances" Text-    , _st1Overrides          :: Maybe TaskOverride-    , _st1StartedBy          :: Maybe Text-    , _st1TaskDefinition     :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'startTask' smart constructor.+data StartTask = StartTask'+    { _sOverrides          :: !(Maybe TaskOverride)+    , _sCluster            :: !(Maybe Text)+    , _sStartedBy          :: !(Maybe Text)+    , _sTaskDefinition     :: !Text+    , _sContainerInstances :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'StartTask' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'StartTask' with the minimum fields required to make a request. ----- * 'st1Cluster' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'st1ContainerInstances' @::@ ['Text']+-- * 'sOverrides' ----- * 'st1Overrides' @::@ 'Maybe' 'TaskOverride'+-- * 'sCluster' ----- * 'st1StartedBy' @::@ 'Maybe' 'Text'+-- * 'sStartedBy' ----- * 'st1TaskDefinition' @::@ 'Text'+-- * 'sTaskDefinition' ---startTask :: Text -- ^ 'st1TaskDefinition'-          -> StartTask-startTask p1 = StartTask-    { _st1TaskDefinition     = p1-    , _st1Cluster            = Nothing-    , _st1Overrides          = Nothing-    , _st1ContainerInstances = mempty-    , _st1StartedBy          = Nothing+-- * 'sContainerInstances'+startTask+    :: Text -- ^ 'sTaskDefinition'+    -> StartTask+startTask pTaskDefinition_ =+    StartTask'+    { _sOverrides = Nothing+    , _sCluster = Nothing+    , _sStartedBy = Nothing+    , _sTaskDefinition = pTaskDefinition_+    , _sContainerInstances = mempty     } --- | The short name or full Amazon Resource Name (ARN) of the cluster that you--- want to start your task on. If you do not specify a cluster, the default--- cluster is assumed..-st1Cluster :: Lens' StartTask (Maybe Text)-st1Cluster = lens _st1Cluster (\s a -> s { _st1Cluster = a })---- | The container instance UUIDs or full Amazon Resource Name (ARN) entries for--- the container instances on which you would like to place your task.------ The list of container instances to start tasks on is limited to 10.---+-- | 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. ---st1ContainerInstances :: Lens' StartTask [Text]-st1ContainerInstances =-    lens _st1ContainerInstances (\s a -> s { _st1ContainerInstances = a })-        . _List+-- A total of 8192 characters are allowed for overrides. This limit+-- includes the JSON formatting characters of the override structure.+sOverrides :: Lens' StartTask (Maybe TaskOverride)+sOverrides = lens _sOverrides (\ s a -> s{_sOverrides = a}); --- | A list of container overrides in JSON format that specify the name of a--- container in the specified task definition and the command it should run--- instead of its default. A total of 8192 characters are allowed for overrides.--- This limit includes the JSON formatting characters of the override structure.-st1Overrides :: Lens' StartTask (Maybe TaskOverride)-st1Overrides = lens _st1Overrides (\s a -> s { _st1Overrides = a })+-- | The short name or full Amazon Resource Name (ARN) of the cluster that+-- you want to start your task on. 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});  -- | 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.+-- 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. ----- If a task is started by an Amazon ECS service, then the 'startedBy' parameter--- contains the deployment ID of the service that starts it.-st1StartedBy :: Lens' StartTask (Maybe Text)-st1StartedBy = lens _st1StartedBy (\s a -> s { _st1StartedBy = a })---- | The 'family' and 'revision' ('family:revision') or full Amazon Resource Name (ARN)--- of the task definition that you want to start.-st1TaskDefinition :: Lens' StartTask Text-st1TaskDefinition =-    lens _st1TaskDefinition (\s a -> s { _st1TaskDefinition = a })+-- 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}); -data StartTaskResponse = StartTaskResponse-    { _strFailures :: List "failures" Failure-    , _strTasks    :: List "tasks" Task-    } deriving (Eq, Read, Show)+-- | The 'family' and 'revision' ('family:revision') or full Amazon Resource+-- Name (ARN) of the task definition that you want 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}); --- | 'StartTaskResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'strFailures' @::@ ['Failure']------ * 'strTasks' @::@ ['Task']+-- | The container instance UUIDs or full Amazon Resource Name (ARN) entries+-- for the container instances on which you would like to place your task. ---startTaskResponse :: StartTaskResponse-startTaskResponse = StartTaskResponse-    { _strTasks    = mempty-    , _strFailures = mempty-    }+-- The list of container instances to start tasks on is limited to 10.+sContainerInstances :: Lens' StartTask [Text]+sContainerInstances = lens _sContainerInstances (\ s a -> s{_sContainerInstances = a}) . _Coerce; --- | Any failed tasks from your 'StartTask' action are listed here.-strFailures :: Lens' StartTaskResponse [Failure]-strFailures = lens _strFailures (\s a -> s { _strFailures = a }) . _List+instance AWSRequest StartTask where+        type Sv StartTask = ECS+        type Rs StartTask = StartTaskResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 StartTaskResponse' <$>+                   (x .?> "failures" .!@ mempty) <*>+                     (x .?> "tasks" .!@ mempty)+                     <*> (pure (fromEnum s))) --- | A full description of the tasks that were started. Each task that was--- successfully placed on your container instances will be described here.-strTasks :: Lens' StartTaskResponse [Task]-strTasks = lens _strTasks (\s a -> s { _strTasks = a }) . _List+instance ToHeaders StartTask where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonEC2ContainerServiceV20141113.StartTask" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON StartTask where+        toJSON StartTask'{..}+          = object+              ["overrides" .= _sOverrides, "cluster" .= _sCluster,+               "startedBy" .= _sStartedBy,+               "taskDefinition" .= _sTaskDefinition,+               "containerInstances" .= _sContainerInstances]+ instance ToPath StartTask where-    toPath = const "/"+        toPath = const "/"  instance ToQuery StartTask where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders StartTask+-- | /See:/ 'startTaskResponse' smart constructor.+data StartTaskResponse = StartTaskResponse'+    { _strsFailures :: !(Maybe [Failure])+    , _strsTasks    :: !(Maybe [Task])+    , _strsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON StartTask where-    toJSON StartTask{..} = object-        [ "cluster"            .= _st1Cluster-        , "taskDefinition"     .= _st1TaskDefinition-        , "overrides"          .= _st1Overrides-        , "containerInstances" .= _st1ContainerInstances-        , "startedBy"          .= _st1StartedBy-        ]+-- | Creates a value of 'StartTaskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'strsFailures'+--+-- * 'strsTasks'+--+-- * 'strsStatus'+startTaskResponse+    :: Int -- ^ 'strsStatus'+    -> StartTaskResponse+startTaskResponse pStatus_ =+    StartTaskResponse'+    { _strsFailures = Nothing+    , _strsTasks = Nothing+    , _strsStatus = pStatus_+    } -instance AWSRequest StartTask where-    type Sv StartTask = ECS-    type Rs StartTask = StartTaskResponse+-- | Any failed tasks from your 'StartTask' action are listed here.+strsFailures :: Lens' StartTaskResponse [Failure]+strsFailures = lens _strsFailures (\ s a -> s{_strsFailures = a}) . _Default . _Coerce; -    request  = post "StartTask"-    response = jsonResponse+-- | A full description of the tasks that were started. Each task that was+-- successfully placed on your container instances will be described here.+strsTasks :: Lens' StartTaskResponse [Task]+strsTasks = lens _strsTasks (\ s a -> s{_strsTasks = a}) . _Default . _Coerce; -instance FromJSON StartTaskResponse where-    parseJSON = withObject "StartTaskResponse" $ \o -> StartTaskResponse-        <$> o .:? "failures" .!= mempty-        <*> o .:? "tasks" .!= mempty+-- | The response status code.+strsStatus :: Lens' StartTaskResponse Int+strsStatus = lens _strsStatus (\ s a -> s{_strsStatus = a});