amazonka-codedeploy 1.2.0.2 → 1.3.0

raw patch · 30 files changed

+693/−680 lines, 30 filesdep ~amazonka-codedeploydep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-codedeploy.cabal +5/−5
• gen/Network/AWS/CodeDeploy.hs +85/−85
• gen/Network/AWS/CodeDeploy/BatchGetApplications.hs +8/−8
• gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs +8/−8
• gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs +9/−9
• gen/Network/AWS/CodeDeploy/CreateApplication.hs +9/−9
• gen/Network/AWS/CodeDeploy/CreateDeployment.hs +20/−20
• gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs +8/−8
• gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs +8/−8
• gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs +8/−8
• gen/Network/AWS/CodeDeploy/GetApplication.hs +9/−9
• gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs +20/−20
• gen/Network/AWS/CodeDeploy/GetDeployment.hs +8/−8
• gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs +8/−8
• gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs +8/−8
• gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs +8/−8
• gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs +9/−9
• gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs +22/−22
• gen/Network/AWS/CodeDeploy/ListApplications.hs +10/−10
• gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs +8/−8
• gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs +8/−8
• gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs +10/−10
• gen/Network/AWS/CodeDeploy/ListDeployments.hs +10/−10
• gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs +10/−10
• gen/Network/AWS/CodeDeploy/StopDeployment.hs +24/−11
• gen/Network/AWS/CodeDeploy/Types.hs +133/−133
• gen/Network/AWS/CodeDeploy/Types/Product.hs +59/−59
• gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs +18/−18
• test/Test/AWS/Gen/CodeDeploy.hs +142/−142

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

@@ -1,5 +1,5 @@ name:                  amazonka-codedeploy-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon CodeDeploy SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -140,7 +140,7 @@         , Network.AWS.CodeDeploy.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-codedeploy-test@@ -160,9 +160,9 @@         , Test.AWS.CodeDeploy.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-codedeploy == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-codedeploy == 1.3.0.*         , base         , bytestring         , lens

@@ -91,9 +91,6 @@     -- ** InstanceNameAlreadyRegisteredException     , _InstanceNameAlreadyRegisteredException -    -- ** InvalidIAMUserARNException-    , _InvalidIAMUserARNException-     -- ** IAMUserARNRequiredException     , _IAMUserARNRequiredException @@ -103,117 +100,117 @@     -- ** DescriptionTooLongException     , _DescriptionTooLongException -    -- ** DeploymentConfigAlreadyExistsException-    , _DeploymentConfigAlreadyExistsException+    -- ** InvalidIAMUserARNException+    , _InvalidIAMUserARNException +    -- ** DeploymentNotStartedException+    , _DeploymentNotStartedException+     -- ** DeploymentConfigLimitExceededException     , _DeploymentConfigLimitExceededException +    -- ** RoleRequiredException+    , _RoleRequiredException+     -- ** InvalidRoleException     , _InvalidRoleException -    -- ** DeploymentNotStartedException-    , _DeploymentNotStartedException+    -- ** DeploymentConfigAlreadyExistsException+    , _DeploymentConfigAlreadyExistsException -    -- ** RoleRequiredException-    , _RoleRequiredException+    -- ** DeploymentLimitExceededException+    , _DeploymentLimitExceededException      -- ** IAMUserARNAlreadyRegisteredException     , _IAMUserARNAlreadyRegisteredException -    -- ** DeploymentLimitExceededException-    , _DeploymentLimitExceededException-     -- ** InstanceLimitExceededException     , _InstanceLimitExceededException +    -- ** InvalidDeployedStateFilterException+    , _InvalidDeployedStateFilterException+     -- ** InvalidAutoScalingGroupException     , _InvalidAutoScalingGroupException      -- ** InvalidApplicationNameException     , _InvalidApplicationNameException -    -- ** InvalidDeployedStateFilterException-    , _InvalidDeployedStateFilterException+    -- ** ApplicationDoesNotExistException+    , _ApplicationDoesNotExistException      -- ** InvalidMinimumHealthyHostValueException     , _InvalidMinimumHealthyHostValueException -    -- ** ApplicationDoesNotExistException-    , _ApplicationDoesNotExistException-     -- ** InvalidTagFilterException     , _InvalidTagFilterException      -- ** TagRequiredException     , _TagRequiredException -    -- ** RevisionDoesNotExistException-    , _RevisionDoesNotExistException-     -- ** DeploymentGroupNameRequiredException     , _DeploymentGroupNameRequiredException -    -- ** InvalidBucketNameFilterException-    , _InvalidBucketNameFilterException+    -- ** BucketNameFilterRequiredException+    , _BucketNameFilterRequiredException      -- ** DeploymentConfigDoesNotExistException     , _DeploymentConfigDoesNotExistException +    -- ** InvalidBucketNameFilterException+    , _InvalidBucketNameFilterException++    -- ** DeploymentGroupAlreadyExistsException+    , _DeploymentGroupAlreadyExistsException+     -- ** InvalidSortByException     , _InvalidSortByException -    -- ** BucketNameFilterRequiredException-    , _BucketNameFilterRequiredException+    -- ** RevisionDoesNotExistException+    , _RevisionDoesNotExistException      -- ** DeploymentGroupLimitExceededException     , _DeploymentGroupLimitExceededException -    -- ** DeploymentGroupAlreadyExistsException-    , _DeploymentGroupAlreadyExistsException--    -- ** InvalidDeploymentIdException-    , _InvalidDeploymentIdException-     -- ** DeploymentGroupDoesNotExistException     , _DeploymentGroupDoesNotExistException +    -- ** InvalidDeploymentConfigNameException+    , _InvalidDeploymentConfigNameException++    -- ** DeploymentConfigNameRequiredException+    , _DeploymentConfigNameRequiredException+     -- ** DeploymentIdRequiredException     , _DeploymentIdRequiredException +    -- ** InvalidNextTokenException+    , _InvalidNextTokenException+     -- ** InstanceIdRequiredException     , _InstanceIdRequiredException -    -- ** DeploymentConfigNameRequiredException-    , _DeploymentConfigNameRequiredException--    -- ** InvalidDeploymentConfigNameException-    , _InvalidDeploymentConfigNameException+    -- ** InvalidDeploymentIdException+    , _InvalidDeploymentIdException      -- ** InvalidSortOrderException     , _InvalidSortOrderException -    -- ** InvalidNextTokenException-    , _InvalidNextTokenException+    -- ** DeploymentAlreadyCompletedException+    , _DeploymentAlreadyCompletedException +    -- ** DeploymentDoesNotExistException+    , _DeploymentDoesNotExistException+     -- ** InvalidRevisionException     , _InvalidRevisionException -    -- ** DeploymentAlreadyCompletedException-    , _DeploymentAlreadyCompletedException-     -- ** RevisionRequiredException     , _RevisionRequiredException      -- ** InstanceDoesNotExistException     , _InstanceDoesNotExistException -    -- ** DeploymentDoesNotExistException-    , _DeploymentDoesNotExistException--    -- ** InstanceNameRequiredException-    , _InstanceNameRequiredException-     -- ** DeploymentConfigInUseException     , _DeploymentConfigInUseException @@ -223,33 +220,36 @@     -- ** InvalidInstanceNameException     , _InvalidInstanceNameException +    -- ** InstanceNameRequiredException+    , _InstanceNameRequiredException+     -- ** InvalidDeploymentStatusException     , _InvalidDeploymentStatusException      -- ** InvalidRegistrationStatusException     , _InvalidRegistrationStatusException -    -- ** TagLimitExceededException-    , _TagLimitExceededException+    -- ** ApplicationNameRequiredException+    , _ApplicationNameRequiredException      -- ** InstanceNotRegisteredException     , _InstanceNotRegisteredException -    -- ** ApplicationLimitExceededException-    , _ApplicationLimitExceededException--    -- ** InvalidOperationException-    , _InvalidOperationException-     -- ** ApplicationAlreadyExistsException     , _ApplicationAlreadyExistsException      -- ** InvalidInstanceStatusException     , _InvalidInstanceStatusException -    -- ** ApplicationNameRequiredException-    , _ApplicationNameRequiredException+    -- ** TagLimitExceededException+    , _TagLimitExceededException +    -- ** ApplicationLimitExceededException+    , _ApplicationLimitExceededException++    -- ** InvalidOperationException+    , _InvalidOperationException+     -- ** InvalidKeyPrefixFilterException     , _InvalidKeyPrefixFilterException @@ -262,24 +262,24 @@     -- ** RemoveTagsFromOnPremisesInstances     , module Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances -    -- ** GetDeployment-    , module Network.AWS.CodeDeploy.GetDeployment--    -- ** CreateDeploymentConfig-    , module Network.AWS.CodeDeploy.CreateDeploymentConfig+    -- ** DeleteDeploymentGroup+    , module Network.AWS.CodeDeploy.DeleteDeploymentGroup      -- ** UpdateDeploymentGroup     , module Network.AWS.CodeDeploy.UpdateDeploymentGroup -    -- ** DeleteDeploymentGroup-    , module Network.AWS.CodeDeploy.DeleteDeploymentGroup-     -- ** ListOnPremisesInstances     , module Network.AWS.CodeDeploy.ListOnPremisesInstances +    -- ** CreateDeploymentConfig+    , module Network.AWS.CodeDeploy.CreateDeploymentConfig+     -- ** GetApplicationRevision     , module Network.AWS.CodeDeploy.GetApplicationRevision +    -- ** GetDeployment+    , module Network.AWS.CodeDeploy.GetDeployment+     -- ** DeleteDeploymentConfig     , module Network.AWS.CodeDeploy.DeleteDeploymentConfig @@ -289,32 +289,32 @@     -- ** CreateDeployment     , module Network.AWS.CodeDeploy.CreateDeployment -    -- ** GetOnPremisesInstance-    , module Network.AWS.CodeDeploy.GetOnPremisesInstance-     -- ** BatchGetDeployments     , module Network.AWS.CodeDeploy.BatchGetDeployments +    -- ** GetOnPremisesInstance+    , module Network.AWS.CodeDeploy.GetOnPremisesInstance+     -- ** RegisterApplicationRevision     , module Network.AWS.CodeDeploy.RegisterApplicationRevision +    -- ** BatchGetApplications+    , module Network.AWS.CodeDeploy.BatchGetApplications+     -- ** DeleteApplication     , module Network.AWS.CodeDeploy.DeleteApplication      -- ** UpdateApplication     , module Network.AWS.CodeDeploy.UpdateApplication -    -- ** BatchGetApplications-    , module Network.AWS.CodeDeploy.BatchGetApplications--    -- ** CreateApplication-    , module Network.AWS.CodeDeploy.CreateApplication+    -- ** GetDeploymentInstance+    , module Network.AWS.CodeDeploy.GetDeploymentInstance      -- ** DeregisterOnPremisesInstance     , module Network.AWS.CodeDeploy.DeregisterOnPremisesInstance -    -- ** GetDeploymentInstance-    , module Network.AWS.CodeDeploy.GetDeploymentInstance+    -- ** CreateApplication+    , module Network.AWS.CodeDeploy.CreateApplication      -- ** StopDeployment     , module Network.AWS.CodeDeploy.StopDeployment@@ -325,18 +325,18 @@     -- ** ListDeploymentGroups     , module Network.AWS.CodeDeploy.ListDeploymentGroups -    -- ** RegisterOnPremisesInstance-    , module Network.AWS.CodeDeploy.RegisterOnPremisesInstance-     -- ** BatchGetOnPremisesInstances     , module Network.AWS.CodeDeploy.BatchGetOnPremisesInstances -    -- ** ListDeploymentConfigs-    , module Network.AWS.CodeDeploy.ListDeploymentConfigs+    -- ** RegisterOnPremisesInstance+    , module Network.AWS.CodeDeploy.RegisterOnPremisesInstance      -- ** CreateDeploymentGroup     , module Network.AWS.CodeDeploy.CreateDeploymentGroup +    -- ** ListDeploymentConfigs+    , module Network.AWS.CodeDeploy.ListDeploymentConfigs+     -- ** GetDeploymentGroup     , module Network.AWS.CodeDeploy.GetDeploymentGroup @@ -443,9 +443,9 @@     -- ** DeploymentInfo     , DeploymentInfo     , deploymentInfo-    , diDeploymentId     , diCreator     , diStatus+    , diDeploymentId     , diDeploymentConfigName     , diStartTime     , diCompleteTime@@ -454,9 +454,9 @@     , diApplicationName     , diRevision     , diDescription-    , diIgnoreApplicationStopFailures-    , diDeploymentGroupName     , diCreateTime+    , diDeploymentGroupName+    , diIgnoreApplicationStopFailures      -- ** DeploymentOverview     , DeploymentOverview@@ -506,8 +506,8 @@     -- ** InstanceInfo     , InstanceInfo     , instanceInfo-    , iiInstanceARN     , iiRegisterTime+    , iiInstanceARN     , iiDeregisterTime     , iiIamUserARN     , iiInstanceName@@ -517,8 +517,8 @@     , InstanceSummary     , instanceSummary     , isInstanceId-    , isDeploymentId     , isStatus+    , isDeploymentId     , isLastUpdatedAt     , isLifecycleEvents @@ -526,8 +526,8 @@     , LifecycleEvent     , lifecycleEvent     , leStatus-    , leStartTime     , leLifecycleEventName+    , leStartTime     , leDiagnostics     , leEndTime 

@@ -34,7 +34,7 @@     , BatchGetApplicationsResponse     -- * Response Lenses     , bgarsApplicationsInfo-    , bgarsStatus+    , bgarsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -105,7 +105,7 @@ -- /See:/ 'batchGetApplicationsResponse' smart constructor. data BatchGetApplicationsResponse = BatchGetApplicationsResponse'     { _bgarsApplicationsInfo :: !(Maybe [ApplicationInfo])-    , _bgarsStatus           :: !Int+    , _bgarsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'BatchGetApplicationsResponse' with the minimum fields required to make a request.@@ -114,14 +114,14 @@ -- -- * 'bgarsApplicationsInfo' ----- * 'bgarsStatus'+-- * 'bgarsResponseStatus' batchGetApplicationsResponse-    :: Int -- ^ 'bgarsStatus'+    :: Int -- ^ 'bgarsResponseStatus'     -> BatchGetApplicationsResponse-batchGetApplicationsResponse pStatus_ =+batchGetApplicationsResponse pResponseStatus_ =     BatchGetApplicationsResponse'     { _bgarsApplicationsInfo = Nothing-    , _bgarsStatus = pStatus_+    , _bgarsResponseStatus = pResponseStatus_     }  -- | Information about the applications.@@ -129,5 +129,5 @@ bgarsApplicationsInfo = lens _bgarsApplicationsInfo (\ s a -> s{_bgarsApplicationsInfo = a}) . _Default . _Coerce;  -- | The response status code.-bgarsStatus :: Lens' BatchGetApplicationsResponse Int-bgarsStatus = lens _bgarsStatus (\ s a -> s{_bgarsStatus = a});+bgarsResponseStatus :: Lens' BatchGetApplicationsResponse Int+bgarsResponseStatus = lens _bgarsResponseStatus (\ s a -> s{_bgarsResponseStatus = a});

@@ -34,7 +34,7 @@     , BatchGetDeploymentsResponse     -- * Response Lenses     , bgdrsDeploymentsInfo-    , bgdrsStatus+    , bgdrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -105,7 +105,7 @@ -- /See:/ 'batchGetDeploymentsResponse' smart constructor. data BatchGetDeploymentsResponse = BatchGetDeploymentsResponse'     { _bgdrsDeploymentsInfo :: !(Maybe [DeploymentInfo])-    , _bgdrsStatus          :: !Int+    , _bgdrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'BatchGetDeploymentsResponse' with the minimum fields required to make a request.@@ -114,14 +114,14 @@ -- -- * 'bgdrsDeploymentsInfo' ----- * 'bgdrsStatus'+-- * 'bgdrsResponseStatus' batchGetDeploymentsResponse-    :: Int -- ^ 'bgdrsStatus'+    :: Int -- ^ 'bgdrsResponseStatus'     -> BatchGetDeploymentsResponse-batchGetDeploymentsResponse pStatus_ =+batchGetDeploymentsResponse pResponseStatus_ =     BatchGetDeploymentsResponse'     { _bgdrsDeploymentsInfo = Nothing-    , _bgdrsStatus = pStatus_+    , _bgdrsResponseStatus = pResponseStatus_     }  -- | Information about the deployments.@@ -129,5 +129,5 @@ bgdrsDeploymentsInfo = lens _bgdrsDeploymentsInfo (\ s a -> s{_bgdrsDeploymentsInfo = a}) . _Default . _Coerce;  -- | The response status code.-bgdrsStatus :: Lens' BatchGetDeploymentsResponse Int-bgdrsStatus = lens _bgdrsStatus (\ s a -> s{_bgdrsStatus = a});+bgdrsResponseStatus :: Lens' BatchGetDeploymentsResponse Int+bgdrsResponseStatus = lens _bgdrsResponseStatus (\ s a -> s{_bgdrsResponseStatus = a});

@@ -34,7 +34,7 @@     , BatchGetOnPremisesInstancesResponse     -- * Response Lenses     , bgopirsInstanceInfos-    , bgopirsStatus+    , bgopirsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -103,8 +103,8 @@ -- -- /See:/ 'batchGetOnPremisesInstancesResponse' smart constructor. data BatchGetOnPremisesInstancesResponse = BatchGetOnPremisesInstancesResponse'-    { _bgopirsInstanceInfos :: !(Maybe [InstanceInfo])-    , _bgopirsStatus        :: !Int+    { _bgopirsInstanceInfos  :: !(Maybe [InstanceInfo])+    , _bgopirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'BatchGetOnPremisesInstancesResponse' with the minimum fields required to make a request.@@ -113,14 +113,14 @@ -- -- * 'bgopirsInstanceInfos' ----- * 'bgopirsStatus'+-- * 'bgopirsResponseStatus' batchGetOnPremisesInstancesResponse-    :: Int -- ^ 'bgopirsStatus'+    :: Int -- ^ 'bgopirsResponseStatus'     -> BatchGetOnPremisesInstancesResponse-batchGetOnPremisesInstancesResponse pStatus_ =+batchGetOnPremisesInstancesResponse pResponseStatus_ =     BatchGetOnPremisesInstancesResponse'     { _bgopirsInstanceInfos = Nothing-    , _bgopirsStatus = pStatus_+    , _bgopirsResponseStatus = pResponseStatus_     }  -- | Information about the on-premises instances.@@ -128,5 +128,5 @@ bgopirsInstanceInfos = lens _bgopirsInstanceInfos (\ s a -> s{_bgopirsInstanceInfos = a}) . _Default . _Coerce;  -- | The response status code.-bgopirsStatus :: Lens' BatchGetOnPremisesInstancesResponse Int-bgopirsStatus = lens _bgopirsStatus (\ s a -> s{_bgopirsStatus = a});+bgopirsResponseStatus :: Lens' BatchGetOnPremisesInstancesResponse Int+bgopirsResponseStatus = lens _bgopirsResponseStatus (\ s a -> s{_bgopirsResponseStatus = a});

@@ -34,7 +34,7 @@     , CreateApplicationResponse     -- * Response Lenses     , carsApplicationId-    , carsStatus+    , carsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -103,8 +103,8 @@ -- -- /See:/ 'createApplicationResponse' smart constructor. data CreateApplicationResponse = CreateApplicationResponse'-    { _carsApplicationId :: !(Maybe Text)-    , _carsStatus        :: !Int+    { _carsApplicationId  :: !(Maybe Text)+    , _carsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateApplicationResponse' with the minimum fields required to make a request.@@ -113,14 +113,14 @@ -- -- * 'carsApplicationId' ----- * 'carsStatus'+-- * 'carsResponseStatus' createApplicationResponse-    :: Int -- ^ 'carsStatus'+    :: Int -- ^ 'carsResponseStatus'     -> CreateApplicationResponse-createApplicationResponse pStatus_ =+createApplicationResponse pResponseStatus_ =     CreateApplicationResponse'     { _carsApplicationId = Nothing-    , _carsStatus = pStatus_+    , _carsResponseStatus = pResponseStatus_     }  -- | A unique application ID.@@ -128,5 +128,5 @@ carsApplicationId = lens _carsApplicationId (\ s a -> s{_carsApplicationId = a});  -- | The response status code.-carsStatus :: Lens' CreateApplicationResponse Int-carsStatus = lens _carsStatus (\ s a -> s{_carsStatus = a});+carsResponseStatus :: Lens' CreateApplicationResponse Int+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});

@@ -30,8 +30,8 @@     , cdDeploymentConfigName     , cdRevision     , cdDescription-    , cdIgnoreApplicationStopFailures     , cdDeploymentGroupName+    , cdIgnoreApplicationStopFailures     , cdApplicationName      -- * Destructuring the Response@@ -39,7 +39,7 @@     , CreateDeploymentResponse     -- * Response Lenses     , cdrsDeploymentId-    , cdrsStatus+    , cdrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -55,8 +55,8 @@     { _cdDeploymentConfigName          :: !(Maybe Text)     , _cdRevision                      :: !(Maybe RevisionLocation)     , _cdDescription                   :: !(Maybe Text)-    , _cdIgnoreApplicationStopFailures :: !(Maybe Bool)     , _cdDeploymentGroupName           :: !(Maybe Text)+    , _cdIgnoreApplicationStopFailures :: !(Maybe Bool)     , _cdApplicationName               :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -70,10 +70,10 @@ -- -- * 'cdDescription' ----- * 'cdIgnoreApplicationStopFailures'--- -- * 'cdDeploymentGroupName' --+-- * 'cdIgnoreApplicationStopFailures'+-- -- * 'cdApplicationName' createDeployment     :: Text -- ^ 'cdApplicationName'@@ -83,8 +83,8 @@     { _cdDeploymentConfigName = Nothing     , _cdRevision = Nothing     , _cdDescription = Nothing-    , _cdIgnoreApplicationStopFailures = Nothing     , _cdDeploymentGroupName = Nothing+    , _cdIgnoreApplicationStopFailures = Nothing     , _cdApplicationName = pApplicationName_     } @@ -107,6 +107,10 @@ cdDescription :: Lens' CreateDeployment (Maybe Text) cdDescription = lens _cdDescription (\ s a -> s{_cdDescription = a}); +-- | The deployment group\'s name.+cdDeploymentGroupName :: Lens' CreateDeployment (Maybe Text)+cdDeploymentGroupName = lens _cdDeploymentGroupName (\ s a -> s{_cdDeploymentGroupName = a});+ -- | If set to true, then if the deployment causes the ApplicationStop -- deployment lifecycle event to fail to a specific instance, the -- deployment will not be considered to have failed to that instance at@@ -120,10 +124,6 @@ cdIgnoreApplicationStopFailures :: Lens' CreateDeployment (Maybe Bool) cdIgnoreApplicationStopFailures = lens _cdIgnoreApplicationStopFailures (\ s a -> s{_cdIgnoreApplicationStopFailures = a}); --- | The deployment group\'s name.-cdDeploymentGroupName :: Lens' CreateDeployment (Maybe Text)-cdDeploymentGroupName = lens _cdDeploymentGroupName (\ s a -> s{_cdDeploymentGroupName = a});- -- | The name of an existing AWS CodeDeploy application associated with the -- applicable IAM user or AWS account. cdApplicationName :: Lens' CreateDeployment Text@@ -156,10 +156,10 @@                     _cdDeploymentConfigName,                   ("revision" .=) <$> _cdRevision,                   ("description" .=) <$> _cdDescription,-                  ("ignoreApplicationStopFailures" .=) <$>-                    _cdIgnoreApplicationStopFailures,                   ("deploymentGroupName" .=) <$>                     _cdDeploymentGroupName,+                  ("ignoreApplicationStopFailures" .=) <$>+                    _cdIgnoreApplicationStopFailures,                   Just ("applicationName" .= _cdApplicationName)])  instance ToPath CreateDeployment where@@ -172,8 +172,8 @@ -- -- /See:/ 'createDeploymentResponse' smart constructor. data CreateDeploymentResponse = CreateDeploymentResponse'-    { _cdrsDeploymentId :: !(Maybe Text)-    , _cdrsStatus       :: !Int+    { _cdrsDeploymentId   :: !(Maybe Text)+    , _cdrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateDeploymentResponse' with the minimum fields required to make a request.@@ -182,14 +182,14 @@ -- -- * 'cdrsDeploymentId' ----- * 'cdrsStatus'+-- * 'cdrsResponseStatus' createDeploymentResponse-    :: Int -- ^ 'cdrsStatus'+    :: Int -- ^ 'cdrsResponseStatus'     -> CreateDeploymentResponse-createDeploymentResponse pStatus_ =+createDeploymentResponse pResponseStatus_ =     CreateDeploymentResponse'     { _cdrsDeploymentId = Nothing-    , _cdrsStatus = pStatus_+    , _cdrsResponseStatus = pResponseStatus_     }  -- | A unique deployment ID.@@ -197,5 +197,5 @@ cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a});  -- | The response status code.-cdrsStatus :: Lens' CreateDeploymentResponse Int-cdrsStatus = lens _cdrsStatus (\ s a -> s{_cdrsStatus = a});+cdrsResponseStatus :: Lens' CreateDeploymentResponse Int+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});

@@ -35,7 +35,7 @@     , CreateDeploymentConfigResponse     -- * Response Lenses     , cdcrsDeploymentConfigId-    , cdcrsStatus+    , cdcrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -134,7 +134,7 @@ -- /See:/ 'createDeploymentConfigResponse' smart constructor. data CreateDeploymentConfigResponse = CreateDeploymentConfigResponse'     { _cdcrsDeploymentConfigId :: !(Maybe Text)-    , _cdcrsStatus             :: !Int+    , _cdcrsResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateDeploymentConfigResponse' with the minimum fields required to make a request.@@ -143,14 +143,14 @@ -- -- * 'cdcrsDeploymentConfigId' ----- * 'cdcrsStatus'+-- * 'cdcrsResponseStatus' createDeploymentConfigResponse-    :: Int -- ^ 'cdcrsStatus'+    :: Int -- ^ 'cdcrsResponseStatus'     -> CreateDeploymentConfigResponse-createDeploymentConfigResponse pStatus_ =+createDeploymentConfigResponse pResponseStatus_ =     CreateDeploymentConfigResponse'     { _cdcrsDeploymentConfigId = Nothing-    , _cdcrsStatus = pStatus_+    , _cdcrsResponseStatus = pResponseStatus_     }  -- | A unique deployment configuration ID.@@ -158,5 +158,5 @@ cdcrsDeploymentConfigId = lens _cdcrsDeploymentConfigId (\ s a -> s{_cdcrsDeploymentConfigId = a});  -- | The response status code.-cdcrsStatus :: Lens' CreateDeploymentConfigResponse Int-cdcrsStatus = lens _cdcrsStatus (\ s a -> s{_cdcrsStatus = a});+cdcrsResponseStatus :: Lens' CreateDeploymentConfigResponse Int+cdcrsResponseStatus = lens _cdcrsResponseStatus (\ s a -> s{_cdcrsResponseStatus = a});

@@ -41,7 +41,7 @@     , CreateDeploymentGroupResponse     -- * Response Lenses     , cdgrsDeploymentGroupId-    , cdgrsStatus+    , cdgrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -206,7 +206,7 @@ -- /See:/ 'createDeploymentGroupResponse' smart constructor. data CreateDeploymentGroupResponse = CreateDeploymentGroupResponse'     { _cdgrsDeploymentGroupId :: !(Maybe Text)-    , _cdgrsStatus            :: !Int+    , _cdgrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateDeploymentGroupResponse' with the minimum fields required to make a request.@@ -215,14 +215,14 @@ -- -- * 'cdgrsDeploymentGroupId' ----- * 'cdgrsStatus'+-- * 'cdgrsResponseStatus' createDeploymentGroupResponse-    :: Int -- ^ 'cdgrsStatus'+    :: Int -- ^ 'cdgrsResponseStatus'     -> CreateDeploymentGroupResponse-createDeploymentGroupResponse pStatus_ =+createDeploymentGroupResponse pResponseStatus_ =     CreateDeploymentGroupResponse'     { _cdgrsDeploymentGroupId = Nothing-    , _cdgrsStatus = pStatus_+    , _cdgrsResponseStatus = pResponseStatus_     }  -- | A unique deployment group ID.@@ -230,5 +230,5 @@ cdgrsDeploymentGroupId = lens _cdgrsDeploymentGroupId (\ s a -> s{_cdgrsDeploymentGroupId = a});  -- | The response status code.-cdgrsStatus :: Lens' CreateDeploymentGroupResponse Int-cdgrsStatus = lens _cdgrsStatus (\ s a -> s{_cdgrsStatus = a});+cdgrsResponseStatus :: Lens' CreateDeploymentGroupResponse Int+cdgrsResponseStatus = lens _cdgrsResponseStatus (\ s a -> s{_cdgrsResponseStatus = a});

@@ -35,7 +35,7 @@     , DeleteDeploymentGroupResponse     -- * Response Lenses     , ddgrsHooksNotCleanedUp-    , ddgrsStatus+    , ddgrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -118,7 +118,7 @@ -- /See:/ 'deleteDeploymentGroupResponse' smart constructor. data DeleteDeploymentGroupResponse = DeleteDeploymentGroupResponse'     { _ddgrsHooksNotCleanedUp :: !(Maybe [AutoScalingGroup])-    , _ddgrsStatus            :: !Int+    , _ddgrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteDeploymentGroupResponse' with the minimum fields required to make a request.@@ -127,14 +127,14 @@ -- -- * 'ddgrsHooksNotCleanedUp' ----- * 'ddgrsStatus'+-- * 'ddgrsResponseStatus' deleteDeploymentGroupResponse-    :: Int -- ^ 'ddgrsStatus'+    :: Int -- ^ 'ddgrsResponseStatus'     -> DeleteDeploymentGroupResponse-deleteDeploymentGroupResponse pStatus_ =+deleteDeploymentGroupResponse pResponseStatus_ =     DeleteDeploymentGroupResponse'     { _ddgrsHooksNotCleanedUp = Nothing-    , _ddgrsStatus = pStatus_+    , _ddgrsResponseStatus = pResponseStatus_     }  -- | If the output contains no data, and the corresponding deployment group@@ -147,5 +147,5 @@ ddgrsHooksNotCleanedUp = lens _ddgrsHooksNotCleanedUp (\ s a -> s{_ddgrsHooksNotCleanedUp = a}) . _Default . _Coerce;  -- | The response status code.-ddgrsStatus :: Lens' DeleteDeploymentGroupResponse Int-ddgrsStatus = lens _ddgrsStatus (\ s a -> s{_ddgrsStatus = a});+ddgrsResponseStatus :: Lens' DeleteDeploymentGroupResponse Int+ddgrsResponseStatus = lens _ddgrsResponseStatus (\ s a -> s{_ddgrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetApplicationResponse     -- * Response Lenses     , garsApplication-    , garsStatus+    , garsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -102,8 +102,8 @@ -- -- /See:/ 'getApplicationResponse' smart constructor. data GetApplicationResponse = GetApplicationResponse'-    { _garsApplication :: !(Maybe ApplicationInfo)-    , _garsStatus      :: !Int+    { _garsApplication    :: !(Maybe ApplicationInfo)+    , _garsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetApplicationResponse' with the minimum fields required to make a request.@@ -112,14 +112,14 @@ -- -- * 'garsApplication' ----- * 'garsStatus'+-- * 'garsResponseStatus' getApplicationResponse-    :: Int -- ^ 'garsStatus'+    :: Int -- ^ 'garsResponseStatus'     -> GetApplicationResponse-getApplicationResponse pStatus_ =+getApplicationResponse pResponseStatus_ =     GetApplicationResponse'     { _garsApplication = Nothing-    , _garsStatus = pStatus_+    , _garsResponseStatus = pResponseStatus_     }  -- | Information about the application.@@ -127,5 +127,5 @@ garsApplication = lens _garsApplication (\ s a -> s{_garsApplication = a});  -- | The response status code.-garsStatus :: Lens' GetApplicationResponse Int-garsStatus = lens _garsStatus (\ s a -> s{_garsStatus = a});+garsResponseStatus :: Lens' GetApplicationResponse Int+garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a});

@@ -34,10 +34,10 @@     , getApplicationRevisionResponse     , GetApplicationRevisionResponse     -- * Response Lenses-    , garrsRevisionInfo     , garrsApplicationName+    , garrsRevisionInfo     , garrsRevision-    , garrsStatus+    , garrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -88,7 +88,7 @@           = receiveJSON               (\ s h x ->                  GetApplicationRevisionResponse' <$>-                   (x .?> "revisionInfo") <*> (x .?> "applicationName")+                   (x .?> "applicationName") <*> (x .?> "revisionInfo")                      <*> (x .?> "revision")                      <*> (pure (fromEnum s))) @@ -119,47 +119,47 @@ -- -- /See:/ 'getApplicationRevisionResponse' smart constructor. data GetApplicationRevisionResponse = GetApplicationRevisionResponse'-    { _garrsRevisionInfo    :: !(Maybe GenericRevisionInfo)-    , _garrsApplicationName :: !(Maybe Text)+    { _garrsApplicationName :: !(Maybe Text)+    , _garrsRevisionInfo    :: !(Maybe GenericRevisionInfo)     , _garrsRevision        :: !(Maybe RevisionLocation)-    , _garrsStatus          :: !Int+    , _garrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetApplicationRevisionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'garrsRevisionInfo'--- -- * 'garrsApplicationName' --+-- * 'garrsRevisionInfo'+-- -- * 'garrsRevision' ----- * 'garrsStatus'+-- * 'garrsResponseStatus' getApplicationRevisionResponse-    :: Int -- ^ 'garrsStatus'+    :: Int -- ^ 'garrsResponseStatus'     -> GetApplicationRevisionResponse-getApplicationRevisionResponse pStatus_ =+getApplicationRevisionResponse pResponseStatus_ =     GetApplicationRevisionResponse'-    { _garrsRevisionInfo = Nothing-    , _garrsApplicationName = Nothing+    { _garrsApplicationName = Nothing+    , _garrsRevisionInfo = Nothing     , _garrsRevision = Nothing-    , _garrsStatus = pStatus_+    , _garrsResponseStatus = pResponseStatus_     } --- | General information about the revision.-garrsRevisionInfo :: Lens' GetApplicationRevisionResponse (Maybe GenericRevisionInfo)-garrsRevisionInfo = lens _garrsRevisionInfo (\ s a -> s{_garrsRevisionInfo = a});- -- | The name of the application that corresponds to the revision. garrsApplicationName :: Lens' GetApplicationRevisionResponse (Maybe Text) garrsApplicationName = lens _garrsApplicationName (\ s a -> s{_garrsApplicationName = a}); +-- | General information about the revision.+garrsRevisionInfo :: Lens' GetApplicationRevisionResponse (Maybe GenericRevisionInfo)+garrsRevisionInfo = lens _garrsRevisionInfo (\ s a -> s{_garrsRevisionInfo = a});+ -- | Additional information about the revision, including the revision\'s -- type and its location. garrsRevision :: Lens' GetApplicationRevisionResponse (Maybe RevisionLocation) garrsRevision = lens _garrsRevision (\ s a -> s{_garrsRevision = a});  -- | The response status code.-garrsStatus :: Lens' GetApplicationRevisionResponse Int-garrsStatus = lens _garrsStatus (\ s a -> s{_garrsStatus = a});+garrsResponseStatus :: Lens' GetApplicationRevisionResponse Int+garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetDeploymentResponse     -- * Response Lenses     , gdrsDeploymentInfo-    , gdrsStatus+    , gdrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -103,7 +103,7 @@ -- /See:/ 'getDeploymentResponse' smart constructor. data GetDeploymentResponse = GetDeploymentResponse'     { _gdrsDeploymentInfo :: !(Maybe DeploymentInfo)-    , _gdrsStatus         :: !Int+    , _gdrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetDeploymentResponse' with the minimum fields required to make a request.@@ -112,14 +112,14 @@ -- -- * 'gdrsDeploymentInfo' ----- * 'gdrsStatus'+-- * 'gdrsResponseStatus' getDeploymentResponse-    :: Int -- ^ 'gdrsStatus'+    :: Int -- ^ 'gdrsResponseStatus'     -> GetDeploymentResponse-getDeploymentResponse pStatus_ =+getDeploymentResponse pResponseStatus_ =     GetDeploymentResponse'     { _gdrsDeploymentInfo = Nothing-    , _gdrsStatus = pStatus_+    , _gdrsResponseStatus = pResponseStatus_     }  -- | Information about the deployment.@@ -127,5 +127,5 @@ gdrsDeploymentInfo = lens _gdrsDeploymentInfo (\ s a -> s{_gdrsDeploymentInfo = a});  -- | The response status code.-gdrsStatus :: Lens' GetDeploymentResponse Int-gdrsStatus = lens _gdrsStatus (\ s a -> s{_gdrsStatus = a});+gdrsResponseStatus :: Lens' GetDeploymentResponse Int+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetDeploymentConfigResponse     -- * Response Lenses     , gdcrsDeploymentConfigInfo-    , gdcrsStatus+    , gdcrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -108,7 +108,7 @@ -- /See:/ 'getDeploymentConfigResponse' smart constructor. data GetDeploymentConfigResponse = GetDeploymentConfigResponse'     { _gdcrsDeploymentConfigInfo :: !(Maybe DeploymentConfigInfo)-    , _gdcrsStatus               :: !Int+    , _gdcrsResponseStatus       :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetDeploymentConfigResponse' with the minimum fields required to make a request.@@ -117,14 +117,14 @@ -- -- * 'gdcrsDeploymentConfigInfo' ----- * 'gdcrsStatus'+-- * 'gdcrsResponseStatus' getDeploymentConfigResponse-    :: Int -- ^ 'gdcrsStatus'+    :: Int -- ^ 'gdcrsResponseStatus'     -> GetDeploymentConfigResponse-getDeploymentConfigResponse pStatus_ =+getDeploymentConfigResponse pResponseStatus_ =     GetDeploymentConfigResponse'     { _gdcrsDeploymentConfigInfo = Nothing-    , _gdcrsStatus = pStatus_+    , _gdcrsResponseStatus = pResponseStatus_     }  -- | Information about the deployment configuration.@@ -132,5 +132,5 @@ gdcrsDeploymentConfigInfo = lens _gdcrsDeploymentConfigInfo (\ s a -> s{_gdcrsDeploymentConfigInfo = a});  -- | The response status code.-gdcrsStatus :: Lens' GetDeploymentConfigResponse Int-gdcrsStatus = lens _gdcrsStatus (\ s a -> s{_gdcrsStatus = a});+gdcrsResponseStatus :: Lens' GetDeploymentConfigResponse Int+gdcrsResponseStatus = lens _gdcrsResponseStatus (\ s a -> s{_gdcrsResponseStatus = a});

@@ -35,7 +35,7 @@     , GetDeploymentGroupResponse     -- * Response Lenses     , gdgrsDeploymentGroupInfo-    , gdgrsStatus+    , gdgrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -118,7 +118,7 @@ -- /See:/ 'getDeploymentGroupResponse' smart constructor. data GetDeploymentGroupResponse = GetDeploymentGroupResponse'     { _gdgrsDeploymentGroupInfo :: !(Maybe DeploymentGroupInfo)-    , _gdgrsStatus              :: !Int+    , _gdgrsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetDeploymentGroupResponse' with the minimum fields required to make a request.@@ -127,14 +127,14 @@ -- -- * 'gdgrsDeploymentGroupInfo' ----- * 'gdgrsStatus'+-- * 'gdgrsResponseStatus' getDeploymentGroupResponse-    :: Int -- ^ 'gdgrsStatus'+    :: Int -- ^ 'gdgrsResponseStatus'     -> GetDeploymentGroupResponse-getDeploymentGroupResponse pStatus_ =+getDeploymentGroupResponse pResponseStatus_ =     GetDeploymentGroupResponse'     { _gdgrsDeploymentGroupInfo = Nothing-    , _gdgrsStatus = pStatus_+    , _gdgrsResponseStatus = pResponseStatus_     }  -- | Information about the deployment group.@@ -142,5 +142,5 @@ gdgrsDeploymentGroupInfo = lens _gdgrsDeploymentGroupInfo (\ s a -> s{_gdgrsDeploymentGroupInfo = a});  -- | The response status code.-gdgrsStatus :: Lens' GetDeploymentGroupResponse Int-gdgrsStatus = lens _gdgrsStatus (\ s a -> s{_gdgrsStatus = a});+gdgrsResponseStatus :: Lens' GetDeploymentGroupResponse Int+gdgrsResponseStatus = lens _gdgrsResponseStatus (\ s a -> s{_gdgrsResponseStatus = a});

@@ -35,7 +35,7 @@     , GetDeploymentInstanceResponse     -- * Response Lenses     , gdirsInstanceSummary-    , gdirsStatus+    , gdirsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -115,7 +115,7 @@ -- /See:/ 'getDeploymentInstanceResponse' smart constructor. data GetDeploymentInstanceResponse = GetDeploymentInstanceResponse'     { _gdirsInstanceSummary :: !(Maybe InstanceSummary)-    , _gdirsStatus          :: !Int+    , _gdirsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetDeploymentInstanceResponse' with the minimum fields required to make a request.@@ -124,14 +124,14 @@ -- -- * 'gdirsInstanceSummary' ----- * 'gdirsStatus'+-- * 'gdirsResponseStatus' getDeploymentInstanceResponse-    :: Int -- ^ 'gdirsStatus'+    :: Int -- ^ 'gdirsResponseStatus'     -> GetDeploymentInstanceResponse-getDeploymentInstanceResponse pStatus_ =+getDeploymentInstanceResponse pResponseStatus_ =     GetDeploymentInstanceResponse'     { _gdirsInstanceSummary = Nothing-    , _gdirsStatus = pStatus_+    , _gdirsResponseStatus = pResponseStatus_     }  -- | Information about the instance.@@ -139,5 +139,5 @@ gdirsInstanceSummary = lens _gdirsInstanceSummary (\ s a -> s{_gdirsInstanceSummary = a});  -- | The response status code.-gdirsStatus :: Lens' GetDeploymentInstanceResponse Int-gdirsStatus = lens _gdirsStatus (\ s a -> s{_gdirsStatus = a});+gdirsResponseStatus :: Lens' GetDeploymentInstanceResponse Int+gdirsResponseStatus = lens _gdirsResponseStatus (\ s a -> s{_gdirsResponseStatus = a});

@@ -34,7 +34,7 @@     , GetOnPremisesInstanceResponse     -- * Response Lenses     , gopirsInstanceInfo-    , gopirsStatus+    , gopirsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -103,8 +103,8 @@ -- -- /See:/ 'getOnPremisesInstanceResponse' smart constructor. data GetOnPremisesInstanceResponse = GetOnPremisesInstanceResponse'-    { _gopirsInstanceInfo :: !(Maybe InstanceInfo)-    , _gopirsStatus       :: !Int+    { _gopirsInstanceInfo   :: !(Maybe InstanceInfo)+    , _gopirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetOnPremisesInstanceResponse' with the minimum fields required to make a request.@@ -113,14 +113,14 @@ -- -- * 'gopirsInstanceInfo' ----- * 'gopirsStatus'+-- * 'gopirsResponseStatus' getOnPremisesInstanceResponse-    :: Int -- ^ 'gopirsStatus'+    :: Int -- ^ 'gopirsResponseStatus'     -> GetOnPremisesInstanceResponse-getOnPremisesInstanceResponse pStatus_ =+getOnPremisesInstanceResponse pResponseStatus_ =     GetOnPremisesInstanceResponse'     { _gopirsInstanceInfo = Nothing-    , _gopirsStatus = pStatus_+    , _gopirsResponseStatus = pResponseStatus_     }  -- | Information about the on-premises instance.@@ -128,5 +128,5 @@ gopirsInstanceInfo = lens _gopirsInstanceInfo (\ s a -> s{_gopirsInstanceInfo = a});  -- | The response status code.-gopirsStatus :: Lens' GetOnPremisesInstanceResponse Int-gopirsStatus = lens _gopirsStatus (\ s a -> s{_gopirsStatus = a});+gopirsResponseStatus :: Lens' GetOnPremisesInstanceResponse Int+gopirsResponseStatus = lens _gopirsResponseStatus (\ s a -> s{_gopirsResponseStatus = a});

@@ -29,8 +29,8 @@     -- * Request Lenses     , larS3KeyPrefix     , larDeployed-    , larNextToken     , larSortOrder+    , larNextToken     , larS3Bucket     , larSortBy     , larApplicationName@@ -41,7 +41,7 @@     -- * Response Lenses     , larrsNextToken     , larrsRevisions-    , larrsStatus+    , larrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -56,8 +56,8 @@ data ListApplicationRevisions = ListApplicationRevisions'     { _larS3KeyPrefix     :: !(Maybe Text)     , _larDeployed        :: !(Maybe ListStateFilterAction)-    , _larNextToken       :: !(Maybe Text)     , _larSortOrder       :: !(Maybe SortOrder)+    , _larNextToken       :: !(Maybe Text)     , _larS3Bucket        :: !(Maybe Text)     , _larSortBy          :: !(Maybe ApplicationRevisionSortBy)     , _larApplicationName :: !Text@@ -71,10 +71,10 @@ -- -- * 'larDeployed' ----- * 'larNextToken'--- -- * 'larSortOrder' --+-- * 'larNextToken'+-- -- * 'larS3Bucket' -- -- * 'larSortBy'@@ -87,8 +87,8 @@     ListApplicationRevisions'     { _larS3KeyPrefix = Nothing     , _larDeployed = Nothing-    , _larNextToken = Nothing     , _larSortOrder = Nothing+    , _larNextToken = Nothing     , _larS3Bucket = Nothing     , _larSortBy = Nothing     , _larApplicationName = pApplicationName_@@ -111,12 +111,6 @@ larDeployed :: Lens' ListApplicationRevisions (Maybe ListStateFilterAction) larDeployed = lens _larDeployed (\ s a -> s{_larDeployed = a}); --- | An identifier that was returned from the previous list application--- revisions call, which can be used to return the next set of applications--- in the list.-larNextToken :: Lens' ListApplicationRevisions (Maybe Text)-larNextToken = lens _larNextToken (\ s a -> s{_larNextToken = a});- -- | The order to sort the list results by: -- -- -   ascending: Sort the list of results in ascending order.@@ -128,6 +122,12 @@ larSortOrder :: Lens' ListApplicationRevisions (Maybe SortOrder) larSortOrder = lens _larSortOrder (\ s a -> s{_larSortOrder = a}); +-- | An identifier that was returned from the previous list application+-- revisions call, which can be used to return the next set of applications+-- in the list.+larNextToken :: Lens' ListApplicationRevisions (Maybe Text)+larNextToken = lens _larNextToken (\ s a -> s{_larNextToken = a});+ -- | A specific Amazon S3 bucket name to limit the search for revisions. -- -- If set to null, then all of the user\'s buckets will be searched.@@ -181,8 +181,8 @@               (catMaybes                  [("s3KeyPrefix" .=) <$> _larS3KeyPrefix,                   ("deployed" .=) <$> _larDeployed,-                  ("nextToken" .=) <$> _larNextToken,                   ("sortOrder" .=) <$> _larSortOrder,+                  ("nextToken" .=) <$> _larNextToken,                   ("s3Bucket" .=) <$> _larS3Bucket,                   ("sortBy" .=) <$> _larSortBy,                   Just ("applicationName" .= _larApplicationName)])@@ -197,9 +197,9 @@ -- -- /See:/ 'listApplicationRevisionsResponse' smart constructor. data ListApplicationRevisionsResponse = ListApplicationRevisionsResponse'-    { _larrsNextToken :: !(Maybe Text)-    , _larrsRevisions :: !(Maybe [RevisionLocation])-    , _larrsStatus    :: !Int+    { _larrsNextToken      :: !(Maybe Text)+    , _larrsRevisions      :: !(Maybe [RevisionLocation])+    , _larrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListApplicationRevisionsResponse' with the minimum fields required to make a request.@@ -210,15 +210,15 @@ -- -- * 'larrsRevisions' ----- * 'larrsStatus'+-- * 'larrsResponseStatus' listApplicationRevisionsResponse-    :: Int -- ^ 'larrsStatus'+    :: Int -- ^ 'larrsResponseStatus'     -> ListApplicationRevisionsResponse-listApplicationRevisionsResponse pStatus_ =+listApplicationRevisionsResponse pResponseStatus_ =     ListApplicationRevisionsResponse'     { _larrsNextToken = Nothing     , _larrsRevisions = Nothing-    , _larrsStatus = pStatus_+    , _larrsResponseStatus = pResponseStatus_     }  -- | If the amount of information that is returned is significantly large, an@@ -233,5 +233,5 @@ larrsRevisions = lens _larrsRevisions (\ s a -> s{_larrsRevisions = a}) . _Default . _Coerce;  -- | The response status code.-larrsStatus :: Lens' ListApplicationRevisionsResponse Int-larrsStatus = lens _larrsStatus (\ s a -> s{_larrsStatus = a});+larrsResponseStatus :: Lens' ListApplicationRevisionsResponse Int+larrsResponseStatus = lens _larrsResponseStatus (\ s a -> s{_larrsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , larsNextToken     , larsApplications-    , larsStatus+    , larsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -106,9 +106,9 @@ -- -- /See:/ 'listApplicationsResponse' smart constructor. data ListApplicationsResponse = ListApplicationsResponse'-    { _larsNextToken    :: !(Maybe Text)-    , _larsApplications :: !(Maybe [Text])-    , _larsStatus       :: !Int+    { _larsNextToken      :: !(Maybe Text)+    , _larsApplications   :: !(Maybe [Text])+    , _larsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListApplicationsResponse' with the minimum fields required to make a request.@@ -119,15 +119,15 @@ -- -- * 'larsApplications' ----- * 'larsStatus'+-- * 'larsResponseStatus' listApplicationsResponse-    :: Int -- ^ 'larsStatus'+    :: Int -- ^ 'larsResponseStatus'     -> ListApplicationsResponse-listApplicationsResponse pStatus_ =+listApplicationsResponse pResponseStatus_ =     ListApplicationsResponse'     { _larsNextToken = Nothing     , _larsApplications = Nothing-    , _larsStatus = pStatus_+    , _larsResponseStatus = pResponseStatus_     }  -- | If the amount of information that is returned is significantly large, an@@ -141,5 +141,5 @@ larsApplications = lens _larsApplications (\ s a -> s{_larsApplications = a}) . _Default . _Coerce;  -- | The response status code.-larsStatus :: Lens' ListApplicationsResponse Int-larsStatus = lens _larsStatus (\ s a -> s{_larsStatus = a});+larsResponseStatus :: Lens' ListApplicationsResponse Int+larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});

@@ -36,7 +36,7 @@     -- * Response Lenses     , ldcrsNextToken     , ldcrsDeploymentConfigsList-    , ldcrsStatus+    , ldcrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -109,7 +109,7 @@ data ListDeploymentConfigsResponse = ListDeploymentConfigsResponse'     { _ldcrsNextToken             :: !(Maybe Text)     , _ldcrsDeploymentConfigsList :: !(Maybe [Text])-    , _ldcrsStatus                :: !Int+    , _ldcrsResponseStatus        :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListDeploymentConfigsResponse' with the minimum fields required to make a request.@@ -120,15 +120,15 @@ -- -- * 'ldcrsDeploymentConfigsList' ----- * 'ldcrsStatus'+-- * 'ldcrsResponseStatus' listDeploymentConfigsResponse-    :: Int -- ^ 'ldcrsStatus'+    :: Int -- ^ 'ldcrsResponseStatus'     -> ListDeploymentConfigsResponse-listDeploymentConfigsResponse pStatus_ =+listDeploymentConfigsResponse pResponseStatus_ =     ListDeploymentConfigsResponse'     { _ldcrsNextToken = Nothing     , _ldcrsDeploymentConfigsList = Nothing-    , _ldcrsStatus = pStatus_+    , _ldcrsResponseStatus = pResponseStatus_     }  -- | If the amount of information that is returned is significantly large, an@@ -144,5 +144,5 @@ ldcrsDeploymentConfigsList = lens _ldcrsDeploymentConfigsList (\ s a -> s{_ldcrsDeploymentConfigsList = a}) . _Default . _Coerce;  -- | The response status code.-ldcrsStatus :: Lens' ListDeploymentConfigsResponse Int-ldcrsStatus = lens _ldcrsStatus (\ s a -> s{_ldcrsStatus = a});+ldcrsResponseStatus :: Lens' ListDeploymentConfigsResponse Int+ldcrsResponseStatus = lens _ldcrsResponseStatus (\ s a -> s{_ldcrsResponseStatus = a});

@@ -38,7 +38,7 @@     , ldgrsNextToken     , ldgrsApplicationName     , ldgrsDeploymentGroups-    , ldgrsStatus+    , ldgrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -124,7 +124,7 @@     { _ldgrsNextToken        :: !(Maybe Text)     , _ldgrsApplicationName  :: !(Maybe Text)     , _ldgrsDeploymentGroups :: !(Maybe [Text])-    , _ldgrsStatus           :: !Int+    , _ldgrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListDeploymentGroupsResponse' with the minimum fields required to make a request.@@ -137,16 +137,16 @@ -- -- * 'ldgrsDeploymentGroups' ----- * 'ldgrsStatus'+-- * 'ldgrsResponseStatus' listDeploymentGroupsResponse-    :: Int -- ^ 'ldgrsStatus'+    :: Int -- ^ 'ldgrsResponseStatus'     -> ListDeploymentGroupsResponse-listDeploymentGroupsResponse pStatus_ =+listDeploymentGroupsResponse pResponseStatus_ =     ListDeploymentGroupsResponse'     { _ldgrsNextToken = Nothing     , _ldgrsApplicationName = Nothing     , _ldgrsDeploymentGroups = Nothing-    , _ldgrsStatus = pStatus_+    , _ldgrsResponseStatus = pResponseStatus_     }  -- | If the amount of information that is returned is significantly large, an@@ -165,5 +165,5 @@ ldgrsDeploymentGroups = lens _ldgrsDeploymentGroups (\ s a -> s{_ldgrsDeploymentGroups = a}) . _Default . _Coerce;  -- | The response status code.-ldgrsStatus :: Lens' ListDeploymentGroupsResponse Int-ldgrsStatus = lens _ldgrsStatus (\ s a -> s{_ldgrsStatus = a});+ldgrsResponseStatus :: Lens' ListDeploymentGroupsResponse Int+ldgrsResponseStatus = lens _ldgrsResponseStatus (\ s a -> s{_ldgrsResponseStatus = a});

@@ -38,7 +38,7 @@     -- * Response Lenses     , ldirsNextToken     , ldirsInstancesList-    , ldirsStatus+    , ldirsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -143,9 +143,9 @@ -- -- /See:/ 'listDeploymentInstancesResponse' smart constructor. data ListDeploymentInstancesResponse = ListDeploymentInstancesResponse'-    { _ldirsNextToken     :: !(Maybe Text)-    , _ldirsInstancesList :: !(Maybe [Text])-    , _ldirsStatus        :: !Int+    { _ldirsNextToken      :: !(Maybe Text)+    , _ldirsInstancesList  :: !(Maybe [Text])+    , _ldirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListDeploymentInstancesResponse' with the minimum fields required to make a request.@@ -156,15 +156,15 @@ -- -- * 'ldirsInstancesList' ----- * 'ldirsStatus'+-- * 'ldirsResponseStatus' listDeploymentInstancesResponse-    :: Int -- ^ 'ldirsStatus'+    :: Int -- ^ 'ldirsResponseStatus'     -> ListDeploymentInstancesResponse-listDeploymentInstancesResponse pStatus_ =+listDeploymentInstancesResponse pResponseStatus_ =     ListDeploymentInstancesResponse'     { _ldirsNextToken = Nothing     , _ldirsInstancesList = Nothing-    , _ldirsStatus = pStatus_+    , _ldirsResponseStatus = pResponseStatus_     }  -- | If the amount of information that is returned is significantly large, an@@ -179,5 +179,5 @@ ldirsInstancesList = lens _ldirsInstancesList (\ s a -> s{_ldirsInstancesList = a}) . _Default . _Coerce;  -- | The response status code.-ldirsStatus :: Lens' ListDeploymentInstancesResponse Int-ldirsStatus = lens _ldirsStatus (\ s a -> s{_ldirsStatus = a});+ldirsResponseStatus :: Lens' ListDeploymentInstancesResponse Int+ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a});

@@ -40,7 +40,7 @@     -- * Response Lenses     , ldrsNextToken     , ldrsDeployments-    , ldrsStatus+    , ldrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -157,9 +157,9 @@ -- -- /See:/ 'listDeploymentsResponse' smart constructor. data ListDeploymentsResponse = ListDeploymentsResponse'-    { _ldrsNextToken   :: !(Maybe Text)-    , _ldrsDeployments :: !(Maybe [Text])-    , _ldrsStatus      :: !Int+    { _ldrsNextToken      :: !(Maybe Text)+    , _ldrsDeployments    :: !(Maybe [Text])+    , _ldrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListDeploymentsResponse' with the minimum fields required to make a request.@@ -170,15 +170,15 @@ -- -- * 'ldrsDeployments' ----- * 'ldrsStatus'+-- * 'ldrsResponseStatus' listDeploymentsResponse-    :: Int -- ^ 'ldrsStatus'+    :: Int -- ^ 'ldrsResponseStatus'     -> ListDeploymentsResponse-listDeploymentsResponse pStatus_ =+listDeploymentsResponse pResponseStatus_ =     ListDeploymentsResponse'     { _ldrsNextToken = Nothing     , _ldrsDeployments = Nothing-    , _ldrsStatus = pStatus_+    , _ldrsResponseStatus = pResponseStatus_     }  -- | If the amount of information that is returned is significantly large, an@@ -192,5 +192,5 @@ ldrsDeployments = lens _ldrsDeployments (\ s a -> s{_ldrsDeployments = a}) . _Default . _Coerce;  -- | The response status code.-ldrsStatus :: Lens' ListDeploymentsResponse Int-ldrsStatus = lens _ldrsStatus (\ s a -> s{_ldrsStatus = a});+ldrsResponseStatus :: Lens' ListDeploymentsResponse Int+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});

@@ -41,7 +41,7 @@     -- * Response Lenses     , lopirsNextToken     , lopirsInstanceNames-    , lopirsStatus+    , lopirsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -140,9 +140,9 @@ -- -- /See:/ 'listOnPremisesInstancesResponse' smart constructor. data ListOnPremisesInstancesResponse = ListOnPremisesInstancesResponse'-    { _lopirsNextToken     :: !(Maybe Text)-    , _lopirsInstanceNames :: !(Maybe [Text])-    , _lopirsStatus        :: !Int+    { _lopirsNextToken      :: !(Maybe Text)+    , _lopirsInstanceNames  :: !(Maybe [Text])+    , _lopirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListOnPremisesInstancesResponse' with the minimum fields required to make a request.@@ -153,15 +153,15 @@ -- -- * 'lopirsInstanceNames' ----- * 'lopirsStatus'+-- * 'lopirsResponseStatus' listOnPremisesInstancesResponse-    :: Int -- ^ 'lopirsStatus'+    :: Int -- ^ 'lopirsResponseStatus'     -> ListOnPremisesInstancesResponse-listOnPremisesInstancesResponse pStatus_ =+listOnPremisesInstancesResponse pResponseStatus_ =     ListOnPremisesInstancesResponse'     { _lopirsNextToken = Nothing     , _lopirsInstanceNames = Nothing-    , _lopirsStatus = pStatus_+    , _lopirsResponseStatus = pResponseStatus_     }  -- | If the amount of information that is returned is significantly large, an@@ -176,5 +176,5 @@ lopirsInstanceNames = lens _lopirsInstanceNames (\ s a -> s{_lopirsInstanceNames = a}) . _Default . _Coerce;  -- | The response status code.-lopirsStatus :: Lens' ListOnPremisesInstancesResponse Int-lopirsStatus = lens _lopirsStatus (\ s a -> s{_lopirsStatus = a});+lopirsResponseStatus :: Lens' ListOnPremisesInstancesResponse Int+lopirsResponseStatus = lens _lopirsResponseStatus (\ s a -> s{_lopirsResponseStatus = a});

@@ -33,8 +33,9 @@     , stopDeploymentResponse     , StopDeploymentResponse     -- * Response Lenses-    , sdrsStatusMessage     , sdrsStatus+    , sdrsStatusMessage+    , sdrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -74,7 +75,8 @@           = receiveJSON               (\ s h x ->                  StopDeploymentResponse' <$>-                   (x .?> "statusMessage") <*> (pure (fromEnum s)))+                   (x .?> "status") <*> (x .?> "statusMessage") <*>+                     (pure (fromEnum s)))  instance ToHeaders StopDeployment where         toHeaders@@ -101,30 +103,41 @@ -- -- /See:/ 'stopDeploymentResponse' smart constructor. data StopDeploymentResponse = StopDeploymentResponse'-    { _sdrsStatusMessage :: !(Maybe Text)-    , _sdrsStatus        :: !Int+    { _sdrsStatus         :: !(Maybe StopStatus)+    , _sdrsStatusMessage  :: !(Maybe Text)+    , _sdrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'StopDeploymentResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'sdrsStatus'+-- -- * 'sdrsStatusMessage' ----- * 'sdrsStatus'+-- * 'sdrsResponseStatus' stopDeploymentResponse-    :: Int -- ^ 'sdrsStatus'+    :: Int -- ^ 'sdrsResponseStatus'     -> StopDeploymentResponse-stopDeploymentResponse pStatus_ =+stopDeploymentResponse pResponseStatus_ =     StopDeploymentResponse'-    { _sdrsStatusMessage = Nothing-    , _sdrsStatus = pStatus_+    { _sdrsStatus = Nothing+    , _sdrsStatusMessage = Nothing+    , _sdrsResponseStatus = pResponseStatus_     } +-- | The status of the stop deployment operation:+--+-- -   Pending: The stop operation is pending.+-- -   Succeeded: The stop operation succeeded.+sdrsStatus :: Lens' StopDeploymentResponse (Maybe StopStatus)+sdrsStatus = lens _sdrsStatus (\ s a -> s{_sdrsStatus = a});+ -- | An accompanying status message. sdrsStatusMessage :: Lens' StopDeploymentResponse (Maybe Text) sdrsStatusMessage = lens _sdrsStatusMessage (\ s a -> s{_sdrsStatusMessage = a});  -- | The response status code.-sdrsStatus :: Lens' StopDeploymentResponse Int-sdrsStatus = lens _sdrsStatus (\ s a -> s{_sdrsStatus = a});+sdrsResponseStatus :: Lens' StopDeploymentResponse Int+sdrsResponseStatus = lens _sdrsResponseStatus (\ s a -> s{_sdrsResponseStatus = a});

@@ -19,59 +19,59 @@     , _InvalidTimeRangeException     , _InvalidTagException     , _InstanceNameAlreadyRegisteredException-    , _InvalidIAMUserARNException     , _IAMUserARNRequiredException     , _InvalidDeploymentGroupNameException     , _DescriptionTooLongException-    , _DeploymentConfigAlreadyExistsException-    , _DeploymentConfigLimitExceededException-    , _InvalidRoleException+    , _InvalidIAMUserARNException     , _DeploymentNotStartedException+    , _DeploymentConfigLimitExceededException     , _RoleRequiredException-    , _IAMUserARNAlreadyRegisteredException+    , _InvalidRoleException+    , _DeploymentConfigAlreadyExistsException     , _DeploymentLimitExceededException+    , _IAMUserARNAlreadyRegisteredException     , _InstanceLimitExceededException+    , _InvalidDeployedStateFilterException     , _InvalidAutoScalingGroupException     , _InvalidApplicationNameException-    , _InvalidDeployedStateFilterException-    , _InvalidMinimumHealthyHostValueException     , _ApplicationDoesNotExistException+    , _InvalidMinimumHealthyHostValueException     , _InvalidTagFilterException     , _TagRequiredException-    , _RevisionDoesNotExistException     , _DeploymentGroupNameRequiredException-    , _InvalidBucketNameFilterException+    , _BucketNameFilterRequiredException     , _DeploymentConfigDoesNotExistException+    , _InvalidBucketNameFilterException+    , _DeploymentGroupAlreadyExistsException     , _InvalidSortByException-    , _BucketNameFilterRequiredException+    , _RevisionDoesNotExistException     , _DeploymentGroupLimitExceededException-    , _DeploymentGroupAlreadyExistsException-    , _InvalidDeploymentIdException     , _DeploymentGroupDoesNotExistException+    , _InvalidDeploymentConfigNameException+    , _DeploymentConfigNameRequiredException     , _DeploymentIdRequiredException+    , _InvalidNextTokenException     , _InstanceIdRequiredException-    , _DeploymentConfigNameRequiredException-    , _InvalidDeploymentConfigNameException+    , _InvalidDeploymentIdException     , _InvalidSortOrderException-    , _InvalidNextTokenException-    , _InvalidRevisionException     , _DeploymentAlreadyCompletedException+    , _DeploymentDoesNotExistException+    , _InvalidRevisionException     , _RevisionRequiredException     , _InstanceDoesNotExistException-    , _DeploymentDoesNotExistException-    , _InstanceNameRequiredException     , _DeploymentConfigInUseException     , _InvalidEC2TagException     , _InvalidInstanceNameException+    , _InstanceNameRequiredException     , _InvalidDeploymentStatusException     , _InvalidRegistrationStatusException-    , _TagLimitExceededException+    , _ApplicationNameRequiredException     , _InstanceNotRegisteredException-    , _ApplicationLimitExceededException-    , _InvalidOperationException     , _ApplicationAlreadyExistsException     , _InvalidInstanceStatusException-    , _ApplicationNameRequiredException+    , _TagLimitExceededException+    , _ApplicationLimitExceededException+    , _InvalidOperationException     , _InvalidKeyPrefixFilterException      -- * ApplicationRevisionSortBy@@ -160,9 +160,9 @@     -- * DeploymentInfo     , DeploymentInfo     , deploymentInfo-    , diDeploymentId     , diCreator     , diStatus+    , diDeploymentId     , diDeploymentConfigName     , diStartTime     , diCompleteTime@@ -171,9 +171,9 @@     , diApplicationName     , diRevision     , diDescription-    , diIgnoreApplicationStopFailures-    , diDeploymentGroupName     , diCreateTime+    , diDeploymentGroupName+    , diIgnoreApplicationStopFailures      -- * DeploymentOverview     , DeploymentOverview@@ -223,8 +223,8 @@     -- * InstanceInfo     , InstanceInfo     , instanceInfo-    , iiInstanceARN     , iiRegisterTime+    , iiInstanceARN     , iiDeregisterTime     , iiIamUserARN     , iiInstanceName@@ -234,8 +234,8 @@     , InstanceSummary     , instanceSummary     , isInstanceId-    , isDeploymentId     , isStatus+    , isDeploymentId     , isLastUpdatedAt     , isLifecycleEvents @@ -243,8 +243,8 @@     , LifecycleEvent     , lifecycleEvent     , leStatus-    , leStartTime     , leLifecycleEventName+    , leStartTime     , leDiagnostics     , leEndTime @@ -340,11 +340,6 @@ _InstanceNameAlreadyRegisteredException =     _ServiceError . hasCode "InstanceNameAlreadyRegisteredException" --- | The IAM user ARN was specified in an invalid format.-_InvalidIAMUserARNException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidIAMUserARNException =-    _ServiceError . hasCode "InvalidIamUserArnException"- -- | An IAM user ARN was not specified. _IAMUserARNRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _IAMUserARNRequiredException =@@ -360,31 +355,41 @@ _DescriptionTooLongException =     _ServiceError . hasCode "DescriptionTooLongException" --- | A deployment configuration with the specified name already exists with--- the applicable IAM user or AWS account.-_DeploymentConfigAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError-_DeploymentConfigAlreadyExistsException =-    _ServiceError . hasCode "DeploymentConfigAlreadyExistsException"+-- | The IAM user ARN was specified in an invalid format.+_InvalidIAMUserARNException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidIAMUserARNException =+    _ServiceError . hasCode "InvalidIamUserArnException" +-- | The specified deployment has not started.+_DeploymentNotStartedException :: AsError a => Getting (First ServiceError) a ServiceError+_DeploymentNotStartedException =+    _ServiceError . hasCode "DeploymentNotStartedException"+ -- | The deployment configurations limit was exceeded. _DeploymentConfigLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentConfigLimitExceededException =     _ServiceError . hasCode "DeploymentConfigLimitExceededException" +-- | The role ID was not specified.+_RoleRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_RoleRequiredException = _ServiceError . hasCode "RoleRequiredException"+ -- | The service role ARN was specified in an invalid format. Or, if an Auto -- Scaling group was specified, the specified service role does not grant -- the appropriate permissions to Auto Scaling. _InvalidRoleException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRoleException = _ServiceError . hasCode "InvalidRoleException" --- | The specified deployment has not started.-_DeploymentNotStartedException :: AsError a => Getting (First ServiceError) a ServiceError-_DeploymentNotStartedException =-    _ServiceError . hasCode "DeploymentNotStartedException"+-- | A deployment configuration with the specified name already exists with+-- the applicable IAM user or AWS account.+_DeploymentConfigAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError+_DeploymentConfigAlreadyExistsException =+    _ServiceError . hasCode "DeploymentConfigAlreadyExistsException" --- | The role ID was not specified.-_RoleRequiredException :: AsError a => Getting (First ServiceError) a ServiceError-_RoleRequiredException = _ServiceError . hasCode "RoleRequiredException"+-- | The number of allowed deployments was exceeded.+_DeploymentLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_DeploymentLimitExceededException =+    _ServiceError . hasCode "DeploymentLimitExceededException"  -- | The specified IAM user ARN is already registered with an on-premises -- instance.@@ -392,17 +397,17 @@ _IAMUserARNAlreadyRegisteredException =     _ServiceError . hasCode "IamUserArnAlreadyRegisteredException" --- | The number of allowed deployments was exceeded.-_DeploymentLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_DeploymentLimitExceededException =-    _ServiceError . hasCode "DeploymentLimitExceededException"- -- | The maximum number of allowed on-premises instances in a single call was -- exceeded. _InstanceLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _InstanceLimitExceededException =     _ServiceError . hasCode "InstanceLimitExceededException" +-- | The deployed state filter was specified in an invalid format.+_InvalidDeployedStateFilterException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidDeployedStateFilterException =+    _ServiceError . hasCode "InvalidDeployedStateFilterException"+ -- | The Auto Scaling group was specified in an invalid format or does not -- exist. _InvalidAutoScalingGroupException :: AsError a => Getting (First ServiceError) a ServiceError@@ -414,22 +419,17 @@ _InvalidApplicationNameException =     _ServiceError . hasCode "InvalidApplicationNameException" --- | The deployed state filter was specified in an invalid format.-_InvalidDeployedStateFilterException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidDeployedStateFilterException =-    _ServiceError . hasCode "InvalidDeployedStateFilterException"---- | The minimum healthy instances value was specified in an invalid format.-_InvalidMinimumHealthyHostValueException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidMinimumHealthyHostValueException =-    _ServiceError . hasCode "InvalidMinimumHealthyHostValueException"- -- | The application does not exist with the applicable IAM user or AWS -- account. _ApplicationDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError _ApplicationDoesNotExistException =     _ServiceError . hasCode "ApplicationDoesNotExistException" +-- | The minimum healthy instances value was specified in an invalid format.+_InvalidMinimumHealthyHostValueException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidMinimumHealthyHostValueException =+    _ServiceError . hasCode "InvalidMinimumHealthyHostValueException"+ -- | The specified tag filter was specified in an invalid format. _InvalidTagFilterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTagFilterException =@@ -439,22 +439,15 @@ _TagRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _TagRequiredException = _ServiceError . hasCode "TagRequiredException" --- | The named revision does not exist with the applicable IAM user or AWS--- account.-_RevisionDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError-_RevisionDoesNotExistException =-    _ServiceError . hasCode "RevisionDoesNotExistException"- -- | The deployment group name was not specified. _DeploymentGroupNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentGroupNameRequiredException =     _ServiceError . hasCode "DeploymentGroupNameRequiredException" --- | The bucket name either doesn\'t exist or was specified in an invalid--- format.-_InvalidBucketNameFilterException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidBucketNameFilterException =-    _ServiceError . hasCode "InvalidBucketNameFilterException"+-- | A bucket name is required but was not provided.+_BucketNameFilterRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_BucketNameFilterRequiredException =+    _ServiceError . hasCode "BucketNameFilterRequiredException"  -- | The deployment configuration does not exist with the applicable IAM user -- or AWS account.@@ -462,77 +455,90 @@ _DeploymentConfigDoesNotExistException =     _ServiceError . hasCode "DeploymentConfigDoesNotExistException" +-- | The bucket name either doesn\'t exist or was specified in an invalid+-- format.+_InvalidBucketNameFilterException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidBucketNameFilterException =+    _ServiceError . hasCode "InvalidBucketNameFilterException"++-- | A deployment group with the specified name already exists with the+-- applicable IAM user or AWS account.+_DeploymentGroupAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError+_DeploymentGroupAlreadyExistsException =+    _ServiceError . hasCode "DeploymentGroupAlreadyExistsException"+ -- | The column name to sort by is either not present or was specified in an -- invalid format. _InvalidSortByException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSortByException = _ServiceError . hasCode "InvalidSortByException" --- | A bucket name is required but was not provided.-_BucketNameFilterRequiredException :: AsError a => Getting (First ServiceError) a ServiceError-_BucketNameFilterRequiredException =-    _ServiceError . hasCode "BucketNameFilterRequiredException"+-- | The named revision does not exist with the applicable IAM user or AWS+-- account.+_RevisionDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_RevisionDoesNotExistException =+    _ServiceError . hasCode "RevisionDoesNotExistException"  -- | The deployment groups limit was exceeded. _DeploymentGroupLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentGroupLimitExceededException =     _ServiceError . hasCode "DeploymentGroupLimitExceededException" --- | A deployment group with the specified name already exists with the--- applicable IAM user or AWS account.-_DeploymentGroupAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError-_DeploymentGroupAlreadyExistsException =-    _ServiceError . hasCode "DeploymentGroupAlreadyExistsException"---- | At least one of the deployment IDs was specified in an invalid format.-_InvalidDeploymentIdException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidDeploymentIdException =-    _ServiceError . hasCode "InvalidDeploymentIdException"- -- | The named deployment group does not exist with the applicable IAM user -- or AWS account. _DeploymentGroupDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentGroupDoesNotExistException =     _ServiceError . hasCode "DeploymentGroupDoesNotExistException" +-- | The deployment configuration name was specified in an invalid format.+_InvalidDeploymentConfigNameException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidDeploymentConfigNameException =+    _ServiceError . hasCode "InvalidDeploymentConfigNameException"++-- | The deployment configuration name was not specified.+_DeploymentConfigNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_DeploymentConfigNameRequiredException =+    _ServiceError . hasCode "DeploymentConfigNameRequiredException"+ -- | At least one deployment ID must be specified. _DeploymentIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentIdRequiredException =     _ServiceError . hasCode "DeploymentIdRequiredException" +-- | The next token was specified in an invalid format.+_InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidNextTokenException =+    _ServiceError . hasCode "InvalidNextTokenException"+ -- | The instance ID was not specified. _InstanceIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _InstanceIdRequiredException =     _ServiceError . hasCode "InstanceIdRequiredException" --- | The deployment configuration name was not specified.-_DeploymentConfigNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError-_DeploymentConfigNameRequiredException =-    _ServiceError . hasCode "DeploymentConfigNameRequiredException"---- | The deployment configuration name was specified in an invalid format.-_InvalidDeploymentConfigNameException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidDeploymentConfigNameException =-    _ServiceError . hasCode "InvalidDeploymentConfigNameException"+-- | At least one of the deployment IDs was specified in an invalid format.+_InvalidDeploymentIdException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidDeploymentIdException =+    _ServiceError . hasCode "InvalidDeploymentIdException"  -- | The sort order was specified in an invalid format. _InvalidSortOrderException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSortOrderException =     _ServiceError . hasCode "InvalidSortOrderException" --- | The next token was specified in an invalid format.-_InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidNextTokenException =-    _ServiceError . hasCode "InvalidNextTokenException"---- | The revision was specified in an invalid format.-_InvalidRevisionException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidRevisionException = _ServiceError . hasCode "InvalidRevisionException"- -- | The deployment is already completed. _DeploymentAlreadyCompletedException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentAlreadyCompletedException =     _ServiceError . hasCode "DeploymentAlreadyCompletedException" +-- | The deployment does not exist with the applicable IAM user or AWS+-- account.+_DeploymentDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_DeploymentDoesNotExistException =+    _ServiceError . hasCode "DeploymentDoesNotExistException"++-- | The revision was specified in an invalid format.+_InvalidRevisionException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidRevisionException = _ServiceError . hasCode "InvalidRevisionException"+ -- | The revision ID was not specified. _RevisionRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _RevisionRequiredException =@@ -543,17 +549,6 @@ _InstanceDoesNotExistException =     _ServiceError . hasCode "InstanceDoesNotExistException" --- | The deployment does not exist with the applicable IAM user or AWS--- account.-_DeploymentDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError-_DeploymentDoesNotExistException =-    _ServiceError . hasCode "DeploymentDoesNotExistException"---- | An on-premises instance name was not specified.-_InstanceNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError-_InstanceNameRequiredException =-    _ServiceError . hasCode "InstanceNameRequiredException"- -- | The deployment configuration is still in use. _DeploymentConfigInUseException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentConfigInUseException =@@ -569,6 +564,11 @@ _InvalidInstanceNameException =     _ServiceError . hasCode "InvalidInstanceNameException" +-- | An on-premises instance name was not specified.+_InstanceNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_InstanceNameRequiredException =+    _ServiceError . hasCode "InstanceNameRequiredException"+ -- | The specified deployment status doesn\'t exist or cannot be determined. _InvalidDeploymentStatusException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDeploymentStatusException =@@ -579,26 +579,16 @@ _InvalidRegistrationStatusException =     _ServiceError . hasCode "InvalidRegistrationStatusException" --- | The maximum allowed number of tags was exceeded.-_TagLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_TagLimitExceededException =-    _ServiceError . hasCode "TagLimitExceededException"+-- | The minimum number of required application names was not specified.+_ApplicationNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_ApplicationNameRequiredException =+    _ServiceError . hasCode "ApplicationNameRequiredException"  -- | The specified on-premises instance is not registered. _InstanceNotRegisteredException :: AsError a => Getting (First ServiceError) a ServiceError _InstanceNotRegisteredException =     _ServiceError . hasCode "InstanceNotRegisteredException" --- | More applications were attempted to be created than were allowed.-_ApplicationLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_ApplicationLimitExceededException =-    _ServiceError . hasCode "ApplicationLimitExceededException"---- | An invalid operation was detected.-_InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidOperationException =-    _ServiceError . hasCode "InvalidOperationException"- -- | An application with the specified name already exists with the -- applicable IAM user or AWS account. _ApplicationAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError@@ -610,10 +600,20 @@ _InvalidInstanceStatusException =     _ServiceError . hasCode "InvalidInstanceStatusException" --- | The minimum number of required application names was not specified.-_ApplicationNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError-_ApplicationNameRequiredException =-    _ServiceError . hasCode "ApplicationNameRequiredException"+-- | The maximum allowed number of tags was exceeded.+_TagLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_TagLimitExceededException =+    _ServiceError . hasCode "TagLimitExceededException"++-- | More applications were attempted to be created than were allowed.+_ApplicationLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_ApplicationLimitExceededException =+    _ServiceError . hasCode "ApplicationLimitExceededException"++-- | An invalid operation was detected.+_InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidOperationException =+    _ServiceError . hasCode "InvalidOperationException"  -- | The specified key prefix filter was specified in an invalid format. _InvalidKeyPrefixFilterException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -279,9 +279,9 @@ -- -- /See:/ 'deploymentInfo' smart constructor. data DeploymentInfo = DeploymentInfo'-    { _diDeploymentId                  :: !(Maybe Text)-    , _diCreator                       :: !(Maybe DeploymentCreator)+    { _diCreator                       :: !(Maybe DeploymentCreator)     , _diStatus                        :: !(Maybe DeploymentStatus)+    , _diDeploymentId                  :: !(Maybe Text)     , _diDeploymentConfigName          :: !(Maybe Text)     , _diStartTime                     :: !(Maybe POSIX)     , _diCompleteTime                  :: !(Maybe POSIX)@@ -290,21 +290,21 @@     , _diApplicationName               :: !(Maybe Text)     , _diRevision                      :: !(Maybe RevisionLocation)     , _diDescription                   :: !(Maybe Text)-    , _diIgnoreApplicationStopFailures :: !(Maybe Bool)-    , _diDeploymentGroupName           :: !(Maybe Text)     , _diCreateTime                    :: !(Maybe POSIX)+    , _diDeploymentGroupName           :: !(Maybe Text)+    , _diIgnoreApplicationStopFailures :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeploymentInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'diDeploymentId'--- -- * 'diCreator' -- -- * 'diStatus' --+-- * 'diDeploymentId'+-- -- * 'diDeploymentConfigName' -- -- * 'diStartTime'@@ -321,18 +321,18 @@ -- -- * 'diDescription' ----- * 'diIgnoreApplicationStopFailures'+-- * 'diCreateTime' -- -- * 'diDeploymentGroupName' ----- * 'diCreateTime'+-- * 'diIgnoreApplicationStopFailures' deploymentInfo     :: DeploymentInfo deploymentInfo =     DeploymentInfo'-    { _diDeploymentId = Nothing-    , _diCreator = Nothing+    { _diCreator = Nothing     , _diStatus = Nothing+    , _diDeploymentId = Nothing     , _diDeploymentConfigName = Nothing     , _diStartTime = Nothing     , _diCompleteTime = Nothing@@ -341,15 +341,11 @@     , _diApplicationName = Nothing     , _diRevision = Nothing     , _diDescription = Nothing-    , _diIgnoreApplicationStopFailures = Nothing-    , _diDeploymentGroupName = Nothing     , _diCreateTime = Nothing+    , _diDeploymentGroupName = Nothing+    , _diIgnoreApplicationStopFailures = Nothing     } --- | The deployment ID.-diDeploymentId :: Lens' DeploymentInfo (Maybe Text)-diDeploymentId = lens _diDeploymentId (\ s a -> s{_diDeploymentId = a});- -- | How the deployment was created: -- -- -   user: A user created the deployment.@@ -361,6 +357,10 @@ diStatus :: Lens' DeploymentInfo (Maybe DeploymentStatus) diStatus = lens _diStatus (\ s a -> s{_diStatus = a}); +-- | The deployment ID.+diDeploymentId :: Lens' DeploymentInfo (Maybe Text)+diDeploymentId = lens _diDeploymentId (\ s a -> s{_diDeploymentId = a});+ -- | The deployment configuration name. diDeploymentConfigName :: Lens' DeploymentInfo (Maybe Text) diDeploymentConfigName = lens _diDeploymentConfigName (\ s a -> s{_diDeploymentConfigName = a});@@ -400,6 +400,14 @@ diDescription :: Lens' DeploymentInfo (Maybe Text) diDescription = lens _diDescription (\ s a -> s{_diDescription = a}); +-- | A timestamp indicating when the deployment was created.+diCreateTime :: Lens' DeploymentInfo (Maybe UTCTime)+diCreateTime = lens _diCreateTime (\ s a -> s{_diCreateTime = a}) . mapping _Time;++-- | The deployment group name.+diDeploymentGroupName :: Lens' DeploymentInfo (Maybe Text)+diDeploymentGroupName = lens _diDeploymentGroupName (\ s a -> s{_diDeploymentGroupName = a});+ -- | If true, then if the deployment causes the ApplicationStop deployment -- lifecycle event to fail to a specific instance, the deployment will not -- be considered to have failed to that instance at that point and will@@ -412,21 +420,13 @@ diIgnoreApplicationStopFailures :: Lens' DeploymentInfo (Maybe Bool) diIgnoreApplicationStopFailures = lens _diIgnoreApplicationStopFailures (\ s a -> s{_diIgnoreApplicationStopFailures = a}); --- | The deployment group name.-diDeploymentGroupName :: Lens' DeploymentInfo (Maybe Text)-diDeploymentGroupName = lens _diDeploymentGroupName (\ s a -> s{_diDeploymentGroupName = a});---- | A timestamp indicating when the deployment was created.-diCreateTime :: Lens' DeploymentInfo (Maybe UTCTime)-diCreateTime = lens _diCreateTime (\ s a -> s{_diCreateTime = a}) . mapping _Time;- instance FromJSON DeploymentInfo where         parseJSON           = withObject "DeploymentInfo"               (\ x ->                  DeploymentInfo' <$>-                   (x .:? "deploymentId") <*> (x .:? "creator") <*>-                     (x .:? "status")+                   (x .:? "creator") <*> (x .:? "status") <*>+                     (x .:? "deploymentId")                      <*> (x .:? "deploymentConfigName")                      <*> (x .:? "startTime")                      <*> (x .:? "completeTime")@@ -435,9 +435,9 @@                      <*> (x .:? "applicationName")                      <*> (x .:? "revision")                      <*> (x .:? "description")-                     <*> (x .:? "ignoreApplicationStopFailures")+                     <*> (x .:? "createTime")                      <*> (x .:? "deploymentGroupName")-                     <*> (x .:? "createTime"))+                     <*> (x .:? "ignoreApplicationStopFailures"))  -- | Information about the deployment status of the instances in the -- deployment.@@ -816,8 +816,8 @@ -- -- /See:/ 'instanceInfo' smart constructor. data InstanceInfo = InstanceInfo'-    { _iiInstanceARN    :: !(Maybe Text)-    , _iiRegisterTime   :: !(Maybe POSIX)+    { _iiRegisterTime   :: !(Maybe POSIX)+    , _iiInstanceARN    :: !(Maybe Text)     , _iiDeregisterTime :: !(Maybe POSIX)     , _iiIamUserARN     :: !(Maybe Text)     , _iiInstanceName   :: !(Maybe Text)@@ -828,10 +828,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'iiInstanceARN'--- -- * 'iiRegisterTime' --+-- * 'iiInstanceARN'+-- -- * 'iiDeregisterTime' -- -- * 'iiIamUserARN'@@ -843,22 +843,22 @@     :: InstanceInfo instanceInfo =     InstanceInfo'-    { _iiInstanceARN = Nothing-    , _iiRegisterTime = Nothing+    { _iiRegisterTime = Nothing+    , _iiInstanceARN = Nothing     , _iiDeregisterTime = Nothing     , _iiIamUserARN = Nothing     , _iiInstanceName = Nothing     , _iiTags = Nothing     } --- | The ARN of the on-premises instance.-iiInstanceARN :: Lens' InstanceInfo (Maybe Text)-iiInstanceARN = lens _iiInstanceARN (\ s a -> s{_iiInstanceARN = a});- -- | The time that the on-premises instance was registered. iiRegisterTime :: Lens' InstanceInfo (Maybe UTCTime) iiRegisterTime = lens _iiRegisterTime (\ s a -> s{_iiRegisterTime = a}) . mapping _Time; +-- | The ARN of the on-premises instance.+iiInstanceARN :: Lens' InstanceInfo (Maybe Text)+iiInstanceARN = lens _iiInstanceARN (\ s a -> s{_iiInstanceARN = a});+ -- | If the on-premises instance was deregistered, the time that the -- on-premises instance was deregistered. iiDeregisterTime :: Lens' InstanceInfo (Maybe UTCTime)@@ -881,7 +881,7 @@           = withObject "InstanceInfo"               (\ x ->                  InstanceInfo' <$>-                   (x .:? "instanceArn") <*> (x .:? "registerTime") <*>+                   (x .:? "registerTime") <*> (x .:? "instanceArn") <*>                      (x .:? "deregisterTime")                      <*> (x .:? "iamUserArn")                      <*> (x .:? "instanceName")@@ -892,8 +892,8 @@ -- /See:/ 'instanceSummary' smart constructor. data InstanceSummary = InstanceSummary'     { _isInstanceId      :: !(Maybe Text)-    , _isDeploymentId    :: !(Maybe Text)     , _isStatus          :: !(Maybe InstanceStatus)+    , _isDeploymentId    :: !(Maybe Text)     , _isLastUpdatedAt   :: !(Maybe POSIX)     , _isLifecycleEvents :: !(Maybe [LifecycleEvent])     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -904,10 +904,10 @@ -- -- * 'isInstanceId' ----- * 'isDeploymentId'--- -- * 'isStatus' --+-- * 'isDeploymentId'+-- -- * 'isLastUpdatedAt' -- -- * 'isLifecycleEvents'@@ -916,8 +916,8 @@ instanceSummary =     InstanceSummary'     { _isInstanceId = Nothing-    , _isDeploymentId = Nothing     , _isStatus = Nothing+    , _isDeploymentId = Nothing     , _isLastUpdatedAt = Nothing     , _isLifecycleEvents = Nothing     }@@ -926,10 +926,6 @@ isInstanceId :: Lens' InstanceSummary (Maybe Text) isInstanceId = lens _isInstanceId (\ s a -> s{_isInstanceId = a}); --- | The deployment ID.-isDeploymentId :: Lens' InstanceSummary (Maybe Text)-isDeploymentId = lens _isDeploymentId (\ s a -> s{_isDeploymentId = a});- -- | The deployment status for this instance: -- -- -   Pending: The deployment is pending for this instance.@@ -941,6 +937,10 @@ isStatus :: Lens' InstanceSummary (Maybe InstanceStatus) isStatus = lens _isStatus (\ s a -> s{_isStatus = a}); +-- | The deployment ID.+isDeploymentId :: Lens' InstanceSummary (Maybe Text)+isDeploymentId = lens _isDeploymentId (\ s a -> s{_isDeploymentId = a});+ -- | A timestamp indicating when the instance information was last updated. isLastUpdatedAt :: Lens' InstanceSummary (Maybe UTCTime) isLastUpdatedAt = lens _isLastUpdatedAt (\ s a -> s{_isLastUpdatedAt = a}) . mapping _Time;@@ -954,8 +954,8 @@           = withObject "InstanceSummary"               (\ x ->                  InstanceSummary' <$>-                   (x .:? "instanceId") <*> (x .:? "deploymentId") <*>-                     (x .:? "status")+                   (x .:? "instanceId") <*> (x .:? "status") <*>+                     (x .:? "deploymentId")                      <*> (x .:? "lastUpdatedAt")                      <*> (x .:? "lifecycleEvents" .!= mempty)) @@ -964,8 +964,8 @@ -- /See:/ 'lifecycleEvent' smart constructor. data LifecycleEvent = LifecycleEvent'     { _leStatus             :: !(Maybe LifecycleEventStatus)-    , _leStartTime          :: !(Maybe POSIX)     , _leLifecycleEventName :: !(Maybe Text)+    , _leStartTime          :: !(Maybe POSIX)     , _leDiagnostics        :: !(Maybe Diagnostics)     , _leEndTime            :: !(Maybe POSIX)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -976,10 +976,10 @@ -- -- * 'leStatus' ----- * 'leStartTime'--- -- * 'leLifecycleEventName' --+-- * 'leStartTime'+-- -- * 'leDiagnostics' -- -- * 'leEndTime'@@ -988,8 +988,8 @@ lifecycleEvent =     LifecycleEvent'     { _leStatus = Nothing-    , _leStartTime = Nothing     , _leLifecycleEventName = Nothing+    , _leStartTime = Nothing     , _leDiagnostics = Nothing     , _leEndTime = Nothing     }@@ -1005,15 +1005,15 @@ leStatus :: Lens' LifecycleEvent (Maybe LifecycleEventStatus) leStatus = lens _leStatus (\ s a -> s{_leStatus = a}); --- | A timestamp indicating when the deployment lifecycle event started.-leStartTime :: Lens' LifecycleEvent (Maybe UTCTime)-leStartTime = lens _leStartTime (\ s a -> s{_leStartTime = a}) . mapping _Time;- -- | The deployment lifecycle event name, such as ApplicationStop, -- BeforeInstall, AfterInstall, ApplicationStart, or ValidateService. leLifecycleEventName :: Lens' LifecycleEvent (Maybe Text) leLifecycleEventName = lens _leLifecycleEventName (\ s a -> s{_leLifecycleEventName = a}); +-- | A timestamp indicating when the deployment lifecycle event started.+leStartTime :: Lens' LifecycleEvent (Maybe UTCTime)+leStartTime = lens _leStartTime (\ s a -> s{_leStartTime = a}) . mapping _Time;+ -- | Diagnostic information about the deployment lifecycle event. leDiagnostics :: Lens' LifecycleEvent (Maybe Diagnostics) leDiagnostics = lens _leDiagnostics (\ s a -> s{_leDiagnostics = a});@@ -1027,8 +1027,8 @@           = withObject "LifecycleEvent"               (\ x ->                  LifecycleEvent' <$>-                   (x .:? "status") <*> (x .:? "startTime") <*>-                     (x .:? "lifecycleEventName")+                   (x .:? "status") <*> (x .:? "lifecycleEventName") <*>+                     (x .:? "startTime")                      <*> (x .:? "diagnostics")                      <*> (x .:? "endTime")) 

@@ -29,8 +29,8 @@     -- * Request Lenses     , udgServiceRoleARN     , udgDeploymentConfigName-    , udgEc2TagFilters     , udgNewDeploymentGroupName+    , udgEc2TagFilters     , udgOnPremisesInstanceTagFilters     , udgAutoScalingGroups     , udgApplicationName@@ -41,7 +41,7 @@     , UpdateDeploymentGroupResponse     -- * Response Lenses     , udgrsHooksNotCleanedUp-    , udgrsStatus+    , udgrsResponseStatus     ) where  import           Network.AWS.CodeDeploy.Types@@ -56,8 +56,8 @@ data UpdateDeploymentGroup = UpdateDeploymentGroup'     { _udgServiceRoleARN               :: !(Maybe Text)     , _udgDeploymentConfigName         :: !(Maybe Text)-    , _udgEc2TagFilters                :: !(Maybe [EC2TagFilter])     , _udgNewDeploymentGroupName       :: !(Maybe Text)+    , _udgEc2TagFilters                :: !(Maybe [EC2TagFilter])     , _udgOnPremisesInstanceTagFilters :: !(Maybe [TagFilter])     , _udgAutoScalingGroups            :: !(Maybe [Text])     , _udgApplicationName              :: !Text@@ -72,10 +72,10 @@ -- -- * 'udgDeploymentConfigName' ----- * 'udgEc2TagFilters'--- -- * 'udgNewDeploymentGroupName' --+-- * 'udgEc2TagFilters'+-- -- * 'udgOnPremisesInstanceTagFilters' -- -- * 'udgAutoScalingGroups'@@ -91,8 +91,8 @@     UpdateDeploymentGroup'     { _udgServiceRoleARN = Nothing     , _udgDeploymentConfigName = Nothing-    , _udgEc2TagFilters = Nothing     , _udgNewDeploymentGroupName = Nothing+    , _udgEc2TagFilters = Nothing     , _udgOnPremisesInstanceTagFilters = Nothing     , _udgAutoScalingGroups = Nothing     , _udgApplicationName = pApplicationName_@@ -108,15 +108,15 @@ udgDeploymentConfigName :: Lens' UpdateDeploymentGroup (Maybe Text) udgDeploymentConfigName = lens _udgDeploymentConfigName (\ s a -> s{_udgDeploymentConfigName = a}); +-- | The new name of the deployment group, if you want to change it.+udgNewDeploymentGroupName :: Lens' UpdateDeploymentGroup (Maybe Text)+udgNewDeploymentGroupName = lens _udgNewDeploymentGroupName (\ s a -> s{_udgNewDeploymentGroupName = a});+ -- | The replacement set of Amazon EC2 tags to filter on, if you want to -- change them. udgEc2TagFilters :: Lens' UpdateDeploymentGroup [EC2TagFilter] udgEc2TagFilters = lens _udgEc2TagFilters (\ s a -> s{_udgEc2TagFilters = a}) . _Default . _Coerce; --- | The new name of the deployment group, if you want to change it.-udgNewDeploymentGroupName :: Lens' UpdateDeploymentGroup (Maybe Text)-udgNewDeploymentGroupName = lens _udgNewDeploymentGroupName (\ s a -> s{_udgNewDeploymentGroupName = a});- -- | The replacement set of on-premises instance tags for filter on, if you -- want to change them. udgOnPremisesInstanceTagFilters :: Lens' UpdateDeploymentGroup [TagFilter]@@ -163,9 +163,9 @@                  [("serviceRoleArn" .=) <$> _udgServiceRoleARN,                   ("deploymentConfigName" .=) <$>                     _udgDeploymentConfigName,-                  ("ec2TagFilters" .=) <$> _udgEc2TagFilters,                   ("newDeploymentGroupName" .=) <$>                     _udgNewDeploymentGroupName,+                  ("ec2TagFilters" .=) <$> _udgEc2TagFilters,                   ("onPremisesInstanceTagFilters" .=) <$>                     _udgOnPremisesInstanceTagFilters,                   ("autoScalingGroups" .=) <$> _udgAutoScalingGroups,@@ -185,7 +185,7 @@ -- /See:/ 'updateDeploymentGroupResponse' smart constructor. data UpdateDeploymentGroupResponse = UpdateDeploymentGroupResponse'     { _udgrsHooksNotCleanedUp :: !(Maybe [AutoScalingGroup])-    , _udgrsStatus            :: !Int+    , _udgrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateDeploymentGroupResponse' with the minimum fields required to make a request.@@ -194,14 +194,14 @@ -- -- * 'udgrsHooksNotCleanedUp' ----- * 'udgrsStatus'+-- * 'udgrsResponseStatus' updateDeploymentGroupResponse-    :: Int -- ^ 'udgrsStatus'+    :: Int -- ^ 'udgrsResponseStatus'     -> UpdateDeploymentGroupResponse-updateDeploymentGroupResponse pStatus_ =+updateDeploymentGroupResponse pResponseStatus_ =     UpdateDeploymentGroupResponse'     { _udgrsHooksNotCleanedUp = Nothing-    , _udgrsStatus = pStatus_+    , _udgrsResponseStatus = pResponseStatus_     }  -- | If the output contains no data, and the corresponding deployment group@@ -213,5 +213,5 @@ udgrsHooksNotCleanedUp = lens _udgrsHooksNotCleanedUp (\ s a -> s{_udgrsHooksNotCleanedUp = a}) . _Default . _Coerce;  -- | The response status code.-udgrsStatus :: Lens' UpdateDeploymentGroupResponse Int-udgrsStatus = lens _udgrsStatus (\ s a -> s{_udgrsStatus = a});+udgrsResponseStatus :: Lens' UpdateDeploymentGroupResponse Int+udgrsResponseStatus = lens _udgrsResponseStatus (\ s a -> s{_udgrsResponseStatus = a});

@@ -31,24 +31,24 @@ --         [ testRemoveTagsFromOnPremisesInstances $ --             removeTagsFromOnPremisesInstances -----         , testGetDeployment $---             getDeployment------         , testCreateDeploymentConfig $---             createDeploymentConfig+--         , testDeleteDeploymentGroup $+--             deleteDeploymentGroup -- --         , testUpdateDeploymentGroup $ --             updateDeploymentGroup -----         , testDeleteDeploymentGroup $---             deleteDeploymentGroup--- --         , testListOnPremisesInstances $ --             listOnPremisesInstances --+--         , testCreateDeploymentConfig $+--             createDeploymentConfig+-- --         , testGetApplicationRevision $ --             getApplicationRevision --+--         , testGetDeployment $+--             getDeployment+-- --         , testDeleteDeploymentConfig $ --             deleteDeploymentConfig --@@ -58,32 +58,32 @@ --         , testCreateDeployment $ --             createDeployment -----         , testGetOnPremisesInstance $---             getOnPremisesInstance--- --         , testBatchGetDeployments $ --             batchGetDeployments --+--         , testGetOnPremisesInstance $+--             getOnPremisesInstance+-- --         , testRegisterApplicationRevision $ --             registerApplicationRevision --+--         , testBatchGetApplications $+--             batchGetApplications+-- --         , testDeleteApplication $ --             deleteApplication -- --         , testUpdateApplication $ --             updateApplication -----         , testBatchGetApplications $---             batchGetApplications------         , testCreateApplication $---             createApplication+--         , testGetDeploymentInstance $+--             getDeploymentInstance -- --         , testDeregisterOnPremisesInstance $ --             deregisterOnPremisesInstance -----         , testGetDeploymentInstance $---             getDeploymentInstance+--         , testCreateApplication $+--             createApplication -- --         , testStopDeployment $ --             stopDeployment@@ -94,18 +94,18 @@ --         , testListDeploymentGroups $ --             listDeploymentGroups -----         , testRegisterOnPremisesInstance $---             registerOnPremisesInstance--- --         , testBatchGetOnPremisesInstances $ --             batchGetOnPremisesInstances -----         , testListDeploymentConfigs $---             listDeploymentConfigs+--         , testRegisterOnPremisesInstance $+--             registerOnPremisesInstance -- --         , testCreateDeploymentGroup $ --             createDeploymentGroup --+--         , testListDeploymentConfigs $+--             listDeploymentConfigs+-- --         , testGetDeploymentGroup $ --             getDeploymentGroup --@@ -130,24 +130,24 @@ --         [ testRemoveTagsFromOnPremisesInstancesResponse $ --             removeTagsFromOnPremisesInstancesResponse -----         , testGetDeploymentResponse $---             getDeploymentResponse------         , testCreateDeploymentConfigResponse $---             createDeploymentConfigResponse+--         , testDeleteDeploymentGroupResponse $+--             deleteDeploymentGroupResponse -- --         , testUpdateDeploymentGroupResponse $ --             updateDeploymentGroupResponse -----         , testDeleteDeploymentGroupResponse $---             deleteDeploymentGroupResponse--- --         , testListOnPremisesInstancesResponse $ --             listOnPremisesInstancesResponse --+--         , testCreateDeploymentConfigResponse $+--             createDeploymentConfigResponse+-- --         , testGetApplicationRevisionResponse $ --             getApplicationRevisionResponse --+--         , testGetDeploymentResponse $+--             getDeploymentResponse+-- --         , testDeleteDeploymentConfigResponse $ --             deleteDeploymentConfigResponse --@@ -157,32 +157,32 @@ --         , testCreateDeploymentResponse $ --             createDeploymentResponse -----         , testGetOnPremisesInstanceResponse $---             getOnPremisesInstanceResponse--- --         , testBatchGetDeploymentsResponse $ --             batchGetDeploymentsResponse --+--         , testGetOnPremisesInstanceResponse $+--             getOnPremisesInstanceResponse+-- --         , testRegisterApplicationRevisionResponse $ --             registerApplicationRevisionResponse --+--         , testBatchGetApplicationsResponse $+--             batchGetApplicationsResponse+-- --         , testDeleteApplicationResponse $ --             deleteApplicationResponse -- --         , testUpdateApplicationResponse $ --             updateApplicationResponse -----         , testBatchGetApplicationsResponse $---             batchGetApplicationsResponse------         , testCreateApplicationResponse $---             createApplicationResponse+--         , testGetDeploymentInstanceResponse $+--             getDeploymentInstanceResponse -- --         , testDeregisterOnPremisesInstanceResponse $ --             deregisterOnPremisesInstanceResponse -----         , testGetDeploymentInstanceResponse $---             getDeploymentInstanceResponse+--         , testCreateApplicationResponse $+--             createApplicationResponse -- --         , testStopDeploymentResponse $ --             stopDeploymentResponse@@ -193,18 +193,18 @@ --         , testListDeploymentGroupsResponse $ --             listDeploymentGroupsResponse -----         , testRegisterOnPremisesInstanceResponse $---             registerOnPremisesInstanceResponse--- --         , testBatchGetOnPremisesInstancesResponse $ --             batchGetOnPremisesInstancesResponse -----         , testListDeploymentConfigsResponse $---             listDeploymentConfigsResponse+--         , testRegisterOnPremisesInstanceResponse $+--             registerOnPremisesInstanceResponse -- --         , testCreateDeploymentGroupResponse $ --             createDeploymentGroupResponse --+--         , testListDeploymentConfigsResponse $+--             listDeploymentConfigsResponse+-- --         , testGetDeploymentGroupResponse $ --             getDeploymentGroupResponse --@@ -233,36 +233,36 @@     "RemoveTagsFromOnPremisesInstances"     "fixture/RemoveTagsFromOnPremisesInstances.yaml" -testGetDeployment :: GetDeployment -> TestTree-testGetDeployment = req-    "GetDeployment"-    "fixture/GetDeployment.yaml"--testCreateDeploymentConfig :: CreateDeploymentConfig -> TestTree-testCreateDeploymentConfig = req-    "CreateDeploymentConfig"-    "fixture/CreateDeploymentConfig.yaml"+testDeleteDeploymentGroup :: DeleteDeploymentGroup -> TestTree+testDeleteDeploymentGroup = req+    "DeleteDeploymentGroup"+    "fixture/DeleteDeploymentGroup.yaml"  testUpdateDeploymentGroup :: UpdateDeploymentGroup -> TestTree testUpdateDeploymentGroup = req     "UpdateDeploymentGroup"     "fixture/UpdateDeploymentGroup.yaml" -testDeleteDeploymentGroup :: DeleteDeploymentGroup -> TestTree-testDeleteDeploymentGroup = req-    "DeleteDeploymentGroup"-    "fixture/DeleteDeploymentGroup.yaml"- testListOnPremisesInstances :: ListOnPremisesInstances -> TestTree testListOnPremisesInstances = req     "ListOnPremisesInstances"     "fixture/ListOnPremisesInstances.yaml" +testCreateDeploymentConfig :: CreateDeploymentConfig -> TestTree+testCreateDeploymentConfig = req+    "CreateDeploymentConfig"+    "fixture/CreateDeploymentConfig.yaml"+ testGetApplicationRevision :: GetApplicationRevision -> TestTree testGetApplicationRevision = req     "GetApplicationRevision"     "fixture/GetApplicationRevision.yaml" +testGetDeployment :: GetDeployment -> TestTree+testGetDeployment = req+    "GetDeployment"+    "fixture/GetDeployment.yaml"+ testDeleteDeploymentConfig :: DeleteDeploymentConfig -> TestTree testDeleteDeploymentConfig = req     "DeleteDeploymentConfig"@@ -278,21 +278,26 @@     "CreateDeployment"     "fixture/CreateDeployment.yaml" -testGetOnPremisesInstance :: GetOnPremisesInstance -> TestTree-testGetOnPremisesInstance = req-    "GetOnPremisesInstance"-    "fixture/GetOnPremisesInstance.yaml"- testBatchGetDeployments :: BatchGetDeployments -> TestTree testBatchGetDeployments = req     "BatchGetDeployments"     "fixture/BatchGetDeployments.yaml" +testGetOnPremisesInstance :: GetOnPremisesInstance -> TestTree+testGetOnPremisesInstance = req+    "GetOnPremisesInstance"+    "fixture/GetOnPremisesInstance.yaml"+ testRegisterApplicationRevision :: RegisterApplicationRevision -> TestTree testRegisterApplicationRevision = req     "RegisterApplicationRevision"     "fixture/RegisterApplicationRevision.yaml" +testBatchGetApplications :: BatchGetApplications -> TestTree+testBatchGetApplications = req+    "BatchGetApplications"+    "fixture/BatchGetApplications.yaml"+ testDeleteApplication :: DeleteApplication -> TestTree testDeleteApplication = req     "DeleteApplication"@@ -303,25 +308,20 @@     "UpdateApplication"     "fixture/UpdateApplication.yaml" -testBatchGetApplications :: BatchGetApplications -> TestTree-testBatchGetApplications = req-    "BatchGetApplications"-    "fixture/BatchGetApplications.yaml"--testCreateApplication :: CreateApplication -> TestTree-testCreateApplication = req-    "CreateApplication"-    "fixture/CreateApplication.yaml"+testGetDeploymentInstance :: GetDeploymentInstance -> TestTree+testGetDeploymentInstance = req+    "GetDeploymentInstance"+    "fixture/GetDeploymentInstance.yaml"  testDeregisterOnPremisesInstance :: DeregisterOnPremisesInstance -> TestTree testDeregisterOnPremisesInstance = req     "DeregisterOnPremisesInstance"     "fixture/DeregisterOnPremisesInstance.yaml" -testGetDeploymentInstance :: GetDeploymentInstance -> TestTree-testGetDeploymentInstance = req-    "GetDeploymentInstance"-    "fixture/GetDeploymentInstance.yaml"+testCreateApplication :: CreateApplication -> TestTree+testCreateApplication = req+    "CreateApplication"+    "fixture/CreateApplication.yaml"  testStopDeployment :: StopDeployment -> TestTree testStopDeployment = req@@ -338,26 +338,26 @@     "ListDeploymentGroups"     "fixture/ListDeploymentGroups.yaml" -testRegisterOnPremisesInstance :: RegisterOnPremisesInstance -> TestTree-testRegisterOnPremisesInstance = req-    "RegisterOnPremisesInstance"-    "fixture/RegisterOnPremisesInstance.yaml"- testBatchGetOnPremisesInstances :: BatchGetOnPremisesInstances -> TestTree testBatchGetOnPremisesInstances = req     "BatchGetOnPremisesInstances"     "fixture/BatchGetOnPremisesInstances.yaml" -testListDeploymentConfigs :: ListDeploymentConfigs -> TestTree-testListDeploymentConfigs = req-    "ListDeploymentConfigs"-    "fixture/ListDeploymentConfigs.yaml"+testRegisterOnPremisesInstance :: RegisterOnPremisesInstance -> TestTree+testRegisterOnPremisesInstance = req+    "RegisterOnPremisesInstance"+    "fixture/RegisterOnPremisesInstance.yaml"  testCreateDeploymentGroup :: CreateDeploymentGroup -> TestTree testCreateDeploymentGroup = req     "CreateDeploymentGroup"     "fixture/CreateDeploymentGroup.yaml" +testListDeploymentConfigs :: ListDeploymentConfigs -> TestTree+testListDeploymentConfigs = req+    "ListDeploymentConfigs"+    "fixture/ListDeploymentConfigs.yaml"+ testGetDeploymentGroup :: GetDeploymentGroup -> TestTree testGetDeploymentGroup = req     "GetDeploymentGroup"@@ -397,19 +397,12 @@     codeDeploy     (Proxy :: Proxy RemoveTagsFromOnPremisesInstances) -testGetDeploymentResponse :: GetDeploymentResponse -> TestTree-testGetDeploymentResponse = res-    "GetDeploymentResponse"-    "fixture/GetDeploymentResponse.proto"-    codeDeploy-    (Proxy :: Proxy GetDeployment)--testCreateDeploymentConfigResponse :: CreateDeploymentConfigResponse -> TestTree-testCreateDeploymentConfigResponse = res-    "CreateDeploymentConfigResponse"-    "fixture/CreateDeploymentConfigResponse.proto"+testDeleteDeploymentGroupResponse :: DeleteDeploymentGroupResponse -> TestTree+testDeleteDeploymentGroupResponse = res+    "DeleteDeploymentGroupResponse"+    "fixture/DeleteDeploymentGroupResponse.proto"     codeDeploy-    (Proxy :: Proxy CreateDeploymentConfig)+    (Proxy :: Proxy DeleteDeploymentGroup)  testUpdateDeploymentGroupResponse :: UpdateDeploymentGroupResponse -> TestTree testUpdateDeploymentGroupResponse = res@@ -418,13 +411,6 @@     codeDeploy     (Proxy :: Proxy UpdateDeploymentGroup) -testDeleteDeploymentGroupResponse :: DeleteDeploymentGroupResponse -> TestTree-testDeleteDeploymentGroupResponse = res-    "DeleteDeploymentGroupResponse"-    "fixture/DeleteDeploymentGroupResponse.proto"-    codeDeploy-    (Proxy :: Proxy DeleteDeploymentGroup)- testListOnPremisesInstancesResponse :: ListOnPremisesInstancesResponse -> TestTree testListOnPremisesInstancesResponse = res     "ListOnPremisesInstancesResponse"@@ -432,6 +418,13 @@     codeDeploy     (Proxy :: Proxy ListOnPremisesInstances) +testCreateDeploymentConfigResponse :: CreateDeploymentConfigResponse -> TestTree+testCreateDeploymentConfigResponse = res+    "CreateDeploymentConfigResponse"+    "fixture/CreateDeploymentConfigResponse.proto"+    codeDeploy+    (Proxy :: Proxy CreateDeploymentConfig)+ testGetApplicationRevisionResponse :: GetApplicationRevisionResponse -> TestTree testGetApplicationRevisionResponse = res     "GetApplicationRevisionResponse"@@ -439,6 +432,13 @@     codeDeploy     (Proxy :: Proxy GetApplicationRevision) +testGetDeploymentResponse :: GetDeploymentResponse -> TestTree+testGetDeploymentResponse = res+    "GetDeploymentResponse"+    "fixture/GetDeploymentResponse.proto"+    codeDeploy+    (Proxy :: Proxy GetDeployment)+ testDeleteDeploymentConfigResponse :: DeleteDeploymentConfigResponse -> TestTree testDeleteDeploymentConfigResponse = res     "DeleteDeploymentConfigResponse"@@ -460,13 +460,6 @@     codeDeploy     (Proxy :: Proxy CreateDeployment) -testGetOnPremisesInstanceResponse :: GetOnPremisesInstanceResponse -> TestTree-testGetOnPremisesInstanceResponse = res-    "GetOnPremisesInstanceResponse"-    "fixture/GetOnPremisesInstanceResponse.proto"-    codeDeploy-    (Proxy :: Proxy GetOnPremisesInstance)- testBatchGetDeploymentsResponse :: BatchGetDeploymentsResponse -> TestTree testBatchGetDeploymentsResponse = res     "BatchGetDeploymentsResponse"@@ -474,6 +467,13 @@     codeDeploy     (Proxy :: Proxy BatchGetDeployments) +testGetOnPremisesInstanceResponse :: GetOnPremisesInstanceResponse -> TestTree+testGetOnPremisesInstanceResponse = res+    "GetOnPremisesInstanceResponse"+    "fixture/GetOnPremisesInstanceResponse.proto"+    codeDeploy+    (Proxy :: Proxy GetOnPremisesInstance)+ testRegisterApplicationRevisionResponse :: RegisterApplicationRevisionResponse -> TestTree testRegisterApplicationRevisionResponse = res     "RegisterApplicationRevisionResponse"@@ -481,6 +481,13 @@     codeDeploy     (Proxy :: Proxy RegisterApplicationRevision) +testBatchGetApplicationsResponse :: BatchGetApplicationsResponse -> TestTree+testBatchGetApplicationsResponse = res+    "BatchGetApplicationsResponse"+    "fixture/BatchGetApplicationsResponse.proto"+    codeDeploy+    (Proxy :: Proxy BatchGetApplications)+ testDeleteApplicationResponse :: DeleteApplicationResponse -> TestTree testDeleteApplicationResponse = res     "DeleteApplicationResponse"@@ -495,19 +502,12 @@     codeDeploy     (Proxy :: Proxy UpdateApplication) -testBatchGetApplicationsResponse :: BatchGetApplicationsResponse -> TestTree-testBatchGetApplicationsResponse = res-    "BatchGetApplicationsResponse"-    "fixture/BatchGetApplicationsResponse.proto"-    codeDeploy-    (Proxy :: Proxy BatchGetApplications)--testCreateApplicationResponse :: CreateApplicationResponse -> TestTree-testCreateApplicationResponse = res-    "CreateApplicationResponse"-    "fixture/CreateApplicationResponse.proto"+testGetDeploymentInstanceResponse :: GetDeploymentInstanceResponse -> TestTree+testGetDeploymentInstanceResponse = res+    "GetDeploymentInstanceResponse"+    "fixture/GetDeploymentInstanceResponse.proto"     codeDeploy-    (Proxy :: Proxy CreateApplication)+    (Proxy :: Proxy GetDeploymentInstance)  testDeregisterOnPremisesInstanceResponse :: DeregisterOnPremisesInstanceResponse -> TestTree testDeregisterOnPremisesInstanceResponse = res@@ -516,12 +516,12 @@     codeDeploy     (Proxy :: Proxy DeregisterOnPremisesInstance) -testGetDeploymentInstanceResponse :: GetDeploymentInstanceResponse -> TestTree-testGetDeploymentInstanceResponse = res-    "GetDeploymentInstanceResponse"-    "fixture/GetDeploymentInstanceResponse.proto"+testCreateApplicationResponse :: CreateApplicationResponse -> TestTree+testCreateApplicationResponse = res+    "CreateApplicationResponse"+    "fixture/CreateApplicationResponse.proto"     codeDeploy-    (Proxy :: Proxy GetDeploymentInstance)+    (Proxy :: Proxy CreateApplication)  testStopDeploymentResponse :: StopDeploymentResponse -> TestTree testStopDeploymentResponse = res@@ -544,13 +544,6 @@     codeDeploy     (Proxy :: Proxy ListDeploymentGroups) -testRegisterOnPremisesInstanceResponse :: RegisterOnPremisesInstanceResponse -> TestTree-testRegisterOnPremisesInstanceResponse = res-    "RegisterOnPremisesInstanceResponse"-    "fixture/RegisterOnPremisesInstanceResponse.proto"-    codeDeploy-    (Proxy :: Proxy RegisterOnPremisesInstance)- testBatchGetOnPremisesInstancesResponse :: BatchGetOnPremisesInstancesResponse -> TestTree testBatchGetOnPremisesInstancesResponse = res     "BatchGetOnPremisesInstancesResponse"@@ -558,12 +551,12 @@     codeDeploy     (Proxy :: Proxy BatchGetOnPremisesInstances) -testListDeploymentConfigsResponse :: ListDeploymentConfigsResponse -> TestTree-testListDeploymentConfigsResponse = res-    "ListDeploymentConfigsResponse"-    "fixture/ListDeploymentConfigsResponse.proto"+testRegisterOnPremisesInstanceResponse :: RegisterOnPremisesInstanceResponse -> TestTree+testRegisterOnPremisesInstanceResponse = res+    "RegisterOnPremisesInstanceResponse"+    "fixture/RegisterOnPremisesInstanceResponse.proto"     codeDeploy-    (Proxy :: Proxy ListDeploymentConfigs)+    (Proxy :: Proxy RegisterOnPremisesInstance)  testCreateDeploymentGroupResponse :: CreateDeploymentGroupResponse -> TestTree testCreateDeploymentGroupResponse = res@@ -571,6 +564,13 @@     "fixture/CreateDeploymentGroupResponse.proto"     codeDeploy     (Proxy :: Proxy CreateDeploymentGroup)++testListDeploymentConfigsResponse :: ListDeploymentConfigsResponse -> TestTree+testListDeploymentConfigsResponse = res+    "ListDeploymentConfigsResponse"+    "fixture/ListDeploymentConfigsResponse.proto"+    codeDeploy+    (Proxy :: Proxy ListDeploymentConfigs)  testGetDeploymentGroupResponse :: GetDeploymentGroupResponse -> TestTree testGetDeploymentGroupResponse = res