diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-ecs.cabal b/amazonka-ecs.cabal --- a/amazonka-ecs.cabal +++ b/amazonka-ecs.cabal @@ -1,5 +1,5 @@ name: amazonka-ecs -version: 1.2.0.2 +version: 1.3.0 synopsis: Amazon EC2 Container Service SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -89,7 +89,7 @@ , Network.AWS.ECS.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-ecs-test @@ -109,9 +109,9 @@ , Test.AWS.ECS.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-ecs == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-ecs == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/ECS.hs b/gen/Network/AWS/ECS.hs --- a/gen/Network/AWS/ECS.hs +++ b/gen/Network/AWS/ECS.hs @@ -50,12 +50,12 @@ -- ** ServiceNotActiveException , _ServiceNotActiveException - -- ** NoUpdateAvailableException - , _NoUpdateAvailableException - -- ** ClusterNotFoundException , _ClusterNotFoundException + -- ** NoUpdateAvailableException + , _NoUpdateAvailableException + -- ** ServiceNotFoundException , _ServiceNotFoundException @@ -122,14 +122,11 @@ -- ** ListTaskDefinitions (Paginated) , module Network.AWS.ECS.ListTaskDefinitions - -- ** ListTasks (Paginated) - , module Network.AWS.ECS.ListTasks - -- ** RunTask , module Network.AWS.ECS.RunTask - -- ** ListContainerInstances (Paginated) - , module Network.AWS.ECS.ListContainerInstances + -- ** ListTasks (Paginated) + , module Network.AWS.ECS.ListTasks -- ** RegisterContainerInstance , module Network.AWS.ECS.RegisterContainerInstance @@ -137,6 +134,9 @@ -- ** UpdateContainerAgent , module Network.AWS.ECS.UpdateContainerAgent + -- ** ListContainerInstances (Paginated) + , module Network.AWS.ECS.ListContainerInstances + -- ** ListTaskDefinitionFamilies (Paginated) , module Network.AWS.ECS.ListTaskDefinitionFamilies @@ -243,30 +243,30 @@ -- ** ContainerService , ContainerService , containerService - , csStatus , csRunningCount + , csStatus , csClusterARN , csDesiredCount , csLoadBalancers , csPendingCount , csEvents - , csServiceName , csDeployments - , csTaskDefinition + , csServiceName , csServiceARN + , csTaskDefinition , csRoleARN -- ** Deployment , Deployment , deployment - , dStatus , dRunningCount + , dStatus , dCreatedAt , dDesiredCount , dPendingCount , dId - , dTaskDefinition , dUpdatedAt + , dTaskDefinition -- ** Failure , Failure @@ -335,8 +335,8 @@ , Task , task , tDesiredStatus - , tClusterARN , tOverrides + , tClusterARN , tTaskARN , tContainerInstanceARN , tLastStatus @@ -362,8 +362,8 @@ -- ** VersionInfo , VersionInfo , versionInfo - , viAgentVersion , viAgentHash + , viAgentVersion , viDockerVersion -- ** Volume diff --git a/gen/Network/AWS/ECS/CreateCluster.hs b/gen/Network/AWS/ECS/CreateCluster.hs --- a/gen/Network/AWS/ECS/CreateCluster.hs +++ b/gen/Network/AWS/ECS/CreateCluster.hs @@ -37,7 +37,7 @@ , CreateClusterResponse -- * Response Lenses , ccrsCluster - , ccrsStatus + , ccrsResponseStatus ) where import Network.AWS.ECS.Types @@ -101,8 +101,8 @@ -- | /See:/ 'createClusterResponse' smart constructor. data CreateClusterResponse = CreateClusterResponse' - { _ccrsCluster :: !(Maybe Cluster) - , _ccrsStatus :: !Int + { _ccrsCluster :: !(Maybe Cluster) + , _ccrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateClusterResponse' with the minimum fields required to make a request. @@ -111,14 +111,14 @@ -- -- * 'ccrsCluster' -- --- * 'ccrsStatus' +-- * 'ccrsResponseStatus' createClusterResponse - :: Int -- ^ 'ccrsStatus' + :: Int -- ^ 'ccrsResponseStatus' -> CreateClusterResponse -createClusterResponse pStatus_ = +createClusterResponse pResponseStatus_ = CreateClusterResponse' { _ccrsCluster = Nothing - , _ccrsStatus = pStatus_ + , _ccrsResponseStatus = pResponseStatus_ } -- | The full description of your new cluster. @@ -126,5 +126,5 @@ ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a}); -- | The response status code. -ccrsStatus :: Lens' CreateClusterResponse Int -ccrsStatus = lens _ccrsStatus (\ s a -> s{_ccrsStatus = a}); +ccrsResponseStatus :: Lens' CreateClusterResponse Int +ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/CreateService.hs b/gen/Network/AWS/ECS/CreateService.hs --- a/gen/Network/AWS/ECS/CreateService.hs +++ b/gen/Network/AWS/ECS/CreateService.hs @@ -43,7 +43,7 @@ , CreateServiceResponse -- * Response Lenses , csrsService - , csrsStatus + , csrsResponseStatus ) where import Network.AWS.ECS.Types @@ -177,8 +177,8 @@ -- | /See:/ 'createServiceResponse' smart constructor. data CreateServiceResponse = CreateServiceResponse' - { _csrsService :: !(Maybe ContainerService) - , _csrsStatus :: !Int + { _csrsService :: !(Maybe ContainerService) + , _csrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateServiceResponse' with the minimum fields required to make a request. @@ -187,14 +187,14 @@ -- -- * 'csrsService' -- --- * 'csrsStatus' +-- * 'csrsResponseStatus' createServiceResponse - :: Int -- ^ 'csrsStatus' + :: Int -- ^ 'csrsResponseStatus' -> CreateServiceResponse -createServiceResponse pStatus_ = +createServiceResponse pResponseStatus_ = CreateServiceResponse' { _csrsService = Nothing - , _csrsStatus = pStatus_ + , _csrsResponseStatus = pResponseStatus_ } -- | The full description of your service following the create call. @@ -202,5 +202,5 @@ csrsService = lens _csrsService (\ s a -> s{_csrsService = a}); -- | The response status code. -csrsStatus :: Lens' CreateServiceResponse Int -csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a}); +csrsResponseStatus :: Lens' CreateServiceResponse Int +csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DeleteCluster.hs b/gen/Network/AWS/ECS/DeleteCluster.hs --- a/gen/Network/AWS/ECS/DeleteCluster.hs +++ b/gen/Network/AWS/ECS/DeleteCluster.hs @@ -37,7 +37,7 @@ , DeleteClusterResponse -- * Response Lenses , drsCluster - , drsStatus + , drsResponseStatus ) where import Network.AWS.ECS.Types @@ -100,8 +100,8 @@ -- | /See:/ 'deleteClusterResponse' smart constructor. data DeleteClusterResponse = DeleteClusterResponse' - { _drsCluster :: !(Maybe Cluster) - , _drsStatus :: !Int + { _drsCluster :: !(Maybe Cluster) + , _drsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteClusterResponse' with the minimum fields required to make a request. @@ -110,14 +110,14 @@ -- -- * 'drsCluster' -- --- * 'drsStatus' +-- * 'drsResponseStatus' deleteClusterResponse - :: Int -- ^ 'drsStatus' + :: Int -- ^ 'drsResponseStatus' -> DeleteClusterResponse -deleteClusterResponse pStatus_ = +deleteClusterResponse pResponseStatus_ = DeleteClusterResponse' { _drsCluster = Nothing - , _drsStatus = pStatus_ + , _drsResponseStatus = pResponseStatus_ } -- | The full description of the deleted cluster. @@ -125,5 +125,5 @@ drsCluster = lens _drsCluster (\ s a -> s{_drsCluster = a}); -- | The response status code. -drsStatus :: Lens' DeleteClusterResponse Int -drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a}); +drsResponseStatus :: Lens' DeleteClusterResponse Int +drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DeleteService.hs b/gen/Network/AWS/ECS/DeleteService.hs --- a/gen/Network/AWS/ECS/DeleteService.hs +++ b/gen/Network/AWS/ECS/DeleteService.hs @@ -35,7 +35,7 @@ , DeleteServiceResponse -- * Response Lenses , dsrsService - , dsrsStatus + , dsrsResponseStatus ) where import Network.AWS.ECS.Types @@ -108,8 +108,8 @@ -- | /See:/ 'deleteServiceResponse' smart constructor. data DeleteServiceResponse = DeleteServiceResponse' - { _dsrsService :: !(Maybe ContainerService) - , _dsrsStatus :: !Int + { _dsrsService :: !(Maybe ContainerService) + , _dsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteServiceResponse' with the minimum fields required to make a request. @@ -118,14 +118,14 @@ -- -- * 'dsrsService' -- --- * 'dsrsStatus' +-- * 'dsrsResponseStatus' deleteServiceResponse - :: Int -- ^ 'dsrsStatus' + :: Int -- ^ 'dsrsResponseStatus' -> DeleteServiceResponse -deleteServiceResponse pStatus_ = +deleteServiceResponse pResponseStatus_ = DeleteServiceResponse' { _dsrsService = Nothing - , _dsrsStatus = pStatus_ + , _dsrsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -133,5 +133,5 @@ dsrsService = lens _dsrsService (\ s a -> s{_dsrsService = a}); -- | The response status code. -dsrsStatus :: Lens' DeleteServiceResponse Int -dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a}); +dsrsResponseStatus :: Lens' DeleteServiceResponse Int +dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DeregisterContainerInstance.hs b/gen/Network/AWS/ECS/DeregisterContainerInstance.hs --- a/gen/Network/AWS/ECS/DeregisterContainerInstance.hs +++ b/gen/Network/AWS/ECS/DeregisterContainerInstance.hs @@ -50,7 +50,7 @@ , DeregisterContainerInstanceResponse -- * Response Lenses , dcirsContainerInstance - , dcirsStatus + , dcirsResponseStatus ) where import Network.AWS.ECS.Types @@ -150,7 +150,7 @@ -- | /See:/ 'deregisterContainerInstanceResponse' smart constructor. data DeregisterContainerInstanceResponse = DeregisterContainerInstanceResponse' { _dcirsContainerInstance :: !(Maybe ContainerInstance) - , _dcirsStatus :: !Int + , _dcirsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeregisterContainerInstanceResponse' with the minimum fields required to make a request. @@ -159,14 +159,14 @@ -- -- * 'dcirsContainerInstance' -- --- * 'dcirsStatus' +-- * 'dcirsResponseStatus' deregisterContainerInstanceResponse - :: Int -- ^ 'dcirsStatus' + :: Int -- ^ 'dcirsResponseStatus' -> DeregisterContainerInstanceResponse -deregisterContainerInstanceResponse pStatus_ = +deregisterContainerInstanceResponse pResponseStatus_ = DeregisterContainerInstanceResponse' { _dcirsContainerInstance = Nothing - , _dcirsStatus = pStatus_ + , _dcirsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -174,5 +174,5 @@ dcirsContainerInstance = lens _dcirsContainerInstance (\ s a -> s{_dcirsContainerInstance = a}); -- | The response status code. -dcirsStatus :: Lens' DeregisterContainerInstanceResponse Int -dcirsStatus = lens _dcirsStatus (\ s a -> s{_dcirsStatus = a}); +dcirsResponseStatus :: Lens' DeregisterContainerInstanceResponse Int +dcirsResponseStatus = lens _dcirsResponseStatus (\ s a -> s{_dcirsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DeregisterTaskDefinition.hs b/gen/Network/AWS/ECS/DeregisterTaskDefinition.hs --- a/gen/Network/AWS/ECS/DeregisterTaskDefinition.hs +++ b/gen/Network/AWS/ECS/DeregisterTaskDefinition.hs @@ -45,7 +45,7 @@ , DeregisterTaskDefinitionResponse -- * Response Lenses , dtdrsTaskDefinition - , dtdrsStatus + , dtdrsResponseStatus ) where import Network.AWS.ECS.Types @@ -113,7 +113,7 @@ -- | /See:/ 'deregisterTaskDefinitionResponse' smart constructor. data DeregisterTaskDefinitionResponse = DeregisterTaskDefinitionResponse' { _dtdrsTaskDefinition :: !(Maybe TaskDefinition) - , _dtdrsStatus :: !Int + , _dtdrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeregisterTaskDefinitionResponse' with the minimum fields required to make a request. @@ -122,14 +122,14 @@ -- -- * 'dtdrsTaskDefinition' -- --- * 'dtdrsStatus' +-- * 'dtdrsResponseStatus' deregisterTaskDefinitionResponse - :: Int -- ^ 'dtdrsStatus' + :: Int -- ^ 'dtdrsResponseStatus' -> DeregisterTaskDefinitionResponse -deregisterTaskDefinitionResponse pStatus_ = +deregisterTaskDefinitionResponse pResponseStatus_ = DeregisterTaskDefinitionResponse' { _dtdrsTaskDefinition = Nothing - , _dtdrsStatus = pStatus_ + , _dtdrsResponseStatus = pResponseStatus_ } -- | The full description of the deregistered task. @@ -137,5 +137,5 @@ dtdrsTaskDefinition = lens _dtdrsTaskDefinition (\ s a -> s{_dtdrsTaskDefinition = a}); -- | The response status code. -dtdrsStatus :: Lens' DeregisterTaskDefinitionResponse Int -dtdrsStatus = lens _dtdrsStatus (\ s a -> s{_dtdrsStatus = a}); +dtdrsResponseStatus :: Lens' DeregisterTaskDefinitionResponse Int +dtdrsResponseStatus = lens _dtdrsResponseStatus (\ s a -> s{_dtdrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DescribeClusters.hs b/gen/Network/AWS/ECS/DescribeClusters.hs --- a/gen/Network/AWS/ECS/DescribeClusters.hs +++ b/gen/Network/AWS/ECS/DescribeClusters.hs @@ -35,7 +35,7 @@ -- * Response Lenses , dcrsFailures , dcrsClusters - , dcrsStatus + , dcrsResponseStatus ) where import Network.AWS.ECS.Types @@ -101,9 +101,9 @@ -- | /See:/ 'describeClustersResponse' smart constructor. data DescribeClustersResponse = DescribeClustersResponse' - { _dcrsFailures :: !(Maybe [Failure]) - , _dcrsClusters :: !(Maybe [Cluster]) - , _dcrsStatus :: !Int + { _dcrsFailures :: !(Maybe [Failure]) + , _dcrsClusters :: !(Maybe [Cluster]) + , _dcrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeClustersResponse' with the minimum fields required to make a request. @@ -114,15 +114,15 @@ -- -- * 'dcrsClusters' -- --- * 'dcrsStatus' +-- * 'dcrsResponseStatus' describeClustersResponse - :: Int -- ^ 'dcrsStatus' + :: Int -- ^ 'dcrsResponseStatus' -> DescribeClustersResponse -describeClustersResponse pStatus_ = +describeClustersResponse pResponseStatus_ = DescribeClustersResponse' { _dcrsFailures = Nothing , _dcrsClusters = Nothing - , _dcrsStatus = pStatus_ + , _dcrsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -134,5 +134,5 @@ dcrsClusters = lens _dcrsClusters (\ s a -> s{_dcrsClusters = a}) . _Default . _Coerce; -- | The response status code. -dcrsStatus :: Lens' DescribeClustersResponse Int -dcrsStatus = lens _dcrsStatus (\ s a -> s{_dcrsStatus = a}); +dcrsResponseStatus :: Lens' DescribeClustersResponse Int +dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DescribeContainerInstances.hs b/gen/Network/AWS/ECS/DescribeContainerInstances.hs --- a/gen/Network/AWS/ECS/DescribeContainerInstances.hs +++ b/gen/Network/AWS/ECS/DescribeContainerInstances.hs @@ -38,7 +38,7 @@ -- * Response Lenses , dcisrsFailures , dcisrsContainerInstances - , dcisrsStatus + , dcisrsResponseStatus ) where import Network.AWS.ECS.Types @@ -119,7 +119,7 @@ data DescribeContainerInstancesResponse = DescribeContainerInstancesResponse' { _dcisrsFailures :: !(Maybe [Failure]) , _dcisrsContainerInstances :: !(Maybe [ContainerInstance]) - , _dcisrsStatus :: !Int + , _dcisrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeContainerInstancesResponse' with the minimum fields required to make a request. @@ -130,15 +130,15 @@ -- -- * 'dcisrsContainerInstances' -- --- * 'dcisrsStatus' +-- * 'dcisrsResponseStatus' describeContainerInstancesResponse - :: Int -- ^ 'dcisrsStatus' + :: Int -- ^ 'dcisrsResponseStatus' -> DescribeContainerInstancesResponse -describeContainerInstancesResponse pStatus_ = +describeContainerInstancesResponse pResponseStatus_ = DescribeContainerInstancesResponse' { _dcisrsFailures = Nothing , _dcisrsContainerInstances = Nothing - , _dcisrsStatus = pStatus_ + , _dcisrsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -150,5 +150,5 @@ dcisrsContainerInstances = lens _dcisrsContainerInstances (\ s a -> s{_dcisrsContainerInstances = a}) . _Default . _Coerce; -- | The response status code. -dcisrsStatus :: Lens' DescribeContainerInstancesResponse Int -dcisrsStatus = lens _dcisrsStatus (\ s a -> s{_dcisrsStatus = a}); +dcisrsResponseStatus :: Lens' DescribeContainerInstancesResponse Int +dcisrsResponseStatus = lens _dcisrsResponseStatus (\ s a -> s{_dcisrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DescribeServices.hs b/gen/Network/AWS/ECS/DescribeServices.hs --- a/gen/Network/AWS/ECS/DescribeServices.hs +++ b/gen/Network/AWS/ECS/DescribeServices.hs @@ -36,7 +36,7 @@ -- * Response Lenses , dssrsFailures , dssrsServices - , dssrsStatus + , dssrsResponseStatus ) where import Network.AWS.ECS.Types @@ -110,9 +110,9 @@ -- | /See:/ 'describeServicesResponse' smart constructor. data DescribeServicesResponse = DescribeServicesResponse' - { _dssrsFailures :: !(Maybe [Failure]) - , _dssrsServices :: !(Maybe [ContainerService]) - , _dssrsStatus :: !Int + { _dssrsFailures :: !(Maybe [Failure]) + , _dssrsServices :: !(Maybe [ContainerService]) + , _dssrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeServicesResponse' with the minimum fields required to make a request. @@ -123,15 +123,15 @@ -- -- * 'dssrsServices' -- --- * 'dssrsStatus' +-- * 'dssrsResponseStatus' describeServicesResponse - :: Int -- ^ 'dssrsStatus' + :: Int -- ^ 'dssrsResponseStatus' -> DescribeServicesResponse -describeServicesResponse pStatus_ = +describeServicesResponse pResponseStatus_ = DescribeServicesResponse' { _dssrsFailures = Nothing , _dssrsServices = Nothing - , _dssrsStatus = pStatus_ + , _dssrsResponseStatus = pResponseStatus_ } -- | Any failures associated with the call. @@ -143,5 +143,5 @@ dssrsServices = lens _dssrsServices (\ s a -> s{_dssrsServices = a}) . _Default . _Coerce; -- | The response status code. -dssrsStatus :: Lens' DescribeServicesResponse Int -dssrsStatus = lens _dssrsStatus (\ s a -> s{_dssrsStatus = a}); +dssrsResponseStatus :: Lens' DescribeServicesResponse Int +dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DescribeTaskDefinition.hs b/gen/Network/AWS/ECS/DescribeTaskDefinition.hs --- a/gen/Network/AWS/ECS/DescribeTaskDefinition.hs +++ b/gen/Network/AWS/ECS/DescribeTaskDefinition.hs @@ -39,7 +39,7 @@ , DescribeTaskDefinitionResponse -- * Response Lenses , desrsTaskDefinition - , desrsStatus + , desrsResponseStatus ) where import Network.AWS.ECS.Types @@ -108,7 +108,7 @@ -- | /See:/ 'describeTaskDefinitionResponse' smart constructor. data DescribeTaskDefinitionResponse = DescribeTaskDefinitionResponse' { _desrsTaskDefinition :: !(Maybe TaskDefinition) - , _desrsStatus :: !Int + , _desrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeTaskDefinitionResponse' with the minimum fields required to make a request. @@ -117,14 +117,14 @@ -- -- * 'desrsTaskDefinition' -- --- * 'desrsStatus' +-- * 'desrsResponseStatus' describeTaskDefinitionResponse - :: Int -- ^ 'desrsStatus' + :: Int -- ^ 'desrsResponseStatus' -> DescribeTaskDefinitionResponse -describeTaskDefinitionResponse pStatus_ = +describeTaskDefinitionResponse pResponseStatus_ = DescribeTaskDefinitionResponse' { _desrsTaskDefinition = Nothing - , _desrsStatus = pStatus_ + , _desrsResponseStatus = pResponseStatus_ } -- | The full task definition description. @@ -132,5 +132,5 @@ desrsTaskDefinition = lens _desrsTaskDefinition (\ s a -> s{_desrsTaskDefinition = a}); -- | The response status code. -desrsStatus :: Lens' DescribeTaskDefinitionResponse Int -desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a}); +desrsResponseStatus :: Lens' DescribeTaskDefinitionResponse Int +desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DescribeTasks.hs b/gen/Network/AWS/ECS/DescribeTasks.hs --- a/gen/Network/AWS/ECS/DescribeTasks.hs +++ b/gen/Network/AWS/ECS/DescribeTasks.hs @@ -36,7 +36,7 @@ -- * Response Lenses , dtrsFailures , dtrsTasks - , dtrsStatus + , dtrsResponseStatus ) where import Network.AWS.ECS.Types @@ -113,9 +113,9 @@ -- | /See:/ 'describeTasksResponse' smart constructor. data DescribeTasksResponse = DescribeTasksResponse' - { _dtrsFailures :: !(Maybe [Failure]) - , _dtrsTasks :: !(Maybe [Task]) - , _dtrsStatus :: !Int + { _dtrsFailures :: !(Maybe [Failure]) + , _dtrsTasks :: !(Maybe [Task]) + , _dtrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeTasksResponse' with the minimum fields required to make a request. @@ -126,15 +126,15 @@ -- -- * 'dtrsTasks' -- --- * 'dtrsStatus' +-- * 'dtrsResponseStatus' describeTasksResponse - :: Int -- ^ 'dtrsStatus' + :: Int -- ^ 'dtrsResponseStatus' -> DescribeTasksResponse -describeTasksResponse pStatus_ = +describeTasksResponse pResponseStatus_ = DescribeTasksResponse' { _dtrsFailures = Nothing , _dtrsTasks = Nothing - , _dtrsStatus = pStatus_ + , _dtrsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -146,5 +146,5 @@ dtrsTasks = lens _dtrsTasks (\ s a -> s{_dtrsTasks = a}) . _Default . _Coerce; -- | The response status code. -dtrsStatus :: Lens' DescribeTasksResponse Int -dtrsStatus = lens _dtrsStatus (\ s a -> s{_dtrsStatus = a}); +dtrsResponseStatus :: Lens' DescribeTasksResponse Int +dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/DiscoverPollEndpoint.hs b/gen/Network/AWS/ECS/DiscoverPollEndpoint.hs --- a/gen/Network/AWS/ECS/DiscoverPollEndpoint.hs +++ b/gen/Network/AWS/ECS/DiscoverPollEndpoint.hs @@ -40,7 +40,7 @@ -- * Response Lenses , dpersTelemetryEndpoint , dpersEndpoint - , dpersStatus + , dpersResponseStatus ) where import Network.AWS.ECS.Types @@ -121,7 +121,7 @@ data DiscoverPollEndpointResponse = DiscoverPollEndpointResponse' { _dpersTelemetryEndpoint :: !(Maybe Text) , _dpersEndpoint :: !(Maybe Text) - , _dpersStatus :: !Int + , _dpersResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DiscoverPollEndpointResponse' with the minimum fields required to make a request. @@ -132,15 +132,15 @@ -- -- * 'dpersEndpoint' -- --- * 'dpersStatus' +-- * 'dpersResponseStatus' discoverPollEndpointResponse - :: Int -- ^ 'dpersStatus' + :: Int -- ^ 'dpersResponseStatus' -> DiscoverPollEndpointResponse -discoverPollEndpointResponse pStatus_ = +discoverPollEndpointResponse pResponseStatus_ = DiscoverPollEndpointResponse' { _dpersTelemetryEndpoint = Nothing , _dpersEndpoint = Nothing - , _dpersStatus = pStatus_ + , _dpersResponseStatus = pResponseStatus_ } -- | The telemetry endpoint for the Amazon ECS agent. @@ -152,5 +152,5 @@ dpersEndpoint = lens _dpersEndpoint (\ s a -> s{_dpersEndpoint = a}); -- | The response status code. -dpersStatus :: Lens' DiscoverPollEndpointResponse Int -dpersStatus = lens _dpersStatus (\ s a -> s{_dpersStatus = a}); +dpersResponseStatus :: Lens' DiscoverPollEndpointResponse Int +dpersResponseStatus = lens _dpersResponseStatus (\ s a -> s{_dpersResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/ListClusters.hs b/gen/Network/AWS/ECS/ListClusters.hs --- a/gen/Network/AWS/ECS/ListClusters.hs +++ b/gen/Network/AWS/ECS/ListClusters.hs @@ -38,7 +38,7 @@ -- * Response Lenses , lcrsClusterARNs , lcrsNextToken - , lcrsStatus + , lcrsResponseStatus ) where import Network.AWS.ECS.Types @@ -131,9 +131,9 @@ -- | /See:/ 'listClustersResponse' smart constructor. data ListClustersResponse = ListClustersResponse' - { _lcrsClusterARNs :: !(Maybe [Text]) - , _lcrsNextToken :: !(Maybe Text) - , _lcrsStatus :: !Int + { _lcrsClusterARNs :: !(Maybe [Text]) + , _lcrsNextToken :: !(Maybe Text) + , _lcrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListClustersResponse' with the minimum fields required to make a request. @@ -144,15 +144,15 @@ -- -- * 'lcrsNextToken' -- --- * 'lcrsStatus' +-- * 'lcrsResponseStatus' listClustersResponse - :: Int -- ^ 'lcrsStatus' + :: Int -- ^ 'lcrsResponseStatus' -> ListClustersResponse -listClustersResponse pStatus_ = +listClustersResponse pResponseStatus_ = ListClustersResponse' { _lcrsClusterARNs = Nothing , _lcrsNextToken = Nothing - , _lcrsStatus = pStatus_ + , _lcrsResponseStatus = pResponseStatus_ } -- | The list of full Amazon Resource Name (ARN) entries for each cluster @@ -168,5 +168,5 @@ lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a}); -- | The response status code. -lcrsStatus :: Lens' ListClustersResponse Int -lcrsStatus = lens _lcrsStatus (\ s a -> s{_lcrsStatus = a}); +lcrsResponseStatus :: Lens' ListClustersResponse Int +lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/ListContainerInstances.hs b/gen/Network/AWS/ECS/ListContainerInstances.hs --- a/gen/Network/AWS/ECS/ListContainerInstances.hs +++ b/gen/Network/AWS/ECS/ListContainerInstances.hs @@ -39,7 +39,7 @@ -- * Response Lenses , lcirsContainerInstanceARNs , lcirsNextToken - , lcirsStatus + , lcirsResponseStatus ) where import Network.AWS.ECS.Types @@ -147,7 +147,7 @@ data ListContainerInstancesResponse = ListContainerInstancesResponse' { _lcirsContainerInstanceARNs :: !(Maybe [Text]) , _lcirsNextToken :: !(Maybe Text) - , _lcirsStatus :: !Int + , _lcirsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListContainerInstancesResponse' with the minimum fields required to make a request. @@ -158,15 +158,15 @@ -- -- * 'lcirsNextToken' -- --- * 'lcirsStatus' +-- * 'lcirsResponseStatus' listContainerInstancesResponse - :: Int -- ^ 'lcirsStatus' + :: Int -- ^ 'lcirsResponseStatus' -> ListContainerInstancesResponse -listContainerInstancesResponse pStatus_ = +listContainerInstancesResponse pResponseStatus_ = ListContainerInstancesResponse' { _lcirsContainerInstanceARNs = Nothing , _lcirsNextToken = Nothing - , _lcirsStatus = pStatus_ + , _lcirsResponseStatus = pResponseStatus_ } -- | The list of container instance full Amazon Resource Name (ARN) entries @@ -182,5 +182,5 @@ lcirsNextToken = lens _lcirsNextToken (\ s a -> s{_lcirsNextToken = a}); -- | The response status code. -lcirsStatus :: Lens' ListContainerInstancesResponse Int -lcirsStatus = lens _lcirsStatus (\ s a -> s{_lcirsStatus = a}); +lcirsResponseStatus :: Lens' ListContainerInstancesResponse Int +lcirsResponseStatus = lens _lcirsResponseStatus (\ s a -> s{_lcirsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/ListServices.hs b/gen/Network/AWS/ECS/ListServices.hs --- a/gen/Network/AWS/ECS/ListServices.hs +++ b/gen/Network/AWS/ECS/ListServices.hs @@ -39,7 +39,7 @@ -- * Response Lenses , lsrsServiceARNs , lsrsNextToken - , lsrsStatus + , lsrsResponseStatus ) where import Network.AWS.ECS.Types @@ -143,9 +143,9 @@ -- | /See:/ 'listServicesResponse' smart constructor. data ListServicesResponse = ListServicesResponse' - { _lsrsServiceARNs :: !(Maybe [Text]) - , _lsrsNextToken :: !(Maybe Text) - , _lsrsStatus :: !Int + { _lsrsServiceARNs :: !(Maybe [Text]) + , _lsrsNextToken :: !(Maybe Text) + , _lsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListServicesResponse' with the minimum fields required to make a request. @@ -156,15 +156,15 @@ -- -- * 'lsrsNextToken' -- --- * 'lsrsStatus' +-- * 'lsrsResponseStatus' listServicesResponse - :: Int -- ^ 'lsrsStatus' + :: Int -- ^ 'lsrsResponseStatus' -> ListServicesResponse -listServicesResponse pStatus_ = +listServicesResponse pResponseStatus_ = ListServicesResponse' { _lsrsServiceARNs = Nothing , _lsrsNextToken = Nothing - , _lsrsStatus = pStatus_ + , _lsrsResponseStatus = pResponseStatus_ } -- | The list of full Amazon Resource Name (ARN) entries for each service @@ -180,5 +180,5 @@ lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a}); -- | The response status code. -lsrsStatus :: Lens' ListServicesResponse Int -lsrsStatus = lens _lsrsStatus (\ s a -> s{_lsrsStatus = a}); +lsrsResponseStatus :: Lens' ListServicesResponse Int +lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs b/gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs --- a/gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs +++ b/gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs @@ -42,7 +42,7 @@ -- * Response Lenses , ltdfrsFamilies , ltdfrsNextToken - , ltdfrsStatus + , ltdfrsResponseStatus ) where import Network.AWS.ECS.Types @@ -148,9 +148,9 @@ -- | /See:/ 'listTaskDefinitionFamiliesResponse' smart constructor. data ListTaskDefinitionFamiliesResponse = ListTaskDefinitionFamiliesResponse' - { _ltdfrsFamilies :: !(Maybe [Text]) - , _ltdfrsNextToken :: !(Maybe Text) - , _ltdfrsStatus :: !Int + { _ltdfrsFamilies :: !(Maybe [Text]) + , _ltdfrsNextToken :: !(Maybe Text) + , _ltdfrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListTaskDefinitionFamiliesResponse' with the minimum fields required to make a request. @@ -161,15 +161,15 @@ -- -- * 'ltdfrsNextToken' -- --- * 'ltdfrsStatus' +-- * 'ltdfrsResponseStatus' listTaskDefinitionFamiliesResponse - :: Int -- ^ 'ltdfrsStatus' + :: Int -- ^ 'ltdfrsResponseStatus' -> ListTaskDefinitionFamiliesResponse -listTaskDefinitionFamiliesResponse pStatus_ = +listTaskDefinitionFamiliesResponse pResponseStatus_ = ListTaskDefinitionFamiliesResponse' { _ltdfrsFamilies = Nothing , _ltdfrsNextToken = Nothing - , _ltdfrsStatus = pStatus_ + , _ltdfrsResponseStatus = pResponseStatus_ } -- | The list of task definition family names that match the @@ -186,5 +186,5 @@ ltdfrsNextToken = lens _ltdfrsNextToken (\ s a -> s{_ltdfrsNextToken = a}); -- | The response status code. -ltdfrsStatus :: Lens' ListTaskDefinitionFamiliesResponse Int -ltdfrsStatus = lens _ltdfrsStatus (\ s a -> s{_ltdfrsStatus = a}); +ltdfrsResponseStatus :: Lens' ListTaskDefinitionFamiliesResponse Int +ltdfrsResponseStatus = lens _ltdfrsResponseStatus (\ s a -> s{_ltdfrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/ListTaskDefinitions.hs b/gen/Network/AWS/ECS/ListTaskDefinitions.hs --- a/gen/Network/AWS/ECS/ListTaskDefinitions.hs +++ b/gen/Network/AWS/ECS/ListTaskDefinitions.hs @@ -43,7 +43,7 @@ -- * Response Lenses , ltdrsTaskDefinitionARNs , ltdrsNextToken - , ltdrsStatus + , ltdrsResponseStatus ) where import Network.AWS.ECS.Types @@ -179,7 +179,7 @@ data ListTaskDefinitionsResponse = ListTaskDefinitionsResponse' { _ltdrsTaskDefinitionARNs :: !(Maybe [Text]) , _ltdrsNextToken :: !(Maybe Text) - , _ltdrsStatus :: !Int + , _ltdrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListTaskDefinitionsResponse' with the minimum fields required to make a request. @@ -190,15 +190,15 @@ -- -- * 'ltdrsNextToken' -- --- * 'ltdrsStatus' +-- * 'ltdrsResponseStatus' listTaskDefinitionsResponse - :: Int -- ^ 'ltdrsStatus' + :: Int -- ^ 'ltdrsResponseStatus' -> ListTaskDefinitionsResponse -listTaskDefinitionsResponse pStatus_ = +listTaskDefinitionsResponse pResponseStatus_ = ListTaskDefinitionsResponse' { _ltdrsTaskDefinitionARNs = Nothing , _ltdrsNextToken = Nothing - , _ltdrsStatus = pStatus_ + , _ltdrsResponseStatus = pResponseStatus_ } -- | The list of task definition Amazon Resource Name (ARN) entries for the @@ -214,5 +214,5 @@ ltdrsNextToken = lens _ltdrsNextToken (\ s a -> s{_ltdrsNextToken = a}); -- | The response status code. -ltdrsStatus :: Lens' ListTaskDefinitionsResponse Int -ltdrsStatus = lens _ltdrsStatus (\ s a -> s{_ltdrsStatus = a}); +ltdrsResponseStatus :: Lens' ListTaskDefinitionsResponse Int +ltdrsResponseStatus = lens _ltdrsResponseStatus (\ s a -> s{_ltdrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/ListTasks.hs b/gen/Network/AWS/ECS/ListTasks.hs --- a/gen/Network/AWS/ECS/ListTasks.hs +++ b/gen/Network/AWS/ECS/ListTasks.hs @@ -47,7 +47,7 @@ -- * Response Lenses , ltrsNextToken , ltrsTaskARNs - , ltrsStatus + , ltrsResponseStatus ) where import Network.AWS.ECS.Types @@ -208,9 +208,9 @@ -- | /See:/ 'listTasksResponse' smart constructor. data ListTasksResponse = ListTasksResponse' - { _ltrsNextToken :: !(Maybe Text) - , _ltrsTaskARNs :: !(Maybe [Text]) - , _ltrsStatus :: !Int + { _ltrsNextToken :: !(Maybe Text) + , _ltrsTaskARNs :: !(Maybe [Text]) + , _ltrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListTasksResponse' with the minimum fields required to make a request. @@ -221,15 +221,15 @@ -- -- * 'ltrsTaskARNs' -- --- * 'ltrsStatus' +-- * 'ltrsResponseStatus' listTasksResponse - :: Int -- ^ 'ltrsStatus' + :: Int -- ^ 'ltrsResponseStatus' -> ListTasksResponse -listTasksResponse pStatus_ = +listTasksResponse pResponseStatus_ = ListTasksResponse' { _ltrsNextToken = Nothing , _ltrsTaskARNs = Nothing - , _ltrsStatus = pStatus_ + , _ltrsResponseStatus = pResponseStatus_ } -- | The 'nextToken' value to include in a future 'ListTasks' request. When @@ -245,5 +245,5 @@ ltrsTaskARNs = lens _ltrsTaskARNs (\ s a -> s{_ltrsTaskARNs = a}) . _Default . _Coerce; -- | The response status code. -ltrsStatus :: Lens' ListTasksResponse Int -ltrsStatus = lens _ltrsStatus (\ s a -> s{_ltrsStatus = a}); +ltrsResponseStatus :: Lens' ListTasksResponse Int +ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/RegisterContainerInstance.hs b/gen/Network/AWS/ECS/RegisterContainerInstance.hs --- a/gen/Network/AWS/ECS/RegisterContainerInstance.hs +++ b/gen/Network/AWS/ECS/RegisterContainerInstance.hs @@ -43,7 +43,7 @@ , RegisterContainerInstanceResponse -- * Response Lenses , rcirsContainerInstance - , rcirsStatus + , rcirsResponseStatus ) where import Network.AWS.ECS.Types @@ -166,7 +166,7 @@ -- | /See:/ 'registerContainerInstanceResponse' smart constructor. data RegisterContainerInstanceResponse = RegisterContainerInstanceResponse' { _rcirsContainerInstance :: !(Maybe ContainerInstance) - , _rcirsStatus :: !Int + , _rcirsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RegisterContainerInstanceResponse' with the minimum fields required to make a request. @@ -175,14 +175,14 @@ -- -- * 'rcirsContainerInstance' -- --- * 'rcirsStatus' +-- * 'rcirsResponseStatus' registerContainerInstanceResponse - :: Int -- ^ 'rcirsStatus' + :: Int -- ^ 'rcirsResponseStatus' -> RegisterContainerInstanceResponse -registerContainerInstanceResponse pStatus_ = +registerContainerInstanceResponse pResponseStatus_ = RegisterContainerInstanceResponse' { _rcirsContainerInstance = Nothing - , _rcirsStatus = pStatus_ + , _rcirsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -190,5 +190,5 @@ rcirsContainerInstance = lens _rcirsContainerInstance (\ s a -> s{_rcirsContainerInstance = a}); -- | The response status code. -rcirsStatus :: Lens' RegisterContainerInstanceResponse Int -rcirsStatus = lens _rcirsStatus (\ s a -> s{_rcirsStatus = a}); +rcirsResponseStatus :: Lens' RegisterContainerInstanceResponse Int +rcirsResponseStatus = lens _rcirsResponseStatus (\ s a -> s{_rcirsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/RegisterTaskDefinition.hs b/gen/Network/AWS/ECS/RegisterTaskDefinition.hs --- a/gen/Network/AWS/ECS/RegisterTaskDefinition.hs +++ b/gen/Network/AWS/ECS/RegisterTaskDefinition.hs @@ -41,7 +41,7 @@ , RegisterTaskDefinitionResponse -- * Response Lenses , rtdrsTaskDefinition - , rtdrsStatus + , rtdrsResponseStatus ) where import Network.AWS.ECS.Types @@ -133,7 +133,7 @@ -- | /See:/ 'registerTaskDefinitionResponse' smart constructor. data RegisterTaskDefinitionResponse = RegisterTaskDefinitionResponse' { _rtdrsTaskDefinition :: !(Maybe TaskDefinition) - , _rtdrsStatus :: !Int + , _rtdrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RegisterTaskDefinitionResponse' with the minimum fields required to make a request. @@ -142,14 +142,14 @@ -- -- * 'rtdrsTaskDefinition' -- --- * 'rtdrsStatus' +-- * 'rtdrsResponseStatus' registerTaskDefinitionResponse - :: Int -- ^ 'rtdrsStatus' + :: Int -- ^ 'rtdrsResponseStatus' -> RegisterTaskDefinitionResponse -registerTaskDefinitionResponse pStatus_ = +registerTaskDefinitionResponse pResponseStatus_ = RegisterTaskDefinitionResponse' { _rtdrsTaskDefinition = Nothing - , _rtdrsStatus = pStatus_ + , _rtdrsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -157,5 +157,5 @@ rtdrsTaskDefinition = lens _rtdrsTaskDefinition (\ s a -> s{_rtdrsTaskDefinition = a}); -- | The response status code. -rtdrsStatus :: Lens' RegisterTaskDefinitionResponse Int -rtdrsStatus = lens _rtdrsStatus (\ s a -> s{_rtdrsStatus = a}); +rtdrsResponseStatus :: Lens' RegisterTaskDefinitionResponse Int +rtdrsResponseStatus = lens _rtdrsResponseStatus (\ s a -> s{_rtdrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/RunTask.hs b/gen/Network/AWS/ECS/RunTask.hs --- a/gen/Network/AWS/ECS/RunTask.hs +++ b/gen/Network/AWS/ECS/RunTask.hs @@ -43,7 +43,7 @@ -- * Response Lenses , rtrsFailures , rtrsTasks - , rtrsStatus + , rtrsResponseStatus ) where import Network.AWS.ECS.Types @@ -168,9 +168,9 @@ -- | /See:/ 'runTaskResponse' smart constructor. data RunTaskResponse = RunTaskResponse' - { _rtrsFailures :: !(Maybe [Failure]) - , _rtrsTasks :: !(Maybe [Task]) - , _rtrsStatus :: !Int + { _rtrsFailures :: !(Maybe [Failure]) + , _rtrsTasks :: !(Maybe [Task]) + , _rtrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RunTaskResponse' with the minimum fields required to make a request. @@ -181,15 +181,15 @@ -- -- * 'rtrsTasks' -- --- * 'rtrsStatus' +-- * 'rtrsResponseStatus' runTaskResponse - :: Int -- ^ 'rtrsStatus' + :: Int -- ^ 'rtrsResponseStatus' -> RunTaskResponse -runTaskResponse pStatus_ = +runTaskResponse pResponseStatus_ = RunTaskResponse' { _rtrsFailures = Nothing , _rtrsTasks = Nothing - , _rtrsStatus = pStatus_ + , _rtrsResponseStatus = pResponseStatus_ } -- | Any failed tasks from your 'RunTask' action are listed here. @@ -202,5 +202,5 @@ rtrsTasks = lens _rtrsTasks (\ s a -> s{_rtrsTasks = a}) . _Default . _Coerce; -- | The response status code. -rtrsStatus :: Lens' RunTaskResponse Int -rtrsStatus = lens _rtrsStatus (\ s a -> s{_rtrsStatus = a}); +rtrsResponseStatus :: Lens' RunTaskResponse Int +rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/StartTask.hs b/gen/Network/AWS/ECS/StartTask.hs --- a/gen/Network/AWS/ECS/StartTask.hs +++ b/gen/Network/AWS/ECS/StartTask.hs @@ -43,7 +43,7 @@ -- * Response Lenses , strsFailures , strsTasks - , strsStatus + , strsResponseStatus ) where import Network.AWS.ECS.Types @@ -168,9 +168,9 @@ -- | /See:/ 'startTaskResponse' smart constructor. data StartTaskResponse = StartTaskResponse' - { _strsFailures :: !(Maybe [Failure]) - , _strsTasks :: !(Maybe [Task]) - , _strsStatus :: !Int + { _strsFailures :: !(Maybe [Failure]) + , _strsTasks :: !(Maybe [Task]) + , _strsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'StartTaskResponse' with the minimum fields required to make a request. @@ -181,15 +181,15 @@ -- -- * 'strsTasks' -- --- * 'strsStatus' +-- * 'strsResponseStatus' startTaskResponse - :: Int -- ^ 'strsStatus' + :: Int -- ^ 'strsResponseStatus' -> StartTaskResponse -startTaskResponse pStatus_ = +startTaskResponse pResponseStatus_ = StartTaskResponse' { _strsFailures = Nothing , _strsTasks = Nothing - , _strsStatus = pStatus_ + , _strsResponseStatus = pResponseStatus_ } -- | Any failed tasks from your 'StartTask' action are listed here. @@ -202,5 +202,5 @@ strsTasks = lens _strsTasks (\ s a -> s{_strsTasks = a}) . _Default . _Coerce; -- | The response status code. -strsStatus :: Lens' StartTaskResponse Int -strsStatus = lens _strsStatus (\ s a -> s{_strsStatus = a}); +strsResponseStatus :: Lens' StartTaskResponse Int +strsResponseStatus = lens _strsResponseStatus (\ s a -> s{_strsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/StopTask.hs b/gen/Network/AWS/ECS/StopTask.hs --- a/gen/Network/AWS/ECS/StopTask.hs +++ b/gen/Network/AWS/ECS/StopTask.hs @@ -35,7 +35,7 @@ , StopTaskResponse -- * Response Lenses , srsTask - , srsStatus + , srsResponseStatus ) where import Network.AWS.ECS.Types @@ -111,8 +111,8 @@ -- | /See:/ 'stopTaskResponse' smart constructor. data StopTaskResponse = StopTaskResponse' - { _srsTask :: !(Maybe Task) - , _srsStatus :: !Int + { _srsTask :: !(Maybe Task) + , _srsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'StopTaskResponse' with the minimum fields required to make a request. @@ -121,14 +121,14 @@ -- -- * 'srsTask' -- --- * 'srsStatus' +-- * 'srsResponseStatus' stopTaskResponse - :: Int -- ^ 'srsStatus' + :: Int -- ^ 'srsResponseStatus' -> StopTaskResponse -stopTaskResponse pStatus_ = +stopTaskResponse pResponseStatus_ = StopTaskResponse' { _srsTask = Nothing - , _srsStatus = pStatus_ + , _srsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -136,5 +136,5 @@ srsTask = lens _srsTask (\ s a -> s{_srsTask = a}); -- | The response status code. -srsStatus :: Lens' StopTaskResponse Int -srsStatus = lens _srsStatus (\ s a -> s{_srsStatus = a}); +srsResponseStatus :: Lens' StopTaskResponse Int +srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/SubmitContainerStateChange.hs b/gen/Network/AWS/ECS/SubmitContainerStateChange.hs --- a/gen/Network/AWS/ECS/SubmitContainerStateChange.hs +++ b/gen/Network/AWS/ECS/SubmitContainerStateChange.hs @@ -43,7 +43,7 @@ , SubmitContainerStateChangeResponse -- * Response Lenses , scscrsAcknowledgment - , scscrsStatus + , scscrsResponseStatus ) where import Network.AWS.ECS.Types @@ -164,7 +164,7 @@ -- | /See:/ 'submitContainerStateChangeResponse' smart constructor. data SubmitContainerStateChangeResponse = SubmitContainerStateChangeResponse' { _scscrsAcknowledgment :: !(Maybe Text) - , _scscrsStatus :: !Int + , _scscrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SubmitContainerStateChangeResponse' with the minimum fields required to make a request. @@ -173,14 +173,14 @@ -- -- * 'scscrsAcknowledgment' -- --- * 'scscrsStatus' +-- * 'scscrsResponseStatus' submitContainerStateChangeResponse - :: Int -- ^ 'scscrsStatus' + :: Int -- ^ 'scscrsResponseStatus' -> SubmitContainerStateChangeResponse -submitContainerStateChangeResponse pStatus_ = +submitContainerStateChangeResponse pResponseStatus_ = SubmitContainerStateChangeResponse' { _scscrsAcknowledgment = Nothing - , _scscrsStatus = pStatus_ + , _scscrsResponseStatus = pResponseStatus_ } -- | Acknowledgement of the state change. @@ -188,5 +188,5 @@ scscrsAcknowledgment = lens _scscrsAcknowledgment (\ s a -> s{_scscrsAcknowledgment = a}); -- | The response status code. -scscrsStatus :: Lens' SubmitContainerStateChangeResponse Int -scscrsStatus = lens _scscrsStatus (\ s a -> s{_scscrsStatus = a}); +scscrsResponseStatus :: Lens' SubmitContainerStateChangeResponse Int +scscrsResponseStatus = lens _scscrsResponseStatus (\ s a -> s{_scscrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/SubmitTaskStateChange.hs b/gen/Network/AWS/ECS/SubmitTaskStateChange.hs --- a/gen/Network/AWS/ECS/SubmitTaskStateChange.hs +++ b/gen/Network/AWS/ECS/SubmitTaskStateChange.hs @@ -40,7 +40,7 @@ , SubmitTaskStateChangeResponse -- * Response Lenses , stscrsAcknowledgment - , stscrsStatus + , stscrsResponseStatus ) where import Network.AWS.ECS.Types @@ -134,7 +134,7 @@ -- | /See:/ 'submitTaskStateChangeResponse' smart constructor. data SubmitTaskStateChangeResponse = SubmitTaskStateChangeResponse' { _stscrsAcknowledgment :: !(Maybe Text) - , _stscrsStatus :: !Int + , _stscrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SubmitTaskStateChangeResponse' with the minimum fields required to make a request. @@ -143,14 +143,14 @@ -- -- * 'stscrsAcknowledgment' -- --- * 'stscrsStatus' +-- * 'stscrsResponseStatus' submitTaskStateChangeResponse - :: Int -- ^ 'stscrsStatus' + :: Int -- ^ 'stscrsResponseStatus' -> SubmitTaskStateChangeResponse -submitTaskStateChangeResponse pStatus_ = +submitTaskStateChangeResponse pResponseStatus_ = SubmitTaskStateChangeResponse' { _stscrsAcknowledgment = Nothing - , _stscrsStatus = pStatus_ + , _stscrsResponseStatus = pResponseStatus_ } -- | Acknowledgement of the state change. @@ -158,5 +158,5 @@ stscrsAcknowledgment = lens _stscrsAcknowledgment (\ s a -> s{_stscrsAcknowledgment = a}); -- | The response status code. -stscrsStatus :: Lens' SubmitTaskStateChangeResponse Int -stscrsStatus = lens _stscrsStatus (\ s a -> s{_stscrsStatus = a}); +stscrsResponseStatus :: Lens' SubmitTaskStateChangeResponse Int +stscrsResponseStatus = lens _stscrsResponseStatus (\ s a -> s{_stscrsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/Types.hs b/gen/Network/AWS/ECS/Types.hs --- a/gen/Network/AWS/ECS/Types.hs +++ b/gen/Network/AWS/ECS/Types.hs @@ -21,8 +21,8 @@ , _ClusterContainsServicesException , _ClusterContainsContainerInstancesException , _ServiceNotActiveException - , _NoUpdateAvailableException , _ClusterNotFoundException + , _NoUpdateAvailableException , _ServiceNotFoundException , _MissingVersionException , _UpdateInProgressException @@ -105,30 +105,30 @@ -- * ContainerService , ContainerService , containerService - , csStatus , csRunningCount + , csStatus , csClusterARN , csDesiredCount , csLoadBalancers , csPendingCount , csEvents - , csServiceName , csDeployments - , csTaskDefinition + , csServiceName , csServiceARN + , csTaskDefinition , csRoleARN -- * Deployment , Deployment , deployment - , dStatus , dRunningCount + , dStatus , dCreatedAt , dDesiredCount , dPendingCount , dId - , dTaskDefinition , dUpdatedAt + , dTaskDefinition -- * Failure , Failure @@ -197,8 +197,8 @@ , Task , task , tDesiredStatus - , tClusterARN , tOverrides + , tClusterARN , tTaskARN , tContainerInstanceARN , tLastStatus @@ -224,8 +224,8 @@ -- * VersionInfo , VersionInfo , versionInfo - , viAgentVersion , viAgentHash + , viAgentVersion , viDockerVersion -- * Volume @@ -308,17 +308,17 @@ _ServiceNotActiveException = _ServiceError . hasCode "ServiceNotActiveException" +-- | The specified cluster could not be found. You can view your available +-- clusters with ListClusters. Amazon ECS clusters are region-specific. +_ClusterNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError +_ClusterNotFoundException = _ServiceError . hasCode "ClusterNotFoundException" + -- | There is no update available for this Amazon ECS container agent. This -- could be because the agent is already running the latest version, or it -- is so old that there is no update path to the current version. _NoUpdateAvailableException :: AsError a => Getting (First ServiceError) a ServiceError _NoUpdateAvailableException = _ServiceError . hasCode "NoUpdateAvailableException" - --- | The specified cluster could not be found. You can view your available --- clusters with ListClusters. Amazon ECS clusters are region-specific. -_ClusterNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError -_ClusterNotFoundException = _ServiceError . hasCode "ClusterNotFoundException" -- | The specified service could not be found. You can view your available -- services with ListServices. Amazon ECS services are cluster-specific and diff --git a/gen/Network/AWS/ECS/Types/Product.hs b/gen/Network/AWS/ECS/Types/Product.hs --- a/gen/Network/AWS/ECS/Types/Product.hs +++ b/gen/Network/AWS/ECS/Types/Product.hs @@ -597,17 +597,17 @@ -- -- /See:/ 'containerService' smart constructor. data ContainerService = ContainerService' - { _csStatus :: !(Maybe Text) - , _csRunningCount :: !(Maybe Int) + { _csRunningCount :: !(Maybe Int) + , _csStatus :: !(Maybe Text) , _csClusterARN :: !(Maybe Text) , _csDesiredCount :: !(Maybe Int) , _csLoadBalancers :: !(Maybe [LoadBalancer]) , _csPendingCount :: !(Maybe Int) , _csEvents :: !(Maybe [ServiceEvent]) - , _csServiceName :: !(Maybe Text) , _csDeployments :: !(Maybe [Deployment]) - , _csTaskDefinition :: !(Maybe Text) + , _csServiceName :: !(Maybe Text) , _csServiceARN :: !(Maybe Text) + , _csTaskDefinition :: !(Maybe Text) , _csRoleARN :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -615,10 +615,10 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'csStatus' --- -- * 'csRunningCount' -- +-- * 'csStatus' +-- -- * 'csClusterARN' -- -- * 'csDesiredCount' @@ -629,42 +629,42 @@ -- -- * 'csEvents' -- --- * 'csServiceName' --- -- * 'csDeployments' -- --- * 'csTaskDefinition' +-- * 'csServiceName' -- -- * 'csServiceARN' -- +-- * 'csTaskDefinition' +-- -- * 'csRoleARN' containerService :: ContainerService containerService = ContainerService' - { _csStatus = Nothing - , _csRunningCount = Nothing + { _csRunningCount = Nothing + , _csStatus = Nothing , _csClusterARN = Nothing , _csDesiredCount = Nothing , _csLoadBalancers = Nothing , _csPendingCount = Nothing , _csEvents = Nothing - , _csServiceName = Nothing , _csDeployments = Nothing - , _csTaskDefinition = Nothing + , _csServiceName = Nothing , _csServiceARN = Nothing + , _csTaskDefinition = Nothing , _csRoleARN = Nothing } +-- | The number of tasks in the cluster that are in the 'RUNNING' state. +csRunningCount :: Lens' ContainerService (Maybe Int) +csRunningCount = lens _csRunningCount (\ s a -> s{_csRunningCount = a}); + -- | The status of the service. The valid values are 'ACTIVE', 'DRAINING', or -- 'INACTIVE'. csStatus :: Lens' ContainerService (Maybe Text) csStatus = lens _csStatus (\ s a -> s{_csStatus = a}); --- | The number of tasks in the cluster that are in the 'RUNNING' state. -csRunningCount :: Lens' ContainerService (Maybe Int) -csRunningCount = lens _csRunningCount (\ s a -> s{_csRunningCount = a}); - -- | The Amazon Resource Name (ARN) of the of the cluster that hosts the -- service. csClusterARN :: Lens' ContainerService (Maybe Text) @@ -691,19 +691,13 @@ csEvents :: Lens' ContainerService [ServiceEvent] csEvents = lens _csEvents (\ s a -> s{_csEvents = a}) . _Default . _Coerce; --- | A user-generated string that you can use to identify your service. -csServiceName :: Lens' ContainerService (Maybe Text) -csServiceName = lens _csServiceName (\ s a -> s{_csServiceName = a}); - -- | The current state of deployments for the service. csDeployments :: Lens' ContainerService [Deployment] csDeployments = lens _csDeployments (\ s a -> s{_csDeployments = a}) . _Default . _Coerce; --- | The task definition to use for tasks in the service. This value is --- specified when the service is created with CreateService, and it can be --- modified with UpdateService. -csTaskDefinition :: Lens' ContainerService (Maybe Text) -csTaskDefinition = lens _csTaskDefinition (\ s a -> s{_csTaskDefinition = a}); +-- | A user-generated string that you can use to identify your service. +csServiceName :: Lens' ContainerService (Maybe Text) +csServiceName = lens _csServiceName (\ s a -> s{_csServiceName = a}); -- | The Amazon Resource Name (ARN) that identifies the service. The ARN -- contains the 'arn:aws:ecs' namespace, followed by the region of the @@ -713,6 +707,12 @@ csServiceARN :: Lens' ContainerService (Maybe Text) csServiceARN = lens _csServiceARN (\ s a -> s{_csServiceARN = a}); +-- | The task definition to use for tasks in the service. This value is +-- specified when the service is created with CreateService, and it can be +-- modified with UpdateService. +csTaskDefinition :: Lens' ContainerService (Maybe Text) +csTaskDefinition = lens _csTaskDefinition (\ s a -> s{_csTaskDefinition = a}); + -- | The Amazon Resource Name (ARN) of the IAM role associated with the -- service that allows the Amazon ECS container agent to register container -- instances with a load balancer. @@ -724,40 +724,40 @@ = withObject "ContainerService" (\ x -> ContainerService' <$> - (x .:? "status") <*> (x .:? "runningCount") <*> + (x .:? "runningCount") <*> (x .:? "status") <*> (x .:? "clusterArn") <*> (x .:? "desiredCount") <*> (x .:? "loadBalancers" .!= mempty) <*> (x .:? "pendingCount") <*> (x .:? "events" .!= mempty) - <*> (x .:? "serviceName") <*> (x .:? "deployments" .!= mempty) - <*> (x .:? "taskDefinition") + <*> (x .:? "serviceName") <*> (x .:? "serviceArn") + <*> (x .:? "taskDefinition") <*> (x .:? "roleArn")) -- | The details of an Amazon ECS service deployment. -- -- /See:/ 'deployment' smart constructor. data Deployment = Deployment' - { _dStatus :: !(Maybe Text) - , _dRunningCount :: !(Maybe Int) + { _dRunningCount :: !(Maybe Int) + , _dStatus :: !(Maybe Text) , _dCreatedAt :: !(Maybe POSIX) , _dDesiredCount :: !(Maybe Int) , _dPendingCount :: !(Maybe Int) , _dId :: !(Maybe Text) - , _dTaskDefinition :: !(Maybe Text) , _dUpdatedAt :: !(Maybe POSIX) + , _dTaskDefinition :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Deployment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dStatus' --- -- * 'dRunningCount' -- +-- * 'dStatus' +-- -- * 'dCreatedAt' -- -- * 'dDesiredCount' @@ -766,23 +766,27 @@ -- -- * 'dId' -- --- * 'dTaskDefinition' --- -- * 'dUpdatedAt' +-- +-- * 'dTaskDefinition' deployment :: Deployment deployment = Deployment' - { _dStatus = Nothing - , _dRunningCount = Nothing + { _dRunningCount = Nothing + , _dStatus = Nothing , _dCreatedAt = Nothing , _dDesiredCount = Nothing , _dPendingCount = Nothing , _dId = Nothing - , _dTaskDefinition = Nothing , _dUpdatedAt = Nothing + , _dTaskDefinition = Nothing } +-- | The number of tasks in the deployment that are in the 'RUNNING' status. +dRunningCount :: Lens' Deployment (Maybe Int) +dRunningCount = lens _dRunningCount (\ s a -> s{_dRunningCount = a}); + -- | The status of the deployment. Valid values are 'PRIMARY' (for the most -- recent deployment), 'ACTIVE' (for previous deployments that still have -- tasks running, but are being replaced with the 'PRIMARY' deployment), @@ -790,10 +794,6 @@ dStatus :: Lens' Deployment (Maybe Text) dStatus = lens _dStatus (\ s a -> s{_dStatus = a}); --- | The number of tasks in the deployment that are in the 'RUNNING' status. -dRunningCount :: Lens' Deployment (Maybe Int) -dRunningCount = lens _dRunningCount (\ s a -> s{_dRunningCount = a}); - -- | The Unix time in seconds and milliseconds when the service was created. dCreatedAt :: Lens' Deployment (Maybe UTCTime) dCreatedAt = lens _dCreatedAt (\ s a -> s{_dCreatedAt = a}) . mapping _Time; @@ -811,28 +811,28 @@ dId :: Lens' Deployment (Maybe Text) dId = lens _dId (\ s a -> s{_dId = a}); --- | The most recent task definition that was specified for the service to --- use. -dTaskDefinition :: Lens' Deployment (Maybe Text) -dTaskDefinition = lens _dTaskDefinition (\ s a -> s{_dTaskDefinition = a}); - -- | The Unix time in seconds and milliseconds when the service was last -- updated. dUpdatedAt :: Lens' Deployment (Maybe UTCTime) dUpdatedAt = lens _dUpdatedAt (\ s a -> s{_dUpdatedAt = a}) . mapping _Time; +-- | The most recent task definition that was specified for the service to +-- use. +dTaskDefinition :: Lens' Deployment (Maybe Text) +dTaskDefinition = lens _dTaskDefinition (\ s a -> s{_dTaskDefinition = a}); + instance FromJSON Deployment where parseJSON = withObject "Deployment" (\ x -> Deployment' <$> - (x .:? "status") <*> (x .:? "runningCount") <*> + (x .:? "runningCount") <*> (x .:? "status") <*> (x .:? "createdAt") <*> (x .:? "desiredCount") <*> (x .:? "pendingCount") <*> (x .:? "id") - <*> (x .:? "taskDefinition") - <*> (x .:? "updatedAt")) + <*> (x .:? "updatedAt") + <*> (x .:? "taskDefinition")) -- | A failed resource. -- @@ -1363,8 +1363,8 @@ -- /See:/ 'task' smart constructor. data Task = Task' { _tDesiredStatus :: !(Maybe Text) - , _tClusterARN :: !(Maybe Text) , _tOverrides :: !(Maybe TaskOverride) + , _tClusterARN :: !(Maybe Text) , _tTaskARN :: !(Maybe Text) , _tContainerInstanceARN :: !(Maybe Text) , _tLastStatus :: !(Maybe Text) @@ -1379,10 +1379,10 @@ -- -- * 'tDesiredStatus' -- --- * 'tClusterARN' --- -- * 'tOverrides' -- +-- * 'tClusterARN' +-- -- * 'tTaskARN' -- -- * 'tContainerInstanceARN' @@ -1399,8 +1399,8 @@ task = Task' { _tDesiredStatus = Nothing - , _tClusterARN = Nothing , _tOverrides = Nothing + , _tClusterARN = Nothing , _tTaskARN = Nothing , _tContainerInstanceARN = Nothing , _tLastStatus = Nothing @@ -1413,15 +1413,15 @@ tDesiredStatus :: Lens' Task (Maybe Text) tDesiredStatus = lens _tDesiredStatus (\ s a -> s{_tDesiredStatus = a}); +-- | One or more container overrides. +tOverrides :: Lens' Task (Maybe TaskOverride) +tOverrides = lens _tOverrides (\ s a -> s{_tOverrides = a}); + -- | The Amazon Resource Name (ARN) of the of the cluster that hosts the -- task. tClusterARN :: Lens' Task (Maybe Text) tClusterARN = lens _tClusterARN (\ s a -> s{_tClusterARN = a}); --- | One or more container overrides. -tOverrides :: Lens' Task (Maybe TaskOverride) -tOverrides = lens _tOverrides (\ s a -> s{_tOverrides = a}); - -- | The Amazon Resource Name (ARN) of the task. tTaskARN :: Lens' Task (Maybe Text) tTaskARN = lens _tTaskARN (\ s a -> s{_tTaskARN = a}); @@ -1455,8 +1455,8 @@ = withObject "Task" (\ x -> Task' <$> - (x .:? "desiredStatus") <*> (x .:? "clusterArn") <*> - (x .:? "overrides") + (x .:? "desiredStatus") <*> (x .:? "overrides") <*> + (x .:? "clusterArn") <*> (x .:? "taskArn") <*> (x .:? "containerInstanceArn") <*> (x .:? "lastStatus") @@ -1593,8 +1593,8 @@ -- -- /See:/ 'versionInfo' smart constructor. data VersionInfo = VersionInfo' - { _viAgentVersion :: !(Maybe Text) - , _viAgentHash :: !(Maybe Text) + { _viAgentHash :: !(Maybe Text) + , _viAgentVersion :: !(Maybe Text) , _viDockerVersion :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -1602,30 +1602,30 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'viAgentVersion' --- -- * 'viAgentHash' -- +-- * 'viAgentVersion' +-- -- * 'viDockerVersion' versionInfo :: VersionInfo versionInfo = VersionInfo' - { _viAgentVersion = Nothing - , _viAgentHash = Nothing + { _viAgentHash = Nothing + , _viAgentVersion = Nothing , _viDockerVersion = Nothing } --- | The version number of the Amazon ECS container agent. -viAgentVersion :: Lens' VersionInfo (Maybe Text) -viAgentVersion = lens _viAgentVersion (\ s a -> s{_viAgentVersion = a}); - -- | The Git commit hash for the Amazon ECS container agent build on the -- -- GitHub repository. viAgentHash :: Lens' VersionInfo (Maybe Text) viAgentHash = lens _viAgentHash (\ s a -> s{_viAgentHash = a}); +-- | The version number of the Amazon ECS container agent. +viAgentVersion :: Lens' VersionInfo (Maybe Text) +viAgentVersion = lens _viAgentVersion (\ s a -> s{_viAgentVersion = a}); + -- | The Docker version running on the container instance. viDockerVersion :: Lens' VersionInfo (Maybe Text) viDockerVersion = lens _viDockerVersion (\ s a -> s{_viDockerVersion = a}); @@ -1635,15 +1635,15 @@ = withObject "VersionInfo" (\ x -> VersionInfo' <$> - (x .:? "agentVersion") <*> (x .:? "agentHash") <*> + (x .:? "agentHash") <*> (x .:? "agentVersion") <*> (x .:? "dockerVersion")) instance ToJSON VersionInfo where toJSON VersionInfo'{..} = object (catMaybes - [("agentVersion" .=) <$> _viAgentVersion, - ("agentHash" .=) <$> _viAgentHash, + [("agentHash" .=) <$> _viAgentHash, + ("agentVersion" .=) <$> _viAgentVersion, ("dockerVersion" .=) <$> _viDockerVersion]) -- | A data volume used in a task definition. diff --git a/gen/Network/AWS/ECS/UpdateContainerAgent.hs b/gen/Network/AWS/ECS/UpdateContainerAgent.hs --- a/gen/Network/AWS/ECS/UpdateContainerAgent.hs +++ b/gen/Network/AWS/ECS/UpdateContainerAgent.hs @@ -46,7 +46,7 @@ , UpdateContainerAgentResponse -- * Response Lenses , ucarsContainerInstance - , ucarsStatus + , ucarsResponseStatus ) where import Network.AWS.ECS.Types @@ -125,7 +125,7 @@ -- | /See:/ 'updateContainerAgentResponse' smart constructor. data UpdateContainerAgentResponse = UpdateContainerAgentResponse' { _ucarsContainerInstance :: !(Maybe ContainerInstance) - , _ucarsStatus :: !Int + , _ucarsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UpdateContainerAgentResponse' with the minimum fields required to make a request. @@ -134,14 +134,14 @@ -- -- * 'ucarsContainerInstance' -- --- * 'ucarsStatus' +-- * 'ucarsResponseStatus' updateContainerAgentResponse - :: Int -- ^ 'ucarsStatus' + :: Int -- ^ 'ucarsResponseStatus' -> UpdateContainerAgentResponse -updateContainerAgentResponse pStatus_ = +updateContainerAgentResponse pResponseStatus_ = UpdateContainerAgentResponse' { _ucarsContainerInstance = Nothing - , _ucarsStatus = pStatus_ + , _ucarsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -149,5 +149,5 @@ ucarsContainerInstance = lens _ucarsContainerInstance (\ s a -> s{_ucarsContainerInstance = a}); -- | The response status code. -ucarsStatus :: Lens' UpdateContainerAgentResponse Int -ucarsStatus = lens _ucarsStatus (\ s a -> s{_ucarsStatus = a}); +ucarsResponseStatus :: Lens' UpdateContainerAgentResponse Int +ucarsResponseStatus = lens _ucarsResponseStatus (\ s a -> s{_ucarsResponseStatus = a}); diff --git a/gen/Network/AWS/ECS/UpdateService.hs b/gen/Network/AWS/ECS/UpdateService.hs --- a/gen/Network/AWS/ECS/UpdateService.hs +++ b/gen/Network/AWS/ECS/UpdateService.hs @@ -52,7 +52,7 @@ , UpdateServiceResponse -- * Response Lenses , usrsService - , usrsStatus + , usrsResponseStatus ) where import Network.AWS.ECS.Types @@ -151,8 +151,8 @@ -- | /See:/ 'updateServiceResponse' smart constructor. data UpdateServiceResponse = UpdateServiceResponse' - { _usrsService :: !(Maybe ContainerService) - , _usrsStatus :: !Int + { _usrsService :: !(Maybe ContainerService) + , _usrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UpdateServiceResponse' with the minimum fields required to make a request. @@ -161,14 +161,14 @@ -- -- * 'usrsService' -- --- * 'usrsStatus' +-- * 'usrsResponseStatus' updateServiceResponse - :: Int -- ^ 'usrsStatus' + :: Int -- ^ 'usrsResponseStatus' -> UpdateServiceResponse -updateServiceResponse pStatus_ = +updateServiceResponse pResponseStatus_ = UpdateServiceResponse' { _usrsService = Nothing - , _usrsStatus = pStatus_ + , _usrsResponseStatus = pResponseStatus_ } -- | The full description of your service following the update call. @@ -176,5 +176,5 @@ usrsService = lens _usrsService (\ s a -> s{_usrsService = a}); -- | The response status code. -usrsStatus :: Lens' UpdateServiceResponse Int -usrsStatus = lens _usrsStatus (\ s a -> s{_usrsStatus = a}); +usrsResponseStatus :: Lens' UpdateServiceResponse Int +usrsResponseStatus = lens _usrsResponseStatus (\ s a -> s{_usrsResponseStatus = a}); diff --git a/test/Test/AWS/Gen/ECS.hs b/test/Test/AWS/Gen/ECS.hs --- a/test/Test/AWS/Gen/ECS.hs +++ b/test/Test/AWS/Gen/ECS.hs @@ -67,14 +67,11 @@ -- , testListTaskDefinitions $ -- listTaskDefinitions -- --- , testListTasks $ --- listTasks --- -- , testRunTask $ -- runTask -- --- , testListContainerInstances $ --- listContainerInstances +-- , testListTasks $ +-- listTasks -- -- , testRegisterContainerInstance $ -- registerContainerInstance @@ -82,6 +79,9 @@ -- , testUpdateContainerAgent $ -- updateContainerAgent -- +-- , testListContainerInstances $ +-- listContainerInstances +-- -- , testListTaskDefinitionFamilies $ -- listTaskDefinitionFamilies -- @@ -151,14 +151,11 @@ -- , testListTaskDefinitionsResponse $ -- listTaskDefinitionsResponse -- --- , testListTasksResponse $ --- listTasksResponse --- -- , testRunTaskResponse $ -- runTaskResponse -- --- , testListContainerInstancesResponse $ --- listContainerInstancesResponse +-- , testListTasksResponse $ +-- listTasksResponse -- -- , testRegisterContainerInstanceResponse $ -- registerContainerInstanceResponse @@ -166,6 +163,9 @@ -- , testUpdateContainerAgentResponse $ -- updateContainerAgentResponse -- +-- , testListContainerInstancesResponse $ +-- listContainerInstancesResponse +-- -- , testListTaskDefinitionFamiliesResponse $ -- listTaskDefinitionFamiliesResponse -- @@ -263,20 +263,15 @@ "ListTaskDefinitions" "fixture/ListTaskDefinitions.yaml" -testListTasks :: ListTasks -> TestTree -testListTasks = req - "ListTasks" - "fixture/ListTasks.yaml" - testRunTask :: RunTask -> TestTree testRunTask = req "RunTask" "fixture/RunTask.yaml" -testListContainerInstances :: ListContainerInstances -> TestTree -testListContainerInstances = req - "ListContainerInstances" - "fixture/ListContainerInstances.yaml" +testListTasks :: ListTasks -> TestTree +testListTasks = req + "ListTasks" + "fixture/ListTasks.yaml" testRegisterContainerInstance :: RegisterContainerInstance -> TestTree testRegisterContainerInstance = req @@ -288,6 +283,11 @@ "UpdateContainerAgent" "fixture/UpdateContainerAgent.yaml" +testListContainerInstances :: ListContainerInstances -> TestTree +testListContainerInstances = req + "ListContainerInstances" + "fixture/ListContainerInstances.yaml" + testListTaskDefinitionFamilies :: ListTaskDefinitionFamilies -> TestTree testListTaskDefinitionFamilies = req "ListTaskDefinitionFamilies" @@ -426,13 +426,6 @@ eCS (Proxy :: Proxy ListTaskDefinitions) -testListTasksResponse :: ListTasksResponse -> TestTree -testListTasksResponse = res - "ListTasksResponse" - "fixture/ListTasksResponse.proto" - eCS - (Proxy :: Proxy ListTasks) - testRunTaskResponse :: RunTaskResponse -> TestTree testRunTaskResponse = res "RunTaskResponse" @@ -440,12 +433,12 @@ eCS (Proxy :: Proxy RunTask) -testListContainerInstancesResponse :: ListContainerInstancesResponse -> TestTree -testListContainerInstancesResponse = res - "ListContainerInstancesResponse" - "fixture/ListContainerInstancesResponse.proto" +testListTasksResponse :: ListTasksResponse -> TestTree +testListTasksResponse = res + "ListTasksResponse" + "fixture/ListTasksResponse.proto" eCS - (Proxy :: Proxy ListContainerInstances) + (Proxy :: Proxy ListTasks) testRegisterContainerInstanceResponse :: RegisterContainerInstanceResponse -> TestTree testRegisterContainerInstanceResponse = res @@ -460,6 +453,13 @@ "fixture/UpdateContainerAgentResponse.proto" eCS (Proxy :: Proxy UpdateContainerAgent) + +testListContainerInstancesResponse :: ListContainerInstancesResponse -> TestTree +testListContainerInstancesResponse = res + "ListContainerInstancesResponse" + "fixture/ListContainerInstancesResponse.proto" + eCS + (Proxy :: Proxy ListContainerInstances) testListTaskDefinitionFamiliesResponse :: ListTaskDefinitionFamiliesResponse -> TestTree testListTaskDefinitionFamiliesResponse = res