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-autoscaling.cabal b/amazonka-autoscaling.cabal --- a/amazonka-autoscaling.cabal +++ b/amazonka-autoscaling.cabal @@ -1,5 +1,5 @@ name: amazonka-autoscaling -version: 1.2.0.2 +version: 1.3.0 synopsis: Amazon Auto Scaling SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -102,7 +102,7 @@ , Network.AWS.AutoScaling.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-autoscaling-test @@ -122,9 +122,9 @@ , Test.AWS.AutoScaling.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-autoscaling == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-autoscaling == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/AutoScaling.hs b/gen/Network/AWS/AutoScaling.hs --- a/gen/Network/AWS/AutoScaling.hs +++ b/gen/Network/AWS/AutoScaling.hs @@ -27,12 +27,12 @@ -- * Errors -- $errors - -- ** LimitExceededFault - , _LimitExceededFault - -- ** AlreadyExistsFault , _AlreadyExistsFault + -- ** LimitExceededFault + , _LimitExceededFault + -- ** ResourceInUseFault , _ResourceInUseFault @@ -54,26 +54,23 @@ -- ** DescribeMetricCollectionTypes , module Network.AWS.AutoScaling.DescribeMetricCollectionTypes - -- ** PutScalingPolicy - , module Network.AWS.AutoScaling.PutScalingPolicy + -- ** DescribeLoadBalancers + , module Network.AWS.AutoScaling.DescribeLoadBalancers - -- ** DeleteNotificationConfiguration - , module Network.AWS.AutoScaling.DeleteNotificationConfiguration + -- ** PutNotificationConfiguration + , module Network.AWS.AutoScaling.PutNotificationConfiguration -- ** DescribeTags (Paginated) , module Network.AWS.AutoScaling.DescribeTags - -- ** DeleteLaunchConfiguration - , module Network.AWS.AutoScaling.DeleteLaunchConfiguration - - -- ** DescribeLoadBalancers - , module Network.AWS.AutoScaling.DescribeLoadBalancers + -- ** DeleteNotificationConfiguration + , module Network.AWS.AutoScaling.DeleteNotificationConfiguration - -- ** PutNotificationConfiguration - , module Network.AWS.AutoScaling.PutNotificationConfiguration + -- ** PutScalingPolicy + , module Network.AWS.AutoScaling.PutScalingPolicy - -- ** SetInstanceHealth - , module Network.AWS.AutoScaling.SetInstanceHealth + -- ** DeleteLaunchConfiguration + , module Network.AWS.AutoScaling.DeleteLaunchConfiguration -- ** EnterStandby , module Network.AWS.AutoScaling.EnterStandby @@ -81,6 +78,9 @@ -- ** SuspendProcesses , module Network.AWS.AutoScaling.SuspendProcesses + -- ** SetInstanceHealth + , module Network.AWS.AutoScaling.SetInstanceHealth + -- ** ExitStandby , module Network.AWS.AutoScaling.ExitStandby @@ -90,23 +90,23 @@ -- ** DescribeAutoScalingInstances (Paginated) , module Network.AWS.AutoScaling.DescribeAutoScalingInstances - -- ** DetachInstances - , module Network.AWS.AutoScaling.DetachInstances + -- ** RecordLifecycleActionHeartbeat + , module Network.AWS.AutoScaling.RecordLifecycleActionHeartbeat -- ** DisableMetricsCollection , module Network.AWS.AutoScaling.DisableMetricsCollection - -- ** RecordLifecycleActionHeartbeat - , module Network.AWS.AutoScaling.RecordLifecycleActionHeartbeat + -- ** DetachInstances + , module Network.AWS.AutoScaling.DetachInstances - -- ** DeleteTags - , module Network.AWS.AutoScaling.DeleteTags + -- ** EnableMetricsCollection + , module Network.AWS.AutoScaling.EnableMetricsCollection -- ** DescribeScalingProcessTypes , module Network.AWS.AutoScaling.DescribeScalingProcessTypes - -- ** EnableMetricsCollection - , module Network.AWS.AutoScaling.EnableMetricsCollection + -- ** DeleteTags + , module Network.AWS.AutoScaling.DeleteTags -- ** DescribeLifecycleHooks , module Network.AWS.AutoScaling.DescribeLifecycleHooks @@ -114,32 +114,35 @@ -- ** DescribeAutoScalingGroups (Paginated) , module Network.AWS.AutoScaling.DescribeAutoScalingGroups + -- ** DeleteScheduledAction + , module Network.AWS.AutoScaling.DeleteScheduledAction + -- ** SetDesiredCapacity , module Network.AWS.AutoScaling.SetDesiredCapacity -- ** DetachLoadBalancers , module Network.AWS.AutoScaling.DetachLoadBalancers - -- ** DeleteScheduledAction - , module Network.AWS.AutoScaling.DeleteScheduledAction + -- ** DescribeAutoScalingNotificationTypes + , module Network.AWS.AutoScaling.DescribeAutoScalingNotificationTypes + -- ** DescribeScheduledActions (Paginated) + , module Network.AWS.AutoScaling.DescribeScheduledActions + -- ** CreateOrUpdateTags , module Network.AWS.AutoScaling.CreateOrUpdateTags - -- ** DeletePolicy - , module Network.AWS.AutoScaling.DeletePolicy - - -- ** DescribeAutoScalingNotificationTypes - , module Network.AWS.AutoScaling.DescribeAutoScalingNotificationTypes - -- ** CompleteLifecycleAction , module Network.AWS.AutoScaling.CompleteLifecycleAction + -- ** DeletePolicy + , module Network.AWS.AutoScaling.DeletePolicy + -- ** AttachInstances , module Network.AWS.AutoScaling.AttachInstances - -- ** DescribeScheduledActions (Paginated) - , module Network.AWS.AutoScaling.DescribeScheduledActions + -- ** UpdateAutoScalingGroup + , module Network.AWS.AutoScaling.UpdateAutoScalingGroup -- ** DeleteAutoScalingGroup , module Network.AWS.AutoScaling.DeleteAutoScalingGroup @@ -147,9 +150,6 @@ -- ** PutLifecycleHook , module Network.AWS.AutoScaling.PutLifecycleHook - -- ** UpdateAutoScalingGroup - , module Network.AWS.AutoScaling.UpdateAutoScalingGroup - -- ** DeleteLifecycleHook , module Network.AWS.AutoScaling.DeleteLifecycleHook @@ -159,32 +159,35 @@ -- ** ExecutePolicy , module Network.AWS.AutoScaling.ExecutePolicy - -- ** TerminateInstanceInAutoScalingGroup - , module Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup - -- ** DescribeAccountLimits , module Network.AWS.AutoScaling.DescribeAccountLimits -- ** AttachLoadBalancers , module Network.AWS.AutoScaling.AttachLoadBalancers + -- ** TerminateInstanceInAutoScalingGroup + , module Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup + -- ** PutScheduledUpdateGroupAction , module Network.AWS.AutoScaling.PutScheduledUpdateGroupAction -- ** DescribePolicies (Paginated) , module Network.AWS.AutoScaling.DescribePolicies - -- ** DescribeNotificationConfigurations (Paginated) - , module Network.AWS.AutoScaling.DescribeNotificationConfigurations - -- ** DescribeLaunchConfigurations (Paginated) , module Network.AWS.AutoScaling.DescribeLaunchConfigurations + -- ** DescribeScalingActivities (Paginated) + , module Network.AWS.AutoScaling.DescribeScalingActivities + + -- ** DescribeNotificationConfigurations (Paginated) + , module Network.AWS.AutoScaling.DescribeNotificationConfigurations + -- ** DescribeLifecycleHookTypes , module Network.AWS.AutoScaling.DescribeLifecycleHookTypes - -- ** DescribeScalingActivities (Paginated) - , module Network.AWS.AutoScaling.DescribeScalingActivities + -- ** DescribeAdjustmentTypes + , module Network.AWS.AutoScaling.DescribeAdjustmentTypes -- ** CreateAutoScalingGroup , module Network.AWS.AutoScaling.CreateAutoScalingGroup @@ -192,9 +195,6 @@ -- ** CreateLaunchConfiguration , module Network.AWS.AutoScaling.CreateLaunchConfiguration - -- ** DescribeAdjustmentTypes - , module Network.AWS.AutoScaling.DescribeAdjustmentTypes - -- * Types -- ** LifecycleState @@ -208,8 +208,8 @@ , activity , aProgress , aStatusMessage - , aDetails , aEndTime + , aDetails , aDescription , aActivityId , aAutoScalingGroupName @@ -236,11 +236,11 @@ , asgHealthCheckGracePeriod , asgVPCZoneIdentifier , asgEnabledMetrics - , asgInstances , asgLaunchConfigurationName + , asgInstances , asgAutoScalingGroupARN - , asgSuspendedProcesses , asgPlacementGroup + , asgSuspendedProcesses , asgLoadBalancerNames , asgTags , asgAutoScalingGroupName @@ -308,10 +308,10 @@ -- ** LaunchConfiguration , LaunchConfiguration , launchConfiguration - , lcSecurityGroups , lcAssociatePublicIPAddress - , lcInstanceMonitoring + , lcSecurityGroups , lcSpotPrice + , lcInstanceMonitoring , lcKeyName , lcClassicLinkVPCSecurityGroups , lcRAMDiskId @@ -337,9 +337,9 @@ , lhAutoScalingGroupName , lhNotificationMetadata , lhGlobalTimeout - , lhRoleARN - , lhLifecycleTransition , lhNotificationTargetARN + , lhLifecycleTransition + , lhRoleARN -- ** LoadBalancerState , LoadBalancerState @@ -372,14 +372,14 @@ -- ** ScalingPolicy , ScalingPolicy , scalingPolicy - , sEstimatedInstanceWarmup , sMinAdjustmentStep + , sEstimatedInstanceWarmup , sPolicyName , sPolicyType , sStepAdjustments , sAdjustmentType - , sScalingAdjustment , sAutoScalingGroupName + , sScalingAdjustment , sCooldown , sPolicyARN , sAlarms @@ -396,15 +396,15 @@ , ScheduledUpdateGroupAction , scheduledUpdateGroupAction , sugaScheduledActionARN - , sugaTime , sugaStartTime + , sugaTime , sugaScheduledActionName , sugaMaxSize - , sugaDesiredCapacity , sugaRecurrence + , sugaDesiredCapacity , sugaMinSize - , sugaEndTime , sugaAutoScalingGroupName + , sugaEndTime -- ** StepAdjustment , StepAdjustment diff --git a/gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs b/gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs --- a/gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs +++ b/gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs @@ -42,7 +42,7 @@ , attachLoadBalancersResponse , AttachLoadBalancersResponse -- * Response Lenses - , albrsStatus + , albrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -107,22 +107,22 @@ -- | /See:/ 'attachLoadBalancersResponse' smart constructor. newtype AttachLoadBalancersResponse = AttachLoadBalancersResponse' - { _albrsStatus :: Int + { _albrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'AttachLoadBalancersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'albrsStatus' +-- * 'albrsResponseStatus' attachLoadBalancersResponse - :: Int -- ^ 'albrsStatus' + :: Int -- ^ 'albrsResponseStatus' -> AttachLoadBalancersResponse -attachLoadBalancersResponse pStatus_ = +attachLoadBalancersResponse pResponseStatus_ = AttachLoadBalancersResponse' - { _albrsStatus = pStatus_ + { _albrsResponseStatus = pResponseStatus_ } -- | The response status code. -albrsStatus :: Lens' AttachLoadBalancersResponse Int -albrsStatus = lens _albrsStatus (\ s a -> s{_albrsStatus = a}); +albrsResponseStatus :: Lens' AttachLoadBalancersResponse Int +albrsResponseStatus = lens _albrsResponseStatus (\ s a -> s{_albrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs b/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs --- a/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs +++ b/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs @@ -56,7 +56,7 @@ , completeLifecycleActionResponse , CompleteLifecycleActionResponse -- * Response Lenses - , clarsStatus + , clarsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -147,22 +147,22 @@ -- | /See:/ 'completeLifecycleActionResponse' smart constructor. newtype CompleteLifecycleActionResponse = CompleteLifecycleActionResponse' - { _clarsStatus :: Int + { _clarsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CompleteLifecycleActionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'clarsStatus' +-- * 'clarsResponseStatus' completeLifecycleActionResponse - :: Int -- ^ 'clarsStatus' + :: Int -- ^ 'clarsResponseStatus' -> CompleteLifecycleActionResponse -completeLifecycleActionResponse pStatus_ = +completeLifecycleActionResponse pResponseStatus_ = CompleteLifecycleActionResponse' - { _clarsStatus = pStatus_ + { _clarsResponseStatus = pResponseStatus_ } -- | The response status code. -clarsStatus :: Lens' CompleteLifecycleActionResponse Int -clarsStatus = lens _clarsStatus (\ s a -> s{_clarsStatus = a}); +clarsResponseStatus :: Lens' CompleteLifecycleActionResponse Int +clarsResponseStatus = lens _clarsResponseStatus (\ s a -> s{_clarsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs @@ -40,10 +40,10 @@ , casgHealthCheckGracePeriod , casgVPCZoneIdentifier , casgDefaultCooldown - , casgDesiredCapacity , casgAvailabilityZones - , casgHealthCheckType + , casgDesiredCapacity , casgLaunchConfigurationName + , casgHealthCheckType , casgPlacementGroup , casgLoadBalancerNames , casgTags @@ -69,10 +69,10 @@ , _casgHealthCheckGracePeriod :: !(Maybe Int) , _casgVPCZoneIdentifier :: !(Maybe Text) , _casgDefaultCooldown :: !(Maybe Int) - , _casgDesiredCapacity :: !(Maybe Int) , _casgAvailabilityZones :: !(Maybe (List1 Text)) - , _casgHealthCheckType :: !(Maybe Text) + , _casgDesiredCapacity :: !(Maybe Int) , _casgLaunchConfigurationName :: !(Maybe Text) + , _casgHealthCheckType :: !(Maybe Text) , _casgPlacementGroup :: !(Maybe Text) , _casgLoadBalancerNames :: !(Maybe [Text]) , _casgTags :: !(Maybe [Tag]) @@ -95,14 +95,14 @@ -- -- * 'casgDefaultCooldown' -- --- * 'casgDesiredCapacity' --- -- * 'casgAvailabilityZones' -- --- * 'casgHealthCheckType' +-- * 'casgDesiredCapacity' -- -- * 'casgLaunchConfigurationName' -- +-- * 'casgHealthCheckType' +-- -- * 'casgPlacementGroup' -- -- * 'casgLoadBalancerNames' @@ -126,10 +126,10 @@ , _casgHealthCheckGracePeriod = Nothing , _casgVPCZoneIdentifier = Nothing , _casgDefaultCooldown = Nothing - , _casgDesiredCapacity = Nothing , _casgAvailabilityZones = Nothing - , _casgHealthCheckType = Nothing + , _casgDesiredCapacity = Nothing , _casgLaunchConfigurationName = Nothing + , _casgHealthCheckType = Nothing , _casgPlacementGroup = Nothing , _casgLoadBalancerNames = Nothing , _casgTags = Nothing @@ -202,16 +202,22 @@ casgDefaultCooldown :: Lens' CreateAutoScalingGroup (Maybe Int) casgDefaultCooldown = lens _casgDefaultCooldown (\ s a -> s{_casgDefaultCooldown = a}); +-- | One or more Availability Zones for the group. This parameter is optional +-- if you specify subnets using the 'VPCZoneIdentifier' parameter. +casgAvailabilityZones :: Lens' CreateAutoScalingGroup (Maybe (NonEmpty Text)) +casgAvailabilityZones = lens _casgAvailabilityZones (\ s a -> s{_casgAvailabilityZones = a}) . mapping _List1; + -- | The number of EC2 instances that should be running in the group. This -- number must be greater than or equal to the minimum size of the group -- and less than or equal to the maximum size of the group. casgDesiredCapacity :: Lens' CreateAutoScalingGroup (Maybe Int) casgDesiredCapacity = lens _casgDesiredCapacity (\ s a -> s{_casgDesiredCapacity = a}); --- | One or more Availability Zones for the group. This parameter is optional --- if you specify subnets using the 'VPCZoneIdentifier' parameter. -casgAvailabilityZones :: Lens' CreateAutoScalingGroup (Maybe (NonEmpty Text)) -casgAvailabilityZones = lens _casgAvailabilityZones (\ s a -> s{_casgAvailabilityZones = a}) . mapping _List1; +-- | The name of the launch configuration. Alternatively, use the +-- 'InstanceId' parameter to specify an EC2 instance instead of a launch +-- configuration. +casgLaunchConfigurationName :: Lens' CreateAutoScalingGroup (Maybe Text) +casgLaunchConfigurationName = lens _casgLaunchConfigurationName (\ s a -> s{_casgLaunchConfigurationName = a}); -- | The service to use for the health checks. The valid values are 'EC2' and -- 'ELB'. @@ -222,12 +228,6 @@ casgHealthCheckType :: Lens' CreateAutoScalingGroup (Maybe Text) casgHealthCheckType = lens _casgHealthCheckType (\ s a -> s{_casgHealthCheckType = a}); --- | The name of the launch configuration. Alternatively, use the --- 'InstanceId' parameter to specify an EC2 instance instead of a launch --- configuration. -casgLaunchConfigurationName :: Lens' CreateAutoScalingGroup (Maybe Text) -casgLaunchConfigurationName = lens _casgLaunchConfigurationName (\ s a -> s{_casgLaunchConfigurationName = a}); - -- | The name of the placement group into which you\'ll launch your -- instances, if any. For more information, see -- @@ -294,13 +294,13 @@ _casgHealthCheckGracePeriod, "VPCZoneIdentifier" =: _casgVPCZoneIdentifier, "DefaultCooldown" =: _casgDefaultCooldown, - "DesiredCapacity" =: _casgDesiredCapacity, "AvailabilityZones" =: toQuery (toQueryList "member" <$> _casgAvailabilityZones), - "HealthCheckType" =: _casgHealthCheckType, + "DesiredCapacity" =: _casgDesiredCapacity, "LaunchConfigurationName" =: _casgLaunchConfigurationName, + "HealthCheckType" =: _casgHealthCheckType, "PlacementGroup" =: _casgPlacementGroup, "LoadBalancerNames" =: toQuery diff --git a/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs b/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs --- a/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs +++ b/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs @@ -36,10 +36,10 @@ , CreateLaunchConfiguration -- * Request Lenses , clcInstanceId - , clcSecurityGroups , clcAssociatePublicIPAddress - , clcInstanceMonitoring + , clcSecurityGroups , clcSpotPrice + , clcInstanceMonitoring , clcKeyName , clcClassicLinkVPCSecurityGroups , clcRAMDiskId @@ -68,10 +68,10 @@ -- | /See:/ 'createLaunchConfiguration' smart constructor. data CreateLaunchConfiguration = CreateLaunchConfiguration' { _clcInstanceId :: !(Maybe Text) - , _clcSecurityGroups :: !(Maybe [Text]) , _clcAssociatePublicIPAddress :: !(Maybe Bool) - , _clcInstanceMonitoring :: !(Maybe InstanceMonitoring) + , _clcSecurityGroups :: !(Maybe [Text]) , _clcSpotPrice :: !(Maybe Text) + , _clcInstanceMonitoring :: !(Maybe InstanceMonitoring) , _clcKeyName :: !(Maybe Text) , _clcClassicLinkVPCSecurityGroups :: !(Maybe [Text]) , _clcRAMDiskId :: !(Maybe Text) @@ -93,14 +93,14 @@ -- -- * 'clcInstanceId' -- --- * 'clcSecurityGroups' --- -- * 'clcAssociatePublicIPAddress' -- --- * 'clcInstanceMonitoring' +-- * 'clcSecurityGroups' -- -- * 'clcSpotPrice' -- +-- * 'clcInstanceMonitoring' +-- -- * 'clcKeyName' -- -- * 'clcClassicLinkVPCSecurityGroups' @@ -132,10 +132,10 @@ createLaunchConfiguration pLaunchConfigurationName_ = CreateLaunchConfiguration' { _clcInstanceId = Nothing - , _clcSecurityGroups = Nothing , _clcAssociatePublicIPAddress = Nothing - , _clcInstanceMonitoring = Nothing + , _clcSecurityGroups = Nothing , _clcSpotPrice = Nothing + , _clcInstanceMonitoring = Nothing , _clcKeyName = Nothing , _clcClassicLinkVPCSecurityGroups = Nothing , _clcRAMDiskId = Nothing @@ -165,21 +165,6 @@ clcInstanceId :: Lens' CreateLaunchConfiguration (Maybe Text) clcInstanceId = lens _clcInstanceId (\ s a -> s{_clcInstanceId = a}); --- | One or more security groups with which to associate the instances. --- --- If your instances are launched in EC2-Classic, you can either specify --- security group names or the security group IDs. For more information --- about security groups for EC2-Classic, see --- --- in the /Amazon Elastic Compute Cloud User Guide/. --- --- If your instances are launched into a VPC, specify security group IDs. --- For more information, see --- --- in the /Amazon Virtual Private Cloud User Guide/. -clcSecurityGroups :: Lens' CreateLaunchConfiguration [Text] -clcSecurityGroups = lens _clcSecurityGroups (\ s a -> s{_clcSecurityGroups = a}) . _Default . _Coerce; - -- | Used for groups that launch instances into a virtual private cloud -- (VPC). Specifies whether to assign a public IP address to each instance. -- For more information, see @@ -198,6 +183,29 @@ clcAssociatePublicIPAddress :: Lens' CreateLaunchConfiguration (Maybe Bool) clcAssociatePublicIPAddress = lens _clcAssociatePublicIPAddress (\ s a -> s{_clcAssociatePublicIPAddress = a}); +-- | One or more security groups with which to associate the instances. +-- +-- If your instances are launched in EC2-Classic, you can either specify +-- security group names or the security group IDs. For more information +-- about security groups for EC2-Classic, see +-- +-- in the /Amazon Elastic Compute Cloud User Guide/. +-- +-- If your instances are launched into a VPC, specify security group IDs. +-- For more information, see +-- +-- in the /Amazon Virtual Private Cloud User Guide/. +clcSecurityGroups :: Lens' CreateLaunchConfiguration [Text] +clcSecurityGroups = lens _clcSecurityGroups (\ s a -> s{_clcSecurityGroups = a}) . _Default . _Coerce; + +-- | The maximum hourly price to be paid for any Spot Instance launched to +-- fulfill the request. Spot Instances are launched when the price you +-- specify exceeds the current Spot market price. For more information, see +-- +-- in the /Auto Scaling Developer Guide/. +clcSpotPrice :: Lens' CreateLaunchConfiguration (Maybe Text) +clcSpotPrice = lens _clcSpotPrice (\ s a -> s{_clcSpotPrice = a}); + -- | Enables detailed monitoring if it is disabled. Detailed monitoring is -- enabled by default. -- @@ -210,14 +218,6 @@ clcInstanceMonitoring :: Lens' CreateLaunchConfiguration (Maybe InstanceMonitoring) clcInstanceMonitoring = lens _clcInstanceMonitoring (\ s a -> s{_clcInstanceMonitoring = a}); --- | The maximum hourly price to be paid for any Spot Instance launched to --- fulfill the request. Spot Instances are launched when the price you --- specify exceeds the current Spot market price. For more information, see --- --- in the /Auto Scaling Developer Guide/. -clcSpotPrice :: Lens' CreateLaunchConfiguration (Maybe Text) -clcSpotPrice = lens _clcSpotPrice (\ s a -> s{_clcSpotPrice = a}); - -- | The name of the key pair. For more information, see -- -- in the /Amazon Elastic Compute Cloud User Guide/. @@ -346,13 +346,13 @@ ("CreateLaunchConfiguration" :: ByteString), "Version" =: ("2011-01-01" :: ByteString), "InstanceId" =: _clcInstanceId, + "AssociatePublicIpAddress" =: + _clcAssociatePublicIPAddress, "SecurityGroups" =: toQuery (toQueryList "member" <$> _clcSecurityGroups), - "AssociatePublicIpAddress" =: - _clcAssociatePublicIPAddress, - "InstanceMonitoring" =: _clcInstanceMonitoring, "SpotPrice" =: _clcSpotPrice, + "InstanceMonitoring" =: _clcInstanceMonitoring, "KeyName" =: _clcKeyName, "ClassicLinkVPCSecurityGroups" =: toQuery diff --git a/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs b/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs --- a/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs +++ b/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs @@ -38,7 +38,7 @@ , deleteLifecycleHookResponse , DeleteLifecycleHookResponse -- * Response Lenses - , drsStatus + , drsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -103,22 +103,22 @@ -- | /See:/ 'deleteLifecycleHookResponse' smart constructor. newtype DeleteLifecycleHookResponse = DeleteLifecycleHookResponse' - { _drsStatus :: Int + { _drsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteLifecycleHookResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'drsStatus' +-- * 'drsResponseStatus' deleteLifecycleHookResponse - :: Int -- ^ 'drsStatus' + :: Int -- ^ 'drsResponseStatus' -> DeleteLifecycleHookResponse -deleteLifecycleHookResponse pStatus_ = +deleteLifecycleHookResponse pResponseStatus_ = DeleteLifecycleHookResponse' - { _drsStatus = pStatus_ + { _drsResponseStatus = pResponseStatus_ } -- | The response status code. -drsStatus :: Lens' DeleteLifecycleHookResponse Int -drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a}); +drsResponseStatus :: Lens' DeleteLifecycleHookResponse Int +drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs b/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs --- a/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs @@ -35,9 +35,9 @@ , describeAccountLimitsResponse , DescribeAccountLimitsResponse -- * Response Lenses - , dalrsMaxNumberOfLaunchConfigurations , dalrsMaxNumberOfAutoScalingGroups - , dalrsStatus + , dalrsMaxNumberOfLaunchConfigurations + , dalrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -65,8 +65,8 @@ = receiveXMLWrapper "DescribeAccountLimitsResult" (\ s h x -> DescribeAccountLimitsResponse' <$> - (x .@? "MaxNumberOfLaunchConfigurations") <*> - (x .@? "MaxNumberOfAutoScalingGroups") + (x .@? "MaxNumberOfAutoScalingGroups") <*> + (x .@? "MaxNumberOfLaunchConfigurations") <*> (pure (fromEnum s))) instance ToHeaders DescribeAccountLimits where @@ -84,40 +84,40 @@ -- | /See:/ 'describeAccountLimitsResponse' smart constructor. data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse' - { _dalrsMaxNumberOfLaunchConfigurations :: !(Maybe Int) - , _dalrsMaxNumberOfAutoScalingGroups :: !(Maybe Int) - , _dalrsStatus :: !Int + { _dalrsMaxNumberOfAutoScalingGroups :: !(Maybe Int) + , _dalrsMaxNumberOfLaunchConfigurations :: !(Maybe Int) + , _dalrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeAccountLimitsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dalrsMaxNumberOfLaunchConfigurations' --- -- * 'dalrsMaxNumberOfAutoScalingGroups' -- --- * 'dalrsStatus' +-- * 'dalrsMaxNumberOfLaunchConfigurations' +-- +-- * 'dalrsResponseStatus' describeAccountLimitsResponse - :: Int -- ^ 'dalrsStatus' + :: Int -- ^ 'dalrsResponseStatus' -> DescribeAccountLimitsResponse -describeAccountLimitsResponse pStatus_ = +describeAccountLimitsResponse pResponseStatus_ = DescribeAccountLimitsResponse' - { _dalrsMaxNumberOfLaunchConfigurations = Nothing - , _dalrsMaxNumberOfAutoScalingGroups = Nothing - , _dalrsStatus = pStatus_ + { _dalrsMaxNumberOfAutoScalingGroups = Nothing + , _dalrsMaxNumberOfLaunchConfigurations = Nothing + , _dalrsResponseStatus = pResponseStatus_ } --- | The maximum number of launch configurations allowed for your AWS --- account. The default limit is 100 per region. -dalrsMaxNumberOfLaunchConfigurations :: Lens' DescribeAccountLimitsResponse (Maybe Int) -dalrsMaxNumberOfLaunchConfigurations = lens _dalrsMaxNumberOfLaunchConfigurations (\ s a -> s{_dalrsMaxNumberOfLaunchConfigurations = a}); - -- | The maximum number of groups allowed for your AWS account. The default -- limit is 20 per region. dalrsMaxNumberOfAutoScalingGroups :: Lens' DescribeAccountLimitsResponse (Maybe Int) dalrsMaxNumberOfAutoScalingGroups = lens _dalrsMaxNumberOfAutoScalingGroups (\ s a -> s{_dalrsMaxNumberOfAutoScalingGroups = a}); +-- | The maximum number of launch configurations allowed for your AWS +-- account. The default limit is 100 per region. +dalrsMaxNumberOfLaunchConfigurations :: Lens' DescribeAccountLimitsResponse (Maybe Int) +dalrsMaxNumberOfLaunchConfigurations = lens _dalrsMaxNumberOfLaunchConfigurations (\ s a -> s{_dalrsMaxNumberOfLaunchConfigurations = a}); + -- | The response status code. -dalrsStatus :: Lens' DescribeAccountLimitsResponse Int -dalrsStatus = lens _dalrsStatus (\ s a -> s{_dalrsStatus = a}); +dalrsResponseStatus :: Lens' DescribeAccountLimitsResponse Int +dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs b/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs @@ -32,7 +32,7 @@ , DescribeAdjustmentTypesResponse -- * Response Lenses , datrsAdjustmentTypes - , datrsStatus + , datrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -81,7 +81,7 @@ -- | /See:/ 'describeAdjustmentTypesResponse' smart constructor. data DescribeAdjustmentTypesResponse = DescribeAdjustmentTypesResponse' { _datrsAdjustmentTypes :: !(Maybe [AdjustmentType]) - , _datrsStatus :: !Int + , _datrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeAdjustmentTypesResponse' with the minimum fields required to make a request. @@ -90,14 +90,14 @@ -- -- * 'datrsAdjustmentTypes' -- --- * 'datrsStatus' +-- * 'datrsResponseStatus' describeAdjustmentTypesResponse - :: Int -- ^ 'datrsStatus' + :: Int -- ^ 'datrsResponseStatus' -> DescribeAdjustmentTypesResponse -describeAdjustmentTypesResponse pStatus_ = +describeAdjustmentTypesResponse pResponseStatus_ = DescribeAdjustmentTypesResponse' { _datrsAdjustmentTypes = Nothing - , _datrsStatus = pStatus_ + , _datrsResponseStatus = pResponseStatus_ } -- | The policy adjustment types. @@ -105,5 +105,5 @@ datrsAdjustmentTypes = lens _datrsAdjustmentTypes (\ s a -> s{_datrsAdjustmentTypes = a}) . _Default . _Coerce; -- | The response status code. -datrsStatus :: Lens' DescribeAdjustmentTypesResponse Int -datrsStatus = lens _datrsStatus (\ s a -> s{_datrsStatus = a}); +datrsResponseStatus :: Lens' DescribeAdjustmentTypesResponse Int +datrsResponseStatus = lens _datrsResponseStatus (\ s a -> s{_datrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs b/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs --- a/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs @@ -39,7 +39,7 @@ , DescribeAutoScalingGroupsResponse -- * Response Lenses , dasgrsNextToken - , dasgrsStatus + , dasgrsResponseStatus , dasgrsAutoScalingGroups ) where @@ -129,7 +129,7 @@ -- | /See:/ 'describeAutoScalingGroupsResponse' smart constructor. data DescribeAutoScalingGroupsResponse = DescribeAutoScalingGroupsResponse' { _dasgrsNextToken :: !(Maybe Text) - , _dasgrsStatus :: !Int + , _dasgrsResponseStatus :: !Int , _dasgrsAutoScalingGroups :: ![AutoScalingGroup] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -139,16 +139,16 @@ -- -- * 'dasgrsNextToken' -- --- * 'dasgrsStatus' +-- * 'dasgrsResponseStatus' -- -- * 'dasgrsAutoScalingGroups' describeAutoScalingGroupsResponse - :: Int -- ^ 'dasgrsStatus' + :: Int -- ^ 'dasgrsResponseStatus' -> DescribeAutoScalingGroupsResponse -describeAutoScalingGroupsResponse pStatus_ = +describeAutoScalingGroupsResponse pResponseStatus_ = DescribeAutoScalingGroupsResponse' { _dasgrsNextToken = Nothing - , _dasgrsStatus = pStatus_ + , _dasgrsResponseStatus = pResponseStatus_ , _dasgrsAutoScalingGroups = mempty } @@ -158,8 +158,8 @@ dasgrsNextToken = lens _dasgrsNextToken (\ s a -> s{_dasgrsNextToken = a}); -- | The response status code. -dasgrsStatus :: Lens' DescribeAutoScalingGroupsResponse Int -dasgrsStatus = lens _dasgrsStatus (\ s a -> s{_dasgrsStatus = a}); +dasgrsResponseStatus :: Lens' DescribeAutoScalingGroupsResponse Int +dasgrsResponseStatus = lens _dasgrsResponseStatus (\ s a -> s{_dasgrsResponseStatus = a}); -- | The groups. dasgrsAutoScalingGroups :: Lens' DescribeAutoScalingGroupsResponse [AutoScalingGroup] diff --git a/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs b/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs --- a/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs @@ -40,7 +40,7 @@ -- * Response Lenses , dasirsNextToken , dasirsAutoScalingInstances - , dasirsStatus + , dasirsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -133,7 +133,7 @@ data DescribeAutoScalingInstancesResponse = DescribeAutoScalingInstancesResponse' { _dasirsNextToken :: !(Maybe Text) , _dasirsAutoScalingInstances :: !(Maybe [AutoScalingInstanceDetails]) - , _dasirsStatus :: !Int + , _dasirsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeAutoScalingInstancesResponse' with the minimum fields required to make a request. @@ -144,15 +144,15 @@ -- -- * 'dasirsAutoScalingInstances' -- --- * 'dasirsStatus' +-- * 'dasirsResponseStatus' describeAutoScalingInstancesResponse - :: Int -- ^ 'dasirsStatus' + :: Int -- ^ 'dasirsResponseStatus' -> DescribeAutoScalingInstancesResponse -describeAutoScalingInstancesResponse pStatus_ = +describeAutoScalingInstancesResponse pResponseStatus_ = DescribeAutoScalingInstancesResponse' { _dasirsNextToken = Nothing , _dasirsAutoScalingInstances = Nothing - , _dasirsStatus = pStatus_ + , _dasirsResponseStatus = pResponseStatus_ } -- | The token to use when requesting the next set of items. If there are no @@ -165,5 +165,5 @@ dasirsAutoScalingInstances = lens _dasirsAutoScalingInstances (\ s a -> s{_dasirsAutoScalingInstances = a}) . _Default . _Coerce; -- | The response status code. -dasirsStatus :: Lens' DescribeAutoScalingInstancesResponse Int -dasirsStatus = lens _dasirsStatus (\ s a -> s{_dasirsStatus = a}); +dasirsResponseStatus :: Lens' DescribeAutoScalingInstancesResponse Int +dasirsResponseStatus = lens _dasirsResponseStatus (\ s a -> s{_dasirsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs b/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs @@ -32,7 +32,7 @@ , DescribeAutoScalingNotificationTypesResponse -- * Response Lenses , dasntrsAutoScalingNotificationTypes - , dasntrsStatus + , dasntrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -87,7 +87,7 @@ -- | /See:/ 'describeAutoScalingNotificationTypesResponse' smart constructor. data DescribeAutoScalingNotificationTypesResponse = DescribeAutoScalingNotificationTypesResponse' { _dasntrsAutoScalingNotificationTypes :: !(Maybe [Text]) - , _dasntrsStatus :: !Int + , _dasntrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeAutoScalingNotificationTypesResponse' with the minimum fields required to make a request. @@ -96,14 +96,14 @@ -- -- * 'dasntrsAutoScalingNotificationTypes' -- --- * 'dasntrsStatus' +-- * 'dasntrsResponseStatus' describeAutoScalingNotificationTypesResponse - :: Int -- ^ 'dasntrsStatus' + :: Int -- ^ 'dasntrsResponseStatus' -> DescribeAutoScalingNotificationTypesResponse -describeAutoScalingNotificationTypesResponse pStatus_ = +describeAutoScalingNotificationTypesResponse pResponseStatus_ = DescribeAutoScalingNotificationTypesResponse' { _dasntrsAutoScalingNotificationTypes = Nothing - , _dasntrsStatus = pStatus_ + , _dasntrsResponseStatus = pResponseStatus_ } -- | One or more of the following notification types: @@ -122,5 +122,5 @@ dasntrsAutoScalingNotificationTypes = lens _dasntrsAutoScalingNotificationTypes (\ s a -> s{_dasntrsAutoScalingNotificationTypes = a}) . _Default . _Coerce; -- | The response status code. -dasntrsStatus :: Lens' DescribeAutoScalingNotificationTypesResponse Int -dasntrsStatus = lens _dasntrsStatus (\ s a -> s{_dasntrsStatus = a}); +dasntrsResponseStatus :: Lens' DescribeAutoScalingNotificationTypesResponse Int +dasntrsResponseStatus = lens _dasntrsResponseStatus (\ s a -> s{_dasntrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs b/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs --- a/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs @@ -39,7 +39,7 @@ , DescribeLaunchConfigurationsResponse -- * Response Lenses , dlcrsNextToken - , dlcrsStatus + , dlcrsResponseStatus , dlcrsLaunchConfigurations ) where @@ -132,7 +132,7 @@ -- | /See:/ 'describeLaunchConfigurationsResponse' smart constructor. data DescribeLaunchConfigurationsResponse = DescribeLaunchConfigurationsResponse' { _dlcrsNextToken :: !(Maybe Text) - , _dlcrsStatus :: !Int + , _dlcrsResponseStatus :: !Int , _dlcrsLaunchConfigurations :: ![LaunchConfiguration] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -142,16 +142,16 @@ -- -- * 'dlcrsNextToken' -- --- * 'dlcrsStatus' +-- * 'dlcrsResponseStatus' -- -- * 'dlcrsLaunchConfigurations' describeLaunchConfigurationsResponse - :: Int -- ^ 'dlcrsStatus' + :: Int -- ^ 'dlcrsResponseStatus' -> DescribeLaunchConfigurationsResponse -describeLaunchConfigurationsResponse pStatus_ = +describeLaunchConfigurationsResponse pResponseStatus_ = DescribeLaunchConfigurationsResponse' { _dlcrsNextToken = Nothing - , _dlcrsStatus = pStatus_ + , _dlcrsResponseStatus = pResponseStatus_ , _dlcrsLaunchConfigurations = mempty } @@ -161,8 +161,8 @@ dlcrsNextToken = lens _dlcrsNextToken (\ s a -> s{_dlcrsNextToken = a}); -- | The response status code. -dlcrsStatus :: Lens' DescribeLaunchConfigurationsResponse Int -dlcrsStatus = lens _dlcrsStatus (\ s a -> s{_dlcrsStatus = a}); +dlcrsResponseStatus :: Lens' DescribeLaunchConfigurationsResponse Int +dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a}); -- | The launch configurations. dlcrsLaunchConfigurations :: Lens' DescribeLaunchConfigurationsResponse [LaunchConfiguration] diff --git a/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs b/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs @@ -32,7 +32,7 @@ , DescribeLifecycleHookTypesResponse -- * Response Lenses , dlhtrsLifecycleHookTypes - , dlhtrsStatus + , dlhtrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -82,7 +82,7 @@ -- | /See:/ 'describeLifecycleHookTypesResponse' smart constructor. data DescribeLifecycleHookTypesResponse = DescribeLifecycleHookTypesResponse' { _dlhtrsLifecycleHookTypes :: !(Maybe [Text]) - , _dlhtrsStatus :: !Int + , _dlhtrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeLifecycleHookTypesResponse' with the minimum fields required to make a request. @@ -91,14 +91,14 @@ -- -- * 'dlhtrsLifecycleHookTypes' -- --- * 'dlhtrsStatus' +-- * 'dlhtrsResponseStatus' describeLifecycleHookTypesResponse - :: Int -- ^ 'dlhtrsStatus' + :: Int -- ^ 'dlhtrsResponseStatus' -> DescribeLifecycleHookTypesResponse -describeLifecycleHookTypesResponse pStatus_ = +describeLifecycleHookTypesResponse pResponseStatus_ = DescribeLifecycleHookTypesResponse' { _dlhtrsLifecycleHookTypes = Nothing - , _dlhtrsStatus = pStatus_ + , _dlhtrsResponseStatus = pResponseStatus_ } -- | One or more of the following notification types: @@ -111,5 +111,5 @@ dlhtrsLifecycleHookTypes = lens _dlhtrsLifecycleHookTypes (\ s a -> s{_dlhtrsLifecycleHookTypes = a}) . _Default . _Coerce; -- | The response status code. -dlhtrsStatus :: Lens' DescribeLifecycleHookTypesResponse Int -dlhtrsStatus = lens _dlhtrsStatus (\ s a -> s{_dlhtrsStatus = a}); +dlhtrsResponseStatus :: Lens' DescribeLifecycleHookTypesResponse Int +dlhtrsResponseStatus = lens _dlhtrsResponseStatus (\ s a -> s{_dlhtrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs b/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs --- a/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs @@ -35,7 +35,7 @@ , DescribeLifecycleHooksResponse -- * Response Lenses , dlhrsLifecycleHooks - , dlhrsStatus + , dlhrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -106,7 +106,7 @@ -- | /See:/ 'describeLifecycleHooksResponse' smart constructor. data DescribeLifecycleHooksResponse = DescribeLifecycleHooksResponse' { _dlhrsLifecycleHooks :: !(Maybe [LifecycleHook]) - , _dlhrsStatus :: !Int + , _dlhrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeLifecycleHooksResponse' with the minimum fields required to make a request. @@ -115,14 +115,14 @@ -- -- * 'dlhrsLifecycleHooks' -- --- * 'dlhrsStatus' +-- * 'dlhrsResponseStatus' describeLifecycleHooksResponse - :: Int -- ^ 'dlhrsStatus' + :: Int -- ^ 'dlhrsResponseStatus' -> DescribeLifecycleHooksResponse -describeLifecycleHooksResponse pStatus_ = +describeLifecycleHooksResponse pResponseStatus_ = DescribeLifecycleHooksResponse' { _dlhrsLifecycleHooks = Nothing - , _dlhrsStatus = pStatus_ + , _dlhrsResponseStatus = pResponseStatus_ } -- | The lifecycle hooks for the specified group. @@ -130,5 +130,5 @@ dlhrsLifecycleHooks = lens _dlhrsLifecycleHooks (\ s a -> s{_dlhrsLifecycleHooks = a}) . _Default . _Coerce; -- | The response status code. -dlhrsStatus :: Lens' DescribeLifecycleHooksResponse Int -dlhrsStatus = lens _dlhrsStatus (\ s a -> s{_dlhrsStatus = a}); +dlhrsResponseStatus :: Lens' DescribeLifecycleHooksResponse Int +dlhrsResponseStatus = lens _dlhrsResponseStatus (\ s a -> s{_dlhrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs b/gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs --- a/gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs @@ -37,7 +37,7 @@ -- * Response Lenses , dlbrsLoadBalancers , dlbrsNextToken - , dlbrsStatus + , dlbrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -115,9 +115,9 @@ -- | /See:/ 'describeLoadBalancersResponse' smart constructor. data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse' - { _dlbrsLoadBalancers :: !(Maybe [LoadBalancerState]) - , _dlbrsNextToken :: !(Maybe Text) - , _dlbrsStatus :: !Int + { _dlbrsLoadBalancers :: !(Maybe [LoadBalancerState]) + , _dlbrsNextToken :: !(Maybe Text) + , _dlbrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeLoadBalancersResponse' with the minimum fields required to make a request. @@ -128,15 +128,15 @@ -- -- * 'dlbrsNextToken' -- --- * 'dlbrsStatus' +-- * 'dlbrsResponseStatus' describeLoadBalancersResponse - :: Int -- ^ 'dlbrsStatus' + :: Int -- ^ 'dlbrsResponseStatus' -> DescribeLoadBalancersResponse -describeLoadBalancersResponse pStatus_ = +describeLoadBalancersResponse pResponseStatus_ = DescribeLoadBalancersResponse' { _dlbrsLoadBalancers = Nothing , _dlbrsNextToken = Nothing - , _dlbrsStatus = pStatus_ + , _dlbrsResponseStatus = pResponseStatus_ } -- | The load balancers. @@ -149,5 +149,5 @@ dlbrsNextToken = lens _dlbrsNextToken (\ s a -> s{_dlbrsNextToken = a}); -- | The response status code. -dlbrsStatus :: Lens' DescribeLoadBalancersResponse Int -dlbrsStatus = lens _dlbrsStatus (\ s a -> s{_dlbrsStatus = a}); +dlbrsResponseStatus :: Lens' DescribeLoadBalancersResponse Int +dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs b/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs @@ -37,7 +37,7 @@ -- * Response Lenses , dmctrsMetrics , dmctrsGranularities - , dmctrsStatus + , dmctrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -91,9 +91,9 @@ -- | /See:/ 'describeMetricCollectionTypesResponse' smart constructor. data DescribeMetricCollectionTypesResponse = DescribeMetricCollectionTypesResponse' - { _dmctrsMetrics :: !(Maybe [MetricCollectionType]) - , _dmctrsGranularities :: !(Maybe [MetricGranularityType]) - , _dmctrsStatus :: !Int + { _dmctrsMetrics :: !(Maybe [MetricCollectionType]) + , _dmctrsGranularities :: !(Maybe [MetricGranularityType]) + , _dmctrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeMetricCollectionTypesResponse' with the minimum fields required to make a request. @@ -104,15 +104,15 @@ -- -- * 'dmctrsGranularities' -- --- * 'dmctrsStatus' +-- * 'dmctrsResponseStatus' describeMetricCollectionTypesResponse - :: Int -- ^ 'dmctrsStatus' + :: Int -- ^ 'dmctrsResponseStatus' -> DescribeMetricCollectionTypesResponse -describeMetricCollectionTypesResponse pStatus_ = +describeMetricCollectionTypesResponse pResponseStatus_ = DescribeMetricCollectionTypesResponse' { _dmctrsMetrics = Nothing , _dmctrsGranularities = Nothing - , _dmctrsStatus = pStatus_ + , _dmctrsResponseStatus = pResponseStatus_ } -- | One or more metrics. @@ -124,5 +124,5 @@ dmctrsGranularities = lens _dmctrsGranularities (\ s a -> s{_dmctrsGranularities = a}) . _Default . _Coerce; -- | The response status code. -dmctrsStatus :: Lens' DescribeMetricCollectionTypesResponse Int -dmctrsStatus = lens _dmctrsStatus (\ s a -> s{_dmctrsStatus = a}); +dmctrsResponseStatus :: Lens' DescribeMetricCollectionTypesResponse Int +dmctrsResponseStatus = lens _dmctrsResponseStatus (\ s a -> s{_dmctrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs b/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs --- a/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs +++ b/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs @@ -39,7 +39,7 @@ , DescribeNotificationConfigurationsResponse -- * Response Lenses , dncrsNextToken - , dncrsStatus + , dncrsResponseStatus , dncrsNotificationConfigurations ) where @@ -135,7 +135,7 @@ -- | /See:/ 'describeNotificationConfigurationsResponse' smart constructor. data DescribeNotificationConfigurationsResponse = DescribeNotificationConfigurationsResponse' { _dncrsNextToken :: !(Maybe Text) - , _dncrsStatus :: !Int + , _dncrsResponseStatus :: !Int , _dncrsNotificationConfigurations :: ![NotificationConfiguration] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -145,16 +145,16 @@ -- -- * 'dncrsNextToken' -- --- * 'dncrsStatus' +-- * 'dncrsResponseStatus' -- -- * 'dncrsNotificationConfigurations' describeNotificationConfigurationsResponse - :: Int -- ^ 'dncrsStatus' + :: Int -- ^ 'dncrsResponseStatus' -> DescribeNotificationConfigurationsResponse -describeNotificationConfigurationsResponse pStatus_ = +describeNotificationConfigurationsResponse pResponseStatus_ = DescribeNotificationConfigurationsResponse' { _dncrsNextToken = Nothing - , _dncrsStatus = pStatus_ + , _dncrsResponseStatus = pResponseStatus_ , _dncrsNotificationConfigurations = mempty } @@ -164,8 +164,8 @@ dncrsNextToken = lens _dncrsNextToken (\ s a -> s{_dncrsNextToken = a}); -- | The response status code. -dncrsStatus :: Lens' DescribeNotificationConfigurationsResponse Int -dncrsStatus = lens _dncrsStatus (\ s a -> s{_dncrsStatus = a}); +dncrsResponseStatus :: Lens' DescribeNotificationConfigurationsResponse Int +dncrsResponseStatus = lens _dncrsResponseStatus (\ s a -> s{_dncrsResponseStatus = a}); -- | The notification configurations. dncrsNotificationConfigurations :: Lens' DescribeNotificationConfigurationsResponse [NotificationConfiguration] diff --git a/gen/Network/AWS/AutoScaling/DescribePolicies.hs b/gen/Network/AWS/AutoScaling/DescribePolicies.hs --- a/gen/Network/AWS/AutoScaling/DescribePolicies.hs +++ b/gen/Network/AWS/AutoScaling/DescribePolicies.hs @@ -31,8 +31,8 @@ -- * Request Lenses , dpsPolicyNames , dpsNextToken - , dpsMaxRecords , dpsAutoScalingGroupName + , dpsMaxRecords , dpsPolicyTypes -- * Destructuring the Response @@ -41,7 +41,7 @@ -- * Response Lenses , dprsNextToken , dprsScalingPolicies - , dprsStatus + , dprsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -55,8 +55,8 @@ data DescribePolicies = DescribePolicies' { _dpsPolicyNames :: !(Maybe [Text]) , _dpsNextToken :: !(Maybe Text) - , _dpsMaxRecords :: !(Maybe Int) , _dpsAutoScalingGroupName :: !(Maybe Text) + , _dpsMaxRecords :: !(Maybe Int) , _dpsPolicyTypes :: !(Maybe [Text]) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -68,10 +68,10 @@ -- -- * 'dpsNextToken' -- --- * 'dpsMaxRecords' --- -- * 'dpsAutoScalingGroupName' -- +-- * 'dpsMaxRecords' +-- -- * 'dpsPolicyTypes' describePolicies :: DescribePolicies @@ -79,8 +79,8 @@ DescribePolicies' { _dpsPolicyNames = Nothing , _dpsNextToken = Nothing - , _dpsMaxRecords = Nothing , _dpsAutoScalingGroupName = Nothing + , _dpsMaxRecords = Nothing , _dpsPolicyTypes = Nothing } @@ -96,14 +96,14 @@ dpsNextToken :: Lens' DescribePolicies (Maybe Text) dpsNextToken = lens _dpsNextToken (\ s a -> s{_dpsNextToken = a}); --- | The maximum number of items to be returned with each call. -dpsMaxRecords :: Lens' DescribePolicies (Maybe Int) -dpsMaxRecords = lens _dpsMaxRecords (\ s a -> s{_dpsMaxRecords = a}); - -- | The name of the group. dpsAutoScalingGroupName :: Lens' DescribePolicies (Maybe Text) dpsAutoScalingGroupName = lens _dpsAutoScalingGroupName (\ s a -> s{_dpsAutoScalingGroupName = a}); +-- | The maximum number of items to be returned with each call. +dpsMaxRecords :: Lens' DescribePolicies (Maybe Int) +dpsMaxRecords = lens _dpsMaxRecords (\ s a -> s{_dpsMaxRecords = a}); + -- | One or more policy types. Valid values are 'SimpleScaling' and -- 'StepScaling'. dpsPolicyTypes :: Lens' DescribePolicies [Text] @@ -142,8 +142,8 @@ "PolicyNames" =: toQuery (toQueryList "member" <$> _dpsPolicyNames), "NextToken" =: _dpsNextToken, - "MaxRecords" =: _dpsMaxRecords, "AutoScalingGroupName" =: _dpsAutoScalingGroupName, + "MaxRecords" =: _dpsMaxRecords, "PolicyTypes" =: toQuery (toQueryList "member" <$> _dpsPolicyTypes)] @@ -151,7 +151,7 @@ data DescribePoliciesResponse = DescribePoliciesResponse' { _dprsNextToken :: !(Maybe Text) , _dprsScalingPolicies :: !(Maybe [ScalingPolicy]) - , _dprsStatus :: !Int + , _dprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribePoliciesResponse' with the minimum fields required to make a request. @@ -162,15 +162,15 @@ -- -- * 'dprsScalingPolicies' -- --- * 'dprsStatus' +-- * 'dprsResponseStatus' describePoliciesResponse - :: Int -- ^ 'dprsStatus' + :: Int -- ^ 'dprsResponseStatus' -> DescribePoliciesResponse -describePoliciesResponse pStatus_ = +describePoliciesResponse pResponseStatus_ = DescribePoliciesResponse' { _dprsNextToken = Nothing , _dprsScalingPolicies = Nothing - , _dprsStatus = pStatus_ + , _dprsResponseStatus = pResponseStatus_ } -- | The token to use when requesting the next set of items. If there are no @@ -183,5 +183,5 @@ dprsScalingPolicies = lens _dprsScalingPolicies (\ s a -> s{_dprsScalingPolicies = a}) . _Default . _Coerce; -- | The response status code. -dprsStatus :: Lens' DescribePoliciesResponse Int -dprsStatus = lens _dprsStatus (\ s a -> s{_dprsStatus = a}); +dprsResponseStatus :: Lens' DescribePoliciesResponse Int +dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs b/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs --- a/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs +++ b/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs @@ -33,8 +33,8 @@ , DescribeScalingActivities -- * Request Lenses , desNextToken - , desMaxRecords , desAutoScalingGroupName + , desMaxRecords , desActivityIds -- * Destructuring the Response @@ -42,7 +42,7 @@ , DescribeScalingActivitiesResponse -- * Response Lenses , dsasrsNextToken - , dsasrsStatus + , dsasrsResponseStatus , dsasrsActivities ) where @@ -56,8 +56,8 @@ -- | /See:/ 'describeScalingActivities' smart constructor. data DescribeScalingActivities = DescribeScalingActivities' { _desNextToken :: !(Maybe Text) - , _desMaxRecords :: !(Maybe Int) , _desAutoScalingGroupName :: !(Maybe Text) + , _desMaxRecords :: !(Maybe Int) , _desActivityIds :: !(Maybe [Text]) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -67,18 +67,18 @@ -- -- * 'desNextToken' -- --- * 'desMaxRecords' --- -- * 'desAutoScalingGroupName' -- +-- * 'desMaxRecords' +-- -- * 'desActivityIds' describeScalingActivities :: DescribeScalingActivities describeScalingActivities = DescribeScalingActivities' { _desNextToken = Nothing - , _desMaxRecords = Nothing , _desAutoScalingGroupName = Nothing + , _desMaxRecords = Nothing , _desActivityIds = Nothing } @@ -87,14 +87,14 @@ desNextToken :: Lens' DescribeScalingActivities (Maybe Text) desNextToken = lens _desNextToken (\ s a -> s{_desNextToken = a}); --- | The maximum number of items to return with this call. -desMaxRecords :: Lens' DescribeScalingActivities (Maybe Int) -desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a}); - -- | The name of the group. desAutoScalingGroupName :: Lens' DescribeScalingActivities (Maybe Text) desAutoScalingGroupName = lens _desAutoScalingGroupName (\ s a -> s{_desAutoScalingGroupName = a}); +-- | The maximum number of items to return with this call. +desMaxRecords :: Lens' DescribeScalingActivities (Maybe Int) +desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a}); + -- | The activity IDs of the desired scaling activities. If this list is -- omitted, all activities are described. If the 'AutoScalingGroupName' -- parameter is provided, the results are limited to that group. The list @@ -135,16 +135,16 @@ ("DescribeScalingActivities" :: ByteString), "Version" =: ("2011-01-01" :: ByteString), "NextToken" =: _desNextToken, - "MaxRecords" =: _desMaxRecords, "AutoScalingGroupName" =: _desAutoScalingGroupName, + "MaxRecords" =: _desMaxRecords, "ActivityIds" =: toQuery (toQueryList "member" <$> _desActivityIds)] -- | /See:/ 'describeScalingActivitiesResponse' smart constructor. data DescribeScalingActivitiesResponse = DescribeScalingActivitiesResponse' - { _dsasrsNextToken :: !(Maybe Text) - , _dsasrsStatus :: !Int - , _dsasrsActivities :: ![Activity] + { _dsasrsNextToken :: !(Maybe Text) + , _dsasrsResponseStatus :: !Int + , _dsasrsActivities :: ![Activity] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeScalingActivitiesResponse' with the minimum fields required to make a request. @@ -153,16 +153,16 @@ -- -- * 'dsasrsNextToken' -- --- * 'dsasrsStatus' +-- * 'dsasrsResponseStatus' -- -- * 'dsasrsActivities' describeScalingActivitiesResponse - :: Int -- ^ 'dsasrsStatus' + :: Int -- ^ 'dsasrsResponseStatus' -> DescribeScalingActivitiesResponse -describeScalingActivitiesResponse pStatus_ = +describeScalingActivitiesResponse pResponseStatus_ = DescribeScalingActivitiesResponse' { _dsasrsNextToken = Nothing - , _dsasrsStatus = pStatus_ + , _dsasrsResponseStatus = pResponseStatus_ , _dsasrsActivities = mempty } @@ -172,8 +172,8 @@ dsasrsNextToken = lens _dsasrsNextToken (\ s a -> s{_dsasrsNextToken = a}); -- | The response status code. -dsasrsStatus :: Lens' DescribeScalingActivitiesResponse Int -dsasrsStatus = lens _dsasrsStatus (\ s a -> s{_dsasrsStatus = a}); +dsasrsResponseStatus :: Lens' DescribeScalingActivitiesResponse Int +dsasrsResponseStatus = lens _dsasrsResponseStatus (\ s a -> s{_dsasrsResponseStatus = a}); -- | The scaling activities. dsasrsActivities :: Lens' DescribeScalingActivitiesResponse [Activity] diff --git a/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs b/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs @@ -33,7 +33,7 @@ , DescribeScalingProcessTypesResponse -- * Response Lenses , dsptrsProcesses - , dsptrsStatus + , dsptrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -82,8 +82,8 @@ -- | /See:/ 'describeScalingProcessTypesResponse' smart constructor. data DescribeScalingProcessTypesResponse = DescribeScalingProcessTypesResponse' - { _dsptrsProcesses :: !(Maybe [ProcessType]) - , _dsptrsStatus :: !Int + { _dsptrsProcesses :: !(Maybe [ProcessType]) + , _dsptrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeScalingProcessTypesResponse' with the minimum fields required to make a request. @@ -92,14 +92,14 @@ -- -- * 'dsptrsProcesses' -- --- * 'dsptrsStatus' +-- * 'dsptrsResponseStatus' describeScalingProcessTypesResponse - :: Int -- ^ 'dsptrsStatus' + :: Int -- ^ 'dsptrsResponseStatus' -> DescribeScalingProcessTypesResponse -describeScalingProcessTypesResponse pStatus_ = +describeScalingProcessTypesResponse pResponseStatus_ = DescribeScalingProcessTypesResponse' { _dsptrsProcesses = Nothing - , _dsptrsStatus = pStatus_ + , _dsptrsResponseStatus = pResponseStatus_ } -- | The names of the process types. @@ -107,5 +107,5 @@ dsptrsProcesses = lens _dsptrsProcesses (\ s a -> s{_dsptrsProcesses = a}) . _Default . _Coerce; -- | The response status code. -dsptrsStatus :: Lens' DescribeScalingProcessTypesResponse Int -dsptrsStatus = lens _dsptrsStatus (\ s a -> s{_dsptrsStatus = a}); +dsptrsResponseStatus :: Lens' DescribeScalingProcessTypesResponse Int +dsptrsResponseStatus = lens _dsptrsResponseStatus (\ s a -> s{_dsptrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs b/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs --- a/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs +++ b/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs @@ -33,9 +33,9 @@ -- * Request Lenses , dsasStartTime , dsasNextToken + , dsasAutoScalingGroupName , dsasMaxRecords , dsasEndTime - , dsasAutoScalingGroupName , dsasScheduledActionNames -- * Destructuring the Response @@ -44,7 +44,7 @@ -- * Response Lenses , dsarsScheduledUpdateGroupActions , dsarsNextToken - , dsarsStatus + , dsarsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -58,9 +58,9 @@ data DescribeScheduledActions = DescribeScheduledActions' { _dsasStartTime :: !(Maybe ISO8601) , _dsasNextToken :: !(Maybe Text) + , _dsasAutoScalingGroupName :: !(Maybe Text) , _dsasMaxRecords :: !(Maybe Int) , _dsasEndTime :: !(Maybe ISO8601) - , _dsasAutoScalingGroupName :: !(Maybe Text) , _dsasScheduledActionNames :: !(Maybe [Text]) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -72,12 +72,12 @@ -- -- * 'dsasNextToken' -- +-- * 'dsasAutoScalingGroupName' +-- -- * 'dsasMaxRecords' -- -- * 'dsasEndTime' -- --- * 'dsasAutoScalingGroupName' --- -- * 'dsasScheduledActionNames' describeScheduledActions :: DescribeScheduledActions @@ -85,9 +85,9 @@ DescribeScheduledActions' { _dsasStartTime = Nothing , _dsasNextToken = Nothing + , _dsasAutoScalingGroupName = Nothing , _dsasMaxRecords = Nothing , _dsasEndTime = Nothing - , _dsasAutoScalingGroupName = Nothing , _dsasScheduledActionNames = Nothing } @@ -101,6 +101,10 @@ dsasNextToken :: Lens' DescribeScheduledActions (Maybe Text) dsasNextToken = lens _dsasNextToken (\ s a -> s{_dsasNextToken = a}); +-- | The name of the group. +dsasAutoScalingGroupName :: Lens' DescribeScheduledActions (Maybe Text) +dsasAutoScalingGroupName = lens _dsasAutoScalingGroupName (\ s a -> s{_dsasAutoScalingGroupName = a}); + -- | The maximum number of items to return with this call. dsasMaxRecords :: Lens' DescribeScheduledActions (Maybe Int) dsasMaxRecords = lens _dsasMaxRecords (\ s a -> s{_dsasMaxRecords = a}); @@ -110,10 +114,6 @@ dsasEndTime :: Lens' DescribeScheduledActions (Maybe UTCTime) dsasEndTime = lens _dsasEndTime (\ s a -> s{_dsasEndTime = a}) . mapping _Time; --- | The name of the group. -dsasAutoScalingGroupName :: Lens' DescribeScheduledActions (Maybe Text) -dsasAutoScalingGroupName = lens _dsasAutoScalingGroupName (\ s a -> s{_dsasAutoScalingGroupName = a}); - -- | Describes one or more scheduled actions. If you omit this list, the call -- describes all scheduled actions. If you specify an unknown scheduled -- action it is ignored with no error. @@ -160,9 +160,9 @@ "Version" =: ("2011-01-01" :: ByteString), "StartTime" =: _dsasStartTime, "NextToken" =: _dsasNextToken, + "AutoScalingGroupName" =: _dsasAutoScalingGroupName, "MaxRecords" =: _dsasMaxRecords, "EndTime" =: _dsasEndTime, - "AutoScalingGroupName" =: _dsasAutoScalingGroupName, "ScheduledActionNames" =: toQuery (toQueryList "member" <$> _dsasScheduledActionNames)] @@ -171,7 +171,7 @@ data DescribeScheduledActionsResponse = DescribeScheduledActionsResponse' { _dsarsScheduledUpdateGroupActions :: !(Maybe [ScheduledUpdateGroupAction]) , _dsarsNextToken :: !(Maybe Text) - , _dsarsStatus :: !Int + , _dsarsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeScheduledActionsResponse' with the minimum fields required to make a request. @@ -182,15 +182,15 @@ -- -- * 'dsarsNextToken' -- --- * 'dsarsStatus' +-- * 'dsarsResponseStatus' describeScheduledActionsResponse - :: Int -- ^ 'dsarsStatus' + :: Int -- ^ 'dsarsResponseStatus' -> DescribeScheduledActionsResponse -describeScheduledActionsResponse pStatus_ = +describeScheduledActionsResponse pResponseStatus_ = DescribeScheduledActionsResponse' { _dsarsScheduledUpdateGroupActions = Nothing , _dsarsNextToken = Nothing - , _dsarsStatus = pStatus_ + , _dsarsResponseStatus = pResponseStatus_ } -- | The scheduled actions. @@ -203,5 +203,5 @@ dsarsNextToken = lens _dsarsNextToken (\ s a -> s{_dsarsNextToken = a}); -- | The response status code. -dsarsStatus :: Lens' DescribeScheduledActionsResponse Int -dsarsStatus = lens _dsarsStatus (\ s a -> s{_dsarsStatus = a}); +dsarsResponseStatus :: Lens' DescribeScheduledActionsResponse Int +dsarsResponseStatus = lens _dsarsResponseStatus (\ s a -> s{_dsarsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeTags.hs b/gen/Network/AWS/AutoScaling/DescribeTags.hs --- a/gen/Network/AWS/AutoScaling/DescribeTags.hs +++ b/gen/Network/AWS/AutoScaling/DescribeTags.hs @@ -48,7 +48,7 @@ -- * Response Lenses , dtrsNextToken , dtrsTags - , dtrsStatus + , dtrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -133,9 +133,9 @@ -- | /See:/ 'describeTagsResponse' smart constructor. data DescribeTagsResponse = DescribeTagsResponse' - { _dtrsNextToken :: !(Maybe Text) - , _dtrsTags :: !(Maybe [TagDescription]) - , _dtrsStatus :: !Int + { _dtrsNextToken :: !(Maybe Text) + , _dtrsTags :: !(Maybe [TagDescription]) + , _dtrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request. @@ -146,15 +146,15 @@ -- -- * 'dtrsTags' -- --- * 'dtrsStatus' +-- * 'dtrsResponseStatus' describeTagsResponse - :: Int -- ^ 'dtrsStatus' + :: Int -- ^ 'dtrsResponseStatus' -> DescribeTagsResponse -describeTagsResponse pStatus_ = +describeTagsResponse pResponseStatus_ = DescribeTagsResponse' { _dtrsNextToken = Nothing , _dtrsTags = Nothing - , _dtrsStatus = pStatus_ + , _dtrsResponseStatus = pResponseStatus_ } -- | The token to use when requesting the next set of items. If there are no @@ -167,5 +167,5 @@ dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Default . _Coerce; -- | The response status code. -dtrsStatus :: Lens' DescribeTagsResponse Int -dtrsStatus = lens _dtrsStatus (\ s a -> s{_dtrsStatus = a}); +dtrsResponseStatus :: Lens' DescribeTagsResponse Int +dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs b/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs @@ -32,7 +32,7 @@ , DescribeTerminationPolicyTypesResponse -- * Response Lenses , dtptrsTerminationPolicyTypes - , dtptrsStatus + , dtptrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -84,7 +84,7 @@ -- | /See:/ 'describeTerminationPolicyTypesResponse' smart constructor. data DescribeTerminationPolicyTypesResponse = DescribeTerminationPolicyTypesResponse' { _dtptrsTerminationPolicyTypes :: !(Maybe [Text]) - , _dtptrsStatus :: !Int + , _dtptrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeTerminationPolicyTypesResponse' with the minimum fields required to make a request. @@ -93,14 +93,14 @@ -- -- * 'dtptrsTerminationPolicyTypes' -- --- * 'dtptrsStatus' +-- * 'dtptrsResponseStatus' describeTerminationPolicyTypesResponse - :: Int -- ^ 'dtptrsStatus' + :: Int -- ^ 'dtptrsResponseStatus' -> DescribeTerminationPolicyTypesResponse -describeTerminationPolicyTypesResponse pStatus_ = +describeTerminationPolicyTypesResponse pResponseStatus_ = DescribeTerminationPolicyTypesResponse' { _dtptrsTerminationPolicyTypes = Nothing - , _dtptrsStatus = pStatus_ + , _dtptrsResponseStatus = pResponseStatus_ } -- | The termination policies supported by Auto Scaling ('OldestInstance', @@ -110,5 +110,5 @@ dtptrsTerminationPolicyTypes = lens _dtptrsTerminationPolicyTypes (\ s a -> s{_dtptrsTerminationPolicyTypes = a}) . _Default . _Coerce; -- | The response status code. -dtptrsStatus :: Lens' DescribeTerminationPolicyTypesResponse Int -dtptrsStatus = lens _dtptrsStatus (\ s a -> s{_dtptrsStatus = a}); +dtptrsResponseStatus :: Lens' DescribeTerminationPolicyTypesResponse Int +dtptrsResponseStatus = lens _dtptrsResponseStatus (\ s a -> s{_dtptrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DetachInstances.hs b/gen/Network/AWS/AutoScaling/DetachInstances.hs --- a/gen/Network/AWS/AutoScaling/DetachInstances.hs +++ b/gen/Network/AWS/AutoScaling/DetachInstances.hs @@ -42,7 +42,7 @@ , DetachInstancesResponse -- * Response Lenses , dirsActivities - , dirsStatus + , dirsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -121,8 +121,8 @@ -- | /See:/ 'detachInstancesResponse' smart constructor. data DetachInstancesResponse = DetachInstancesResponse' - { _dirsActivities :: !(Maybe [Activity]) - , _dirsStatus :: !Int + { _dirsActivities :: !(Maybe [Activity]) + , _dirsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DetachInstancesResponse' with the minimum fields required to make a request. @@ -131,14 +131,14 @@ -- -- * 'dirsActivities' -- --- * 'dirsStatus' +-- * 'dirsResponseStatus' detachInstancesResponse - :: Int -- ^ 'dirsStatus' + :: Int -- ^ 'dirsResponseStatus' -> DetachInstancesResponse -detachInstancesResponse pStatus_ = +detachInstancesResponse pResponseStatus_ = DetachInstancesResponse' { _dirsActivities = Nothing - , _dirsStatus = pStatus_ + , _dirsResponseStatus = pResponseStatus_ } -- | The activities related to detaching the instances from the Auto Scaling @@ -147,5 +147,5 @@ dirsActivities = lens _dirsActivities (\ s a -> s{_dirsActivities = a}) . _Default . _Coerce; -- | The response status code. -dirsStatus :: Lens' DetachInstancesResponse Int -dirsStatus = lens _dirsStatus (\ s a -> s{_dirsStatus = a}); +dirsResponseStatus :: Lens' DetachInstancesResponse Int +dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs b/gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs --- a/gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs +++ b/gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs @@ -40,7 +40,7 @@ , detachLoadBalancersResponse , DetachLoadBalancersResponse -- * Response Lenses - , dlbsrsStatus + , dlbsrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -105,22 +105,22 @@ -- | /See:/ 'detachLoadBalancersResponse' smart constructor. newtype DetachLoadBalancersResponse = DetachLoadBalancersResponse' - { _dlbsrsStatus :: Int + { _dlbsrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DetachLoadBalancersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dlbsrsStatus' +-- * 'dlbsrsResponseStatus' detachLoadBalancersResponse - :: Int -- ^ 'dlbsrsStatus' + :: Int -- ^ 'dlbsrsResponseStatus' -> DetachLoadBalancersResponse -detachLoadBalancersResponse pStatus_ = +detachLoadBalancersResponse pResponseStatus_ = DetachLoadBalancersResponse' - { _dlbsrsStatus = pStatus_ + { _dlbsrsResponseStatus = pResponseStatus_ } -- | The response status code. -dlbsrsStatus :: Lens' DetachLoadBalancersResponse Int -dlbsrsStatus = lens _dlbsrsStatus (\ s a -> s{_dlbsrsStatus = a}); +dlbsrsResponseStatus :: Lens' DetachLoadBalancersResponse Int +dlbsrsResponseStatus = lens _dlbsrsResponseStatus (\ s a -> s{_dlbsrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/EnterStandby.hs b/gen/Network/AWS/AutoScaling/EnterStandby.hs --- a/gen/Network/AWS/AutoScaling/EnterStandby.hs +++ b/gen/Network/AWS/AutoScaling/EnterStandby.hs @@ -39,8 +39,8 @@ , enterStandbyResponse , EnterStandbyResponse -- * Response Lenses - , esrsActivities - , esrsStatus + , ersActivities + , ersResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -122,30 +122,30 @@ -- | /See:/ 'enterStandbyResponse' smart constructor. data EnterStandbyResponse = EnterStandbyResponse' - { _esrsActivities :: !(Maybe [Activity]) - , _esrsStatus :: !Int + { _ersActivities :: !(Maybe [Activity]) + , _ersResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'EnterStandbyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'esrsActivities' +-- * 'ersActivities' -- --- * 'esrsStatus' +-- * 'ersResponseStatus' enterStandbyResponse - :: Int -- ^ 'esrsStatus' + :: Int -- ^ 'ersResponseStatus' -> EnterStandbyResponse -enterStandbyResponse pStatus_ = +enterStandbyResponse pResponseStatus_ = EnterStandbyResponse' - { _esrsActivities = Nothing - , _esrsStatus = pStatus_ + { _ersActivities = Nothing + , _ersResponseStatus = pResponseStatus_ } -- | The activities related to moving instances into 'Standby' mode. -esrsActivities :: Lens' EnterStandbyResponse [Activity] -esrsActivities = lens _esrsActivities (\ s a -> s{_esrsActivities = a}) . _Default . _Coerce; +ersActivities :: Lens' EnterStandbyResponse [Activity] +ersActivities = lens _ersActivities (\ s a -> s{_ersActivities = a}) . _Default . _Coerce; -- | The response status code. -esrsStatus :: Lens' EnterStandbyResponse Int -esrsStatus = lens _esrsStatus (\ s a -> s{_esrsStatus = a}); +ersResponseStatus :: Lens' EnterStandbyResponse Int +ersResponseStatus = lens _ersResponseStatus (\ s a -> s{_ersResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/ExitStandby.hs b/gen/Network/AWS/AutoScaling/ExitStandby.hs --- a/gen/Network/AWS/AutoScaling/ExitStandby.hs +++ b/gen/Network/AWS/AutoScaling/ExitStandby.hs @@ -38,8 +38,8 @@ , exitStandbyResponse , ExitStandbyResponse -- * Response Lenses - , ersActivities - , ersStatus + , esrsActivities + , esrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -106,30 +106,30 @@ -- | /See:/ 'exitStandbyResponse' smart constructor. data ExitStandbyResponse = ExitStandbyResponse' - { _ersActivities :: !(Maybe [Activity]) - , _ersStatus :: !Int + { _esrsActivities :: !(Maybe [Activity]) + , _esrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ExitStandbyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ersActivities' +-- * 'esrsActivities' -- --- * 'ersStatus' +-- * 'esrsResponseStatus' exitStandbyResponse - :: Int -- ^ 'ersStatus' + :: Int -- ^ 'esrsResponseStatus' -> ExitStandbyResponse -exitStandbyResponse pStatus_ = +exitStandbyResponse pResponseStatus_ = ExitStandbyResponse' - { _ersActivities = Nothing - , _ersStatus = pStatus_ + { _esrsActivities = Nothing + , _esrsResponseStatus = pResponseStatus_ } -- | The activities related to moving instances out of 'Standby' mode. -ersActivities :: Lens' ExitStandbyResponse [Activity] -ersActivities = lens _ersActivities (\ s a -> s{_ersActivities = a}) . _Default . _Coerce; +esrsActivities :: Lens' ExitStandbyResponse [Activity] +esrsActivities = lens _esrsActivities (\ s a -> s{_esrsActivities = a}) . _Default . _Coerce; -- | The response status code. -ersStatus :: Lens' ExitStandbyResponse Int -ersStatus = lens _ersStatus (\ s a -> s{_ersStatus = a}); +esrsResponseStatus :: Lens' ExitStandbyResponse Int +esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs b/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs --- a/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs +++ b/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs @@ -60,9 +60,9 @@ , plhDefaultResult , plhHeartbeatTimeout , plhNotificationMetadata - , plhRoleARN - , plhLifecycleTransition , plhNotificationTargetARN + , plhLifecycleTransition + , plhRoleARN , plhLifecycleHookName , plhAutoScalingGroupName @@ -70,7 +70,7 @@ , putLifecycleHookResponse , PutLifecycleHookResponse -- * Response Lenses - , plhrsStatus + , plhrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -84,9 +84,9 @@ { _plhDefaultResult :: !(Maybe Text) , _plhHeartbeatTimeout :: !(Maybe Int) , _plhNotificationMetadata :: !(Maybe Text) - , _plhRoleARN :: !(Maybe Text) - , _plhLifecycleTransition :: !(Maybe Text) , _plhNotificationTargetARN :: !(Maybe Text) + , _plhLifecycleTransition :: !(Maybe Text) + , _plhRoleARN :: !(Maybe Text) , _plhLifecycleHookName :: !Text , _plhAutoScalingGroupName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -101,11 +101,11 @@ -- -- * 'plhNotificationMetadata' -- --- * 'plhRoleARN' +-- * 'plhNotificationTargetARN' -- -- * 'plhLifecycleTransition' -- --- * 'plhNotificationTargetARN' +-- * 'plhRoleARN' -- -- * 'plhLifecycleHookName' -- @@ -119,9 +119,9 @@ { _plhDefaultResult = Nothing , _plhHeartbeatTimeout = Nothing , _plhNotificationMetadata = Nothing - , _plhRoleARN = Nothing - , _plhLifecycleTransition = Nothing , _plhNotificationTargetARN = Nothing + , _plhLifecycleTransition = Nothing + , _plhRoleARN = Nothing , _plhLifecycleHookName = pLifecycleHookName_ , _plhAutoScalingGroupName = pAutoScalingGroupName_ } @@ -147,22 +147,6 @@ plhNotificationMetadata :: Lens' PutLifecycleHook (Maybe Text) plhNotificationMetadata = lens _plhNotificationMetadata (\ s a -> s{_plhNotificationMetadata = a}); --- | The ARN of the IAM role that allows the Auto Scaling group to publish to --- the specified notification target. --- --- This parameter is required for new lifecycle hooks, but optional when --- updating existing hooks. -plhRoleARN :: Lens' PutLifecycleHook (Maybe Text) -plhRoleARN = lens _plhRoleARN (\ s a -> s{_plhRoleARN = a}); - --- | The instance state to which you want to attach the lifecycle hook. For a --- list of lifecycle hook types, see DescribeLifecycleHookTypes. --- --- This parameter is required for new lifecycle hooks, but optional when --- updating existing hooks. -plhLifecycleTransition :: Lens' PutLifecycleHook (Maybe Text) -plhLifecycleTransition = lens _plhLifecycleTransition (\ s a -> s{_plhLifecycleTransition = a}); - -- | The ARN of the notification target that Auto Scaling will use to notify -- you when an instance is in the transition state for the lifecycle hook. -- This ARN target can be either an SQS queue or an SNS topic. @@ -190,6 +174,22 @@ plhNotificationTargetARN :: Lens' PutLifecycleHook (Maybe Text) plhNotificationTargetARN = lens _plhNotificationTargetARN (\ s a -> s{_plhNotificationTargetARN = a}); +-- | The instance state to which you want to attach the lifecycle hook. For a +-- list of lifecycle hook types, see DescribeLifecycleHookTypes. +-- +-- This parameter is required for new lifecycle hooks, but optional when +-- updating existing hooks. +plhLifecycleTransition :: Lens' PutLifecycleHook (Maybe Text) +plhLifecycleTransition = lens _plhLifecycleTransition (\ s a -> s{_plhLifecycleTransition = a}); + +-- | The ARN of the IAM role that allows the Auto Scaling group to publish to +-- the specified notification target. +-- +-- This parameter is required for new lifecycle hooks, but optional when +-- updating existing hooks. +plhRoleARN :: Lens' PutLifecycleHook (Maybe Text) +plhRoleARN = lens _plhRoleARN (\ s a -> s{_plhRoleARN = a}); + -- | The name of the lifecycle hook. plhLifecycleHookName :: Lens' PutLifecycleHook Text plhLifecycleHookName = lens _plhLifecycleHookName (\ s a -> s{_plhLifecycleHookName = a}); @@ -221,30 +221,30 @@ "DefaultResult" =: _plhDefaultResult, "HeartbeatTimeout" =: _plhHeartbeatTimeout, "NotificationMetadata" =: _plhNotificationMetadata, - "RoleARN" =: _plhRoleARN, - "LifecycleTransition" =: _plhLifecycleTransition, "NotificationTargetARN" =: _plhNotificationTargetARN, + "LifecycleTransition" =: _plhLifecycleTransition, + "RoleARN" =: _plhRoleARN, "LifecycleHookName" =: _plhLifecycleHookName, "AutoScalingGroupName" =: _plhAutoScalingGroupName] -- | /See:/ 'putLifecycleHookResponse' smart constructor. newtype PutLifecycleHookResponse = PutLifecycleHookResponse' - { _plhrsStatus :: Int + { _plhrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'PutLifecycleHookResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'plhrsStatus' +-- * 'plhrsResponseStatus' putLifecycleHookResponse - :: Int -- ^ 'plhrsStatus' + :: Int -- ^ 'plhrsResponseStatus' -> PutLifecycleHookResponse -putLifecycleHookResponse pStatus_ = +putLifecycleHookResponse pResponseStatus_ = PutLifecycleHookResponse' - { _plhrsStatus = pStatus_ + { _plhrsResponseStatus = pResponseStatus_ } -- | The response status code. -plhrsStatus :: Lens' PutLifecycleHookResponse Int -plhrsStatus = lens _plhrsStatus (\ s a -> s{_plhrsStatus = a}); +plhrsResponseStatus :: Lens' PutLifecycleHookResponse Int +plhrsResponseStatus = lens _plhrsResponseStatus (\ s a -> s{_plhrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs b/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs --- a/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs +++ b/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs @@ -36,8 +36,8 @@ putScalingPolicy , PutScalingPolicy -- * Request Lenses - , pspEstimatedInstanceWarmup , pspMinAdjustmentStep + , pspEstimatedInstanceWarmup , pspPolicyType , pspStepAdjustments , pspScalingAdjustment @@ -53,7 +53,7 @@ , PutScalingPolicyResponse -- * Response Lenses , psprsPolicyARN - , psprsStatus + , psprsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -64,8 +64,8 @@ -- | /See:/ 'putScalingPolicy' smart constructor. data PutScalingPolicy = PutScalingPolicy' - { _pspEstimatedInstanceWarmup :: !(Maybe Int) - , _pspMinAdjustmentStep :: !(Maybe Int) + { _pspMinAdjustmentStep :: !(Maybe Int) + , _pspEstimatedInstanceWarmup :: !(Maybe Int) , _pspPolicyType :: !(Maybe Text) , _pspStepAdjustments :: !(Maybe [StepAdjustment]) , _pspScalingAdjustment :: !(Maybe Int) @@ -81,10 +81,10 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'pspEstimatedInstanceWarmup' --- -- * 'pspMinAdjustmentStep' -- +-- * 'pspEstimatedInstanceWarmup' +-- -- * 'pspPolicyType' -- -- * 'pspStepAdjustments' @@ -109,8 +109,8 @@ -> PutScalingPolicy putScalingPolicy pAutoScalingGroupName_ pPolicyName_ pAdjustmentType_ = PutScalingPolicy' - { _pspEstimatedInstanceWarmup = Nothing - , _pspMinAdjustmentStep = Nothing + { _pspMinAdjustmentStep = Nothing + , _pspEstimatedInstanceWarmup = Nothing , _pspPolicyType = Nothing , _pspStepAdjustments = Nothing , _pspScalingAdjustment = Nothing @@ -122,6 +122,11 @@ , _pspAdjustmentType = pAdjustmentType_ } +-- | Available for backward compatibility. Use 'MinAdjustmentMagnitude' +-- instead. +pspMinAdjustmentStep :: Lens' PutScalingPolicy (Maybe Int) +pspMinAdjustmentStep = lens _pspMinAdjustmentStep (\ s a -> s{_pspMinAdjustmentStep = a}); + -- | The estimated time, in seconds, until a newly launched instance can -- contribute to the CloudWatch metrics. The default is to use the value -- specified for the default cooldown period for the group. @@ -130,11 +135,6 @@ pspEstimatedInstanceWarmup :: Lens' PutScalingPolicy (Maybe Int) pspEstimatedInstanceWarmup = lens _pspEstimatedInstanceWarmup (\ s a -> s{_pspEstimatedInstanceWarmup = a}); --- | Available for backward compatibility. Use 'MinAdjustmentMagnitude' --- instead. -pspMinAdjustmentStep :: Lens' PutScalingPolicy (Maybe Int) -pspMinAdjustmentStep = lens _pspMinAdjustmentStep (\ s a -> s{_pspMinAdjustmentStep = a}); - -- | The policy type. Valid values are 'SimpleScaling' and 'StepScaling'. If -- the policy type is null, the value is treated as 'SimpleScaling'. pspPolicyType :: Lens' PutScalingPolicy (Maybe Text) @@ -222,9 +222,9 @@ = mconcat ["Action" =: ("PutScalingPolicy" :: ByteString), "Version" =: ("2011-01-01" :: ByteString), + "MinAdjustmentStep" =: _pspMinAdjustmentStep, "EstimatedInstanceWarmup" =: _pspEstimatedInstanceWarmup, - "MinAdjustmentStep" =: _pspMinAdjustmentStep, "PolicyType" =: _pspPolicyType, "StepAdjustments" =: toQuery @@ -240,8 +240,8 @@ -- | /See:/ 'putScalingPolicyResponse' smart constructor. data PutScalingPolicyResponse = PutScalingPolicyResponse' - { _psprsPolicyARN :: !(Maybe Text) - , _psprsStatus :: !Int + { _psprsPolicyARN :: !(Maybe Text) + , _psprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'PutScalingPolicyResponse' with the minimum fields required to make a request. @@ -250,14 +250,14 @@ -- -- * 'psprsPolicyARN' -- --- * 'psprsStatus' +-- * 'psprsResponseStatus' putScalingPolicyResponse - :: Int -- ^ 'psprsStatus' + :: Int -- ^ 'psprsResponseStatus' -> PutScalingPolicyResponse -putScalingPolicyResponse pStatus_ = +putScalingPolicyResponse pResponseStatus_ = PutScalingPolicyResponse' { _psprsPolicyARN = Nothing - , _psprsStatus = pStatus_ + , _psprsResponseStatus = pResponseStatus_ } -- | The Amazon Resource Name (ARN) of the policy. @@ -265,5 +265,5 @@ psprsPolicyARN = lens _psprsPolicyARN (\ s a -> s{_psprsPolicyARN = a}); -- | The response status code. -psprsStatus :: Lens' PutScalingPolicyResponse Int -psprsStatus = lens _psprsStatus (\ s a -> s{_psprsStatus = a}); +psprsResponseStatus :: Lens' PutScalingPolicyResponse Int +psprsResponseStatus = lens _psprsResponseStatus (\ s a -> s{_psprsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs b/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs --- a/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs +++ b/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs @@ -34,11 +34,11 @@ putScheduledUpdateGroupAction , PutScheduledUpdateGroupAction -- * Request Lenses - , psugaTime , psugaStartTime + , psugaTime , psugaMaxSize - , psugaDesiredCapacity , psugaRecurrence + , psugaDesiredCapacity , psugaMinSize , psugaEndTime , psugaAutoScalingGroupName @@ -57,11 +57,11 @@ -- | /See:/ 'putScheduledUpdateGroupAction' smart constructor. data PutScheduledUpdateGroupAction = PutScheduledUpdateGroupAction' - { _psugaTime :: !(Maybe ISO8601) - , _psugaStartTime :: !(Maybe ISO8601) + { _psugaStartTime :: !(Maybe ISO8601) + , _psugaTime :: !(Maybe ISO8601) , _psugaMaxSize :: !(Maybe Int) - , _psugaDesiredCapacity :: !(Maybe Int) , _psugaRecurrence :: !(Maybe Text) + , _psugaDesiredCapacity :: !(Maybe Int) , _psugaMinSize :: !(Maybe Int) , _psugaEndTime :: !(Maybe ISO8601) , _psugaAutoScalingGroupName :: !Text @@ -72,16 +72,16 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'psugaTime' --- -- * 'psugaStartTime' -- --- * 'psugaMaxSize' +-- * 'psugaTime' -- --- * 'psugaDesiredCapacity' +-- * 'psugaMaxSize' -- -- * 'psugaRecurrence' -- +-- * 'psugaDesiredCapacity' +-- -- * 'psugaMinSize' -- -- * 'psugaEndTime' @@ -95,24 +95,17 @@ -> PutScheduledUpdateGroupAction putScheduledUpdateGroupAction pAutoScalingGroupName_ pScheduledActionName_ = PutScheduledUpdateGroupAction' - { _psugaTime = Nothing - , _psugaStartTime = Nothing + { _psugaStartTime = Nothing + , _psugaTime = Nothing , _psugaMaxSize = Nothing - , _psugaDesiredCapacity = Nothing , _psugaRecurrence = Nothing + , _psugaDesiredCapacity = Nothing , _psugaMinSize = Nothing , _psugaEndTime = Nothing , _psugaAutoScalingGroupName = pAutoScalingGroupName_ , _psugaScheduledActionName = pScheduledActionName_ } --- | This parameter is deprecated; use 'StartTime' instead. --- --- The time for this action to start. If both 'Time' and 'StartTime' are --- specified, their values must be identical. -psugaTime :: Lens' PutScheduledUpdateGroupAction (Maybe UTCTime) -psugaTime = lens _psugaTime (\ s a -> s{_psugaTime = a}) . mapping _Time; - -- | The time for this action to start, in \"YYYY-MM-DDThh:mm:ssZ\" format in -- UTC\/GMT only (for example, '2014-06-01T00:00:00Z'). -- @@ -124,14 +117,17 @@ psugaStartTime :: Lens' PutScheduledUpdateGroupAction (Maybe UTCTime) psugaStartTime = lens _psugaStartTime (\ s a -> s{_psugaStartTime = a}) . mapping _Time; +-- | This parameter is deprecated; use 'StartTime' instead. +-- +-- The time for this action to start. If both 'Time' and 'StartTime' are +-- specified, their values must be identical. +psugaTime :: Lens' PutScheduledUpdateGroupAction (Maybe UTCTime) +psugaTime = lens _psugaTime (\ s a -> s{_psugaTime = a}) . mapping _Time; + -- | The maximum size for the Auto Scaling group. psugaMaxSize :: Lens' PutScheduledUpdateGroupAction (Maybe Int) psugaMaxSize = lens _psugaMaxSize (\ s a -> s{_psugaMaxSize = a}); --- | The number of EC2 instances that should be running in the group. -psugaDesiredCapacity :: Lens' PutScheduledUpdateGroupAction (Maybe Int) -psugaDesiredCapacity = lens _psugaDesiredCapacity (\ s a -> s{_psugaDesiredCapacity = a}); - -- | The time when recurring future actions will start. Start time is -- specified by the user following the Unix cron syntax format. For more -- information, see in Wikipedia. @@ -141,6 +137,10 @@ psugaRecurrence :: Lens' PutScheduledUpdateGroupAction (Maybe Text) psugaRecurrence = lens _psugaRecurrence (\ s a -> s{_psugaRecurrence = a}); +-- | The number of EC2 instances that should be running in the group. +psugaDesiredCapacity :: Lens' PutScheduledUpdateGroupAction (Maybe Int) +psugaDesiredCapacity = lens _psugaDesiredCapacity (\ s a -> s{_psugaDesiredCapacity = a}); + -- | The minimum size for the Auto Scaling group. psugaMinSize :: Lens' PutScheduledUpdateGroupAction (Maybe Int) psugaMinSize = lens _psugaMinSize (\ s a -> s{_psugaMinSize = a}); @@ -178,10 +178,10 @@ ["Action" =: ("PutScheduledUpdateGroupAction" :: ByteString), "Version" =: ("2011-01-01" :: ByteString), - "Time" =: _psugaTime, "StartTime" =: _psugaStartTime, + "StartTime" =: _psugaStartTime, "Time" =: _psugaTime, "MaxSize" =: _psugaMaxSize, - "DesiredCapacity" =: _psugaDesiredCapacity, "Recurrence" =: _psugaRecurrence, + "DesiredCapacity" =: _psugaDesiredCapacity, "MinSize" =: _psugaMinSize, "EndTime" =: _psugaEndTime, "AutoScalingGroupName" =: _psugaAutoScalingGroupName, diff --git a/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs b/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs --- a/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs +++ b/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs @@ -56,7 +56,7 @@ , recordLifecycleActionHeartbeatResponse , RecordLifecycleActionHeartbeatResponse -- * Response Lenses - , rlahrsStatus + , rlahrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -138,22 +138,22 @@ -- | /See:/ 'recordLifecycleActionHeartbeatResponse' smart constructor. newtype RecordLifecycleActionHeartbeatResponse = RecordLifecycleActionHeartbeatResponse' - { _rlahrsStatus :: Int + { _rlahrsResponseStatus :: Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RecordLifecycleActionHeartbeatResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rlahrsStatus' +-- * 'rlahrsResponseStatus' recordLifecycleActionHeartbeatResponse - :: Int -- ^ 'rlahrsStatus' + :: Int -- ^ 'rlahrsResponseStatus' -> RecordLifecycleActionHeartbeatResponse -recordLifecycleActionHeartbeatResponse pStatus_ = +recordLifecycleActionHeartbeatResponse pResponseStatus_ = RecordLifecycleActionHeartbeatResponse' - { _rlahrsStatus = pStatus_ + { _rlahrsResponseStatus = pResponseStatus_ } -- | The response status code. -rlahrsStatus :: Lens' RecordLifecycleActionHeartbeatResponse Int -rlahrsStatus = lens _rlahrsStatus (\ s a -> s{_rlahrsStatus = a}); +rlahrsResponseStatus :: Lens' RecordLifecycleActionHeartbeatResponse Int +rlahrsResponseStatus = lens _rlahrsResponseStatus (\ s a -> s{_rlahrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs @@ -39,7 +39,7 @@ , TerminateInstanceInAutoScalingGroupResponse -- * Response Lenses , tiiasgrsActivity - , tiiasgrsStatus + , tiiasgrsResponseStatus ) where import Network.AWS.AutoScaling.Types @@ -114,8 +114,8 @@ -- | /See:/ 'terminateInstanceInAutoScalingGroupResponse' smart constructor. data TerminateInstanceInAutoScalingGroupResponse = TerminateInstanceInAutoScalingGroupResponse' - { _tiiasgrsActivity :: !(Maybe Activity) - , _tiiasgrsStatus :: !Int + { _tiiasgrsActivity :: !(Maybe Activity) + , _tiiasgrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'TerminateInstanceInAutoScalingGroupResponse' with the minimum fields required to make a request. @@ -124,14 +124,14 @@ -- -- * 'tiiasgrsActivity' -- --- * 'tiiasgrsStatus' +-- * 'tiiasgrsResponseStatus' terminateInstanceInAutoScalingGroupResponse - :: Int -- ^ 'tiiasgrsStatus' + :: Int -- ^ 'tiiasgrsResponseStatus' -> TerminateInstanceInAutoScalingGroupResponse -terminateInstanceInAutoScalingGroupResponse pStatus_ = +terminateInstanceInAutoScalingGroupResponse pResponseStatus_ = TerminateInstanceInAutoScalingGroupResponse' { _tiiasgrsActivity = Nothing - , _tiiasgrsStatus = pStatus_ + , _tiiasgrsResponseStatus = pResponseStatus_ } -- | A scaling activity. @@ -139,5 +139,5 @@ tiiasgrsActivity = lens _tiiasgrsActivity (\ s a -> s{_tiiasgrsActivity = a}); -- | The response status code. -tiiasgrsStatus :: Lens' TerminateInstanceInAutoScalingGroupResponse Int -tiiasgrsStatus = lens _tiiasgrsStatus (\ s a -> s{_tiiasgrsStatus = a}); +tiiasgrsResponseStatus :: Lens' TerminateInstanceInAutoScalingGroupResponse Int +tiiasgrsResponseStatus = lens _tiiasgrsResponseStatus (\ s a -> s{_tiiasgrsResponseStatus = a}); diff --git a/gen/Network/AWS/AutoScaling/Types.hs b/gen/Network/AWS/AutoScaling/Types.hs --- a/gen/Network/AWS/AutoScaling/Types.hs +++ b/gen/Network/AWS/AutoScaling/Types.hs @@ -16,8 +16,8 @@ autoScaling -- * Errors - , _LimitExceededFault , _AlreadyExistsFault + , _LimitExceededFault , _ResourceInUseFault , _InvalidNextToken , _ScalingActivityInProgressFault @@ -34,8 +34,8 @@ , activity , aProgress , aStatusMessage - , aDetails , aEndTime + , aDetails , aDescription , aActivityId , aAutoScalingGroupName @@ -62,11 +62,11 @@ , asgHealthCheckGracePeriod , asgVPCZoneIdentifier , asgEnabledMetrics - , asgInstances , asgLaunchConfigurationName + , asgInstances , asgAutoScalingGroupARN - , asgSuspendedProcesses , asgPlacementGroup + , asgSuspendedProcesses , asgLoadBalancerNames , asgTags , asgAutoScalingGroupName @@ -134,10 +134,10 @@ -- * LaunchConfiguration , LaunchConfiguration , launchConfiguration - , lcSecurityGroups , lcAssociatePublicIPAddress - , lcInstanceMonitoring + , lcSecurityGroups , lcSpotPrice + , lcInstanceMonitoring , lcKeyName , lcClassicLinkVPCSecurityGroups , lcRAMDiskId @@ -163,9 +163,9 @@ , lhAutoScalingGroupName , lhNotificationMetadata , lhGlobalTimeout - , lhRoleARN - , lhLifecycleTransition , lhNotificationTargetARN + , lhLifecycleTransition + , lhRoleARN -- * LoadBalancerState , LoadBalancerState @@ -198,14 +198,14 @@ -- * ScalingPolicy , ScalingPolicy , scalingPolicy - , sEstimatedInstanceWarmup , sMinAdjustmentStep + , sEstimatedInstanceWarmup , sPolicyName , sPolicyType , sStepAdjustments , sAdjustmentType - , sScalingAdjustment , sAutoScalingGroupName + , sScalingAdjustment , sCooldown , sPolicyARN , sAlarms @@ -222,15 +222,15 @@ , ScheduledUpdateGroupAction , scheduledUpdateGroupAction , sugaScheduledActionARN - , sugaTime , sugaStartTime + , sugaTime , sugaScheduledActionName , sugaMaxSize - , sugaDesiredCapacity , sugaRecurrence + , sugaDesiredCapacity , sugaMinSize - , sugaEndTime , sugaAutoScalingGroupName + , sugaEndTime -- * StepAdjustment , StepAdjustment @@ -300,16 +300,16 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing +-- | You already have an Auto Scaling group or launch configuration with this +-- name. +_AlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError +_AlreadyExistsFault = _ServiceError . hasStatus 400 . hasCode "AlreadyExists" + -- | You have already reached a limit for your Auto Scaling resources (for -- example, groups, launch configurations, or lifecycle hooks). For more -- information, see DescribeAccountLimits. _LimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededFault = _ServiceError . hasStatus 400 . hasCode "LimitExceeded" - --- | You already have an Auto Scaling group or launch configuration with this --- name. -_AlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError -_AlreadyExistsFault = _ServiceError . hasStatus 400 . hasCode "AlreadyExists" -- | The Auto Scaling group or launch configuration can\'t be deleted because -- it is in use. diff --git a/gen/Network/AWS/AutoScaling/Types/Product.hs b/gen/Network/AWS/AutoScaling/Types/Product.hs --- a/gen/Network/AWS/AutoScaling/Types/Product.hs +++ b/gen/Network/AWS/AutoScaling/Types/Product.hs @@ -28,8 +28,8 @@ data Activity = Activity' { _aProgress :: !(Maybe Int) , _aStatusMessage :: !(Maybe Text) - , _aDetails :: !(Maybe Text) , _aEndTime :: !(Maybe ISO8601) + , _aDetails :: !(Maybe Text) , _aDescription :: !(Maybe Text) , _aActivityId :: !Text , _aAutoScalingGroupName :: !Text @@ -46,10 +46,10 @@ -- -- * 'aStatusMessage' -- --- * 'aDetails' --- -- * 'aEndTime' -- +-- * 'aDetails' +-- -- * 'aDescription' -- -- * 'aActivityId' @@ -72,8 +72,8 @@ Activity' { _aProgress = Nothing , _aStatusMessage = Nothing - , _aDetails = Nothing , _aEndTime = Nothing + , _aDetails = Nothing , _aDescription = Nothing , _aActivityId = pActivityId_ , _aAutoScalingGroupName = pAutoScalingGroupName_ @@ -90,14 +90,14 @@ aStatusMessage :: Lens' Activity (Maybe Text) aStatusMessage = lens _aStatusMessage (\ s a -> s{_aStatusMessage = a}); --- | The details about the activity. -aDetails :: Lens' Activity (Maybe Text) -aDetails = lens _aDetails (\ s a -> s{_aDetails = a}); - -- | The end time of the activity. aEndTime :: Lens' Activity (Maybe UTCTime) aEndTime = lens _aEndTime (\ s a -> s{_aEndTime = a}) . mapping _Time; +-- | The details about the activity. +aDetails :: Lens' Activity (Maybe Text) +aDetails = lens _aDetails (\ s a -> s{_aDetails = a}); + -- | A friendly, more verbose description of the activity. aDescription :: Lens' Activity (Maybe Text) aDescription = lens _aDescription (\ s a -> s{_aDescription = a}); @@ -126,8 +126,8 @@ parseXML x = Activity' <$> (x .@? "Progress") <*> (x .@? "StatusMessage") <*> - (x .@? "Details") - <*> (x .@? "EndTime") + (x .@? "EndTime") + <*> (x .@? "Details") <*> (x .@? "Description") <*> (x .@ "ActivityId") <*> (x .@ "AutoScalingGroupName") @@ -212,11 +212,11 @@ , _asgHealthCheckGracePeriod :: !(Maybe Int) , _asgVPCZoneIdentifier :: !(Maybe Text) , _asgEnabledMetrics :: !(Maybe [EnabledMetric]) - , _asgInstances :: !(Maybe [Instance]) , _asgLaunchConfigurationName :: !(Maybe Text) + , _asgInstances :: !(Maybe [Instance]) , _asgAutoScalingGroupARN :: !(Maybe Text) - , _asgSuspendedProcesses :: !(Maybe [SuspendedProcess]) , _asgPlacementGroup :: !(Maybe Text) + , _asgSuspendedProcesses :: !(Maybe [SuspendedProcess]) , _asgLoadBalancerNames :: !(Maybe [Text]) , _asgTags :: !(Maybe [TagDescription]) , _asgAutoScalingGroupName :: !Text @@ -243,16 +243,16 @@ -- -- * 'asgEnabledMetrics' -- --- * 'asgInstances' --- -- * 'asgLaunchConfigurationName' -- --- * 'asgAutoScalingGroupARN' +-- * 'asgInstances' -- --- * 'asgSuspendedProcesses' +-- * 'asgAutoScalingGroupARN' -- -- * 'asgPlacementGroup' -- +-- * 'asgSuspendedProcesses' +-- -- * 'asgLoadBalancerNames' -- -- * 'asgTags' @@ -289,11 +289,11 @@ , _asgHealthCheckGracePeriod = Nothing , _asgVPCZoneIdentifier = Nothing , _asgEnabledMetrics = Nothing - , _asgInstances = Nothing , _asgLaunchConfigurationName = Nothing + , _asgInstances = Nothing , _asgAutoScalingGroupARN = Nothing - , _asgSuspendedProcesses = Nothing , _asgPlacementGroup = Nothing + , _asgSuspendedProcesses = Nothing , _asgLoadBalancerNames = Nothing , _asgTags = Nothing , _asgAutoScalingGroupName = pAutoScalingGroupName_ @@ -333,28 +333,28 @@ asgEnabledMetrics :: Lens' AutoScalingGroup [EnabledMetric] asgEnabledMetrics = lens _asgEnabledMetrics (\ s a -> s{_asgEnabledMetrics = a}) . _Default . _Coerce; --- | The EC2 instances associated with the group. -asgInstances :: Lens' AutoScalingGroup [Instance] -asgInstances = lens _asgInstances (\ s a -> s{_asgInstances = a}) . _Default . _Coerce; - -- | The name of the associated launch configuration. asgLaunchConfigurationName :: Lens' AutoScalingGroup (Maybe Text) asgLaunchConfigurationName = lens _asgLaunchConfigurationName (\ s a -> s{_asgLaunchConfigurationName = a}); +-- | The EC2 instances associated with the group. +asgInstances :: Lens' AutoScalingGroup [Instance] +asgInstances = lens _asgInstances (\ s a -> s{_asgInstances = a}) . _Default . _Coerce; + -- | The Amazon Resource Name (ARN) of the group. asgAutoScalingGroupARN :: Lens' AutoScalingGroup (Maybe Text) asgAutoScalingGroupARN = lens _asgAutoScalingGroupARN (\ s a -> s{_asgAutoScalingGroupARN = a}); --- | The suspended processes associated with the group. -asgSuspendedProcesses :: Lens' AutoScalingGroup [SuspendedProcess] -asgSuspendedProcesses = lens _asgSuspendedProcesses (\ s a -> s{_asgSuspendedProcesses = a}) . _Default . _Coerce; - -- | The name of the placement group into which you\'ll launch your -- instances, if any. For more information, see -- . asgPlacementGroup :: Lens' AutoScalingGroup (Maybe Text) asgPlacementGroup = lens _asgPlacementGroup (\ s a -> s{_asgPlacementGroup = a}); +-- | The suspended processes associated with the group. +asgSuspendedProcesses :: Lens' AutoScalingGroup [SuspendedProcess] +asgSuspendedProcesses = lens _asgSuspendedProcesses (\ s a -> s{_asgSuspendedProcesses = a}) . _Default . _Coerce; + -- | One or more load balancers associated with the group. asgLoadBalancerNames :: Lens' AutoScalingGroup [Text] asgLoadBalancerNames = lens _asgLoadBalancerNames (\ s a -> s{_asgLoadBalancerNames = a}) . _Default . _Coerce; @@ -408,15 +408,15 @@ <*> (x .@? "EnabledMetrics" .!@ mempty >>= may (parseXMLList "member")) + <*> (x .@? "LaunchConfigurationName") <*> (x .@? "Instances" .!@ mempty >>= may (parseXMLList "member")) - <*> (x .@? "LaunchConfigurationName") <*> (x .@? "AutoScalingGroupARN") + <*> (x .@? "PlacementGroup") <*> (x .@? "SuspendedProcesses" .!@ mempty >>= may (parseXMLList "member")) - <*> (x .@? "PlacementGroup") <*> (x .@? "LoadBalancerNames" .!@ mempty >>= may (parseXMLList "member")) @@ -872,10 +872,10 @@ -- -- /See:/ 'launchConfiguration' smart constructor. data LaunchConfiguration = LaunchConfiguration' - { _lcSecurityGroups :: !(Maybe [Text]) - , _lcAssociatePublicIPAddress :: !(Maybe Bool) - , _lcInstanceMonitoring :: !(Maybe InstanceMonitoring) + { _lcAssociatePublicIPAddress :: !(Maybe Bool) + , _lcSecurityGroups :: !(Maybe [Text]) , _lcSpotPrice :: !(Maybe Text) + , _lcInstanceMonitoring :: !(Maybe InstanceMonitoring) , _lcKeyName :: !(Maybe Text) , _lcClassicLinkVPCSecurityGroups :: !(Maybe [Text]) , _lcRAMDiskId :: !(Maybe Text) @@ -897,14 +897,14 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lcSecurityGroups' --- -- * 'lcAssociatePublicIPAddress' -- --- * 'lcInstanceMonitoring' +-- * 'lcSecurityGroups' -- -- * 'lcSpotPrice' -- +-- * 'lcInstanceMonitoring' +-- -- * 'lcKeyName' -- -- * 'lcClassicLinkVPCSecurityGroups' @@ -942,10 +942,10 @@ -> LaunchConfiguration launchConfiguration pLaunchConfigurationName_ pImageId_ pInstanceType_ pCreatedTime_ = LaunchConfiguration' - { _lcSecurityGroups = Nothing - , _lcAssociatePublicIPAddress = Nothing - , _lcInstanceMonitoring = Nothing + { _lcAssociatePublicIPAddress = Nothing + , _lcSecurityGroups = Nothing , _lcSpotPrice = Nothing + , _lcInstanceMonitoring = Nothing , _lcKeyName = Nothing , _lcClassicLinkVPCSecurityGroups = Nothing , _lcRAMDiskId = Nothing @@ -963,24 +963,24 @@ , _lcCreatedTime = _Time # pCreatedTime_ } --- | The security groups to associate with the instances. -lcSecurityGroups :: Lens' LaunchConfiguration [Text] -lcSecurityGroups = lens _lcSecurityGroups (\ s a -> s{_lcSecurityGroups = a}) . _Default . _Coerce; - -- | Specifies whether the instances are associated with a public IP address -- ('true') or not ('false'). lcAssociatePublicIPAddress :: Lens' LaunchConfiguration (Maybe Bool) lcAssociatePublicIPAddress = lens _lcAssociatePublicIPAddress (\ s a -> s{_lcAssociatePublicIPAddress = a}); --- | Controls whether instances in this group are launched with detailed --- monitoring. -lcInstanceMonitoring :: Lens' LaunchConfiguration (Maybe InstanceMonitoring) -lcInstanceMonitoring = lens _lcInstanceMonitoring (\ s a -> s{_lcInstanceMonitoring = a}); +-- | The security groups to associate with the instances. +lcSecurityGroups :: Lens' LaunchConfiguration [Text] +lcSecurityGroups = lens _lcSecurityGroups (\ s a -> s{_lcSecurityGroups = a}) . _Default . _Coerce; -- | The price to bid when launching Spot Instances. lcSpotPrice :: Lens' LaunchConfiguration (Maybe Text) lcSpotPrice = lens _lcSpotPrice (\ s a -> s{_lcSpotPrice = a}); +-- | Controls whether instances in this group are launched with detailed +-- monitoring. +lcInstanceMonitoring :: Lens' LaunchConfiguration (Maybe InstanceMonitoring) +lcInstanceMonitoring = lens _lcInstanceMonitoring (\ s a -> s{_lcInstanceMonitoring = a}); + -- | The name of the key pair. lcKeyName :: Lens' LaunchConfiguration (Maybe Text) lcKeyName = lens _lcKeyName (\ s a -> s{_lcKeyName = a}); @@ -1057,11 +1057,11 @@ instance FromXML LaunchConfiguration where parseXML x = LaunchConfiguration' <$> - (x .@? "SecurityGroups" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "AssociatePublicIpAddress") - <*> (x .@? "InstanceMonitoring") + (x .@? "AssociatePublicIpAddress") <*> + (x .@? "SecurityGroups" .!@ mempty >>= + may (parseXMLList "member")) <*> (x .@? "SpotPrice") + <*> (x .@? "InstanceMonitoring") <*> (x .@? "KeyName") <*> (x .@? "ClassicLinkVPCSecurityGroups" .!@ mempty >>= @@ -1105,9 +1105,9 @@ , _lhAutoScalingGroupName :: !(Maybe Text) , _lhNotificationMetadata :: !(Maybe Text) , _lhGlobalTimeout :: !(Maybe Int) - , _lhRoleARN :: !(Maybe Text) - , _lhLifecycleTransition :: !(Maybe Text) , _lhNotificationTargetARN :: !(Maybe Text) + , _lhLifecycleTransition :: !(Maybe Text) + , _lhRoleARN :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'LifecycleHook' with the minimum fields required to make a request. @@ -1126,11 +1126,11 @@ -- -- * 'lhGlobalTimeout' -- --- * 'lhRoleARN' +-- * 'lhNotificationTargetARN' -- -- * 'lhLifecycleTransition' -- --- * 'lhNotificationTargetARN' +-- * 'lhRoleARN' lifecycleHook :: LifecycleHook lifecycleHook = @@ -1141,9 +1141,9 @@ , _lhAutoScalingGroupName = Nothing , _lhNotificationMetadata = Nothing , _lhGlobalTimeout = Nothing - , _lhRoleARN = Nothing - , _lhLifecycleTransition = Nothing , _lhNotificationTargetARN = Nothing + , _lhLifecycleTransition = Nothing + , _lhRoleARN = Nothing } -- | Defines the action the Auto Scaling group should take when the lifecycle @@ -1177,17 +1177,6 @@ lhGlobalTimeout :: Lens' LifecycleHook (Maybe Int) lhGlobalTimeout = lens _lhGlobalTimeout (\ s a -> s{_lhGlobalTimeout = a}); --- | The ARN of the IAM role that allows the Auto Scaling group to publish to --- the specified notification target. -lhRoleARN :: Lens' LifecycleHook (Maybe Text) -lhRoleARN = lens _lhRoleARN (\ s a -> s{_lhRoleARN = a}); - --- | The state of the EC2 instance to which you want to attach the lifecycle --- hook. For a list of lifecycle hook types, see --- DescribeLifecycleHookTypes. -lhLifecycleTransition :: Lens' LifecycleHook (Maybe Text) -lhLifecycleTransition = lens _lhLifecycleTransition (\ s a -> s{_lhLifecycleTransition = a}); - -- | The ARN of the notification target that Auto Scaling uses to notify you -- when an instance is in the transition state for the lifecycle hook. This -- ARN target can be either an SQS queue or an SNS topic. The notification @@ -1203,6 +1192,17 @@ lhNotificationTargetARN :: Lens' LifecycleHook (Maybe Text) lhNotificationTargetARN = lens _lhNotificationTargetARN (\ s a -> s{_lhNotificationTargetARN = a}); +-- | The state of the EC2 instance to which you want to attach the lifecycle +-- hook. For a list of lifecycle hook types, see +-- DescribeLifecycleHookTypes. +lhLifecycleTransition :: Lens' LifecycleHook (Maybe Text) +lhLifecycleTransition = lens _lhLifecycleTransition (\ s a -> s{_lhLifecycleTransition = a}); + +-- | The ARN of the IAM role that allows the Auto Scaling group to publish to +-- the specified notification target. +lhRoleARN :: Lens' LifecycleHook (Maybe Text) +lhRoleARN = lens _lhRoleARN (\ s a -> s{_lhRoleARN = a}); + instance FromXML LifecycleHook where parseXML x = LifecycleHook' <$> @@ -1212,9 +1212,9 @@ <*> (x .@? "AutoScalingGroupName") <*> (x .@? "NotificationMetadata") <*> (x .@? "GlobalTimeout") - <*> (x .@? "RoleARN") - <*> (x .@? "LifecycleTransition") <*> (x .@? "NotificationTargetARN") + <*> (x .@? "LifecycleTransition") + <*> (x .@? "RoleARN") -- | Describes the state of a load balancer. -- @@ -1447,14 +1447,14 @@ -- -- /See:/ 'scalingPolicy' smart constructor. data ScalingPolicy = ScalingPolicy' - { _sEstimatedInstanceWarmup :: !(Maybe Int) - , _sMinAdjustmentStep :: !(Maybe Int) + { _sMinAdjustmentStep :: !(Maybe Int) + , _sEstimatedInstanceWarmup :: !(Maybe Int) , _sPolicyName :: !(Maybe Text) , _sPolicyType :: !(Maybe Text) , _sStepAdjustments :: !(Maybe [StepAdjustment]) , _sAdjustmentType :: !(Maybe Text) - , _sScalingAdjustment :: !(Maybe Int) , _sAutoScalingGroupName :: !(Maybe Text) + , _sScalingAdjustment :: !(Maybe Int) , _sCooldown :: !(Maybe Int) , _sPolicyARN :: !(Maybe Text) , _sAlarms :: !(Maybe [Alarm]) @@ -1466,10 +1466,10 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'sEstimatedInstanceWarmup' --- -- * 'sMinAdjustmentStep' -- +-- * 'sEstimatedInstanceWarmup' +-- -- * 'sPolicyName' -- -- * 'sPolicyType' @@ -1478,10 +1478,10 @@ -- -- * 'sAdjustmentType' -- --- * 'sScalingAdjustment' --- -- * 'sAutoScalingGroupName' -- +-- * 'sScalingAdjustment' +-- -- * 'sCooldown' -- -- * 'sPolicyARN' @@ -1495,14 +1495,14 @@ :: ScalingPolicy scalingPolicy = ScalingPolicy' - { _sEstimatedInstanceWarmup = Nothing - , _sMinAdjustmentStep = Nothing + { _sMinAdjustmentStep = Nothing + , _sEstimatedInstanceWarmup = Nothing , _sPolicyName = Nothing , _sPolicyType = Nothing , _sStepAdjustments = Nothing , _sAdjustmentType = Nothing - , _sScalingAdjustment = Nothing , _sAutoScalingGroupName = Nothing + , _sScalingAdjustment = Nothing , _sCooldown = Nothing , _sPolicyARN = Nothing , _sAlarms = Nothing @@ -1510,16 +1510,16 @@ , _sMinAdjustmentMagnitude = Nothing } --- | The estimated time, in seconds, until a newly launched instance can --- contribute to the CloudWatch metrics. -sEstimatedInstanceWarmup :: Lens' ScalingPolicy (Maybe Int) -sEstimatedInstanceWarmup = lens _sEstimatedInstanceWarmup (\ s a -> s{_sEstimatedInstanceWarmup = a}); - -- | Available for backward compatibility. Use 'MinAdjustmentMagnitude' -- instead. sMinAdjustmentStep :: Lens' ScalingPolicy (Maybe Int) sMinAdjustmentStep = lens _sMinAdjustmentStep (\ s a -> s{_sMinAdjustmentStep = a}); +-- | The estimated time, in seconds, until a newly launched instance can +-- contribute to the CloudWatch metrics. +sEstimatedInstanceWarmup :: Lens' ScalingPolicy (Maybe Int) +sEstimatedInstanceWarmup = lens _sEstimatedInstanceWarmup (\ s a -> s{_sEstimatedInstanceWarmup = a}); + -- | The name of the scaling policy. sPolicyName :: Lens' ScalingPolicy (Maybe Text) sPolicyName = lens _sPolicyName (\ s a -> s{_sPolicyName = a}); @@ -1539,16 +1539,16 @@ sAdjustmentType :: Lens' ScalingPolicy (Maybe Text) sAdjustmentType = lens _sAdjustmentType (\ s a -> s{_sAdjustmentType = a}); +-- | The name of the Auto Scaling group associated with this scaling policy. +sAutoScalingGroupName :: Lens' ScalingPolicy (Maybe Text) +sAutoScalingGroupName = lens _sAutoScalingGroupName (\ s a -> s{_sAutoScalingGroupName = a}); + -- | The amount by which to scale, based on the specified adjustment type. A -- positive value adds to the current capacity while a negative number -- removes from the current capacity. sScalingAdjustment :: Lens' ScalingPolicy (Maybe Int) sScalingAdjustment = lens _sScalingAdjustment (\ s a -> s{_sScalingAdjustment = a}); --- | The name of the Auto Scaling group associated with this scaling policy. -sAutoScalingGroupName :: Lens' ScalingPolicy (Maybe Text) -sAutoScalingGroupName = lens _sAutoScalingGroupName (\ s a -> s{_sAutoScalingGroupName = a}); - -- | The amount of time, in seconds, after a scaling activity completes -- before any further trigger-related scaling activities can start. sCooldown :: Lens' ScalingPolicy (Maybe Int) @@ -1577,16 +1577,16 @@ instance FromXML ScalingPolicy where parseXML x = ScalingPolicy' <$> - (x .@? "EstimatedInstanceWarmup") <*> - (x .@? "MinAdjustmentStep") + (x .@? "MinAdjustmentStep") <*> + (x .@? "EstimatedInstanceWarmup") <*> (x .@? "PolicyName") <*> (x .@? "PolicyType") <*> (x .@? "StepAdjustments" .!@ mempty >>= may (parseXMLList "member")) <*> (x .@? "AdjustmentType") - <*> (x .@? "ScalingAdjustment") <*> (x .@? "AutoScalingGroupName") + <*> (x .@? "ScalingAdjustment") <*> (x .@? "Cooldown") <*> (x .@? "PolicyARN") <*> @@ -1655,15 +1655,15 @@ -- /See:/ 'scheduledUpdateGroupAction' smart constructor. data ScheduledUpdateGroupAction = ScheduledUpdateGroupAction' { _sugaScheduledActionARN :: !(Maybe Text) - , _sugaTime :: !(Maybe ISO8601) , _sugaStartTime :: !(Maybe ISO8601) + , _sugaTime :: !(Maybe ISO8601) , _sugaScheduledActionName :: !(Maybe Text) , _sugaMaxSize :: !(Maybe Int) - , _sugaDesiredCapacity :: !(Maybe Int) , _sugaRecurrence :: !(Maybe Text) + , _sugaDesiredCapacity :: !(Maybe Int) , _sugaMinSize :: !(Maybe Int) - , _sugaEndTime :: !(Maybe ISO8601) , _sugaAutoScalingGroupName :: !(Maybe Text) + , _sugaEndTime :: !(Maybe ISO8601) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ScheduledUpdateGroupAction' with the minimum fields required to make a request. @@ -1672,47 +1672,43 @@ -- -- * 'sugaScheduledActionARN' -- --- * 'sugaTime' --- -- * 'sugaStartTime' -- +-- * 'sugaTime' +-- -- * 'sugaScheduledActionName' -- -- * 'sugaMaxSize' -- --- * 'sugaDesiredCapacity' --- -- * 'sugaRecurrence' -- --- * 'sugaMinSize' +-- * 'sugaDesiredCapacity' -- --- * 'sugaEndTime' +-- * 'sugaMinSize' -- -- * 'sugaAutoScalingGroupName' +-- +-- * 'sugaEndTime' scheduledUpdateGroupAction :: ScheduledUpdateGroupAction scheduledUpdateGroupAction = ScheduledUpdateGroupAction' { _sugaScheduledActionARN = Nothing - , _sugaTime = Nothing , _sugaStartTime = Nothing + , _sugaTime = Nothing , _sugaScheduledActionName = Nothing , _sugaMaxSize = Nothing - , _sugaDesiredCapacity = Nothing , _sugaRecurrence = Nothing + , _sugaDesiredCapacity = Nothing , _sugaMinSize = Nothing - , _sugaEndTime = Nothing , _sugaAutoScalingGroupName = Nothing + , _sugaEndTime = Nothing } -- | The Amazon Resource Name (ARN) of the scheduled action. sugaScheduledActionARN :: Lens' ScheduledUpdateGroupAction (Maybe Text) sugaScheduledActionARN = lens _sugaScheduledActionARN (\ s a -> s{_sugaScheduledActionARN = a}); --- | This parameter is deprecated; use 'StartTime' instead. -sugaTime :: Lens' ScheduledUpdateGroupAction (Maybe UTCTime) -sugaTime = lens _sugaTime (\ s a -> s{_sugaTime = a}) . mapping _Time; - -- | The date and time that the action is scheduled to begin. This date and -- time can be up to one month in the future. -- @@ -1721,6 +1717,10 @@ sugaStartTime :: Lens' ScheduledUpdateGroupAction (Maybe UTCTime) sugaStartTime = lens _sugaStartTime (\ s a -> s{_sugaStartTime = a}) . mapping _Time; +-- | This parameter is deprecated; use 'StartTime' instead. +sugaTime :: Lens' ScheduledUpdateGroupAction (Maybe UTCTime) +sugaTime = lens _sugaTime (\ s a -> s{_sugaTime = a}) . mapping _Time; + -- | The name of the scheduled action. sugaScheduledActionName :: Lens' ScheduledUpdateGroupAction (Maybe Text) sugaScheduledActionName = lens _sugaScheduledActionName (\ s a -> s{_sugaScheduledActionName = a}); @@ -1729,39 +1729,39 @@ sugaMaxSize :: Lens' ScheduledUpdateGroupAction (Maybe Int) sugaMaxSize = lens _sugaMaxSize (\ s a -> s{_sugaMaxSize = a}); --- | The number of instances you prefer to maintain in the group. -sugaDesiredCapacity :: Lens' ScheduledUpdateGroupAction (Maybe Int) -sugaDesiredCapacity = lens _sugaDesiredCapacity (\ s a -> s{_sugaDesiredCapacity = a}); - -- | The recurring schedule for the action. sugaRecurrence :: Lens' ScheduledUpdateGroupAction (Maybe Text) sugaRecurrence = lens _sugaRecurrence (\ s a -> s{_sugaRecurrence = a}); +-- | The number of instances you prefer to maintain in the group. +sugaDesiredCapacity :: Lens' ScheduledUpdateGroupAction (Maybe Int) +sugaDesiredCapacity = lens _sugaDesiredCapacity (\ s a -> s{_sugaDesiredCapacity = a}); + -- | The minimum size of the group. sugaMinSize :: Lens' ScheduledUpdateGroupAction (Maybe Int) sugaMinSize = lens _sugaMinSize (\ s a -> s{_sugaMinSize = a}); +-- | The name of the group. +sugaAutoScalingGroupName :: Lens' ScheduledUpdateGroupAction (Maybe Text) +sugaAutoScalingGroupName = lens _sugaAutoScalingGroupName (\ s a -> s{_sugaAutoScalingGroupName = a}); + -- | The date and time that the action is scheduled to end. This date and -- time can be up to one month in the future. sugaEndTime :: Lens' ScheduledUpdateGroupAction (Maybe UTCTime) sugaEndTime = lens _sugaEndTime (\ s a -> s{_sugaEndTime = a}) . mapping _Time; --- | The name of the group. -sugaAutoScalingGroupName :: Lens' ScheduledUpdateGroupAction (Maybe Text) -sugaAutoScalingGroupName = lens _sugaAutoScalingGroupName (\ s a -> s{_sugaAutoScalingGroupName = a}); - instance FromXML ScheduledUpdateGroupAction where parseXML x = ScheduledUpdateGroupAction' <$> - (x .@? "ScheduledActionARN") <*> (x .@? "Time") <*> - (x .@? "StartTime") + (x .@? "ScheduledActionARN") <*> (x .@? "StartTime") + <*> (x .@? "Time") <*> (x .@? "ScheduledActionName") <*> (x .@? "MaxSize") - <*> (x .@? "DesiredCapacity") <*> (x .@? "Recurrence") + <*> (x .@? "DesiredCapacity") <*> (x .@? "MinSize") - <*> (x .@? "EndTime") <*> (x .@? "AutoScalingGroupName") + <*> (x .@? "EndTime") -- | Describes an adjustment based on the difference between the value of the -- aggregated CloudWatch metric and the breach threshold that you\'ve diff --git a/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs @@ -58,11 +58,11 @@ , uasgVPCZoneIdentifier , uasgDefaultCooldown , uasgMaxSize - , uasgDesiredCapacity , uasgAvailabilityZones + , uasgDesiredCapacity , uasgMinSize - , uasgHealthCheckType , uasgLaunchConfigurationName + , uasgHealthCheckType , uasgPlacementGroup , uasgAutoScalingGroupName @@ -84,11 +84,11 @@ , _uasgVPCZoneIdentifier :: !(Maybe Text) , _uasgDefaultCooldown :: !(Maybe Int) , _uasgMaxSize :: !(Maybe Int) - , _uasgDesiredCapacity :: !(Maybe Int) , _uasgAvailabilityZones :: !(Maybe (List1 Text)) + , _uasgDesiredCapacity :: !(Maybe Int) , _uasgMinSize :: !(Maybe Int) - , _uasgHealthCheckType :: !(Maybe Text) , _uasgLaunchConfigurationName :: !(Maybe Text) + , _uasgHealthCheckType :: !(Maybe Text) , _uasgPlacementGroup :: !(Maybe Text) , _uasgAutoScalingGroupName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -107,16 +107,16 @@ -- -- * 'uasgMaxSize' -- --- * 'uasgDesiredCapacity' --- -- * 'uasgAvailabilityZones' -- --- * 'uasgMinSize' +-- * 'uasgDesiredCapacity' -- --- * 'uasgHealthCheckType' +-- * 'uasgMinSize' -- -- * 'uasgLaunchConfigurationName' -- +-- * 'uasgHealthCheckType' +-- -- * 'uasgPlacementGroup' -- -- * 'uasgAutoScalingGroupName' @@ -130,11 +130,11 @@ , _uasgVPCZoneIdentifier = Nothing , _uasgDefaultCooldown = Nothing , _uasgMaxSize = Nothing - , _uasgDesiredCapacity = Nothing , _uasgAvailabilityZones = Nothing + , _uasgDesiredCapacity = Nothing , _uasgMinSize = Nothing - , _uasgHealthCheckType = Nothing , _uasgLaunchConfigurationName = Nothing + , _uasgHealthCheckType = Nothing , _uasgPlacementGroup = Nothing , _uasgAutoScalingGroupName = pAutoScalingGroupName_ } @@ -179,30 +179,30 @@ uasgMaxSize :: Lens' UpdateAutoScalingGroup (Maybe Int) uasgMaxSize = lens _uasgMaxSize (\ s a -> s{_uasgMaxSize = a}); +-- | One or more Availability Zones for the group. +uasgAvailabilityZones :: Lens' UpdateAutoScalingGroup (Maybe (NonEmpty Text)) +uasgAvailabilityZones = lens _uasgAvailabilityZones (\ s a -> s{_uasgAvailabilityZones = a}) . mapping _List1; + -- | The number of EC2 instances that should be running in the Auto Scaling -- group. This number must be greater than or equal to the minimum size of -- the group and less than or equal to the maximum size of the group. uasgDesiredCapacity :: Lens' UpdateAutoScalingGroup (Maybe Int) uasgDesiredCapacity = lens _uasgDesiredCapacity (\ s a -> s{_uasgDesiredCapacity = a}); --- | One or more Availability Zones for the group. -uasgAvailabilityZones :: Lens' UpdateAutoScalingGroup (Maybe (NonEmpty Text)) -uasgAvailabilityZones = lens _uasgAvailabilityZones (\ s a -> s{_uasgAvailabilityZones = a}) . mapping _List1; - -- | The minimum size of the Auto Scaling group. uasgMinSize :: Lens' UpdateAutoScalingGroup (Maybe Int) uasgMinSize = lens _uasgMinSize (\ s a -> s{_uasgMinSize = a}); +-- | The name of the launch configuration. +uasgLaunchConfigurationName :: Lens' UpdateAutoScalingGroup (Maybe Text) +uasgLaunchConfigurationName = lens _uasgLaunchConfigurationName (\ s a -> s{_uasgLaunchConfigurationName = a}); + -- | The type of health check for the instances in the Auto Scaling group. -- The health check type can either be 'EC2' for Amazon EC2 or 'ELB' for -- Elastic Load Balancing. uasgHealthCheckType :: Lens' UpdateAutoScalingGroup (Maybe Text) uasgHealthCheckType = lens _uasgHealthCheckType (\ s a -> s{_uasgHealthCheckType = a}); --- | The name of the launch configuration. -uasgLaunchConfigurationName :: Lens' UpdateAutoScalingGroup (Maybe Text) -uasgLaunchConfigurationName = lens _uasgLaunchConfigurationName (\ s a -> s{_uasgLaunchConfigurationName = a}); - -- | The name of the placement group into which you\'ll launch your -- instances, if any. For more information, see -- . @@ -240,14 +240,14 @@ "VPCZoneIdentifier" =: _uasgVPCZoneIdentifier, "DefaultCooldown" =: _uasgDefaultCooldown, "MaxSize" =: _uasgMaxSize, - "DesiredCapacity" =: _uasgDesiredCapacity, "AvailabilityZones" =: toQuery (toQueryList "member" <$> _uasgAvailabilityZones), + "DesiredCapacity" =: _uasgDesiredCapacity, "MinSize" =: _uasgMinSize, - "HealthCheckType" =: _uasgHealthCheckType, "LaunchConfigurationName" =: _uasgLaunchConfigurationName, + "HealthCheckType" =: _uasgHealthCheckType, "PlacementGroup" =: _uasgPlacementGroup, "AutoScalingGroupName" =: _uasgAutoScalingGroupName] diff --git a/test/Test/AWS/Gen/AutoScaling.hs b/test/Test/AWS/Gen/AutoScaling.hs --- a/test/Test/AWS/Gen/AutoScaling.hs +++ b/test/Test/AWS/Gen/AutoScaling.hs @@ -31,26 +31,23 @@ -- [ testDescribeMetricCollectionTypes $ -- describeMetricCollectionTypes -- --- , testPutScalingPolicy $ --- putScalingPolicy +-- , testDescribeLoadBalancers $ +-- describeLoadBalancers -- --- , testDeleteNotificationConfiguration $ --- deleteNotificationConfiguration +-- , testPutNotificationConfiguration $ +-- putNotificationConfiguration -- -- , testDescribeTags $ -- describeTags -- --- , testDeleteLaunchConfiguration $ --- deleteLaunchConfiguration --- --- , testDescribeLoadBalancers $ --- describeLoadBalancers +-- , testDeleteNotificationConfiguration $ +-- deleteNotificationConfiguration -- --- , testPutNotificationConfiguration $ --- putNotificationConfiguration +-- , testPutScalingPolicy $ +-- putScalingPolicy -- --- , testSetInstanceHealth $ --- setInstanceHealth +-- , testDeleteLaunchConfiguration $ +-- deleteLaunchConfiguration -- -- , testEnterStandby $ -- enterStandby @@ -58,6 +55,9 @@ -- , testSuspendProcesses $ -- suspendProcesses -- +-- , testSetInstanceHealth $ +-- setInstanceHealth +-- -- , testExitStandby $ -- exitStandby -- @@ -67,23 +67,23 @@ -- , testDescribeAutoScalingInstances $ -- describeAutoScalingInstances -- --- , testDetachInstances $ --- detachInstances +-- , testRecordLifecycleActionHeartbeat $ +-- recordLifecycleActionHeartbeat -- -- , testDisableMetricsCollection $ -- disableMetricsCollection -- --- , testRecordLifecycleActionHeartbeat $ --- recordLifecycleActionHeartbeat +-- , testDetachInstances $ +-- detachInstances -- --- , testDeleteTags $ --- deleteTags +-- , testEnableMetricsCollection $ +-- enableMetricsCollection -- -- , testDescribeScalingProcessTypes $ -- describeScalingProcessTypes -- --- , testEnableMetricsCollection $ --- enableMetricsCollection +-- , testDeleteTags $ +-- deleteTags -- -- , testDescribeLifecycleHooks $ -- describeLifecycleHooks @@ -91,32 +91,35 @@ -- , testDescribeAutoScalingGroups $ -- describeAutoScalingGroups -- +-- , testDeleteScheduledAction $ +-- deleteScheduledAction +-- -- , testSetDesiredCapacity $ -- setDesiredCapacity -- -- , testDetachLoadBalancers $ -- detachLoadBalancers -- --- , testDeleteScheduledAction $ --- deleteScheduledAction +-- , testDescribeAutoScalingNotificationTypes $ +-- describeAutoScalingNotificationTypes -- +-- , testDescribeScheduledActions $ +-- describeScheduledActions +-- -- , testCreateOrUpdateTags $ -- createOrUpdateTags -- --- , testDeletePolicy $ --- deletePolicy --- --- , testDescribeAutoScalingNotificationTypes $ --- describeAutoScalingNotificationTypes --- -- , testCompleteLifecycleAction $ -- completeLifecycleAction -- +-- , testDeletePolicy $ +-- deletePolicy +-- -- , testAttachInstances $ -- attachInstances -- --- , testDescribeScheduledActions $ --- describeScheduledActions +-- , testUpdateAutoScalingGroup $ +-- updateAutoScalingGroup -- -- , testDeleteAutoScalingGroup $ -- deleteAutoScalingGroup @@ -124,9 +127,6 @@ -- , testPutLifecycleHook $ -- putLifecycleHook -- --- , testUpdateAutoScalingGroup $ --- updateAutoScalingGroup --- -- , testDeleteLifecycleHook $ -- deleteLifecycleHook -- @@ -136,32 +136,35 @@ -- , testExecutePolicy $ -- executePolicy -- --- , testTerminateInstanceInAutoScalingGroup $ --- terminateInstanceInAutoScalingGroup --- -- , testDescribeAccountLimits $ -- describeAccountLimits -- -- , testAttachLoadBalancers $ -- attachLoadBalancers -- +-- , testTerminateInstanceInAutoScalingGroup $ +-- terminateInstanceInAutoScalingGroup +-- -- , testPutScheduledUpdateGroupAction $ -- putScheduledUpdateGroupAction -- -- , testDescribePolicies $ -- describePolicies -- --- , testDescribeNotificationConfigurations $ --- describeNotificationConfigurations --- -- , testDescribeLaunchConfigurations $ -- describeLaunchConfigurations -- +-- , testDescribeScalingActivities $ +-- describeScalingActivities +-- +-- , testDescribeNotificationConfigurations $ +-- describeNotificationConfigurations +-- -- , testDescribeLifecycleHookTypes $ -- describeLifecycleHookTypes -- --- , testDescribeScalingActivities $ --- describeScalingActivities +-- , testDescribeAdjustmentTypes $ +-- describeAdjustmentTypes -- -- , testCreateAutoScalingGroup $ -- createAutoScalingGroup @@ -169,35 +172,29 @@ -- , testCreateLaunchConfiguration $ -- createLaunchConfiguration -- --- , testDescribeAdjustmentTypes $ --- describeAdjustmentTypes --- -- ] -- , testGroup "response" -- [ testDescribeMetricCollectionTypesResponse $ -- describeMetricCollectionTypesResponse -- --- , testPutScalingPolicyResponse $ --- putScalingPolicyResponse +-- , testDescribeLoadBalancersResponse $ +-- describeLoadBalancersResponse -- --- , testDeleteNotificationConfigurationResponse $ --- deleteNotificationConfigurationResponse +-- , testPutNotificationConfigurationResponse $ +-- putNotificationConfigurationResponse -- -- , testDescribeTagsResponse $ -- describeTagsResponse -- --- , testDeleteLaunchConfigurationResponse $ --- deleteLaunchConfigurationResponse --- --- , testDescribeLoadBalancersResponse $ --- describeLoadBalancersResponse +-- , testDeleteNotificationConfigurationResponse $ +-- deleteNotificationConfigurationResponse -- --- , testPutNotificationConfigurationResponse $ --- putNotificationConfigurationResponse +-- , testPutScalingPolicyResponse $ +-- putScalingPolicyResponse -- --- , testSetInstanceHealthResponse $ --- setInstanceHealthResponse +-- , testDeleteLaunchConfigurationResponse $ +-- deleteLaunchConfigurationResponse -- -- , testEnterStandbyResponse $ -- enterStandbyResponse @@ -205,6 +202,9 @@ -- , testSuspendProcessesResponse $ -- suspendProcessesResponse -- +-- , testSetInstanceHealthResponse $ +-- setInstanceHealthResponse +-- -- , testExitStandbyResponse $ -- exitStandbyResponse -- @@ -214,23 +214,23 @@ -- , testDescribeAutoScalingInstancesResponse $ -- describeAutoScalingInstancesResponse -- --- , testDetachInstancesResponse $ --- detachInstancesResponse +-- , testRecordLifecycleActionHeartbeatResponse $ +-- recordLifecycleActionHeartbeatResponse -- -- , testDisableMetricsCollectionResponse $ -- disableMetricsCollectionResponse -- --- , testRecordLifecycleActionHeartbeatResponse $ --- recordLifecycleActionHeartbeatResponse +-- , testDetachInstancesResponse $ +-- detachInstancesResponse -- --- , testDeleteTagsResponse $ --- deleteTagsResponse +-- , testEnableMetricsCollectionResponse $ +-- enableMetricsCollectionResponse -- -- , testDescribeScalingProcessTypesResponse $ -- describeScalingProcessTypesResponse -- --- , testEnableMetricsCollectionResponse $ --- enableMetricsCollectionResponse +-- , testDeleteTagsResponse $ +-- deleteTagsResponse -- -- , testDescribeLifecycleHooksResponse $ -- describeLifecycleHooksResponse @@ -238,32 +238,35 @@ -- , testDescribeAutoScalingGroupsResponse $ -- describeAutoScalingGroupsResponse -- +-- , testDeleteScheduledActionResponse $ +-- deleteScheduledActionResponse +-- -- , testSetDesiredCapacityResponse $ -- setDesiredCapacityResponse -- -- , testDetachLoadBalancersResponse $ -- detachLoadBalancersResponse -- --- , testDeleteScheduledActionResponse $ --- deleteScheduledActionResponse +-- , testDescribeAutoScalingNotificationTypesResponse $ +-- describeAutoScalingNotificationTypesResponse -- +-- , testDescribeScheduledActionsResponse $ +-- describeScheduledActionsResponse +-- -- , testCreateOrUpdateTagsResponse $ -- createOrUpdateTagsResponse -- --- , testDeletePolicyResponse $ --- deletePolicyResponse --- --- , testDescribeAutoScalingNotificationTypesResponse $ --- describeAutoScalingNotificationTypesResponse --- -- , testCompleteLifecycleActionResponse $ -- completeLifecycleActionResponse -- +-- , testDeletePolicyResponse $ +-- deletePolicyResponse +-- -- , testAttachInstancesResponse $ -- attachInstancesResponse -- --- , testDescribeScheduledActionsResponse $ --- describeScheduledActionsResponse +-- , testUpdateAutoScalingGroupResponse $ +-- updateAutoScalingGroupResponse -- -- , testDeleteAutoScalingGroupResponse $ -- deleteAutoScalingGroupResponse @@ -271,9 +274,6 @@ -- , testPutLifecycleHookResponse $ -- putLifecycleHookResponse -- --- , testUpdateAutoScalingGroupResponse $ --- updateAutoScalingGroupResponse --- -- , testDeleteLifecycleHookResponse $ -- deleteLifecycleHookResponse -- @@ -283,32 +283,35 @@ -- , testExecutePolicyResponse $ -- executePolicyResponse -- --- , testTerminateInstanceInAutoScalingGroupResponse $ --- terminateInstanceInAutoScalingGroupResponse --- -- , testDescribeAccountLimitsResponse $ -- describeAccountLimitsResponse -- -- , testAttachLoadBalancersResponse $ -- attachLoadBalancersResponse -- +-- , testTerminateInstanceInAutoScalingGroupResponse $ +-- terminateInstanceInAutoScalingGroupResponse +-- -- , testPutScheduledUpdateGroupActionResponse $ -- putScheduledUpdateGroupActionResponse -- -- , testDescribePoliciesResponse $ -- describePoliciesResponse -- --- , testDescribeNotificationConfigurationsResponse $ --- describeNotificationConfigurationsResponse --- -- , testDescribeLaunchConfigurationsResponse $ -- describeLaunchConfigurationsResponse -- +-- , testDescribeScalingActivitiesResponse $ +-- describeScalingActivitiesResponse +-- +-- , testDescribeNotificationConfigurationsResponse $ +-- describeNotificationConfigurationsResponse +-- -- , testDescribeLifecycleHookTypesResponse $ -- describeLifecycleHookTypesResponse -- --- , testDescribeScalingActivitiesResponse $ --- describeScalingActivitiesResponse +-- , testDescribeAdjustmentTypesResponse $ +-- describeAdjustmentTypesResponse -- -- , testCreateAutoScalingGroupResponse $ -- createAutoScalingGroupResponse @@ -316,9 +319,6 @@ -- , testCreateLaunchConfigurationResponse $ -- createLaunchConfigurationResponse -- --- , testDescribeAdjustmentTypesResponse $ --- describeAdjustmentTypesResponse --- -- ] -- ] @@ -329,41 +329,36 @@ "DescribeMetricCollectionTypes" "fixture/DescribeMetricCollectionTypes.yaml" -testPutScalingPolicy :: PutScalingPolicy -> TestTree -testPutScalingPolicy = req - "PutScalingPolicy" - "fixture/PutScalingPolicy.yaml" +testDescribeLoadBalancers :: DescribeLoadBalancers -> TestTree +testDescribeLoadBalancers = req + "DescribeLoadBalancers" + "fixture/DescribeLoadBalancers.yaml" -testDeleteNotificationConfiguration :: DeleteNotificationConfiguration -> TestTree -testDeleteNotificationConfiguration = req - "DeleteNotificationConfiguration" - "fixture/DeleteNotificationConfiguration.yaml" +testPutNotificationConfiguration :: PutNotificationConfiguration -> TestTree +testPutNotificationConfiguration = req + "PutNotificationConfiguration" + "fixture/PutNotificationConfiguration.yaml" testDescribeTags :: DescribeTags -> TestTree testDescribeTags = req "DescribeTags" "fixture/DescribeTags.yaml" +testDeleteNotificationConfiguration :: DeleteNotificationConfiguration -> TestTree +testDeleteNotificationConfiguration = req + "DeleteNotificationConfiguration" + "fixture/DeleteNotificationConfiguration.yaml" + +testPutScalingPolicy :: PutScalingPolicy -> TestTree +testPutScalingPolicy = req + "PutScalingPolicy" + "fixture/PutScalingPolicy.yaml" + testDeleteLaunchConfiguration :: DeleteLaunchConfiguration -> TestTree testDeleteLaunchConfiguration = req "DeleteLaunchConfiguration" "fixture/DeleteLaunchConfiguration.yaml" -testDescribeLoadBalancers :: DescribeLoadBalancers -> TestTree -testDescribeLoadBalancers = req - "DescribeLoadBalancers" - "fixture/DescribeLoadBalancers.yaml" - -testPutNotificationConfiguration :: PutNotificationConfiguration -> TestTree -testPutNotificationConfiguration = req - "PutNotificationConfiguration" - "fixture/PutNotificationConfiguration.yaml" - -testSetInstanceHealth :: SetInstanceHealth -> TestTree -testSetInstanceHealth = req - "SetInstanceHealth" - "fixture/SetInstanceHealth.yaml" - testEnterStandby :: EnterStandby -> TestTree testEnterStandby = req "EnterStandby" @@ -374,6 +369,11 @@ "SuspendProcesses" "fixture/SuspendProcesses.yaml" +testSetInstanceHealth :: SetInstanceHealth -> TestTree +testSetInstanceHealth = req + "SetInstanceHealth" + "fixture/SetInstanceHealth.yaml" + testExitStandby :: ExitStandby -> TestTree testExitStandby = req "ExitStandby" @@ -389,35 +389,35 @@ "DescribeAutoScalingInstances" "fixture/DescribeAutoScalingInstances.yaml" -testDetachInstances :: DetachInstances -> TestTree -testDetachInstances = req - "DetachInstances" - "fixture/DetachInstances.yaml" +testRecordLifecycleActionHeartbeat :: RecordLifecycleActionHeartbeat -> TestTree +testRecordLifecycleActionHeartbeat = req + "RecordLifecycleActionHeartbeat" + "fixture/RecordLifecycleActionHeartbeat.yaml" testDisableMetricsCollection :: DisableMetricsCollection -> TestTree testDisableMetricsCollection = req "DisableMetricsCollection" "fixture/DisableMetricsCollection.yaml" -testRecordLifecycleActionHeartbeat :: RecordLifecycleActionHeartbeat -> TestTree -testRecordLifecycleActionHeartbeat = req - "RecordLifecycleActionHeartbeat" - "fixture/RecordLifecycleActionHeartbeat.yaml" +testDetachInstances :: DetachInstances -> TestTree +testDetachInstances = req + "DetachInstances" + "fixture/DetachInstances.yaml" -testDeleteTags :: DeleteTags -> TestTree -testDeleteTags = req - "DeleteTags" - "fixture/DeleteTags.yaml" +testEnableMetricsCollection :: EnableMetricsCollection -> TestTree +testEnableMetricsCollection = req + "EnableMetricsCollection" + "fixture/EnableMetricsCollection.yaml" testDescribeScalingProcessTypes :: DescribeScalingProcessTypes -> TestTree testDescribeScalingProcessTypes = req "DescribeScalingProcessTypes" "fixture/DescribeScalingProcessTypes.yaml" -testEnableMetricsCollection :: EnableMetricsCollection -> TestTree -testEnableMetricsCollection = req - "EnableMetricsCollection" - "fixture/EnableMetricsCollection.yaml" +testDeleteTags :: DeleteTags -> TestTree +testDeleteTags = req + "DeleteTags" + "fixture/DeleteTags.yaml" testDescribeLifecycleHooks :: DescribeLifecycleHooks -> TestTree testDescribeLifecycleHooks = req @@ -429,6 +429,11 @@ "DescribeAutoScalingGroups" "fixture/DescribeAutoScalingGroups.yaml" +testDeleteScheduledAction :: DeleteScheduledAction -> TestTree +testDeleteScheduledAction = req + "DeleteScheduledAction" + "fixture/DeleteScheduledAction.yaml" + testSetDesiredCapacity :: SetDesiredCapacity -> TestTree testSetDesiredCapacity = req "SetDesiredCapacity" @@ -439,40 +444,40 @@ "DetachLoadBalancers" "fixture/DetachLoadBalancers.yaml" -testDeleteScheduledAction :: DeleteScheduledAction -> TestTree -testDeleteScheduledAction = req - "DeleteScheduledAction" - "fixture/DeleteScheduledAction.yaml" +testDescribeAutoScalingNotificationTypes :: DescribeAutoScalingNotificationTypes -> TestTree +testDescribeAutoScalingNotificationTypes = req + "DescribeAutoScalingNotificationTypes" + "fixture/DescribeAutoScalingNotificationTypes.yaml" +testDescribeScheduledActions :: DescribeScheduledActions -> TestTree +testDescribeScheduledActions = req + "DescribeScheduledActions" + "fixture/DescribeScheduledActions.yaml" + testCreateOrUpdateTags :: CreateOrUpdateTags -> TestTree testCreateOrUpdateTags = req "CreateOrUpdateTags" "fixture/CreateOrUpdateTags.yaml" -testDeletePolicy :: DeletePolicy -> TestTree -testDeletePolicy = req - "DeletePolicy" - "fixture/DeletePolicy.yaml" - -testDescribeAutoScalingNotificationTypes :: DescribeAutoScalingNotificationTypes -> TestTree -testDescribeAutoScalingNotificationTypes = req - "DescribeAutoScalingNotificationTypes" - "fixture/DescribeAutoScalingNotificationTypes.yaml" - testCompleteLifecycleAction :: CompleteLifecycleAction -> TestTree testCompleteLifecycleAction = req "CompleteLifecycleAction" "fixture/CompleteLifecycleAction.yaml" +testDeletePolicy :: DeletePolicy -> TestTree +testDeletePolicy = req + "DeletePolicy" + "fixture/DeletePolicy.yaml" + testAttachInstances :: AttachInstances -> TestTree testAttachInstances = req "AttachInstances" "fixture/AttachInstances.yaml" -testDescribeScheduledActions :: DescribeScheduledActions -> TestTree -testDescribeScheduledActions = req - "DescribeScheduledActions" - "fixture/DescribeScheduledActions.yaml" +testUpdateAutoScalingGroup :: UpdateAutoScalingGroup -> TestTree +testUpdateAutoScalingGroup = req + "UpdateAutoScalingGroup" + "fixture/UpdateAutoScalingGroup.yaml" testDeleteAutoScalingGroup :: DeleteAutoScalingGroup -> TestTree testDeleteAutoScalingGroup = req @@ -484,11 +489,6 @@ "PutLifecycleHook" "fixture/PutLifecycleHook.yaml" -testUpdateAutoScalingGroup :: UpdateAutoScalingGroup -> TestTree -testUpdateAutoScalingGroup = req - "UpdateAutoScalingGroup" - "fixture/UpdateAutoScalingGroup.yaml" - testDeleteLifecycleHook :: DeleteLifecycleHook -> TestTree testDeleteLifecycleHook = req "DeleteLifecycleHook" @@ -504,11 +504,6 @@ "ExecutePolicy" "fixture/ExecutePolicy.yaml" -testTerminateInstanceInAutoScalingGroup :: TerminateInstanceInAutoScalingGroup -> TestTree -testTerminateInstanceInAutoScalingGroup = req - "TerminateInstanceInAutoScalingGroup" - "fixture/TerminateInstanceInAutoScalingGroup.yaml" - testDescribeAccountLimits :: DescribeAccountLimits -> TestTree testDescribeAccountLimits = req "DescribeAccountLimits" @@ -519,6 +514,11 @@ "AttachLoadBalancers" "fixture/AttachLoadBalancers.yaml" +testTerminateInstanceInAutoScalingGroup :: TerminateInstanceInAutoScalingGroup -> TestTree +testTerminateInstanceInAutoScalingGroup = req + "TerminateInstanceInAutoScalingGroup" + "fixture/TerminateInstanceInAutoScalingGroup.yaml" + testPutScheduledUpdateGroupAction :: PutScheduledUpdateGroupAction -> TestTree testPutScheduledUpdateGroupAction = req "PutScheduledUpdateGroupAction" @@ -529,25 +529,30 @@ "DescribePolicies" "fixture/DescribePolicies.yaml" -testDescribeNotificationConfigurations :: DescribeNotificationConfigurations -> TestTree -testDescribeNotificationConfigurations = req - "DescribeNotificationConfigurations" - "fixture/DescribeNotificationConfigurations.yaml" - testDescribeLaunchConfigurations :: DescribeLaunchConfigurations -> TestTree testDescribeLaunchConfigurations = req "DescribeLaunchConfigurations" "fixture/DescribeLaunchConfigurations.yaml" +testDescribeScalingActivities :: DescribeScalingActivities -> TestTree +testDescribeScalingActivities = req + "DescribeScalingActivities" + "fixture/DescribeScalingActivities.yaml" + +testDescribeNotificationConfigurations :: DescribeNotificationConfigurations -> TestTree +testDescribeNotificationConfigurations = req + "DescribeNotificationConfigurations" + "fixture/DescribeNotificationConfigurations.yaml" + testDescribeLifecycleHookTypes :: DescribeLifecycleHookTypes -> TestTree testDescribeLifecycleHookTypes = req "DescribeLifecycleHookTypes" "fixture/DescribeLifecycleHookTypes.yaml" -testDescribeScalingActivities :: DescribeScalingActivities -> TestTree -testDescribeScalingActivities = req - "DescribeScalingActivities" - "fixture/DescribeScalingActivities.yaml" +testDescribeAdjustmentTypes :: DescribeAdjustmentTypes -> TestTree +testDescribeAdjustmentTypes = req + "DescribeAdjustmentTypes" + "fixture/DescribeAdjustmentTypes.yaml" testCreateAutoScalingGroup :: CreateAutoScalingGroup -> TestTree testCreateAutoScalingGroup = req @@ -559,11 +564,6 @@ "CreateLaunchConfiguration" "fixture/CreateLaunchConfiguration.yaml" -testDescribeAdjustmentTypes :: DescribeAdjustmentTypes -> TestTree -testDescribeAdjustmentTypes = req - "DescribeAdjustmentTypes" - "fixture/DescribeAdjustmentTypes.yaml" - -- Responses testDescribeMetricCollectionTypesResponse :: DescribeMetricCollectionTypesResponse -> TestTree @@ -573,19 +573,19 @@ autoScaling (Proxy :: Proxy DescribeMetricCollectionTypes) -testPutScalingPolicyResponse :: PutScalingPolicyResponse -> TestTree -testPutScalingPolicyResponse = res - "PutScalingPolicyResponse" - "fixture/PutScalingPolicyResponse.proto" +testDescribeLoadBalancersResponse :: DescribeLoadBalancersResponse -> TestTree +testDescribeLoadBalancersResponse = res + "DescribeLoadBalancersResponse" + "fixture/DescribeLoadBalancersResponse.proto" autoScaling - (Proxy :: Proxy PutScalingPolicy) + (Proxy :: Proxy DescribeLoadBalancers) -testDeleteNotificationConfigurationResponse :: DeleteNotificationConfigurationResponse -> TestTree -testDeleteNotificationConfigurationResponse = res - "DeleteNotificationConfigurationResponse" - "fixture/DeleteNotificationConfigurationResponse.proto" +testPutNotificationConfigurationResponse :: PutNotificationConfigurationResponse -> TestTree +testPutNotificationConfigurationResponse = res + "PutNotificationConfigurationResponse" + "fixture/PutNotificationConfigurationResponse.proto" autoScaling - (Proxy :: Proxy DeleteNotificationConfiguration) + (Proxy :: Proxy PutNotificationConfiguration) testDescribeTagsResponse :: DescribeTagsResponse -> TestTree testDescribeTagsResponse = res @@ -594,6 +594,20 @@ autoScaling (Proxy :: Proxy DescribeTags) +testDeleteNotificationConfigurationResponse :: DeleteNotificationConfigurationResponse -> TestTree +testDeleteNotificationConfigurationResponse = res + "DeleteNotificationConfigurationResponse" + "fixture/DeleteNotificationConfigurationResponse.proto" + autoScaling + (Proxy :: Proxy DeleteNotificationConfiguration) + +testPutScalingPolicyResponse :: PutScalingPolicyResponse -> TestTree +testPutScalingPolicyResponse = res + "PutScalingPolicyResponse" + "fixture/PutScalingPolicyResponse.proto" + autoScaling + (Proxy :: Proxy PutScalingPolicy) + testDeleteLaunchConfigurationResponse :: DeleteLaunchConfigurationResponse -> TestTree testDeleteLaunchConfigurationResponse = res "DeleteLaunchConfigurationResponse" @@ -601,27 +615,6 @@ autoScaling (Proxy :: Proxy DeleteLaunchConfiguration) -testDescribeLoadBalancersResponse :: DescribeLoadBalancersResponse -> TestTree -testDescribeLoadBalancersResponse = res - "DescribeLoadBalancersResponse" - "fixture/DescribeLoadBalancersResponse.proto" - autoScaling - (Proxy :: Proxy DescribeLoadBalancers) - -testPutNotificationConfigurationResponse :: PutNotificationConfigurationResponse -> TestTree -testPutNotificationConfigurationResponse = res - "PutNotificationConfigurationResponse" - "fixture/PutNotificationConfigurationResponse.proto" - autoScaling - (Proxy :: Proxy PutNotificationConfiguration) - -testSetInstanceHealthResponse :: SetInstanceHealthResponse -> TestTree -testSetInstanceHealthResponse = res - "SetInstanceHealthResponse" - "fixture/SetInstanceHealthResponse.proto" - autoScaling - (Proxy :: Proxy SetInstanceHealth) - testEnterStandbyResponse :: EnterStandbyResponse -> TestTree testEnterStandbyResponse = res "EnterStandbyResponse" @@ -636,6 +629,13 @@ autoScaling (Proxy :: Proxy SuspendProcesses) +testSetInstanceHealthResponse :: SetInstanceHealthResponse -> TestTree +testSetInstanceHealthResponse = res + "SetInstanceHealthResponse" + "fixture/SetInstanceHealthResponse.proto" + autoScaling + (Proxy :: Proxy SetInstanceHealth) + testExitStandbyResponse :: ExitStandbyResponse -> TestTree testExitStandbyResponse = res "ExitStandbyResponse" @@ -657,12 +657,12 @@ autoScaling (Proxy :: Proxy DescribeAutoScalingInstances) -testDetachInstancesResponse :: DetachInstancesResponse -> TestTree -testDetachInstancesResponse = res - "DetachInstancesResponse" - "fixture/DetachInstancesResponse.proto" +testRecordLifecycleActionHeartbeatResponse :: RecordLifecycleActionHeartbeatResponse -> TestTree +testRecordLifecycleActionHeartbeatResponse = res + "RecordLifecycleActionHeartbeatResponse" + "fixture/RecordLifecycleActionHeartbeatResponse.proto" autoScaling - (Proxy :: Proxy DetachInstances) + (Proxy :: Proxy RecordLifecycleActionHeartbeat) testDisableMetricsCollectionResponse :: DisableMetricsCollectionResponse -> TestTree testDisableMetricsCollectionResponse = res @@ -671,19 +671,19 @@ autoScaling (Proxy :: Proxy DisableMetricsCollection) -testRecordLifecycleActionHeartbeatResponse :: RecordLifecycleActionHeartbeatResponse -> TestTree -testRecordLifecycleActionHeartbeatResponse = res - "RecordLifecycleActionHeartbeatResponse" - "fixture/RecordLifecycleActionHeartbeatResponse.proto" +testDetachInstancesResponse :: DetachInstancesResponse -> TestTree +testDetachInstancesResponse = res + "DetachInstancesResponse" + "fixture/DetachInstancesResponse.proto" autoScaling - (Proxy :: Proxy RecordLifecycleActionHeartbeat) + (Proxy :: Proxy DetachInstances) -testDeleteTagsResponse :: DeleteTagsResponse -> TestTree -testDeleteTagsResponse = res - "DeleteTagsResponse" - "fixture/DeleteTagsResponse.proto" +testEnableMetricsCollectionResponse :: EnableMetricsCollectionResponse -> TestTree +testEnableMetricsCollectionResponse = res + "EnableMetricsCollectionResponse" + "fixture/EnableMetricsCollectionResponse.proto" autoScaling - (Proxy :: Proxy DeleteTags) + (Proxy :: Proxy EnableMetricsCollection) testDescribeScalingProcessTypesResponse :: DescribeScalingProcessTypesResponse -> TestTree testDescribeScalingProcessTypesResponse = res @@ -692,12 +692,12 @@ autoScaling (Proxy :: Proxy DescribeScalingProcessTypes) -testEnableMetricsCollectionResponse :: EnableMetricsCollectionResponse -> TestTree -testEnableMetricsCollectionResponse = res - "EnableMetricsCollectionResponse" - "fixture/EnableMetricsCollectionResponse.proto" +testDeleteTagsResponse :: DeleteTagsResponse -> TestTree +testDeleteTagsResponse = res + "DeleteTagsResponse" + "fixture/DeleteTagsResponse.proto" autoScaling - (Proxy :: Proxy EnableMetricsCollection) + (Proxy :: Proxy DeleteTags) testDescribeLifecycleHooksResponse :: DescribeLifecycleHooksResponse -> TestTree testDescribeLifecycleHooksResponse = res @@ -713,6 +713,13 @@ autoScaling (Proxy :: Proxy DescribeAutoScalingGroups) +testDeleteScheduledActionResponse :: DeleteScheduledActionResponse -> TestTree +testDeleteScheduledActionResponse = res + "DeleteScheduledActionResponse" + "fixture/DeleteScheduledActionResponse.proto" + autoScaling + (Proxy :: Proxy DeleteScheduledAction) + testSetDesiredCapacityResponse :: SetDesiredCapacityResponse -> TestTree testSetDesiredCapacityResponse = res "SetDesiredCapacityResponse" @@ -727,13 +734,20 @@ autoScaling (Proxy :: Proxy DetachLoadBalancers) -testDeleteScheduledActionResponse :: DeleteScheduledActionResponse -> TestTree -testDeleteScheduledActionResponse = res - "DeleteScheduledActionResponse" - "fixture/DeleteScheduledActionResponse.proto" +testDescribeAutoScalingNotificationTypesResponse :: DescribeAutoScalingNotificationTypesResponse -> TestTree +testDescribeAutoScalingNotificationTypesResponse = res + "DescribeAutoScalingNotificationTypesResponse" + "fixture/DescribeAutoScalingNotificationTypesResponse.proto" autoScaling - (Proxy :: Proxy DeleteScheduledAction) + (Proxy :: Proxy DescribeAutoScalingNotificationTypes) +testDescribeScheduledActionsResponse :: DescribeScheduledActionsResponse -> TestTree +testDescribeScheduledActionsResponse = res + "DescribeScheduledActionsResponse" + "fixture/DescribeScheduledActionsResponse.proto" + autoScaling + (Proxy :: Proxy DescribeScheduledActions) + testCreateOrUpdateTagsResponse :: CreateOrUpdateTagsResponse -> TestTree testCreateOrUpdateTagsResponse = res "CreateOrUpdateTagsResponse" @@ -741,20 +755,6 @@ autoScaling (Proxy :: Proxy CreateOrUpdateTags) -testDeletePolicyResponse :: DeletePolicyResponse -> TestTree -testDeletePolicyResponse = res - "DeletePolicyResponse" - "fixture/DeletePolicyResponse.proto" - autoScaling - (Proxy :: Proxy DeletePolicy) - -testDescribeAutoScalingNotificationTypesResponse :: DescribeAutoScalingNotificationTypesResponse -> TestTree -testDescribeAutoScalingNotificationTypesResponse = res - "DescribeAutoScalingNotificationTypesResponse" - "fixture/DescribeAutoScalingNotificationTypesResponse.proto" - autoScaling - (Proxy :: Proxy DescribeAutoScalingNotificationTypes) - testCompleteLifecycleActionResponse :: CompleteLifecycleActionResponse -> TestTree testCompleteLifecycleActionResponse = res "CompleteLifecycleActionResponse" @@ -762,6 +762,13 @@ autoScaling (Proxy :: Proxy CompleteLifecycleAction) +testDeletePolicyResponse :: DeletePolicyResponse -> TestTree +testDeletePolicyResponse = res + "DeletePolicyResponse" + "fixture/DeletePolicyResponse.proto" + autoScaling + (Proxy :: Proxy DeletePolicy) + testAttachInstancesResponse :: AttachInstancesResponse -> TestTree testAttachInstancesResponse = res "AttachInstancesResponse" @@ -769,12 +776,12 @@ autoScaling (Proxy :: Proxy AttachInstances) -testDescribeScheduledActionsResponse :: DescribeScheduledActionsResponse -> TestTree -testDescribeScheduledActionsResponse = res - "DescribeScheduledActionsResponse" - "fixture/DescribeScheduledActionsResponse.proto" +testUpdateAutoScalingGroupResponse :: UpdateAutoScalingGroupResponse -> TestTree +testUpdateAutoScalingGroupResponse = res + "UpdateAutoScalingGroupResponse" + "fixture/UpdateAutoScalingGroupResponse.proto" autoScaling - (Proxy :: Proxy DescribeScheduledActions) + (Proxy :: Proxy UpdateAutoScalingGroup) testDeleteAutoScalingGroupResponse :: DeleteAutoScalingGroupResponse -> TestTree testDeleteAutoScalingGroupResponse = res @@ -790,13 +797,6 @@ autoScaling (Proxy :: Proxy PutLifecycleHook) -testUpdateAutoScalingGroupResponse :: UpdateAutoScalingGroupResponse -> TestTree -testUpdateAutoScalingGroupResponse = res - "UpdateAutoScalingGroupResponse" - "fixture/UpdateAutoScalingGroupResponse.proto" - autoScaling - (Proxy :: Proxy UpdateAutoScalingGroup) - testDeleteLifecycleHookResponse :: DeleteLifecycleHookResponse -> TestTree testDeleteLifecycleHookResponse = res "DeleteLifecycleHookResponse" @@ -818,13 +818,6 @@ autoScaling (Proxy :: Proxy ExecutePolicy) -testTerminateInstanceInAutoScalingGroupResponse :: TerminateInstanceInAutoScalingGroupResponse -> TestTree -testTerminateInstanceInAutoScalingGroupResponse = res - "TerminateInstanceInAutoScalingGroupResponse" - "fixture/TerminateInstanceInAutoScalingGroupResponse.proto" - autoScaling - (Proxy :: Proxy TerminateInstanceInAutoScalingGroup) - testDescribeAccountLimitsResponse :: DescribeAccountLimitsResponse -> TestTree testDescribeAccountLimitsResponse = res "DescribeAccountLimitsResponse" @@ -839,6 +832,13 @@ autoScaling (Proxy :: Proxy AttachLoadBalancers) +testTerminateInstanceInAutoScalingGroupResponse :: TerminateInstanceInAutoScalingGroupResponse -> TestTree +testTerminateInstanceInAutoScalingGroupResponse = res + "TerminateInstanceInAutoScalingGroupResponse" + "fixture/TerminateInstanceInAutoScalingGroupResponse.proto" + autoScaling + (Proxy :: Proxy TerminateInstanceInAutoScalingGroup) + testPutScheduledUpdateGroupActionResponse :: PutScheduledUpdateGroupActionResponse -> TestTree testPutScheduledUpdateGroupActionResponse = res "PutScheduledUpdateGroupActionResponse" @@ -853,13 +853,6 @@ autoScaling (Proxy :: Proxy DescribePolicies) -testDescribeNotificationConfigurationsResponse :: DescribeNotificationConfigurationsResponse -> TestTree -testDescribeNotificationConfigurationsResponse = res - "DescribeNotificationConfigurationsResponse" - "fixture/DescribeNotificationConfigurationsResponse.proto" - autoScaling - (Proxy :: Proxy DescribeNotificationConfigurations) - testDescribeLaunchConfigurationsResponse :: DescribeLaunchConfigurationsResponse -> TestTree testDescribeLaunchConfigurationsResponse = res "DescribeLaunchConfigurationsResponse" @@ -867,6 +860,20 @@ autoScaling (Proxy :: Proxy DescribeLaunchConfigurations) +testDescribeScalingActivitiesResponse :: DescribeScalingActivitiesResponse -> TestTree +testDescribeScalingActivitiesResponse = res + "DescribeScalingActivitiesResponse" + "fixture/DescribeScalingActivitiesResponse.proto" + autoScaling + (Proxy :: Proxy DescribeScalingActivities) + +testDescribeNotificationConfigurationsResponse :: DescribeNotificationConfigurationsResponse -> TestTree +testDescribeNotificationConfigurationsResponse = res + "DescribeNotificationConfigurationsResponse" + "fixture/DescribeNotificationConfigurationsResponse.proto" + autoScaling + (Proxy :: Proxy DescribeNotificationConfigurations) + testDescribeLifecycleHookTypesResponse :: DescribeLifecycleHookTypesResponse -> TestTree testDescribeLifecycleHookTypesResponse = res "DescribeLifecycleHookTypesResponse" @@ -874,12 +881,12 @@ autoScaling (Proxy :: Proxy DescribeLifecycleHookTypes) -testDescribeScalingActivitiesResponse :: DescribeScalingActivitiesResponse -> TestTree -testDescribeScalingActivitiesResponse = res - "DescribeScalingActivitiesResponse" - "fixture/DescribeScalingActivitiesResponse.proto" +testDescribeAdjustmentTypesResponse :: DescribeAdjustmentTypesResponse -> TestTree +testDescribeAdjustmentTypesResponse = res + "DescribeAdjustmentTypesResponse" + "fixture/DescribeAdjustmentTypesResponse.proto" autoScaling - (Proxy :: Proxy DescribeScalingActivities) + (Proxy :: Proxy DescribeAdjustmentTypes) testCreateAutoScalingGroupResponse :: CreateAutoScalingGroupResponse -> TestTree testCreateAutoScalingGroupResponse = res @@ -894,10 +901,3 @@ "fixture/CreateLaunchConfigurationResponse.proto" autoScaling (Proxy :: Proxy CreateLaunchConfiguration) - -testDescribeAdjustmentTypesResponse :: DescribeAdjustmentTypesResponse -> TestTree -testDescribeAdjustmentTypesResponse = res - "DescribeAdjustmentTypesResponse" - "fixture/DescribeAdjustmentTypesResponse.proto" - autoScaling - (Proxy :: Proxy DescribeAdjustmentTypes)