amazonka-autoscaling 1.4.3 → 1.4.4

raw patch · 66 files changed

+964/−204 lines, 66 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 +9/−6
• fixture/AttachLoadBalancerTargetGroups.yaml +0/−0
• fixture/AttachLoadBalancerTargetGroupsResponse.proto +0/−0
• fixture/DescribeLoadBalancerTargetGroups.yaml +0/−0
• fixture/DescribeLoadBalancerTargetGroupsResponse.proto +0/−0
• fixture/DetachLoadBalancerTargetGroups.yaml +0/−0
• fixture/DetachLoadBalancerTargetGroupsResponse.proto +0/−0
• gen/Network/AWS/AutoScaling.hs +19/−0
• gen/Network/AWS/AutoScaling/AttachInstances.hs +6/−2
• gen/Network/AWS/AutoScaling/AttachLoadBalancerTargetGroups.hs +137/−0
• gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs +20/−14
• gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs +11/−3
• gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs +26/−12
• gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs +10/−10
• gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs +4/−2
• gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs +3/−1
• gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs +3/−1
• gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs +6/−2
• gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs +3/−1
• gen/Network/AWS/AutoScaling/DeletePolicy.hs +1/−1
• gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs +9/−6
• gen/Network/AWS/AutoScaling/DeleteTags.hs +3/−1
• gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs +3/−1
• gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs +3/−1
• gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs +8/−4
• gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs +7/−3
• gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs +4/−13
• gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs +8/−4
• gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs +4/−7
• gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs +7/−3
• gen/Network/AWS/AutoScaling/DescribeLoadBalancerTargetGroups.hs +168/−0
• gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs +8/−2
• gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs +3/−1
• gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs +6/−2
• gen/Network/AWS/AutoScaling/DescribePolicies.hs +7/−3
• gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs +9/−5
• gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs +3/−1
• gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs +7/−3
• gen/Network/AWS/AutoScaling/DescribeTags.hs +6/−2
• gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs +3/−1
• gen/Network/AWS/AutoScaling/DetachInstances.hs +9/−3
• gen/Network/AWS/AutoScaling/DetachLoadBalancerTargetGroups.hs +131/−0
• gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs +20/−14
• gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs +4/−2
• gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs +4/−5
• gen/Network/AWS/AutoScaling/EnterStandby.hs +7/−3
• gen/Network/AWS/AutoScaling/ExecutePolicy.hs +4/−2
• gen/Network/AWS/AutoScaling/ExitStandby.hs +7/−3
• gen/Network/AWS/AutoScaling/PutLifecycleHook.hs +18/−4
• gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs +6/−4
• gen/Network/AWS/AutoScaling/PutScalingPolicy.hs +8/−4
• gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs +4/−2
• gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs +11/−3
• gen/Network/AWS/AutoScaling/ResumeProcesses.hs +5/−3
• gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs +4/−2
• gen/Network/AWS/AutoScaling/SetInstanceHealth.hs +4/−2
• gen/Network/AWS/AutoScaling/SetInstanceProtection.hs +7/−3
• gen/Network/AWS/AutoScaling/SuspendProcesses.hs +5/−3
• gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs +6/−2
• gen/Network/AWS/AutoScaling/Types.hs +9/−2
• gen/Network/AWS/AutoScaling/Types/Product.hs +92/−11
• gen/Network/AWS/AutoScaling/Types/Sum.hs +2/−2
• gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs +8/−6
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/AutoScaling.hs +54/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-autoscaling-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Auto Scaling SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     Auto Scaling @@ -44,6 +44,7 @@     exposed-modules:           Network.AWS.AutoScaling         , Network.AWS.AutoScaling.AttachInstances+        , Network.AWS.AutoScaling.AttachLoadBalancerTargetGroups         , Network.AWS.AutoScaling.AttachLoadBalancers         , Network.AWS.AutoScaling.CompleteLifecycleAction         , Network.AWS.AutoScaling.CreateAutoScalingGroup@@ -64,6 +65,7 @@         , Network.AWS.AutoScaling.DescribeLaunchConfigurations         , Network.AWS.AutoScaling.DescribeLifecycleHookTypes         , Network.AWS.AutoScaling.DescribeLifecycleHooks+        , Network.AWS.AutoScaling.DescribeLoadBalancerTargetGroups         , Network.AWS.AutoScaling.DescribeLoadBalancers         , Network.AWS.AutoScaling.DescribeMetricCollectionTypes         , Network.AWS.AutoScaling.DescribeNotificationConfigurations@@ -74,6 +76,7 @@         , Network.AWS.AutoScaling.DescribeTags         , Network.AWS.AutoScaling.DescribeTerminationPolicyTypes         , Network.AWS.AutoScaling.DetachInstances+        , Network.AWS.AutoScaling.DetachLoadBalancerTargetGroups         , Network.AWS.AutoScaling.DetachLoadBalancers         , Network.AWS.AutoScaling.DisableMetricsCollection         , Network.AWS.AutoScaling.EnableMetricsCollection@@ -100,7 +103,7 @@         , Network.AWS.AutoScaling.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-autoscaling-test@@ -120,9 +123,9 @@         , Test.AWS.AutoScaling.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-autoscaling == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-autoscaling == 1.4.4.*         , base         , bytestring         , tasty

@@ -64,6 +64,9 @@     -- ** PutScalingPolicy     , module Network.AWS.AutoScaling.PutScalingPolicy +    -- ** AttachLoadBalancerTargetGroups+    , module Network.AWS.AutoScaling.AttachLoadBalancerTargetGroups+     -- ** DeleteLaunchConfiguration     , module Network.AWS.AutoScaling.DeleteLaunchConfiguration @@ -103,6 +106,9 @@     -- ** DeleteTags     , module Network.AWS.AutoScaling.DeleteTags +    -- ** DetachLoadBalancerTargetGroups+    , module Network.AWS.AutoScaling.DetachLoadBalancerTargetGroups+     -- ** DescribeLifecycleHooks     , module Network.AWS.AutoScaling.DescribeLifecycleHooks @@ -163,6 +169,9 @@     -- ** TerminateInstanceInAutoScalingGroup     , module Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup +    -- ** DescribeLoadBalancerTargetGroups+    , module Network.AWS.AutoScaling.DescribeLoadBalancerTargetGroups+     -- ** PutScheduledUpdateGroupAction     , module Network.AWS.AutoScaling.PutScheduledUpdateGroupAction @@ -234,6 +243,7 @@     , asgHealthCheckGracePeriod     , asgNewInstancesProtectedFromScaleIn     , asgVPCZoneIdentifier+    , asgTargetGroupARNs     , asgEnabledMetrics     , asgLaunchConfigurationName     , asgInstances@@ -349,6 +359,12 @@     , lbsState     , lbsLoadBalancerName +    -- ** LoadBalancerTargetGroupState+    , LoadBalancerTargetGroupState+    , loadBalancerTargetGroupState+    , lbtgsState+    , lbtgsLoadBalancerTargetGroupARN+     -- ** MetricCollectionType     , MetricCollectionType     , metricCollectionType@@ -442,6 +458,7 @@  import           Network.AWS.AutoScaling.AttachInstances import           Network.AWS.AutoScaling.AttachLoadBalancers+import           Network.AWS.AutoScaling.AttachLoadBalancerTargetGroups import           Network.AWS.AutoScaling.CompleteLifecycleAction import           Network.AWS.AutoScaling.CreateAutoScalingGroup import           Network.AWS.AutoScaling.CreateLaunchConfiguration@@ -462,6 +479,7 @@ import           Network.AWS.AutoScaling.DescribeLifecycleHooks import           Network.AWS.AutoScaling.DescribeLifecycleHookTypes import           Network.AWS.AutoScaling.DescribeLoadBalancers+import           Network.AWS.AutoScaling.DescribeLoadBalancerTargetGroups import           Network.AWS.AutoScaling.DescribeMetricCollectionTypes import           Network.AWS.AutoScaling.DescribeNotificationConfigurations import           Network.AWS.AutoScaling.DescribePolicies@@ -472,6 +490,7 @@ import           Network.AWS.AutoScaling.DescribeTerminationPolicyTypes import           Network.AWS.AutoScaling.DetachInstances import           Network.AWS.AutoScaling.DetachLoadBalancers+import           Network.AWS.AutoScaling.DetachLoadBalancerTargetGroups import           Network.AWS.AutoScaling.DisableMetricsCollection import           Network.AWS.AutoScaling.EnableMetricsCollection import           Network.AWS.AutoScaling.EnterStandby

@@ -22,7 +22,9 @@ -- -- When you attach instances, Auto Scaling increases the desired capacity of the group by the number of instances being attached. If the number of instances being attached plus the desired capacity of the group exceeds the maximum size of the group, the operation fails. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/attach-instance-asg.html Attach EC2 Instances to Your Auto Scaling Group> in the /Auto Scaling Developer Guide/.+-- If there is a Classic load balancer attached to your Auto Scaling group, the instances are also registered with the load balancer. If there are target groups attached to your Auto Scaling group, the instances are also registered with the target groups.+--+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/attach-instance-asg.html Attach EC2 Instances to Your Auto Scaling Group> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.AttachInstances     (     -- * Creating a Request@@ -44,7 +46,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'attachInstances' smart constructor.+-- | Contains the parameters for AttachInstances.+--+-- /See:/ 'attachInstances' smart constructor. data AttachInstances = AttachInstances'     { _aiInstanceIds          :: !(Maybe [Text])     , _aiAutoScalingGroupName :: !Text

@@ -0,0 +1,137 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AutoScaling.AttachLoadBalancerTargetGroups+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Attaches one or more target groups to the specified Auto Scaling group.+--+-- To describe the target groups for an Auto Scaling group, use < DescribeLoadBalancerTargetGroups>. To detach the target group from the Auto Scaling group, use < DetachLoadBalancerTargetGroups>.+--+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/attach-load-balancer-asg.html Attach a Load Balancer to Your Auto Scaling Group> in the /Auto Scaling User Guide/.+module Network.AWS.AutoScaling.AttachLoadBalancerTargetGroups+    (+    -- * Creating a Request+      attachLoadBalancerTargetGroups+    , AttachLoadBalancerTargetGroups+    -- * Request Lenses+    , albtgAutoScalingGroupName+    , albtgTargetGroupARNs++    -- * Destructuring the Response+    , attachLoadBalancerTargetGroupsResponse+    , AttachLoadBalancerTargetGroupsResponse+    -- * Response Lenses+    , albtgrsResponseStatus+    ) where++import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Contains the parameters for AttachLoadBalancerTargetGroups.+--+-- /See:/ 'attachLoadBalancerTargetGroups' smart constructor.+data AttachLoadBalancerTargetGroups = AttachLoadBalancerTargetGroups'+    { _albtgAutoScalingGroupName :: !Text+    , _albtgTargetGroupARNs      :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AttachLoadBalancerTargetGroups' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'albtgAutoScalingGroupName'+--+-- * 'albtgTargetGroupARNs'+attachLoadBalancerTargetGroups+    :: Text -- ^ 'albtgAutoScalingGroupName'+    -> AttachLoadBalancerTargetGroups+attachLoadBalancerTargetGroups pAutoScalingGroupName_ =+    AttachLoadBalancerTargetGroups'+    { _albtgAutoScalingGroupName = pAutoScalingGroupName_+    , _albtgTargetGroupARNs = mempty+    }++-- | The name of the Auto Scaling group.+albtgAutoScalingGroupName :: Lens' AttachLoadBalancerTargetGroups Text+albtgAutoScalingGroupName = lens _albtgAutoScalingGroupName (\ s a -> s{_albtgAutoScalingGroupName = a});++-- | The Amazon Resource Names (ARN) of the target groups.+albtgTargetGroupARNs :: Lens' AttachLoadBalancerTargetGroups [Text]+albtgTargetGroupARNs = lens _albtgTargetGroupARNs (\ s a -> s{_albtgTargetGroupARNs = a}) . _Coerce;++instance AWSRequest AttachLoadBalancerTargetGroups+         where+        type Rs AttachLoadBalancerTargetGroups =+             AttachLoadBalancerTargetGroupsResponse+        request = postQuery autoScaling+        response+          = receiveXMLWrapper+              "AttachLoadBalancerTargetGroupsResult"+              (\ s h x ->+                 AttachLoadBalancerTargetGroupsResponse' <$>+                   (pure (fromEnum s)))++instance Hashable AttachLoadBalancerTargetGroups++instance NFData AttachLoadBalancerTargetGroups++instance ToHeaders AttachLoadBalancerTargetGroups+         where+        toHeaders = const mempty++instance ToPath AttachLoadBalancerTargetGroups where+        toPath = const "/"++instance ToQuery AttachLoadBalancerTargetGroups where+        toQuery AttachLoadBalancerTargetGroups'{..}+          = mconcat+              ["Action" =:+                 ("AttachLoadBalancerTargetGroups" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "AutoScalingGroupName" =: _albtgAutoScalingGroupName,+               "TargetGroupARNs" =:+                 toQueryList "member" _albtgTargetGroupARNs]++-- | /See:/ 'attachLoadBalancerTargetGroupsResponse' smart constructor.+newtype AttachLoadBalancerTargetGroupsResponse = AttachLoadBalancerTargetGroupsResponse'+    { _albtgrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AttachLoadBalancerTargetGroupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'albtgrsResponseStatus'+attachLoadBalancerTargetGroupsResponse+    :: Int -- ^ 'albtgrsResponseStatus'+    -> AttachLoadBalancerTargetGroupsResponse+attachLoadBalancerTargetGroupsResponse pResponseStatus_ =+    AttachLoadBalancerTargetGroupsResponse'+    { _albtgrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+albtgrsResponseStatus :: Lens' AttachLoadBalancerTargetGroupsResponse Int+albtgrsResponseStatus = lens _albtgrsResponseStatus (\ s a -> s{_albtgrsResponseStatus = a});++instance NFData+         AttachLoadBalancerTargetGroupsResponse

@@ -18,11 +18,13 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Attaches one or more load balancers to the specified Auto Scaling group.+-- Attaches one or more Classic load balancers to the specified Auto Scaling group. --+-- To attach an Application load balancer instead, see < AttachLoadBalancerTargetGroups>.+-- -- To describe the load balancers for an Auto Scaling group, use < DescribeLoadBalancers>. To detach the load balancer from the Auto Scaling group, use < DetachLoadBalancers>. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/attach-load-balancer-asg.html Attach a Load Balancer to Your Auto Scaling Group> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/attach-load-balancer-asg.html Attach a Load Balancer to Your Auto Scaling Group> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.AttachLoadBalancers     (     -- * Creating a Request@@ -46,10 +48,12 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'attachLoadBalancers' smart constructor.+-- | Contains the parameters for AttachLoadBalancers.+--+-- /See:/ 'attachLoadBalancers' smart constructor. data AttachLoadBalancers = AttachLoadBalancers'-    { _albAutoScalingGroupName :: !(Maybe Text)-    , _albLoadBalancerNames    :: !(Maybe [Text])+    { _albAutoScalingGroupName :: !Text+    , _albLoadBalancerNames    :: ![Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AttachLoadBalancers' with the minimum fields required to make a request.@@ -60,20 +64,21 @@ -- -- * 'albLoadBalancerNames' attachLoadBalancers-    :: AttachLoadBalancers-attachLoadBalancers =+    :: Text -- ^ 'albAutoScalingGroupName'+    -> AttachLoadBalancers+attachLoadBalancers pAutoScalingGroupName_ =     AttachLoadBalancers'-    { _albAutoScalingGroupName = Nothing-    , _albLoadBalancerNames = Nothing+    { _albAutoScalingGroupName = pAutoScalingGroupName_+    , _albLoadBalancerNames = mempty     }  -- | The name of the group.-albAutoScalingGroupName :: Lens' AttachLoadBalancers (Maybe Text)+albAutoScalingGroupName :: Lens' AttachLoadBalancers Text albAutoScalingGroupName = lens _albAutoScalingGroupName (\ s a -> s{_albAutoScalingGroupName = a});  -- | One or more load balancer names. albLoadBalancerNames :: Lens' AttachLoadBalancers [Text]-albLoadBalancerNames = lens _albLoadBalancerNames (\ s a -> s{_albLoadBalancerNames = a}) . _Default . _Coerce;+albLoadBalancerNames = lens _albLoadBalancerNames (\ s a -> s{_albLoadBalancerNames = a}) . _Coerce;  instance AWSRequest AttachLoadBalancers where         type Rs AttachLoadBalancers =@@ -101,10 +106,11 @@                "Version" =: ("2011-01-01" :: ByteString),                "AutoScalingGroupName" =: _albAutoScalingGroupName,                "LoadBalancerNames" =:-                 toQuery-                   (toQueryList "member" <$> _albLoadBalancerNames)]+                 toQueryList "member" _albLoadBalancerNames] --- | /See:/ 'attachLoadBalancersResponse' smart constructor.+-- | Contains the output of AttachLoadBalancers.+--+-- /See:/ 'attachLoadBalancersResponse' smart constructor. newtype AttachLoadBalancersResponse = AttachLoadBalancersResponse'     { _albrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -23,12 +23,16 @@ -- This step is a part of the procedure for adding a lifecycle hook to an Auto Scaling group: -- -- 1.  (Optional) Create a Lambda function and a rule that allows CloudWatch Events to invoke your Lambda function when Auto Scaling launches or terminates instances.+-- -- 2.  (Optional) Create a notification target and an IAM role. The target can be either an Amazon SQS queue or an Amazon SNS topic. The role allows Auto Scaling to publish lifecycle notifications to the target.+-- -- 3.  Create the lifecycle hook. Specify whether the hook is used when the instances launch or terminate.+-- -- 4.  If you need more time, record the lifecycle action heartbeat to keep the instance in a pending state.+-- -- 5.  __If you finish before the timeout period ends, complete the lifecycle action.__ ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.CompleteLifecycleAction     (     -- * Creating a Request@@ -55,7 +59,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'completeLifecycleAction' smart constructor.+-- | Contains the parameters for CompleteLifecycleAction.+--+-- /See:/ 'completeLifecycleAction' smart constructor. data CompleteLifecycleAction = CompleteLifecycleAction'     { _claInstanceId            :: !(Maybe Text)     , _claLifecycleActionToken  :: !(Maybe Text)@@ -143,7 +149,9 @@                "AutoScalingGroupName" =: _claAutoScalingGroupName,                "LifecycleActionResult" =: _claLifecycleActionResult] --- | /See:/ 'completeLifecycleActionResponse' smart constructor.+-- | Contains the output of CompleteLifecycleAction.+--+-- /See:/ 'completeLifecycleActionResponse' smart constructor. newtype CompleteLifecycleActionResponse = CompleteLifecycleActionResponse'     { _clarsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -22,7 +22,7 @@ -- -- If you exceed your maximum limit of Auto Scaling groups, which by default is 20 per region, the call fails. For information about viewing and updating this limit, see < DescribeAccountLimits>. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroup.html Auto Scaling Groups> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroup.html Auto Scaling Groups> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.CreateAutoScalingGroup     (     -- * Creating a Request@@ -34,6 +34,7 @@     , casgHealthCheckGracePeriod     , casgNewInstancesProtectedFromScaleIn     , casgVPCZoneIdentifier+    , casgTargetGroupARNs     , casgDefaultCooldown     , casgAvailabilityZones     , casgDesiredCapacity@@ -58,13 +59,16 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'createAutoScalingGroup' smart constructor.+-- | Contains the parameters for CreateAutoScalingGroup.+--+-- /See:/ 'createAutoScalingGroup' smart constructor. data CreateAutoScalingGroup = CreateAutoScalingGroup'     { _casgInstanceId                       :: !(Maybe Text)     , _casgTerminationPolicies              :: !(Maybe [Text])     , _casgHealthCheckGracePeriod           :: !(Maybe Int)     , _casgNewInstancesProtectedFromScaleIn :: !(Maybe Bool)     , _casgVPCZoneIdentifier                :: !(Maybe Text)+    , _casgTargetGroupARNs                  :: !(Maybe [Text])     , _casgDefaultCooldown                  :: !(Maybe Int)     , _casgAvailabilityZones                :: !(Maybe (List1 Text))     , _casgDesiredCapacity                  :: !(Maybe Int)@@ -92,6 +96,8 @@ -- -- * 'casgVPCZoneIdentifier' --+-- * 'casgTargetGroupARNs'+-- -- * 'casgDefaultCooldown' -- -- * 'casgAvailabilityZones'@@ -125,6 +131,7 @@     , _casgHealthCheckGracePeriod = Nothing     , _casgNewInstancesProtectedFromScaleIn = Nothing     , _casgVPCZoneIdentifier = Nothing+    , _casgTargetGroupARNs = Nothing     , _casgDefaultCooldown = Nothing     , _casgAvailabilityZones = Nothing     , _casgDesiredCapacity = Nothing@@ -142,21 +149,21 @@ -- -- When you specify an ID of an instance, Auto Scaling creates a new launch configuration and associates it with the group. This launch configuration derives its attributes from the specified instance, with the exception of the block device mapping. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/create-asg-from-instance.html Create an Auto Scaling Group Using an EC2 Instance> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/create-asg-from-instance.html Create an Auto Scaling Group Using an EC2 Instance> in the /Auto Scaling User Guide/. casgInstanceId :: Lens' CreateAutoScalingGroup (Maybe Text) casgInstanceId = lens _casgInstanceId (\ s a -> s{_casgInstanceId = a});  -- | One or more termination policies used to select the instance to terminate. These policies are executed in the order that they are listed. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingBehavior.InstanceTermination.html Controlling Which Instances Auto Scaling Terminates During Scale In> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingBehavior.InstanceTermination.html Controlling Which Instances Auto Scaling Terminates During Scale In> in the /Auto Scaling User Guide/. casgTerminationPolicies :: Lens' CreateAutoScalingGroup [Text] casgTerminationPolicies = lens _casgTerminationPolicies (\ s a -> s{_casgTerminationPolicies = a}) . _Default . _Coerce; --- | The amount of time, in seconds, that Auto Scaling waits before checking the health status of an EC2 instance that has come into service. During this time, any health check failures for the instance are ignored. The default is 300.+-- | The amount of time, in seconds, that Auto Scaling waits before checking the health status of an EC2 instance that has come into service. During this time, any health check failures for the instance are ignored. The default is 0. -- -- This parameter is required if you are adding an 'ELB' health check. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/. casgHealthCheckGracePeriod :: Lens' CreateAutoScalingGroup (Maybe Int) casgHealthCheckGracePeriod = lens _casgHealthCheckGracePeriod (\ s a -> s{_casgHealthCheckGracePeriod = a}); @@ -168,13 +175,17 @@ -- -- If you specify subnets and Availability Zones with this call, ensure that the subnets\' Availability Zones match the Availability Zones specified. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling User Guide/. casgVPCZoneIdentifier :: Lens' CreateAutoScalingGroup (Maybe Text) casgVPCZoneIdentifier = lens _casgVPCZoneIdentifier (\ s a -> s{_casgVPCZoneIdentifier = a}); +-- | The Amazon Resource Names (ARN) of the target groups.+casgTargetGroupARNs :: Lens' CreateAutoScalingGroup [Text]+casgTargetGroupARNs = lens _casgTargetGroupARNs (\ s a -> s{_casgTargetGroupARNs = a}) . _Default . _Coerce;+ -- | The amount of time, in seconds, after a scaling activity completes before another scaling activity can start. The default is 300. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/. casgDefaultCooldown :: Lens' CreateAutoScalingGroup (Maybe Int) casgDefaultCooldown = lens _casgDefaultCooldown (\ s a -> s{_casgDefaultCooldown = a}); @@ -192,7 +203,7 @@  -- | The service to use for the health checks. The valid values are 'EC2' and 'ELB'. ----- By default, health checks use Amazon EC2 instance status checks to determine the health of an instance. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks> in the /Auto Scaling Developer Guide/.+-- By default, health checks use Amazon EC2 instance status checks to determine the health of an instance. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/. casgHealthCheckType :: Lens' CreateAutoScalingGroup (Maybe Text) casgHealthCheckType = lens _casgHealthCheckType (\ s a -> s{_casgHealthCheckType = a}); @@ -200,15 +211,15 @@ casgPlacementGroup :: Lens' CreateAutoScalingGroup (Maybe Text) casgPlacementGroup = lens _casgPlacementGroup (\ s a -> s{_casgPlacementGroup = a}); --- | One or more load balancers.+-- | One or more Classic load balancers. To specify an Application load balancer, use 'TargetGroupARNs' instead. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SetUpASLBApp.html Using a Load Balancer With an Auto Scaling Group> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SetUpASLBApp.html Using a Load Balancer With an Auto Scaling Group> in the /Auto Scaling User Guide/. casgLoadBalancerNames :: Lens' CreateAutoScalingGroup [Text] casgLoadBalancerNames = lens _casgLoadBalancerNames (\ s a -> s{_casgLoadBalancerNames = a}) . _Default . _Coerce;  -- | One or more tags. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASTagging.html Tagging Auto Scaling Groups and Instances> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASTagging.html Tagging Auto Scaling Groups and Instances> in the /Auto Scaling User Guide/. casgTags :: Lens' CreateAutoScalingGroup [Tag] casgTags = lens _casgTags (\ s a -> s{_casgTags = a}) . _Default . _Coerce; @@ -256,6 +267,9 @@                "NewInstancesProtectedFromScaleIn" =:                  _casgNewInstancesProtectedFromScaleIn,                "VPCZoneIdentifier" =: _casgVPCZoneIdentifier,+               "TargetGroupARNs" =:+                 toQuery+                   (toQueryList "member" <$> _casgTargetGroupARNs),                "DefaultCooldown" =: _casgDefaultCooldown,                "AvailabilityZones" =:                  toQuery

@@ -22,7 +22,7 @@ -- -- If you exceed your maximum limit of launch configurations, which by default is 100 per region, the call fails. For information about viewing and updating this limit, see < DescribeAccountLimits>. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/LaunchConfiguration.html Launch Configurations> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/LaunchConfiguration.html Launch Configurations> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.CreateLaunchConfiguration     (     -- * Creating a Request@@ -60,7 +60,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'createLaunchConfiguration' smart constructor.+-- | Contains the parameters for CreateLaunchConfiguration.+--+-- /See:/ 'createLaunchConfiguration' smart constructor. data CreateLaunchConfiguration = CreateLaunchConfiguration'     { _clcInstanceId                   :: !(Maybe Text)     , _clcAssociatePublicIPAddress     :: !(Maybe Bool)@@ -152,11 +154,11 @@ -- -- To create a launch configuration with a block device mapping or override any other instance attributes, specify them as part of the same request. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/create-lc-with-instanceID.html Create a Launch Configuration Using an EC2 Instance> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/create-lc-with-instanceID.html Create a Launch Configuration Using an EC2 Instance> in the /Auto Scaling User Guide/. clcInstanceId :: Lens' CreateLaunchConfiguration (Maybe Text) clcInstanceId = lens _clcInstanceId (\ s a -> s{_clcInstanceId = a}); --- | Used for groups that launch instances into a virtual private cloud (VPC). Specifies whether to assign a public IP address to each instance. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling Developer Guide/.+-- | Used for groups that launch instances into a virtual private cloud (VPC). Specifies whether to assign a public IP address to each instance. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling User Guide/. -- -- If you specify this parameter, be sure to specify at least one subnet when you create your group. --@@ -172,13 +174,11 @@ clcSecurityGroups :: Lens' CreateLaunchConfiguration [Text] clcSecurityGroups = lens _clcSecurityGroups (\ s a -> s{_clcSecurityGroups = a}) . _Default . _Coerce; --- | The maximum hourly price to be paid for any Spot Instance launched to fulfill the request. Spot Instances are launched when the price you specify exceeds the current Spot market price. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US-SpotInstances.html Launching Spot Instances in Your Auto Scaling Group> in the /Auto Scaling Developer Guide/.+-- | The maximum hourly price to be paid for any Spot Instance launched to fulfill the request. Spot Instances are launched when the price you specify exceeds the current Spot market price. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US-SpotInstances.html Launching Spot Instances in Your Auto Scaling Group> in the /Auto Scaling User Guide/. clcSpotPrice :: Lens' CreateLaunchConfiguration (Maybe Text) clcSpotPrice = lens _clcSpotPrice (\ s a -> s{_clcSpotPrice = a}); --- | Enables detailed monitoring if it is disabled. Detailed monitoring is enabled by default.------ When detailed monitoring is enabled, Amazon CloudWatch generates metrics every minute and your account is charged a fee. When you disable detailed monitoring, by specifying 'False', CloudWatch generates metrics every 5 minutes. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/as-instance-monitoring.html Monitoring Your Auto Scaling Instances and Groups> in the /Auto Scaling Developer Guide/.+-- | Enables detailed monitoring ('true') or basic monitoring ('false') for the Auto Scaling instances. clcInstanceMonitoring :: Lens' CreateLaunchConfiguration (Maybe InstanceMonitoring) clcInstanceMonitoring = lens _clcInstanceMonitoring (\ s a -> s{_clcInstanceMonitoring = a}); @@ -216,7 +216,7 @@  -- | The name or the Amazon Resource Name (ARN) of the instance profile associated with the IAM role for the instance. ----- EC2 instances launched with an IAM role will automatically have AWS security credentials available. You can use IAM roles with Auto Scaling to automatically enable applications running on your EC2 instances to securely access other AWS resources. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/us-iam-role.html Launch Auto Scaling Instances with an IAM Role> in the /Auto Scaling Developer Guide/.+-- EC2 instances launched with an IAM role will automatically have AWS security credentials available. You can use IAM roles with Auto Scaling to automatically enable applications running on your EC2 instances to securely access other AWS resources. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/us-iam-role.html Launch Auto Scaling Instances with an IAM Role> in the /Auto Scaling User Guide/. clcIAMInstanceProfile :: Lens' CreateLaunchConfiguration (Maybe Text) clcIAMInstanceProfile = lens _clcIAMInstanceProfile (\ s a -> s{_clcIAMInstanceProfile = a}); @@ -230,7 +230,7 @@ -- -- If you specify this parameter, be sure to specify at least one subnet when you create your group. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling User Guide/. -- -- Valid values: 'default' | 'dedicated' clcPlacementTenancy :: Lens' CreateLaunchConfiguration (Maybe Text)

@@ -22,7 +22,7 @@ -- -- When you specify a tag with a key that already exists, the operation overwrites the previous tag definition, and you do not get an error message. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASTagging.html Tagging Auto Scaling Groups and Instances> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASTagging.html Tagging Auto Scaling Groups and Instances> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.CreateOrUpdateTags     (     -- * Creating a Request@@ -43,7 +43,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'createOrUpdateTags' smart constructor.+-- | Contains the parameters for CreateOrUpdateTags.+--+-- /See:/ 'createOrUpdateTags' smart constructor. newtype CreateOrUpdateTags = CreateOrUpdateTags'     { _coutTags :: [Tag]     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -48,7 +48,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'deleteAutoScalingGroup' smart constructor.+-- | Contains the parameters for DeleteAutoScalingGroup.+--+-- /See:/ 'deleteAutoScalingGroup' smart constructor. data DeleteAutoScalingGroup = DeleteAutoScalingGroup'     { _dasgForceDelete          :: !(Maybe Bool)     , _dasgAutoScalingGroupName :: !Text

@@ -41,7 +41,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'deleteLaunchConfiguration' smart constructor.+-- | Contains the parameters for DeleteLaunchConfiguration.+--+-- /See:/ 'deleteLaunchConfiguration' smart constructor. newtype DeleteLaunchConfiguration = DeleteLaunchConfiguration'     { _dlcLaunchConfigurationName :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -44,7 +44,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'deleteLifecycleHook' smart constructor.+-- | Contains the parameters for DeleteLifecycleHook.+--+-- /See:/ 'deleteLifecycleHook' smart constructor. data DeleteLifecycleHook = DeleteLifecycleHook'     { _delLifecycleHookName    :: !Text     , _delAutoScalingGroupName :: !Text@@ -102,7 +104,9 @@                "LifecycleHookName" =: _delLifecycleHookName,                "AutoScalingGroupName" =: _delAutoScalingGroupName] --- | /See:/ 'deleteLifecycleHookResponse' smart constructor.+-- | Contains the output of DeleteLifecycleHook.+--+-- /See:/ 'deleteLifecycleHookResponse' smart constructor. newtype DeleteLifecycleHookResponse = DeleteLifecycleHookResponse'     { _drsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -40,7 +40,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'deleteNotificationConfiguration' smart constructor.+-- | Contains the parameters for DeleteNotificationConfiguration.+--+-- /See:/ 'deleteNotificationConfiguration' smart constructor. data DeleteNotificationConfiguration = DeleteNotificationConfiguration'     { _dncAutoScalingGroupName :: !Text     , _dncTopicARN             :: !Text

@@ -42,7 +42,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |+-- | Contains the parameters for DeletePolicy. -- -- /See:/ 'deletePolicy' smart constructor. data DeletePolicy = DeletePolicy'

@@ -40,9 +40,11 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'deleteScheduledAction' smart constructor.+-- | Contains the parameters for DeleteScheduledAction.+--+-- /See:/ 'deleteScheduledAction' smart constructor. data DeleteScheduledAction = DeleteScheduledAction'-    { _dsaAutoScalingGroupName :: !(Maybe Text)+    { _dsaAutoScalingGroupName :: !Text     , _dsaScheduledActionName  :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -54,16 +56,17 @@ -- -- * 'dsaScheduledActionName' deleteScheduledAction-    :: Text -- ^ 'dsaScheduledActionName'+    :: Text -- ^ 'dsaAutoScalingGroupName'+    -> Text -- ^ 'dsaScheduledActionName'     -> DeleteScheduledAction-deleteScheduledAction pScheduledActionName_ =+deleteScheduledAction pAutoScalingGroupName_ pScheduledActionName_ =     DeleteScheduledAction'-    { _dsaAutoScalingGroupName = Nothing+    { _dsaAutoScalingGroupName = pAutoScalingGroupName_     , _dsaScheduledActionName = pScheduledActionName_     }  -- | The name of the Auto Scaling group.-dsaAutoScalingGroupName :: Lens' DeleteScheduledAction (Maybe Text)+dsaAutoScalingGroupName :: Lens' DeleteScheduledAction Text dsaAutoScalingGroupName = lens _dsaAutoScalingGroupName (\ s a -> s{_dsaAutoScalingGroupName = a});  -- | The name of the action to delete.

@@ -39,7 +39,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'deleteTags' smart constructor.+-- | Contains the parameters for DeleteTags.+--+-- /See:/ 'deleteTags' smart constructor. newtype DeleteTags = DeleteTags'     { _dtTags :: [Tag]     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -87,7 +87,9 @@                  ["Action" =: ("DescribeAccountLimits" :: ByteString),                   "Version" =: ("2011-01-01" :: ByteString)]) --- | /See:/ 'describeAccountLimitsResponse' smart constructor.+-- | Contains the parameters for DescribeAccountLimits.+--+-- /See:/ 'describeAccountLimitsResponse' smart constructor. data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse'     { _dalrsNumberOfLaunchConfigurations    :: !(Maybe Int)     , _dalrsNumberOfAutoScalingGroups       :: !(Maybe Int)

@@ -81,7 +81,9 @@                     ("DescribeAdjustmentTypes" :: ByteString),                   "Version" =: ("2011-01-01" :: ByteString)]) --- | /See:/ 'describeAdjustmentTypesResponse' smart constructor.+-- | Contains the parameters for DescribeAdjustmentTypes.+--+-- /See:/ 'describeAdjustmentTypesResponse' smart constructor. data DescribeAdjustmentTypesResponse = DescribeAdjustmentTypesResponse'     { _datrsAdjustmentTypes :: !(Maybe [AdjustmentType])     , _datrsResponseStatus  :: !Int

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes one or more Auto Scaling groups. If a list of names is not provided, the call describes all Auto Scaling groups.+-- Describes one or more Auto Scaling groups. -- -- This operation returns paginated results. module Network.AWS.AutoScaling.DescribeAutoScalingGroups@@ -48,7 +48,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeAutoScalingGroups' smart constructor.+-- | Contains the parameters for DescribeAutoScalingGroups.+--+-- /See:/ 'describeAutoScalingGroups' smart constructor. data DescribeAutoScalingGroups = DescribeAutoScalingGroups'     { _dasgAutoScalingGroupNames :: !(Maybe [Text])     , _dasgNextToken             :: !(Maybe Text)@@ -73,7 +75,7 @@     , _dasgMaxRecords = Nothing     } --- | The group names.+-- | The group names. If you omit this parameter, all Auto Scaling groups are described. dasgAutoScalingGroupNames :: Lens' DescribeAutoScalingGroups [Text] dasgAutoScalingGroupNames = lens _dasgAutoScalingGroupNames (\ s a -> s{_dasgAutoScalingGroupNames = a}) . _Default . _Coerce; @@ -127,7 +129,9 @@                "NextToken" =: _dasgNextToken,                "MaxRecords" =: _dasgMaxRecords] --- | /See:/ 'describeAutoScalingGroupsResponse' smart constructor.+-- | Contains the output for DescribeAutoScalingGroups.+--+-- /See:/ 'describeAutoScalingGroupsResponse' smart constructor. data DescribeAutoScalingGroupsResponse = DescribeAutoScalingGroupsResponse'     { _dasgrsNextToken         :: !(Maybe Text)     , _dasgrsResponseStatus    :: !Int

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes one or more Auto Scaling instances. If a list is not provided, the call describes all instances.+-- Describes one or more Auto Scaling instances. -- -- This operation returns paginated results. module Network.AWS.AutoScaling.DescribeAutoScalingInstances@@ -48,7 +48,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeAutoScalingInstances' smart constructor.+-- | Contains the parameters for DescribeAutoScalingInstances.+--+-- /See:/ 'describeAutoScalingInstances' smart constructor. data DescribeAutoScalingInstances = DescribeAutoScalingInstances'     { _dasiNextToken   :: !(Maybe Text)     , _dasiInstanceIds :: !(Maybe [Text])@@ -128,7 +130,9 @@                  toQuery (toQueryList "member" <$> _dasiInstanceIds),                "MaxRecords" =: _dasiMaxRecords] --- | /See:/ 'describeAutoScalingInstancesResponse' smart constructor.+-- | Contains the output of DescribeAutoScalingInstances.+--+-- /See:/ 'describeAutoScalingInstancesResponse' smart constructor. data DescribeAutoScalingInstancesResponse = DescribeAutoScalingInstancesResponse'     { _dasirsNextToken            :: !(Maybe Text)     , _dasirsAutoScalingInstances :: !(Maybe [AutoScalingInstanceDetails])

@@ -88,7 +88,9 @@                        ByteString),                   "Version" =: ("2011-01-01" :: ByteString)]) --- | /See:/ 'describeAutoScalingNotificationTypesResponse' smart constructor.+-- | Contains the output of DescribeAutoScalingNotificationTypes.+--+-- /See:/ 'describeAutoScalingNotificationTypesResponse' smart constructor. data DescribeAutoScalingNotificationTypesResponse = DescribeAutoScalingNotificationTypesResponse'     { _dasntrsAutoScalingNotificationTypes :: !(Maybe [Text])     , _dasntrsResponseStatus               :: !Int@@ -110,18 +112,7 @@     , _dasntrsResponseStatus = pResponseStatus_     } --- | One or more of the following notification types:------ -   'autoscaling:EC2_INSTANCE_LAUNCH'------ -   'autoscaling:EC2_INSTANCE_LAUNCH_ERROR'------ -   'autoscaling:EC2_INSTANCE_TERMINATE'------ -   'autoscaling:EC2_INSTANCE_TERMINATE_ERROR'------ -   'autoscaling:TEST_NOTIFICATION'---+-- | The notification types. dasntrsAutoScalingNotificationTypes :: Lens' DescribeAutoScalingNotificationTypesResponse [Text] dasntrsAutoScalingNotificationTypes = lens _dasntrsAutoScalingNotificationTypes (\ s a -> s{_dasntrsAutoScalingNotificationTypes = a}) . _Default . _Coerce; 

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes one or more launch configurations. If you omit the list of names, then the call describes all launch configurations.+-- Describes one or more launch configurations. -- -- This operation returns paginated results. module Network.AWS.AutoScaling.DescribeLaunchConfigurations@@ -48,7 +48,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeLaunchConfigurations' smart constructor.+-- | Contains the parameters for DescribeLaunchConfigurations.+--+-- /See:/ 'describeLaunchConfigurations' smart constructor. data DescribeLaunchConfigurations = DescribeLaunchConfigurations'     { _dlcLaunchConfigurationNames :: !(Maybe [Text])     , _dlcNextToken                :: !(Maybe Text)@@ -73,7 +75,7 @@     , _dlcMaxRecords = Nothing     } --- | The launch configuration names.+-- | The launch configuration names. If you omit this parameter, all launch configurations are described. dlcLaunchConfigurationNames :: Lens' DescribeLaunchConfigurations [Text] dlcLaunchConfigurationNames = lens _dlcLaunchConfigurationNames (\ s a -> s{_dlcLaunchConfigurationNames = a}) . _Default . _Coerce; @@ -129,7 +131,9 @@                "NextToken" =: _dlcNextToken,                "MaxRecords" =: _dlcMaxRecords] --- | /See:/ 'describeLaunchConfigurationsResponse' smart constructor.+-- | Contains the output of DescribeLaunchConfigurations.+--+-- /See:/ 'describeLaunchConfigurationsResponse' smart constructor. data DescribeLaunchConfigurationsResponse = DescribeLaunchConfigurationsResponse'     { _dlcrsNextToken            :: !(Maybe Text)     , _dlcrsResponseStatus       :: !Int

@@ -82,7 +82,9 @@                     ("DescribeLifecycleHookTypes" :: ByteString),                   "Version" =: ("2011-01-01" :: ByteString)]) --- | /See:/ 'describeLifecycleHookTypesResponse' smart constructor.+-- | Contains the output of DescribeLifecycleHookTypes.+--+-- /See:/ 'describeLifecycleHookTypesResponse' smart constructor. data DescribeLifecycleHookTypesResponse = DescribeLifecycleHookTypesResponse'     { _dlhtrsLifecycleHookTypes :: !(Maybe [Text])     , _dlhtrsResponseStatus     :: !Int@@ -104,12 +106,7 @@     , _dlhtrsResponseStatus = pResponseStatus_     } --- | One or more of the following notification types:------ -   'autoscaling:EC2_INSTANCE_LAUNCHING'------ -   'autoscaling:EC2_INSTANCE_TERMINATING'---+-- | The lifecycle hook types. dlhtrsLifecycleHookTypes :: Lens' DescribeLifecycleHookTypesResponse [Text] dlhtrsLifecycleHookTypes = lens _dlhtrsLifecycleHookTypes (\ s a -> s{_dlhtrsLifecycleHookTypes = a}) . _Default . _Coerce; 

@@ -43,7 +43,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeLifecycleHooks' smart constructor.+-- | Contains the parameters for DescribeLifecycleHooks.+--+-- /See:/ 'describeLifecycleHooks' smart constructor. data DescribeLifecycleHooks = DescribeLifecycleHooks'     { _dlhLifecycleHookNames   :: !(Maybe [Text])     , _dlhAutoScalingGroupName :: !Text@@ -65,7 +67,7 @@     , _dlhAutoScalingGroupName = pAutoScalingGroupName_     } --- | The names of one or more lifecycle hooks.+-- | The names of one or more lifecycle hooks. If you omit this parameter, all lifecycle hooks are described. dlhLifecycleHookNames :: Lens' DescribeLifecycleHooks [Text] dlhLifecycleHookNames = lens _dlhLifecycleHookNames (\ s a -> s{_dlhLifecycleHookNames = a}) . _Default . _Coerce; @@ -106,7 +108,9 @@                    (toQueryList "member" <$> _dlhLifecycleHookNames),                "AutoScalingGroupName" =: _dlhAutoScalingGroupName] --- | /See:/ 'describeLifecycleHooksResponse' smart constructor.+-- | Contains the output of DescribeLifecycleHooks.+--+-- /See:/ 'describeLifecycleHooksResponse' smart constructor. data DescribeLifecycleHooksResponse = DescribeLifecycleHooksResponse'     { _dlhrsLifecycleHooks :: !(Maybe [LifecycleHook])     , _dlhrsResponseStatus :: !Int

@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AutoScaling.DescribeLoadBalancerTargetGroups+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the target groups for the specified Auto Scaling group.+module Network.AWS.AutoScaling.DescribeLoadBalancerTargetGroups+    (+    -- * Creating a Request+      describeLoadBalancerTargetGroups+    , DescribeLoadBalancerTargetGroups+    -- * Request Lenses+    , dlbtgsNextToken+    , dlbtgsMaxRecords+    , dlbtgsAutoScalingGroupName++    -- * Destructuring the Response+    , describeLoadBalancerTargetGroupsResponse+    , DescribeLoadBalancerTargetGroupsResponse+    -- * Response Lenses+    , dlbtgsrsLoadBalancerTargetGroups+    , dlbtgsrsNextToken+    , dlbtgsrsResponseStatus+    ) where++import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Contains the parameters for DescribeLoadBalancerTargetGroups.+--+-- /See:/ 'describeLoadBalancerTargetGroups' smart constructor.+data DescribeLoadBalancerTargetGroups = DescribeLoadBalancerTargetGroups'+    { _dlbtgsNextToken            :: !(Maybe Text)+    , _dlbtgsMaxRecords           :: !(Maybe Int)+    , _dlbtgsAutoScalingGroupName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeLoadBalancerTargetGroups' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbtgsNextToken'+--+-- * 'dlbtgsMaxRecords'+--+-- * 'dlbtgsAutoScalingGroupName'+describeLoadBalancerTargetGroups+    :: Text -- ^ 'dlbtgsAutoScalingGroupName'+    -> DescribeLoadBalancerTargetGroups+describeLoadBalancerTargetGroups pAutoScalingGroupName_ =+    DescribeLoadBalancerTargetGroups'+    { _dlbtgsNextToken = Nothing+    , _dlbtgsMaxRecords = Nothing+    , _dlbtgsAutoScalingGroupName = pAutoScalingGroupName_+    }++-- | The token for the next set of items to return. (You received this token from a previous call.)+dlbtgsNextToken :: Lens' DescribeLoadBalancerTargetGroups (Maybe Text)+dlbtgsNextToken = lens _dlbtgsNextToken (\ s a -> s{_dlbtgsNextToken = a});++-- | The maximum number of items to return with this call.+dlbtgsMaxRecords :: Lens' DescribeLoadBalancerTargetGroups (Maybe Int)+dlbtgsMaxRecords = lens _dlbtgsMaxRecords (\ s a -> s{_dlbtgsMaxRecords = a});++-- | The name of the Auto Scaling group.+dlbtgsAutoScalingGroupName :: Lens' DescribeLoadBalancerTargetGroups Text+dlbtgsAutoScalingGroupName = lens _dlbtgsAutoScalingGroupName (\ s a -> s{_dlbtgsAutoScalingGroupName = a});++instance AWSRequest DescribeLoadBalancerTargetGroups+         where+        type Rs DescribeLoadBalancerTargetGroups =+             DescribeLoadBalancerTargetGroupsResponse+        request = postQuery autoScaling+        response+          = receiveXMLWrapper+              "DescribeLoadBalancerTargetGroupsResult"+              (\ s h x ->+                 DescribeLoadBalancerTargetGroupsResponse' <$>+                   (x .@? "LoadBalancerTargetGroups" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeLoadBalancerTargetGroups++instance NFData DescribeLoadBalancerTargetGroups++instance ToHeaders DescribeLoadBalancerTargetGroups+         where+        toHeaders = const mempty++instance ToPath DescribeLoadBalancerTargetGroups+         where+        toPath = const "/"++instance ToQuery DescribeLoadBalancerTargetGroups+         where+        toQuery DescribeLoadBalancerTargetGroups'{..}+          = mconcat+              ["Action" =:+                 ("DescribeLoadBalancerTargetGroups" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "NextToken" =: _dlbtgsNextToken,+               "MaxRecords" =: _dlbtgsMaxRecords,+               "AutoScalingGroupName" =:+                 _dlbtgsAutoScalingGroupName]++-- | Contains the output of DescribeLoadBalancerTargetGroups.+--+-- /See:/ 'describeLoadBalancerTargetGroupsResponse' smart constructor.+data DescribeLoadBalancerTargetGroupsResponse = DescribeLoadBalancerTargetGroupsResponse'+    { _dlbtgsrsLoadBalancerTargetGroups :: !(Maybe [LoadBalancerTargetGroupState])+    , _dlbtgsrsNextToken                :: !(Maybe Text)+    , _dlbtgsrsResponseStatus           :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeLoadBalancerTargetGroupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbtgsrsLoadBalancerTargetGroups'+--+-- * 'dlbtgsrsNextToken'+--+-- * 'dlbtgsrsResponseStatus'+describeLoadBalancerTargetGroupsResponse+    :: Int -- ^ 'dlbtgsrsResponseStatus'+    -> DescribeLoadBalancerTargetGroupsResponse+describeLoadBalancerTargetGroupsResponse pResponseStatus_ =+    DescribeLoadBalancerTargetGroupsResponse'+    { _dlbtgsrsLoadBalancerTargetGroups = Nothing+    , _dlbtgsrsNextToken = Nothing+    , _dlbtgsrsResponseStatus = pResponseStatus_+    }++-- | Information about the target groups.+dlbtgsrsLoadBalancerTargetGroups :: Lens' DescribeLoadBalancerTargetGroupsResponse [LoadBalancerTargetGroupState]+dlbtgsrsLoadBalancerTargetGroups = lens _dlbtgsrsLoadBalancerTargetGroups (\ s a -> s{_dlbtgsrsLoadBalancerTargetGroups = a}) . _Default . _Coerce;++-- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty.+dlbtgsrsNextToken :: Lens' DescribeLoadBalancerTargetGroupsResponse (Maybe Text)+dlbtgsrsNextToken = lens _dlbtgsrsNextToken (\ s a -> s{_dlbtgsrsNextToken = a});++-- | The response status code.+dlbtgsrsResponseStatus :: Lens' DescribeLoadBalancerTargetGroupsResponse Int+dlbtgsrsResponseStatus = lens _dlbtgsrsResponseStatus (\ s a -> s{_dlbtgsrsResponseStatus = a});++instance NFData+         DescribeLoadBalancerTargetGroupsResponse

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Describes the load balancers for the specified Auto Scaling group.+--+-- Note that this operation describes only Classic load balancers. If you have Application load balancers, use < DescribeLoadBalancerTargetGroups> instead. module Network.AWS.AutoScaling.DescribeLoadBalancers     (     -- * Creating a Request@@ -45,7 +47,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeLoadBalancers' smart constructor.+-- | Contains the parameters for DescribeLoadBalancers.+--+-- /See:/ 'describeLoadBalancers' smart constructor. data DescribeLoadBalancers = DescribeLoadBalancers'     { _dlbNextToken            :: !(Maybe Text)     , _dlbMaxRecords           :: !(Maybe Int)@@ -115,7 +119,9 @@                "MaxRecords" =: _dlbMaxRecords,                "AutoScalingGroupName" =: _dlbAutoScalingGroupName] --- | /See:/ 'describeLoadBalancersResponse' smart constructor.+-- | Contains the output of DescribeLoadBalancers.+--+-- /See:/ 'describeLoadBalancersResponse' smart constructor. data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse'     { _dlbrsLoadBalancers  :: !(Maybe [LoadBalancerState])     , _dlbrsNextToken      :: !(Maybe Text)

@@ -90,7 +90,9 @@                     ("DescribeMetricCollectionTypes" :: ByteString),                   "Version" =: ("2011-01-01" :: ByteString)]) --- | /See:/ 'describeMetricCollectionTypesResponse' smart constructor.+-- | Contains the output of DescribeMetricsCollectionTypes.+--+-- /See:/ 'describeMetricCollectionTypesResponse' smart constructor. data DescribeMetricCollectionTypesResponse = DescribeMetricCollectionTypesResponse'     { _dmctrsMetrics        :: !(Maybe [MetricCollectionType])     , _dmctrsGranularities  :: !(Maybe [MetricGranularityType])

@@ -48,7 +48,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeNotificationConfigurations' smart constructor.+-- | Contains the parameters for DescribeNotificationConfigurations.+--+-- /See:/ 'describeNotificationConfigurations' smart constructor. data DescribeNotificationConfigurations = DescribeNotificationConfigurations'     { _dncAutoScalingGroupNames :: !(Maybe [Text])     , _dncNextToken             :: !(Maybe Text)@@ -133,7 +135,9 @@                "NextToken" =: _dncNextToken,                "MaxRecords" =: _dncMaxRecords] --- | /See:/ 'describeNotificationConfigurationsResponse' smart constructor.+-- | Contains the output from DescribeNotificationConfigurations.+--+-- /See:/ 'describeNotificationConfigurationsResponse' smart constructor. data DescribeNotificationConfigurationsResponse = DescribeNotificationConfigurationsResponse'     { _dncrsNextToken                  :: !(Maybe Text)     , _dncrsResponseStatus             :: !Int

@@ -50,7 +50,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describePolicies' smart constructor.+-- | Contains the parameters for DescribePolicies.+--+-- /See:/ 'describePolicies' smart constructor. data DescribePolicies = DescribePolicies'     { _dpsPolicyNames          :: !(Maybe [Text])     , _dpsNextToken            :: !(Maybe Text)@@ -83,7 +85,7 @@     , _dpsPolicyTypes = Nothing     } --- | One or more policy names or policy ARNs to be described. If you omit this list, all policy names are described. If an group name is provided, the results are limited to that group. This list is limited to 50 items. If you specify an unknown policy name, it is ignored with no error.+-- | One or more policy names or policy ARNs to be described. If you omit this parameter, all policy names are described. If an group name is provided, the results are limited to that group. This list is limited to 50 items. If you specify an unknown policy name, it is ignored with no error. dpsPolicyNames :: Lens' DescribePolicies [Text] dpsPolicyNames = lens _dpsPolicyNames (\ s a -> s{_dpsPolicyNames = a}) . _Default . _Coerce; @@ -145,7 +147,9 @@                "PolicyTypes" =:                  toQuery (toQueryList "member" <$> _dpsPolicyTypes)] --- | /See:/ 'describePoliciesResponse' smart constructor.+-- | Contains the output of DescribePolicies.+--+-- /See:/ 'describePoliciesResponse' smart constructor. data DescribePoliciesResponse = DescribePoliciesResponse'     { _dprsNextToken       :: !(Maybe Text)     , _dprsScalingPolicies :: !(Maybe [ScalingPolicy])

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes one or more scaling activities for the specified Auto Scaling group. If you omit the 'ActivityIds', the call returns all activities from the past six weeks. Activities are sorted by the start time. Activities still in progress appear first on the list.+-- Describes one or more scaling activities for the specified Auto Scaling group. -- -- This operation returns paginated results. module Network.AWS.AutoScaling.DescribeScalingActivities@@ -49,7 +49,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeScalingActivities' smart constructor.+-- | Contains the parameters for DescribeScalingActivities.+--+-- /See:/ 'describeScalingActivities' smart constructor. data DescribeScalingActivities = DescribeScalingActivities'     { _desNextToken            :: !(Maybe Text)     , _desAutoScalingGroupName :: !(Maybe Text)@@ -90,7 +92,7 @@ desMaxRecords :: Lens' DescribeScalingActivities (Maybe Int) desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a}); --- | The activity IDs of the desired scaling activities. If this list is omitted, all activities are described. If you specify an Auto Scaling group, the results are limited to that group. The list of requested activities cannot contain more than 50 items. If unknown activities are requested, they are ignored with no error.+-- | The activity IDs of the desired scaling activities. If you omit this parameter, all activities for the past six weeks are described. If you specify an Auto Scaling group, the results are limited to that group. The list of requested activities cannot contain more than 50 items. If unknown activities are requested, they are ignored with no error. desActivityIds :: Lens' DescribeScalingActivities [Text] desActivityIds = lens _desActivityIds (\ s a -> s{_desActivityIds = a}) . _Default . _Coerce; @@ -135,7 +137,9 @@                "ActivityIds" =:                  toQuery (toQueryList "member" <$> _desActivityIds)] --- | /See:/ 'describeScalingActivitiesResponse' smart constructor.+-- | Contains the output of DescribeScalingActivities.+--+-- /See:/ 'describeScalingActivitiesResponse' smart constructor. data DescribeScalingActivitiesResponse = DescribeScalingActivitiesResponse'     { _dsasrsNextToken      :: !(Maybe Text)     , _dsasrsResponseStatus :: !Int@@ -169,7 +173,7 @@ dsasrsResponseStatus :: Lens' DescribeScalingActivitiesResponse Int dsasrsResponseStatus = lens _dsasrsResponseStatus (\ s a -> s{_dsasrsResponseStatus = a}); --- | The scaling activities.+-- | The scaling activities. Activities are sorted by start time. Activities still in progress are described first. dsasrsActivities :: Lens' DescribeScalingActivitiesResponse [Activity] dsasrsActivities = lens _dsasrsActivities (\ s a -> s{_dsasrsActivities = a}) . _Coerce; 

@@ -82,7 +82,9 @@                     ("DescribeScalingProcessTypes" :: ByteString),                   "Version" =: ("2011-01-01" :: ByteString)]) --- | /See:/ 'describeScalingProcessTypesResponse' smart constructor.+-- | Contains the output of DescribeScalingProcessTypes.+--+-- /See:/ 'describeScalingProcessTypesResponse' smart constructor. data DescribeScalingProcessTypesResponse = DescribeScalingProcessTypesResponse'     { _dsptrsProcesses      :: !(Maybe [ProcessType])     , _dsptrsResponseStatus :: !Int

@@ -51,7 +51,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeScheduledActions' smart constructor.+-- | Contains the parameters for DescribeScheduledActions.+--+-- /See:/ 'describeScheduledActions' smart constructor. data DescribeScheduledActions = DescribeScheduledActions'     { _dsasStartTime            :: !(Maybe ISO8601)     , _dsasNextToken            :: !(Maybe Text)@@ -108,7 +110,7 @@ dsasEndTime :: Lens' DescribeScheduledActions (Maybe UTCTime) dsasEndTime = lens _dsasEndTime (\ s a -> s{_dsasEndTime = a}) . mapping _Time; --- | Describes one or more scheduled actions. If you omit this list, the call describes all scheduled actions. If you specify an unknown scheduled action it is ignored with no error.+-- | Describes one or more scheduled actions. If you omit this parameter, all scheduled actions are described. If you specify an unknown scheduled action, it is ignored with no error. -- -- You can describe up to a maximum of 50 instances with a single call. If there are more items to return, the call returns a token. To get the next set of items, repeat the call with the returned token. dsasScheduledActionNames :: Lens' DescribeScheduledActions [Text]@@ -160,7 +162,9 @@                  toQuery                    (toQueryList "member" <$> _dsasScheduledActionNames)] --- | /See:/ 'describeScheduledActionsResponse' smart constructor.+-- | Contains the output of DescribeScheduledActions.+--+-- /See:/ 'describeScheduledActionsResponse' smart constructor. data DescribeScheduledActionsResponse = DescribeScheduledActionsResponse'     { _dsarsScheduledUpdateGroupActions :: !(Maybe [ScheduledUpdateGroupAction])     , _dsarsNextToken                   :: !(Maybe Text)

@@ -52,7 +52,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeTags' smart constructor.+-- | Contains the parameters for DescribeTags.+--+-- /See:/ 'describeTags' smart constructor. data DescribeTags = DescribeTags'     { _dtFilters    :: !(Maybe [Filter])     , _dtNextToken  :: !(Maybe Text)@@ -128,7 +130,9 @@                "NextToken" =: _dtNextToken,                "MaxRecords" =: _dtMaxRecords] --- | /See:/ 'describeTagsResponse' smart constructor.+-- | Contains the output of DescribeTags.+--+-- /See:/ 'describeTagsResponse' smart constructor. data DescribeTagsResponse = DescribeTagsResponse'     { _dtrsNextToken      :: !(Maybe Text)     , _dtrsTags           :: !(Maybe [TagDescription])

@@ -84,7 +84,9 @@                     ("DescribeTerminationPolicyTypes" :: ByteString),                   "Version" =: ("2011-01-01" :: ByteString)]) --- | /See:/ 'describeTerminationPolicyTypesResponse' smart constructor.+-- | Contains the output of DescribeTerminationPolicyTypes.+--+-- /See:/ 'describeTerminationPolicyTypesResponse' smart constructor. data DescribeTerminationPolicyTypesResponse = DescribeTerminationPolicyTypesResponse'     { _dtptrsTerminationPolicyTypes :: !(Maybe [Text])     , _dtptrsResponseStatus         :: !Int

@@ -24,7 +24,9 @@ -- -- If you do not specify the option to decrement the desired capacity, Auto Scaling launches instances to replace the ones that are detached. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/detach-instance-asg.html Detach EC2 Instances from Your Auto Scaling Group> in the /Auto Scaling Developer Guide/.+-- If there is a Classic load balancer attached to the Auto Scaling group, the instances are deregistered from the load balancer. If there are target groups attached to the Auto Scaling group, the instances are deregistered from the target groups.+--+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/detach-instance-asg.html Detach EC2 Instances from Your Auto Scaling Group> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.DetachInstances     (     -- * Creating a Request@@ -50,7 +52,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'detachInstances' smart constructor.+-- | Contains the parameters for DetachInstances.+--+-- /See:/ 'detachInstances' smart constructor. data DetachInstances = DetachInstances'     { _diInstanceIds                    :: !(Maybe [Text])     , _diAutoScalingGroupName           :: !Text@@ -121,7 +125,9 @@                "ShouldDecrementDesiredCapacity" =:                  _diShouldDecrementDesiredCapacity] --- | /See:/ 'detachInstancesResponse' smart constructor.+-- | Contains the output of DetachInstances.+--+-- /See:/ 'detachInstancesResponse' smart constructor. data DetachInstancesResponse = DetachInstancesResponse'     { _dirsActivities     :: !(Maybe [Activity])     , _dirsResponseStatus :: !Int

@@ -0,0 +1,131 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AutoScaling.DetachLoadBalancerTargetGroups+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Detaches one or more target groups from the specified Auto Scaling group.+module Network.AWS.AutoScaling.DetachLoadBalancerTargetGroups+    (+    -- * Creating a Request+      detachLoadBalancerTargetGroups+    , DetachLoadBalancerTargetGroups+    -- * Request Lenses+    , dlbtgAutoScalingGroupName+    , dlbtgTargetGroupARNs++    -- * Destructuring the Response+    , detachLoadBalancerTargetGroupsResponse+    , DetachLoadBalancerTargetGroupsResponse+    -- * Response Lenses+    , dlbtgrsResponseStatus+    ) where++import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'detachLoadBalancerTargetGroups' smart constructor.+data DetachLoadBalancerTargetGroups = DetachLoadBalancerTargetGroups'+    { _dlbtgAutoScalingGroupName :: !Text+    , _dlbtgTargetGroupARNs      :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DetachLoadBalancerTargetGroups' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbtgAutoScalingGroupName'+--+-- * 'dlbtgTargetGroupARNs'+detachLoadBalancerTargetGroups+    :: Text -- ^ 'dlbtgAutoScalingGroupName'+    -> DetachLoadBalancerTargetGroups+detachLoadBalancerTargetGroups pAutoScalingGroupName_ =+    DetachLoadBalancerTargetGroups'+    { _dlbtgAutoScalingGroupName = pAutoScalingGroupName_+    , _dlbtgTargetGroupARNs = mempty+    }++-- | The name of the Auto Scaling group.+dlbtgAutoScalingGroupName :: Lens' DetachLoadBalancerTargetGroups Text+dlbtgAutoScalingGroupName = lens _dlbtgAutoScalingGroupName (\ s a -> s{_dlbtgAutoScalingGroupName = a});++-- | The Amazon Resource Names (ARN) of the target groups.+dlbtgTargetGroupARNs :: Lens' DetachLoadBalancerTargetGroups [Text]+dlbtgTargetGroupARNs = lens _dlbtgTargetGroupARNs (\ s a -> s{_dlbtgTargetGroupARNs = a}) . _Coerce;++instance AWSRequest DetachLoadBalancerTargetGroups+         where+        type Rs DetachLoadBalancerTargetGroups =+             DetachLoadBalancerTargetGroupsResponse+        request = postQuery autoScaling+        response+          = receiveXMLWrapper+              "DetachLoadBalancerTargetGroupsResult"+              (\ s h x ->+                 DetachLoadBalancerTargetGroupsResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DetachLoadBalancerTargetGroups++instance NFData DetachLoadBalancerTargetGroups++instance ToHeaders DetachLoadBalancerTargetGroups+         where+        toHeaders = const mempty++instance ToPath DetachLoadBalancerTargetGroups where+        toPath = const "/"++instance ToQuery DetachLoadBalancerTargetGroups where+        toQuery DetachLoadBalancerTargetGroups'{..}+          = mconcat+              ["Action" =:+                 ("DetachLoadBalancerTargetGroups" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "AutoScalingGroupName" =: _dlbtgAutoScalingGroupName,+               "TargetGroupARNs" =:+                 toQueryList "member" _dlbtgTargetGroupARNs]++-- | /See:/ 'detachLoadBalancerTargetGroupsResponse' smart constructor.+newtype DetachLoadBalancerTargetGroupsResponse = DetachLoadBalancerTargetGroupsResponse'+    { _dlbtgrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DetachLoadBalancerTargetGroupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbtgrsResponseStatus'+detachLoadBalancerTargetGroupsResponse+    :: Int -- ^ 'dlbtgrsResponseStatus'+    -> DetachLoadBalancerTargetGroupsResponse+detachLoadBalancerTargetGroupsResponse pResponseStatus_ =+    DetachLoadBalancerTargetGroupsResponse'+    { _dlbtgrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+dlbtgrsResponseStatus :: Lens' DetachLoadBalancerTargetGroupsResponse Int+dlbtgrsResponseStatus = lens _dlbtgrsResponseStatus (\ s a -> s{_dlbtgrsResponseStatus = a});++instance NFData+         DetachLoadBalancerTargetGroupsResponse

@@ -18,8 +18,10 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Removes one or more load balancers from the specified Auto Scaling group.+-- Detaches one or more Classic load balancers from the specified Auto Scaling group. --+-- Note that this operation detaches only Classic load balancers. If you have Application load balancers, use < DetachLoadBalancerTargetGroups> instead.+-- -- When you detach a load balancer, it enters the 'Removing' state while deregistering the instances in the group. When all instances are deregistered, then you can no longer describe the load balancer using < DescribeLoadBalancers>. Note that the instances remain running. module Network.AWS.AutoScaling.DetachLoadBalancers     (@@ -44,10 +46,12 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'detachLoadBalancers' smart constructor.+-- | Contains the parameters for DetachLoadBalancers.+--+-- /See:/ 'detachLoadBalancers' smart constructor. data DetachLoadBalancers = DetachLoadBalancers'-    { _dAutoScalingGroupName :: !(Maybe Text)-    , _dLoadBalancerNames    :: !(Maybe [Text])+    { _dAutoScalingGroupName :: !Text+    , _dLoadBalancerNames    :: ![Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DetachLoadBalancers' with the minimum fields required to make a request.@@ -58,20 +62,21 @@ -- -- * 'dLoadBalancerNames' detachLoadBalancers-    :: DetachLoadBalancers-detachLoadBalancers =+    :: Text -- ^ 'dAutoScalingGroupName'+    -> DetachLoadBalancers+detachLoadBalancers pAutoScalingGroupName_ =     DetachLoadBalancers'-    { _dAutoScalingGroupName = Nothing-    , _dLoadBalancerNames = Nothing+    { _dAutoScalingGroupName = pAutoScalingGroupName_+    , _dLoadBalancerNames = mempty     } --- | The name of the group.-dAutoScalingGroupName :: Lens' DetachLoadBalancers (Maybe Text)+-- | The name of the Auto Scaling group.+dAutoScalingGroupName :: Lens' DetachLoadBalancers Text dAutoScalingGroupName = lens _dAutoScalingGroupName (\ s a -> s{_dAutoScalingGroupName = a});  -- | One or more load balancer names. dLoadBalancerNames :: Lens' DetachLoadBalancers [Text]-dLoadBalancerNames = lens _dLoadBalancerNames (\ s a -> s{_dLoadBalancerNames = a}) . _Default . _Coerce;+dLoadBalancerNames = lens _dLoadBalancerNames (\ s a -> s{_dLoadBalancerNames = a}) . _Coerce;  instance AWSRequest DetachLoadBalancers where         type Rs DetachLoadBalancers =@@ -99,10 +104,11 @@                "Version" =: ("2011-01-01" :: ByteString),                "AutoScalingGroupName" =: _dAutoScalingGroupName,                "LoadBalancerNames" =:-                 toQuery-                   (toQueryList "member" <$> _dLoadBalancerNames)]+                 toQueryList "member" _dLoadBalancerNames] --- | /See:/ 'detachLoadBalancersResponse' smart constructor.+-- | Contains the output for DetachLoadBalancers.+--+-- /See:/ 'detachLoadBalancersResponse' smart constructor. newtype DetachLoadBalancersResponse = DetachLoadBalancersResponse'     { _dlbsrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Disables monitoring of the specified metrics for the specified Auto Scaling group.+-- Disables group metrics for the specified Auto Scaling group. module Network.AWS.AutoScaling.DisableMetricsCollection     (     -- * Creating a Request@@ -40,7 +40,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'disableMetricsCollection' smart constructor.+-- | Contains the parameters for DisableMetricsCollection.+--+-- /See:/ 'disableMetricsCollection' smart constructor. data DisableMetricsCollection = DisableMetricsCollection'     { _dmcMetrics              :: !(Maybe [Text])     , _dmcAutoScalingGroupName :: !Text

@@ -18,9 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Enables monitoring of the specified metrics for the specified Auto Scaling group.------ You can only enable metrics collection if 'InstanceMonitoring' in the launch configuration for the group is set to 'True'.+-- Enables group metrics for the specified Auto Scaling group. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/userguide/as-instance-monitoring.html Monitoring Your Auto Scaling Groups and Instances> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.EnableMetricsCollection     (     -- * Creating a Request@@ -43,7 +41,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'enableMetricsCollection' smart constructor.+-- | Contains the parameters for EnableMetricsCollection.+--+-- /See:/ 'enableMetricsCollection' smart constructor. data EnableMetricsCollection = EnableMetricsCollection'     { _emcMetrics              :: !(Maybe [Text])     , _emcAutoScalingGroupName :: !Text@@ -88,7 +88,6 @@ -- -- -   'GroupTotalInstances' ----- Note that the 'GroupStandbyInstances' metric is not enabled by default. You must explicitly request this metric. emcMetrics :: Lens' EnableMetricsCollection [Text] emcMetrics = lens _emcMetrics (\ s a -> s{_emcMetrics = a}) . _Default . _Coerce; 

@@ -20,7 +20,7 @@ -- -- Moves the specified instances into 'Standby' mode. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.EnterStandby     (     -- * Creating a Request@@ -46,7 +46,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'enterStandby' smart constructor.+-- | Contains the parameters for EnteStandby.+--+-- /See:/ 'enterStandby' smart constructor. data EnterStandby = EnterStandby'     { _esInstanceIds                    :: !(Maybe [Text])     , _esAutoScalingGroupName           :: !Text@@ -117,7 +119,9 @@                "ShouldDecrementDesiredCapacity" =:                  _esShouldDecrementDesiredCapacity] --- | /See:/ 'enterStandbyResponse' smart constructor.+-- | Contains the output of EnterStandby.+--+-- /See:/ 'enterStandbyResponse' smart constructor. data EnterStandbyResponse = EnterStandbyResponse'     { _ersActivities     :: !(Maybe [Activity])     , _ersResponseStatus :: !Int

@@ -43,7 +43,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'executePolicy' smart constructor.+-- | Contains the parameters for ExecutePolicy.+--+-- /See:/ 'executePolicy' smart constructor. data ExecutePolicy = ExecutePolicy'     { _epHonorCooldown        :: !(Maybe Bool)     , _epMetricValue          :: !(Maybe Double)@@ -81,7 +83,7 @@ -- -- This parameter is not supported if the policy type is 'StepScaling'. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/. epHonorCooldown :: Lens' ExecutePolicy (Maybe Bool) epHonorCooldown = lens _epHonorCooldown (\ s a -> s{_epHonorCooldown = a}); 

@@ -20,7 +20,7 @@ -- -- Moves the specified instances out of 'Standby' mode. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.ExitStandby     (     -- * Creating a Request@@ -45,7 +45,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'exitStandby' smart constructor.+-- | Contains the parameters for ExitStandby.+--+-- /See:/ 'exitStandby' smart constructor. data ExitStandby = ExitStandby'     { _eInstanceIds          :: !(Maybe [Text])     , _eAutoScalingGroupName :: !Text@@ -105,7 +107,9 @@                  toQuery (toQueryList "member" <$> _eInstanceIds),                "AutoScalingGroupName" =: _eAutoScalingGroupName] --- | /See:/ 'exitStandbyResponse' smart constructor.+-- | Contains the parameters for ExitStandby.+--+-- /See:/ 'exitStandbyResponse' smart constructor. data ExitStandbyResponse = ExitStandbyResponse'     { _esrsActivities     :: !(Maybe [Activity])     , _esrsResponseStatus :: !Int

@@ -25,14 +25,18 @@ -- This step is a part of the procedure for adding a lifecycle hook to an Auto Scaling group: -- -- 1.  (Optional) Create a Lambda function and a rule that allows CloudWatch Events to invoke your Lambda function when Auto Scaling launches or terminates instances.+-- -- 2.  (Optional) Create a notification target and an IAM role. The target can be either an Amazon SQS queue or an Amazon SNS topic. The role allows Auto Scaling to publish lifecycle notifications to the target.+-- -- 3.  __Create the lifecycle hook. Specify whether the hook is used when the instances launch or terminate.__+-- -- 4.  If you need more time, record the lifecycle action heartbeat to keep the instance in a pending state.+-- -- 5.  If you finish before the timeout period ends, complete the lifecycle action. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling User Guide/. ----- If you exceed your maximum limit of lifecycle hooks, which by default is 50 per region, the call fails. For information about updating this limit, see <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html AWS Service Limits> in the /Amazon Web Services General Reference/.+-- If you exceed your maximum limit of lifecycle hooks, which by default is 50 per Auto Scaling group, the call fails. For information about updating this limit, see <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html AWS Service Limits> in the /Amazon Web Services General Reference/. module Network.AWS.AutoScaling.PutLifecycleHook     (     -- * Creating a Request@@ -62,7 +66,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'putLifecycleHook' smart constructor.+-- | Contains the parameters for PutLifecycleHook.+--+-- /See:/ 'putLifecycleHook' smart constructor. data PutLifecycleHook = PutLifecycleHook'     { _plhDefaultResult         :: !(Maybe Text)     , _plhHeartbeatTimeout      :: !(Maybe Int)@@ -126,11 +132,17 @@ -- The notification messages sent to the target include the following information: -- -- -   __AutoScalingGroupName__. The name of the Auto Scaling group.+-- -- -   __AccountId__. The AWS account ID.+-- -- -   __LifecycleTransition__. The lifecycle hook type.+-- -- -   __LifecycleActionToken__. The lifecycle action token.+-- -- -   __EC2InstanceId__. The EC2 instance ID.+-- -- -   __LifecycleHookName__. The name of the lifecycle hook.+-- -- -   __NotificationMetadata__. User-defined information. -- -- This operation uses the JSON format when sending notifications to an Amazon SQS queue, and an email key\/value pair format when sending notifications to an Amazon SNS topic.@@ -191,7 +203,9 @@                "LifecycleHookName" =: _plhLifecycleHookName,                "AutoScalingGroupName" =: _plhAutoScalingGroupName] --- | /See:/ 'putLifecycleHookResponse' smart constructor.+-- | Contains the output of PutLifecycleHook.+--+-- /See:/ 'putLifecycleHookResponse' smart constructor. newtype PutLifecycleHookResponse = PutLifecycleHookResponse'     { _plhrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Configures an Auto Scaling group to send notifications when specified events take place. Subscribers to this topic can have messages for events delivered to an endpoint such as a web server or email address.+-- Configures an Auto Scaling group to send notifications when specified events take place. Subscribers to the specified topic can have messages delivered to an endpoint such as a web server or an email address. ----- For more information see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASGettingNotifications.html Getting Notifications When Your Auto Scaling Group Changes> in the /Auto Scaling Developer Guide/.+-- This configuration overwrites any existing configuration. ----- This configuration overwrites an existing configuration.+-- For more information see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASGettingNotifications.html Getting SNS Notifications When Your Auto Scaling Group Scales> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.PutNotificationConfiguration     (     -- * Creating a Request@@ -45,7 +45,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'putNotificationConfiguration' smart constructor.+-- | Contains the parameters for PutNotificationConfiguration.+--+-- /See:/ 'putNotificationConfiguration' smart constructor. data PutNotificationConfiguration = PutNotificationConfiguration'     { _pncAutoScalingGroupName :: !Text     , _pncTopicARN             :: !Text

@@ -54,7 +54,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'putScalingPolicy' smart constructor.+-- | Contains the parameters for PutScalingPolicy.+--+-- /See:/ 'putScalingPolicy' smart constructor. data PutScalingPolicy = PutScalingPolicy'     { _pspMinAdjustmentStep       :: !(Maybe Int)     , _pspEstimatedInstanceWarmup :: !(Maybe Int)@@ -144,7 +146,7 @@ -- -- This parameter is not supported unless the policy type is 'SimpleScaling'. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/. pspCooldown :: Lens' PutScalingPolicy (Maybe Int) pspCooldown = lens _pspCooldown (\ s a -> s{_pspCooldown = a}); @@ -168,7 +170,7 @@  -- | The adjustment type. Valid values are 'ChangeInCapacity', 'ExactCapacity', and 'PercentChangeInCapacity'. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/as-scale-based-on-demand.html Dynamic Scaling> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/as-scale-based-on-demand.html Dynamic Scaling> in the /Auto Scaling User Guide/. pspAdjustmentType :: Lens' PutScalingPolicy Text pspAdjustmentType = lens _pspAdjustmentType (\ s a -> s{_pspAdjustmentType = a}); @@ -212,7 +214,9 @@                "PolicyName" =: _pspPolicyName,                "AdjustmentType" =: _pspAdjustmentType] --- | /See:/ 'putScalingPolicyResponse' smart constructor.+-- | Contains the output of PutScalingPolicy.+--+-- /See:/ 'putScalingPolicyResponse' smart constructor. data PutScalingPolicyResponse = PutScalingPolicyResponse'     { _psprsPolicyARN      :: !(Maybe Text)     , _psprsResponseStatus :: !Int

@@ -20,7 +20,7 @@ -- -- Creates or updates a scheduled scaling action for an Auto Scaling group. When updating a scheduled scaling action, if you leave a parameter unspecified, the corresponding value remains unchanged in the affected Auto Scaling group. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/schedule_time.html Scheduled Scaling> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/schedule_time.html Scheduled Scaling> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.PutScheduledUpdateGroupAction     (     -- * Creating a Request@@ -49,7 +49,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'putScheduledUpdateGroupAction' smart constructor.+-- | Contains the parameters for PutScheduledUpdateGroupAction.+--+-- /See:/ 'putScheduledUpdateGroupAction' smart constructor. data PutScheduledUpdateGroupAction = PutScheduledUpdateGroupAction'     { _psugaStartTime            :: !(Maybe ISO8601)     , _psugaTime                 :: !(Maybe ISO8601)

@@ -23,12 +23,16 @@ -- This step is a part of the procedure for adding a lifecycle hook to an Auto Scaling group: -- -- 1.  (Optional) Create a Lambda function and a rule that allows CloudWatch Events to invoke your Lambda function when Auto Scaling launches or terminates instances.+-- -- 2.  (Optional) Create a notification target and an IAM role. The target can be either an Amazon SQS queue or an Amazon SNS topic. The role allows Auto Scaling to publish lifecycle notifications to the target.+-- -- 3.  Create the lifecycle hook. Specify whether the hook is used when the instances launch or terminate.+-- -- 4.  __If you need more time, record the lifecycle action heartbeat to keep the instance in a pending state.__+-- -- 5.  If you finish before the timeout period ends, complete the lifecycle action. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.RecordLifecycleActionHeartbeat     (     -- * Creating a Request@@ -54,7 +58,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'recordLifecycleActionHeartbeat' smart constructor.+-- | Contains the parameters for RecordLifecycleActionHeartbeat.+--+-- /See:/ 'recordLifecycleActionHeartbeat' smart constructor. data RecordLifecycleActionHeartbeat = RecordLifecycleActionHeartbeat'     { _rlahInstanceId           :: !(Maybe Text)     , _rlahLifecycleActionToken :: !(Maybe Text)@@ -135,7 +141,9 @@                "LifecycleHookName" =: _rlahLifecycleHookName,                "AutoScalingGroupName" =: _rlahAutoScalingGroupName] --- | /See:/ 'recordLifecycleActionHeartbeatResponse' smart constructor.+-- | Contains the output of RecordLifecycleActionHeartBeat.+--+-- /See:/ 'recordLifecycleActionHeartbeatResponse' smart constructor. newtype RecordLifecycleActionHeartbeatResponse = RecordLifecycleActionHeartbeatResponse'     { _rlahrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -20,7 +20,7 @@ -- -- Resumes the specified suspended Auto Scaling processes, or all suspended process, for the specified Auto Scaling group. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SuspendResume.html Suspending and Resuming Auto Scaling Processes> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SuspendResume.html Suspending and Resuming Auto Scaling Processes> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.ResumeProcesses     (     -- * Creating a Request@@ -42,7 +42,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'resumeProcesses' smart constructor.+-- | Contains the parameters for SuspendProcesses and ResumeProcesses.+--+-- /See:/ 'resumeProcesses' smart constructor. data ResumeProcesses = ResumeProcesses'     { _rpScalingProcesses     :: !(Maybe [Text])     , _rpAutoScalingGroupName :: !Text@@ -64,7 +66,7 @@     , _rpAutoScalingGroupName = pAutoScalingGroupName_     } --- | One or more of the following processes:+-- | One or more of the following processes. If you omit this parameter, all processes are specified. -- -- -   'Launch' --

@@ -20,7 +20,7 @@ -- -- Sets the size of the specified Auto Scaling group. ----- For more information about desired capacity, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/WhatIsAutoScaling.html What Is Auto Scaling?> in the /Auto Scaling Developer Guide/.+-- For more information about desired capacity, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/WhatIsAutoScaling.html What Is Auto Scaling?> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.SetDesiredCapacity     (     -- * Creating a Request@@ -43,7 +43,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'setDesiredCapacity' smart constructor.+-- | Contains the parameters for SetDesiredCapacity.+--+-- /See:/ 'setDesiredCapacity' smart constructor. data SetDesiredCapacity = SetDesiredCapacity'     { _sdcHonorCooldown        :: !(Maybe Bool)     , _sdcAutoScalingGroupName :: !Text

@@ -20,7 +20,7 @@ -- -- Sets the health status of the specified instance. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.SetInstanceHealth     (     -- * Creating a Request@@ -43,7 +43,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'setInstanceHealth' smart constructor.+-- | Contains the parameters for SetInstanceHealth.+--+-- /See:/ 'setInstanceHealth' smart constructor. data SetInstanceHealth = SetInstanceHealth'     { _sihShouldRespectGracePeriod :: !(Maybe Bool)     , _sihInstanceId               :: !Text

@@ -20,7 +20,7 @@ -- -- Updates the instance protection settings of the specified instances. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingBehavior.InstanceTermination.html#instance-protection Instance Protection> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingBehavior.InstanceTermination.html#instance-protection Instance Protection> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.SetInstanceProtection     (     -- * Creating a Request@@ -45,7 +45,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'setInstanceProtection' smart constructor.+-- | Contains the parameters for SetInstanceProtection.+--+-- /See:/ 'setInstanceProtection' smart constructor. data SetInstanceProtection = SetInstanceProtection'     { _sipInstanceIds          :: ![Text]     , _sipAutoScalingGroupName :: !Text@@ -114,7 +116,9 @@                "AutoScalingGroupName" =: _sipAutoScalingGroupName,                "ProtectedFromScaleIn" =: _sipProtectedFromScaleIn] --- | /See:/ 'setInstanceProtectionResponse' smart constructor.+-- | Contains the output of SetInstanceProtection.+--+-- /See:/ 'setInstanceProtectionResponse' smart constructor. newtype SetInstanceProtectionResponse = SetInstanceProtectionResponse'     { _siprsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -24,7 +24,7 @@ -- -- To resume processes that have been suspended, use < ResumeProcesses>. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SuspendResume.html Suspending and Resuming Auto Scaling Processes> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SuspendResume.html Suspending and Resuming Auto Scaling Processes> in the /Auto Scaling User Guide/. module Network.AWS.AutoScaling.SuspendProcesses     (     -- * Creating a Request@@ -46,7 +46,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'suspendProcesses' smart constructor.+-- | Contains the parameters for SuspendProcesses and ResumeProcesses.+--+-- /See:/ 'suspendProcesses' smart constructor. data SuspendProcesses = SuspendProcesses'     { _spScalingProcesses     :: !(Maybe [Text])     , _spAutoScalingGroupName :: !Text@@ -68,7 +70,7 @@     , _spAutoScalingGroupName = pAutoScalingGroupName_     } --- | One or more of the following processes:+-- | One or more of the following processes. If you omit this parameter, all processes are specified. -- -- -   'Launch' --

@@ -45,7 +45,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'terminateInstanceInAutoScalingGroup' smart constructor.+-- | Contains the parameters for TerminateInstanceInAutoScalingGroup.+--+-- /See:/ 'terminateInstanceInAutoScalingGroup' smart constructor. data TerminateInstanceInAutoScalingGroup = TerminateInstanceInAutoScalingGroup'     { _tiiasgInstanceId                     :: !Text     , _tiiasgShouldDecrementDesiredCapacity :: !Bool@@ -112,7 +114,9 @@                "ShouldDecrementDesiredCapacity" =:                  _tiiasgShouldDecrementDesiredCapacity] --- | /See:/ 'terminateInstanceInAutoScalingGroupResponse' smart constructor.+-- | Contains the output of TerminateInstancesInAutoScalingGroup.+--+-- /See:/ 'terminateInstanceInAutoScalingGroupResponse' smart constructor. data TerminateInstanceInAutoScalingGroupResponse = TerminateInstanceInAutoScalingGroupResponse'     { _tiiasgrsActivity       :: !(Maybe Activity)     , _tiiasgrsResponseStatus :: !Int

@@ -62,6 +62,7 @@     , asgHealthCheckGracePeriod     , asgNewInstancesProtectedFromScaleIn     , asgVPCZoneIdentifier+    , asgTargetGroupARNs     , asgEnabledMetrics     , asgLaunchConfigurationName     , asgInstances@@ -177,6 +178,12 @@     , lbsState     , lbsLoadBalancerName +    -- * LoadBalancerTargetGroupState+    , LoadBalancerTargetGroupState+    , loadBalancerTargetGroupState+    , lbtgsState+    , lbtgsLoadBalancerTargetGroupARN+     -- * MetricCollectionType     , MetricCollectionType     , metricCollectionType@@ -316,7 +323,7 @@ _LimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededFault = _ServiceError . hasStatus 400 . hasCode "LimitExceeded" --- | The Auto Scaling group or launch configuration can\'t be deleted because it is in use.+-- | The operation can\'t be performed because the resource is in use. _ResourceInUseFault :: AsError a => Getting (First ServiceError) a ServiceError _ResourceInUseFault = _ServiceError . hasStatus 400 . hasCode "ResourceInUse" @@ -324,7 +331,7 @@ _InvalidNextToken :: AsError a => Getting (First ServiceError) a ServiceError _InvalidNextToken = _ServiceError . hasStatus 400 . hasCode "InvalidNextToken" --- | The Auto Scaling group can\'t be deleted because there are scaling activities in progress.+-- | The operation can\'t be performed because there are scaling activities in progress. _ScalingActivityInProgressFault :: AsError a => Getting (First ServiceError) a ServiceError _ScalingActivityInProgressFault =     _ServiceError . hasStatus 400 . hasCode "ScalingActivityInProgress"

@@ -140,7 +140,7 @@  -- | Describes a policy adjustment type. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/as-scale-based-on-demand.html Dynamic Scaling> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/as-scale-based-on-demand.html Dynamic Scaling> in the /Auto Scaling User Guide/. -- -- /See:/ 'adjustmentType' smart constructor. newtype AdjustmentType = AdjustmentType'@@ -220,6 +220,7 @@     , _asgHealthCheckGracePeriod           :: !(Maybe Int)     , _asgNewInstancesProtectedFromScaleIn :: !(Maybe Bool)     , _asgVPCZoneIdentifier                :: !(Maybe Text)+    , _asgTargetGroupARNs                  :: !(Maybe [Text])     , _asgEnabledMetrics                   :: !(Maybe [EnabledMetric])     , _asgLaunchConfigurationName          :: !(Maybe Text)     , _asgInstances                        :: !(Maybe [Instance])@@ -252,6 +253,8 @@ -- -- * 'asgVPCZoneIdentifier' --+-- * 'asgTargetGroupARNs'+-- -- * 'asgEnabledMetrics' -- -- * 'asgLaunchConfigurationName'@@ -300,6 +303,7 @@     , _asgHealthCheckGracePeriod = Nothing     , _asgNewInstancesProtectedFromScaleIn = Nothing     , _asgVPCZoneIdentifier = Nothing+    , _asgTargetGroupARNs = Nothing     , _asgEnabledMetrics = Nothing     , _asgLaunchConfigurationName = Nothing     , _asgInstances = Nothing@@ -340,6 +344,10 @@ asgVPCZoneIdentifier :: Lens' AutoScalingGroup (Maybe Text) asgVPCZoneIdentifier = lens _asgVPCZoneIdentifier (\ s a -> s{_asgVPCZoneIdentifier = a}); +-- | The Amazon Resource Names (ARN) of the target groups for your load balancer.+asgTargetGroupARNs :: Lens' AutoScalingGroup [Text]+asgTargetGroupARNs = lens _asgTargetGroupARNs (\ s a -> s{_asgTargetGroupARNs = a}) . _Default . _Coerce;+ -- | The metrics enabled for the group. asgEnabledMetrics :: Lens' AutoScalingGroup [EnabledMetric] asgEnabledMetrics = lens _asgEnabledMetrics (\ s a -> s{_asgEnabledMetrics = a}) . _Default . _Coerce;@@ -414,6 +422,9 @@                 <*> (x .@? "NewInstancesProtectedFromScaleIn")                 <*> (x .@? "VPCZoneIdentifier")                 <*>+                (x .@? "TargetGroupARNs" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*>                 (x .@? "EnabledMetrics" .!@ mempty >>=                    may (parseXMLList "member"))                 <*> (x .@? "LaunchConfigurationName")@@ -511,11 +522,11 @@ asidAvailabilityZone :: Lens' AutoScalingInstanceDetails Text asidAvailabilityZone = lens _asidAvailabilityZone (\ s a -> s{_asidAvailabilityZone = a}); --- | The lifecycle state for the instance. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling Developer Guide/.+-- | The lifecycle state for the instance. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling User Guide/. asidLifecycleState :: Lens' AutoScalingInstanceDetails Text asidLifecycleState = lens _asidLifecycleState (\ s a -> s{_asidLifecycleState = a}); --- | The health status of this instance. \"Healthy\" means that the instance is healthy and should remain in service. \"Unhealthy\" means that the instance is unhealthy and Auto Scaling should terminate and replace it.+-- | The last reported health status of this instance. \"Healthy\" means that the instance is healthy and should remain in service. \"Unhealthy\" means that the instance is unhealthy and Auto Scaling should terminate and replace it. asidHealthStatus :: Lens' AutoScalingInstanceDetails Text asidHealthStatus = lens _asidHealthStatus (\ s a -> s{_asidHealthStatus = a}); @@ -862,7 +873,7 @@ iLifecycleState :: Lens' Instance LifecycleState iLifecycleState = lens _iLifecycleState (\ s a -> s{_iLifecycleState = a}); --- | The health status of the instance. \"Healthy\" means that the instance is healthy and should remain in service. \"Unhealthy\" means that the instance is unhealthy and Auto Scaling should terminate and replace it.+-- | The last reported health status of the instance. \"Healthy\" means that the instance is healthy and should remain in service. \"Unhealthy\" means that the instance is unhealthy and Auto Scaling should terminate and replace it. iHealthStatus :: Lens' Instance Text iHealthStatus = lens _iHealthStatus (\ s a -> s{_iHealthStatus = a}); @@ -1026,7 +1037,7 @@ lcSpotPrice :: Lens' LaunchConfiguration (Maybe Text) lcSpotPrice = lens _lcSpotPrice (\ s a -> s{_lcSpotPrice = a}); --- | Controls whether instances in this group are launched with detailed monitoring.+-- | Controls whether instances in this group are launched with detailed ('true') or basic ('false') monitoring. lcInstanceMonitoring :: Lens' LaunchConfiguration (Maybe InstanceMonitoring) lcInstanceMonitoring = lens _lcInstanceMonitoring (\ s a -> s{_lcInstanceMonitoring = a}); @@ -1125,9 +1136,10 @@ -- | 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: -- -- -   Pause the instance after it launches, but before it is put into service+-- -- -   Pause the instance as it terminates, but before it is fully terminated ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling User Guide/. -- -- /See:/ 'lifecycleHook' smart constructor. data LifecycleHook = LifecycleHook'@@ -1205,12 +1217,19 @@ -- | The ARN of the notification target that Auto Scaling uses to notify you when an instance is in the transition state for the lifecycle hook. This ARN target can be either an SQS queue or an SNS topic. The notification message sent to the target includes the following: -- -- -   Lifecycle action token+-- -- -   User account ID+-- -- -   Name of the Auto Scaling group+-- -- -   Lifecycle hook name+-- -- -   EC2 instance ID+-- -- -   Lifecycle transition+-- -- -   Notification metadata+-- lhNotificationTargetARN :: Lens' LifecycleHook (Maybe Text) lhNotificationTargetARN = lens _lhNotificationTargetARN (\ s a -> s{_lhNotificationTargetARN = a}); @@ -1239,8 +1258,12 @@  instance NFData LifecycleHook --- | Describes the state of a load balancer.+-- | Describes the state of a Classic load balancer. --+-- If you specify a load balancer when creating the Auto Scaling group, the state of the load balancer is 'InService'.+--+-- If you attach a load balancer to an existing Auto Scaling group, the initial state is 'Adding'. The state transitions to 'Added' after all instances in the group are registered with the load balancer. If ELB health checks are enabled for the load balancer, the state transitions to 'InService' after at least one instance in the group passes the health check. If EC2 health checks are enabled instead, the load balancer remains in the 'Added' state.+-- -- /See:/ 'loadBalancerState' smart constructor. data LoadBalancerState = LoadBalancerState'     { _lbsState            :: !(Maybe Text)@@ -1270,8 +1293,10 @@ -- -- -   'InService' - At least one instance in the group passed an ELB health check. ----- -   'Removing' - The instances are being deregistered from the load balancer. If connection draining is enabled, Elastic Load Balancing waits for in-flight requests to complete before deregistering the instances.+-- -   'Removing' - The instances in the group are being deregistered from the load balancer. If connection draining is enabled, Elastic Load Balancing waits for in-flight requests to complete before deregistering the instances. --+-- -   'Removed' - All instances in the group are deregistered from the load balancer.+-- lbsState :: Lens' LoadBalancerState (Maybe Text) lbsState = lens _lbsState (\ s a -> s{_lbsState = a}); @@ -1288,6 +1313,60 @@  instance NFData LoadBalancerState +-- | Describes the state of a target group.+--+-- If you attach a target group to an existing Auto Scaling group, the initial state is 'Adding'. The state transitions to 'Added' after all Auto Scaling instances are registered with the target group. If ELB health checks are enabled, the state transitions to 'InService' after at least one Auto Scaling instance passes the health check. If EC2 health checks are enabled instead, the target group remains in the 'Added' state.+--+-- /See:/ 'loadBalancerTargetGroupState' smart constructor.+data LoadBalancerTargetGroupState = LoadBalancerTargetGroupState'+    { _lbtgsState                      :: !(Maybe Text)+    , _lbtgsLoadBalancerTargetGroupARN :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'LoadBalancerTargetGroupState' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lbtgsState'+--+-- * 'lbtgsLoadBalancerTargetGroupARN'+loadBalancerTargetGroupState+    :: LoadBalancerTargetGroupState+loadBalancerTargetGroupState =+    LoadBalancerTargetGroupState'+    { _lbtgsState = Nothing+    , _lbtgsLoadBalancerTargetGroupARN = Nothing+    }++-- | The state of the target group.+--+-- -   'Adding' - The Auto Scaling instances are being registered with the target group.+--+-- -   'Added' - All Auto Scaling instances are registered with the target group.+--+-- -   'InService' - At least one Auto Scaling instance passed an ELB health check.+--+-- -   'Removing' - The Auto Scaling instances are being deregistered from the target group. If connection draining is enabled, Elastic Load Balancing waits for in-flight requests to complete before deregistering the instances.+--+-- -   'Removed' - All Auto Scaling instances are deregistered from the target group.+--+lbtgsState :: Lens' LoadBalancerTargetGroupState (Maybe Text)+lbtgsState = lens _lbtgsState (\ s a -> s{_lbtgsState = a});++-- | The Amazon Resource Name (ARN) of the target group.+lbtgsLoadBalancerTargetGroupARN :: Lens' LoadBalancerTargetGroupState (Maybe Text)+lbtgsLoadBalancerTargetGroupARN = lens _lbtgsLoadBalancerTargetGroupARN (\ s a -> s{_lbtgsLoadBalancerTargetGroupARN = a});++instance FromXML LoadBalancerTargetGroupState where+        parseXML x+          = LoadBalancerTargetGroupState' <$>+              (x .@? "State") <*>+                (x .@? "LoadBalancerTargetGroupARN")++instance Hashable LoadBalancerTargetGroupState++instance NFData LoadBalancerTargetGroupState+ -- | Describes a metric. -- -- /See:/ 'metricCollectionType' smart constructor.@@ -1429,7 +1508,7 @@  -- | Describes a process type. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SuspendResume.html#process-types Auto Scaling Processes> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SuspendResume.html#process-types Auto Scaling Processes> in the /Auto Scaling User Guide/. -- -- /See:/ 'processType' smart constructor. newtype ProcessType = ProcessType'@@ -1621,7 +1700,9 @@  instance NFData ScalingPolicy --- | /See:/ 'scalingProcessQuery' smart constructor.+-- | Contains the parameters for SuspendProcesses and ResumeProcesses.+--+-- /See:/ 'scalingProcessQuery' smart constructor. data ScalingProcessQuery = ScalingProcessQuery'     { _spqScalingProcesses     :: !(Maybe [Text])     , _spqAutoScalingGroupName :: !Text@@ -1643,7 +1724,7 @@     , _spqAutoScalingGroupName = pAutoScalingGroupName_     } --- | One or more of the following processes:+-- | One or more of the following processes. If you omit this parameter, all processes are specified. -- -- -   'Launch' --

@@ -51,7 +51,7 @@         "terminating:proceed" -> pure TerminatingProceed         "terminating:wait" -> pure TerminatingWait         e -> fromTextError $ "Failure parsing LifecycleState from value: '" <> e-           <> "'. Accepted values: Detached, Detaching, EnteringStandby, InService, Pending, Pending:Proceed, Pending:Wait, Quarantined, Standby, Terminated, Terminating, Terminating:Proceed, Terminating:Wait"+           <> "'. Accepted values: detached, detaching, enteringstandby, inservice, pending, pending:proceed, pending:wait, quarantined, standby, terminated, terminating, terminating:proceed, terminating:wait"  instance ToText LifecycleState where     toText = \case@@ -108,7 +108,7 @@         "waitingforspotinstanceid" -> pure WaitingForSpotInstanceId         "waitingforspotinstancerequestid" -> pure WaitingForSpotInstanceRequestId         e -> fromTextError $ "Failure parsing ScalingActivityStatusCode from value: '" <> e-           <> "'. Accepted values: Cancelled, Failed, InProgress, MidLifecycleAction, PendingSpotBidPlacement, PreInService, Successful, WaitingForELBConnectionDraining, WaitingForInstanceId, WaitingForInstanceWarmup, WaitingForSpotInstanceId, WaitingForSpotInstanceRequestId"+           <> "'. Accepted values: cancelled, failed, inprogress, midlifecycleaction, pendingspotbidplacement, preinservice, successful, waitingforelbconnectiondraining, waitingforinstanceid, waitingforinstancewarmup, waitingforspotinstanceid, waitingforspotinstancerequestid"  instance ToText ScalingActivityStatusCode where     toText = \case

@@ -64,7 +64,9 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'updateAutoScalingGroup' smart constructor.+-- | Contains the parameters for UpdateAutoScalingGroup.+--+-- /See:/ 'updateAutoScalingGroup' smart constructor. data UpdateAutoScalingGroup = UpdateAutoScalingGroup'     { _uasgTerminationPolicies              :: !(Maybe [Text])     , _uasgHealthCheckGracePeriod           :: !(Maybe Int)@@ -132,13 +134,13 @@  -- | A standalone termination policy or a list of termination policies used to select the instance to terminate. The policies are executed in the order that they are listed. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingBehavior.InstanceTermination.html Controlling Which Instances Auto Scaling Terminates During Scale In> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingBehavior.InstanceTermination.html Controlling Which Instances Auto Scaling Terminates During Scale In> in the /Auto Scaling User Guide/. uasgTerminationPolicies :: Lens' UpdateAutoScalingGroup [Text] uasgTerminationPolicies = lens _uasgTerminationPolicies (\ s a -> s{_uasgTerminationPolicies = a}) . _Default . _Coerce; --- | The amount of time, in seconds, that Auto Scaling waits before checking the health status of an EC2 instance that has come into service. The default is 300.+-- | The amount of time, in seconds, that Auto Scaling waits before checking the health status of an EC2 instance that has come into service. The default is 0. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/. uasgHealthCheckGracePeriod :: Lens' UpdateAutoScalingGroup (Maybe Int) uasgHealthCheckGracePeriod = lens _uasgHealthCheckGracePeriod (\ s a -> s{_uasgHealthCheckGracePeriod = a}); @@ -150,13 +152,13 @@ -- -- When you specify 'VPCZoneIdentifier' with 'AvailabilityZones', ensure that the subnets\' Availability Zones match the values you specify for 'AvailabilityZones'. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling User Guide/. uasgVPCZoneIdentifier :: Lens' UpdateAutoScalingGroup (Maybe Text) uasgVPCZoneIdentifier = lens _uasgVPCZoneIdentifier (\ s a -> s{_uasgVPCZoneIdentifier = a});  -- | The amount of time, in seconds, after a scaling activity completes before another scaling activity can start. The default is 300. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling Developer Guide/.+-- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/. uasgDefaultCooldown :: Lens' UpdateAutoScalingGroup (Maybe Int) uasgDefaultCooldown = lens _uasgDefaultCooldown (\ s a -> s{_uasgDefaultCooldown = a}); 

@@ -46,6 +46,9 @@ --         , requestPutScalingPolicy $ --             putScalingPolicy --+--         , requestAttachLoadBalancerTargetGroups $+--             attachLoadBalancerTargetGroups+-- --         , requestDeleteLaunchConfiguration $ --             deleteLaunchConfiguration --@@ -85,6 +88,9 @@ --         , requestDeleteTags $ --             deleteTags --+--         , requestDetachLoadBalancerTargetGroups $+--             detachLoadBalancerTargetGroups+-- --         , requestDescribeLifecycleHooks $ --             describeLifecycleHooks --@@ -145,6 +151,9 @@ --         , requestTerminateInstanceInAutoScalingGroup $ --             terminateInstanceInAutoScalingGroup --+--         , requestDescribeLoadBalancerTargetGroups $+--             describeLoadBalancerTargetGroups+-- --         , requestPutScheduledUpdateGroupAction $ --             putScheduledUpdateGroupAction --@@ -196,6 +205,9 @@ --         , responsePutScalingPolicy $ --             putScalingPolicyResponse --+--         , responseAttachLoadBalancerTargetGroups $+--             attachLoadBalancerTargetGroupsResponse+-- --         , responseDeleteLaunchConfiguration $ --             deleteLaunchConfigurationResponse --@@ -235,6 +247,9 @@ --         , responseDeleteTags $ --             deleteTagsResponse --+--         , responseDetachLoadBalancerTargetGroups $+--             detachLoadBalancerTargetGroupsResponse+-- --         , responseDescribeLifecycleHooks $ --             describeLifecycleHooksResponse --@@ -295,6 +310,9 @@ --         , responseTerminateInstanceInAutoScalingGroup $ --             terminateInstanceInAutoScalingGroupResponse --+--         , responseDescribeLoadBalancerTargetGroups $+--             describeLoadBalancerTargetGroupsResponse+-- --         , responsePutScheduledUpdateGroupAction $ --             putScheduledUpdateGroupActionResponse --@@ -360,6 +378,11 @@     "PutScalingPolicy"     "fixture/PutScalingPolicy.yaml" +requestAttachLoadBalancerTargetGroups :: AttachLoadBalancerTargetGroups -> TestTree+requestAttachLoadBalancerTargetGroups = req+    "AttachLoadBalancerTargetGroups"+    "fixture/AttachLoadBalancerTargetGroups.yaml"+ requestDeleteLaunchConfiguration :: DeleteLaunchConfiguration -> TestTree requestDeleteLaunchConfiguration = req     "DeleteLaunchConfiguration"@@ -425,6 +448,11 @@     "DeleteTags"     "fixture/DeleteTags.yaml" +requestDetachLoadBalancerTargetGroups :: DetachLoadBalancerTargetGroups -> TestTree+requestDetachLoadBalancerTargetGroups = req+    "DetachLoadBalancerTargetGroups"+    "fixture/DetachLoadBalancerTargetGroups.yaml"+ requestDescribeLifecycleHooks :: DescribeLifecycleHooks -> TestTree requestDescribeLifecycleHooks = req     "DescribeLifecycleHooks"@@ -525,6 +553,11 @@     "TerminateInstanceInAutoScalingGroup"     "fixture/TerminateInstanceInAutoScalingGroup.yaml" +requestDescribeLoadBalancerTargetGroups :: DescribeLoadBalancerTargetGroups -> TestTree+requestDescribeLoadBalancerTargetGroups = req+    "DescribeLoadBalancerTargetGroups"+    "fixture/DescribeLoadBalancerTargetGroups.yaml"+ requestPutScheduledUpdateGroupAction :: PutScheduledUpdateGroupAction -> TestTree requestPutScheduledUpdateGroupAction = req     "PutScheduledUpdateGroupAction"@@ -619,6 +652,13 @@     autoScaling     (Proxy :: Proxy PutScalingPolicy) +responseAttachLoadBalancerTargetGroups :: AttachLoadBalancerTargetGroupsResponse -> TestTree+responseAttachLoadBalancerTargetGroups = res+    "AttachLoadBalancerTargetGroupsResponse"+    "fixture/AttachLoadBalancerTargetGroupsResponse.proto"+    autoScaling+    (Proxy :: Proxy AttachLoadBalancerTargetGroups)+ responseDeleteLaunchConfiguration :: DeleteLaunchConfigurationResponse -> TestTree responseDeleteLaunchConfiguration = res     "DeleteLaunchConfigurationResponse"@@ -710,6 +750,13 @@     autoScaling     (Proxy :: Proxy DeleteTags) +responseDetachLoadBalancerTargetGroups :: DetachLoadBalancerTargetGroupsResponse -> TestTree+responseDetachLoadBalancerTargetGroups = res+    "DetachLoadBalancerTargetGroupsResponse"+    "fixture/DetachLoadBalancerTargetGroupsResponse.proto"+    autoScaling+    (Proxy :: Proxy DetachLoadBalancerTargetGroups)+ responseDescribeLifecycleHooks :: DescribeLifecycleHooksResponse -> TestTree responseDescribeLifecycleHooks = res     "DescribeLifecycleHooksResponse"@@ -849,6 +896,13 @@     "fixture/TerminateInstanceInAutoScalingGroupResponse.proto"     autoScaling     (Proxy :: Proxy TerminateInstanceInAutoScalingGroup)++responseDescribeLoadBalancerTargetGroups :: DescribeLoadBalancerTargetGroupsResponse -> TestTree+responseDescribeLoadBalancerTargetGroups = res+    "DescribeLoadBalancerTargetGroupsResponse"+    "fixture/DescribeLoadBalancerTargetGroupsResponse.proto"+    autoScaling+    (Proxy :: Proxy DescribeLoadBalancerTargetGroups)  responsePutScheduledUpdateGroupAction :: PutScheduledUpdateGroupActionResponse -> TestTree responsePutScheduledUpdateGroupAction = res