amazonka-autoscaling 1.2.0.2 → 1.3.0

raw patch · 38 files changed

+913/−913 lines, 38 filesdep ~amazonka-autoscalingdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-autoscaling.cabal +5/−5
• gen/Network/AWS/AutoScaling.hs +60/−60
• gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs +8/−8
• gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs +8/−8
• gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs +21/−21
• gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs +35/−35
• gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs +8/−8
• gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs +22/−22
• gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs +8/−8
• gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs +8/−8
• gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs +8/−8
• gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs +8/−8
• gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs +8/−8
• gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs +8/−8
• gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs +8/−8
• gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs +10/−10
• gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs +10/−10
• gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs +8/−8
• gen/Network/AWS/AutoScaling/DescribePolicies.hs +18/−18
• gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs +20/−20
• gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs +9/−9
• gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs +18/−18
• gen/Network/AWS/AutoScaling/DescribeTags.hs +10/−10
• gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs +8/−8
• gen/Network/AWS/AutoScaling/DetachInstances.hs +9/−9
• gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs +8/−8
• gen/Network/AWS/AutoScaling/EnterStandby.hs +14/−14
• gen/Network/AWS/AutoScaling/ExitStandby.hs +14/−14
• gen/Network/AWS/AutoScaling/PutLifecycleHook.hs +34/−34
• gen/Network/AWS/AutoScaling/PutScalingPolicy.hs +22/−22
• gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs +25/−25
• gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs +8/−8
• gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs +9/−9
• gen/Network/AWS/AutoScaling/Types.hs +18/−18
• gen/Network/AWS/AutoScaling/Types/Product.hs +118/−118
• gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs +20/−20
• test/Test/AWS/Gen/AutoScaling.hs +279/−279

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

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

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

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

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

@@ -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 -- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement Groups>@@ -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

@@ -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--- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-network-security.html Amazon EC2 Security Groups>--- in the /Amazon Elastic Compute Cloud User Guide/.------ If your instances are launched into a VPC, specify security group IDs.--- For more information, see--- <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_SecurityGroups.html Security Groups for Your VPC>--- 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+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-network-security.html Amazon EC2 Security Groups>+-- in the /Amazon Elastic Compute Cloud User Guide/.+--+-- If your instances are launched into a VPC, specify security group IDs.+-- For more information, see+-- <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_SecurityGroups.html Security Groups for Your VPC>+-- 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+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US-SpotInstances.html Launch Spot Instances in Your Auto Scaling Group>+-- 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--- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US-SpotInstances.html Launch Spot Instances in Your Auto Scaling Group>--- 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 -- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-key-pairs.html Amazon EC2 Key Pairs> -- 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@@ -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 <http://en.wikipedia.org/wiki/Cron Cron> 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,

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

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

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

@@ -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 -- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement Groups>. 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

@@ -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 -- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement Groups>.@@ -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] 

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