diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-codedeploy.cabal b/amazonka-codedeploy.cabal --- a/amazonka-codedeploy.cabal +++ b/amazonka-codedeploy.cabal @@ -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 diff --git a/gen/Network/AWS/CodeDeploy.hs b/gen/Network/AWS/CodeDeploy.hs --- a/gen/Network/AWS/CodeDeploy.hs +++ b/gen/Network/AWS/CodeDeploy.hs @@ -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 diff --git a/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs b/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs --- a/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs +++ b/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs b/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs --- a/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs +++ b/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs b/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs --- a/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs +++ b/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/CreateApplication.hs b/gen/Network/AWS/CodeDeploy/CreateApplication.hs --- a/gen/Network/AWS/CodeDeploy/CreateApplication.hs +++ b/gen/Network/AWS/CodeDeploy/CreateApplication.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/CreateDeployment.hs b/gen/Network/AWS/CodeDeploy/CreateDeployment.hs --- a/gen/Network/AWS/CodeDeploy/CreateDeployment.hs +++ b/gen/Network/AWS/CodeDeploy/CreateDeployment.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs --- a/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs +++ b/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs --- a/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs +++ b/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs --- a/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs +++ b/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/GetApplication.hs b/gen/Network/AWS/CodeDeploy/GetApplication.hs --- a/gen/Network/AWS/CodeDeploy/GetApplication.hs +++ b/gen/Network/AWS/CodeDeploy/GetApplication.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs b/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs --- a/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs +++ b/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/GetDeployment.hs b/gen/Network/AWS/CodeDeploy/GetDeployment.hs --- a/gen/Network/AWS/CodeDeploy/GetDeployment.hs +++ b/gen/Network/AWS/CodeDeploy/GetDeployment.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs --- a/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs +++ b/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs --- a/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs +++ b/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs --- a/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs +++ b/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs b/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs --- a/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs +++ b/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs --- a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs +++ b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/ListApplications.hs b/gen/Network/AWS/CodeDeploy/ListApplications.hs --- a/gen/Network/AWS/CodeDeploy/ListApplications.hs +++ b/gen/Network/AWS/CodeDeploy/ListApplications.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs --- a/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs +++ b/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs --- a/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs +++ b/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs --- a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs +++ b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/ListDeployments.hs b/gen/Network/AWS/CodeDeploy/ListDeployments.hs --- a/gen/Network/AWS/CodeDeploy/ListDeployments.hs +++ b/gen/Network/AWS/CodeDeploy/ListDeployments.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs b/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs --- a/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs +++ b/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/StopDeployment.hs b/gen/Network/AWS/CodeDeploy/StopDeployment.hs --- a/gen/Network/AWS/CodeDeploy/StopDeployment.hs +++ b/gen/Network/AWS/CodeDeploy/StopDeployment.hs @@ -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}); diff --git a/gen/Network/AWS/CodeDeploy/Types.hs b/gen/Network/AWS/CodeDeploy/Types.hs --- a/gen/Network/AWS/CodeDeploy/Types.hs +++ b/gen/Network/AWS/CodeDeploy/Types.hs @@ -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 diff --git a/gen/Network/AWS/CodeDeploy/Types/Product.hs b/gen/Network/AWS/CodeDeploy/Types/Product.hs --- a/gen/Network/AWS/CodeDeploy/Types/Product.hs +++ b/gen/Network/AWS/CodeDeploy/Types/Product.hs @@ -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")) diff --git a/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs --- a/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs +++ b/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs @@ -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}); diff --git a/test/Test/AWS/Gen/CodeDeploy.hs b/test/Test/AWS/Gen/CodeDeploy.hs --- a/test/Test/AWS/Gen/CodeDeploy.hs +++ b/test/Test/AWS/Gen/CodeDeploy.hs @@ -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