amazonka-autoscaling 1.1.0 → 1.2.0

raw patch · 54 files changed

+136/−144 lines, 54 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 +2/−2
• gen/Network/AWS/AutoScaling/AttachInstances.hs +1/−2
• gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs +1/−2
• gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs +1/−2
• gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs +1/−2
• gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs +1/−2
• gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs +1/−2
• gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs +1/−2
• gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs +1/−2
• gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs +1/−2
• gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs +1/−2
• gen/Network/AWS/AutoScaling/DeletePolicy.hs +1/−2
• gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs +1/−2
• gen/Network/AWS/AutoScaling/DeleteTags.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs +1/−3
• gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs +1/−3
• gen/Network/AWS/AutoScaling/DescribePolicies.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeTags.hs +1/−2
• gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs +1/−2
• gen/Network/AWS/AutoScaling/DetachInstances.hs +1/−2
• gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs +1/−2
• gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs +1/−2
• gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs +1/−2
• gen/Network/AWS/AutoScaling/EnterStandby.hs +1/−2
• gen/Network/AWS/AutoScaling/ExecutePolicy.hs +1/−2
• gen/Network/AWS/AutoScaling/ExitStandby.hs +1/−2
• gen/Network/AWS/AutoScaling/PutLifecycleHook.hs +1/−2
• gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs +1/−2
• gen/Network/AWS/AutoScaling/PutScalingPolicy.hs +1/−2
• gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs +1/−2
• gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs +1/−2
• gen/Network/AWS/AutoScaling/ResumeProcesses.hs +1/−2
• gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs +1/−2
• gen/Network/AWS/AutoScaling/SetInstanceHealth.hs +1/−2
• gen/Network/AWS/AutoScaling/SuspendProcesses.hs +1/−2
• gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs +1/−3
• gen/Network/AWS/AutoScaling/Types.hs +32/−36
• gen/Network/AWS/AutoScaling/Types/Product.hs +0/−1
• gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs +1/−2
• test/Test/AWS/Gen/AutoScaling.hs +48/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-autoscaling-version:               1.1.0+version:               1.2.0 synopsis:              Amazon Auto Scaling SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -102,7 +102,7 @@         , Network.AWS.AutoScaling.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-autoscaling-test@@ -121,9 +121,9 @@         , Test.AWS.AutoScaling.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-autoscaling == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-autoscaling == 1.2.0         , base         , bytestring         , lens

@@ -21,8 +21,8 @@ -- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.AutoScaling     (-    -- * Service-      AutoScaling+    -- * Service Configuration+      autoScaling      -- * Errors     -- $errors

@@ -76,9 +76,8 @@ aiAutoScalingGroupName = lens _aiAutoScalingGroupName (\ s a -> s{_aiAutoScalingGroupName = a});  instance AWSRequest AttachInstances where-        type Sv AttachInstances = AutoScaling         type Rs AttachInstances = AttachInstancesResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull AttachInstancesResponse'  instance ToHeaders AttachInstances where

@@ -81,10 +81,9 @@ albLoadBalancerNames = lens _albLoadBalancerNames (\ s a -> s{_albLoadBalancerNames = a}) . _Default . _Coerce;  instance AWSRequest AttachLoadBalancers where-        type Sv AttachLoadBalancers = AutoScaling         type Rs AttachLoadBalancers =              AttachLoadBalancersResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "AttachLoadBalancersResult"               (\ s h x ->

@@ -119,10 +119,9 @@ claLifecycleActionResult = lens _claLifecycleActionResult (\ s a -> s{_claLifecycleActionResult = a});  instance AWSRequest CompleteLifecycleAction where-        type Sv CompleteLifecycleAction = AutoScaling         type Rs CompleteLifecycleAction =              CompleteLifecycleActionResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "CompleteLifecycleActionResult"               (\ s h x ->

@@ -268,10 +268,9 @@ casgMaxSize = lens _casgMaxSize (\ s a -> s{_casgMaxSize = a});  instance AWSRequest CreateAutoScalingGroup where-        type Sv CreateAutoScalingGroup = AutoScaling         type Rs CreateAutoScalingGroup =              CreateAutoScalingGroupResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull CreateAutoScalingGroupResponse' 

@@ -327,10 +327,9 @@ clcLaunchConfigurationName = lens _clcLaunchConfigurationName (\ s a -> s{_clcLaunchConfigurationName = a});  instance AWSRequest CreateLaunchConfiguration where-        type Sv CreateLaunchConfiguration = AutoScaling         type Rs CreateLaunchConfiguration =              CreateLaunchConfigurationResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull CreateLaunchConfigurationResponse' 

@@ -77,10 +77,9 @@ coutTags = lens _coutTags (\ s a -> s{_coutTags = a}) . _Coerce;  instance AWSRequest CreateOrUpdateTags where-        type Sv CreateOrUpdateTags = AutoScaling         type Rs CreateOrUpdateTags =              CreateOrUpdateTagsResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull CreateOrUpdateTagsResponse'  instance ToHeaders CreateOrUpdateTags where

@@ -81,10 +81,9 @@ dasgAutoScalingGroupName = lens _dasgAutoScalingGroupName (\ s a -> s{_dasgAutoScalingGroupName = a});  instance AWSRequest DeleteAutoScalingGroup where-        type Sv DeleteAutoScalingGroup = AutoScaling         type Rs DeleteAutoScalingGroup =              DeleteAutoScalingGroupResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull DeleteAutoScalingGroupResponse' 

@@ -67,10 +67,9 @@ dlcLaunchConfigurationName = lens _dlcLaunchConfigurationName (\ s a -> s{_dlcLaunchConfigurationName = a});  instance AWSRequest DeleteLaunchConfiguration where-        type Sv DeleteLaunchConfiguration = AutoScaling         type Rs DeleteLaunchConfiguration =              DeleteLaunchConfigurationResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull DeleteLaunchConfigurationResponse' 

@@ -79,10 +79,9 @@ delAutoScalingGroupName = lens _delAutoScalingGroupName (\ s a -> s{_delAutoScalingGroupName = a});  instance AWSRequest DeleteLifecycleHook where-        type Sv DeleteLifecycleHook = AutoScaling         type Rs DeleteLifecycleHook =              DeleteLifecycleHookResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DeleteLifecycleHookResult"               (\ s h x ->

@@ -75,10 +75,9 @@  instance AWSRequest DeleteNotificationConfiguration          where-        type Sv DeleteNotificationConfiguration = AutoScaling         type Rs DeleteNotificationConfiguration =              DeleteNotificationConfigurationResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull               DeleteNotificationConfigurationResponse'

@@ -74,9 +74,8 @@ dpPolicyName = lens _dpPolicyName (\ s a -> s{_dpPolicyName = a});  instance AWSRequest DeletePolicy where-        type Sv DeletePolicy = AutoScaling         type Rs DeletePolicy = DeletePolicyResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull DeletePolicyResponse'  instance ToHeaders DeletePolicy where

@@ -72,10 +72,9 @@ dsaScheduledActionName = lens _dsaScheduledActionName (\ s a -> s{_dsaScheduledActionName = a});  instance AWSRequest DeleteScheduledAction where-        type Sv DeleteScheduledAction = AutoScaling         type Rs DeleteScheduledAction =              DeleteScheduledActionResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull DeleteScheduledActionResponse'  instance ToHeaders DeleteScheduledAction where

@@ -65,9 +65,8 @@ dtTags = lens _dtTags (\ s a -> s{_dtTags = a}) . _Coerce;  instance AWSRequest DeleteTags where-        type Sv DeleteTags = AutoScaling         type Rs DeleteTags = DeleteTagsResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull DeleteTagsResponse'  instance ToHeaders DeleteTags where

@@ -58,10 +58,9 @@ describeAccountLimits = DescribeAccountLimits'  instance AWSRequest DescribeAccountLimits where-        type Sv DescribeAccountLimits = AutoScaling         type Rs DescribeAccountLimits =              DescribeAccountLimitsResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DescribeAccountLimitsResult"               (\ s h x ->

@@ -53,10 +53,9 @@ describeAdjustmentTypes = DescribeAdjustmentTypes'  instance AWSRequest DescribeAdjustmentTypes where-        type Sv DescribeAdjustmentTypes = AutoScaling         type Rs DescribeAdjustmentTypes =              DescribeAdjustmentTypesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DescribeAdjustmentTypesResult"               (\ s h x ->

@@ -96,10 +96,9 @@             Just $ rq & dasgNextToken .~ rs ^. dasgrsNextToken  instance AWSRequest DescribeAutoScalingGroups where-        type Sv DescribeAutoScalingGroups = AutoScaling         type Rs DescribeAutoScalingGroups =              DescribeAutoScalingGroupsResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DescribeAutoScalingGroupsResult"               (\ s h x ->

@@ -99,10 +99,9 @@  instance AWSRequest DescribeAutoScalingInstances          where-        type Sv DescribeAutoScalingInstances = AutoScaling         type Rs DescribeAutoScalingInstances =              DescribeAutoScalingInstancesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "DescribeAutoScalingInstancesResult"

@@ -54,11 +54,9 @@  instance AWSRequest          DescribeAutoScalingNotificationTypes where-        type Sv DescribeAutoScalingNotificationTypes =-             AutoScaling         type Rs DescribeAutoScalingNotificationTypes =              DescribeAutoScalingNotificationTypesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "DescribeAutoScalingNotificationTypesResult"

@@ -98,10 +98,9 @@  instance AWSRequest DescribeLaunchConfigurations          where-        type Sv DescribeLaunchConfigurations = AutoScaling         type Rs DescribeLaunchConfigurations =              DescribeLaunchConfigurationsResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "DescribeLaunchConfigurationsResult"

@@ -53,10 +53,9 @@ describeLifecycleHookTypes = DescribeLifecycleHookTypes'  instance AWSRequest DescribeLifecycleHookTypes where-        type Sv DescribeLifecycleHookTypes = AutoScaling         type Rs DescribeLifecycleHookTypes =              DescribeLifecycleHookTypesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "DescribeLifecycleHookTypesResult"

@@ -75,10 +75,9 @@ dlhAutoScalingGroupName = lens _dlhAutoScalingGroupName (\ s a -> s{_dlhAutoScalingGroupName = a});  instance AWSRequest DescribeLifecycleHooks where-        type Sv DescribeLifecycleHooks = AutoScaling         type Rs DescribeLifecycleHooks =              DescribeLifecycleHooksResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DescribeLifecycleHooksResult"               (\ s h x ->

@@ -86,10 +86,9 @@ dlbAutoScalingGroupName = lens _dlbAutoScalingGroupName (\ s a -> s{_dlbAutoScalingGroupName = a});  instance AWSRequest DescribeLoadBalancers where-        type Sv DescribeLoadBalancers = AutoScaling         type Rs DescribeLoadBalancers =              DescribeLoadBalancersResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DescribeLoadBalancersResult"               (\ s h x ->

@@ -59,10 +59,9 @@  instance AWSRequest DescribeMetricCollectionTypes          where-        type Sv DescribeMetricCollectionTypes = AutoScaling         type Rs DescribeMetricCollectionTypes =              DescribeMetricCollectionTypesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "DescribeMetricCollectionTypesResult"

@@ -99,11 +99,9 @@  instance AWSRequest          DescribeNotificationConfigurations where-        type Sv DescribeNotificationConfigurations =-             AutoScaling         type Rs DescribeNotificationConfigurations =              DescribeNotificationConfigurationsResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "DescribeNotificationConfigurationsResult"

@@ -117,9 +117,8 @@             Just $ rq & dpsNextToken .~ rs ^. dprsNextToken  instance AWSRequest DescribePolicies where-        type Sv DescribePolicies = AutoScaling         type Rs DescribePolicies = DescribePoliciesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DescribePoliciesResult"               (\ s h x ->

@@ -111,10 +111,9 @@             Just $ rq & desNextToken .~ rs ^. dsasrsNextToken  instance AWSRequest DescribeScalingActivities where-        type Sv DescribeScalingActivities = AutoScaling         type Rs DescribeScalingActivities =              DescribeScalingActivitiesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DescribeScalingActivitiesResult"               (\ s h x ->

@@ -54,10 +54,9 @@ describeScalingProcessTypes = DescribeScalingProcessTypes'  instance AWSRequest DescribeScalingProcessTypes where-        type Sv DescribeScalingProcessTypes = AutoScaling         type Rs DescribeScalingProcessTypes =              DescribeScalingProcessTypesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "DescribeScalingProcessTypesResult"

@@ -134,10 +134,9 @@             Just $ rq & dsasNextToken .~ rs ^. dsarsNextToken  instance AWSRequest DescribeScheduledActions where-        type Sv DescribeScheduledActions = AutoScaling         type Rs DescribeScheduledActions =              DescribeScheduledActionsResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DescribeScheduledActionsResult"               (\ s h x ->

@@ -104,9 +104,8 @@             Just $ rq & dtNextToken .~ rs ^. dtrsNextToken  instance AWSRequest DescribeTags where-        type Sv DescribeTags = AutoScaling         type Rs DescribeTags = DescribeTagsResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DescribeTagsResult"               (\ s h x ->

@@ -54,10 +54,9 @@  instance AWSRequest DescribeTerminationPolicyTypes          where-        type Sv DescribeTerminationPolicyTypes = AutoScaling         type Rs DescribeTerminationPolicyTypes =              DescribeTerminationPolicyTypesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "DescribeTerminationPolicyTypesResult"

@@ -92,9 +92,8 @@ diShouldDecrementDesiredCapacity = lens _diShouldDecrementDesiredCapacity (\ s a -> s{_diShouldDecrementDesiredCapacity = a});  instance AWSRequest DetachInstances where-        type Sv DetachInstances = AutoScaling         type Rs DetachInstances = DetachInstancesResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DetachInstancesResult"               (\ s h x ->

@@ -79,10 +79,9 @@ dLoadBalancerNames = lens _dLoadBalancerNames (\ s a -> s{_dLoadBalancerNames = a}) . _Default . _Coerce;  instance AWSRequest DetachLoadBalancers where-        type Sv DetachLoadBalancers = AutoScaling         type Rs DetachLoadBalancers =              DetachLoadBalancersResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "DetachLoadBalancersResult"               (\ s h x ->

@@ -91,10 +91,9 @@ dmcAutoScalingGroupName = lens _dmcAutoScalingGroupName (\ s a -> s{_dmcAutoScalingGroupName = a});  instance AWSRequest DisableMetricsCollection where-        type Sv DisableMetricsCollection = AutoScaling         type Rs DisableMetricsCollection =              DisableMetricsCollectionResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull DisableMetricsCollectionResponse' 

@@ -107,10 +107,9 @@ emcGranularity = lens _emcGranularity (\ s a -> s{_emcGranularity = a});  instance AWSRequest EnableMetricsCollection where-        type Sv EnableMetricsCollection = AutoScaling         type Rs EnableMetricsCollection =              EnableMetricsCollectionResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull EnableMetricsCollectionResponse' 

@@ -93,9 +93,8 @@ esShouldDecrementDesiredCapacity = lens _esShouldDecrementDesiredCapacity (\ s a -> s{_esShouldDecrementDesiredCapacity = a});  instance AWSRequest EnterStandby where-        type Sv EnterStandby = AutoScaling         type Rs EnterStandby = EnterStandbyResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "EnterStandbyResult"               (\ s h x ->

@@ -120,9 +120,8 @@ epPolicyName = lens _epPolicyName (\ s a -> s{_epPolicyName = a});  instance AWSRequest ExecutePolicy where-        type Sv ExecutePolicy = AutoScaling         type Rs ExecutePolicy = ExecutePolicyResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull ExecutePolicyResponse'  instance ToHeaders ExecutePolicy where

@@ -79,9 +79,8 @@ eAutoScalingGroupName = lens _eAutoScalingGroupName (\ s a -> s{_eAutoScalingGroupName = a});  instance AWSRequest ExitStandby where-        type Sv ExitStandby = AutoScaling         type Rs ExitStandby = ExitStandbyResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "ExitStandbyResult"               (\ s h x ->

@@ -200,9 +200,8 @@ plhAutoScalingGroupName = lens _plhAutoScalingGroupName (\ s a -> s{_plhAutoScalingGroupName = a});  instance AWSRequest PutLifecycleHook where-        type Sv PutLifecycleHook = AutoScaling         type Rs PutLifecycleHook = PutLifecycleHookResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "PutLifecycleHookResult"               (\ s h x ->

@@ -94,10 +94,9 @@  instance AWSRequest PutNotificationConfiguration          where-        type Sv PutNotificationConfiguration = AutoScaling         type Rs PutNotificationConfiguration =              PutNotificationConfigurationResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull PutNotificationConfigurationResponse' 

@@ -203,9 +203,8 @@ pspAdjustmentType = lens _pspAdjustmentType (\ s a -> s{_pspAdjustmentType = a});  instance AWSRequest PutScalingPolicy where-        type Sv PutScalingPolicy = AutoScaling         type Rs PutScalingPolicy = PutScalingPolicyResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper "PutScalingPolicyResult"               (\ s h x ->

@@ -159,10 +159,9 @@  instance AWSRequest PutScheduledUpdateGroupAction          where-        type Sv PutScheduledUpdateGroupAction = AutoScaling         type Rs PutScheduledUpdateGroupAction =              PutScheduledUpdateGroupActionResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull PutScheduledUpdateGroupActionResponse' 

@@ -109,10 +109,9 @@  instance AWSRequest RecordLifecycleActionHeartbeat          where-        type Sv RecordLifecycleActionHeartbeat = AutoScaling         type Rs RecordLifecycleActionHeartbeat =              RecordLifecycleActionHeartbeatResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "RecordLifecycleActionHeartbeatResult"

@@ -94,9 +94,8 @@ rpAutoScalingGroupName = lens _rpAutoScalingGroupName (\ s a -> s{_rpAutoScalingGroupName = a});  instance AWSRequest ResumeProcesses where-        type Sv ResumeProcesses = AutoScaling         type Rs ResumeProcesses = ResumeProcessesResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull ResumeProcessesResponse'  instance ToHeaders ResumeProcesses where

@@ -91,10 +91,9 @@ sdcDesiredCapacity = lens _sdcDesiredCapacity (\ s a -> s{_sdcDesiredCapacity = a});  instance AWSRequest SetDesiredCapacity where-        type Sv SetDesiredCapacity = AutoScaling         type Rs SetDesiredCapacity =              SetDesiredCapacityResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull SetDesiredCapacityResponse'  instance ToHeaders SetDesiredCapacity where

@@ -95,9 +95,8 @@ sihHealthStatus = lens _sihHealthStatus (\ s a -> s{_sihHealthStatus = a});  instance AWSRequest SetInstanceHealth where-        type Sv SetInstanceHealth = AutoScaling         type Rs SetInstanceHealth = SetInstanceHealthResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull SetInstanceHealthResponse'  instance ToHeaders SetInstanceHealth where

@@ -101,9 +101,8 @@ spAutoScalingGroupName = lens _spAutoScalingGroupName (\ s a -> s{_spAutoScalingGroupName = a});  instance AWSRequest SuspendProcesses where-        type Sv SuspendProcesses = AutoScaling         type Rs SuspendProcesses = SuspendProcessesResponse-        request = postQuery+        request = postQuery autoScaling         response = receiveNull SuspendProcessesResponse'  instance ToHeaders SuspendProcesses where

@@ -82,11 +82,9 @@  instance AWSRequest          TerminateInstanceInAutoScalingGroup where-        type Sv TerminateInstanceInAutoScalingGroup =-             AutoScaling         type Rs TerminateInstanceInAutoScalingGroup =              TerminateInstanceInAutoScalingGroupResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveXMLWrapper               "TerminateInstanceInAutoScalingGroupResult"

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.AutoScaling.Types     (-    -- * Service-      AutoScaling+    -- * Service Configuration+      autoScaling      -- * Errors     , _LimitExceededFault@@ -270,39 +269,36 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | Version @2011-01-01@ of the Amazon Auto Scaling SDK.-data AutoScaling--instance AWSService AutoScaling where-    type Sg AutoScaling = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "AutoScaling"-            , _svcPrefix = "autoscaling"-            , _svcVersion = "2011-01-01"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseXMLError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | API version '2011-01-01' of the Amazon Auto Scaling SDK configuration.+autoScaling :: Service+autoScaling =+    Service+    { _svcAbbrev = "AutoScaling"+    , _svcSigner = v4+    , _svcPrefix = "autoscaling"+    , _svcVersion = "2011-01-01"+    , _svcEndpoint = defaultEndpoint autoScaling+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | You have already reached a limit for your Auto Scaling resources (for -- example, groups, launch configurations, or lifecycle hooks). For more

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} 

@@ -214,10 +214,9 @@ uasgAutoScalingGroupName = lens _uasgAutoScalingGroupName (\ s a -> s{_uasgAutoScalingGroupName = a});  instance AWSRequest UpdateAutoScalingGroup where-        type Sv UpdateAutoScalingGroup = AutoScaling         type Rs UpdateAutoScalingGroup =              UpdateAutoScalingGroupResponse-        request = postQuery+        request = postQuery autoScaling         response           = receiveNull UpdateAutoScalingGroupResponse' 

@@ -570,286 +570,334 @@ testDescribeMetricCollectionTypesResponse = res     "DescribeMetricCollectionTypesResponse"     "fixture/DescribeMetricCollectionTypesResponse"+    autoScaling     (Proxy :: Proxy DescribeMetricCollectionTypes)  testPutScalingPolicyResponse :: PutScalingPolicyResponse -> TestTree testPutScalingPolicyResponse = res     "PutScalingPolicyResponse"     "fixture/PutScalingPolicyResponse"+    autoScaling     (Proxy :: Proxy PutScalingPolicy)  testDeleteNotificationConfigurationResponse :: DeleteNotificationConfigurationResponse -> TestTree testDeleteNotificationConfigurationResponse = res     "DeleteNotificationConfigurationResponse"     "fixture/DeleteNotificationConfigurationResponse"+    autoScaling     (Proxy :: Proxy DeleteNotificationConfiguration)  testDescribeTagsResponse :: DescribeTagsResponse -> TestTree testDescribeTagsResponse = res     "DescribeTagsResponse"     "fixture/DescribeTagsResponse"+    autoScaling     (Proxy :: Proxy DescribeTags)  testDeleteLaunchConfigurationResponse :: DeleteLaunchConfigurationResponse -> TestTree testDeleteLaunchConfigurationResponse = res     "DeleteLaunchConfigurationResponse"     "fixture/DeleteLaunchConfigurationResponse"+    autoScaling     (Proxy :: Proxy DeleteLaunchConfiguration)  testDescribeLoadBalancersResponse :: DescribeLoadBalancersResponse -> TestTree testDescribeLoadBalancersResponse = res     "DescribeLoadBalancersResponse"     "fixture/DescribeLoadBalancersResponse"+    autoScaling     (Proxy :: Proxy DescribeLoadBalancers)  testPutNotificationConfigurationResponse :: PutNotificationConfigurationResponse -> TestTree testPutNotificationConfigurationResponse = res     "PutNotificationConfigurationResponse"     "fixture/PutNotificationConfigurationResponse"+    autoScaling     (Proxy :: Proxy PutNotificationConfiguration)  testSetInstanceHealthResponse :: SetInstanceHealthResponse -> TestTree testSetInstanceHealthResponse = res     "SetInstanceHealthResponse"     "fixture/SetInstanceHealthResponse"+    autoScaling     (Proxy :: Proxy SetInstanceHealth)  testEnterStandbyResponse :: EnterStandbyResponse -> TestTree testEnterStandbyResponse = res     "EnterStandbyResponse"     "fixture/EnterStandbyResponse"+    autoScaling     (Proxy :: Proxy EnterStandby)  testSuspendProcessesResponse :: SuspendProcessesResponse -> TestTree testSuspendProcessesResponse = res     "SuspendProcessesResponse"     "fixture/SuspendProcessesResponse"+    autoScaling     (Proxy :: Proxy SuspendProcesses)  testExitStandbyResponse :: ExitStandbyResponse -> TestTree testExitStandbyResponse = res     "ExitStandbyResponse"     "fixture/ExitStandbyResponse"+    autoScaling     (Proxy :: Proxy ExitStandby)  testDescribeTerminationPolicyTypesResponse :: DescribeTerminationPolicyTypesResponse -> TestTree testDescribeTerminationPolicyTypesResponse = res     "DescribeTerminationPolicyTypesResponse"     "fixture/DescribeTerminationPolicyTypesResponse"+    autoScaling     (Proxy :: Proxy DescribeTerminationPolicyTypes)  testDescribeAutoScalingInstancesResponse :: DescribeAutoScalingInstancesResponse -> TestTree testDescribeAutoScalingInstancesResponse = res     "DescribeAutoScalingInstancesResponse"     "fixture/DescribeAutoScalingInstancesResponse"+    autoScaling     (Proxy :: Proxy DescribeAutoScalingInstances)  testDetachInstancesResponse :: DetachInstancesResponse -> TestTree testDetachInstancesResponse = res     "DetachInstancesResponse"     "fixture/DetachInstancesResponse"+    autoScaling     (Proxy :: Proxy DetachInstances)  testDisableMetricsCollectionResponse :: DisableMetricsCollectionResponse -> TestTree testDisableMetricsCollectionResponse = res     "DisableMetricsCollectionResponse"     "fixture/DisableMetricsCollectionResponse"+    autoScaling     (Proxy :: Proxy DisableMetricsCollection)  testRecordLifecycleActionHeartbeatResponse :: RecordLifecycleActionHeartbeatResponse -> TestTree testRecordLifecycleActionHeartbeatResponse = res     "RecordLifecycleActionHeartbeatResponse"     "fixture/RecordLifecycleActionHeartbeatResponse"+    autoScaling     (Proxy :: Proxy RecordLifecycleActionHeartbeat)  testDeleteTagsResponse :: DeleteTagsResponse -> TestTree testDeleteTagsResponse = res     "DeleteTagsResponse"     "fixture/DeleteTagsResponse"+    autoScaling     (Proxy :: Proxy DeleteTags)  testDescribeScalingProcessTypesResponse :: DescribeScalingProcessTypesResponse -> TestTree testDescribeScalingProcessTypesResponse = res     "DescribeScalingProcessTypesResponse"     "fixture/DescribeScalingProcessTypesResponse"+    autoScaling     (Proxy :: Proxy DescribeScalingProcessTypes)  testEnableMetricsCollectionResponse :: EnableMetricsCollectionResponse -> TestTree testEnableMetricsCollectionResponse = res     "EnableMetricsCollectionResponse"     "fixture/EnableMetricsCollectionResponse"+    autoScaling     (Proxy :: Proxy EnableMetricsCollection)  testDescribeLifecycleHooksResponse :: DescribeLifecycleHooksResponse -> TestTree testDescribeLifecycleHooksResponse = res     "DescribeLifecycleHooksResponse"     "fixture/DescribeLifecycleHooksResponse"+    autoScaling     (Proxy :: Proxy DescribeLifecycleHooks)  testDescribeAutoScalingGroupsResponse :: DescribeAutoScalingGroupsResponse -> TestTree testDescribeAutoScalingGroupsResponse = res     "DescribeAutoScalingGroupsResponse"     "fixture/DescribeAutoScalingGroupsResponse"+    autoScaling     (Proxy :: Proxy DescribeAutoScalingGroups)  testSetDesiredCapacityResponse :: SetDesiredCapacityResponse -> TestTree testSetDesiredCapacityResponse = res     "SetDesiredCapacityResponse"     "fixture/SetDesiredCapacityResponse"+    autoScaling     (Proxy :: Proxy SetDesiredCapacity)  testDetachLoadBalancersResponse :: DetachLoadBalancersResponse -> TestTree testDetachLoadBalancersResponse = res     "DetachLoadBalancersResponse"     "fixture/DetachLoadBalancersResponse"+    autoScaling     (Proxy :: Proxy DetachLoadBalancers)  testDeleteScheduledActionResponse :: DeleteScheduledActionResponse -> TestTree testDeleteScheduledActionResponse = res     "DeleteScheduledActionResponse"     "fixture/DeleteScheduledActionResponse"+    autoScaling     (Proxy :: Proxy DeleteScheduledAction)  testCreateOrUpdateTagsResponse :: CreateOrUpdateTagsResponse -> TestTree testCreateOrUpdateTagsResponse = res     "CreateOrUpdateTagsResponse"     "fixture/CreateOrUpdateTagsResponse"+    autoScaling     (Proxy :: Proxy CreateOrUpdateTags)  testDeletePolicyResponse :: DeletePolicyResponse -> TestTree testDeletePolicyResponse = res     "DeletePolicyResponse"     "fixture/DeletePolicyResponse"+    autoScaling     (Proxy :: Proxy DeletePolicy)  testDescribeAutoScalingNotificationTypesResponse :: DescribeAutoScalingNotificationTypesResponse -> TestTree testDescribeAutoScalingNotificationTypesResponse = res     "DescribeAutoScalingNotificationTypesResponse"     "fixture/DescribeAutoScalingNotificationTypesResponse"+    autoScaling     (Proxy :: Proxy DescribeAutoScalingNotificationTypes)  testCompleteLifecycleActionResponse :: CompleteLifecycleActionResponse -> TestTree testCompleteLifecycleActionResponse = res     "CompleteLifecycleActionResponse"     "fixture/CompleteLifecycleActionResponse"+    autoScaling     (Proxy :: Proxy CompleteLifecycleAction)  testAttachInstancesResponse :: AttachInstancesResponse -> TestTree testAttachInstancesResponse = res     "AttachInstancesResponse"     "fixture/AttachInstancesResponse"+    autoScaling     (Proxy :: Proxy AttachInstances)  testDescribeScheduledActionsResponse :: DescribeScheduledActionsResponse -> TestTree testDescribeScheduledActionsResponse = res     "DescribeScheduledActionsResponse"     "fixture/DescribeScheduledActionsResponse"+    autoScaling     (Proxy :: Proxy DescribeScheduledActions)  testDeleteAutoScalingGroupResponse :: DeleteAutoScalingGroupResponse -> TestTree testDeleteAutoScalingGroupResponse = res     "DeleteAutoScalingGroupResponse"     "fixture/DeleteAutoScalingGroupResponse"+    autoScaling     (Proxy :: Proxy DeleteAutoScalingGroup)  testPutLifecycleHookResponse :: PutLifecycleHookResponse -> TestTree testPutLifecycleHookResponse = res     "PutLifecycleHookResponse"     "fixture/PutLifecycleHookResponse"+    autoScaling     (Proxy :: Proxy PutLifecycleHook)  testUpdateAutoScalingGroupResponse :: UpdateAutoScalingGroupResponse -> TestTree testUpdateAutoScalingGroupResponse = res     "UpdateAutoScalingGroupResponse"     "fixture/UpdateAutoScalingGroupResponse"+    autoScaling     (Proxy :: Proxy UpdateAutoScalingGroup)  testDeleteLifecycleHookResponse :: DeleteLifecycleHookResponse -> TestTree testDeleteLifecycleHookResponse = res     "DeleteLifecycleHookResponse"     "fixture/DeleteLifecycleHookResponse"+    autoScaling     (Proxy :: Proxy DeleteLifecycleHook)  testResumeProcessesResponse :: ResumeProcessesResponse -> TestTree testResumeProcessesResponse = res     "ResumeProcessesResponse"     "fixture/ResumeProcessesResponse"+    autoScaling     (Proxy :: Proxy ResumeProcesses)  testExecutePolicyResponse :: ExecutePolicyResponse -> TestTree testExecutePolicyResponse = res     "ExecutePolicyResponse"     "fixture/ExecutePolicyResponse"+    autoScaling     (Proxy :: Proxy ExecutePolicy)  testTerminateInstanceInAutoScalingGroupResponse :: TerminateInstanceInAutoScalingGroupResponse -> TestTree testTerminateInstanceInAutoScalingGroupResponse = res     "TerminateInstanceInAutoScalingGroupResponse"     "fixture/TerminateInstanceInAutoScalingGroupResponse"+    autoScaling     (Proxy :: Proxy TerminateInstanceInAutoScalingGroup)  testDescribeAccountLimitsResponse :: DescribeAccountLimitsResponse -> TestTree testDescribeAccountLimitsResponse = res     "DescribeAccountLimitsResponse"     "fixture/DescribeAccountLimitsResponse"+    autoScaling     (Proxy :: Proxy DescribeAccountLimits)  testAttachLoadBalancersResponse :: AttachLoadBalancersResponse -> TestTree testAttachLoadBalancersResponse = res     "AttachLoadBalancersResponse"     "fixture/AttachLoadBalancersResponse"+    autoScaling     (Proxy :: Proxy AttachLoadBalancers)  testPutScheduledUpdateGroupActionResponse :: PutScheduledUpdateGroupActionResponse -> TestTree testPutScheduledUpdateGroupActionResponse = res     "PutScheduledUpdateGroupActionResponse"     "fixture/PutScheduledUpdateGroupActionResponse"+    autoScaling     (Proxy :: Proxy PutScheduledUpdateGroupAction)  testDescribePoliciesResponse :: DescribePoliciesResponse -> TestTree testDescribePoliciesResponse = res     "DescribePoliciesResponse"     "fixture/DescribePoliciesResponse"+    autoScaling     (Proxy :: Proxy DescribePolicies)  testDescribeNotificationConfigurationsResponse :: DescribeNotificationConfigurationsResponse -> TestTree testDescribeNotificationConfigurationsResponse = res     "DescribeNotificationConfigurationsResponse"     "fixture/DescribeNotificationConfigurationsResponse"+    autoScaling     (Proxy :: Proxy DescribeNotificationConfigurations)  testDescribeLaunchConfigurationsResponse :: DescribeLaunchConfigurationsResponse -> TestTree testDescribeLaunchConfigurationsResponse = res     "DescribeLaunchConfigurationsResponse"     "fixture/DescribeLaunchConfigurationsResponse"+    autoScaling     (Proxy :: Proxy DescribeLaunchConfigurations)  testDescribeLifecycleHookTypesResponse :: DescribeLifecycleHookTypesResponse -> TestTree testDescribeLifecycleHookTypesResponse = res     "DescribeLifecycleHookTypesResponse"     "fixture/DescribeLifecycleHookTypesResponse"+    autoScaling     (Proxy :: Proxy DescribeLifecycleHookTypes)  testDescribeScalingActivitiesResponse :: DescribeScalingActivitiesResponse -> TestTree testDescribeScalingActivitiesResponse = res     "DescribeScalingActivitiesResponse"     "fixture/DescribeScalingActivitiesResponse"+    autoScaling     (Proxy :: Proxy DescribeScalingActivities)  testCreateAutoScalingGroupResponse :: CreateAutoScalingGroupResponse -> TestTree testCreateAutoScalingGroupResponse = res     "CreateAutoScalingGroupResponse"     "fixture/CreateAutoScalingGroupResponse"+    autoScaling     (Proxy :: Proxy CreateAutoScalingGroup)  testCreateLaunchConfigurationResponse :: CreateLaunchConfigurationResponse -> TestTree testCreateLaunchConfigurationResponse = res     "CreateLaunchConfigurationResponse"     "fixture/CreateLaunchConfigurationResponse"+    autoScaling     (Proxy :: Proxy CreateLaunchConfiguration)  testDescribeAdjustmentTypesResponse :: DescribeAdjustmentTypesResponse -> TestTree testDescribeAdjustmentTypesResponse = res     "DescribeAdjustmentTypesResponse"     "fixture/DescribeAdjustmentTypesResponse"+    autoScaling     (Proxy :: Proxy DescribeAdjustmentTypes)