amazonka-ecs 1.2.0.2 → 1.3.0

raw patch · 33 files changed

+379/−379 lines, 33 filesdep ~amazonka-coredep ~amazonka-ecsdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-ecs, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ecs.cabal +5/−5
• gen/Network/AWS/ECS.hs +15/−15
• gen/Network/AWS/ECS/CreateCluster.hs +9/−9
• gen/Network/AWS/ECS/CreateService.hs +9/−9
• gen/Network/AWS/ECS/DeleteCluster.hs +9/−9
• gen/Network/AWS/ECS/DeleteService.hs +9/−9
• gen/Network/AWS/ECS/DeregisterContainerInstance.hs +8/−8
• gen/Network/AWS/ECS/DeregisterTaskDefinition.hs +8/−8
• gen/Network/AWS/ECS/DescribeClusters.hs +10/−10
• gen/Network/AWS/ECS/DescribeContainerInstances.hs +8/−8
• gen/Network/AWS/ECS/DescribeServices.hs +10/−10
• gen/Network/AWS/ECS/DescribeTaskDefinition.hs +8/−8
• gen/Network/AWS/ECS/DescribeTasks.hs +10/−10
• gen/Network/AWS/ECS/DiscoverPollEndpoint.hs +8/−8
• gen/Network/AWS/ECS/ListClusters.hs +10/−10
• gen/Network/AWS/ECS/ListContainerInstances.hs +8/−8
• gen/Network/AWS/ECS/ListServices.hs +10/−10
• gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs +10/−10
• gen/Network/AWS/ECS/ListTaskDefinitions.hs +8/−8
• gen/Network/AWS/ECS/ListTasks.hs +10/−10
• gen/Network/AWS/ECS/RegisterContainerInstance.hs +8/−8
• gen/Network/AWS/ECS/RegisterTaskDefinition.hs +8/−8
• gen/Network/AWS/ECS/RunTask.hs +10/−10
• gen/Network/AWS/ECS/StartTask.hs +10/−10
• gen/Network/AWS/ECS/StopTask.hs +9/−9
• gen/Network/AWS/ECS/SubmitContainerStateChange.hs +8/−8
• gen/Network/AWS/ECS/SubmitTaskStateChange.hs +8/−8
• gen/Network/AWS/ECS/Types.hs +13/−13
• gen/Network/AWS/ECS/Types/Product.hs +74/−74
• gen/Network/AWS/ECS/UpdateContainerAgent.hs +8/−8
• gen/Network/AWS/ECS/UpdateService.hs +9/−9
• test/Test/AWS/Gen/ECS.hs +31/−31

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -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

@@ -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

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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

@@ -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 -- <https://github.com/aws/amazon-ecs-agent/commits/master amazon-ecs-agent> -- GitHub repository. viAgentHash :: Lens' VersionInfo (Maybe Text) viAgentHash = lens _viAgentHash (\ s a -> s{_viAgentHash = a}); +-- | The version number of the Amazon ECS container agent.+viAgentVersion :: Lens' VersionInfo (Maybe Text)+viAgentVersion = lens _viAgentVersion (\ s a -> s{_viAgentVersion = a});+ -- | The Docker version running on the container instance. viDockerVersion :: Lens' VersionInfo (Maybe Text) viDockerVersion = lens _viDockerVersion (\ s a -> s{_viDockerVersion = a});@@ -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.

@@ -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});

@@ -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});

@@ -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