diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## Description diff --git a/amazonka-autoscaling.cabal b/amazonka-autoscaling.cabal --- a/amazonka-autoscaling.cabal +++ b/amazonka-autoscaling.cabal @@ -1,5 +1,5 @@ name: amazonka-autoscaling -version: 1.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 diff --git a/gen/Network/AWS/AutoScaling.hs b/gen/Network/AWS/AutoScaling.hs --- a/gen/Network/AWS/AutoScaling.hs +++ b/gen/Network/AWS/AutoScaling.hs @@ -21,8 +21,8 @@ -- /See:/ module Network.AWS.AutoScaling ( - -- * Service - AutoScaling + -- * Service Configuration + autoScaling -- * Errors -- $errors diff --git a/gen/Network/AWS/AutoScaling/AttachInstances.hs b/gen/Network/AWS/AutoScaling/AttachInstances.hs --- a/gen/Network/AWS/AutoScaling/AttachInstances.hs +++ b/gen/Network/AWS/AutoScaling/AttachInstances.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs b/gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs --- a/gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs +++ b/gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs b/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs --- a/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs +++ b/gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs @@ -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' diff --git a/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs b/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs --- a/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs +++ b/gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs @@ -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' diff --git a/gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs b/gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs --- a/gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs +++ b/gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs @@ -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' diff --git a/gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs b/gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs --- a/gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs +++ b/gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs @@ -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' diff --git a/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs b/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs --- a/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs +++ b/gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs b/gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs --- a/gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs +++ b/gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs @@ -75,10 +75,9 @@ instance AWSRequest DeleteNotificationConfiguration where - type Sv DeleteNotificationConfiguration = AutoScaling type Rs DeleteNotificationConfiguration = DeleteNotificationConfigurationResponse - request = postQuery + request = postQuery autoScaling response = receiveNull DeleteNotificationConfigurationResponse' diff --git a/gen/Network/AWS/AutoScaling/DeletePolicy.hs b/gen/Network/AWS/AutoScaling/DeletePolicy.hs --- a/gen/Network/AWS/AutoScaling/DeletePolicy.hs +++ b/gen/Network/AWS/AutoScaling/DeletePolicy.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs b/gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs --- a/gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs +++ b/gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/DeleteTags.hs b/gen/Network/AWS/AutoScaling/DeleteTags.hs --- a/gen/Network/AWS/AutoScaling/DeleteTags.hs +++ b/gen/Network/AWS/AutoScaling/DeleteTags.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs b/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs --- a/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs b/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs b/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs --- a/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs b/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs --- a/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs @@ -99,10 +99,9 @@ instance AWSRequest DescribeAutoScalingInstances where - type Sv DescribeAutoScalingInstances = AutoScaling type Rs DescribeAutoScalingInstances = DescribeAutoScalingInstancesResponse - request = postQuery + request = postQuery autoScaling response = receiveXMLWrapper "DescribeAutoScalingInstancesResult" diff --git a/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs b/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs @@ -54,11 +54,9 @@ instance AWSRequest DescribeAutoScalingNotificationTypes where - type Sv DescribeAutoScalingNotificationTypes = - AutoScaling type Rs DescribeAutoScalingNotificationTypes = DescribeAutoScalingNotificationTypesResponse - request = postQuery + request = postQuery autoScaling response = receiveXMLWrapper "DescribeAutoScalingNotificationTypesResult" diff --git a/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs b/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs --- a/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs @@ -98,10 +98,9 @@ instance AWSRequest DescribeLaunchConfigurations where - type Sv DescribeLaunchConfigurations = AutoScaling type Rs DescribeLaunchConfigurations = DescribeLaunchConfigurationsResponse - request = postQuery + request = postQuery autoScaling response = receiveXMLWrapper "DescribeLaunchConfigurationsResult" diff --git a/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs b/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs @@ -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" diff --git a/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs b/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs --- a/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs b/gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs --- a/gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs +++ b/gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs b/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs @@ -59,10 +59,9 @@ instance AWSRequest DescribeMetricCollectionTypes where - type Sv DescribeMetricCollectionTypes = AutoScaling type Rs DescribeMetricCollectionTypes = DescribeMetricCollectionTypesResponse - request = postQuery + request = postQuery autoScaling response = receiveXMLWrapper "DescribeMetricCollectionTypesResult" diff --git a/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs b/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs --- a/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs +++ b/gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs @@ -99,11 +99,9 @@ instance AWSRequest DescribeNotificationConfigurations where - type Sv DescribeNotificationConfigurations = - AutoScaling type Rs DescribeNotificationConfigurations = DescribeNotificationConfigurationsResponse - request = postQuery + request = postQuery autoScaling response = receiveXMLWrapper "DescribeNotificationConfigurationsResult" diff --git a/gen/Network/AWS/AutoScaling/DescribePolicies.hs b/gen/Network/AWS/AutoScaling/DescribePolicies.hs --- a/gen/Network/AWS/AutoScaling/DescribePolicies.hs +++ b/gen/Network/AWS/AutoScaling/DescribePolicies.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs b/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs --- a/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs +++ b/gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs b/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs @@ -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" diff --git a/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs b/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs --- a/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs +++ b/gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DescribeTags.hs b/gen/Network/AWS/AutoScaling/DescribeTags.hs --- a/gen/Network/AWS/AutoScaling/DescribeTags.hs +++ b/gen/Network/AWS/AutoScaling/DescribeTags.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs b/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs --- a/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs +++ b/gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs @@ -54,10 +54,9 @@ instance AWSRequest DescribeTerminationPolicyTypes where - type Sv DescribeTerminationPolicyTypes = AutoScaling type Rs DescribeTerminationPolicyTypes = DescribeTerminationPolicyTypesResponse - request = postQuery + request = postQuery autoScaling response = receiveXMLWrapper "DescribeTerminationPolicyTypesResult" diff --git a/gen/Network/AWS/AutoScaling/DetachInstances.hs b/gen/Network/AWS/AutoScaling/DetachInstances.hs --- a/gen/Network/AWS/AutoScaling/DetachInstances.hs +++ b/gen/Network/AWS/AutoScaling/DetachInstances.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs b/gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs --- a/gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs +++ b/gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs b/gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs --- a/gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs +++ b/gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs @@ -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' diff --git a/gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs b/gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs --- a/gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs +++ b/gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs @@ -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' diff --git a/gen/Network/AWS/AutoScaling/EnterStandby.hs b/gen/Network/AWS/AutoScaling/EnterStandby.hs --- a/gen/Network/AWS/AutoScaling/EnterStandby.hs +++ b/gen/Network/AWS/AutoScaling/EnterStandby.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/ExecutePolicy.hs b/gen/Network/AWS/AutoScaling/ExecutePolicy.hs --- a/gen/Network/AWS/AutoScaling/ExecutePolicy.hs +++ b/gen/Network/AWS/AutoScaling/ExecutePolicy.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/ExitStandby.hs b/gen/Network/AWS/AutoScaling/ExitStandby.hs --- a/gen/Network/AWS/AutoScaling/ExitStandby.hs +++ b/gen/Network/AWS/AutoScaling/ExitStandby.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs b/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs --- a/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs +++ b/gen/Network/AWS/AutoScaling/PutLifecycleHook.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs b/gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs --- a/gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs +++ b/gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs @@ -94,10 +94,9 @@ instance AWSRequest PutNotificationConfiguration where - type Sv PutNotificationConfiguration = AutoScaling type Rs PutNotificationConfiguration = PutNotificationConfigurationResponse - request = postQuery + request = postQuery autoScaling response = receiveNull PutNotificationConfigurationResponse' diff --git a/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs b/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs --- a/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs +++ b/gen/Network/AWS/AutoScaling/PutScalingPolicy.hs @@ -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 -> diff --git a/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs b/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs --- a/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs +++ b/gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs @@ -159,10 +159,9 @@ instance AWSRequest PutScheduledUpdateGroupAction where - type Sv PutScheduledUpdateGroupAction = AutoScaling type Rs PutScheduledUpdateGroupAction = PutScheduledUpdateGroupActionResponse - request = postQuery + request = postQuery autoScaling response = receiveNull PutScheduledUpdateGroupActionResponse' diff --git a/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs b/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs --- a/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs +++ b/gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs @@ -109,10 +109,9 @@ instance AWSRequest RecordLifecycleActionHeartbeat where - type Sv RecordLifecycleActionHeartbeat = AutoScaling type Rs RecordLifecycleActionHeartbeat = RecordLifecycleActionHeartbeatResponse - request = postQuery + request = postQuery autoScaling response = receiveXMLWrapper "RecordLifecycleActionHeartbeatResult" diff --git a/gen/Network/AWS/AutoScaling/ResumeProcesses.hs b/gen/Network/AWS/AutoScaling/ResumeProcesses.hs --- a/gen/Network/AWS/AutoScaling/ResumeProcesses.hs +++ b/gen/Network/AWS/AutoScaling/ResumeProcesses.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs b/gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs --- a/gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs +++ b/gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/SetInstanceHealth.hs b/gen/Network/AWS/AutoScaling/SetInstanceHealth.hs --- a/gen/Network/AWS/AutoScaling/SetInstanceHealth.hs +++ b/gen/Network/AWS/AutoScaling/SetInstanceHealth.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/SuspendProcesses.hs b/gen/Network/AWS/AutoScaling/SuspendProcesses.hs --- a/gen/Network/AWS/AutoScaling/SuspendProcesses.hs +++ b/gen/Network/AWS/AutoScaling/SuspendProcesses.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs @@ -82,11 +82,9 @@ instance AWSRequest TerminateInstanceInAutoScalingGroup where - type Sv TerminateInstanceInAutoScalingGroup = - AutoScaling type Rs TerminateInstanceInAutoScalingGroup = TerminateInstanceInAutoScalingGroupResponse - request = postQuery + request = postQuery autoScaling response = receiveXMLWrapper "TerminateInstanceInAutoScalingGroupResult" diff --git a/gen/Network/AWS/AutoScaling/Types.hs b/gen/Network/AWS/AutoScaling/Types.hs --- a/gen/Network/AWS/AutoScaling/Types.hs +++ b/gen/Network/AWS/AutoScaling/Types.hs @@ -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 diff --git a/gen/Network/AWS/AutoScaling/Types/Product.hs b/gen/Network/AWS/AutoScaling/Types/Product.hs --- a/gen/Network/AWS/AutoScaling/Types/Product.hs +++ b/gen/Network/AWS/AutoScaling/Types/Product.hs @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} diff --git a/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs b/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs --- a/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs +++ b/gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs @@ -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' diff --git a/test/Test/AWS/Gen/AutoScaling.hs b/test/Test/AWS/Gen/AutoScaling.hs --- a/test/Test/AWS/Gen/AutoScaling.hs +++ b/test/Test/AWS/Gen/AutoScaling.hs @@ -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)