amazonka-autoscaling 1.4.0 → 1.4.1

raw patch · 55 files changed

+278/−22 lines, 55 filesdep ~amazonka-autoscalingdep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

@@ -8,7 +8,7 @@  ## Version -`1.4.0`+`1.4.1`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-autoscaling-version:               1.4.0+version:               1.4.1 synopsis:              Amazon Auto Scaling SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -103,7 +103,7 @@         , Network.AWS.AutoScaling.Types.Sum      build-depends:-          amazonka-core == 1.4.0.*+          amazonka-core == 1.4.1.*         , base          >= 4.7     && < 5  test-suite amazonka-autoscaling-test@@ -123,9 +123,9 @@         , Test.AWS.AutoScaling.Internal      build-depends:-          amazonka-core == 1.4.0.*-        , amazonka-test == 1.4.0.*-        , amazonka-autoscaling == 1.4.0.*+          amazonka-core == 1.4.1.*+        , amazonka-test == 1.4.1.*+        , amazonka-autoscaling == 1.4.1.*         , base         , bytestring         , tasty

@@ -257,12 +257,12 @@     -- ** AutoScalingInstanceDetails     , AutoScalingInstanceDetails     , autoScalingInstanceDetails+    , asidLaunchConfigurationName     , asidInstanceId     , asidAutoScalingGroupName     , asidAvailabilityZone     , asidLifecycleState     , asidHealthStatus-    , asidLaunchConfigurationName     , asidProtectedFromScaleIn      -- ** BlockDeviceMapping

@@ -86,6 +86,8 @@  instance Hashable AttachInstances +instance NFData AttachInstances+ instance ToHeaders AttachInstances where         toHeaders = const mempty @@ -111,3 +113,5 @@ attachInstancesResponse     :: AttachInstancesResponse attachInstancesResponse = AttachInstancesResponse'++instance NFData AttachInstancesResponse

@@ -90,6 +90,8 @@  instance Hashable AttachLoadBalancers +instance NFData AttachLoadBalancers+ instance ToHeaders AttachLoadBalancers where         toHeaders = const mempty @@ -127,3 +129,5 @@ -- | The response status code. albrsResponseStatus :: Lens' AttachLoadBalancersResponse Int albrsResponseStatus = lens _albrsResponseStatus (\ s a -> s{_albrsResponseStatus = a});++instance NFData AttachLoadBalancersResponse

@@ -139,6 +139,8 @@  instance Hashable CompleteLifecycleAction +instance NFData CompleteLifecycleAction+ instance ToHeaders CompleteLifecycleAction where         toHeaders = const mempty @@ -178,3 +180,5 @@ -- | The response status code. clarsResponseStatus :: Lens' CompleteLifecycleActionResponse Int clarsResponseStatus = lens _clarsResponseStatus (\ s a -> s{_clarsResponseStatus = a});++instance NFData CompleteLifecycleActionResponse

@@ -278,6 +278,8 @@  instance Hashable CreateAutoScalingGroup +instance NFData CreateAutoScalingGroup+ instance ToHeaders CreateAutoScalingGroup where         toHeaders = const mempty @@ -326,3 +328,5 @@ createAutoScalingGroupResponse     :: CreateAutoScalingGroupResponse createAutoScalingGroupResponse = CreateAutoScalingGroupResponse'++instance NFData CreateAutoScalingGroupResponse

@@ -330,6 +330,8 @@  instance Hashable CreateLaunchConfiguration +instance NFData CreateLaunchConfiguration+ instance ToHeaders CreateLaunchConfiguration where         toHeaders = const mempty @@ -380,3 +382,5 @@ createLaunchConfigurationResponse     :: CreateLaunchConfigurationResponse createLaunchConfigurationResponse = CreateLaunchConfigurationResponse'++instance NFData CreateLaunchConfigurationResponse

@@ -76,6 +76,8 @@  instance Hashable CreateOrUpdateTags +instance NFData CreateOrUpdateTags+ instance ToHeaders CreateOrUpdateTags where         toHeaders = const mempty @@ -99,3 +101,5 @@ createOrUpdateTagsResponse     :: CreateOrUpdateTagsResponse createOrUpdateTagsResponse = CreateOrUpdateTagsResponse'++instance NFData CreateOrUpdateTagsResponse

@@ -98,6 +98,8 @@  instance Hashable DeleteAutoScalingGroup +instance NFData DeleteAutoScalingGroup+ instance ToHeaders DeleteAutoScalingGroup where         toHeaders = const mempty @@ -123,3 +125,5 @@ deleteAutoScalingGroupResponse     :: DeleteAutoScalingGroupResponse deleteAutoScalingGroupResponse = DeleteAutoScalingGroupResponse'++instance NFData DeleteAutoScalingGroupResponse

@@ -74,6 +74,8 @@  instance Hashable DeleteLaunchConfiguration +instance NFData DeleteLaunchConfiguration+ instance ToHeaders DeleteLaunchConfiguration where         toHeaders = const mempty @@ -99,3 +101,5 @@ deleteLaunchConfigurationResponse     :: DeleteLaunchConfigurationResponse deleteLaunchConfigurationResponse = DeleteLaunchConfigurationResponse'++instance NFData DeleteLaunchConfigurationResponse

@@ -88,6 +88,8 @@  instance Hashable DeleteLifecycleHook +instance NFData DeleteLifecycleHook+ instance ToHeaders DeleteLifecycleHook where         toHeaders = const mempty @@ -123,3 +125,5 @@ -- | The response status code. drsResponseStatus :: Lens' DeleteLifecycleHookResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DeleteLifecycleHookResponse

@@ -83,6 +83,8 @@  instance Hashable DeleteNotificationConfiguration +instance NFData DeleteNotificationConfiguration+ instance ToHeaders DeleteNotificationConfiguration          where         toHeaders = const mempty@@ -111,3 +113,6 @@     :: DeleteNotificationConfigurationResponse deleteNotificationConfigurationResponse =     DeleteNotificationConfigurationResponse'++instance NFData+         DeleteNotificationConfigurationResponse

@@ -82,6 +82,8 @@  instance Hashable DeletePolicy +instance NFData DeletePolicy+ instance ToHeaders DeletePolicy where         toHeaders = const mempty @@ -106,3 +108,5 @@ deletePolicyResponse     :: DeletePolicyResponse deletePolicyResponse = DeletePolicyResponse'++instance NFData DeletePolicyResponse

@@ -78,6 +78,8 @@  instance Hashable DeleteScheduledAction +instance NFData DeleteScheduledAction+ instance ToHeaders DeleteScheduledAction where         toHeaders = const mempty @@ -102,3 +104,5 @@ deleteScheduledActionResponse     :: DeleteScheduledActionResponse deleteScheduledActionResponse = DeleteScheduledActionResponse'++instance NFData DeleteScheduledActionResponse

@@ -67,6 +67,8 @@  instance Hashable DeleteTags +instance NFData DeleteTags+ instance ToHeaders DeleteTags where         toHeaders = const mempty @@ -90,3 +92,5 @@ deleteTagsResponse     :: DeleteTagsResponse deleteTagsResponse = DeleteTagsResponse'++instance NFData DeleteTagsResponse

@@ -74,6 +74,8 @@  instance Hashable DescribeAccountLimits +instance NFData DescribeAccountLimits+ instance ToHeaders DescribeAccountLimits where         toHeaders = const mempty @@ -142,3 +144,5 @@ -- | The response status code. dalrsResponseStatus :: Lens' DescribeAccountLimitsResponse Int dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a});++instance NFData DescribeAccountLimitsResponse

@@ -65,6 +65,8 @@  instance Hashable DescribeAdjustmentTypes +instance NFData DescribeAdjustmentTypes+ instance ToHeaders DescribeAdjustmentTypes where         toHeaders = const mempty @@ -108,3 +110,5 @@ -- | The response status code. datrsResponseStatus :: Lens' DescribeAdjustmentTypesResponse Int datrsResponseStatus = lens _datrsResponseStatus (\ s a -> s{_datrsResponseStatus = a});++instance NFData DescribeAdjustmentTypesResponse

@@ -108,6 +108,8 @@  instance Hashable DescribeAutoScalingGroups +instance NFData DescribeAutoScalingGroups+ instance ToHeaders DescribeAutoScalingGroups where         toHeaders = const mempty @@ -165,3 +167,5 @@ -- | The groups. dasgrsAutoScalingGroups :: Lens' DescribeAutoScalingGroupsResponse [AutoScalingGroup] dasgrsAutoScalingGroups = lens _dasgrsAutoScalingGroups (\ s a -> s{_dasgrsAutoScalingGroups = a}) . _Coerce;++instance NFData DescribeAutoScalingGroupsResponse

@@ -113,6 +113,8 @@  instance Hashable DescribeAutoScalingInstances +instance NFData DescribeAutoScalingInstances+ instance ToHeaders DescribeAutoScalingInstances where         toHeaders = const mempty @@ -168,3 +170,5 @@ -- | The response status code. dasirsResponseStatus :: Lens' DescribeAutoScalingInstancesResponse Int dasirsResponseStatus = lens _dasirsResponseStatus (\ s a -> s{_dasirsResponseStatus = a});++instance NFData DescribeAutoScalingInstancesResponse

@@ -68,6 +68,8 @@ instance Hashable          DescribeAutoScalingNotificationTypes +instance NFData DescribeAutoScalingNotificationTypes+ instance ToHeaders          DescribeAutoScalingNotificationTypes where         toHeaders = const mempty@@ -126,3 +128,6 @@ -- | The response status code. dasntrsResponseStatus :: Lens' DescribeAutoScalingNotificationTypesResponse Int dasntrsResponseStatus = lens _dasntrsResponseStatus (\ s a -> s{_dasntrsResponseStatus = a});++instance NFData+         DescribeAutoScalingNotificationTypesResponse

@@ -111,6 +111,8 @@  instance Hashable DescribeLaunchConfigurations +instance NFData DescribeLaunchConfigurations+ instance ToHeaders DescribeLaunchConfigurations where         toHeaders = const mempty @@ -168,3 +170,5 @@ -- | The launch configurations. dlcrsLaunchConfigurations :: Lens' DescribeLaunchConfigurationsResponse [LaunchConfiguration] dlcrsLaunchConfigurations = lens _dlcrsLaunchConfigurations (\ s a -> s{_dlcrsLaunchConfigurations = a}) . _Coerce;++instance NFData DescribeLaunchConfigurationsResponse

@@ -66,6 +66,8 @@  instance Hashable DescribeLifecycleHookTypes +instance NFData DescribeLifecycleHookTypes+ instance ToHeaders DescribeLifecycleHookTypes where         toHeaders = const mempty @@ -114,3 +116,5 @@ -- | The response status code. dlhtrsResponseStatus :: Lens' DescribeLifecycleHookTypesResponse Int dlhtrsResponseStatus = lens _dlhtrsResponseStatus (\ s a -> s{_dlhtrsResponseStatus = a});++instance NFData DescribeLifecycleHookTypesResponse

@@ -87,6 +87,8 @@  instance Hashable DescribeLifecycleHooks +instance NFData DescribeLifecycleHooks+ instance ToHeaders DescribeLifecycleHooks where         toHeaders = const mempty @@ -133,3 +135,5 @@ -- | The response status code. dlhrsResponseStatus :: Lens' DescribeLifecycleHooksResponse Int dlhrsResponseStatus = lens _dlhrsResponseStatus (\ s a -> s{_dlhrsResponseStatus = a});++instance NFData DescribeLifecycleHooksResponse

@@ -99,6 +99,8 @@  instance Hashable DescribeLoadBalancers +instance NFData DescribeLoadBalancers+ instance ToHeaders DescribeLoadBalancers where         toHeaders = const mempty @@ -152,3 +154,5 @@ -- | The response status code. dlbrsResponseStatus :: Lens' DescribeLoadBalancersResponse Int dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a});++instance NFData DescribeLoadBalancersResponse

@@ -75,6 +75,8 @@  instance Hashable DescribeMetricCollectionTypes +instance NFData DescribeMetricCollectionTypes+ instance ToHeaders DescribeMetricCollectionTypes          where         toHeaders = const mempty@@ -127,3 +129,5 @@ -- | The response status code. dmctrsResponseStatus :: Lens' DescribeMetricCollectionTypesResponse Int dmctrsResponseStatus = lens _dmctrsResponseStatus (\ s a -> s{_dmctrsResponseStatus = a});++instance NFData DescribeMetricCollectionTypesResponse

@@ -112,6 +112,8 @@  instance Hashable DescribeNotificationConfigurations +instance NFData DescribeNotificationConfigurations+ instance ToHeaders DescribeNotificationConfigurations          where         toHeaders = const mempty@@ -171,3 +173,6 @@ -- | The notification configurations. dncrsNotificationConfigurations :: Lens' DescribeNotificationConfigurationsResponse [NotificationConfiguration] dncrsNotificationConfigurations = lens _dncrsNotificationConfigurations (\ s a -> s{_dncrsNotificationConfigurations = a}) . _Coerce;++instance NFData+         DescribeNotificationConfigurationsResponse

@@ -129,6 +129,8 @@  instance Hashable DescribePolicies +instance NFData DescribePolicies+ instance ToHeaders DescribePolicies where         toHeaders = const mempty @@ -186,3 +188,5 @@ -- | The response status code. dprsResponseStatus :: Lens' DescribePoliciesResponse Int dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});++instance NFData DescribePoliciesResponse

@@ -123,6 +123,8 @@  instance Hashable DescribeScalingActivities +instance NFData DescribeScalingActivities+ instance ToHeaders DescribeScalingActivities where         toHeaders = const mempty @@ -179,3 +181,5 @@ -- | The scaling activities. dsasrsActivities :: Lens' DescribeScalingActivitiesResponse [Activity] dsasrsActivities = lens _dsasrsActivities (\ s a -> s{_dsasrsActivities = a}) . _Coerce;++instance NFData DescribeScalingActivitiesResponse

@@ -67,6 +67,8 @@  instance Hashable DescribeScalingProcessTypes +instance NFData DescribeScalingProcessTypes+ instance ToHeaders DescribeScalingProcessTypes where         toHeaders = const mempty @@ -110,3 +112,5 @@ -- | The response status code. dsptrsResponseStatus :: Lens' DescribeScalingProcessTypesResponse Int dsptrsResponseStatus = lens _dsptrsResponseStatus (\ s a -> s{_dsptrsResponseStatus = a});++instance NFData DescribeScalingProcessTypesResponse

@@ -146,6 +146,8 @@  instance Hashable DescribeScheduledActions +instance NFData DescribeScheduledActions+ instance ToHeaders DescribeScheduledActions where         toHeaders = const mempty @@ -205,3 +207,5 @@ -- | The response status code. dsarsResponseStatus :: Lens' DescribeScheduledActionsResponse Int dsarsResponseStatus = lens _dsarsResponseStatus (\ s a -> s{_dsarsResponseStatus = a});++instance NFData DescribeScheduledActionsResponse

@@ -116,6 +116,8 @@  instance Hashable DescribeTags +instance NFData DescribeTags+ instance ToHeaders DescribeTags where         toHeaders = const mempty @@ -170,3 +172,5 @@ -- | The response status code. dtrsResponseStatus :: Lens' DescribeTagsResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});++instance NFData DescribeTagsResponse

@@ -67,6 +67,8 @@  instance Hashable DescribeTerminationPolicyTypes +instance NFData DescribeTerminationPolicyTypes+ instance ToHeaders DescribeTerminationPolicyTypes          where         toHeaders = const mempty@@ -113,3 +115,6 @@ -- | The response status code. dtptrsResponseStatus :: Lens' DescribeTerminationPolicyTypesResponse Int dtptrsResponseStatus = lens _dtptrsResponseStatus (\ s a -> s{_dtptrsResponseStatus = a});++instance NFData+         DescribeTerminationPolicyTypesResponse

@@ -107,6 +107,8 @@  instance Hashable DetachInstances +instance NFData DetachInstances+ instance ToHeaders DetachInstances where         toHeaders = const mempty @@ -154,3 +156,5 @@ -- | The response status code. dirsResponseStatus :: Lens' DetachInstancesResponse Int dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});++instance NFData DetachInstancesResponse

@@ -88,6 +88,8 @@  instance Hashable DetachLoadBalancers +instance NFData DetachLoadBalancers+ instance ToHeaders DetachLoadBalancers where         toHeaders = const mempty @@ -125,3 +127,5 @@ -- | The response status code. dlbsrsResponseStatus :: Lens' DetachLoadBalancersResponse Int dlbsrsResponseStatus = lens _dlbsrsResponseStatus (\ s a -> s{_dlbsrsResponseStatus = a});++instance NFData DetachLoadBalancersResponse

@@ -98,6 +98,8 @@  instance Hashable DisableMetricsCollection +instance NFData DisableMetricsCollection+ instance ToHeaders DisableMetricsCollection where         toHeaders = const mempty @@ -124,3 +126,5 @@ disableMetricsCollectionResponse     :: DisableMetricsCollectionResponse disableMetricsCollectionResponse = DisableMetricsCollectionResponse'++instance NFData DisableMetricsCollectionResponse

@@ -114,6 +114,8 @@  instance Hashable EnableMetricsCollection +instance NFData EnableMetricsCollection+ instance ToHeaders EnableMetricsCollection where         toHeaders = const mempty @@ -141,3 +143,5 @@ enableMetricsCollectionResponse     :: EnableMetricsCollectionResponse enableMetricsCollectionResponse = EnableMetricsCollectionResponse'++instance NFData EnableMetricsCollectionResponse

@@ -104,6 +104,8 @@  instance Hashable EnterStandby +instance NFData EnterStandby+ instance ToHeaders EnterStandby where         toHeaders = const mempty @@ -150,3 +152,5 @@ -- | The response status code. ersResponseStatus :: Lens' EnterStandbyResponse Int ersResponseStatus = lens _ersResponseStatus (\ s a -> s{_ersResponseStatus = a});++instance NFData EnterStandbyResponse

@@ -125,6 +125,8 @@  instance Hashable ExecutePolicy +instance NFData ExecutePolicy+ instance ToHeaders ExecutePolicy where         toHeaders = const mempty @@ -152,3 +154,5 @@ executePolicyResponse     :: ExecutePolicyResponse executePolicyResponse = ExecutePolicyResponse'++instance NFData ExecutePolicyResponse

@@ -90,6 +90,8 @@  instance Hashable ExitStandby +instance NFData ExitStandby+ instance ToHeaders ExitStandby where         toHeaders = const mempty @@ -134,3 +136,5 @@ -- | The response status code. esrsResponseStatus :: Lens' ExitStandbyResponse Int esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a});++instance NFData ExitStandbyResponse

@@ -207,6 +207,8 @@  instance Hashable PutLifecycleHook +instance NFData PutLifecycleHook+ instance ToHeaders PutLifecycleHook where         toHeaders = const mempty @@ -248,3 +250,5 @@ -- | The response status code. plhrsResponseStatus :: Lens' PutLifecycleHookResponse Int plhrsResponseStatus = lens _plhrsResponseStatus (\ s a -> s{_plhrsResponseStatus = a});++instance NFData PutLifecycleHookResponse

@@ -101,6 +101,8 @@  instance Hashable PutNotificationConfiguration +instance NFData PutNotificationConfiguration+ instance ToHeaders PutNotificationConfiguration where         toHeaders = const mempty @@ -128,3 +130,5 @@ putNotificationConfigurationResponse     :: PutNotificationConfigurationResponse putNotificationConfigurationResponse = PutNotificationConfigurationResponse'++instance NFData PutNotificationConfigurationResponse

@@ -212,6 +212,8 @@  instance Hashable PutScalingPolicy +instance NFData PutScalingPolicy+ instance ToHeaders PutScalingPolicy where         toHeaders = const mempty @@ -268,3 +270,5 @@ -- | The response status code. psprsResponseStatus :: Lens' PutScalingPolicyResponse Int psprsResponseStatus = lens _psprsResponseStatus (\ s a -> s{_psprsResponseStatus = a});++instance NFData PutScalingPolicyResponse

@@ -163,6 +163,8 @@  instance Hashable PutScheduledUpdateGroupAction +instance NFData PutScheduledUpdateGroupAction+ instance ToHeaders PutScheduledUpdateGroupAction          where         toHeaders = const mempty@@ -195,3 +197,5 @@ putScheduledUpdateGroupActionResponse     :: PutScheduledUpdateGroupActionResponse putScheduledUpdateGroupActionResponse = PutScheduledUpdateGroupActionResponse'++instance NFData PutScheduledUpdateGroupActionResponse

@@ -130,6 +130,8 @@  instance Hashable RecordLifecycleActionHeartbeat +instance NFData RecordLifecycleActionHeartbeat+ instance ToHeaders RecordLifecycleActionHeartbeat          where         toHeaders = const mempty@@ -169,3 +171,6 @@ -- | The response status code. rlahrsResponseStatus :: Lens' RecordLifecycleActionHeartbeatResponse Int rlahrsResponseStatus = lens _rlahrsResponseStatus (\ s a -> s{_rlahrsResponseStatus = a});++instance NFData+         RecordLifecycleActionHeartbeatResponse

@@ -99,6 +99,8 @@  instance Hashable ResumeProcesses +instance NFData ResumeProcesses+ instance ToHeaders ResumeProcesses where         toHeaders = const mempty @@ -125,3 +127,5 @@ resumeProcessesResponse     :: ResumeProcessesResponse resumeProcessesResponse = ResumeProcessesResponse'++instance NFData ResumeProcessesResponse

@@ -97,6 +97,8 @@  instance Hashable SetDesiredCapacity +instance NFData SetDesiredCapacity+ instance ToHeaders SetDesiredCapacity where         toHeaders = const mempty @@ -122,3 +124,5 @@ setDesiredCapacityResponse     :: SetDesiredCapacityResponse setDesiredCapacityResponse = SetDesiredCapacityResponse'++instance NFData SetDesiredCapacityResponse

@@ -100,6 +100,8 @@  instance Hashable SetInstanceHealth +instance NFData SetInstanceHealth+ instance ToHeaders SetInstanceHealth where         toHeaders = const mempty @@ -126,3 +128,5 @@ setInstanceHealthResponse     :: SetInstanceHealthResponse setInstanceHealthResponse = SetInstanceHealthResponse'++instance NFData SetInstanceHealthResponse

@@ -99,6 +99,8 @@  instance Hashable SetInstanceProtection +instance NFData SetInstanceProtection+ instance ToHeaders SetInstanceProtection where         toHeaders = const mempty @@ -136,3 +138,5 @@ -- | The response status code. siprsResponseStatus :: Lens' SetInstanceProtectionResponse Int siprsResponseStatus = lens _siprsResponseStatus (\ s a -> s{_siprsResponseStatus = a});++instance NFData SetInstanceProtectionResponse

@@ -104,6 +104,8 @@  instance Hashable SuspendProcesses +instance NFData SuspendProcesses+ instance ToHeaders SuspendProcesses where         toHeaders = const mempty @@ -130,3 +132,5 @@ suspendProcessesResponse     :: SuspendProcessesResponse suspendProcessesResponse = SuspendProcessesResponse'++instance NFData SuspendProcessesResponse

@@ -93,6 +93,8 @@  instance Hashable TerminateInstanceInAutoScalingGroup +instance NFData TerminateInstanceInAutoScalingGroup+ instance ToHeaders          TerminateInstanceInAutoScalingGroup where         toHeaders = const mempty@@ -142,3 +144,6 @@ -- | The response status code. tiiasgrsResponseStatus :: Lens' TerminateInstanceInAutoScalingGroupResponse Int tiiasgrsResponseStatus = lens _tiiasgrsResponseStatus (\ s a -> s{_tiiasgrsResponseStatus = a});++instance NFData+         TerminateInstanceInAutoScalingGroupResponse

@@ -82,12 +82,12 @@     -- * AutoScalingInstanceDetails     , AutoScalingInstanceDetails     , autoScalingInstanceDetails+    , asidLaunchConfigurationName     , asidInstanceId     , asidAutoScalingGroupName     , asidAvailabilityZone     , asidLifecycleState     , asidHealthStatus-    , asidLaunchConfigurationName     , asidProtectedFromScaleIn      -- * BlockDeviceMapping@@ -301,6 +301,8 @@       | has (hasCode "ThrottlingException" . hasStatus 400) e =           Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"       | has (hasStatus 509) e = Just "limit_exceeded"

@@ -138,6 +138,8 @@  instance Hashable Activity +instance NFData Activity+ -- | Describes a policy adjustment type. -- -- For more information, see@@ -172,6 +174,8 @@  instance Hashable AdjustmentType +instance NFData AdjustmentType+ -- | Describes an alarm. -- -- /See:/ 'alarm' smart constructor.@@ -210,6 +214,8 @@  instance Hashable Alarm +instance NFData Alarm+ -- | Describes an Auto Scaling group. -- -- /See:/ 'autoScalingGroup' smart constructor.@@ -453,16 +459,18 @@  instance Hashable AutoScalingGroup +instance NFData AutoScalingGroup+ -- | Describes an EC2 instance associated with an Auto Scaling group. -- -- /See:/ 'autoScalingInstanceDetails' smart constructor. data AutoScalingInstanceDetails = AutoScalingInstanceDetails'-    { _asidInstanceId              :: !Text+    { _asidLaunchConfigurationName :: !(Maybe Text)+    , _asidInstanceId              :: !Text     , _asidAutoScalingGroupName    :: !Text     , _asidAvailabilityZone        :: !Text     , _asidLifecycleState          :: !Text     , _asidHealthStatus            :: !Text-    , _asidLaunchConfigurationName :: !Text     , _asidProtectedFromScaleIn    :: !Bool     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -470,6 +478,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'asidLaunchConfigurationName'+-- -- * 'asidInstanceId' -- -- * 'asidAutoScalingGroupName'@@ -480,8 +490,6 @@ -- -- * 'asidHealthStatus' ----- * 'asidLaunchConfigurationName'--- -- * 'asidProtectedFromScaleIn' autoScalingInstanceDetails     :: Text -- ^ 'asidInstanceId'@@ -489,20 +497,23 @@     -> Text -- ^ 'asidAvailabilityZone'     -> Text -- ^ 'asidLifecycleState'     -> Text -- ^ 'asidHealthStatus'-    -> Text -- ^ 'asidLaunchConfigurationName'     -> Bool -- ^ 'asidProtectedFromScaleIn'     -> AutoScalingInstanceDetails-autoScalingInstanceDetails pInstanceId_ pAutoScalingGroupName_ pAvailabilityZone_ pLifecycleState_ pHealthStatus_ pLaunchConfigurationName_ pProtectedFromScaleIn_ =+autoScalingInstanceDetails pInstanceId_ pAutoScalingGroupName_ pAvailabilityZone_ pLifecycleState_ pHealthStatus_ pProtectedFromScaleIn_ =     AutoScalingInstanceDetails'-    { _asidInstanceId = pInstanceId_+    { _asidLaunchConfigurationName = Nothing+    , _asidInstanceId = pInstanceId_     , _asidAutoScalingGroupName = pAutoScalingGroupName_     , _asidAvailabilityZone = pAvailabilityZone_     , _asidLifecycleState = pLifecycleState_     , _asidHealthStatus = pHealthStatus_-    , _asidLaunchConfigurationName = pLaunchConfigurationName_     , _asidProtectedFromScaleIn = pProtectedFromScaleIn_     } +-- | The launch configuration associated with the instance.+asidLaunchConfigurationName :: Lens' AutoScalingInstanceDetails (Maybe Text)+asidLaunchConfigurationName = lens _asidLaunchConfigurationName (\ s a -> s{_asidLaunchConfigurationName = a});+ -- | The ID of the instance. asidInstanceId :: Lens' AutoScalingInstanceDetails Text asidInstanceId = lens _asidInstanceId (\ s a -> s{_asidInstanceId = a});@@ -527,10 +538,6 @@ asidHealthStatus :: Lens' AutoScalingInstanceDetails Text asidHealthStatus = lens _asidHealthStatus (\ s a -> s{_asidHealthStatus = a}); --- | The launch configuration associated with the instance.-asidLaunchConfigurationName :: Lens' AutoScalingInstanceDetails Text-asidLaunchConfigurationName = lens _asidLaunchConfigurationName (\ s a -> s{_asidLaunchConfigurationName = a});- -- | Indicates whether the instance is protected from termination by Auto -- Scaling when scaling in. asidProtectedFromScaleIn :: Lens' AutoScalingInstanceDetails Bool@@ -539,15 +546,18 @@ instance FromXML AutoScalingInstanceDetails where         parseXML x           = AutoScalingInstanceDetails' <$>-              (x .@ "InstanceId") <*> (x .@ "AutoScalingGroupName")+              (x .@? "LaunchConfigurationName") <*>+                (x .@ "InstanceId")+                <*> (x .@ "AutoScalingGroupName")                 <*> (x .@ "AvailabilityZone")                 <*> (x .@ "LifecycleState")                 <*> (x .@ "HealthStatus")-                <*> (x .@ "LaunchConfigurationName")                 <*> (x .@ "ProtectedFromScaleIn")  instance Hashable AutoScalingInstanceDetails +instance NFData AutoScalingInstanceDetails+ -- | Describes a block device mapping. -- -- /See:/ 'blockDeviceMapping' smart constructor.@@ -610,6 +620,8 @@  instance Hashable BlockDeviceMapping +instance NFData BlockDeviceMapping+ instance ToQuery BlockDeviceMapping where         toQuery BlockDeviceMapping'{..}           = mconcat@@ -716,6 +728,8 @@  instance Hashable EBS +instance NFData EBS+ instance ToQuery EBS where         toQuery EBS'{..}           = mconcat@@ -780,6 +794,8 @@  instance Hashable EnabledMetric +instance NFData EnabledMetric+ -- | Describes a filter. -- -- /See:/ 'filter'' smart constructor.@@ -815,6 +831,8 @@  instance Hashable Filter +instance NFData Filter+ instance ToQuery Filter where         toQuery Filter'{..}           = mconcat@@ -906,6 +924,8 @@  instance Hashable Instance +instance NFData Instance+ -- | Describes whether instance monitoring is enabled. -- -- /See:/ 'instanceMonitoring' smart constructor.@@ -935,6 +955,8 @@  instance Hashable InstanceMonitoring +instance NFData InstanceMonitoring+ instance ToQuery InstanceMonitoring where         toQuery InstanceMonitoring'{..}           = mconcat ["Enabled" =: _imEnabled]@@ -1156,6 +1178,8 @@  instance Hashable LaunchConfiguration +instance NFData LaunchConfiguration+ -- | Describes a lifecycle hook, which tells Auto Scaling that you want to -- perform an action when an instance launches or terminates. When you have -- a lifecycle hook in place, the Auto Scaling group will either:@@ -1292,6 +1316,8 @@  instance Hashable LifecycleHook +instance NFData LifecycleHook+ -- | Describes the state of a load balancer. -- -- /See:/ 'loadBalancerState' smart constructor.@@ -1345,6 +1371,8 @@  instance Hashable LoadBalancerState +instance NFData LoadBalancerState+ -- | Describes a metric. -- -- /See:/ 'metricCollectionType' smart constructor.@@ -1391,6 +1419,8 @@  instance Hashable MetricCollectionType +instance NFData MetricCollectionType+ -- | Describes a granularity of a metric. -- -- /See:/ 'metricGranularityType' smart constructor.@@ -1420,6 +1450,8 @@  instance Hashable MetricGranularityType +instance NFData MetricGranularityType+ -- | Describes a notification. -- -- /See:/ 'notificationConfiguration' smart constructor.@@ -1479,6 +1511,8 @@  instance Hashable NotificationConfiguration +instance NFData NotificationConfiguration+ -- | Describes a process type. -- -- For more information, see@@ -1529,6 +1563,8 @@  instance Hashable ProcessType +instance NFData ProcessType+ -- | Describes a scaling policy. -- -- /See:/ 'scalingPolicy' smart constructor.@@ -1683,6 +1719,8 @@  instance Hashable ScalingPolicy +instance NFData ScalingPolicy+ -- | /See:/ 'scalingProcessQuery' smart constructor. data ScalingProcessQuery = ScalingProcessQuery'     { _spqScalingProcesses     :: !(Maybe [Text])@@ -1732,6 +1770,8 @@  instance Hashable ScalingProcessQuery +instance NFData ScalingProcessQuery+ instance ToQuery ScalingProcessQuery where         toQuery ScalingProcessQuery'{..}           = mconcat@@ -1855,6 +1895,8 @@  instance Hashable ScheduledUpdateGroupAction +instance NFData ScheduledUpdateGroupAction+ -- | Describes an adjustment based on the difference between the value of the -- aggregated CloudWatch metric and the breach threshold that you\'ve -- defined for the alarm.@@ -1947,6 +1989,8 @@  instance Hashable StepAdjustment +instance NFData StepAdjustment+ instance ToQuery StepAdjustment where         toQuery StepAdjustment'{..}           = mconcat@@ -1995,6 +2039,8 @@  instance Hashable SuspendedProcess +instance NFData SuspendedProcess+ -- | Describes a tag for an Auto Scaling group. -- -- /See:/ 'tag' smart constructor.@@ -2058,6 +2104,8 @@  instance Hashable Tag +instance NFData Tag+ instance ToQuery Tag where         toQuery Tag'{..}           = mconcat@@ -2136,3 +2184,5 @@                 <*> (x .@ "Value")  instance Hashable TagDescription++instance NFData TagDescription

@@ -70,6 +70,7 @@         TerminatingWait -> "Terminating:Wait"  instance Hashable     LifecycleState+instance NFData       LifecycleState instance ToByteString LifecycleState instance ToQuery      LifecycleState instance ToHeader     LifecycleState@@ -125,6 +126,7 @@         WaitingForSpotInstanceRequestId -> "WaitingForSpotInstanceRequestId"  instance Hashable     ScalingActivityStatusCode+instance NFData       ScalingActivityStatusCode instance ToByteString ScalingActivityStatusCode instance ToQuery      ScalingActivityStatusCode instance ToHeader     ScalingActivityStatusCode

@@ -237,6 +237,8 @@  instance Hashable UpdateAutoScalingGroup +instance NFData UpdateAutoScalingGroup+ instance ToHeaders UpdateAutoScalingGroup where         toHeaders = const mempty @@ -280,3 +282,5 @@ updateAutoScalingGroupResponse     :: UpdateAutoScalingGroupResponse updateAutoScalingGroupResponse = UpdateAutoScalingGroupResponse'++instance NFData UpdateAutoScalingGroupResponse