amazonka-autoscaling 1.5.0 → 1.6.0

raw patch · 63 files changed

+1265/−1089 lines, 63 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

+ Network.AWS.AutoScaling: _ServiceLinkedRoleFailure :: AsError a => Getting (First ServiceError) a ServiceError

+ Network.AWS.AutoScaling: asgLaunchTemplate :: Lens' AutoScalingGroup (Maybe LaunchTemplateSpecification)

+ Network.AWS.AutoScaling: asgServiceLinkedRoleARN :: Lens' AutoScalingGroup (Maybe Text)

+ Network.AWS.AutoScaling: asidLaunchTemplate :: Lens' AutoScalingInstanceDetails (Maybe LaunchTemplateSpecification)

+ Network.AWS.AutoScaling: data LaunchTemplateSpecification

+ Network.AWS.AutoScaling: iLaunchTemplate :: Lens' Instance (Maybe LaunchTemplateSpecification)

+ Network.AWS.AutoScaling: launchTemplateSpecification :: LaunchTemplateSpecification

+ Network.AWS.AutoScaling: ltsLaunchTemplateId :: Lens' LaunchTemplateSpecification (Maybe Text)

+ Network.AWS.AutoScaling: ltsLaunchTemplateName :: Lens' LaunchTemplateSpecification (Maybe Text)

+ Network.AWS.AutoScaling: ltsVersion :: Lens' LaunchTemplateSpecification (Maybe Text)

+ Network.AWS.AutoScaling.CreateAutoScalingGroup: casgLaunchTemplate :: Lens' CreateAutoScalingGroup (Maybe LaunchTemplateSpecification)

+ Network.AWS.AutoScaling.CreateAutoScalingGroup: casgServiceLinkedRoleARN :: Lens' CreateAutoScalingGroup (Maybe Text)

+ Network.AWS.AutoScaling.Types: _ServiceLinkedRoleFailure :: AsError a => Getting (First ServiceError) a ServiceError

+ Network.AWS.AutoScaling.Types: asgLaunchTemplate :: Lens' AutoScalingGroup (Maybe LaunchTemplateSpecification)

+ Network.AWS.AutoScaling.Types: asgServiceLinkedRoleARN :: Lens' AutoScalingGroup (Maybe Text)

+ Network.AWS.AutoScaling.Types: asidLaunchTemplate :: Lens' AutoScalingInstanceDetails (Maybe LaunchTemplateSpecification)

+ Network.AWS.AutoScaling.Types: data LaunchTemplateSpecification

+ Network.AWS.AutoScaling.Types: iLaunchTemplate :: Lens' Instance (Maybe LaunchTemplateSpecification)

+ Network.AWS.AutoScaling.Types: launchTemplateSpecification :: LaunchTemplateSpecification

+ Network.AWS.AutoScaling.Types: ltsLaunchTemplateId :: Lens' LaunchTemplateSpecification (Maybe Text)

+ Network.AWS.AutoScaling.Types: ltsLaunchTemplateName :: Lens' LaunchTemplateSpecification (Maybe Text)

+ Network.AWS.AutoScaling.Types: ltsVersion :: Lens' LaunchTemplateSpecification (Maybe Text)

+ Network.AWS.AutoScaling.UpdateAutoScalingGroup: uasgLaunchTemplate :: Lens' UpdateAutoScalingGroup (Maybe LaunchTemplateSpecification)

+ Network.AWS.AutoScaling.UpdateAutoScalingGroup: uasgServiceLinkedRoleARN :: Lens' UpdateAutoScalingGroup (Maybe Text)

- Network.AWS.AutoScaling: lhsLifecycleTransition :: Lens' LifecycleHookSpecification (Maybe Text)

+ Network.AWS.AutoScaling: lhsLifecycleTransition :: Lens' LifecycleHookSpecification Text

- Network.AWS.AutoScaling: lifecycleHookSpecification :: Text -> LifecycleHookSpecification

+ Network.AWS.AutoScaling: lifecycleHookSpecification :: Text -> Text -> LifecycleHookSpecification

- Network.AWS.AutoScaling.Types: lhsLifecycleTransition :: Lens' LifecycleHookSpecification (Maybe Text)

+ Network.AWS.AutoScaling.Types: lhsLifecycleTransition :: Lens' LifecycleHookSpecification Text

- Network.AWS.AutoScaling.Types: lifecycleHookSpecification :: Text -> LifecycleHookSpecification

+ Network.AWS.AutoScaling.Types: lifecycleHookSpecification :: Text -> Text -> LifecycleHookSpecification

Files

README.md +1/−1
amazonka-autoscaling.cabal +5/−5
gen/Network/AWS/AutoScaling.hs +18/−4
gen/Network/AWS/AutoScaling/AttachInstances.hs +8/−8
gen/Network/AWS/AutoScaling/AttachLoadBalancerTargetGroups.hs +10/−10
gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs +11/−11
gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs +15/−15
gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs +65/−45
gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs +41/−41
gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs +2/−2
gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs +8/−8
gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs +3/−3
gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs +9/−9
gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs +6/−4
gen/Network/AWS/AutoScaling/DeletePolicy.hs +4/−4
gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs +6/−6
gen/Network/AWS/AutoScaling/DeleteTags.hs +2/−2
gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs +13/−13
gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs +4/−4
gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs +17/−17
gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs +17/−17
gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs +6/−6
gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs +15/−15
gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs +6/−6
gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs +11/−11
gen/Network/AWS/AutoScaling/DescribeLoadBalancerTargetGroups.hs +17/−17
gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs +19/−19
gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs +8/−8
gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs +17/−17
gen/Network/AWS/AutoScaling/DescribePolicies.hs +23/−23
gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs +21/−21
gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs +4/−4
gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs +23/−23
gen/Network/AWS/AutoScaling/DescribeTags.hs +12/−12
gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs +6/−6
gen/Network/AWS/AutoScaling/DetachInstances.hs +17/−17
gen/Network/AWS/AutoScaling/DetachLoadBalancerTargetGroups.hs +10/−10
gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs +9/−9
gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs +6/−6
gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs +10/−10
gen/Network/AWS/AutoScaling/EnterStandby.hs +15/−15
gen/Network/AWS/AutoScaling/ExecutePolicy.hs +16/−16
gen/Network/AWS/AutoScaling/ExitStandby.hs +9/−9
gen/Network/AWS/AutoScaling/PutLifecycleHook.hs +21/−21
gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs +8/−8
gen/Network/AWS/AutoScaling/PutScalingPolicy.hs +35/−35
gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs +22/−22
gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs +14/−14
gen/Network/AWS/AutoScaling/ResumeProcesses.hs +8/−8
gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs +10/−10
gen/Network/AWS/AutoScaling/SetInstanceHealth.hs +8/−8
gen/Network/AWS/AutoScaling/SetInstanceProtection.hs +11/−11
gen/Network/AWS/AutoScaling/SuspendProcesses.hs +8/−8
gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs +11/−11
gen/Network/AWS/AutoScaling/Types.hs +39/−17
gen/Network/AWS/AutoScaling/Types/Product.hs +457/−359
gen/Network/AWS/AutoScaling/Types/Sum.hs +1/−1
gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs +62/−42
gen/Network/AWS/AutoScaling/Waiters.hs +1/−1
test/Main.hs +1/−1
test/Test/AWS/AutoScaling.hs +1/−1
test/Test/AWS/AutoScaling/Internal.hs +1/−1
test/Test/AWS/Gen/AutoScaling.hs +1/−1

README.md view

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

amazonka-autoscaling.cabal view

@@ -1,5 +1,5 @@ name:                  amazonka-autoscaling-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Auto Scaling SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -105,7 +105,7 @@         , Network.AWS.AutoScaling.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-autoscaling-test@@ -125,8 +125,8 @@         , Test.AWS.AutoScaling.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-autoscaling         , base         , bytestring

gen/Network/AWS/AutoScaling.hs view

@@ -5,15 +5,15 @@  -- | -- Module      : Network.AWS.AutoScaling--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- __Auto Scaling__+-- __Amazon EC2 Auto Scaling__ ----- Auto Scaling is designed to automatically launch or terminate EC2 instances based on user-defined policies, schedules, and health checks. Use this service in conjunction with the Amazon CloudWatch and Elastic Load Balancing services.+-- Amazon EC2 Auto Scaling is designed to automatically launch or terminate EC2 instances based on user-defined policies, schedules, and health checks. Use this service in conjunction with the AWS Auto Scaling, Amazon CloudWatch, and Elastic Load Balancing services. -- module Network.AWS.AutoScaling     (@@ -41,6 +41,9 @@     -- ** ResourceContentionFault     , _ResourceContentionFault +    -- ** ServiceLinkedRoleFailure+    , _ServiceLinkedRoleFailure+     -- * Waiters     -- $waiters @@ -248,12 +251,14 @@     , asgStatus     , asgTerminationPolicies     , asgHealthCheckGracePeriod+    , asgServiceLinkedRoleARN     , asgNewInstancesProtectedFromScaleIn     , asgVPCZoneIdentifier     , asgTargetGroupARNs     , asgEnabledMetrics     , asgLaunchConfigurationName     , asgInstances+    , asgLaunchTemplate     , asgAutoScalingGroupARN     , asgPlacementGroup     , asgSuspendedProcesses@@ -272,6 +277,7 @@     , AutoScalingInstanceDetails     , autoScalingInstanceDetails     , asidLaunchConfigurationName+    , asidLaunchTemplate     , asidInstanceId     , asidAutoScalingGroupName     , asidAvailabilityZone@@ -322,6 +328,7 @@     , Instance     , instance'     , iLaunchConfigurationName+    , iLaunchTemplate     , iInstanceId     , iAvailabilityZone     , iLifecycleState@@ -356,6 +363,13 @@     , lcInstanceType     , lcCreatedTime +    -- ** LaunchTemplateSpecification+    , LaunchTemplateSpecification+    , launchTemplateSpecification+    , ltsLaunchTemplateName+    , ltsLaunchTemplateId+    , ltsVersion+     -- ** LifecycleHook     , LifecycleHook     , lifecycleHook@@ -376,9 +390,9 @@     , lhsHeartbeatTimeout     , lhsNotificationMetadata     , lhsNotificationTargetARN-    , lhsLifecycleTransition     , lhsRoleARN     , lhsLifecycleHookName+    , lhsLifecycleTransition      -- ** LoadBalancerState     , LoadBalancerState

gen/Network/AWS/AutoScaling/AttachInstances.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.AttachInstances--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -59,24 +59,24 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aiInstanceIds' - One or more instance IDs.+-- * 'aiInstanceIds' - The IDs of the instances. You can specify up to 20 instances. ----- * 'aiAutoScalingGroupName' - The name of the group.+-- * 'aiAutoScalingGroupName' - The name of the Auto Scaling group. attachInstances     :: Text -- ^ 'aiAutoScalingGroupName'     -> AttachInstances attachInstances pAutoScalingGroupName_ =   AttachInstances'-  {_aiInstanceIds = Nothing, _aiAutoScalingGroupName = pAutoScalingGroupName_}+    {_aiInstanceIds = Nothing, _aiAutoScalingGroupName = pAutoScalingGroupName_}  --- | One or more instance IDs.+-- | The IDs of the instances. You can specify up to 20 instances. aiInstanceIds :: Lens' AttachInstances [Text]-aiInstanceIds = lens _aiInstanceIds (\ s a -> s{_aiInstanceIds = a}) . _Default . _Coerce;+aiInstanceIds = lens _aiInstanceIds (\ s a -> s{_aiInstanceIds = a}) . _Default . _Coerce --- | The name of the group.+-- | The name of the Auto Scaling group. aiAutoScalingGroupName :: Lens' AttachInstances Text-aiAutoScalingGroupName = lens _aiAutoScalingGroupName (\ s a -> s{_aiAutoScalingGroupName = a});+aiAutoScalingGroupName = lens _aiAutoScalingGroupName (\ s a -> s{_aiAutoScalingGroupName = a})  instance AWSRequest AttachInstances where         type Rs AttachInstances = AttachInstancesResponse

gen/Network/AWS/AutoScaling/AttachLoadBalancerTargetGroups.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.AttachLoadBalancerTargetGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,24 +61,24 @@ -- -- * 'albtgAutoScalingGroupName' - The name of the Auto Scaling group. ----- * 'albtgTargetGroupARNs' - The Amazon Resource Names (ARN) of the target groups.+-- * 'albtgTargetGroupARNs' - The Amazon Resource Names (ARN) of the target groups. You can specify up to 10 target groups. attachLoadBalancerTargetGroups     :: Text -- ^ 'albtgAutoScalingGroupName'     -> AttachLoadBalancerTargetGroups attachLoadBalancerTargetGroups pAutoScalingGroupName_ =   AttachLoadBalancerTargetGroups'-  { _albtgAutoScalingGroupName = pAutoScalingGroupName_-  , _albtgTargetGroupARNs = mempty-  }+    { _albtgAutoScalingGroupName = pAutoScalingGroupName_+    , _albtgTargetGroupARNs = mempty+    }   -- | The name of the Auto Scaling group. albtgAutoScalingGroupName :: Lens' AttachLoadBalancerTargetGroups Text-albtgAutoScalingGroupName = lens _albtgAutoScalingGroupName (\ s a -> s{_albtgAutoScalingGroupName = a});+albtgAutoScalingGroupName = lens _albtgAutoScalingGroupName (\ s a -> s{_albtgAutoScalingGroupName = a}) --- | The Amazon Resource Names (ARN) of the target groups.+-- | The Amazon Resource Names (ARN) of the target groups. You can specify up to 10 target groups. albtgTargetGroupARNs :: Lens' AttachLoadBalancerTargetGroups [Text]-albtgTargetGroupARNs = lens _albtgTargetGroupARNs (\ s a -> s{_albtgTargetGroupARNs = a}) . _Coerce;+albtgTargetGroupARNs = lens _albtgTargetGroupARNs (\ s a -> s{_albtgTargetGroupARNs = a}) . _Coerce  instance AWSRequest AttachLoadBalancerTargetGroups          where@@ -130,12 +130,12 @@     -> AttachLoadBalancerTargetGroupsResponse attachLoadBalancerTargetGroupsResponse pResponseStatus_ =   AttachLoadBalancerTargetGroupsResponse'-  {_albtgrsResponseStatus = pResponseStatus_}+    {_albtgrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. albtgrsResponseStatus :: Lens' AttachLoadBalancerTargetGroupsResponse Int-albtgrsResponseStatus = lens _albtgrsResponseStatus (\ s a -> s{_albtgrsResponseStatus = a});+albtgrsResponseStatus = lens _albtgrsResponseStatus (\ s a -> s{_albtgrsResponseStatus = a})  instance NFData            AttachLoadBalancerTargetGroupsResponse

gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.AttachLoadBalancers--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,26 +61,26 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'albAutoScalingGroupName' - The name of the group.+-- * 'albAutoScalingGroupName' - The name of the Auto Scaling group. ----- * 'albLoadBalancerNames' - One or more load balancer names.+-- * 'albLoadBalancerNames' - The names of the load balancers. You can specify up to 10 load balancers. attachLoadBalancers     :: Text -- ^ 'albAutoScalingGroupName'     -> AttachLoadBalancers attachLoadBalancers pAutoScalingGroupName_ =   AttachLoadBalancers'-  { _albAutoScalingGroupName = pAutoScalingGroupName_-  , _albLoadBalancerNames = mempty-  }+    { _albAutoScalingGroupName = pAutoScalingGroupName_+    , _albLoadBalancerNames = mempty+    }  --- | The name of the group.+-- | The name of the Auto Scaling group. albAutoScalingGroupName :: Lens' AttachLoadBalancers Text-albAutoScalingGroupName = lens _albAutoScalingGroupName (\ s a -> s{_albAutoScalingGroupName = a});+albAutoScalingGroupName = lens _albAutoScalingGroupName (\ s a -> s{_albAutoScalingGroupName = a}) --- | One or more load balancer names.+-- | The names of the load balancers. You can specify up to 10 load balancers. albLoadBalancerNames :: Lens' AttachLoadBalancers [Text]-albLoadBalancerNames = lens _albLoadBalancerNames (\ s a -> s{_albLoadBalancerNames = a}) . _Coerce;+albLoadBalancerNames = lens _albLoadBalancerNames (\ s a -> s{_albLoadBalancerNames = a}) . _Coerce  instance AWSRequest AttachLoadBalancers where         type Rs AttachLoadBalancers =@@ -130,6 +130,6 @@  -- | -- | The response status code. albrsResponseStatus :: Lens' AttachLoadBalancersResponse Int-albrsResponseStatus = lens _albrsResponseStatus (\ s a -> s{_albrsResponseStatus = a});+albrsResponseStatus = lens _albrsResponseStatus (\ s a -> s{_albrsResponseStatus = a})  instance NFData AttachLoadBalancersResponse where

gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.CompleteLifecycleAction--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -83,7 +83,7 @@ -- -- * 'claLifecycleHookName' - The name of the lifecycle hook. ----- * 'claAutoScalingGroupName' - The name of the group for the lifecycle hook.+-- * 'claAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'claLifecycleActionResult' - The action for the group to take. This parameter can be either @CONTINUE@ or @ABANDON@ . completeLifecycleAction@@ -93,33 +93,33 @@     -> CompleteLifecycleAction completeLifecycleAction pLifecycleHookName_ pAutoScalingGroupName_ pLifecycleActionResult_ =   CompleteLifecycleAction'-  { _claInstanceId = Nothing-  , _claLifecycleActionToken = Nothing-  , _claLifecycleHookName = pLifecycleHookName_-  , _claAutoScalingGroupName = pAutoScalingGroupName_-  , _claLifecycleActionResult = pLifecycleActionResult_-  }+    { _claInstanceId = Nothing+    , _claLifecycleActionToken = Nothing+    , _claLifecycleHookName = pLifecycleHookName_+    , _claAutoScalingGroupName = pAutoScalingGroupName_+    , _claLifecycleActionResult = pLifecycleActionResult_+    }   -- | The ID of the instance. claInstanceId :: Lens' CompleteLifecycleAction (Maybe Text)-claInstanceId = lens _claInstanceId (\ s a -> s{_claInstanceId = a});+claInstanceId = lens _claInstanceId (\ s a -> s{_claInstanceId = a})  -- | A universally unique identifier (UUID) that identifies a specific lifecycle action associated with an instance. Auto Scaling sends this token to the notification target you specified when you created the lifecycle hook. claLifecycleActionToken :: Lens' CompleteLifecycleAction (Maybe Text)-claLifecycleActionToken = lens _claLifecycleActionToken (\ s a -> s{_claLifecycleActionToken = a});+claLifecycleActionToken = lens _claLifecycleActionToken (\ s a -> s{_claLifecycleActionToken = a})  -- | The name of the lifecycle hook. claLifecycleHookName :: Lens' CompleteLifecycleAction Text-claLifecycleHookName = lens _claLifecycleHookName (\ s a -> s{_claLifecycleHookName = a});+claLifecycleHookName = lens _claLifecycleHookName (\ s a -> s{_claLifecycleHookName = a}) --- | The name of the group for the lifecycle hook.+-- | The name of the Auto Scaling group. claAutoScalingGroupName :: Lens' CompleteLifecycleAction Text-claAutoScalingGroupName = lens _claAutoScalingGroupName (\ s a -> s{_claAutoScalingGroupName = a});+claAutoScalingGroupName = lens _claAutoScalingGroupName (\ s a -> s{_claAutoScalingGroupName = a})  -- | The action for the group to take. This parameter can be either @CONTINUE@ or @ABANDON@ . claLifecycleActionResult :: Lens' CompleteLifecycleAction Text-claLifecycleActionResult = lens _claLifecycleActionResult (\ s a -> s{_claLifecycleActionResult = a});+claLifecycleActionResult = lens _claLifecycleActionResult (\ s a -> s{_claLifecycleActionResult = a})  instance AWSRequest CompleteLifecycleAction where         type Rs CompleteLifecycleAction =@@ -173,6 +173,6 @@  -- | -- | The response status code. clarsResponseStatus :: Lens' CompleteLifecycleActionResponse Int-clarsResponseStatus = lens _clarsResponseStatus (\ s a -> s{_clarsResponseStatus = a});+clarsResponseStatus = lens _clarsResponseStatus (\ s a -> s{_clarsResponseStatus = a})  instance NFData CompleteLifecycleActionResponse where

gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.CreateAutoScalingGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Creates an Auto Scaling group with the specified name and attributes. -- ----- 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' .+-- If you exceed your maximum limit of Auto Scaling groups, the call fails. For information about viewing this limit, see 'DescribeAccountLimits' . For information about updating this limit, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/as-account-limits.html Auto Scaling Limits> in the /Auto Scaling User Guide/ . -- -- For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/AutoScalingGroup.html Auto Scaling Groups> in the /Auto Scaling User Guide/ . --@@ -34,6 +34,7 @@     , casgInstanceId     , casgTerminationPolicies     , casgHealthCheckGracePeriod+    , casgServiceLinkedRoleARN     , casgNewInstancesProtectedFromScaleIn     , casgVPCZoneIdentifier     , casgTargetGroupARNs@@ -43,6 +44,7 @@     , casgLaunchConfigurationName     , casgLifecycleHookSpecificationList     , casgHealthCheckType+    , casgLaunchTemplate     , casgPlacementGroup     , casgLoadBalancerNames     , casgTags@@ -67,6 +69,7 @@   { _casgInstanceId :: !(Maybe Text)   , _casgTerminationPolicies :: !(Maybe [Text])   , _casgHealthCheckGracePeriod :: !(Maybe Int)+  , _casgServiceLinkedRoleARN :: !(Maybe Text)   , _casgNewInstancesProtectedFromScaleIn :: !(Maybe Bool)   , _casgVPCZoneIdentifier :: !(Maybe Text)   , _casgTargetGroupARNs :: !(Maybe [Text])@@ -76,6 +79,7 @@   , _casgLaunchConfigurationName :: !(Maybe Text)   , _casgLifecycleHookSpecificationList :: !(Maybe [LifecycleHookSpecification])   , _casgHealthCheckType :: !(Maybe Text)+  , _casgLaunchTemplate :: !(Maybe LaunchTemplateSpecification)   , _casgPlacementGroup :: !(Maybe Text)   , _casgLoadBalancerNames :: !(Maybe [Text])   , _casgTags :: !(Maybe [Tag])@@ -89,12 +93,14 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'casgInstanceId' - The ID of the instance used to create a launch configuration for the group. Alternatively, specify a launch configuration instead of an EC2 instance. 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/userguide/create-asg-from-instance.html Create an Auto Scaling Group Using an EC2 Instance> in the /Auto Scaling User Guide/ .+-- * 'casgInstanceId' - The ID of the instance used to create a launch configuration for the group. You must specify one of the following: an EC2 instance, a launch configuration, or a launch template. 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/userguide/create-asg-from-instance.html Create an Auto Scaling Group Using an EC2 Instance> in the /Auto Scaling User Guide/ . -- -- * 'casgTerminationPolicies' - 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/userguide/as-instance-termination.html Controlling Which Instances Auto Scaling Terminates During Scale In> in the /Auto Scaling User Guide/ . -- -- * 'casgHealthCheckGracePeriod' - 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/userguide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/ . --+-- * 'casgServiceLinkedRoleARN' - The Amazon Resource Name (ARN) of the service-linked role that the Auto Scaling group uses to call other AWS services on your behalf. By default, Auto Scaling uses a service-linked role named AWSServiceRoleForAutoScaling, which it creates if it does not exist.+-- -- * 'casgNewInstancesProtectedFromScaleIn' - Indicates whether newly launched instances are protected from termination by Auto Scaling when scaling in. -- -- * 'casgVPCZoneIdentifier' - A comma-separated list of subnet identifiers for your virtual private cloud (VPC). 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/userguide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling User Guide/ .@@ -107,19 +113,21 @@ -- -- * 'casgDesiredCapacity' - The number of EC2 instances that should be running in the group. This number must be greater than or equal to the minimum size of the group and less than or equal to the maximum size of the group. If you do not specify a desired capacity, the default is the minimum size of the group. ----- * 'casgLaunchConfigurationName' - The name of the launch configuration. Alternatively, specify an EC2 instance instead of a launch configuration.+-- * 'casgLaunchConfigurationName' - The name of the launch configuration. You must specify one of the following: a launch configuration, a launch template, or an EC2 instance. -- -- * 'casgLifecycleHookSpecificationList' - One or more lifecycle hooks. -- -- * 'casgHealthCheckType' - 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/userguide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/ . --+-- * 'casgLaunchTemplate' - The launch template to use to launch instances. You must specify one of the following: a launch template, a launch configuration, or an EC2 instance.+-- -- * 'casgPlacementGroup' - The name of the placement group into which you'll launch your instances, if any. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement Groups> in the /Amazon Elastic Compute Cloud User Guide/ . -- -- * 'casgLoadBalancerNames' - 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/userguide/create-asg-from-instance.html Using a Load Balancer With an Auto Scaling Group> in the /Auto Scaling User Guide/ . -- -- * 'casgTags' - One or more tags. For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/autoscaling-tagging.html Tagging Auto Scaling Groups and Instances> in the /Auto Scaling User Guide/ . ----- * 'casgAutoScalingGroupName' - The name of the group. This name must be unique within the scope of your AWS account.+-- * 'casgAutoScalingGroupName' - The name of the Auto Scaling group. This name must be unique within the scope of your AWS account. -- -- * 'casgMinSize' - The minimum size of the group. --@@ -131,98 +139,108 @@     -> CreateAutoScalingGroup createAutoScalingGroup pAutoScalingGroupName_ pMinSize_ pMaxSize_ =   CreateAutoScalingGroup'-  { _casgInstanceId = Nothing-  , _casgTerminationPolicies = Nothing-  , _casgHealthCheckGracePeriod = Nothing-  , _casgNewInstancesProtectedFromScaleIn = Nothing-  , _casgVPCZoneIdentifier = Nothing-  , _casgTargetGroupARNs = Nothing-  , _casgDefaultCooldown = Nothing-  , _casgAvailabilityZones = Nothing-  , _casgDesiredCapacity = Nothing-  , _casgLaunchConfigurationName = Nothing-  , _casgLifecycleHookSpecificationList = Nothing-  , _casgHealthCheckType = Nothing-  , _casgPlacementGroup = Nothing-  , _casgLoadBalancerNames = Nothing-  , _casgTags = Nothing-  , _casgAutoScalingGroupName = pAutoScalingGroupName_-  , _casgMinSize = pMinSize_-  , _casgMaxSize = pMaxSize_-  }+    { _casgInstanceId = Nothing+    , _casgTerminationPolicies = Nothing+    , _casgHealthCheckGracePeriod = Nothing+    , _casgServiceLinkedRoleARN = Nothing+    , _casgNewInstancesProtectedFromScaleIn = Nothing+    , _casgVPCZoneIdentifier = Nothing+    , _casgTargetGroupARNs = Nothing+    , _casgDefaultCooldown = Nothing+    , _casgAvailabilityZones = Nothing+    , _casgDesiredCapacity = Nothing+    , _casgLaunchConfigurationName = Nothing+    , _casgLifecycleHookSpecificationList = Nothing+    , _casgHealthCheckType = Nothing+    , _casgLaunchTemplate = Nothing+    , _casgPlacementGroup = Nothing+    , _casgLoadBalancerNames = Nothing+    , _casgTags = Nothing+    , _casgAutoScalingGroupName = pAutoScalingGroupName_+    , _casgMinSize = pMinSize_+    , _casgMaxSize = pMaxSize_+    }  --- | The ID of the instance used to create a launch configuration for the group. Alternatively, specify a launch configuration instead of an EC2 instance. 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/userguide/create-asg-from-instance.html Create an Auto Scaling Group Using an EC2 Instance> in the /Auto Scaling User Guide/ .+-- | The ID of the instance used to create a launch configuration for the group. You must specify one of the following: an EC2 instance, a launch configuration, or a launch template. 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/userguide/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});+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/userguide/as-instance-termination.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;+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 0. This parameter is required if you are adding an @ELB@ health check. For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/ . casgHealthCheckGracePeriod :: Lens' CreateAutoScalingGroup (Maybe Int)-casgHealthCheckGracePeriod = lens _casgHealthCheckGracePeriod (\ s a -> s{_casgHealthCheckGracePeriod = a});+casgHealthCheckGracePeriod = lens _casgHealthCheckGracePeriod (\ s a -> s{_casgHealthCheckGracePeriod = a}) +-- | The Amazon Resource Name (ARN) of the service-linked role that the Auto Scaling group uses to call other AWS services on your behalf. By default, Auto Scaling uses a service-linked role named AWSServiceRoleForAutoScaling, which it creates if it does not exist.+casgServiceLinkedRoleARN :: Lens' CreateAutoScalingGroup (Maybe Text)+casgServiceLinkedRoleARN = lens _casgServiceLinkedRoleARN (\ s a -> s{_casgServiceLinkedRoleARN = a})+ -- | Indicates whether newly launched instances are protected from termination by Auto Scaling when scaling in. casgNewInstancesProtectedFromScaleIn :: Lens' CreateAutoScalingGroup (Maybe Bool)-casgNewInstancesProtectedFromScaleIn = lens _casgNewInstancesProtectedFromScaleIn (\ s a -> s{_casgNewInstancesProtectedFromScaleIn = a});+casgNewInstancesProtectedFromScaleIn = lens _casgNewInstancesProtectedFromScaleIn (\ s a -> s{_casgNewInstancesProtectedFromScaleIn = a})  -- | A comma-separated list of subnet identifiers for your virtual private cloud (VPC). 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/userguide/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});+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;+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/userguide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/ . casgDefaultCooldown :: Lens' CreateAutoScalingGroup (Maybe Int)-casgDefaultCooldown = lens _casgDefaultCooldown (\ s a -> s{_casgDefaultCooldown = a});+casgDefaultCooldown = lens _casgDefaultCooldown (\ s a -> s{_casgDefaultCooldown = a})  -- | One or more Availability Zones for the group. This parameter is optional if you specify one or more subnets. casgAvailabilityZones :: Lens' CreateAutoScalingGroup (Maybe (NonEmpty Text))-casgAvailabilityZones = lens _casgAvailabilityZones (\ s a -> s{_casgAvailabilityZones = a}) . mapping _List1;+casgAvailabilityZones = lens _casgAvailabilityZones (\ s a -> s{_casgAvailabilityZones = a}) . mapping _List1  -- | The number of EC2 instances that should be running in the group. This number must be greater than or equal to the minimum size of the group and less than or equal to the maximum size of the group. If you do not specify a desired capacity, the default is the minimum size of the group. casgDesiredCapacity :: Lens' CreateAutoScalingGroup (Maybe Int)-casgDesiredCapacity = lens _casgDesiredCapacity (\ s a -> s{_casgDesiredCapacity = a});+casgDesiredCapacity = lens _casgDesiredCapacity (\ s a -> s{_casgDesiredCapacity = a}) --- | The name of the launch configuration. Alternatively, specify an EC2 instance instead of a launch configuration.+-- | The name of the launch configuration. You must specify one of the following: a launch configuration, a launch template, or an EC2 instance. casgLaunchConfigurationName :: Lens' CreateAutoScalingGroup (Maybe Text)-casgLaunchConfigurationName = lens _casgLaunchConfigurationName (\ s a -> s{_casgLaunchConfigurationName = a});+casgLaunchConfigurationName = lens _casgLaunchConfigurationName (\ s a -> s{_casgLaunchConfigurationName = a})  -- | One or more lifecycle hooks. casgLifecycleHookSpecificationList :: Lens' CreateAutoScalingGroup [LifecycleHookSpecification]-casgLifecycleHookSpecificationList = lens _casgLifecycleHookSpecificationList (\ s a -> s{_casgLifecycleHookSpecificationList = a}) . _Default . _Coerce;+casgLifecycleHookSpecificationList = lens _casgLifecycleHookSpecificationList (\ s a -> s{_casgLifecycleHookSpecificationList = a}) . _Default . _Coerce  -- | 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/userguide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/ . casgHealthCheckType :: Lens' CreateAutoScalingGroup (Maybe Text)-casgHealthCheckType = lens _casgHealthCheckType (\ s a -> s{_casgHealthCheckType = a});+casgHealthCheckType = lens _casgHealthCheckType (\ s a -> s{_casgHealthCheckType = a}) +-- | The launch template to use to launch instances. You must specify one of the following: a launch template, a launch configuration, or an EC2 instance.+casgLaunchTemplate :: Lens' CreateAutoScalingGroup (Maybe LaunchTemplateSpecification)+casgLaunchTemplate = lens _casgLaunchTemplate (\ s a -> s{_casgLaunchTemplate = a})+ -- | The name of the placement group into which you'll launch your instances, if any. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement Groups> in the /Amazon Elastic Compute Cloud User Guide/ . casgPlacementGroup :: Lens' CreateAutoScalingGroup (Maybe Text)-casgPlacementGroup = lens _casgPlacementGroup (\ s a -> s{_casgPlacementGroup = a});+casgPlacementGroup = lens _casgPlacementGroup (\ s a -> s{_casgPlacementGroup = a})  -- | 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/userguide/create-asg-from-instance.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;+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/userguide/autoscaling-tagging.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;+casgTags = lens _casgTags (\ s a -> s{_casgTags = a}) . _Default . _Coerce --- | The name of the group. This name must be unique within the scope of your AWS account.+-- | The name of the Auto Scaling group. This name must be unique within the scope of your AWS account. casgAutoScalingGroupName :: Lens' CreateAutoScalingGroup Text-casgAutoScalingGroupName = lens _casgAutoScalingGroupName (\ s a -> s{_casgAutoScalingGroupName = a});+casgAutoScalingGroupName = lens _casgAutoScalingGroupName (\ s a -> s{_casgAutoScalingGroupName = a})  -- | The minimum size of the group. casgMinSize :: Lens' CreateAutoScalingGroup Int-casgMinSize = lens _casgMinSize (\ s a -> s{_casgMinSize = a});+casgMinSize = lens _casgMinSize (\ s a -> s{_casgMinSize = a})  -- | The maximum size of the group. casgMaxSize :: Lens' CreateAutoScalingGroup Int-casgMaxSize = lens _casgMaxSize (\ s a -> s{_casgMaxSize = a});+casgMaxSize = lens _casgMaxSize (\ s a -> s{_casgMaxSize = a})  instance AWSRequest CreateAutoScalingGroup where         type Rs CreateAutoScalingGroup =@@ -253,6 +271,7 @@                    (toQueryList "member" <$> _casgTerminationPolicies),                "HealthCheckGracePeriod" =:                  _casgHealthCheckGracePeriod,+               "ServiceLinkedRoleARN" =: _casgServiceLinkedRoleARN,                "NewInstancesProtectedFromScaleIn" =:                  _casgNewInstancesProtectedFromScaleIn,                "VPCZoneIdentifier" =: _casgVPCZoneIdentifier,@@ -271,6 +290,7 @@                    (toQueryList "member" <$>                       _casgLifecycleHookSpecificationList),                "HealthCheckType" =: _casgHealthCheckType,+               "LaunchTemplate" =: _casgLaunchTemplate,                "PlacementGroup" =: _casgPlacementGroup,                "LoadBalancerNames" =:                  toQuery

gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.CreateLaunchConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Creates a launch configuration. -- ----- 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' .+-- If you exceed your maximum limit of launch configurations, the call fails. For information about viewing this limit, see 'DescribeAccountLimits' . For information about updating this limit, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/as-account-limits.html Auto Scaling Limits> in the /Auto Scaling User Guide/ . -- -- For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/LaunchConfiguration.html Launch Configurations> in the /Auto Scaling User Guide/ . --@@ -91,7 +91,7 @@ -- -- * 'clcInstanceId' - The ID of the instance to use to create the launch configuration. The new launch configuration derives attributes from the instance, with the exception of the block device mapping. If you do not specify @InstanceId@ , you must specify both @ImageId@ and @InstanceType@ . 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/userguide/create-lc-with-instanceID.html Create a Launch Configuration Using an EC2 Instance> in the /Auto Scaling User Guide/ . ----- * 'clcAssociatePublicIPAddress' - 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/userguide/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. Default: If the instance is launched into a default subnet, the default is @true@ . If the instance is launched into a nondefault subnet, the default is @false@ . For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> in the /Amazon Elastic Compute Cloud User Guide/ .+-- * 'clcAssociatePublicIPAddress' - 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/userguide/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. Default: If the instance is launched into a default subnet, the default is to assign a public IP address. If the instance is launched into a nondefault subnet, the default is not to assign a public IP address. -- -- * 'clcSecurityGroups' - One or more security groups with which to associate the instances. If your instances are launched in EC2-Classic, you can either specify security group names or the security group IDs. For more information about security groups for EC2-Classic, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-network-security.html Amazon EC2 Security Groups> in the /Amazon Elastic Compute Cloud User Guide/ . If your instances are launched into a VPC, specify security group IDs. For more information, see <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_SecurityGroups.html Security Groups for Your VPC> in the /Amazon Virtual Private Cloud User Guide/ . --@@ -129,98 +129,98 @@     -> CreateLaunchConfiguration createLaunchConfiguration pLaunchConfigurationName_ =   CreateLaunchConfiguration'-  { _clcInstanceId = Nothing-  , _clcAssociatePublicIPAddress = Nothing-  , _clcSecurityGroups = Nothing-  , _clcSpotPrice = Nothing-  , _clcInstanceMonitoring = Nothing-  , _clcKeyName = Nothing-  , _clcClassicLinkVPCSecurityGroups = Nothing-  , _clcRAMDiskId = Nothing-  , _clcKernelId = Nothing-  , _clcInstanceType = Nothing-  , _clcEBSOptimized = Nothing-  , _clcUserData = Nothing-  , _clcClassicLinkVPCId = Nothing-  , _clcIAMInstanceProfile = Nothing-  , _clcImageId = Nothing-  , _clcPlacementTenancy = Nothing-  , _clcBlockDeviceMappings = Nothing-  , _clcLaunchConfigurationName = pLaunchConfigurationName_-  }+    { _clcInstanceId = Nothing+    , _clcAssociatePublicIPAddress = Nothing+    , _clcSecurityGroups = Nothing+    , _clcSpotPrice = Nothing+    , _clcInstanceMonitoring = Nothing+    , _clcKeyName = Nothing+    , _clcClassicLinkVPCSecurityGroups = Nothing+    , _clcRAMDiskId = Nothing+    , _clcKernelId = Nothing+    , _clcInstanceType = Nothing+    , _clcEBSOptimized = Nothing+    , _clcUserData = Nothing+    , _clcClassicLinkVPCId = Nothing+    , _clcIAMInstanceProfile = Nothing+    , _clcImageId = Nothing+    , _clcPlacementTenancy = Nothing+    , _clcBlockDeviceMappings = Nothing+    , _clcLaunchConfigurationName = pLaunchConfigurationName_+    }   -- | The ID of the instance to use to create the launch configuration. The new launch configuration derives attributes from the instance, with the exception of the block device mapping. If you do not specify @InstanceId@ , you must specify both @ImageId@ and @InstanceType@ . 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/userguide/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});+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/userguide/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. Default: If the instance is launched into a default subnet, the default is @true@ . If the instance is launched into a nondefault subnet, the default is @false@ . For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> in the /Amazon Elastic Compute Cloud User 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/userguide/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. Default: If the instance is launched into a default subnet, the default is to assign a public IP address. If the instance is launched into a nondefault subnet, the default is not to assign a public IP address. clcAssociatePublicIPAddress :: Lens' CreateLaunchConfiguration (Maybe Bool)-clcAssociatePublicIPAddress = lens _clcAssociatePublicIPAddress (\ s a -> s{_clcAssociatePublicIPAddress = a});+clcAssociatePublicIPAddress = lens _clcAssociatePublicIPAddress (\ s a -> s{_clcAssociatePublicIPAddress = a})  -- | One or more security groups with which to associate the instances. If your instances are launched in EC2-Classic, you can either specify security group names or the security group IDs. For more information about security groups for EC2-Classic, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-network-security.html Amazon EC2 Security Groups> in the /Amazon Elastic Compute Cloud User Guide/ . If your instances are launched into a VPC, specify security group IDs. For more information, see <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_SecurityGroups.html Security Groups for Your VPC> in the /Amazon Virtual Private Cloud User Guide/ . clcSecurityGroups :: Lens' CreateLaunchConfiguration [Text]-clcSecurityGroups = lens _clcSecurityGroups (\ s a -> s{_clcSecurityGroups = a}) . _Default . _Coerce;+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/userguide/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});+clcSpotPrice = lens _clcSpotPrice (\ s a -> s{_clcSpotPrice = a})  -- | Enables detailed monitoring (@true@ ) or basic monitoring (@false@ ) for the Auto Scaling instances. The default is @true@ . clcInstanceMonitoring :: Lens' CreateLaunchConfiguration (Maybe InstanceMonitoring)-clcInstanceMonitoring = lens _clcInstanceMonitoring (\ s a -> s{_clcInstanceMonitoring = a});+clcInstanceMonitoring = lens _clcInstanceMonitoring (\ s a -> s{_clcInstanceMonitoring = a})  -- | The name of the key pair. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-key-pairs.html Amazon EC2 Key Pairs> in the /Amazon Elastic Compute Cloud User Guide/ . clcKeyName :: Lens' CreateLaunchConfiguration (Maybe Text)-clcKeyName = lens _clcKeyName (\ s a -> s{_clcKeyName = a});+clcKeyName = lens _clcKeyName (\ s a -> s{_clcKeyName = a})  -- | The IDs of one or more security groups for the specified ClassicLink-enabled VPC. This parameter is required if you specify a ClassicLink-enabled VPC, and is not supported otherwise. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> in the /Amazon Elastic Compute Cloud User Guide/ . clcClassicLinkVPCSecurityGroups :: Lens' CreateLaunchConfiguration [Text]-clcClassicLinkVPCSecurityGroups = lens _clcClassicLinkVPCSecurityGroups (\ s a -> s{_clcClassicLinkVPCSecurityGroups = a}) . _Default . _Coerce;+clcClassicLinkVPCSecurityGroups = lens _clcClassicLinkVPCSecurityGroups (\ s a -> s{_clcClassicLinkVPCSecurityGroups = a}) . _Default . _Coerce  -- | The ID of the RAM disk associated with the AMI. clcRAMDiskId :: Lens' CreateLaunchConfiguration (Maybe Text)-clcRAMDiskId = lens _clcRAMDiskId (\ s a -> s{_clcRAMDiskId = a});+clcRAMDiskId = lens _clcRAMDiskId (\ s a -> s{_clcRAMDiskId = a})  -- | The ID of the kernel associated with the AMI. clcKernelId :: Lens' CreateLaunchConfiguration (Maybe Text)-clcKernelId = lens _clcKernelId (\ s a -> s{_clcKernelId = a});+clcKernelId = lens _clcKernelId (\ s a -> s{_clcKernelId = a})  -- | The instance type of the EC2 instance. If you do not specify @InstanceId@ , you must specify @InstanceType@ . For information about available instance types, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html#AvailableInstanceTypes Available Instance Types> in the /Amazon Elastic Compute Cloud User Guide./ clcInstanceType :: Lens' CreateLaunchConfiguration (Maybe Text)-clcInstanceType = lens _clcInstanceType (\ s a -> s{_clcInstanceType = a});+clcInstanceType = lens _clcInstanceType (\ s a -> s{_clcInstanceType = a})  -- | Indicates whether the instance is optimized for Amazon EBS I/O. By default, the instance is not optimized for EBS I/O. The optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal I/O performance. This optimization is not available with all instance types. Additional usage charges apply. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSOptimized.html Amazon EBS-Optimized Instances> in the /Amazon Elastic Compute Cloud User Guide/ . clcEBSOptimized :: Lens' CreateLaunchConfiguration (Maybe Bool)-clcEBSOptimized = lens _clcEBSOptimized (\ s a -> s{_clcEBSOptimized = a});+clcEBSOptimized = lens _clcEBSOptimized (\ s a -> s{_clcEBSOptimized = a})  -- | The user data to make available to the launched EC2 instances. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-instance-metadata.html Instance Metadata and User Data> in the /Amazon Elastic Compute Cloud User Guide/ . clcUserData :: Lens' CreateLaunchConfiguration (Maybe Text)-clcUserData = lens _clcUserData (\ s a -> s{_clcUserData = a});+clcUserData = lens _clcUserData (\ s a -> s{_clcUserData = a})  -- | The ID of a ClassicLink-enabled VPC to link your EC2-Classic instances to. This parameter is supported only if you are launching EC2-Classic instances. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> in the /Amazon Elastic Compute Cloud User Guide/ . clcClassicLinkVPCId :: Lens' CreateLaunchConfiguration (Maybe Text)-clcClassicLinkVPCId = lens _clcClassicLinkVPCId (\ s a -> s{_clcClassicLinkVPCId = a});+clcClassicLinkVPCId = lens _clcClassicLinkVPCId (\ s a -> s{_clcClassicLinkVPCId = a})  -- | 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/userguide/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});+clcIAMInstanceProfile = lens _clcIAMInstanceProfile (\ s a -> s{_clcIAMInstanceProfile = a})  -- | The ID of the Amazon Machine Image (AMI) to use to launch your EC2 instances. If you do not specify @InstanceId@ , you must specify @ImageId@ . For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/finding-an-ami.html Finding an AMI> in the /Amazon Elastic Compute Cloud User Guide/ . clcImageId :: Lens' CreateLaunchConfiguration (Maybe Text)-clcImageId = lens _clcImageId (\ s a -> s{_clcImageId = a});+clcImageId = lens _clcImageId (\ s a -> s{_clcImageId = a})  -- | The tenancy of the instance. An instance with a tenancy of @dedicated@ runs on single-tenant hardware and can only be launched into a VPC. You must set the value of this parameter to @dedicated@ if want to launch Dedicated Instances into a shared tenancy VPC (VPC with instance placement tenancy attribute set to @default@ ). 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/userguide/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)-clcPlacementTenancy = lens _clcPlacementTenancy (\ s a -> s{_clcPlacementTenancy = a});+clcPlacementTenancy = lens _clcPlacementTenancy (\ s a -> s{_clcPlacementTenancy = a})  -- | One or more mappings that specify how block devices are exposed to the instance. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/block-device-mapping-concepts.html Block Device Mapping> in the /Amazon Elastic Compute Cloud User Guide/ . clcBlockDeviceMappings :: Lens' CreateLaunchConfiguration [BlockDeviceMapping]-clcBlockDeviceMappings = lens _clcBlockDeviceMappings (\ s a -> s{_clcBlockDeviceMappings = a}) . _Default . _Coerce;+clcBlockDeviceMappings = lens _clcBlockDeviceMappings (\ s a -> s{_clcBlockDeviceMappings = a}) . _Default . _Coerce  -- | The name of the launch configuration. This name must be unique within the scope of your AWS account. clcLaunchConfigurationName :: Lens' CreateLaunchConfiguration Text-clcLaunchConfigurationName = lens _clcLaunchConfigurationName (\ s a -> s{_clcLaunchConfigurationName = a});+clcLaunchConfigurationName = lens _clcLaunchConfigurationName (\ s a -> s{_clcLaunchConfigurationName = a})  instance AWSRequest CreateLaunchConfiguration where         type Rs CreateLaunchConfiguration =

gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.CreateOrUpdateTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | One or more tags. coutTags :: Lens' CreateOrUpdateTags [Tag]-coutTags = lens _coutTags (\ s a -> s{_coutTags = a}) . _Coerce;+coutTags = lens _coutTags (\ s a -> s{_coutTags = a}) . _Coerce  instance AWSRequest CreateOrUpdateTags where         type Rs CreateOrUpdateTags =

gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DeleteAutoScalingGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,24 +63,24 @@ -- -- * 'dasgForceDelete' - Specifies that the group will be deleted along with all instances associated with the group, without waiting for all instances to be terminated. This parameter also deletes any lifecycle actions associated with the group. ----- * 'dasgAutoScalingGroupName' - The name of the group to delete.+-- * 'dasgAutoScalingGroupName' - The name of the Auto Scaling group. deleteAutoScalingGroup     :: Text -- ^ 'dasgAutoScalingGroupName'     -> DeleteAutoScalingGroup deleteAutoScalingGroup pAutoScalingGroupName_ =   DeleteAutoScalingGroup'-  { _dasgForceDelete = Nothing-  , _dasgAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _dasgForceDelete = Nothing+    , _dasgAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | Specifies that the group will be deleted along with all instances associated with the group, without waiting for all instances to be terminated. This parameter also deletes any lifecycle actions associated with the group. dasgForceDelete :: Lens' DeleteAutoScalingGroup (Maybe Bool)-dasgForceDelete = lens _dasgForceDelete (\ s a -> s{_dasgForceDelete = a});+dasgForceDelete = lens _dasgForceDelete (\ s a -> s{_dasgForceDelete = a}) --- | The name of the group to delete.+-- | The name of the Auto Scaling group. dasgAutoScalingGroupName :: Lens' DeleteAutoScalingGroup Text-dasgAutoScalingGroupName = lens _dasgAutoScalingGroupName (\ s a -> s{_dasgAutoScalingGroupName = a});+dasgAutoScalingGroupName = lens _dasgAutoScalingGroupName (\ s a -> s{_dasgAutoScalingGroupName = a})  instance AWSRequest DeleteAutoScalingGroup where         type Rs DeleteAutoScalingGroup =

gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DeleteLaunchConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -59,12 +59,12 @@     -> DeleteLaunchConfiguration deleteLaunchConfiguration pLaunchConfigurationName_ =   DeleteLaunchConfiguration'-  {_dlcLaunchConfigurationName = pLaunchConfigurationName_}+    {_dlcLaunchConfigurationName = pLaunchConfigurationName_}   -- | The name of the launch configuration. dlcLaunchConfigurationName :: Lens' DeleteLaunchConfiguration Text-dlcLaunchConfigurationName = lens _dlcLaunchConfigurationName (\ s a -> s{_dlcLaunchConfigurationName = a});+dlcLaunchConfigurationName = lens _dlcLaunchConfigurationName (\ s a -> s{_dlcLaunchConfigurationName = a})  instance AWSRequest DeleteLaunchConfiguration where         type Rs DeleteLaunchConfiguration =

gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DeleteLifecycleHook--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -59,25 +59,25 @@ -- -- * 'delLifecycleHookName' - The name of the lifecycle hook. ----- * 'delAutoScalingGroupName' - The name of the Auto Scaling group for the lifecycle hook.+-- * 'delAutoScalingGroupName' - The name of the Auto Scaling group. deleteLifecycleHook     :: Text -- ^ 'delLifecycleHookName'     -> Text -- ^ 'delAutoScalingGroupName'     -> DeleteLifecycleHook deleteLifecycleHook pLifecycleHookName_ pAutoScalingGroupName_ =   DeleteLifecycleHook'-  { _delLifecycleHookName = pLifecycleHookName_-  , _delAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _delLifecycleHookName = pLifecycleHookName_+    , _delAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | The name of the lifecycle hook. delLifecycleHookName :: Lens' DeleteLifecycleHook Text-delLifecycleHookName = lens _delLifecycleHookName (\ s a -> s{_delLifecycleHookName = a});+delLifecycleHookName = lens _delLifecycleHookName (\ s a -> s{_delLifecycleHookName = a}) --- | The name of the Auto Scaling group for the lifecycle hook.+-- | The name of the Auto Scaling group. delAutoScalingGroupName :: Lens' DeleteLifecycleHook Text-delAutoScalingGroupName = lens _delAutoScalingGroupName (\ s a -> s{_delAutoScalingGroupName = a});+delAutoScalingGroupName = lens _delAutoScalingGroupName (\ s a -> s{_delAutoScalingGroupName = a})  instance AWSRequest DeleteLifecycleHook where         type Rs DeleteLifecycleHook =@@ -126,6 +126,6 @@  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteLifecycleHookResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteLifecycleHookResponse where

gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DeleteNotificationConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,16 +62,18 @@     -> DeleteNotificationConfiguration deleteNotificationConfiguration pAutoScalingGroupName_ pTopicARN_ =   DeleteNotificationConfiguration'-  {_dncAutoScalingGroupName = pAutoScalingGroupName_, _dncTopicARN = pTopicARN_}+    { _dncAutoScalingGroupName = pAutoScalingGroupName_+    , _dncTopicARN = pTopicARN_+    }   -- | The name of the Auto Scaling group. dncAutoScalingGroupName :: Lens' DeleteNotificationConfiguration Text-dncAutoScalingGroupName = lens _dncAutoScalingGroupName (\ s a -> s{_dncAutoScalingGroupName = a});+dncAutoScalingGroupName = lens _dncAutoScalingGroupName (\ s a -> s{_dncAutoScalingGroupName = a})  -- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) topic. dncTopicARN :: Lens' DeleteNotificationConfiguration Text-dncTopicARN = lens _dncTopicARN (\ s a -> s{_dncTopicARN = a});+dncTopicARN = lens _dncTopicARN (\ s a -> s{_dncTopicARN = a})  instance AWSRequest DeleteNotificationConfiguration          where

gen/Network/AWS/AutoScaling/DeletePolicy.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DeletePolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,16 +63,16 @@     -> DeletePolicy deletePolicy pPolicyName_ =   DeletePolicy'-  {_dpAutoScalingGroupName = Nothing, _dpPolicyName = pPolicyName_}+    {_dpAutoScalingGroupName = Nothing, _dpPolicyName = pPolicyName_}   -- | The name of the Auto Scaling group. dpAutoScalingGroupName :: Lens' DeletePolicy (Maybe Text)-dpAutoScalingGroupName = lens _dpAutoScalingGroupName (\ s a -> s{_dpAutoScalingGroupName = a});+dpAutoScalingGroupName = lens _dpAutoScalingGroupName (\ s a -> s{_dpAutoScalingGroupName = a})  -- | The name or Amazon Resource Name (ARN) of the policy. dpPolicyName :: Lens' DeletePolicy Text-dpPolicyName = lens _dpPolicyName (\ s a -> s{_dpPolicyName = a});+dpPolicyName = lens _dpPolicyName (\ s a -> s{_dpPolicyName = a})  instance AWSRequest DeletePolicy where         type Rs DeletePolicy = DeletePolicyResponse

gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DeleteScheduledAction--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,18 +62,18 @@     -> DeleteScheduledAction deleteScheduledAction pAutoScalingGroupName_ pScheduledActionName_ =   DeleteScheduledAction'-  { _dsaAutoScalingGroupName = pAutoScalingGroupName_-  , _dsaScheduledActionName = pScheduledActionName_-  }+    { _dsaAutoScalingGroupName = pAutoScalingGroupName_+    , _dsaScheduledActionName = pScheduledActionName_+    }   -- | The name of the Auto Scaling group. dsaAutoScalingGroupName :: Lens' DeleteScheduledAction Text-dsaAutoScalingGroupName = lens _dsaAutoScalingGroupName (\ s a -> s{_dsaAutoScalingGroupName = a});+dsaAutoScalingGroupName = lens _dsaAutoScalingGroupName (\ s a -> s{_dsaAutoScalingGroupName = a})  -- | The name of the action to delete. dsaScheduledActionName :: Lens' DeleteScheduledAction Text-dsaScheduledActionName = lens _dsaScheduledActionName (\ s a -> s{_dsaScheduledActionName = a});+dsaScheduledActionName = lens _dsaScheduledActionName (\ s a -> s{_dsaScheduledActionName = a})  instance AWSRequest DeleteScheduledAction where         type Rs DeleteScheduledAction =

gen/Network/AWS/AutoScaling/DeleteTags.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DeleteTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@  -- | One or more tags. dtTags :: Lens' DeleteTags [Tag]-dtTags = lens _dtTags (\ s a -> s{_dtTags = a}) . _Coerce;+dtTags = lens _dtTags (\ s a -> s{_dtTags = a}) . _Coerce  instance AWSRequest DeleteTags where         type Rs DeleteTags = DeleteTagsResponse

gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeAccountLimits--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Describes the current Auto Scaling resource limits for your AWS account. -- ----- For information about requesting an increase in these limits, see <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html AWS Service Limits> in the /Amazon Web Services General Reference/ .+-- For information about requesting an increase in these limits, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/as-account-limits.html Auto Scaling Limits> in the /Auto Scaling User Guide/ . -- module Network.AWS.AutoScaling.DescribeAccountLimits     (@@ -119,32 +119,32 @@     -> DescribeAccountLimitsResponse describeAccountLimitsResponse pResponseStatus_ =   DescribeAccountLimitsResponse'-  { _dalrsNumberOfLaunchConfigurations = Nothing-  , _dalrsNumberOfAutoScalingGroups = Nothing-  , _dalrsMaxNumberOfAutoScalingGroups = Nothing-  , _dalrsMaxNumberOfLaunchConfigurations = Nothing-  , _dalrsResponseStatus = pResponseStatus_-  }+    { _dalrsNumberOfLaunchConfigurations = Nothing+    , _dalrsNumberOfAutoScalingGroups = Nothing+    , _dalrsMaxNumberOfAutoScalingGroups = Nothing+    , _dalrsMaxNumberOfLaunchConfigurations = Nothing+    , _dalrsResponseStatus = pResponseStatus_+    }   -- | The current number of launch configurations for your AWS account. dalrsNumberOfLaunchConfigurations :: Lens' DescribeAccountLimitsResponse (Maybe Int)-dalrsNumberOfLaunchConfigurations = lens _dalrsNumberOfLaunchConfigurations (\ s a -> s{_dalrsNumberOfLaunchConfigurations = a});+dalrsNumberOfLaunchConfigurations = lens _dalrsNumberOfLaunchConfigurations (\ s a -> s{_dalrsNumberOfLaunchConfigurations = a})  -- | The current number of groups for your AWS account. dalrsNumberOfAutoScalingGroups :: Lens' DescribeAccountLimitsResponse (Maybe Int)-dalrsNumberOfAutoScalingGroups = lens _dalrsNumberOfAutoScalingGroups (\ s a -> s{_dalrsNumberOfAutoScalingGroups = a});+dalrsNumberOfAutoScalingGroups = lens _dalrsNumberOfAutoScalingGroups (\ s a -> s{_dalrsNumberOfAutoScalingGroups = a})  -- | The maximum number of groups allowed for your AWS account. The default limit is 20 per region. dalrsMaxNumberOfAutoScalingGroups :: Lens' DescribeAccountLimitsResponse (Maybe Int)-dalrsMaxNumberOfAutoScalingGroups = lens _dalrsMaxNumberOfAutoScalingGroups (\ s a -> s{_dalrsMaxNumberOfAutoScalingGroups = a});+dalrsMaxNumberOfAutoScalingGroups = lens _dalrsMaxNumberOfAutoScalingGroups (\ s a -> s{_dalrsMaxNumberOfAutoScalingGroups = a})  -- | The maximum number of launch configurations allowed for your AWS account. The default limit is 100 per region. dalrsMaxNumberOfLaunchConfigurations :: Lens' DescribeAccountLimitsResponse (Maybe Int)-dalrsMaxNumberOfLaunchConfigurations = lens _dalrsMaxNumberOfLaunchConfigurations (\ s a -> s{_dalrsMaxNumberOfLaunchConfigurations = a});+dalrsMaxNumberOfLaunchConfigurations = lens _dalrsMaxNumberOfLaunchConfigurations (\ s a -> s{_dalrsMaxNumberOfLaunchConfigurations = a})  -- | -- | The response status code. dalrsResponseStatus :: Lens' DescribeAccountLimitsResponse Int-dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a});+dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a})  instance NFData DescribeAccountLimitsResponse where

gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeAdjustmentTypes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -104,15 +104,15 @@     -> DescribeAdjustmentTypesResponse describeAdjustmentTypesResponse pResponseStatus_ =   DescribeAdjustmentTypesResponse'-  {_datrsAdjustmentTypes = Nothing, _datrsResponseStatus = pResponseStatus_}+    {_datrsAdjustmentTypes = Nothing, _datrsResponseStatus = pResponseStatus_}   -- | The policy adjustment types. datrsAdjustmentTypes :: Lens' DescribeAdjustmentTypesResponse [AdjustmentType]-datrsAdjustmentTypes = lens _datrsAdjustmentTypes (\ s a -> s{_datrsAdjustmentTypes = a}) . _Default . _Coerce;+datrsAdjustmentTypes = lens _datrsAdjustmentTypes (\ s a -> s{_datrsAdjustmentTypes = a}) . _Default . _Coerce  -- | -- | The response status code. datrsResponseStatus :: Lens' DescribeAdjustmentTypesResponse Int-datrsResponseStatus = lens _datrsResponseStatus (\ s a -> s{_datrsResponseStatus = a});+datrsResponseStatus = lens _datrsResponseStatus (\ s a -> s{_datrsResponseStatus = a})  instance NFData DescribeAdjustmentTypesResponse where

gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeAutoScalingGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dasgAutoScalingGroupNames' - The group names. If you omit this parameter, all Auto Scaling groups are described.+-- * 'dasgAutoScalingGroupNames' - The names of the Auto Scaling groups. If you omit this parameter, all Auto Scaling groups are described. -- -- * 'dasgNextToken' - The token for the next set of items to return. (You received this token from a previous call.) --@@ -71,23 +71,23 @@     :: DescribeAutoScalingGroups describeAutoScalingGroups =   DescribeAutoScalingGroups'-  { _dasgAutoScalingGroupNames = Nothing-  , _dasgNextToken = Nothing-  , _dasgMaxRecords = Nothing-  }+    { _dasgAutoScalingGroupNames = Nothing+    , _dasgNextToken = Nothing+    , _dasgMaxRecords = Nothing+    }  --- | The group names. If you omit this parameter, all Auto Scaling groups are described.+-- | The names of the Auto Scaling groups. 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;+dasgAutoScalingGroupNames = lens _dasgAutoScalingGroupNames (\ s a -> s{_dasgAutoScalingGroupNames = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dasgNextToken :: Lens' DescribeAutoScalingGroups (Maybe Text)-dasgNextToken = lens _dasgNextToken (\ s a -> s{_dasgNextToken = a});+dasgNextToken = lens _dasgNextToken (\ s a -> s{_dasgNextToken = a})  -- | The maximum number of items to return with this call. The default value is 50 and the maximum value is 100. dasgMaxRecords :: Lens' DescribeAutoScalingGroups (Maybe Int)-dasgMaxRecords = lens _dasgMaxRecords (\ s a -> s{_dasgMaxRecords = a});+dasgMaxRecords = lens _dasgMaxRecords (\ s a -> s{_dasgMaxRecords = a})  instance AWSPager DescribeAutoScalingGroups where         page rq rs@@ -153,23 +153,23 @@     -> DescribeAutoScalingGroupsResponse describeAutoScalingGroupsResponse pResponseStatus_ =   DescribeAutoScalingGroupsResponse'-  { _dasgrsNextToken = Nothing-  , _dasgrsResponseStatus = pResponseStatus_-  , _dasgrsAutoScalingGroups = mempty-  }+    { _dasgrsNextToken = Nothing+    , _dasgrsResponseStatus = pResponseStatus_+    , _dasgrsAutoScalingGroups = mempty+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dasgrsNextToken :: Lens' DescribeAutoScalingGroupsResponse (Maybe Text)-dasgrsNextToken = lens _dasgrsNextToken (\ s a -> s{_dasgrsNextToken = a});+dasgrsNextToken = lens _dasgrsNextToken (\ s a -> s{_dasgrsNextToken = a})  -- | -- | The response status code. dasgrsResponseStatus :: Lens' DescribeAutoScalingGroupsResponse Int-dasgrsResponseStatus = lens _dasgrsResponseStatus (\ s a -> s{_dasgrsResponseStatus = a});+dasgrsResponseStatus = lens _dasgrsResponseStatus (\ s a -> s{_dasgrsResponseStatus = a})  -- | The groups. dasgrsAutoScalingGroups :: Lens' DescribeAutoScalingGroupsResponse [AutoScalingGroup]-dasgrsAutoScalingGroups = lens _dasgrsAutoScalingGroups (\ s a -> s{_dasgrsAutoScalingGroups = a}) . _Coerce;+dasgrsAutoScalingGroups = lens _dasgrsAutoScalingGroups (\ s a -> s{_dasgrsAutoScalingGroups = a}) . _Coerce  instance NFData DescribeAutoScalingGroupsResponse          where

gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeAutoScalingInstances--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,28 +66,28 @@ -- -- * 'dasiInstanceIds' - The instances to describe; up to 50 instance IDs. If you omit this parameter, all Auto Scaling instances are described. If you specify an ID that does not exist, it is ignored with no error. ----- * 'dasiMaxRecords' - The maximum number of items to return with this call. The default value is 50 and the maximum value is 100.+-- * 'dasiMaxRecords' - The maximum number of items to return with this call. The default value is 50 and the maximum value is 50. describeAutoScalingInstances     :: DescribeAutoScalingInstances describeAutoScalingInstances =   DescribeAutoScalingInstances'-  { _dasiNextToken = Nothing-  , _dasiInstanceIds = Nothing-  , _dasiMaxRecords = Nothing-  }+    { _dasiNextToken = Nothing+    , _dasiInstanceIds = Nothing+    , _dasiMaxRecords = Nothing+    }   -- | The token for the next set of items to return. (You received this token from a previous call.) dasiNextToken :: Lens' DescribeAutoScalingInstances (Maybe Text)-dasiNextToken = lens _dasiNextToken (\ s a -> s{_dasiNextToken = a});+dasiNextToken = lens _dasiNextToken (\ s a -> s{_dasiNextToken = a})  -- | The instances to describe; up to 50 instance IDs. If you omit this parameter, all Auto Scaling instances are described. If you specify an ID that does not exist, it is ignored with no error. dasiInstanceIds :: Lens' DescribeAutoScalingInstances [Text]-dasiInstanceIds = lens _dasiInstanceIds (\ s a -> s{_dasiInstanceIds = a}) . _Default . _Coerce;+dasiInstanceIds = lens _dasiInstanceIds (\ s a -> s{_dasiInstanceIds = a}) . _Default . _Coerce --- | The maximum number of items to return with this call. The default value is 50 and the maximum value is 100.+-- | The maximum number of items to return with this call. The default value is 50 and the maximum value is 50. dasiMaxRecords :: Lens' DescribeAutoScalingInstances (Maybe Int)-dasiMaxRecords = lens _dasiMaxRecords (\ s a -> s{_dasiMaxRecords = a});+dasiMaxRecords = lens _dasiMaxRecords (\ s a -> s{_dasiMaxRecords = a})  instance AWSPager DescribeAutoScalingInstances where         page rq rs@@ -154,23 +154,23 @@     -> DescribeAutoScalingInstancesResponse describeAutoScalingInstancesResponse pResponseStatus_ =   DescribeAutoScalingInstancesResponse'-  { _dasirsNextToken = Nothing-  , _dasirsAutoScalingInstances = Nothing-  , _dasirsResponseStatus = pResponseStatus_-  }+    { _dasirsNextToken = Nothing+    , _dasirsAutoScalingInstances = Nothing+    , _dasirsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dasirsNextToken :: Lens' DescribeAutoScalingInstancesResponse (Maybe Text)-dasirsNextToken = lens _dasirsNextToken (\ s a -> s{_dasirsNextToken = a});+dasirsNextToken = lens _dasirsNextToken (\ s a -> s{_dasirsNextToken = a})  -- | The instances. dasirsAutoScalingInstances :: Lens' DescribeAutoScalingInstancesResponse [AutoScalingInstanceDetails]-dasirsAutoScalingInstances = lens _dasirsAutoScalingInstances (\ s a -> s{_dasirsAutoScalingInstances = a}) . _Default . _Coerce;+dasirsAutoScalingInstances = lens _dasirsAutoScalingInstances (\ s a -> s{_dasirsAutoScalingInstances = a}) . _Default . _Coerce  -- | -- | The response status code. dasirsResponseStatus :: Lens' DescribeAutoScalingInstancesResponse Int-dasirsResponseStatus = lens _dasirsResponseStatus (\ s a -> s{_dasirsResponseStatus = a});+dasirsResponseStatus = lens _dasirsResponseStatus (\ s a -> s{_dasirsResponseStatus = a})  instance NFData DescribeAutoScalingInstancesResponse          where

gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeAutoScalingNotificationTypes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -115,18 +115,18 @@     -> DescribeAutoScalingNotificationTypesResponse describeAutoScalingNotificationTypesResponse pResponseStatus_ =   DescribeAutoScalingNotificationTypesResponse'-  { _dasntrsAutoScalingNotificationTypes = Nothing-  , _dasntrsResponseStatus = pResponseStatus_-  }+    { _dasntrsAutoScalingNotificationTypes = Nothing+    , _dasntrsResponseStatus = pResponseStatus_+    }   -- | The notification types. dasntrsAutoScalingNotificationTypes :: Lens' DescribeAutoScalingNotificationTypesResponse [Text]-dasntrsAutoScalingNotificationTypes = lens _dasntrsAutoScalingNotificationTypes (\ s a -> s{_dasntrsAutoScalingNotificationTypes = a}) . _Default . _Coerce;+dasntrsAutoScalingNotificationTypes = lens _dasntrsAutoScalingNotificationTypes (\ s a -> s{_dasntrsAutoScalingNotificationTypes = a}) . _Default . _Coerce  -- | -- | The response status code. dasntrsResponseStatus :: Lens' DescribeAutoScalingNotificationTypesResponse Int-dasntrsResponseStatus = lens _dasntrsResponseStatus (\ s a -> s{_dasntrsResponseStatus = a});+dasntrsResponseStatus = lens _dasntrsResponseStatus (\ s a -> s{_dasntrsResponseStatus = a})  instance NFData            DescribeAutoScalingNotificationTypesResponse

gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeLaunchConfigurations--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,23 +71,23 @@     :: DescribeLaunchConfigurations describeLaunchConfigurations =   DescribeLaunchConfigurations'-  { _dlcLaunchConfigurationNames = Nothing-  , _dlcNextToken = Nothing-  , _dlcMaxRecords = Nothing-  }+    { _dlcLaunchConfigurationNames = Nothing+    , _dlcNextToken = Nothing+    , _dlcMaxRecords = Nothing+    }   -- | 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;+dlcLaunchConfigurationNames = lens _dlcLaunchConfigurationNames (\ s a -> s{_dlcLaunchConfigurationNames = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dlcNextToken :: Lens' DescribeLaunchConfigurations (Maybe Text)-dlcNextToken = lens _dlcNextToken (\ s a -> s{_dlcNextToken = a});+dlcNextToken = lens _dlcNextToken (\ s a -> s{_dlcNextToken = a})  -- | The maximum number of items to return with this call. The default value is 50 and the maximum value is 100. dlcMaxRecords :: Lens' DescribeLaunchConfigurations (Maybe Int)-dlcMaxRecords = lens _dlcMaxRecords (\ s a -> s{_dlcMaxRecords = a});+dlcMaxRecords = lens _dlcMaxRecords (\ s a -> s{_dlcMaxRecords = a})  instance AWSPager DescribeLaunchConfigurations where         page rq rs@@ -155,23 +155,23 @@     -> DescribeLaunchConfigurationsResponse describeLaunchConfigurationsResponse pResponseStatus_ =   DescribeLaunchConfigurationsResponse'-  { _dlcrsNextToken = Nothing-  , _dlcrsResponseStatus = pResponseStatus_-  , _dlcrsLaunchConfigurations = mempty-  }+    { _dlcrsNextToken = Nothing+    , _dlcrsResponseStatus = pResponseStatus_+    , _dlcrsLaunchConfigurations = mempty+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dlcrsNextToken :: Lens' DescribeLaunchConfigurationsResponse (Maybe Text)-dlcrsNextToken = lens _dlcrsNextToken (\ s a -> s{_dlcrsNextToken = a});+dlcrsNextToken = lens _dlcrsNextToken (\ s a -> s{_dlcrsNextToken = a})  -- | -- | The response status code. dlcrsResponseStatus :: Lens' DescribeLaunchConfigurationsResponse Int-dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a});+dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a})  -- | The launch configurations. dlcrsLaunchConfigurations :: Lens' DescribeLaunchConfigurationsResponse [LaunchConfiguration]-dlcrsLaunchConfigurations = lens _dlcrsLaunchConfigurations (\ s a -> s{_dlcrsLaunchConfigurations = a}) . _Coerce;+dlcrsLaunchConfigurations = lens _dlcrsLaunchConfigurations (\ s a -> s{_dlcrsLaunchConfigurations = a}) . _Coerce  instance NFData DescribeLaunchConfigurationsResponse          where

gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeLifecycleHookTypes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -105,18 +105,18 @@     -> DescribeLifecycleHookTypesResponse describeLifecycleHookTypesResponse pResponseStatus_ =   DescribeLifecycleHookTypesResponse'-  { _dlhtrsLifecycleHookTypes = Nothing-  , _dlhtrsResponseStatus = pResponseStatus_-  }+    { _dlhtrsLifecycleHookTypes = Nothing+    , _dlhtrsResponseStatus = pResponseStatus_+    }   -- | The lifecycle hook types. dlhtrsLifecycleHookTypes :: Lens' DescribeLifecycleHookTypesResponse [Text]-dlhtrsLifecycleHookTypes = lens _dlhtrsLifecycleHookTypes (\ s a -> s{_dlhtrsLifecycleHookTypes = a}) . _Default . _Coerce;+dlhtrsLifecycleHookTypes = lens _dlhtrsLifecycleHookTypes (\ s a -> s{_dlhtrsLifecycleHookTypes = a}) . _Default . _Coerce  -- | -- | The response status code. dlhtrsResponseStatus :: Lens' DescribeLifecycleHookTypesResponse Int-dlhtrsResponseStatus = lens _dlhtrsResponseStatus (\ s a -> s{_dlhtrsResponseStatus = a});+dlhtrsResponseStatus = lens _dlhtrsResponseStatus (\ s a -> s{_dlhtrsResponseStatus = a})  instance NFData DescribeLifecycleHookTypesResponse          where

gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeLifecycleHooks--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,24 +58,24 @@ -- -- * 'dlhLifecycleHookNames' - The names of one or more lifecycle hooks. If you omit this parameter, all lifecycle hooks are described. ----- * 'dlhAutoScalingGroupName' - The name of the group.+-- * 'dlhAutoScalingGroupName' - The name of the Auto Scaling group. describeLifecycleHooks     :: Text -- ^ 'dlhAutoScalingGroupName'     -> DescribeLifecycleHooks describeLifecycleHooks pAutoScalingGroupName_ =   DescribeLifecycleHooks'-  { _dlhLifecycleHookNames = Nothing-  , _dlhAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _dlhLifecycleHookNames = Nothing+    , _dlhAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | 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;+dlhLifecycleHookNames = lens _dlhLifecycleHookNames (\ s a -> s{_dlhLifecycleHookNames = a}) . _Default . _Coerce --- | The name of the group.+-- | The name of the Auto Scaling group. dlhAutoScalingGroupName :: Lens' DescribeLifecycleHooks Text-dlhAutoScalingGroupName = lens _dlhAutoScalingGroupName (\ s a -> s{_dlhAutoScalingGroupName = a});+dlhAutoScalingGroupName = lens _dlhAutoScalingGroupName (\ s a -> s{_dlhAutoScalingGroupName = a})  instance AWSRequest DescribeLifecycleHooks where         type Rs DescribeLifecycleHooks =@@ -129,15 +129,15 @@     -> DescribeLifecycleHooksResponse describeLifecycleHooksResponse pResponseStatus_ =   DescribeLifecycleHooksResponse'-  {_dlhrsLifecycleHooks = Nothing, _dlhrsResponseStatus = pResponseStatus_}+    {_dlhrsLifecycleHooks = Nothing, _dlhrsResponseStatus = pResponseStatus_}   -- | The lifecycle hooks for the specified group. dlhrsLifecycleHooks :: Lens' DescribeLifecycleHooksResponse [LifecycleHook]-dlhrsLifecycleHooks = lens _dlhrsLifecycleHooks (\ s a -> s{_dlhrsLifecycleHooks = a}) . _Default . _Coerce;+dlhrsLifecycleHooks = lens _dlhrsLifecycleHooks (\ s a -> s{_dlhrsLifecycleHooks = a}) . _Default . _Coerce  -- | -- | The response status code. dlhrsResponseStatus :: Lens' DescribeLifecycleHooksResponse Int-dlhrsResponseStatus = lens _dlhrsResponseStatus (\ s a -> s{_dlhrsResponseStatus = a});+dlhrsResponseStatus = lens _dlhrsResponseStatus (\ s a -> s{_dlhrsResponseStatus = a})  instance NFData DescribeLifecycleHooksResponse where

gen/Network/AWS/AutoScaling/DescribeLoadBalancerTargetGroups.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeLoadBalancerTargetGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- -- * 'dlbtgsNextToken' - The token for the next set of items to return. (You received this token from a previous call.) ----- * 'dlbtgsMaxRecords' - The maximum number of items to return with this call. The default value is 50 and the maximum value is 100.+-- * 'dlbtgsMaxRecords' - The maximum number of items to return with this call. The default value is 100 and the maximum value is 100. -- -- * 'dlbtgsAutoScalingGroupName' - The name of the Auto Scaling group. describeLoadBalancerTargetGroups@@ -69,23 +69,23 @@     -> DescribeLoadBalancerTargetGroups describeLoadBalancerTargetGroups pAutoScalingGroupName_ =   DescribeLoadBalancerTargetGroups'-  { _dlbtgsNextToken = Nothing-  , _dlbtgsMaxRecords = Nothing-  , _dlbtgsAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _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});+dlbtgsNextToken = lens _dlbtgsNextToken (\ s a -> s{_dlbtgsNextToken = a}) --- | The maximum number of items to return with this call. The default value is 50 and the maximum value is 100.+-- | The maximum number of items to return with this call. The default value is 100 and the maximum value is 100. dlbtgsMaxRecords :: Lens' DescribeLoadBalancerTargetGroups (Maybe Int)-dlbtgsMaxRecords = lens _dlbtgsMaxRecords (\ s a -> s{_dlbtgsMaxRecords = a});+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});+dlbtgsAutoScalingGroupName = lens _dlbtgsAutoScalingGroupName (\ s a -> s{_dlbtgsAutoScalingGroupName = a})  instance AWSRequest DescribeLoadBalancerTargetGroups          where@@ -150,23 +150,23 @@     -> DescribeLoadBalancerTargetGroupsResponse describeLoadBalancerTargetGroupsResponse pResponseStatus_ =   DescribeLoadBalancerTargetGroupsResponse'-  { _dlbtgsrsLoadBalancerTargetGroups = Nothing-  , _dlbtgsrsNextToken = Nothing-  , _dlbtgsrsResponseStatus = pResponseStatus_-  }+    { _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;+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});+dlbtgsrsNextToken = lens _dlbtgsrsNextToken (\ s a -> s{_dlbtgsrsNextToken = a})  -- | -- | The response status code. dlbtgsrsResponseStatus :: Lens' DescribeLoadBalancerTargetGroupsResponse Int-dlbtgsrsResponseStatus = lens _dlbtgsrsResponseStatus (\ s a -> s{_dlbtgsrsResponseStatus = a});+dlbtgsrsResponseStatus = lens _dlbtgsrsResponseStatus (\ s a -> s{_dlbtgsrsResponseStatus = a})  instance NFData            DescribeLoadBalancerTargetGroupsResponse

gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeLoadBalancers--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,31 +63,31 @@ -- -- * 'dlbNextToken' - The token for the next set of items to return. (You received this token from a previous call.) ----- * 'dlbMaxRecords' - The maximum number of items to return with this call. The default value is 50 and the maximum value is 100.+-- * 'dlbMaxRecords' - The maximum number of items to return with this call. The default value is 100 and the maximum value is 100. ----- * 'dlbAutoScalingGroupName' - The name of the group.+-- * 'dlbAutoScalingGroupName' - The name of the Auto Scaling group. describeLoadBalancers     :: Text -- ^ 'dlbAutoScalingGroupName'     -> DescribeLoadBalancers describeLoadBalancers pAutoScalingGroupName_ =   DescribeLoadBalancers'-  { _dlbNextToken = Nothing-  , _dlbMaxRecords = Nothing-  , _dlbAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _dlbNextToken = Nothing+    , _dlbMaxRecords = Nothing+    , _dlbAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | The token for the next set of items to return. (You received this token from a previous call.) dlbNextToken :: Lens' DescribeLoadBalancers (Maybe Text)-dlbNextToken = lens _dlbNextToken (\ s a -> s{_dlbNextToken = a});+dlbNextToken = lens _dlbNextToken (\ s a -> s{_dlbNextToken = a}) --- | The maximum number of items to return with this call. The default value is 50 and the maximum value is 100.+-- | The maximum number of items to return with this call. The default value is 100 and the maximum value is 100. dlbMaxRecords :: Lens' DescribeLoadBalancers (Maybe Int)-dlbMaxRecords = lens _dlbMaxRecords (\ s a -> s{_dlbMaxRecords = a});+dlbMaxRecords = lens _dlbMaxRecords (\ s a -> s{_dlbMaxRecords = a}) --- | The name of the group.+-- | The name of the Auto Scaling group. dlbAutoScalingGroupName :: Lens' DescribeLoadBalancers Text-dlbAutoScalingGroupName = lens _dlbAutoScalingGroupName (\ s a -> s{_dlbAutoScalingGroupName = a});+dlbAutoScalingGroupName = lens _dlbAutoScalingGroupName (\ s a -> s{_dlbAutoScalingGroupName = a})  instance AWSRequest DescribeLoadBalancers where         type Rs DescribeLoadBalancers =@@ -143,22 +143,22 @@     -> DescribeLoadBalancersResponse describeLoadBalancersResponse pResponseStatus_ =   DescribeLoadBalancersResponse'-  { _dlbrsLoadBalancers = Nothing-  , _dlbrsNextToken = Nothing-  , _dlbrsResponseStatus = pResponseStatus_-  }+    { _dlbrsLoadBalancers = Nothing+    , _dlbrsNextToken = Nothing+    , _dlbrsResponseStatus = pResponseStatus_+    }   -- | The load balancers. dlbrsLoadBalancers :: Lens' DescribeLoadBalancersResponse [LoadBalancerState]-dlbrsLoadBalancers = lens _dlbrsLoadBalancers (\ s a -> s{_dlbrsLoadBalancers = a}) . _Default . _Coerce;+dlbrsLoadBalancers = lens _dlbrsLoadBalancers (\ s a -> s{_dlbrsLoadBalancers = 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. dlbrsNextToken :: Lens' DescribeLoadBalancersResponse (Maybe Text)-dlbrsNextToken = lens _dlbrsNextToken (\ s a -> s{_dlbrsNextToken = a});+dlbrsNextToken = lens _dlbrsNextToken (\ s a -> s{_dlbrsNextToken = a})  -- | -- | The response status code. dlbrsResponseStatus :: Lens' DescribeLoadBalancersResponse Int-dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a});+dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a})  instance NFData DescribeLoadBalancersResponse where

gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeMetricCollectionTypes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -116,23 +116,23 @@     -> DescribeMetricCollectionTypesResponse describeMetricCollectionTypesResponse pResponseStatus_ =   DescribeMetricCollectionTypesResponse'-  { _dmctrsMetrics = Nothing-  , _dmctrsGranularities = Nothing-  , _dmctrsResponseStatus = pResponseStatus_-  }+    { _dmctrsMetrics = Nothing+    , _dmctrsGranularities = Nothing+    , _dmctrsResponseStatus = pResponseStatus_+    }   -- | One or more metrics. dmctrsMetrics :: Lens' DescribeMetricCollectionTypesResponse [MetricCollectionType]-dmctrsMetrics = lens _dmctrsMetrics (\ s a -> s{_dmctrsMetrics = a}) . _Default . _Coerce;+dmctrsMetrics = lens _dmctrsMetrics (\ s a -> s{_dmctrsMetrics = a}) . _Default . _Coerce  -- | The granularities for the metrics. dmctrsGranularities :: Lens' DescribeMetricCollectionTypesResponse [MetricGranularityType]-dmctrsGranularities = lens _dmctrsGranularities (\ s a -> s{_dmctrsGranularities = a}) . _Default . _Coerce;+dmctrsGranularities = lens _dmctrsGranularities (\ s a -> s{_dmctrsGranularities = a}) . _Default . _Coerce  -- | -- | The response status code. dmctrsResponseStatus :: Lens' DescribeMetricCollectionTypesResponse Int-dmctrsResponseStatus = lens _dmctrsResponseStatus (\ s a -> s{_dmctrsResponseStatus = a});+dmctrsResponseStatus = lens _dmctrsResponseStatus (\ s a -> s{_dmctrsResponseStatus = a})  instance NFData DescribeMetricCollectionTypesResponse          where

gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeNotificationConfigurations--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dncAutoScalingGroupNames' - The name of the group.+-- * 'dncAutoScalingGroupNames' - The name of the Auto Scaling group. -- -- * 'dncNextToken' - The token for the next set of items to return. (You received this token from a previous call.) --@@ -71,23 +71,23 @@     :: DescribeNotificationConfigurations describeNotificationConfigurations =   DescribeNotificationConfigurations'-  { _dncAutoScalingGroupNames = Nothing-  , _dncNextToken = Nothing-  , _dncMaxRecords = Nothing-  }+    { _dncAutoScalingGroupNames = Nothing+    , _dncNextToken = Nothing+    , _dncMaxRecords = Nothing+    }  --- | The name of the group.+-- | The name of the Auto Scaling group. dncAutoScalingGroupNames :: Lens' DescribeNotificationConfigurations [Text]-dncAutoScalingGroupNames = lens _dncAutoScalingGroupNames (\ s a -> s{_dncAutoScalingGroupNames = a}) . _Default . _Coerce;+dncAutoScalingGroupNames = lens _dncAutoScalingGroupNames (\ s a -> s{_dncAutoScalingGroupNames = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dncNextToken :: Lens' DescribeNotificationConfigurations (Maybe Text)-dncNextToken = lens _dncNextToken (\ s a -> s{_dncNextToken = a});+dncNextToken = lens _dncNextToken (\ s a -> s{_dncNextToken = a})  -- | The maximum number of items to return with this call. The default value is 50 and the maximum value is 100. dncMaxRecords :: Lens' DescribeNotificationConfigurations (Maybe Int)-dncMaxRecords = lens _dncMaxRecords (\ s a -> s{_dncMaxRecords = a});+dncMaxRecords = lens _dncMaxRecords (\ s a -> s{_dncMaxRecords = a})  instance AWSPager DescribeNotificationConfigurations          where@@ -162,23 +162,23 @@     -> DescribeNotificationConfigurationsResponse describeNotificationConfigurationsResponse pResponseStatus_ =   DescribeNotificationConfigurationsResponse'-  { _dncrsNextToken = Nothing-  , _dncrsResponseStatus = pResponseStatus_-  , _dncrsNotificationConfigurations = mempty-  }+    { _dncrsNextToken = Nothing+    , _dncrsResponseStatus = pResponseStatus_+    , _dncrsNotificationConfigurations = mempty+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dncrsNextToken :: Lens' DescribeNotificationConfigurationsResponse (Maybe Text)-dncrsNextToken = lens _dncrsNextToken (\ s a -> s{_dncrsNextToken = a});+dncrsNextToken = lens _dncrsNextToken (\ s a -> s{_dncrsNextToken = a})  -- | -- | The response status code. dncrsResponseStatus :: Lens' DescribeNotificationConfigurationsResponse Int-dncrsResponseStatus = lens _dncrsResponseStatus (\ s a -> s{_dncrsResponseStatus = a});+dncrsResponseStatus = lens _dncrsResponseStatus (\ s a -> s{_dncrsResponseStatus = a})  -- | The notification configurations. dncrsNotificationConfigurations :: Lens' DescribeNotificationConfigurationsResponse [NotificationConfiguration]-dncrsNotificationConfigurations = lens _dncrsNotificationConfigurations (\ s a -> s{_dncrsNotificationConfigurations = a}) . _Coerce;+dncrsNotificationConfigurations = lens _dncrsNotificationConfigurations (\ s a -> s{_dncrsNotificationConfigurations = a}) . _Coerce  instance NFData            DescribeNotificationConfigurationsResponse

gen/Network/AWS/AutoScaling/DescribePolicies.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribePolicies--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,11 +66,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpsPolicyNames' - 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' - The names of one or more policies. If you omit this parameter, all policies 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. -- -- * 'dpsNextToken' - The token for the next set of items to return. (You received this token from a previous call.) ----- * 'dpsAutoScalingGroupName' - The name of the group.+-- * 'dpsAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'dpsMaxRecords' - The maximum number of items to be returned with each call. The default value is 50 and the maximum value is 100. --@@ -79,33 +79,33 @@     :: DescribePolicies describePolicies =   DescribePolicies'-  { _dpsPolicyNames = Nothing-  , _dpsNextToken = Nothing-  , _dpsAutoScalingGroupName = Nothing-  , _dpsMaxRecords = Nothing-  , _dpsPolicyTypes = Nothing-  }+    { _dpsPolicyNames = Nothing+    , _dpsNextToken = Nothing+    , _dpsAutoScalingGroupName = Nothing+    , _dpsMaxRecords = Nothing+    , _dpsPolicyTypes = Nothing+    }  --- | 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.+-- | The names of one or more policies. If you omit this parameter, all policies 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;+dpsPolicyNames = lens _dpsPolicyNames (\ s a -> s{_dpsPolicyNames = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dpsNextToken :: Lens' DescribePolicies (Maybe Text)-dpsNextToken = lens _dpsNextToken (\ s a -> s{_dpsNextToken = a});+dpsNextToken = lens _dpsNextToken (\ s a -> s{_dpsNextToken = a}) --- | The name of the group.+-- | The name of the Auto Scaling group. dpsAutoScalingGroupName :: Lens' DescribePolicies (Maybe Text)-dpsAutoScalingGroupName = lens _dpsAutoScalingGroupName (\ s a -> s{_dpsAutoScalingGroupName = a});+dpsAutoScalingGroupName = lens _dpsAutoScalingGroupName (\ s a -> s{_dpsAutoScalingGroupName = a})  -- | The maximum number of items to be returned with each call. The default value is 50 and the maximum value is 100. dpsMaxRecords :: Lens' DescribePolicies (Maybe Int)-dpsMaxRecords = lens _dpsMaxRecords (\ s a -> s{_dpsMaxRecords = a});+dpsMaxRecords = lens _dpsMaxRecords (\ s a -> s{_dpsMaxRecords = a})  -- | One or more policy types. Valid values are @SimpleScaling@ and @StepScaling@ . dpsPolicyTypes :: Lens' DescribePolicies [Text]-dpsPolicyTypes = lens _dpsPolicyTypes (\ s a -> s{_dpsPolicyTypes = a}) . _Default . _Coerce;+dpsPolicyTypes = lens _dpsPolicyTypes (\ s a -> s{_dpsPolicyTypes = a}) . _Default . _Coerce  instance AWSPager DescribePolicies where         page rq rs@@ -171,22 +171,22 @@     -> DescribePoliciesResponse describePoliciesResponse pResponseStatus_ =   DescribePoliciesResponse'-  { _dprsNextToken = Nothing-  , _dprsScalingPolicies = Nothing-  , _dprsResponseStatus = pResponseStatus_-  }+    { _dprsNextToken = Nothing+    , _dprsScalingPolicies = Nothing+    , _dprsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dprsNextToken :: Lens' DescribePoliciesResponse (Maybe Text)-dprsNextToken = lens _dprsNextToken (\ s a -> s{_dprsNextToken = a});+dprsNextToken = lens _dprsNextToken (\ s a -> s{_dprsNextToken = a})  -- | The scaling policies. dprsScalingPolicies :: Lens' DescribePoliciesResponse [ScalingPolicy]-dprsScalingPolicies = lens _dprsScalingPolicies (\ s a -> s{_dprsScalingPolicies = a}) . _Default . _Coerce;+dprsScalingPolicies = lens _dprsScalingPolicies (\ s a -> s{_dprsScalingPolicies = a}) . _Default . _Coerce  -- | -- | The response status code. dprsResponseStatus :: Lens' DescribePoliciesResponse Int-dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});+dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})  instance NFData DescribePoliciesResponse where

gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeScalingActivities--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,37 +66,37 @@ -- -- * 'desNextToken' - The token for the next set of items to return. (You received this token from a previous call.) ----- * 'desAutoScalingGroupName' - The name of the group.+-- * 'desAutoScalingGroupName' - The name of the Auto Scaling group. ----- * 'desMaxRecords' - The maximum number of items to return with this call. The default value is 100.+-- * 'desMaxRecords' - The maximum number of items to return with this call. The default value is 100 and the maximum value is 100. -- -- * 'desActivityIds' - 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. describeScalingActivities     :: DescribeScalingActivities describeScalingActivities =   DescribeScalingActivities'-  { _desNextToken = Nothing-  , _desAutoScalingGroupName = Nothing-  , _desMaxRecords = Nothing-  , _desActivityIds = Nothing-  }+    { _desNextToken = Nothing+    , _desAutoScalingGroupName = Nothing+    , _desMaxRecords = Nothing+    , _desActivityIds = Nothing+    }   -- | The token for the next set of items to return. (You received this token from a previous call.) desNextToken :: Lens' DescribeScalingActivities (Maybe Text)-desNextToken = lens _desNextToken (\ s a -> s{_desNextToken = a});+desNextToken = lens _desNextToken (\ s a -> s{_desNextToken = a}) --- | The name of the group.+-- | The name of the Auto Scaling group. desAutoScalingGroupName :: Lens' DescribeScalingActivities (Maybe Text)-desAutoScalingGroupName = lens _desAutoScalingGroupName (\ s a -> s{_desAutoScalingGroupName = a});+desAutoScalingGroupName = lens _desAutoScalingGroupName (\ s a -> s{_desAutoScalingGroupName = a}) --- | The maximum number of items to return with this call. The default value is 100.+-- | The maximum number of items to return with this call. The default value is 100 and the maximum value is 100. desMaxRecords :: Lens' DescribeScalingActivities (Maybe Int)-desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a});+desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a})  -- | 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;+desActivityIds = lens _desActivityIds (\ s a -> s{_desActivityIds = a}) . _Default . _Coerce  instance AWSPager DescribeScalingActivities where         page rq rs@@ -161,23 +161,23 @@     -> DescribeScalingActivitiesResponse describeScalingActivitiesResponse pResponseStatus_ =   DescribeScalingActivitiesResponse'-  { _dsasrsNextToken = Nothing-  , _dsasrsResponseStatus = pResponseStatus_-  , _dsasrsActivities = mempty-  }+    { _dsasrsNextToken = Nothing+    , _dsasrsResponseStatus = pResponseStatus_+    , _dsasrsActivities = mempty+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dsasrsNextToken :: Lens' DescribeScalingActivitiesResponse (Maybe Text)-dsasrsNextToken = lens _dsasrsNextToken (\ s a -> s{_dsasrsNextToken = a});+dsasrsNextToken = lens _dsasrsNextToken (\ s a -> s{_dsasrsNextToken = a})  -- | -- | The response status code. dsasrsResponseStatus :: Lens' DescribeScalingActivitiesResponse Int-dsasrsResponseStatus = lens _dsasrsResponseStatus (\ s a -> s{_dsasrsResponseStatus = a});+dsasrsResponseStatus = lens _dsasrsResponseStatus (\ s a -> s{_dsasrsResponseStatus = a})  -- | 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;+dsasrsActivities = lens _dsasrsActivities (\ s a -> s{_dsasrsActivities = a}) . _Coerce  instance NFData DescribeScalingActivitiesResponse          where

gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeScalingProcessTypes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -105,16 +105,16 @@     -> DescribeScalingProcessTypesResponse describeScalingProcessTypesResponse pResponseStatus_ =   DescribeScalingProcessTypesResponse'-  {_dsptrsProcesses = Nothing, _dsptrsResponseStatus = pResponseStatus_}+    {_dsptrsProcesses = Nothing, _dsptrsResponseStatus = pResponseStatus_}   -- | The names of the process types. dsptrsProcesses :: Lens' DescribeScalingProcessTypesResponse [ProcessType]-dsptrsProcesses = lens _dsptrsProcesses (\ s a -> s{_dsptrsProcesses = a}) . _Default . _Coerce;+dsptrsProcesses = lens _dsptrsProcesses (\ s a -> s{_dsptrsProcesses = a}) . _Default . _Coerce  -- | -- | The response status code. dsptrsResponseStatus :: Lens' DescribeScalingProcessTypesResponse Int-dsptrsResponseStatus = lens _dsptrsResponseStatus (\ s a -> s{_dsptrsResponseStatus = a});+dsptrsResponseStatus = lens _dsptrsResponseStatus (\ s a -> s{_dsptrsResponseStatus = a})  instance NFData DescribeScalingProcessTypesResponse          where

gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeScheduledActions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,7 +72,7 @@ -- -- * 'dsasNextToken' - The token for the next set of items to return. (You received this token from a previous call.) ----- * 'dsasAutoScalingGroupName' - The name of the group.+-- * 'dsasAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'dsasMaxRecords' - The maximum number of items to return with this call. The default value is 50 and the maximum value is 100. --@@ -83,38 +83,38 @@     :: DescribeScheduledActions describeScheduledActions =   DescribeScheduledActions'-  { _dsasStartTime = Nothing-  , _dsasNextToken = Nothing-  , _dsasAutoScalingGroupName = Nothing-  , _dsasMaxRecords = Nothing-  , _dsasEndTime = Nothing-  , _dsasScheduledActionNames = Nothing-  }+    { _dsasStartTime = Nothing+    , _dsasNextToken = Nothing+    , _dsasAutoScalingGroupName = Nothing+    , _dsasMaxRecords = Nothing+    , _dsasEndTime = Nothing+    , _dsasScheduledActionNames = Nothing+    }   -- | The earliest scheduled start time to return. If scheduled action names are provided, this parameter is ignored. dsasStartTime :: Lens' DescribeScheduledActions (Maybe UTCTime)-dsasStartTime = lens _dsasStartTime (\ s a -> s{_dsasStartTime = a}) . mapping _Time;+dsasStartTime = lens _dsasStartTime (\ s a -> s{_dsasStartTime = a}) . mapping _Time  -- | The token for the next set of items to return. (You received this token from a previous call.) dsasNextToken :: Lens' DescribeScheduledActions (Maybe Text)-dsasNextToken = lens _dsasNextToken (\ s a -> s{_dsasNextToken = a});+dsasNextToken = lens _dsasNextToken (\ s a -> s{_dsasNextToken = a}) --- | The name of the group.+-- | The name of the Auto Scaling group. dsasAutoScalingGroupName :: Lens' DescribeScheduledActions (Maybe Text)-dsasAutoScalingGroupName = lens _dsasAutoScalingGroupName (\ s a -> s{_dsasAutoScalingGroupName = a});+dsasAutoScalingGroupName = lens _dsasAutoScalingGroupName (\ s a -> s{_dsasAutoScalingGroupName = a})  -- | The maximum number of items to return with this call. The default value is 50 and the maximum value is 100. dsasMaxRecords :: Lens' DescribeScheduledActions (Maybe Int)-dsasMaxRecords = lens _dsasMaxRecords (\ s a -> s{_dsasMaxRecords = a});+dsasMaxRecords = lens _dsasMaxRecords (\ s a -> s{_dsasMaxRecords = a})  -- | The latest scheduled start time to return. If scheduled action names are provided, this parameter is ignored. dsasEndTime :: Lens' DescribeScheduledActions (Maybe UTCTime)-dsasEndTime = lens _dsasEndTime (\ s a -> s{_dsasEndTime = a}) . mapping _Time;+dsasEndTime = lens _dsasEndTime (\ s a -> s{_dsasEndTime = a}) . mapping _Time  -- | 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]-dsasScheduledActionNames = lens _dsasScheduledActionNames (\ s a -> s{_dsasScheduledActionNames = a}) . _Default . _Coerce;+dsasScheduledActionNames = lens _dsasScheduledActionNames (\ s a -> s{_dsasScheduledActionNames = a}) . _Default . _Coerce  instance AWSPager DescribeScheduledActions where         page rq rs@@ -184,23 +184,23 @@     -> DescribeScheduledActionsResponse describeScheduledActionsResponse pResponseStatus_ =   DescribeScheduledActionsResponse'-  { _dsarsScheduledUpdateGroupActions = Nothing-  , _dsarsNextToken = Nothing-  , _dsarsResponseStatus = pResponseStatus_-  }+    { _dsarsScheduledUpdateGroupActions = Nothing+    , _dsarsNextToken = Nothing+    , _dsarsResponseStatus = pResponseStatus_+    }   -- | The scheduled actions. dsarsScheduledUpdateGroupActions :: Lens' DescribeScheduledActionsResponse [ScheduledUpdateGroupAction]-dsarsScheduledUpdateGroupActions = lens _dsarsScheduledUpdateGroupActions (\ s a -> s{_dsarsScheduledUpdateGroupActions = a}) . _Default . _Coerce;+dsarsScheduledUpdateGroupActions = lens _dsarsScheduledUpdateGroupActions (\ s a -> s{_dsarsScheduledUpdateGroupActions = 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. dsarsNextToken :: Lens' DescribeScheduledActionsResponse (Maybe Text)-dsarsNextToken = lens _dsarsNextToken (\ s a -> s{_dsarsNextToken = a});+dsarsNextToken = lens _dsarsNextToken (\ s a -> s{_dsarsNextToken = a})  -- | -- | The response status code. dsarsResponseStatus :: Lens' DescribeScheduledActionsResponse Int-dsarsResponseStatus = lens _dsarsResponseStatus (\ s a -> s{_dsarsResponseStatus = a});+dsarsResponseStatus = lens _dsarsResponseStatus (\ s a -> s{_dsarsResponseStatus = a})  instance NFData DescribeScheduledActionsResponse          where

gen/Network/AWS/AutoScaling/DescribeTags.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,20 +75,20 @@     :: DescribeTags describeTags =   DescribeTags'-  {_dtFilters = Nothing, _dtNextToken = Nothing, _dtMaxRecords = Nothing}+    {_dtFilters = Nothing, _dtNextToken = Nothing, _dtMaxRecords = Nothing}   -- | A filter used to scope the tags to return. dtFilters :: Lens' DescribeTags [Filter]-dtFilters = lens _dtFilters (\ s a -> s{_dtFilters = a}) . _Default . _Coerce;+dtFilters = lens _dtFilters (\ s a -> s{_dtFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dtNextToken :: Lens' DescribeTags (Maybe Text)-dtNextToken = lens _dtNextToken (\ s a -> s{_dtNextToken = a});+dtNextToken = lens _dtNextToken (\ s a -> s{_dtNextToken = a})  -- | The maximum number of items to return with this call. The default value is 50 and the maximum value is 100. dtMaxRecords :: Lens' DescribeTags (Maybe Int)-dtMaxRecords = lens _dtMaxRecords (\ s a -> s{_dtMaxRecords = a});+dtMaxRecords = lens _dtMaxRecords (\ s a -> s{_dtMaxRecords = a})  instance AWSPager DescribeTags where         page rq rs@@ -151,22 +151,22 @@     -> DescribeTagsResponse describeTagsResponse pResponseStatus_ =   DescribeTagsResponse'-  { _dtrsNextToken = Nothing-  , _dtrsTags = Nothing-  , _dtrsResponseStatus = pResponseStatus_-  }+    { _dtrsNextToken = Nothing+    , _dtrsTags = Nothing+    , _dtrsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dtrsNextToken :: Lens' DescribeTagsResponse (Maybe Text)-dtrsNextToken = lens _dtrsNextToken (\ s a -> s{_dtrsNextToken = a});+dtrsNextToken = lens _dtrsNextToken (\ s a -> s{_dtrsNextToken = a})  -- | One or more tags. dtrsTags :: Lens' DescribeTagsResponse [TagDescription]-dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Default . _Coerce;+dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Default . _Coerce  -- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTagsResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})  instance NFData DescribeTagsResponse where

gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DescribeTerminationPolicyTypes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -108,18 +108,18 @@     -> DescribeTerminationPolicyTypesResponse describeTerminationPolicyTypesResponse pResponseStatus_ =   DescribeTerminationPolicyTypesResponse'-  { _dtptrsTerminationPolicyTypes = Nothing-  , _dtptrsResponseStatus = pResponseStatus_-  }+    { _dtptrsTerminationPolicyTypes = Nothing+    , _dtptrsResponseStatus = pResponseStatus_+    }   -- | The termination policies supported by Auto Scaling (@OldestInstance@ , @OldestLaunchConfiguration@ , @NewestInstance@ , @ClosestToNextInstanceHour@ , and @Default@ ). dtptrsTerminationPolicyTypes :: Lens' DescribeTerminationPolicyTypesResponse [Text]-dtptrsTerminationPolicyTypes = lens _dtptrsTerminationPolicyTypes (\ s a -> s{_dtptrsTerminationPolicyTypes = a}) . _Default . _Coerce;+dtptrsTerminationPolicyTypes = lens _dtptrsTerminationPolicyTypes (\ s a -> s{_dtptrsTerminationPolicyTypes = a}) . _Default . _Coerce  -- | -- | The response status code. dtptrsResponseStatus :: Lens' DescribeTerminationPolicyTypesResponse Int-dtptrsResponseStatus = lens _dtptrsResponseStatus (\ s a -> s{_dtptrsResponseStatus = a});+dtptrsResponseStatus = lens _dtptrsResponseStatus (\ s a -> s{_dtptrsResponseStatus = a})  instance NFData            DescribeTerminationPolicyTypesResponse

gen/Network/AWS/AutoScaling/DetachInstances.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DetachInstances--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,34 +66,34 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'diInstanceIds' - One or more instance IDs.+-- * 'diInstanceIds' - The IDs of the instances. You can specify up to 20 instances. ----- * 'diAutoScalingGroupName' - The name of the group.+-- * 'diAutoScalingGroupName' - The name of the Auto Scaling group. ----- * 'diShouldDecrementDesiredCapacity' - If @True@ , the Auto Scaling group decrements the desired capacity value by the number of instances detached.+-- * 'diShouldDecrementDesiredCapacity' - Indicates whether the Auto Scaling group decrements the desired capacity value by the number of instances detached. detachInstances     :: Text -- ^ 'diAutoScalingGroupName'     -> Bool -- ^ 'diShouldDecrementDesiredCapacity'     -> DetachInstances detachInstances pAutoScalingGroupName_ pShouldDecrementDesiredCapacity_ =   DetachInstances'-  { _diInstanceIds = Nothing-  , _diAutoScalingGroupName = pAutoScalingGroupName_-  , _diShouldDecrementDesiredCapacity = pShouldDecrementDesiredCapacity_-  }+    { _diInstanceIds = Nothing+    , _diAutoScalingGroupName = pAutoScalingGroupName_+    , _diShouldDecrementDesiredCapacity = pShouldDecrementDesiredCapacity_+    }  --- | One or more instance IDs.+-- | The IDs of the instances. You can specify up to 20 instances. diInstanceIds :: Lens' DetachInstances [Text]-diInstanceIds = lens _diInstanceIds (\ s a -> s{_diInstanceIds = a}) . _Default . _Coerce;+diInstanceIds = lens _diInstanceIds (\ s a -> s{_diInstanceIds = a}) . _Default . _Coerce --- | The name of the group.+-- | The name of the Auto Scaling group. diAutoScalingGroupName :: Lens' DetachInstances Text-diAutoScalingGroupName = lens _diAutoScalingGroupName (\ s a -> s{_diAutoScalingGroupName = a});+diAutoScalingGroupName = lens _diAutoScalingGroupName (\ s a -> s{_diAutoScalingGroupName = a}) --- | If @True@ , the Auto Scaling group decrements the desired capacity value by the number of instances detached.+-- | Indicates whether the Auto Scaling group decrements the desired capacity value by the number of instances detached. diShouldDecrementDesiredCapacity :: Lens' DetachInstances Bool-diShouldDecrementDesiredCapacity = lens _diShouldDecrementDesiredCapacity (\ s a -> s{_diShouldDecrementDesiredCapacity = a});+diShouldDecrementDesiredCapacity = lens _diShouldDecrementDesiredCapacity (\ s a -> s{_diShouldDecrementDesiredCapacity = a})  instance AWSRequest DetachInstances where         type Rs DetachInstances = DetachInstancesResponse@@ -146,15 +146,15 @@     -> DetachInstancesResponse detachInstancesResponse pResponseStatus_ =   DetachInstancesResponse'-  {_dirsActivities = Nothing, _dirsResponseStatus = pResponseStatus_}+    {_dirsActivities = Nothing, _dirsResponseStatus = pResponseStatus_}   -- | The activities related to detaching the instances from the Auto Scaling group. dirsActivities :: Lens' DetachInstancesResponse [Activity]-dirsActivities = lens _dirsActivities (\ s a -> s{_dirsActivities = a}) . _Default . _Coerce;+dirsActivities = lens _dirsActivities (\ s a -> s{_dirsActivities = a}) . _Default . _Coerce  -- | -- | The response status code. dirsResponseStatus :: Lens' DetachInstancesResponse Int-dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a})  instance NFData DetachInstancesResponse where

gen/Network/AWS/AutoScaling/DetachLoadBalancerTargetGroups.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DetachLoadBalancerTargetGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,24 +57,24 @@ -- -- * 'dlbtgAutoScalingGroupName' - The name of the Auto Scaling group. ----- * 'dlbtgTargetGroupARNs' - The Amazon Resource Names (ARN) of the target groups.+-- * 'dlbtgTargetGroupARNs' - The Amazon Resource Names (ARN) of the target groups. You can specify up to 10 target groups. detachLoadBalancerTargetGroups     :: Text -- ^ 'dlbtgAutoScalingGroupName'     -> DetachLoadBalancerTargetGroups detachLoadBalancerTargetGroups pAutoScalingGroupName_ =   DetachLoadBalancerTargetGroups'-  { _dlbtgAutoScalingGroupName = pAutoScalingGroupName_-  , _dlbtgTargetGroupARNs = mempty-  }+    { _dlbtgAutoScalingGroupName = pAutoScalingGroupName_+    , _dlbtgTargetGroupARNs = mempty+    }   -- | The name of the Auto Scaling group. dlbtgAutoScalingGroupName :: Lens' DetachLoadBalancerTargetGroups Text-dlbtgAutoScalingGroupName = lens _dlbtgAutoScalingGroupName (\ s a -> s{_dlbtgAutoScalingGroupName = a});+dlbtgAutoScalingGroupName = lens _dlbtgAutoScalingGroupName (\ s a -> s{_dlbtgAutoScalingGroupName = a}) --- | The Amazon Resource Names (ARN) of the target groups.+-- | The Amazon Resource Names (ARN) of the target groups. You can specify up to 10 target groups. dlbtgTargetGroupARNs :: Lens' DetachLoadBalancerTargetGroups [Text]-dlbtgTargetGroupARNs = lens _dlbtgTargetGroupARNs (\ s a -> s{_dlbtgTargetGroupARNs = a}) . _Coerce;+dlbtgTargetGroupARNs = lens _dlbtgTargetGroupARNs (\ s a -> s{_dlbtgTargetGroupARNs = a}) . _Coerce  instance AWSRequest DetachLoadBalancerTargetGroups          where@@ -126,12 +126,12 @@     -> DetachLoadBalancerTargetGroupsResponse detachLoadBalancerTargetGroupsResponse pResponseStatus_ =   DetachLoadBalancerTargetGroupsResponse'-  {_dlbtgrsResponseStatus = pResponseStatus_}+    {_dlbtgrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. dlbtgrsResponseStatus :: Lens' DetachLoadBalancerTargetGroupsResponse Int-dlbtgrsResponseStatus = lens _dlbtgrsResponseStatus (\ s a -> s{_dlbtgrsResponseStatus = a});+dlbtgrsResponseStatus = lens _dlbtgrsResponseStatus (\ s a -> s{_dlbtgrsResponseStatus = a})  instance NFData            DetachLoadBalancerTargetGroupsResponse

gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DetachLoadBalancers--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,24 +61,24 @@ -- -- * 'dAutoScalingGroupName' - The name of the Auto Scaling group. ----- * 'dLoadBalancerNames' - One or more load balancer names.+-- * 'dLoadBalancerNames' - The names of the load balancers. You can specify up to 10 load balancers. detachLoadBalancers     :: Text -- ^ 'dAutoScalingGroupName'     -> DetachLoadBalancers detachLoadBalancers pAutoScalingGroupName_ =   DetachLoadBalancers'-  { _dAutoScalingGroupName = pAutoScalingGroupName_-  , _dLoadBalancerNames = mempty-  }+    { _dAutoScalingGroupName = pAutoScalingGroupName_+    , _dLoadBalancerNames = mempty+    }   -- | The name of the Auto Scaling group. dAutoScalingGroupName :: Lens' DetachLoadBalancers Text-dAutoScalingGroupName = lens _dAutoScalingGroupName (\ s a -> s{_dAutoScalingGroupName = a});+dAutoScalingGroupName = lens _dAutoScalingGroupName (\ s a -> s{_dAutoScalingGroupName = a}) --- | One or more load balancer names.+-- | The names of the load balancers. You can specify up to 10 load balancers. dLoadBalancerNames :: Lens' DetachLoadBalancers [Text]-dLoadBalancerNames = lens _dLoadBalancerNames (\ s a -> s{_dLoadBalancerNames = a}) . _Coerce;+dLoadBalancerNames = lens _dLoadBalancerNames (\ s a -> s{_dLoadBalancerNames = a}) . _Coerce  instance AWSRequest DetachLoadBalancers where         type Rs DetachLoadBalancers =@@ -128,6 +128,6 @@  -- | -- | The response status code. dlbsrsResponseStatus :: Lens' DetachLoadBalancersResponse Int-dlbsrsResponseStatus = lens _dlbsrsResponseStatus (\ s a -> s{_dlbsrsResponseStatus = a});+dlbsrsResponseStatus = lens _dlbsrsResponseStatus (\ s a -> s{_dlbsrsResponseStatus = a})  instance NFData DetachLoadBalancersResponse where

gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.DisableMetricsCollection--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -55,22 +55,22 @@ -- -- * 'dmcMetrics' - One or more of the following metrics. If you omit this parameter, all metrics are disabled.     * @GroupMinSize@      * @GroupMaxSize@      * @GroupDesiredCapacity@      * @GroupInServiceInstances@      * @GroupPendingInstances@      * @GroupStandbyInstances@      * @GroupTerminatingInstances@      * @GroupTotalInstances@ ----- * 'dmcAutoScalingGroupName' - The name or Amazon Resource Name (ARN) of the group.+-- * 'dmcAutoScalingGroupName' - The name of the Auto Scaling group. disableMetricsCollection     :: Text -- ^ 'dmcAutoScalingGroupName'     -> DisableMetricsCollection disableMetricsCollection pAutoScalingGroupName_ =   DisableMetricsCollection'-  {_dmcMetrics = Nothing, _dmcAutoScalingGroupName = pAutoScalingGroupName_}+    {_dmcMetrics = Nothing, _dmcAutoScalingGroupName = pAutoScalingGroupName_}   -- | One or more of the following metrics. If you omit this parameter, all metrics are disabled.     * @GroupMinSize@      * @GroupMaxSize@      * @GroupDesiredCapacity@      * @GroupInServiceInstances@      * @GroupPendingInstances@      * @GroupStandbyInstances@      * @GroupTerminatingInstances@      * @GroupTotalInstances@ dmcMetrics :: Lens' DisableMetricsCollection [Text]-dmcMetrics = lens _dmcMetrics (\ s a -> s{_dmcMetrics = a}) . _Default . _Coerce;+dmcMetrics = lens _dmcMetrics (\ s a -> s{_dmcMetrics = a}) . _Default . _Coerce --- | The name or Amazon Resource Name (ARN) of the group.+-- | The name of the Auto Scaling group. dmcAutoScalingGroupName :: Lens' DisableMetricsCollection Text-dmcAutoScalingGroupName = lens _dmcAutoScalingGroupName (\ s a -> s{_dmcAutoScalingGroupName = a});+dmcAutoScalingGroupName = lens _dmcAutoScalingGroupName (\ s a -> s{_dmcAutoScalingGroupName = a})  instance AWSRequest DisableMetricsCollection where         type Rs DisableMetricsCollection =

gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.EnableMetricsCollection--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- -- * 'emcMetrics' - One or more of the following metrics. If you omit this parameter, all metrics are enabled.     * @GroupMinSize@      * @GroupMaxSize@      * @GroupDesiredCapacity@      * @GroupInServiceInstances@      * @GroupPendingInstances@      * @GroupStandbyInstances@      * @GroupTerminatingInstances@      * @GroupTotalInstances@ ----- * 'emcAutoScalingGroupName' - The name or ARN of the Auto Scaling group.+-- * 'emcAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'emcGranularity' - The granularity to associate with the metrics to collect. The only valid value is @1Minute@ . enableMetricsCollection@@ -66,23 +66,23 @@     -> EnableMetricsCollection enableMetricsCollection pAutoScalingGroupName_ pGranularity_ =   EnableMetricsCollection'-  { _emcMetrics = Nothing-  , _emcAutoScalingGroupName = pAutoScalingGroupName_-  , _emcGranularity = pGranularity_-  }+    { _emcMetrics = Nothing+    , _emcAutoScalingGroupName = pAutoScalingGroupName_+    , _emcGranularity = pGranularity_+    }   -- | One or more of the following metrics. If you omit this parameter, all metrics are enabled.     * @GroupMinSize@      * @GroupMaxSize@      * @GroupDesiredCapacity@      * @GroupInServiceInstances@      * @GroupPendingInstances@      * @GroupStandbyInstances@      * @GroupTerminatingInstances@      * @GroupTotalInstances@ emcMetrics :: Lens' EnableMetricsCollection [Text]-emcMetrics = lens _emcMetrics (\ s a -> s{_emcMetrics = a}) . _Default . _Coerce;+emcMetrics = lens _emcMetrics (\ s a -> s{_emcMetrics = a}) . _Default . _Coerce --- | The name or ARN of the Auto Scaling group.+-- | The name of the Auto Scaling group. emcAutoScalingGroupName :: Lens' EnableMetricsCollection Text-emcAutoScalingGroupName = lens _emcAutoScalingGroupName (\ s a -> s{_emcAutoScalingGroupName = a});+emcAutoScalingGroupName = lens _emcAutoScalingGroupName (\ s a -> s{_emcAutoScalingGroupName = a})  -- | The granularity to associate with the metrics to collect. The only valid value is @1Minute@ . emcGranularity :: Lens' EnableMetricsCollection Text-emcGranularity = lens _emcGranularity (\ s a -> s{_emcGranularity = a});+emcGranularity = lens _emcGranularity (\ s a -> s{_emcGranularity = a})  instance AWSRequest EnableMetricsCollection where         type Rs EnableMetricsCollection =

gen/Network/AWS/AutoScaling/EnterStandby.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.EnterStandby--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -60,34 +60,34 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'esInstanceIds' - One or more instances to move into @Standby@ mode. You must specify at least one instance ID.+-- * 'esInstanceIds' - The IDs of the instances. You can specify up to 20 instances. -- -- * 'esAutoScalingGroupName' - The name of the Auto Scaling group. ----- * 'esShouldDecrementDesiredCapacity' - Specifies whether the instances moved to @Standby@ mode count as part of the Auto Scaling group's desired capacity. If set, the desired capacity for the Auto Scaling group decrements by the number of instances moved to @Standby@ mode.+-- * 'esShouldDecrementDesiredCapacity' - Indicates whether to decrement the desired capacity of the Auto Scaling group by the number of instances moved to @Standby@ mode. enterStandby     :: Text -- ^ 'esAutoScalingGroupName'     -> Bool -- ^ 'esShouldDecrementDesiredCapacity'     -> EnterStandby enterStandby pAutoScalingGroupName_ pShouldDecrementDesiredCapacity_ =   EnterStandby'-  { _esInstanceIds = Nothing-  , _esAutoScalingGroupName = pAutoScalingGroupName_-  , _esShouldDecrementDesiredCapacity = pShouldDecrementDesiredCapacity_-  }+    { _esInstanceIds = Nothing+    , _esAutoScalingGroupName = pAutoScalingGroupName_+    , _esShouldDecrementDesiredCapacity = pShouldDecrementDesiredCapacity_+    }  --- | One or more instances to move into @Standby@ mode. You must specify at least one instance ID.+-- | The IDs of the instances. You can specify up to 20 instances. esInstanceIds :: Lens' EnterStandby [Text]-esInstanceIds = lens _esInstanceIds (\ s a -> s{_esInstanceIds = a}) . _Default . _Coerce;+esInstanceIds = lens _esInstanceIds (\ s a -> s{_esInstanceIds = a}) . _Default . _Coerce  -- | The name of the Auto Scaling group. esAutoScalingGroupName :: Lens' EnterStandby Text-esAutoScalingGroupName = lens _esAutoScalingGroupName (\ s a -> s{_esAutoScalingGroupName = a});+esAutoScalingGroupName = lens _esAutoScalingGroupName (\ s a -> s{_esAutoScalingGroupName = a}) --- | Specifies whether the instances moved to @Standby@ mode count as part of the Auto Scaling group's desired capacity. If set, the desired capacity for the Auto Scaling group decrements by the number of instances moved to @Standby@ mode.+-- | Indicates whether to decrement the desired capacity of the Auto Scaling group by the number of instances moved to @Standby@ mode. esShouldDecrementDesiredCapacity :: Lens' EnterStandby Bool-esShouldDecrementDesiredCapacity = lens _esShouldDecrementDesiredCapacity (\ s a -> s{_esShouldDecrementDesiredCapacity = a});+esShouldDecrementDesiredCapacity = lens _esShouldDecrementDesiredCapacity (\ s a -> s{_esShouldDecrementDesiredCapacity = a})  instance AWSRequest EnterStandby where         type Rs EnterStandby = EnterStandbyResponse@@ -140,15 +140,15 @@     -> EnterStandbyResponse enterStandbyResponse pResponseStatus_ =   EnterStandbyResponse'-  {_ersActivities = Nothing, _ersResponseStatus = pResponseStatus_}+    {_ersActivities = Nothing, _ersResponseStatus = pResponseStatus_}   -- | The activities related to moving instances into @Standby@ mode. ersActivities :: Lens' EnterStandbyResponse [Activity]-ersActivities = lens _ersActivities (\ s a -> s{_ersActivities = a}) . _Default . _Coerce;+ersActivities = lens _ersActivities (\ s a -> s{_ersActivities = a}) . _Default . _Coerce  -- | -- | The response status code. ersResponseStatus :: Lens' EnterStandbyResponse Int-ersResponseStatus = lens _ersResponseStatus (\ s a -> s{_ersResponseStatus = a});+ersResponseStatus = lens _ersResponseStatus (\ s a -> s{_ersResponseStatus = a})  instance NFData EnterStandbyResponse where

gen/Network/AWS/AutoScaling/ExecutePolicy.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.ExecutePolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -59,11 +59,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'epHonorCooldown' - If this parameter is true, Auto Scaling waits for the cooldown period to complete before executing the policy. Otherwise, Auto Scaling executes the policy without waiting for the cooldown period to complete. This parameter is not supported if the policy type is @StepScaling@ . For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/ .+-- * 'epHonorCooldown' - Indicates whether Auto Scaling waits for the cooldown period to complete before executing the policy. This parameter is not supported if the policy type is @StepScaling@ . For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/ . -- -- * 'epMetricValue' - The metric value to compare to @BreachThreshold@ . This enables you to execute a policy of type @StepScaling@ and determine which step adjustment to use. For example, if the breach threshold is 50 and you want to use a step adjustment with a lower bound of 0 and an upper bound of 10, you can set the metric value to 59. If you specify a metric value that doesn't correspond to a step adjustment for the policy, the call returns an error. This parameter is required if the policy type is @StepScaling@ and not supported otherwise. ----- * 'epAutoScalingGroupName' - The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- * 'epAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'epBreachThreshold' - The breach threshold for the alarm. This parameter is required if the policy type is @StepScaling@ and not supported otherwise. --@@ -73,33 +73,33 @@     -> ExecutePolicy executePolicy pPolicyName_ =   ExecutePolicy'-  { _epHonorCooldown = Nothing-  , _epMetricValue = Nothing-  , _epAutoScalingGroupName = Nothing-  , _epBreachThreshold = Nothing-  , _epPolicyName = pPolicyName_-  }+    { _epHonorCooldown = Nothing+    , _epMetricValue = Nothing+    , _epAutoScalingGroupName = Nothing+    , _epBreachThreshold = Nothing+    , _epPolicyName = pPolicyName_+    }  --- | If this parameter is true, Auto Scaling waits for the cooldown period to complete before executing the policy. Otherwise, Auto Scaling executes the policy without waiting for the cooldown period to complete. This parameter is not supported if the policy type is @StepScaling@ . For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/ .+-- | Indicates whether Auto Scaling waits for the cooldown period to complete before executing the policy. This parameter is not supported if the policy type is @StepScaling@ . For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/ . epHonorCooldown :: Lens' ExecutePolicy (Maybe Bool)-epHonorCooldown = lens _epHonorCooldown (\ s a -> s{_epHonorCooldown = a});+epHonorCooldown = lens _epHonorCooldown (\ s a -> s{_epHonorCooldown = a})  -- | The metric value to compare to @BreachThreshold@ . This enables you to execute a policy of type @StepScaling@ and determine which step adjustment to use. For example, if the breach threshold is 50 and you want to use a step adjustment with a lower bound of 0 and an upper bound of 10, you can set the metric value to 59. If you specify a metric value that doesn't correspond to a step adjustment for the policy, the call returns an error. This parameter is required if the policy type is @StepScaling@ and not supported otherwise. epMetricValue :: Lens' ExecutePolicy (Maybe Double)-epMetricValue = lens _epMetricValue (\ s a -> s{_epMetricValue = a});+epMetricValue = lens _epMetricValue (\ s a -> s{_epMetricValue = a}) --- | The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- | The name of the Auto Scaling group. epAutoScalingGroupName :: Lens' ExecutePolicy (Maybe Text)-epAutoScalingGroupName = lens _epAutoScalingGroupName (\ s a -> s{_epAutoScalingGroupName = a});+epAutoScalingGroupName = lens _epAutoScalingGroupName (\ s a -> s{_epAutoScalingGroupName = a})  -- | The breach threshold for the alarm. This parameter is required if the policy type is @StepScaling@ and not supported otherwise. epBreachThreshold :: Lens' ExecutePolicy (Maybe Double)-epBreachThreshold = lens _epBreachThreshold (\ s a -> s{_epBreachThreshold = a});+epBreachThreshold = lens _epBreachThreshold (\ s a -> s{_epBreachThreshold = a})  -- | The name or ARN of the policy. epPolicyName :: Lens' ExecutePolicy Text-epPolicyName = lens _epPolicyName (\ s a -> s{_epPolicyName = a});+epPolicyName = lens _epPolicyName (\ s a -> s{_epPolicyName = a})  instance AWSRequest ExecutePolicy where         type Rs ExecutePolicy = ExecutePolicyResponse

gen/Network/AWS/AutoScaling/ExitStandby.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.ExitStandby--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'eInstanceIds' - One or more instance IDs. You must specify at least one instance ID.+-- * 'eInstanceIds' - The IDs of the instances. You can specify up to 20 instances. -- -- * 'eAutoScalingGroupName' - The name of the Auto Scaling group. exitStandby@@ -66,16 +66,16 @@     -> ExitStandby exitStandby pAutoScalingGroupName_ =   ExitStandby'-  {_eInstanceIds = Nothing, _eAutoScalingGroupName = pAutoScalingGroupName_}+    {_eInstanceIds = Nothing, _eAutoScalingGroupName = pAutoScalingGroupName_}  --- | One or more instance IDs. You must specify at least one instance ID.+-- | The IDs of the instances. You can specify up to 20 instances. eInstanceIds :: Lens' ExitStandby [Text]-eInstanceIds = lens _eInstanceIds (\ s a -> s{_eInstanceIds = a}) . _Default . _Coerce;+eInstanceIds = lens _eInstanceIds (\ s a -> s{_eInstanceIds = a}) . _Default . _Coerce  -- | The name of the Auto Scaling group. eAutoScalingGroupName :: Lens' ExitStandby Text-eAutoScalingGroupName = lens _eAutoScalingGroupName (\ s a -> s{_eAutoScalingGroupName = a});+eAutoScalingGroupName = lens _eAutoScalingGroupName (\ s a -> s{_eAutoScalingGroupName = a})  instance AWSRequest ExitStandby where         type Rs ExitStandby = ExitStandbyResponse@@ -126,15 +126,15 @@     -> ExitStandbyResponse exitStandbyResponse pResponseStatus_ =   ExitStandbyResponse'-  {_esrsActivities = Nothing, _esrsResponseStatus = pResponseStatus_}+    {_esrsActivities = Nothing, _esrsResponseStatus = pResponseStatus_}   -- | The activities related to moving instances out of @Standby@ mode. esrsActivities :: Lens' ExitStandbyResponse [Activity]-esrsActivities = lens _esrsActivities (\ s a -> s{_esrsActivities = a}) . _Default . _Coerce;+esrsActivities = lens _esrsActivities (\ s a -> s{_esrsActivities = a}) . _Default . _Coerce  -- | -- | The response status code. esrsResponseStatus :: Lens' ExitStandbyResponse Int-esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a});+esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a})  instance NFData ExitStandbyResponse where

gen/Network/AWS/AutoScaling/PutLifecycleHook.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.PutLifecycleHook--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -101,55 +101,55 @@ -- -- * 'plhLifecycleHookName' - The name of the lifecycle hook. ----- * 'plhAutoScalingGroupName' - The name of the Auto Scaling group to which you want to assign the lifecycle hook.+-- * 'plhAutoScalingGroupName' - The name of the Auto Scaling group. putLifecycleHook     :: Text -- ^ 'plhLifecycleHookName'     -> Text -- ^ 'plhAutoScalingGroupName'     -> PutLifecycleHook putLifecycleHook pLifecycleHookName_ pAutoScalingGroupName_ =   PutLifecycleHook'-  { _plhDefaultResult = Nothing-  , _plhHeartbeatTimeout = Nothing-  , _plhNotificationMetadata = Nothing-  , _plhNotificationTargetARN = Nothing-  , _plhLifecycleTransition = Nothing-  , _plhRoleARN = Nothing-  , _plhLifecycleHookName = pLifecycleHookName_-  , _plhAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _plhDefaultResult = Nothing+    , _plhHeartbeatTimeout = Nothing+    , _plhNotificationMetadata = Nothing+    , _plhNotificationTargetARN = Nothing+    , _plhLifecycleTransition = Nothing+    , _plhRoleARN = Nothing+    , _plhLifecycleHookName = pLifecycleHookName_+    , _plhAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | Defines the action the Auto Scaling group should take when the lifecycle hook timeout elapses or if an unexpected failure occurs. This parameter can be either @CONTINUE@ or @ABANDON@ . The default value is @ABANDON@ . plhDefaultResult :: Lens' PutLifecycleHook (Maybe Text)-plhDefaultResult = lens _plhDefaultResult (\ s a -> s{_plhDefaultResult = a});+plhDefaultResult = lens _plhDefaultResult (\ s a -> s{_plhDefaultResult = a})  -- | The maximum time, in seconds, that can elapse before the lifecycle hook times out. The range is from 30 to 7200 seconds. The default is 3600 seconds (1 hour). If the lifecycle hook times out, Auto Scaling performs the default action. You can prevent the lifecycle hook from timing out by calling 'RecordLifecycleActionHeartbeat' . plhHeartbeatTimeout :: Lens' PutLifecycleHook (Maybe Int)-plhHeartbeatTimeout = lens _plhHeartbeatTimeout (\ s a -> s{_plhHeartbeatTimeout = a});+plhHeartbeatTimeout = lens _plhHeartbeatTimeout (\ s a -> s{_plhHeartbeatTimeout = a})  -- | Contains additional information that you want to include any time Auto Scaling sends a message to the notification target. plhNotificationMetadata :: Lens' PutLifecycleHook (Maybe Text)-plhNotificationMetadata = lens _plhNotificationMetadata (\ s a -> s{_plhNotificationMetadata = a});+plhNotificationMetadata = lens _plhNotificationMetadata (\ s a -> s{_plhNotificationMetadata = a})  -- | The ARN of the notification target that Auto Scaling will use to notify you when an instance is in the transition state for the lifecycle hook. This target can be either an SQS queue or an SNS topic. If you specify an empty string, this overrides the current ARN. 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. When you specify a notification target, Auto Scaling sends it a test message. Test messages contains the following additional key/value pair: @"Event": "autoscaling:TEST_NOTIFICATION"@ . plhNotificationTargetARN :: Lens' PutLifecycleHook (Maybe Text)-plhNotificationTargetARN = lens _plhNotificationTargetARN (\ s a -> s{_plhNotificationTargetARN = a});+plhNotificationTargetARN = lens _plhNotificationTargetARN (\ s a -> s{_plhNotificationTargetARN = a})  -- | The instance state to which you want to attach the lifecycle hook. For a list of lifecycle hook types, see 'DescribeLifecycleHookTypes' . This parameter is required for new lifecycle hooks, but optional when updating existing hooks. plhLifecycleTransition :: Lens' PutLifecycleHook (Maybe Text)-plhLifecycleTransition = lens _plhLifecycleTransition (\ s a -> s{_plhLifecycleTransition = a});+plhLifecycleTransition = lens _plhLifecycleTransition (\ s a -> s{_plhLifecycleTransition = a})  -- | The ARN of the IAM role that allows the Auto Scaling group to publish to the specified notification target. This parameter is required for new lifecycle hooks, but optional when updating existing hooks. plhRoleARN :: Lens' PutLifecycleHook (Maybe Text)-plhRoleARN = lens _plhRoleARN (\ s a -> s{_plhRoleARN = a});+plhRoleARN = lens _plhRoleARN (\ s a -> s{_plhRoleARN = a})  -- | The name of the lifecycle hook. plhLifecycleHookName :: Lens' PutLifecycleHook Text-plhLifecycleHookName = lens _plhLifecycleHookName (\ s a -> s{_plhLifecycleHookName = a});+plhLifecycleHookName = lens _plhLifecycleHookName (\ s a -> s{_plhLifecycleHookName = a}) --- | The name of the Auto Scaling group to which you want to assign the lifecycle hook.+-- | The name of the Auto Scaling group. plhAutoScalingGroupName :: Lens' PutLifecycleHook Text-plhAutoScalingGroupName = lens _plhAutoScalingGroupName (\ s a -> s{_plhAutoScalingGroupName = a});+plhAutoScalingGroupName = lens _plhAutoScalingGroupName (\ s a -> s{_plhAutoScalingGroupName = a})  instance AWSRequest PutLifecycleHook where         type Rs PutLifecycleHook = PutLifecycleHookResponse@@ -203,6 +203,6 @@  -- | -- | The response status code. plhrsResponseStatus :: Lens' PutLifecycleHookResponse Int-plhrsResponseStatus = lens _plhrsResponseStatus (\ s a -> s{_plhrsResponseStatus = a});+plhrsResponseStatus = lens _plhrsResponseStatus (\ s a -> s{_plhrsResponseStatus = a})  instance NFData PutLifecycleHookResponse where

gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.PutNotificationConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,23 +70,23 @@     -> PutNotificationConfiguration putNotificationConfiguration pAutoScalingGroupName_ pTopicARN_ =   PutNotificationConfiguration'-  { _pncAutoScalingGroupName = pAutoScalingGroupName_-  , _pncTopicARN = pTopicARN_-  , _pncNotificationTypes = mempty-  }+    { _pncAutoScalingGroupName = pAutoScalingGroupName_+    , _pncTopicARN = pTopicARN_+    , _pncNotificationTypes = mempty+    }   -- | The name of the Auto Scaling group. pncAutoScalingGroupName :: Lens' PutNotificationConfiguration Text-pncAutoScalingGroupName = lens _pncAutoScalingGroupName (\ s a -> s{_pncAutoScalingGroupName = a});+pncAutoScalingGroupName = lens _pncAutoScalingGroupName (\ s a -> s{_pncAutoScalingGroupName = a})  -- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) topic. pncTopicARN :: Lens' PutNotificationConfiguration Text-pncTopicARN = lens _pncTopicARN (\ s a -> s{_pncTopicARN = a});+pncTopicARN = lens _pncTopicARN (\ s a -> s{_pncTopicARN = a})  -- | The type of event that will cause the notification to be sent. For details about notification types supported by Auto Scaling, see 'DescribeAutoScalingNotificationTypes' . pncNotificationTypes :: Lens' PutNotificationConfiguration [Text]-pncNotificationTypes = lens _pncNotificationTypes (\ s a -> s{_pncNotificationTypes = a}) . _Coerce;+pncNotificationTypes = lens _pncNotificationTypes (\ s a -> s{_pncNotificationTypes = a}) . _Coerce  instance AWSRequest PutNotificationConfiguration          where

gen/Network/AWS/AutoScaling/PutScalingPolicy.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.PutScalingPolicy--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -99,7 +99,7 @@ -- -- * 'pspMinAdjustmentMagnitude' - The minimum number of instances to scale. If the value of @AdjustmentType@ is @PercentChangeInCapacity@ , the scaling policy changes the @DesiredCapacity@ of the Auto Scaling group by at least this many instances. Otherwise, the error is @ValidationError@ . This parameter is supported if the policy type is @SimpleScaling@ or @StepScaling@ . ----- * 'pspAutoScalingGroupName' - The name or ARN of the group.+-- * 'pspAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'pspPolicyName' - The name of the policy. putScalingPolicy@@ -108,68 +108,68 @@     -> PutScalingPolicy putScalingPolicy pAutoScalingGroupName_ pPolicyName_ =   PutScalingPolicy'-  { _pspMinAdjustmentStep = Nothing-  , _pspEstimatedInstanceWarmup = Nothing-  , _pspPolicyType = Nothing-  , _pspStepAdjustments = Nothing-  , _pspTargetTrackingConfiguration = Nothing-  , _pspAdjustmentType = Nothing-  , _pspScalingAdjustment = Nothing-  , _pspCooldown = Nothing-  , _pspMetricAggregationType = Nothing-  , _pspMinAdjustmentMagnitude = Nothing-  , _pspAutoScalingGroupName = pAutoScalingGroupName_-  , _pspPolicyName = pPolicyName_-  }+    { _pspMinAdjustmentStep = Nothing+    , _pspEstimatedInstanceWarmup = Nothing+    , _pspPolicyType = Nothing+    , _pspStepAdjustments = Nothing+    , _pspTargetTrackingConfiguration = Nothing+    , _pspAdjustmentType = Nothing+    , _pspScalingAdjustment = Nothing+    , _pspCooldown = Nothing+    , _pspMetricAggregationType = Nothing+    , _pspMinAdjustmentMagnitude = Nothing+    , _pspAutoScalingGroupName = pAutoScalingGroupName_+    , _pspPolicyName = pPolicyName_+    }   -- | Available for backward compatibility. Use @MinAdjustmentMagnitude@ instead. pspMinAdjustmentStep :: Lens' PutScalingPolicy (Maybe Int)-pspMinAdjustmentStep = lens _pspMinAdjustmentStep (\ s a -> s{_pspMinAdjustmentStep = a});+pspMinAdjustmentStep = lens _pspMinAdjustmentStep (\ s a -> s{_pspMinAdjustmentStep = a})  -- | The estimated time, in seconds, until a newly launched instance can contribute to the CloudWatch metrics. The default is to use the value specified for the default cooldown period for the group. This parameter is supported if the policy type is @StepScaling@ or @TargetTrackingScaling@ . pspEstimatedInstanceWarmup :: Lens' PutScalingPolicy (Maybe Int)-pspEstimatedInstanceWarmup = lens _pspEstimatedInstanceWarmup (\ s a -> s{_pspEstimatedInstanceWarmup = a});+pspEstimatedInstanceWarmup = lens _pspEstimatedInstanceWarmup (\ s a -> s{_pspEstimatedInstanceWarmup = a})  -- | The policy type. The valid values are @SimpleScaling@ , @StepScaling@ , and @TargetTrackingScaling@ . If the policy type is null, the value is treated as @SimpleScaling@ . pspPolicyType :: Lens' PutScalingPolicy (Maybe Text)-pspPolicyType = lens _pspPolicyType (\ s a -> s{_pspPolicyType = a});+pspPolicyType = lens _pspPolicyType (\ s a -> s{_pspPolicyType = a})  -- | A set of adjustments that enable you to scale based on the size of the alarm breach. This parameter is required if the policy type is @StepScaling@ and not supported otherwise. pspStepAdjustments :: Lens' PutScalingPolicy [StepAdjustment]-pspStepAdjustments = lens _pspStepAdjustments (\ s a -> s{_pspStepAdjustments = a}) . _Default . _Coerce;+pspStepAdjustments = lens _pspStepAdjustments (\ s a -> s{_pspStepAdjustments = a}) . _Default . _Coerce  -- | A target tracking policy. This parameter is required if the policy type is @TargetTrackingScaling@ and not supported otherwise. pspTargetTrackingConfiguration :: Lens' PutScalingPolicy (Maybe TargetTrackingConfiguration)-pspTargetTrackingConfiguration = lens _pspTargetTrackingConfiguration (\ s a -> s{_pspTargetTrackingConfiguration = a});+pspTargetTrackingConfiguration = lens _pspTargetTrackingConfiguration (\ s a -> s{_pspTargetTrackingConfiguration = a})  -- | The adjustment type. The valid values are @ChangeInCapacity@ , @ExactCapacity@ , and @PercentChangeInCapacity@ . This parameter is supported if the policy type is @SimpleScaling@ or @StepScaling@ . For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/as-scale-based-on-demand.html Dynamic Scaling> in the /Auto Scaling User Guide/ . pspAdjustmentType :: Lens' PutScalingPolicy (Maybe Text)-pspAdjustmentType = lens _pspAdjustmentType (\ s a -> s{_pspAdjustmentType = a});+pspAdjustmentType = lens _pspAdjustmentType (\ s a -> s{_pspAdjustmentType = a})  -- | The amount by which to scale, based on the specified adjustment type. A positive value adds to the current capacity while a negative number removes from the current capacity. This parameter is required if the policy type is @SimpleScaling@ and not supported otherwise. pspScalingAdjustment :: Lens' PutScalingPolicy (Maybe Int)-pspScalingAdjustment = lens _pspScalingAdjustment (\ s a -> s{_pspScalingAdjustment = a});+pspScalingAdjustment = lens _pspScalingAdjustment (\ s a -> s{_pspScalingAdjustment = a})  -- | The amount of time, in seconds, after a scaling activity completes and before the next scaling activity can start. If this parameter is not specified, the default cooldown period for the group applies. This parameter is supported if the policy type is @SimpleScaling@ . For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/ . pspCooldown :: Lens' PutScalingPolicy (Maybe Int)-pspCooldown = lens _pspCooldown (\ s a -> s{_pspCooldown = a});+pspCooldown = lens _pspCooldown (\ s a -> s{_pspCooldown = a})  -- | The aggregation type for the CloudWatch metrics. The valid values are @Minimum@ , @Maximum@ , and @Average@ . If the aggregation type is null, the value is treated as @Average@ . This parameter is supported if the policy type is @StepScaling@ . pspMetricAggregationType :: Lens' PutScalingPolicy (Maybe Text)-pspMetricAggregationType = lens _pspMetricAggregationType (\ s a -> s{_pspMetricAggregationType = a});+pspMetricAggregationType = lens _pspMetricAggregationType (\ s a -> s{_pspMetricAggregationType = a})  -- | The minimum number of instances to scale. If the value of @AdjustmentType@ is @PercentChangeInCapacity@ , the scaling policy changes the @DesiredCapacity@ of the Auto Scaling group by at least this many instances. Otherwise, the error is @ValidationError@ . This parameter is supported if the policy type is @SimpleScaling@ or @StepScaling@ . pspMinAdjustmentMagnitude :: Lens' PutScalingPolicy (Maybe Int)-pspMinAdjustmentMagnitude = lens _pspMinAdjustmentMagnitude (\ s a -> s{_pspMinAdjustmentMagnitude = a});+pspMinAdjustmentMagnitude = lens _pspMinAdjustmentMagnitude (\ s a -> s{_pspMinAdjustmentMagnitude = a}) --- | The name or ARN of the group.+-- | The name of the Auto Scaling group. pspAutoScalingGroupName :: Lens' PutScalingPolicy Text-pspAutoScalingGroupName = lens _pspAutoScalingGroupName (\ s a -> s{_pspAutoScalingGroupName = a});+pspAutoScalingGroupName = lens _pspAutoScalingGroupName (\ s a -> s{_pspAutoScalingGroupName = a})  -- | The name of the policy. pspPolicyName :: Lens' PutScalingPolicy Text-pspPolicyName = lens _pspPolicyName (\ s a -> s{_pspPolicyName = a});+pspPolicyName = lens _pspPolicyName (\ s a -> s{_pspPolicyName = a})  instance AWSRequest PutScalingPolicy where         type Rs PutScalingPolicy = PutScalingPolicyResponse@@ -242,22 +242,22 @@     -> PutScalingPolicyResponse putScalingPolicyResponse pResponseStatus_ =   PutScalingPolicyResponse'-  { _psprsPolicyARN = Nothing-  , _psprsAlarms = Nothing-  , _psprsResponseStatus = pResponseStatus_-  }+    { _psprsPolicyARN = Nothing+    , _psprsAlarms = Nothing+    , _psprsResponseStatus = pResponseStatus_+    }   -- | The Amazon Resource Name (ARN) of the policy. psprsPolicyARN :: Lens' PutScalingPolicyResponse (Maybe Text)-psprsPolicyARN = lens _psprsPolicyARN (\ s a -> s{_psprsPolicyARN = a});+psprsPolicyARN = lens _psprsPolicyARN (\ s a -> s{_psprsPolicyARN = a})  -- | The CloudWatch alarms created for the target tracking policy. psprsAlarms :: Lens' PutScalingPolicyResponse [Alarm]-psprsAlarms = lens _psprsAlarms (\ s a -> s{_psprsAlarms = a}) . _Default . _Coerce;+psprsAlarms = lens _psprsAlarms (\ s a -> s{_psprsAlarms = a}) . _Default . _Coerce  -- | -- | The response status code. psprsResponseStatus :: Lens' PutScalingPolicyResponse Int-psprsResponseStatus = lens _psprsResponseStatus (\ s a -> s{_psprsResponseStatus = a});+psprsResponseStatus = lens _psprsResponseStatus (\ s a -> s{_psprsResponseStatus = a})  instance NFData PutScalingPolicyResponse where

gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.PutScheduledUpdateGroupAction--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -83,7 +83,7 @@ -- -- * 'psugaEndTime' - The time for the recurring schedule to end. Auto Scaling does not perform the action after this time. ----- * 'psugaAutoScalingGroupName' - The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- * 'psugaAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'psugaScheduledActionName' - The name of this scaling action. putScheduledUpdateGroupAction@@ -92,53 +92,53 @@     -> PutScheduledUpdateGroupAction putScheduledUpdateGroupAction pAutoScalingGroupName_ pScheduledActionName_ =   PutScheduledUpdateGroupAction'-  { _psugaStartTime = Nothing-  , _psugaTime = Nothing-  , _psugaMaxSize = Nothing-  , _psugaRecurrence = Nothing-  , _psugaDesiredCapacity = Nothing-  , _psugaMinSize = Nothing-  , _psugaEndTime = Nothing-  , _psugaAutoScalingGroupName = pAutoScalingGroupName_-  , _psugaScheduledActionName = pScheduledActionName_-  }+    { _psugaStartTime = Nothing+    , _psugaTime = Nothing+    , _psugaMaxSize = Nothing+    , _psugaRecurrence = Nothing+    , _psugaDesiredCapacity = Nothing+    , _psugaMinSize = Nothing+    , _psugaEndTime = Nothing+    , _psugaAutoScalingGroupName = pAutoScalingGroupName_+    , _psugaScheduledActionName = pScheduledActionName_+    }   -- | The time for this action to start, in "YYYY-MM-DDThh:mm:ssZ" format in UTC/GMT only (for example, @2014-06-01T00:00:00Z@ ). If you specify @Recurrence@ and @StartTime@ , Auto Scaling performs the action at this time, and then performs the action based on the specified recurrence. If you try to schedule your action in the past, Auto Scaling returns an error message. psugaStartTime :: Lens' PutScheduledUpdateGroupAction (Maybe UTCTime)-psugaStartTime = lens _psugaStartTime (\ s a -> s{_psugaStartTime = a}) . mapping _Time;+psugaStartTime = lens _psugaStartTime (\ s a -> s{_psugaStartTime = a}) . mapping _Time  -- | This parameter is deprecated. psugaTime :: Lens' PutScheduledUpdateGroupAction (Maybe UTCTime)-psugaTime = lens _psugaTime (\ s a -> s{_psugaTime = a}) . mapping _Time;+psugaTime = lens _psugaTime (\ s a -> s{_psugaTime = a}) . mapping _Time  -- | The maximum size for the Auto Scaling group. psugaMaxSize :: Lens' PutScheduledUpdateGroupAction (Maybe Int)-psugaMaxSize = lens _psugaMaxSize (\ s a -> s{_psugaMaxSize = a});+psugaMaxSize = lens _psugaMaxSize (\ s a -> s{_psugaMaxSize = a})  -- | The recurring schedule for this action, in Unix cron syntax format. For more information, see <http://en.wikipedia.org/wiki/Cron Cron> in Wikipedia. psugaRecurrence :: Lens' PutScheduledUpdateGroupAction (Maybe Text)-psugaRecurrence = lens _psugaRecurrence (\ s a -> s{_psugaRecurrence = a});+psugaRecurrence = lens _psugaRecurrence (\ s a -> s{_psugaRecurrence = a})  -- | The number of EC2 instances that should be running in the group. psugaDesiredCapacity :: Lens' PutScheduledUpdateGroupAction (Maybe Int)-psugaDesiredCapacity = lens _psugaDesiredCapacity (\ s a -> s{_psugaDesiredCapacity = a});+psugaDesiredCapacity = lens _psugaDesiredCapacity (\ s a -> s{_psugaDesiredCapacity = a})  -- | The minimum size for the Auto Scaling group. psugaMinSize :: Lens' PutScheduledUpdateGroupAction (Maybe Int)-psugaMinSize = lens _psugaMinSize (\ s a -> s{_psugaMinSize = a});+psugaMinSize = lens _psugaMinSize (\ s a -> s{_psugaMinSize = a})  -- | The time for the recurring schedule to end. Auto Scaling does not perform the action after this time. psugaEndTime :: Lens' PutScheduledUpdateGroupAction (Maybe UTCTime)-psugaEndTime = lens _psugaEndTime (\ s a -> s{_psugaEndTime = a}) . mapping _Time;+psugaEndTime = lens _psugaEndTime (\ s a -> s{_psugaEndTime = a}) . mapping _Time --- | The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- | The name of the Auto Scaling group. psugaAutoScalingGroupName :: Lens' PutScheduledUpdateGroupAction Text-psugaAutoScalingGroupName = lens _psugaAutoScalingGroupName (\ s a -> s{_psugaAutoScalingGroupName = a});+psugaAutoScalingGroupName = lens _psugaAutoScalingGroupName (\ s a -> s{_psugaAutoScalingGroupName = a})  -- | The name of this scaling action. psugaScheduledActionName :: Lens' PutScheduledUpdateGroupAction Text-psugaScheduledActionName = lens _psugaScheduledActionName (\ s a -> s{_psugaScheduledActionName = a});+psugaScheduledActionName = lens _psugaScheduledActionName (\ s a -> s{_psugaScheduledActionName = a})  instance AWSRequest PutScheduledUpdateGroupAction          where

gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.RecordLifecycleActionHeartbeat--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,35 +81,35 @@ -- -- * 'rlahLifecycleHookName' - The name of the lifecycle hook. ----- * 'rlahAutoScalingGroupName' - The name of the Auto Scaling group for the hook.+-- * 'rlahAutoScalingGroupName' - The name of the Auto Scaling group. recordLifecycleActionHeartbeat     :: Text -- ^ 'rlahLifecycleHookName'     -> Text -- ^ 'rlahAutoScalingGroupName'     -> RecordLifecycleActionHeartbeat recordLifecycleActionHeartbeat pLifecycleHookName_ pAutoScalingGroupName_ =   RecordLifecycleActionHeartbeat'-  { _rlahInstanceId = Nothing-  , _rlahLifecycleActionToken = Nothing-  , _rlahLifecycleHookName = pLifecycleHookName_-  , _rlahAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _rlahInstanceId = Nothing+    , _rlahLifecycleActionToken = Nothing+    , _rlahLifecycleHookName = pLifecycleHookName_+    , _rlahAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | The ID of the instance. rlahInstanceId :: Lens' RecordLifecycleActionHeartbeat (Maybe Text)-rlahInstanceId = lens _rlahInstanceId (\ s a -> s{_rlahInstanceId = a});+rlahInstanceId = lens _rlahInstanceId (\ s a -> s{_rlahInstanceId = a})  -- | A token that uniquely identifies a specific lifecycle action associated with an instance. Auto Scaling sends this token to the notification target you specified when you created the lifecycle hook. rlahLifecycleActionToken :: Lens' RecordLifecycleActionHeartbeat (Maybe Text)-rlahLifecycleActionToken = lens _rlahLifecycleActionToken (\ s a -> s{_rlahLifecycleActionToken = a});+rlahLifecycleActionToken = lens _rlahLifecycleActionToken (\ s a -> s{_rlahLifecycleActionToken = a})  -- | The name of the lifecycle hook. rlahLifecycleHookName :: Lens' RecordLifecycleActionHeartbeat Text-rlahLifecycleHookName = lens _rlahLifecycleHookName (\ s a -> s{_rlahLifecycleHookName = a});+rlahLifecycleHookName = lens _rlahLifecycleHookName (\ s a -> s{_rlahLifecycleHookName = a}) --- | The name of the Auto Scaling group for the hook.+-- | The name of the Auto Scaling group. rlahAutoScalingGroupName :: Lens' RecordLifecycleActionHeartbeat Text-rlahAutoScalingGroupName = lens _rlahAutoScalingGroupName (\ s a -> s{_rlahAutoScalingGroupName = a});+rlahAutoScalingGroupName = lens _rlahAutoScalingGroupName (\ s a -> s{_rlahAutoScalingGroupName = a})  instance AWSRequest RecordLifecycleActionHeartbeat          where@@ -162,12 +162,12 @@     -> RecordLifecycleActionHeartbeatResponse recordLifecycleActionHeartbeatResponse pResponseStatus_ =   RecordLifecycleActionHeartbeatResponse'-  {_rlahrsResponseStatus = pResponseStatus_}+    {_rlahrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. rlahrsResponseStatus :: Lens' RecordLifecycleActionHeartbeatResponse Int-rlahrsResponseStatus = lens _rlahrsResponseStatus (\ s a -> s{_rlahrsResponseStatus = a});+rlahrsResponseStatus = lens _rlahrsResponseStatus (\ s a -> s{_rlahrsResponseStatus = a})  instance NFData            RecordLifecycleActionHeartbeatResponse

gen/Network/AWS/AutoScaling/ResumeProcesses.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.ResumeProcesses--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,24 +57,24 @@ -- -- * 'rpScalingProcesses' - One or more of the following processes. If you omit this parameter, all processes are specified.     * @Launch@      * @Terminate@      * @HealthCheck@      * @ReplaceUnhealthy@      * @AZRebalance@      * @AlarmNotification@      * @ScheduledActions@      * @AddToLoadBalancer@ ----- * 'rpAutoScalingGroupName' - The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- * 'rpAutoScalingGroupName' - The name of the Auto Scaling group. resumeProcesses     :: Text -- ^ 'rpAutoScalingGroupName'     -> ResumeProcesses resumeProcesses pAutoScalingGroupName_ =   ResumeProcesses'-  { _rpScalingProcesses = Nothing-  , _rpAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _rpScalingProcesses = Nothing+    , _rpAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | One or more of the following processes. If you omit this parameter, all processes are specified.     * @Launch@      * @Terminate@      * @HealthCheck@      * @ReplaceUnhealthy@      * @AZRebalance@      * @AlarmNotification@      * @ScheduledActions@      * @AddToLoadBalancer@ rpScalingProcesses :: Lens' ResumeProcesses [Text]-rpScalingProcesses = lens _rpScalingProcesses (\ s a -> s{_rpScalingProcesses = a}) . _Default . _Coerce;+rpScalingProcesses = lens _rpScalingProcesses (\ s a -> s{_rpScalingProcesses = a}) . _Default . _Coerce --- | The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- | The name of the Auto Scaling group. rpAutoScalingGroupName :: Lens' ResumeProcesses Text-rpAutoScalingGroupName = lens _rpAutoScalingGroupName (\ s a -> s{_rpAutoScalingGroupName = a});+rpAutoScalingGroupName = lens _rpAutoScalingGroupName (\ s a -> s{_rpAutoScalingGroupName = a})  instance AWSRequest ResumeProcesses where         type Rs ResumeProcesses = ResumeProcessesResponse

gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.SetDesiredCapacity--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sdcHonorCooldown' - By default, @SetDesiredCapacity@ overrides any cooldown period associated with the Auto Scaling group. Specify @True@ to make Auto Scaling to wait for the cool-down period associated with the Auto Scaling group to complete before initiating a scaling activity to set your Auto Scaling group to its new capacity.+-- * 'sdcHonorCooldown' - Indicates whether Auto Scaling waits for the cooldown period to complete before initiating a scaling activity to set your Auto Scaling group to its new capacity. By default, Auto Scaling does not honor the cooldown period during manual scaling activities. -- -- * 'sdcAutoScalingGroupName' - The name of the Auto Scaling group. --@@ -68,23 +68,23 @@     -> SetDesiredCapacity setDesiredCapacity pAutoScalingGroupName_ pDesiredCapacity_ =   SetDesiredCapacity'-  { _sdcHonorCooldown = Nothing-  , _sdcAutoScalingGroupName = pAutoScalingGroupName_-  , _sdcDesiredCapacity = pDesiredCapacity_-  }+    { _sdcHonorCooldown = Nothing+    , _sdcAutoScalingGroupName = pAutoScalingGroupName_+    , _sdcDesiredCapacity = pDesiredCapacity_+    }  --- | By default, @SetDesiredCapacity@ overrides any cooldown period associated with the Auto Scaling group. Specify @True@ to make Auto Scaling to wait for the cool-down period associated with the Auto Scaling group to complete before initiating a scaling activity to set your Auto Scaling group to its new capacity.+-- | Indicates whether Auto Scaling waits for the cooldown period to complete before initiating a scaling activity to set your Auto Scaling group to its new capacity. By default, Auto Scaling does not honor the cooldown period during manual scaling activities. sdcHonorCooldown :: Lens' SetDesiredCapacity (Maybe Bool)-sdcHonorCooldown = lens _sdcHonorCooldown (\ s a -> s{_sdcHonorCooldown = a});+sdcHonorCooldown = lens _sdcHonorCooldown (\ s a -> s{_sdcHonorCooldown = a})  -- | The name of the Auto Scaling group. sdcAutoScalingGroupName :: Lens' SetDesiredCapacity Text-sdcAutoScalingGroupName = lens _sdcAutoScalingGroupName (\ s a -> s{_sdcAutoScalingGroupName = a});+sdcAutoScalingGroupName = lens _sdcAutoScalingGroupName (\ s a -> s{_sdcAutoScalingGroupName = a})  -- | The number of EC2 instances that should be running in the Auto Scaling group. sdcDesiredCapacity :: Lens' SetDesiredCapacity Int-sdcDesiredCapacity = lens _sdcDesiredCapacity (\ s a -> s{_sdcDesiredCapacity = a});+sdcDesiredCapacity = lens _sdcDesiredCapacity (\ s a -> s{_sdcDesiredCapacity = a})  instance AWSRequest SetDesiredCapacity where         type Rs SetDesiredCapacity =

gen/Network/AWS/AutoScaling/SetInstanceHealth.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.SetInstanceHealth--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,23 +68,23 @@     -> SetInstanceHealth setInstanceHealth pInstanceId_ pHealthStatus_ =   SetInstanceHealth'-  { _sihShouldRespectGracePeriod = Nothing-  , _sihInstanceId = pInstanceId_-  , _sihHealthStatus = pHealthStatus_-  }+    { _sihShouldRespectGracePeriod = Nothing+    , _sihInstanceId = pInstanceId_+    , _sihHealthStatus = pHealthStatus_+    }   -- | If the Auto Scaling group of the specified instance has a @HealthCheckGracePeriod@ specified for the group, by default, this call will respect the grace period. Set this to @False@ , if you do not want the call to respect the grace period associated with the group. For more information, see the description of the health check grace period for 'CreateAutoScalingGroup' . sihShouldRespectGracePeriod :: Lens' SetInstanceHealth (Maybe Bool)-sihShouldRespectGracePeriod = lens _sihShouldRespectGracePeriod (\ s a -> s{_sihShouldRespectGracePeriod = a});+sihShouldRespectGracePeriod = lens _sihShouldRespectGracePeriod (\ s a -> s{_sihShouldRespectGracePeriod = a})  -- | The ID of the instance. sihInstanceId :: Lens' SetInstanceHealth Text-sihInstanceId = lens _sihInstanceId (\ s a -> s{_sihInstanceId = a});+sihInstanceId = lens _sihInstanceId (\ s a -> s{_sihInstanceId = a})  -- | The health status of the instance. Set to @Healthy@ if you want the instance to remain in service. Set to @Unhealthy@ if you want the instance to be out of service. Auto Scaling will terminate and replace the unhealthy instance. sihHealthStatus :: Lens' SetInstanceHealth Text-sihHealthStatus = lens _sihHealthStatus (\ s a -> s{_sihHealthStatus = a});+sihHealthStatus = lens _sihHealthStatus (\ s a -> s{_sihHealthStatus = a})  instance AWSRequest SetInstanceHealth where         type Rs SetInstanceHealth = SetInstanceHealthResponse

gen/Network/AWS/AutoScaling/SetInstanceProtection.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.SetInstanceProtection--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- -- * 'sipInstanceIds' - One or more instance IDs. ----- * 'sipAutoScalingGroupName' - The name of the group.+-- * 'sipAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'sipProtectedFromScaleIn' - Indicates whether the instance is protected from termination by Auto Scaling when scaling in. setInstanceProtection@@ -70,23 +70,23 @@     -> SetInstanceProtection setInstanceProtection pAutoScalingGroupName_ pProtectedFromScaleIn_ =   SetInstanceProtection'-  { _sipInstanceIds = mempty-  , _sipAutoScalingGroupName = pAutoScalingGroupName_-  , _sipProtectedFromScaleIn = pProtectedFromScaleIn_-  }+    { _sipInstanceIds = mempty+    , _sipAutoScalingGroupName = pAutoScalingGroupName_+    , _sipProtectedFromScaleIn = pProtectedFromScaleIn_+    }   -- | One or more instance IDs. sipInstanceIds :: Lens' SetInstanceProtection [Text]-sipInstanceIds = lens _sipInstanceIds (\ s a -> s{_sipInstanceIds = a}) . _Coerce;+sipInstanceIds = lens _sipInstanceIds (\ s a -> s{_sipInstanceIds = a}) . _Coerce --- | The name of the group.+-- | The name of the Auto Scaling group. sipAutoScalingGroupName :: Lens' SetInstanceProtection Text-sipAutoScalingGroupName = lens _sipAutoScalingGroupName (\ s a -> s{_sipAutoScalingGroupName = a});+sipAutoScalingGroupName = lens _sipAutoScalingGroupName (\ s a -> s{_sipAutoScalingGroupName = a})  -- | Indicates whether the instance is protected from termination by Auto Scaling when scaling in. sipProtectedFromScaleIn :: Lens' SetInstanceProtection Bool-sipProtectedFromScaleIn = lens _sipProtectedFromScaleIn (\ s a -> s{_sipProtectedFromScaleIn = a});+sipProtectedFromScaleIn = lens _sipProtectedFromScaleIn (\ s a -> s{_sipProtectedFromScaleIn = a})  instance AWSRequest SetInstanceProtection where         type Rs SetInstanceProtection =@@ -138,6 +138,6 @@  -- | -- | The response status code. siprsResponseStatus :: Lens' SetInstanceProtectionResponse Int-siprsResponseStatus = lens _siprsResponseStatus (\ s a -> s{_siprsResponseStatus = a});+siprsResponseStatus = lens _siprsResponseStatus (\ s a -> s{_siprsResponseStatus = a})  instance NFData SetInstanceProtectionResponse where

gen/Network/AWS/AutoScaling/SuspendProcesses.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.SuspendProcesses--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,24 +61,24 @@ -- -- * 'spScalingProcesses' - One or more of the following processes. If you omit this parameter, all processes are specified.     * @Launch@      * @Terminate@      * @HealthCheck@      * @ReplaceUnhealthy@      * @AZRebalance@      * @AlarmNotification@      * @ScheduledActions@      * @AddToLoadBalancer@ ----- * 'spAutoScalingGroupName' - The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- * 'spAutoScalingGroupName' - The name of the Auto Scaling group. suspendProcesses     :: Text -- ^ 'spAutoScalingGroupName'     -> SuspendProcesses suspendProcesses pAutoScalingGroupName_ =   SuspendProcesses'-  { _spScalingProcesses = Nothing-  , _spAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _spScalingProcesses = Nothing+    , _spAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | One or more of the following processes. If you omit this parameter, all processes are specified.     * @Launch@      * @Terminate@      * @HealthCheck@      * @ReplaceUnhealthy@      * @AZRebalance@      * @AlarmNotification@      * @ScheduledActions@      * @AddToLoadBalancer@ spScalingProcesses :: Lens' SuspendProcesses [Text]-spScalingProcesses = lens _spScalingProcesses (\ s a -> s{_spScalingProcesses = a}) . _Default . _Coerce;+spScalingProcesses = lens _spScalingProcesses (\ s a -> s{_spScalingProcesses = a}) . _Default . _Coerce --- | The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- | The name of the Auto Scaling group. spAutoScalingGroupName :: Lens' SuspendProcesses Text-spAutoScalingGroupName = lens _spAutoScalingGroupName (\ s a -> s{_spAutoScalingGroupName = a});+spAutoScalingGroupName = lens _spAutoScalingGroupName (\ s a -> s{_spAutoScalingGroupName = a})  instance AWSRequest SuspendProcesses where         type Rs SuspendProcesses = SuspendProcessesResponse

gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -60,25 +60,25 @@ -- -- * 'tiiasgInstanceId' - The ID of the instance. ----- * 'tiiasgShouldDecrementDesiredCapacity' - If @true@ , terminating the instance also decrements the size of the Auto Scaling group.+-- * 'tiiasgShouldDecrementDesiredCapacity' - Indicates whether terminating the instance also decrements the size of the Auto Scaling group. terminateInstanceInAutoScalingGroup     :: Text -- ^ 'tiiasgInstanceId'     -> Bool -- ^ 'tiiasgShouldDecrementDesiredCapacity'     -> TerminateInstanceInAutoScalingGroup terminateInstanceInAutoScalingGroup pInstanceId_ pShouldDecrementDesiredCapacity_ =   TerminateInstanceInAutoScalingGroup'-  { _tiiasgInstanceId = pInstanceId_-  , _tiiasgShouldDecrementDesiredCapacity = pShouldDecrementDesiredCapacity_-  }+    { _tiiasgInstanceId = pInstanceId_+    , _tiiasgShouldDecrementDesiredCapacity = pShouldDecrementDesiredCapacity_+    }   -- | The ID of the instance. tiiasgInstanceId :: Lens' TerminateInstanceInAutoScalingGroup Text-tiiasgInstanceId = lens _tiiasgInstanceId (\ s a -> s{_tiiasgInstanceId = a});+tiiasgInstanceId = lens _tiiasgInstanceId (\ s a -> s{_tiiasgInstanceId = a}) --- | If @true@ , terminating the instance also decrements the size of the Auto Scaling group.+-- | Indicates whether terminating the instance also decrements the size of the Auto Scaling group. tiiasgShouldDecrementDesiredCapacity :: Lens' TerminateInstanceInAutoScalingGroup Bool-tiiasgShouldDecrementDesiredCapacity = lens _tiiasgShouldDecrementDesiredCapacity (\ s a -> s{_tiiasgShouldDecrementDesiredCapacity = a});+tiiasgShouldDecrementDesiredCapacity = lens _tiiasgShouldDecrementDesiredCapacity (\ s a -> s{_tiiasgShouldDecrementDesiredCapacity = a})  instance AWSRequest            TerminateInstanceInAutoScalingGroup@@ -139,16 +139,16 @@     -> TerminateInstanceInAutoScalingGroupResponse terminateInstanceInAutoScalingGroupResponse pResponseStatus_ =   TerminateInstanceInAutoScalingGroupResponse'-  {_tiiasgrsActivity = Nothing, _tiiasgrsResponseStatus = pResponseStatus_}+    {_tiiasgrsActivity = Nothing, _tiiasgrsResponseStatus = pResponseStatus_}   -- | A scaling activity. tiiasgrsActivity :: Lens' TerminateInstanceInAutoScalingGroupResponse (Maybe Activity)-tiiasgrsActivity = lens _tiiasgrsActivity (\ s a -> s{_tiiasgrsActivity = a});+tiiasgrsActivity = lens _tiiasgrsActivity (\ s a -> s{_tiiasgrsActivity = a})  -- | -- | The response status code. tiiasgrsResponseStatus :: Lens' TerminateInstanceInAutoScalingGroupResponse Int-tiiasgrsResponseStatus = lens _tiiasgrsResponseStatus (\ s a -> s{_tiiasgrsResponseStatus = a});+tiiasgrsResponseStatus = lens _tiiasgrsResponseStatus (\ s a -> s{_tiiasgrsResponseStatus = a})  instance NFData            TerminateInstanceInAutoScalingGroupResponse

gen/Network/AWS/AutoScaling/Types.hs view

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.AutoScaling.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -22,6 +22,7 @@     , _InvalidNextToken     , _ScalingActivityInProgressFault     , _ResourceContentionFault+    , _ServiceLinkedRoleFailure      -- * LifecycleState     , LifecycleState (..)@@ -66,12 +67,14 @@     , asgStatus     , asgTerminationPolicies     , asgHealthCheckGracePeriod+    , asgServiceLinkedRoleARN     , asgNewInstancesProtectedFromScaleIn     , asgVPCZoneIdentifier     , asgTargetGroupARNs     , asgEnabledMetrics     , asgLaunchConfigurationName     , asgInstances+    , asgLaunchTemplate     , asgAutoScalingGroupARN     , asgPlacementGroup     , asgSuspendedProcesses@@ -90,6 +93,7 @@     , AutoScalingInstanceDetails     , autoScalingInstanceDetails     , asidLaunchConfigurationName+    , asidLaunchTemplate     , asidInstanceId     , asidAutoScalingGroupName     , asidAvailabilityZone@@ -140,6 +144,7 @@     , Instance     , instance'     , iLaunchConfigurationName+    , iLaunchTemplate     , iInstanceId     , iAvailabilityZone     , iLifecycleState@@ -174,6 +179,13 @@     , lcInstanceType     , lcCreatedTime +    -- * LaunchTemplateSpecification+    , LaunchTemplateSpecification+    , launchTemplateSpecification+    , ltsLaunchTemplateName+    , ltsLaunchTemplateId+    , ltsVersion+     -- * LifecycleHook     , LifecycleHook     , lifecycleHook@@ -194,9 +206,9 @@     , lhsHeartbeatTimeout     , lhsNotificationMetadata     , lhsNotificationTargetARN-    , lhsLifecycleTransition     , lhsRoleARN     , lhsLifecycleHookName+    , lhsLifecycleTransition      -- * LoadBalancerState     , LoadBalancerState@@ -332,24 +344,24 @@ autoScaling :: Service autoScaling =   Service-  { _svcAbbrev = "AutoScaling"-  , _svcSigner = v4-  , _svcPrefix = "autoscaling"-  , _svcVersion = "2011-01-01"-  , _svcEndpoint = defaultEndpoint autoScaling-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseXMLError "AutoScaling"-  , _svcRetry = retry-  }+    { _svcAbbrev = "AutoScaling"+    , _svcSigner = v4+    , _svcPrefix = "autoscaling"+    , _svcVersion = "2011-01-01"+    , _svcEndpoint = defaultEndpoint autoScaling+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError "AutoScaling"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -358,6 +370,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -411,4 +425,12 @@ _ResourceContentionFault :: AsError a => Getting (First ServiceError) a ServiceError _ResourceContentionFault =   _MatchServiceError autoScaling "ResourceContention" . hasStatus 500+++-- | The service-linked role is not yet ready for use.+--+--+_ServiceLinkedRoleFailure :: AsError a => Getting (First ServiceError) a ServiceError+_ServiceLinkedRoleFailure =+  _MatchServiceError autoScaling "ServiceLinkedRoleFailure" . hasStatus 500

gen/Network/AWS/AutoScaling/Types/Product.hs view

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.AutoScaling.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,58 +72,58 @@     -> Activity activity pActivityId_ pAutoScalingGroupName_ pCause_ pStartTime_ pStatusCode_ =   Activity'-  { _aProgress = Nothing-  , _aStatusMessage = Nothing-  , _aEndTime = Nothing-  , _aDetails = Nothing-  , _aDescription = Nothing-  , _aActivityId = pActivityId_-  , _aAutoScalingGroupName = pAutoScalingGroupName_-  , _aCause = pCause_-  , _aStartTime = _Time # pStartTime_-  , _aStatusCode = pStatusCode_-  }+    { _aProgress = Nothing+    , _aStatusMessage = Nothing+    , _aEndTime = Nothing+    , _aDetails = Nothing+    , _aDescription = Nothing+    , _aActivityId = pActivityId_+    , _aAutoScalingGroupName = pAutoScalingGroupName_+    , _aCause = pCause_+    , _aStartTime = _Time # pStartTime_+    , _aStatusCode = pStatusCode_+    }   -- | A value between 0 and 100 that indicates the progress of the activity. aProgress :: Lens' Activity (Maybe Int)-aProgress = lens _aProgress (\ s a -> s{_aProgress = a});+aProgress = lens _aProgress (\ s a -> s{_aProgress = a})  -- | A friendly, more verbose description of the activity status. aStatusMessage :: Lens' Activity (Maybe Text)-aStatusMessage = lens _aStatusMessage (\ s a -> s{_aStatusMessage = a});+aStatusMessage = lens _aStatusMessage (\ s a -> s{_aStatusMessage = a})  -- | The end time of the activity. aEndTime :: Lens' Activity (Maybe UTCTime)-aEndTime = lens _aEndTime (\ s a -> s{_aEndTime = a}) . mapping _Time;+aEndTime = lens _aEndTime (\ s a -> s{_aEndTime = a}) . mapping _Time  -- | The details about the activity. aDetails :: Lens' Activity (Maybe Text)-aDetails = lens _aDetails (\ s a -> s{_aDetails = a});+aDetails = lens _aDetails (\ s a -> s{_aDetails = a})  -- | A friendly, more verbose description of the activity. aDescription :: Lens' Activity (Maybe Text)-aDescription = lens _aDescription (\ s a -> s{_aDescription = a});+aDescription = lens _aDescription (\ s a -> s{_aDescription = a})  -- | The ID of the activity. aActivityId :: Lens' Activity Text-aActivityId = lens _aActivityId (\ s a -> s{_aActivityId = a});+aActivityId = lens _aActivityId (\ s a -> s{_aActivityId = a})  -- | The name of the Auto Scaling group. aAutoScalingGroupName :: Lens' Activity Text-aAutoScalingGroupName = lens _aAutoScalingGroupName (\ s a -> s{_aAutoScalingGroupName = a});+aAutoScalingGroupName = lens _aAutoScalingGroupName (\ s a -> s{_aAutoScalingGroupName = a})  -- | The reason the activity began. aCause :: Lens' Activity Text-aCause = lens _aCause (\ s a -> s{_aCause = a});+aCause = lens _aCause (\ s a -> s{_aCause = a})  -- | The start time of the activity. aStartTime :: Lens' Activity UTCTime-aStartTime = lens _aStartTime (\ s a -> s{_aStartTime = a}) . _Time;+aStartTime = lens _aStartTime (\ s a -> s{_aStartTime = a}) . _Time  -- | The current status of the activity. aStatusCode :: Lens' Activity ScalingActivityStatusCode-aStatusCode = lens _aStatusCode (\ s a -> s{_aStatusCode = a});+aStatusCode = lens _aStatusCode (\ s a -> s{_aStatusCode = a})  instance FromXML Activity where         parseXML x@@ -166,7 +166,7 @@  -- | The policy adjustment type. The valid values are @ChangeInCapacity@ , @ExactCapacity@ , and @PercentChangeInCapacity@ . atAdjustmentType :: Lens' AdjustmentType (Maybe Text)-atAdjustmentType = lens _atAdjustmentType (\ s a -> s{_atAdjustmentType = a});+atAdjustmentType = lens _atAdjustmentType (\ s a -> s{_atAdjustmentType = a})  instance FromXML AdjustmentType where         parseXML x@@ -201,11 +201,11 @@  -- | The name of the alarm. aAlarmName :: Lens' Alarm (Maybe Text)-aAlarmName = lens _aAlarmName (\ s a -> s{_aAlarmName = a});+aAlarmName = lens _aAlarmName (\ s a -> s{_aAlarmName = a})  -- | The Amazon Resource Name (ARN) of the alarm. aAlarmARN :: Lens' Alarm (Maybe Text)-aAlarmARN = lens _aAlarmARN (\ s a -> s{_aAlarmARN = a});+aAlarmARN = lens _aAlarmARN (\ s a -> s{_aAlarmARN = a})  instance FromXML Alarm where         parseXML x@@ -225,12 +225,14 @@   { _asgStatus                           :: !(Maybe Text)   , _asgTerminationPolicies              :: !(Maybe [Text])   , _asgHealthCheckGracePeriod           :: !(Maybe Int)+  , _asgServiceLinkedRoleARN             :: !(Maybe Text)   , _asgNewInstancesProtectedFromScaleIn :: !(Maybe Bool)   , _asgVPCZoneIdentifier                :: !(Maybe Text)   , _asgTargetGroupARNs                  :: !(Maybe [Text])   , _asgEnabledMetrics                   :: !(Maybe [EnabledMetric])   , _asgLaunchConfigurationName          :: !(Maybe Text)   , _asgInstances                        :: !(Maybe [Instance])+  , _asgLaunchTemplate                   :: !(Maybe LaunchTemplateSpecification)   , _asgAutoScalingGroupARN              :: !(Maybe Text)   , _asgPlacementGroup                   :: !(Maybe Text)   , _asgSuspendedProcesses               :: !(Maybe [SuspendedProcess])@@ -257,6 +259,8 @@ -- -- * 'asgHealthCheckGracePeriod' - The amount of time, in seconds, that Auto Scaling waits before checking the health status of an EC2 instance that has come into service. --+-- * 'asgServiceLinkedRoleARN' - The Amazon Resource Name (ARN) of the service-linked role that the Auto Scaling group uses to call other AWS services on your behalf.+-- -- * 'asgNewInstancesProtectedFromScaleIn' - Indicates whether newly launched instances are protected from termination by Auto Scaling when scaling in. -- -- * 'asgVPCZoneIdentifier' - One or more subnet IDs, if applicable, separated by commas. If you specify @VPCZoneIdentifier@ and @AvailabilityZones@ , ensure that the Availability Zones of the subnets match the values for @AvailabilityZones@ .@@ -269,8 +273,10 @@ -- -- * 'asgInstances' - The EC2 instances associated with the group. ----- * 'asgAutoScalingGroupARN' - The Amazon Resource Name (ARN) of the group.+-- * 'asgLaunchTemplate' - The launch template for the group. --+-- * 'asgAutoScalingGroupARN' - The Amazon Resource Name (ARN) of the Auto Scaling group.+-- -- * 'asgPlacementGroup' - The name of the placement group into which you'll launch your instances, if any. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement Groups> in the /Amazon Elastic Compute Cloud User Guide/ . -- -- * 'asgSuspendedProcesses' - The suspended processes associated with the group.@@ -279,7 +285,7 @@ -- -- * 'asgTags' - The tags for the group. ----- * 'asgAutoScalingGroupName' - The name of the group.+-- * 'asgAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'asgMinSize' - The minimum size of the group. --@@ -306,118 +312,128 @@     -> AutoScalingGroup autoScalingGroup pAutoScalingGroupName_ pMinSize_ pMaxSize_ pDesiredCapacity_ pDefaultCooldown_ pAvailabilityZones_ pHealthCheckType_ pCreatedTime_ =   AutoScalingGroup'-  { _asgStatus = Nothing-  , _asgTerminationPolicies = Nothing-  , _asgHealthCheckGracePeriod = Nothing-  , _asgNewInstancesProtectedFromScaleIn = Nothing-  , _asgVPCZoneIdentifier = Nothing-  , _asgTargetGroupARNs = Nothing-  , _asgEnabledMetrics = Nothing-  , _asgLaunchConfigurationName = Nothing-  , _asgInstances = Nothing-  , _asgAutoScalingGroupARN = Nothing-  , _asgPlacementGroup = Nothing-  , _asgSuspendedProcesses = Nothing-  , _asgLoadBalancerNames = Nothing-  , _asgTags = Nothing-  , _asgAutoScalingGroupName = pAutoScalingGroupName_-  , _asgMinSize = pMinSize_-  , _asgMaxSize = pMaxSize_-  , _asgDesiredCapacity = pDesiredCapacity_-  , _asgDefaultCooldown = pDefaultCooldown_-  , _asgAvailabilityZones = _List1 # pAvailabilityZones_-  , _asgHealthCheckType = pHealthCheckType_-  , _asgCreatedTime = _Time # pCreatedTime_-  }+    { _asgStatus = Nothing+    , _asgTerminationPolicies = Nothing+    , _asgHealthCheckGracePeriod = Nothing+    , _asgServiceLinkedRoleARN = Nothing+    , _asgNewInstancesProtectedFromScaleIn = Nothing+    , _asgVPCZoneIdentifier = Nothing+    , _asgTargetGroupARNs = Nothing+    , _asgEnabledMetrics = Nothing+    , _asgLaunchConfigurationName = Nothing+    , _asgInstances = Nothing+    , _asgLaunchTemplate = Nothing+    , _asgAutoScalingGroupARN = Nothing+    , _asgPlacementGroup = Nothing+    , _asgSuspendedProcesses = Nothing+    , _asgLoadBalancerNames = Nothing+    , _asgTags = Nothing+    , _asgAutoScalingGroupName = pAutoScalingGroupName_+    , _asgMinSize = pMinSize_+    , _asgMaxSize = pMaxSize_+    , _asgDesiredCapacity = pDesiredCapacity_+    , _asgDefaultCooldown = pDefaultCooldown_+    , _asgAvailabilityZones = _List1 # pAvailabilityZones_+    , _asgHealthCheckType = pHealthCheckType_+    , _asgCreatedTime = _Time # pCreatedTime_+    }   -- | The current state of the group when 'DeleteAutoScalingGroup' is in progress. asgStatus :: Lens' AutoScalingGroup (Maybe Text)-asgStatus = lens _asgStatus (\ s a -> s{_asgStatus = a});+asgStatus = lens _asgStatus (\ s a -> s{_asgStatus = a})  -- | The termination policies for the group. asgTerminationPolicies :: Lens' AutoScalingGroup [Text]-asgTerminationPolicies = lens _asgTerminationPolicies (\ s a -> s{_asgTerminationPolicies = a}) . _Default . _Coerce;+asgTerminationPolicies = lens _asgTerminationPolicies (\ s a -> s{_asgTerminationPolicies = 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. asgHealthCheckGracePeriod :: Lens' AutoScalingGroup (Maybe Int)-asgHealthCheckGracePeriod = lens _asgHealthCheckGracePeriod (\ s a -> s{_asgHealthCheckGracePeriod = a});+asgHealthCheckGracePeriod = lens _asgHealthCheckGracePeriod (\ s a -> s{_asgHealthCheckGracePeriod = a}) +-- | The Amazon Resource Name (ARN) of the service-linked role that the Auto Scaling group uses to call other AWS services on your behalf.+asgServiceLinkedRoleARN :: Lens' AutoScalingGroup (Maybe Text)+asgServiceLinkedRoleARN = lens _asgServiceLinkedRoleARN (\ s a -> s{_asgServiceLinkedRoleARN = a})+ -- | Indicates whether newly launched instances are protected from termination by Auto Scaling when scaling in. asgNewInstancesProtectedFromScaleIn :: Lens' AutoScalingGroup (Maybe Bool)-asgNewInstancesProtectedFromScaleIn = lens _asgNewInstancesProtectedFromScaleIn (\ s a -> s{_asgNewInstancesProtectedFromScaleIn = a});+asgNewInstancesProtectedFromScaleIn = lens _asgNewInstancesProtectedFromScaleIn (\ s a -> s{_asgNewInstancesProtectedFromScaleIn = a})  -- | One or more subnet IDs, if applicable, separated by commas. If you specify @VPCZoneIdentifier@ and @AvailabilityZones@ , ensure that the Availability Zones of the subnets match the values for @AvailabilityZones@ . asgVPCZoneIdentifier :: Lens' AutoScalingGroup (Maybe Text)-asgVPCZoneIdentifier = lens _asgVPCZoneIdentifier (\ s a -> s{_asgVPCZoneIdentifier = a});+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;+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;+asgEnabledMetrics = lens _asgEnabledMetrics (\ s a -> s{_asgEnabledMetrics = a}) . _Default . _Coerce  -- | The name of the associated launch configuration. asgLaunchConfigurationName :: Lens' AutoScalingGroup (Maybe Text)-asgLaunchConfigurationName = lens _asgLaunchConfigurationName (\ s a -> s{_asgLaunchConfigurationName = a});+asgLaunchConfigurationName = lens _asgLaunchConfigurationName (\ s a -> s{_asgLaunchConfigurationName = a})  -- | The EC2 instances associated with the group. asgInstances :: Lens' AutoScalingGroup [Instance]-asgInstances = lens _asgInstances (\ s a -> s{_asgInstances = a}) . _Default . _Coerce;+asgInstances = lens _asgInstances (\ s a -> s{_asgInstances = a}) . _Default . _Coerce --- | The Amazon Resource Name (ARN) of the group.+-- | The launch template for the group.+asgLaunchTemplate :: Lens' AutoScalingGroup (Maybe LaunchTemplateSpecification)+asgLaunchTemplate = lens _asgLaunchTemplate (\ s a -> s{_asgLaunchTemplate = a})++-- | The Amazon Resource Name (ARN) of the Auto Scaling group. asgAutoScalingGroupARN :: Lens' AutoScalingGroup (Maybe Text)-asgAutoScalingGroupARN = lens _asgAutoScalingGroupARN (\ s a -> s{_asgAutoScalingGroupARN = a});+asgAutoScalingGroupARN = lens _asgAutoScalingGroupARN (\ s a -> s{_asgAutoScalingGroupARN = a})  -- | The name of the placement group into which you'll launch your instances, if any. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement Groups> in the /Amazon Elastic Compute Cloud User Guide/ . asgPlacementGroup :: Lens' AutoScalingGroup (Maybe Text)-asgPlacementGroup = lens _asgPlacementGroup (\ s a -> s{_asgPlacementGroup = a});+asgPlacementGroup = lens _asgPlacementGroup (\ s a -> s{_asgPlacementGroup = a})  -- | The suspended processes associated with the group. asgSuspendedProcesses :: Lens' AutoScalingGroup [SuspendedProcess]-asgSuspendedProcesses = lens _asgSuspendedProcesses (\ s a -> s{_asgSuspendedProcesses = a}) . _Default . _Coerce;+asgSuspendedProcesses = lens _asgSuspendedProcesses (\ s a -> s{_asgSuspendedProcesses = a}) . _Default . _Coerce  -- | One or more load balancers associated with the group. asgLoadBalancerNames :: Lens' AutoScalingGroup [Text]-asgLoadBalancerNames = lens _asgLoadBalancerNames (\ s a -> s{_asgLoadBalancerNames = a}) . _Default . _Coerce;+asgLoadBalancerNames = lens _asgLoadBalancerNames (\ s a -> s{_asgLoadBalancerNames = a}) . _Default . _Coerce  -- | The tags for the group. asgTags :: Lens' AutoScalingGroup [TagDescription]-asgTags = lens _asgTags (\ s a -> s{_asgTags = a}) . _Default . _Coerce;+asgTags = lens _asgTags (\ s a -> s{_asgTags = a}) . _Default . _Coerce --- | The name of the group.+-- | The name of the Auto Scaling group. asgAutoScalingGroupName :: Lens' AutoScalingGroup Text-asgAutoScalingGroupName = lens _asgAutoScalingGroupName (\ s a -> s{_asgAutoScalingGroupName = a});+asgAutoScalingGroupName = lens _asgAutoScalingGroupName (\ s a -> s{_asgAutoScalingGroupName = a})  -- | The minimum size of the group. asgMinSize :: Lens' AutoScalingGroup Int-asgMinSize = lens _asgMinSize (\ s a -> s{_asgMinSize = a});+asgMinSize = lens _asgMinSize (\ s a -> s{_asgMinSize = a})  -- | The maximum size of the group. asgMaxSize :: Lens' AutoScalingGroup Int-asgMaxSize = lens _asgMaxSize (\ s a -> s{_asgMaxSize = a});+asgMaxSize = lens _asgMaxSize (\ s a -> s{_asgMaxSize = a})  -- | The desired size of the group. asgDesiredCapacity :: Lens' AutoScalingGroup Int-asgDesiredCapacity = lens _asgDesiredCapacity (\ s a -> s{_asgDesiredCapacity = a});+asgDesiredCapacity = lens _asgDesiredCapacity (\ s a -> s{_asgDesiredCapacity = a})  -- | The amount of time, in seconds, after a scaling activity completes before another scaling activity can start. asgDefaultCooldown :: Lens' AutoScalingGroup Int-asgDefaultCooldown = lens _asgDefaultCooldown (\ s a -> s{_asgDefaultCooldown = a});+asgDefaultCooldown = lens _asgDefaultCooldown (\ s a -> s{_asgDefaultCooldown = a})  -- | One or more Availability Zones for the group. asgAvailabilityZones :: Lens' AutoScalingGroup (NonEmpty Text)-asgAvailabilityZones = lens _asgAvailabilityZones (\ s a -> s{_asgAvailabilityZones = a}) . _List1;+asgAvailabilityZones = lens _asgAvailabilityZones (\ s a -> s{_asgAvailabilityZones = a}) . _List1  -- | The service to use for the health checks. The valid values are @EC2@ and @ELB@ . asgHealthCheckType :: Lens' AutoScalingGroup Text-asgHealthCheckType = lens _asgHealthCheckType (\ s a -> s{_asgHealthCheckType = a});+asgHealthCheckType = lens _asgHealthCheckType (\ s a -> s{_asgHealthCheckType = a})  -- | The date and time the group was created. asgCreatedTime :: Lens' AutoScalingGroup UTCTime-asgCreatedTime = lens _asgCreatedTime (\ s a -> s{_asgCreatedTime = a}) . _Time;+asgCreatedTime = lens _asgCreatedTime (\ s a -> s{_asgCreatedTime = a}) . _Time  instance FromXML AutoScalingGroup where         parseXML x@@ -426,6 +442,7 @@                 (x .@? "TerminationPolicies" .!@ mempty >>=                    may (parseXMLList "member"))                 <*> (x .@? "HealthCheckGracePeriod")+                <*> (x .@? "ServiceLinkedRoleARN")                 <*> (x .@? "NewInstancesProtectedFromScaleIn")                 <*> (x .@? "VPCZoneIdentifier")                 <*>@@ -438,6 +455,7 @@                 <*>                 (x .@? "Instances" .!@ mempty >>=                    may (parseXMLList "member"))+                <*> (x .@? "LaunchTemplate")                 <*> (x .@? "AutoScalingGroupARN")                 <*> (x .@? "PlacementGroup")                 <*>@@ -471,6 +489,7 @@ -- /See:/ 'autoScalingInstanceDetails' smart constructor. data AutoScalingInstanceDetails = AutoScalingInstanceDetails'   { _asidLaunchConfigurationName :: !(Maybe Text)+  , _asidLaunchTemplate          :: !(Maybe LaunchTemplateSpecification)   , _asidInstanceId              :: !Text   , _asidAutoScalingGroupName    :: !Text   , _asidAvailabilityZone        :: !Text@@ -486,9 +505,11 @@ -- -- * 'asidLaunchConfigurationName' - The launch configuration used to launch the instance. This value is not available if you attached the instance to the Auto Scaling group. --+-- * 'asidLaunchTemplate' - The launch template for the instance.+-- -- * 'asidInstanceId' - The ID of the instance. ----- * 'asidAutoScalingGroupName' - The name of the Auto Scaling group associated with the instance.+-- * 'asidAutoScalingGroupName' - The name of the Auto Scaling group for the instance. -- -- * 'asidAvailabilityZone' - The Availability Zone for the instance. --@@ -507,49 +528,55 @@     -> AutoScalingInstanceDetails autoScalingInstanceDetails pInstanceId_ pAutoScalingGroupName_ pAvailabilityZone_ pLifecycleState_ pHealthStatus_ pProtectedFromScaleIn_ =   AutoScalingInstanceDetails'-  { _asidLaunchConfigurationName = Nothing-  , _asidInstanceId = pInstanceId_-  , _asidAutoScalingGroupName = pAutoScalingGroupName_-  , _asidAvailabilityZone = pAvailabilityZone_-  , _asidLifecycleState = pLifecycleState_-  , _asidHealthStatus = pHealthStatus_-  , _asidProtectedFromScaleIn = pProtectedFromScaleIn_-  }+    { _asidLaunchConfigurationName = Nothing+    , _asidLaunchTemplate = Nothing+    , _asidInstanceId = pInstanceId_+    , _asidAutoScalingGroupName = pAutoScalingGroupName_+    , _asidAvailabilityZone = pAvailabilityZone_+    , _asidLifecycleState = pLifecycleState_+    , _asidHealthStatus = pHealthStatus_+    , _asidProtectedFromScaleIn = pProtectedFromScaleIn_+    }   -- | The launch configuration used to launch the instance. This value is not available if you attached the instance to the Auto Scaling group. asidLaunchConfigurationName :: Lens' AutoScalingInstanceDetails (Maybe Text)-asidLaunchConfigurationName = lens _asidLaunchConfigurationName (\ s a -> s{_asidLaunchConfigurationName = a});+asidLaunchConfigurationName = lens _asidLaunchConfigurationName (\ s a -> s{_asidLaunchConfigurationName = a}) +-- | The launch template for the instance.+asidLaunchTemplate :: Lens' AutoScalingInstanceDetails (Maybe LaunchTemplateSpecification)+asidLaunchTemplate = lens _asidLaunchTemplate (\ s a -> s{_asidLaunchTemplate = a})+ -- | The ID of the instance. asidInstanceId :: Lens' AutoScalingInstanceDetails Text-asidInstanceId = lens _asidInstanceId (\ s a -> s{_asidInstanceId = a});+asidInstanceId = lens _asidInstanceId (\ s a -> s{_asidInstanceId = a}) --- | The name of the Auto Scaling group associated with the instance.+-- | The name of the Auto Scaling group for the instance. asidAutoScalingGroupName :: Lens' AutoScalingInstanceDetails Text-asidAutoScalingGroupName = lens _asidAutoScalingGroupName (\ s a -> s{_asidAutoScalingGroupName = a});+asidAutoScalingGroupName = lens _asidAutoScalingGroupName (\ s a -> s{_asidAutoScalingGroupName = a})  -- | The Availability Zone for the instance. asidAvailabilityZone :: Lens' AutoScalingInstanceDetails Text-asidAvailabilityZone = lens _asidAvailabilityZone (\ s a -> s{_asidAvailabilityZone = a});+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/userguide/AutoScalingGroupLifecycle.html Auto Scaling Lifecycle> in the /Auto Scaling User Guide/ . asidLifecycleState :: Lens' AutoScalingInstanceDetails Text-asidLifecycleState = lens _asidLifecycleState (\ s a -> s{_asidLifecycleState = a});+asidLifecycleState = lens _asidLifecycleState (\ s a -> s{_asidLifecycleState = a})  -- | 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});+asidHealthStatus = lens _asidHealthStatus (\ s a -> s{_asidHealthStatus = a})  -- | Indicates whether the instance is protected from termination by Auto Scaling when scaling in. asidProtectedFromScaleIn :: Lens' AutoScalingInstanceDetails Bool-asidProtectedFromScaleIn = lens _asidProtectedFromScaleIn (\ s a -> s{_asidProtectedFromScaleIn = a});+asidProtectedFromScaleIn = lens _asidProtectedFromScaleIn (\ s a -> s{_asidProtectedFromScaleIn = a})  instance FromXML AutoScalingInstanceDetails where         parseXML x           = AutoScalingInstanceDetails' <$>               (x .@? "LaunchConfigurationName") <*>-                (x .@ "InstanceId")+                (x .@? "LaunchTemplate")+                <*> (x .@ "InstanceId")                 <*> (x .@ "AutoScalingGroupName")                 <*> (x .@ "AvailabilityZone")                 <*> (x .@ "LifecycleState")@@ -589,28 +616,28 @@     -> BlockDeviceMapping blockDeviceMapping pDeviceName_ =   BlockDeviceMapping'-  { _bdmVirtualName = Nothing-  , _bdmNoDevice = Nothing-  , _bdmEBS = Nothing-  , _bdmDeviceName = pDeviceName_-  }+    { _bdmVirtualName = Nothing+    , _bdmNoDevice = Nothing+    , _bdmEBS = Nothing+    , _bdmDeviceName = pDeviceName_+    }   -- | The name of the virtual device (for example, @ephemeral0@ ). bdmVirtualName :: Lens' BlockDeviceMapping (Maybe Text)-bdmVirtualName = lens _bdmVirtualName (\ s a -> s{_bdmVirtualName = a});+bdmVirtualName = lens _bdmVirtualName (\ s a -> s{_bdmVirtualName = a})  -- | Suppresses a device mapping. If this parameter is true for the root device, the instance might fail the EC2 health check. Auto Scaling launches a replacement instance if the instance fails the health check. bdmNoDevice :: Lens' BlockDeviceMapping (Maybe Bool)-bdmNoDevice = lens _bdmNoDevice (\ s a -> s{_bdmNoDevice = a});+bdmNoDevice = lens _bdmNoDevice (\ s a -> s{_bdmNoDevice = a})  -- | The information about the Amazon EBS volume. bdmEBS :: Lens' BlockDeviceMapping (Maybe EBS)-bdmEBS = lens _bdmEBS (\ s a -> s{_bdmEBS = a});+bdmEBS = lens _bdmEBS (\ s a -> s{_bdmEBS = a})  -- | The device name exposed to the EC2 instance (for example, @/dev/sdh@ or @xvdh@ ). bdmDeviceName :: Lens' BlockDeviceMapping Text-bdmDeviceName = lens _bdmDeviceName (\ s a -> s{_bdmDeviceName = a});+bdmDeviceName = lens _bdmDeviceName (\ s a -> s{_bdmDeviceName = a})  instance FromXML BlockDeviceMapping where         parseXML x@@ -664,33 +691,33 @@     -> CustomizedMetricSpecification customizedMetricSpecification pMetricName_ pNamespace_ pStatistic_ =   CustomizedMetricSpecification'-  { _cmsDimensions = Nothing-  , _cmsUnit = Nothing-  , _cmsMetricName = pMetricName_-  , _cmsNamespace = pNamespace_-  , _cmsStatistic = pStatistic_-  }+    { _cmsDimensions = Nothing+    , _cmsUnit = Nothing+    , _cmsMetricName = pMetricName_+    , _cmsNamespace = pNamespace_+    , _cmsStatistic = pStatistic_+    }   -- | The dimensions of the metric. cmsDimensions :: Lens' CustomizedMetricSpecification [MetricDimension]-cmsDimensions = lens _cmsDimensions (\ s a -> s{_cmsDimensions = a}) . _Default . _Coerce;+cmsDimensions = lens _cmsDimensions (\ s a -> s{_cmsDimensions = a}) . _Default . _Coerce  -- | The unit of the metric. cmsUnit :: Lens' CustomizedMetricSpecification (Maybe Text)-cmsUnit = lens _cmsUnit (\ s a -> s{_cmsUnit = a});+cmsUnit = lens _cmsUnit (\ s a -> s{_cmsUnit = a})  -- | The name of the metric. cmsMetricName :: Lens' CustomizedMetricSpecification Text-cmsMetricName = lens _cmsMetricName (\ s a -> s{_cmsMetricName = a});+cmsMetricName = lens _cmsMetricName (\ s a -> s{_cmsMetricName = a})  -- | The namespace of the metric. cmsNamespace :: Lens' CustomizedMetricSpecification Text-cmsNamespace = lens _cmsNamespace (\ s a -> s{_cmsNamespace = a});+cmsNamespace = lens _cmsNamespace (\ s a -> s{_cmsNamespace = a})  -- | The statistic of the metric. cmsStatistic :: Lens' CustomizedMetricSpecification MetricStatistic-cmsStatistic = lens _cmsStatistic (\ s a -> s{_cmsStatistic = a});+cmsStatistic = lens _cmsStatistic (\ s a -> s{_cmsStatistic = a})  instance FromXML CustomizedMetricSpecification where         parseXML x@@ -734,7 +761,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ebsDeleteOnTermination' - Indicates whether the volume is deleted on instance termination. Default: @true@+-- * 'ebsDeleteOnTermination' - Indicates whether the volume is deleted on instance termination. The default is @true@ . -- -- * 'ebsVolumeSize' - The volume size, in GiB. For @standard@ volumes, specify a value from 1 to 1,024. For @io1@ volumes, specify a value from 4 to 16,384. For @gp2@ volumes, specify a value from 1 to 16,384. If you specify a snapshot, the volume size must be equal to or larger than the snapshot size. Default: If you create a volume from a snapshot and you don't specify a volume size, the default is the snapshot size. --@@ -749,38 +776,38 @@     :: EBS ebs =   EBS'-  { _ebsDeleteOnTermination = Nothing-  , _ebsVolumeSize = Nothing-  , _ebsIOPS = Nothing-  , _ebsEncrypted = Nothing-  , _ebsVolumeType = Nothing-  , _ebsSnapshotId = Nothing-  }+    { _ebsDeleteOnTermination = Nothing+    , _ebsVolumeSize = Nothing+    , _ebsIOPS = Nothing+    , _ebsEncrypted = Nothing+    , _ebsVolumeType = Nothing+    , _ebsSnapshotId = Nothing+    }  --- | Indicates whether the volume is deleted on instance termination. Default: @true@+-- | Indicates whether the volume is deleted on instance termination. The default is @true@ . ebsDeleteOnTermination :: Lens' EBS (Maybe Bool)-ebsDeleteOnTermination = lens _ebsDeleteOnTermination (\ s a -> s{_ebsDeleteOnTermination = a});+ebsDeleteOnTermination = lens _ebsDeleteOnTermination (\ s a -> s{_ebsDeleteOnTermination = a})  -- | The volume size, in GiB. For @standard@ volumes, specify a value from 1 to 1,024. For @io1@ volumes, specify a value from 4 to 16,384. For @gp2@ volumes, specify a value from 1 to 16,384. If you specify a snapshot, the volume size must be equal to or larger than the snapshot size. Default: If you create a volume from a snapshot and you don't specify a volume size, the default is the snapshot size. ebsVolumeSize :: Lens' EBS (Maybe Natural)-ebsVolumeSize = lens _ebsVolumeSize (\ s a -> s{_ebsVolumeSize = a}) . mapping _Nat;+ebsVolumeSize = lens _ebsVolumeSize (\ s a -> s{_ebsVolumeSize = a}) . mapping _Nat  -- | The number of I/O operations per second (IOPS) to provision for the volume. Constraint: Required when the volume type is @io1@ . ebsIOPS :: Lens' EBS (Maybe Natural)-ebsIOPS = lens _ebsIOPS (\ s a -> s{_ebsIOPS = a}) . mapping _Nat;+ebsIOPS = lens _ebsIOPS (\ s a -> s{_ebsIOPS = a}) . mapping _Nat  -- | Indicates whether the volume should be encrypted. Encrypted EBS volumes must be attached to instances that support Amazon EBS encryption. Volumes that are created from encrypted snapshots are automatically encrypted. There is no way to create an encrypted volume from an unencrypted snapshot or an unencrypted volume from an encrypted snapshot. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBS Encryption> in the /Amazon Elastic Compute Cloud User Guide/ . ebsEncrypted :: Lens' EBS (Maybe Bool)-ebsEncrypted = lens _ebsEncrypted (\ s a -> s{_ebsEncrypted = a});+ebsEncrypted = lens _ebsEncrypted (\ s a -> s{_ebsEncrypted = a})  -- | The volume type. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSVolumeTypes.html Amazon EBS Volume Types> in the /Amazon Elastic Compute Cloud User Guide/ . Valid values: @standard@ | @io1@ | @gp2@  Default: @standard@ ebsVolumeType :: Lens' EBS (Maybe Text)-ebsVolumeType = lens _ebsVolumeType (\ s a -> s{_ebsVolumeType = a});+ebsVolumeType = lens _ebsVolumeType (\ s a -> s{_ebsVolumeType = a})  -- | The ID of the snapshot. ebsSnapshotId :: Lens' EBS (Maybe Text)-ebsSnapshotId = lens _ebsSnapshotId (\ s a -> s{_ebsSnapshotId = a});+ebsSnapshotId = lens _ebsSnapshotId (\ s a -> s{_ebsSnapshotId = a})  instance FromXML EBS where         parseXML x@@ -830,11 +857,11 @@  -- | The granularity of the metric. The only valid value is @1Minute@ . emGranularity :: Lens' EnabledMetric (Maybe Text)-emGranularity = lens _emGranularity (\ s a -> s{_emGranularity = a});+emGranularity = lens _emGranularity (\ s a -> s{_emGranularity = a})  -- | One of the following metrics:     * @GroupMinSize@      * @GroupMaxSize@      * @GroupDesiredCapacity@      * @GroupInServiceInstances@      * @GroupPendingInstances@      * @GroupStandbyInstances@      * @GroupTerminatingInstances@      * @GroupTotalInstances@ emMetric :: Lens' EnabledMetric (Maybe Text)-emMetric = lens _emMetric (\ s a -> s{_emMetric = a});+emMetric = lens _emMetric (\ s a -> s{_emMetric = a})  instance FromXML EnabledMetric where         parseXML x@@ -871,11 +898,11 @@  -- | The value of the filter. fValues :: Lens' Filter [Text]-fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Default . _Coerce;+fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Default . _Coerce  -- | The name of the filter. The valid values are: @"auto-scaling-group"@ , @"key"@ , @"value"@ , and @"propagate-at-launch"@ . fName :: Lens' Filter Text-fName = lens _fName (\ s a -> s{_fName = a});+fName = lens _fName (\ s a -> s{_fName = a})  instance Hashable Filter where @@ -895,6 +922,7 @@ -- /See:/ 'instance'' smart constructor. data Instance = Instance'   { _iLaunchConfigurationName :: !(Maybe Text)+  , _iLaunchTemplate          :: !(Maybe LaunchTemplateSpecification)   , _iInstanceId              :: !Text   , _iAvailabilityZone        :: !Text   , _iLifecycleState          :: !LifecycleState@@ -909,6 +937,8 @@ -- -- * 'iLaunchConfigurationName' - The launch configuration associated with the instance. --+-- * 'iLaunchTemplate' - The launch template for the instance.+-- -- * 'iInstanceId' - The ID of the instance. -- -- * 'iAvailabilityZone' - The Availability Zone in which the instance is running.@@ -927,44 +957,50 @@     -> Instance instance' pInstanceId_ pAvailabilityZone_ pLifecycleState_ pHealthStatus_ pProtectedFromScaleIn_ =   Instance'-  { _iLaunchConfigurationName = Nothing-  , _iInstanceId = pInstanceId_-  , _iAvailabilityZone = pAvailabilityZone_-  , _iLifecycleState = pLifecycleState_-  , _iHealthStatus = pHealthStatus_-  , _iProtectedFromScaleIn = pProtectedFromScaleIn_-  }+    { _iLaunchConfigurationName = Nothing+    , _iLaunchTemplate = Nothing+    , _iInstanceId = pInstanceId_+    , _iAvailabilityZone = pAvailabilityZone_+    , _iLifecycleState = pLifecycleState_+    , _iHealthStatus = pHealthStatus_+    , _iProtectedFromScaleIn = pProtectedFromScaleIn_+    }   -- | The launch configuration associated with the instance. iLaunchConfigurationName :: Lens' Instance (Maybe Text)-iLaunchConfigurationName = lens _iLaunchConfigurationName (\ s a -> s{_iLaunchConfigurationName = a});+iLaunchConfigurationName = lens _iLaunchConfigurationName (\ s a -> s{_iLaunchConfigurationName = a}) +-- | The launch template for the instance.+iLaunchTemplate :: Lens' Instance (Maybe LaunchTemplateSpecification)+iLaunchTemplate = lens _iLaunchTemplate (\ s a -> s{_iLaunchTemplate = a})+ -- | The ID of the instance. iInstanceId :: Lens' Instance Text-iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a});+iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a})  -- | The Availability Zone in which the instance is running. iAvailabilityZone :: Lens' Instance Text-iAvailabilityZone = lens _iAvailabilityZone (\ s a -> s{_iAvailabilityZone = a});+iAvailabilityZone = lens _iAvailabilityZone (\ s a -> s{_iAvailabilityZone = a})  -- | A description of the current lifecycle state. Note that the @Quarantined@ state is not used. iLifecycleState :: Lens' Instance LifecycleState-iLifecycleState = lens _iLifecycleState (\ s a -> s{_iLifecycleState = a});+iLifecycleState = lens _iLifecycleState (\ s a -> s{_iLifecycleState = a})  -- | 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});+iHealthStatus = lens _iHealthStatus (\ s a -> s{_iHealthStatus = a})  -- | Indicates whether the instance is protected from termination by Auto Scaling when scaling in. iProtectedFromScaleIn :: Lens' Instance Bool-iProtectedFromScaleIn = lens _iProtectedFromScaleIn (\ s a -> s{_iProtectedFromScaleIn = a});+iProtectedFromScaleIn = lens _iProtectedFromScaleIn (\ s a -> s{_iProtectedFromScaleIn = a})  instance FromXML Instance where         parseXML x           = Instance' <$>               (x .@? "LaunchConfigurationName") <*>-                (x .@ "InstanceId")+                (x .@? "LaunchTemplate")+                <*> (x .@ "InstanceId")                 <*> (x .@ "AvailabilityZone")                 <*> (x .@ "LifecycleState")                 <*> (x .@ "HealthStatus")@@ -996,7 +1032,7 @@  -- | If @true@ , detailed monitoring is enabled. Otherwise, basic monitoring is enabled. imEnabled :: Lens' InstanceMonitoring (Maybe Bool)-imEnabled = lens _imEnabled (\ s a -> s{_imEnabled = a});+imEnabled = lens _imEnabled (\ s a -> s{_imEnabled = a})  instance FromXML InstanceMonitoring where         parseXML x@@ -1087,103 +1123,103 @@     -> LaunchConfiguration launchConfiguration pLaunchConfigurationName_ pImageId_ pInstanceType_ pCreatedTime_ =   LaunchConfiguration'-  { _lcAssociatePublicIPAddress = Nothing-  , _lcSecurityGroups = Nothing-  , _lcSpotPrice = Nothing-  , _lcInstanceMonitoring = Nothing-  , _lcKeyName = Nothing-  , _lcClassicLinkVPCSecurityGroups = Nothing-  , _lcRAMDiskId = Nothing-  , _lcKernelId = Nothing-  , _lcEBSOptimized = Nothing-  , _lcUserData = Nothing-  , _lcClassicLinkVPCId = Nothing-  , _lcIAMInstanceProfile = Nothing-  , _lcLaunchConfigurationARN = Nothing-  , _lcPlacementTenancy = Nothing-  , _lcBlockDeviceMappings = Nothing-  , _lcLaunchConfigurationName = pLaunchConfigurationName_-  , _lcImageId = pImageId_-  , _lcInstanceType = pInstanceType_-  , _lcCreatedTime = _Time # pCreatedTime_-  }+    { _lcAssociatePublicIPAddress = Nothing+    , _lcSecurityGroups = Nothing+    , _lcSpotPrice = Nothing+    , _lcInstanceMonitoring = Nothing+    , _lcKeyName = Nothing+    , _lcClassicLinkVPCSecurityGroups = Nothing+    , _lcRAMDiskId = Nothing+    , _lcKernelId = Nothing+    , _lcEBSOptimized = Nothing+    , _lcUserData = Nothing+    , _lcClassicLinkVPCId = Nothing+    , _lcIAMInstanceProfile = Nothing+    , _lcLaunchConfigurationARN = Nothing+    , _lcPlacementTenancy = Nothing+    , _lcBlockDeviceMappings = Nothing+    , _lcLaunchConfigurationName = pLaunchConfigurationName_+    , _lcImageId = pImageId_+    , _lcInstanceType = pInstanceType_+    , _lcCreatedTime = _Time # pCreatedTime_+    }   -- | [EC2-VPC] Indicates whether to assign a public IP address to each instance. lcAssociatePublicIPAddress :: Lens' LaunchConfiguration (Maybe Bool)-lcAssociatePublicIPAddress = lens _lcAssociatePublicIPAddress (\ s a -> s{_lcAssociatePublicIPAddress = a});+lcAssociatePublicIPAddress = lens _lcAssociatePublicIPAddress (\ s a -> s{_lcAssociatePublicIPAddress = a})  -- | The security groups to associate with the instances. lcSecurityGroups :: Lens' LaunchConfiguration [Text]-lcSecurityGroups = lens _lcSecurityGroups (\ s a -> s{_lcSecurityGroups = a}) . _Default . _Coerce;+lcSecurityGroups = lens _lcSecurityGroups (\ s a -> s{_lcSecurityGroups = a}) . _Default . _Coerce  -- | The price to bid when launching Spot Instances. lcSpotPrice :: Lens' LaunchConfiguration (Maybe Text)-lcSpotPrice = lens _lcSpotPrice (\ s a -> s{_lcSpotPrice = a});+lcSpotPrice = lens _lcSpotPrice (\ s a -> s{_lcSpotPrice = a})  -- | 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});+lcInstanceMonitoring = lens _lcInstanceMonitoring (\ s a -> s{_lcInstanceMonitoring = a})  -- | The name of the key pair. lcKeyName :: Lens' LaunchConfiguration (Maybe Text)-lcKeyName = lens _lcKeyName (\ s a -> s{_lcKeyName = a});+lcKeyName = lens _lcKeyName (\ s a -> s{_lcKeyName = a})  -- | The IDs of one or more security groups for the VPC specified in @ClassicLinkVPCId@ . This parameter is required if you specify a ClassicLink-enabled VPC, and cannot be used otherwise. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> in the /Amazon Elastic Compute Cloud User Guide/ . lcClassicLinkVPCSecurityGroups :: Lens' LaunchConfiguration [Text]-lcClassicLinkVPCSecurityGroups = lens _lcClassicLinkVPCSecurityGroups (\ s a -> s{_lcClassicLinkVPCSecurityGroups = a}) . _Default . _Coerce;+lcClassicLinkVPCSecurityGroups = lens _lcClassicLinkVPCSecurityGroups (\ s a -> s{_lcClassicLinkVPCSecurityGroups = a}) . _Default . _Coerce  -- | The ID of the RAM disk associated with the AMI. lcRAMDiskId :: Lens' LaunchConfiguration (Maybe Text)-lcRAMDiskId = lens _lcRAMDiskId (\ s a -> s{_lcRAMDiskId = a});+lcRAMDiskId = lens _lcRAMDiskId (\ s a -> s{_lcRAMDiskId = a})  -- | The ID of the kernel associated with the AMI. lcKernelId :: Lens' LaunchConfiguration (Maybe Text)-lcKernelId = lens _lcKernelId (\ s a -> s{_lcKernelId = a});+lcKernelId = lens _lcKernelId (\ s a -> s{_lcKernelId = a})  -- | Controls whether the instance is optimized for EBS I/O (@true@ ) or not (@false@ ). lcEBSOptimized :: Lens' LaunchConfiguration (Maybe Bool)-lcEBSOptimized = lens _lcEBSOptimized (\ s a -> s{_lcEBSOptimized = a});+lcEBSOptimized = lens _lcEBSOptimized (\ s a -> s{_lcEBSOptimized = a})  -- | The user data available to the instances. lcUserData :: Lens' LaunchConfiguration (Maybe Text)-lcUserData = lens _lcUserData (\ s a -> s{_lcUserData = a});+lcUserData = lens _lcUserData (\ s a -> s{_lcUserData = a})  -- | The ID of a ClassicLink-enabled VPC to link your EC2-Classic instances to. This parameter can only be used if you are launching EC2-Classic instances. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> in the /Amazon Elastic Compute Cloud User Guide/ . lcClassicLinkVPCId :: Lens' LaunchConfiguration (Maybe Text)-lcClassicLinkVPCId = lens _lcClassicLinkVPCId (\ s a -> s{_lcClassicLinkVPCId = a});+lcClassicLinkVPCId = lens _lcClassicLinkVPCId (\ s a -> s{_lcClassicLinkVPCId = a})  -- | The name or Amazon Resource Name (ARN) of the instance profile associated with the IAM role for the instance. lcIAMInstanceProfile :: Lens' LaunchConfiguration (Maybe Text)-lcIAMInstanceProfile = lens _lcIAMInstanceProfile (\ s a -> s{_lcIAMInstanceProfile = a});+lcIAMInstanceProfile = lens _lcIAMInstanceProfile (\ s a -> s{_lcIAMInstanceProfile = a})  -- | The Amazon Resource Name (ARN) of the launch configuration. lcLaunchConfigurationARN :: Lens' LaunchConfiguration (Maybe Text)-lcLaunchConfigurationARN = lens _lcLaunchConfigurationARN (\ s a -> s{_lcLaunchConfigurationARN = a});+lcLaunchConfigurationARN = lens _lcLaunchConfigurationARN (\ s a -> s{_lcLaunchConfigurationARN = a})  -- | The tenancy of the instance, either @default@ or @dedicated@ . An instance with @dedicated@ tenancy runs in an isolated, single-tenant hardware and can only be launched into a VPC. lcPlacementTenancy :: Lens' LaunchConfiguration (Maybe Text)-lcPlacementTenancy = lens _lcPlacementTenancy (\ s a -> s{_lcPlacementTenancy = a});+lcPlacementTenancy = lens _lcPlacementTenancy (\ s a -> s{_lcPlacementTenancy = a})  -- | A block device mapping, which specifies the block devices for the instance. lcBlockDeviceMappings :: Lens' LaunchConfiguration [BlockDeviceMapping]-lcBlockDeviceMappings = lens _lcBlockDeviceMappings (\ s a -> s{_lcBlockDeviceMappings = a}) . _Default . _Coerce;+lcBlockDeviceMappings = lens _lcBlockDeviceMappings (\ s a -> s{_lcBlockDeviceMappings = a}) . _Default . _Coerce  -- | The name of the launch configuration. lcLaunchConfigurationName :: Lens' LaunchConfiguration Text-lcLaunchConfigurationName = lens _lcLaunchConfigurationName (\ s a -> s{_lcLaunchConfigurationName = a});+lcLaunchConfigurationName = lens _lcLaunchConfigurationName (\ s a -> s{_lcLaunchConfigurationName = a})  -- | The ID of the Amazon Machine Image (AMI). lcImageId :: Lens' LaunchConfiguration Text-lcImageId = lens _lcImageId (\ s a -> s{_lcImageId = a});+lcImageId = lens _lcImageId (\ s a -> s{_lcImageId = a})  -- | The instance type for the instances. lcInstanceType :: Lens' LaunchConfiguration Text-lcInstanceType = lens _lcInstanceType (\ s a -> s{_lcInstanceType = a});+lcInstanceType = lens _lcInstanceType (\ s a -> s{_lcInstanceType = a})  -- | The creation date and time for the launch configuration. lcCreatedTime :: Lens' LaunchConfiguration UTCTime-lcCreatedTime = lens _lcCreatedTime (\ s a -> s{_lcCreatedTime = a}) . _Time;+lcCreatedTime = lens _lcCreatedTime (\ s a -> s{_lcCreatedTime = a}) . _Time  instance FromXML LaunchConfiguration where         parseXML x@@ -1217,6 +1253,67 @@  instance NFData LaunchConfiguration where +-- | Describes a launch template.+--+--+--+-- /See:/ 'launchTemplateSpecification' smart constructor.+data LaunchTemplateSpecification = LaunchTemplateSpecification'+  { _ltsLaunchTemplateName :: !(Maybe Text)+  , _ltsLaunchTemplateId   :: !(Maybe Text)+  , _ltsVersion            :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LaunchTemplateSpecification' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltsLaunchTemplateName' - The name of the launch template. You must specify either a template name or a template ID.+--+-- * 'ltsLaunchTemplateId' - The ID of the launch template. You must specify either a template ID or a template name.+--+-- * 'ltsVersion' - The version number, @> Latest@ , or @> Default@ . If the value is @> Latest@ , Auto Scaling selects the latest version of the launch template when launching instances. If the value is @> Default@ , Auto Scaling selects the default version of the launch template when launching instances. The default value is @> Default@ .+launchTemplateSpecification+    :: LaunchTemplateSpecification+launchTemplateSpecification =+  LaunchTemplateSpecification'+    { _ltsLaunchTemplateName = Nothing+    , _ltsLaunchTemplateId = Nothing+    , _ltsVersion = Nothing+    }+++-- | The name of the launch template. You must specify either a template name or a template ID.+ltsLaunchTemplateName :: Lens' LaunchTemplateSpecification (Maybe Text)+ltsLaunchTemplateName = lens _ltsLaunchTemplateName (\ s a -> s{_ltsLaunchTemplateName = a})++-- | The ID of the launch template. You must specify either a template ID or a template name.+ltsLaunchTemplateId :: Lens' LaunchTemplateSpecification (Maybe Text)+ltsLaunchTemplateId = lens _ltsLaunchTemplateId (\ s a -> s{_ltsLaunchTemplateId = a})++-- | The version number, @> Latest@ , or @> Default@ . If the value is @> Latest@ , Auto Scaling selects the latest version of the launch template when launching instances. If the value is @> Default@ , Auto Scaling selects the default version of the launch template when launching instances. The default value is @> Default@ .+ltsVersion :: Lens' LaunchTemplateSpecification (Maybe Text)+ltsVersion = lens _ltsVersion (\ s a -> s{_ltsVersion = a})++instance FromXML LaunchTemplateSpecification where+        parseXML x+          = LaunchTemplateSpecification' <$>+              (x .@? "LaunchTemplateName") <*>+                (x .@? "LaunchTemplateId")+                <*> (x .@? "Version")++instance Hashable LaunchTemplateSpecification where++instance NFData LaunchTemplateSpecification where++instance ToQuery LaunchTemplateSpecification where+        toQuery LaunchTemplateSpecification'{..}+          = mconcat+              ["LaunchTemplateName" =: _ltsLaunchTemplateName,+               "LaunchTemplateId" =: _ltsLaunchTemplateId,+               "Version" =: _ltsVersion]+ -- | Describes a lifecycle hook, which tells Auto Scaling that you want to perform an action whenever it launches instances or whenever it terminates instances. -- --@@ -1262,53 +1359,53 @@     :: LifecycleHook lifecycleHook =   LifecycleHook'-  { _lhDefaultResult = Nothing-  , _lhLifecycleHookName = Nothing-  , _lhHeartbeatTimeout = Nothing-  , _lhAutoScalingGroupName = Nothing-  , _lhNotificationMetadata = Nothing-  , _lhGlobalTimeout = Nothing-  , _lhNotificationTargetARN = Nothing-  , _lhLifecycleTransition = Nothing-  , _lhRoleARN = Nothing-  }+    { _lhDefaultResult = Nothing+    , _lhLifecycleHookName = Nothing+    , _lhHeartbeatTimeout = Nothing+    , _lhAutoScalingGroupName = Nothing+    , _lhNotificationMetadata = Nothing+    , _lhGlobalTimeout = Nothing+    , _lhNotificationTargetARN = Nothing+    , _lhLifecycleTransition = Nothing+    , _lhRoleARN = Nothing+    }   -- | Defines the action the Auto Scaling group should take when the lifecycle hook timeout elapses or if an unexpected failure occurs. The valid values are @CONTINUE@ and @ABANDON@ . The default value is @CONTINUE@ . lhDefaultResult :: Lens' LifecycleHook (Maybe Text)-lhDefaultResult = lens _lhDefaultResult (\ s a -> s{_lhDefaultResult = a});+lhDefaultResult = lens _lhDefaultResult (\ s a -> s{_lhDefaultResult = a})  -- | The name of the lifecycle hook. lhLifecycleHookName :: Lens' LifecycleHook (Maybe Text)-lhLifecycleHookName = lens _lhLifecycleHookName (\ s a -> s{_lhLifecycleHookName = a});+lhLifecycleHookName = lens _lhLifecycleHookName (\ s a -> s{_lhLifecycleHookName = a})  -- | The maximum time, in seconds, that can elapse before the lifecycle hook times out. If the lifecycle hook times out, Auto Scaling performs the default action. You can prevent the lifecycle hook from timing out by calling 'RecordLifecycleActionHeartbeat' . lhHeartbeatTimeout :: Lens' LifecycleHook (Maybe Int)-lhHeartbeatTimeout = lens _lhHeartbeatTimeout (\ s a -> s{_lhHeartbeatTimeout = a});+lhHeartbeatTimeout = lens _lhHeartbeatTimeout (\ s a -> s{_lhHeartbeatTimeout = a})  -- | The name of the Auto Scaling group for the lifecycle hook. lhAutoScalingGroupName :: Lens' LifecycleHook (Maybe Text)-lhAutoScalingGroupName = lens _lhAutoScalingGroupName (\ s a -> s{_lhAutoScalingGroupName = a});+lhAutoScalingGroupName = lens _lhAutoScalingGroupName (\ s a -> s{_lhAutoScalingGroupName = a})  -- | Additional information that you want to include any time Auto Scaling sends a message to the notification target. lhNotificationMetadata :: Lens' LifecycleHook (Maybe Text)-lhNotificationMetadata = lens _lhNotificationMetadata (\ s a -> s{_lhNotificationMetadata = a});+lhNotificationMetadata = lens _lhNotificationMetadata (\ s a -> s{_lhNotificationMetadata = a})  -- | The maximum time, in seconds, that an instance can remain in a @Pending:Wait@ or @Terminating:Wait@ state. The maximum is 172800 seconds (48 hours) or 100 times @HeartbeatTimeout@ , whichever is smaller. lhGlobalTimeout :: Lens' LifecycleHook (Maybe Int)-lhGlobalTimeout = lens _lhGlobalTimeout (\ s a -> s{_lhGlobalTimeout = a});+lhGlobalTimeout = lens _lhGlobalTimeout (\ s a -> s{_lhGlobalTimeout = a})  -- | The ARN of the target that Auto Scaling sends notifications to when an instance is in the transition state for the lifecycle hook. The notification target can be either an SQS queue or an SNS topic. lhNotificationTargetARN :: Lens' LifecycleHook (Maybe Text)-lhNotificationTargetARN = lens _lhNotificationTargetARN (\ s a -> s{_lhNotificationTargetARN = a});+lhNotificationTargetARN = lens _lhNotificationTargetARN (\ s a -> s{_lhNotificationTargetARN = a})  -- | The state of the EC2 instance to which you want to attach the lifecycle hook. For a list of lifecycle hook types, see 'DescribeLifecycleHookTypes' . lhLifecycleTransition :: Lens' LifecycleHook (Maybe Text)-lhLifecycleTransition = lens _lhLifecycleTransition (\ s a -> s{_lhLifecycleTransition = a});+lhLifecycleTransition = lens _lhLifecycleTransition (\ s a -> s{_lhLifecycleTransition = a})  -- | The ARN of the IAM role that allows the Auto Scaling group to publish to the specified notification target. lhRoleARN :: Lens' LifecycleHook (Maybe Text)-lhRoleARN = lens _lhRoleARN (\ s a -> s{_lhRoleARN = a});+lhRoleARN = lens _lhRoleARN (\ s a -> s{_lhRoleARN = a})  instance FromXML LifecycleHook where         parseXML x@@ -1339,9 +1436,9 @@   , _lhsHeartbeatTimeout      :: !(Maybe Int)   , _lhsNotificationMetadata  :: !(Maybe Text)   , _lhsNotificationTargetARN :: !(Maybe Text)-  , _lhsLifecycleTransition   :: !(Maybe Text)   , _lhsRoleARN               :: !(Maybe Text)   , _lhsLifecycleHookName     :: !Text+  , _lhsLifecycleTransition   :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -1349,7 +1446,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lhsDefaultResult' - Defines the action the Auto Scaling group should take when the lifecycle hook timeout elapses or if an unexpected failure occurs. The valid values are @CONTINUE@ and @ABANDON@ . The default value is @CONTINUE@ .+-- * 'lhsDefaultResult' - Defines the action the Auto Scaling group should take when the lifecycle hook timeout elapses or if an unexpected failure occurs. The valid values are @CONTINUE@ and @ABANDON@ . -- -- * 'lhsHeartbeatTimeout' - The maximum time, in seconds, that can elapse before the lifecycle hook times out. If the lifecycle hook times out, Auto Scaling performs the default action. You can prevent the lifecycle hook from timing out by calling 'RecordLifecycleActionHeartbeat' . --@@ -1357,54 +1454,55 @@ -- -- * 'lhsNotificationTargetARN' - The ARN of the target that Auto Scaling sends notifications to when an instance is in the transition state for the lifecycle hook. The notification target can be either an SQS queue or an SNS topic. ----- * 'lhsLifecycleTransition' - The state of the EC2 instance to which you want to attach the lifecycle hook. For a list of lifecycle hook types, see 'DescribeLifecycleHookTypes' .--- -- * 'lhsRoleARN' - The ARN of the IAM role that allows the Auto Scaling group to publish to the specified notification target. -- -- * 'lhsLifecycleHookName' - The name of the lifecycle hook.+--+-- * 'lhsLifecycleTransition' - The state of the EC2 instance to which you want to attach the lifecycle hook. For a list of lifecycle hook types, see 'DescribeLifecycleHookTypes' . lifecycleHookSpecification     :: Text -- ^ 'lhsLifecycleHookName'+    -> Text -- ^ 'lhsLifecycleTransition'     -> LifecycleHookSpecification-lifecycleHookSpecification pLifecycleHookName_ =+lifecycleHookSpecification pLifecycleHookName_ pLifecycleTransition_ =   LifecycleHookSpecification'-  { _lhsDefaultResult = Nothing-  , _lhsHeartbeatTimeout = Nothing-  , _lhsNotificationMetadata = Nothing-  , _lhsNotificationTargetARN = Nothing-  , _lhsLifecycleTransition = Nothing-  , _lhsRoleARN = Nothing-  , _lhsLifecycleHookName = pLifecycleHookName_-  }+    { _lhsDefaultResult = Nothing+    , _lhsHeartbeatTimeout = Nothing+    , _lhsNotificationMetadata = Nothing+    , _lhsNotificationTargetARN = Nothing+    , _lhsRoleARN = Nothing+    , _lhsLifecycleHookName = pLifecycleHookName_+    , _lhsLifecycleTransition = pLifecycleTransition_+    }  --- | Defines the action the Auto Scaling group should take when the lifecycle hook timeout elapses or if an unexpected failure occurs. The valid values are @CONTINUE@ and @ABANDON@ . The default value is @CONTINUE@ .+-- | Defines the action the Auto Scaling group should take when the lifecycle hook timeout elapses or if an unexpected failure occurs. The valid values are @CONTINUE@ and @ABANDON@ . lhsDefaultResult :: Lens' LifecycleHookSpecification (Maybe Text)-lhsDefaultResult = lens _lhsDefaultResult (\ s a -> s{_lhsDefaultResult = a});+lhsDefaultResult = lens _lhsDefaultResult (\ s a -> s{_lhsDefaultResult = a})  -- | The maximum time, in seconds, that can elapse before the lifecycle hook times out. If the lifecycle hook times out, Auto Scaling performs the default action. You can prevent the lifecycle hook from timing out by calling 'RecordLifecycleActionHeartbeat' . lhsHeartbeatTimeout :: Lens' LifecycleHookSpecification (Maybe Int)-lhsHeartbeatTimeout = lens _lhsHeartbeatTimeout (\ s a -> s{_lhsHeartbeatTimeout = a});+lhsHeartbeatTimeout = lens _lhsHeartbeatTimeout (\ s a -> s{_lhsHeartbeatTimeout = a})  -- | Additional information that you want to include any time Auto Scaling sends a message to the notification target. lhsNotificationMetadata :: Lens' LifecycleHookSpecification (Maybe Text)-lhsNotificationMetadata = lens _lhsNotificationMetadata (\ s a -> s{_lhsNotificationMetadata = a});+lhsNotificationMetadata = lens _lhsNotificationMetadata (\ s a -> s{_lhsNotificationMetadata = a})  -- | The ARN of the target that Auto Scaling sends notifications to when an instance is in the transition state for the lifecycle hook. The notification target can be either an SQS queue or an SNS topic. lhsNotificationTargetARN :: Lens' LifecycleHookSpecification (Maybe Text)-lhsNotificationTargetARN = lens _lhsNotificationTargetARN (\ s a -> s{_lhsNotificationTargetARN = a});---- | The state of the EC2 instance to which you want to attach the lifecycle hook. For a list of lifecycle hook types, see 'DescribeLifecycleHookTypes' .-lhsLifecycleTransition :: Lens' LifecycleHookSpecification (Maybe Text)-lhsLifecycleTransition = lens _lhsLifecycleTransition (\ s a -> s{_lhsLifecycleTransition = a});+lhsNotificationTargetARN = lens _lhsNotificationTargetARN (\ s a -> s{_lhsNotificationTargetARN = a})  -- | The ARN of the IAM role that allows the Auto Scaling group to publish to the specified notification target. lhsRoleARN :: Lens' LifecycleHookSpecification (Maybe Text)-lhsRoleARN = lens _lhsRoleARN (\ s a -> s{_lhsRoleARN = a});+lhsRoleARN = lens _lhsRoleARN (\ s a -> s{_lhsRoleARN = a})  -- | The name of the lifecycle hook. lhsLifecycleHookName :: Lens' LifecycleHookSpecification Text-lhsLifecycleHookName = lens _lhsLifecycleHookName (\ s a -> s{_lhsLifecycleHookName = a});+lhsLifecycleHookName = lens _lhsLifecycleHookName (\ s a -> s{_lhsLifecycleHookName = a}) +-- | The state of the EC2 instance to which you want to attach the lifecycle hook. For a list of lifecycle hook types, see 'DescribeLifecycleHookTypes' .+lhsLifecycleTransition :: Lens' LifecycleHookSpecification Text+lhsLifecycleTransition = lens _lhsLifecycleTransition (\ s a -> s{_lhsLifecycleTransition = a})+ instance Hashable LifecycleHookSpecification where  instance NFData LifecycleHookSpecification where@@ -1416,9 +1514,9 @@                "HeartbeatTimeout" =: _lhsHeartbeatTimeout,                "NotificationMetadata" =: _lhsNotificationMetadata,                "NotificationTargetARN" =: _lhsNotificationTargetARN,-               "LifecycleTransition" =: _lhsLifecycleTransition,                "RoleARN" =: _lhsRoleARN,-               "LifecycleHookName" =: _lhsLifecycleHookName]+               "LifecycleHookName" =: _lhsLifecycleHookName,+               "LifecycleTransition" =: _lhsLifecycleTransition]  -- | Describes the state of a Classic Load Balancer. --@@ -1450,11 +1548,11 @@  -- | One of the following load balancer states:     * @Adding@ - The instances in the group are being registered with the load balancer.     * @Added@ - All instances in the group are registered with the load balancer.     * @InService@ - At least one instance in the group passed an ELB health check.     * @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});+lbsState = lens _lbsState (\ s a -> s{_lbsState = a})  -- | The name of the load balancer. lbsLoadBalancerName :: Lens' LoadBalancerState (Maybe Text)-lbsLoadBalancerName = lens _lbsLoadBalancerName (\ s a -> s{_lbsLoadBalancerName = a});+lbsLoadBalancerName = lens _lbsLoadBalancerName (\ s a -> s{_lbsLoadBalancerName = a})  instance FromXML LoadBalancerState where         parseXML x@@ -1489,16 +1587,16 @@     :: LoadBalancerTargetGroupState loadBalancerTargetGroupState =   LoadBalancerTargetGroupState'-  {_lbtgsState = Nothing, _lbtgsLoadBalancerTargetGroupARN = Nothing}+    {_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});+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});+lbtgsLoadBalancerTargetGroupARN = lens _lbtgsLoadBalancerTargetGroupARN (\ s a -> s{_lbtgsLoadBalancerTargetGroupARN = a})  instance FromXML LoadBalancerTargetGroupState where         parseXML x@@ -1532,7 +1630,7 @@  -- | One of the following metrics:     * @GroupMinSize@      * @GroupMaxSize@      * @GroupDesiredCapacity@      * @GroupInServiceInstances@      * @GroupPendingInstances@      * @GroupStandbyInstances@      * @GroupTerminatingInstances@      * @GroupTotalInstances@ mctMetric :: Lens' MetricCollectionType (Maybe Text)-mctMetric = lens _mctMetric (\ s a -> s{_mctMetric = a});+mctMetric = lens _mctMetric (\ s a -> s{_mctMetric = a})  instance FromXML MetricCollectionType where         parseXML x@@ -1570,11 +1668,11 @@  -- | The name of the dimension. mdName :: Lens' MetricDimension Text-mdName = lens _mdName (\ s a -> s{_mdName = a});+mdName = lens _mdName (\ s a -> s{_mdName = a})  -- | The value of the dimension. mdValue :: Lens' MetricDimension Text-mdValue = lens _mdValue (\ s a -> s{_mdValue = a});+mdValue = lens _mdValue (\ s a -> s{_mdValue = a})  instance FromXML MetricDimension where         parseXML x@@ -1611,7 +1709,7 @@  -- | The granularity. The only valid value is @1Minute@ . mgtGranularity :: Lens' MetricGranularityType (Maybe Text)-mgtGranularity = lens _mgtGranularity (\ s a -> s{_mgtGranularity = a});+mgtGranularity = lens _mgtGranularity (\ s a -> s{_mgtGranularity = a})  instance FromXML MetricGranularityType where         parseXML x@@ -1639,30 +1737,30 @@ -- -- * 'ncTopicARN' - The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) topic. ----- * 'ncAutoScalingGroupName' - The name of the group.+-- * 'ncAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'ncNotificationType' - One of the following event notification types:     * @autoscaling:EC2_INSTANCE_LAUNCH@      * @autoscaling:EC2_INSTANCE_LAUNCH_ERROR@      * @autoscaling:EC2_INSTANCE_TERMINATE@      * @autoscaling:EC2_INSTANCE_TERMINATE_ERROR@      * @autoscaling:TEST_NOTIFICATION@ notificationConfiguration     :: NotificationConfiguration notificationConfiguration =   NotificationConfiguration'-  { _ncTopicARN = Nothing-  , _ncAutoScalingGroupName = Nothing-  , _ncNotificationType = Nothing-  }+    { _ncTopicARN = Nothing+    , _ncAutoScalingGroupName = Nothing+    , _ncNotificationType = Nothing+    }   -- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) topic. ncTopicARN :: Lens' NotificationConfiguration (Maybe Text)-ncTopicARN = lens _ncTopicARN (\ s a -> s{_ncTopicARN = a});+ncTopicARN = lens _ncTopicARN (\ s a -> s{_ncTopicARN = a}) --- | The name of the group.+-- | The name of the Auto Scaling group. ncAutoScalingGroupName :: Lens' NotificationConfiguration (Maybe Text)-ncAutoScalingGroupName = lens _ncAutoScalingGroupName (\ s a -> s{_ncAutoScalingGroupName = a});+ncAutoScalingGroupName = lens _ncAutoScalingGroupName (\ s a -> s{_ncAutoScalingGroupName = a})  -- | One of the following event notification types:     * @autoscaling:EC2_INSTANCE_LAUNCH@      * @autoscaling:EC2_INSTANCE_LAUNCH_ERROR@      * @autoscaling:EC2_INSTANCE_TERMINATE@      * @autoscaling:EC2_INSTANCE_TERMINATE_ERROR@      * @autoscaling:TEST_NOTIFICATION@ ncNotificationType :: Lens' NotificationConfiguration (Maybe Text)-ncNotificationType = lens _ncNotificationType (\ s a -> s{_ncNotificationType = a});+ncNotificationType = lens _ncNotificationType (\ s a -> s{_ncNotificationType = a})  instance FromXML NotificationConfiguration where         parseXML x@@ -1689,7 +1787,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pmsResourceLabel' - Identifies the resource associated with the metric type. The following predefined metrics are available:     * @ASGAverageCPUUtilization@ - average CPU utilization of the Auto Scaling group     * @ASGAverageNetworkIn@ - average number of bytes received on all network interfaces by the Auto Scaling group     * @ASGAverageNetworkOut@ - average number of bytes sent out on all network interfaces by the Auto Scaling group     * @ALBRequestCountPerTarget@ - number of requests completed per target in an Application Load Balancer target group For predefined metric types @ASGAverageCPUUtilization@ , @ASGAverageNetworkIn@ and @ASGAverageNetworkOut@ , the parameter must not be specified as the resource associated with the metric type is the Auto Scaling group. For predefined metric type @ALBRequestCountPerTarget@ , the parameter must be specified in the format: @app//load-balancer-name/ //load-balancer-id/ /targetgroup//target-group-name/ //target-group-id/ @ , where @app//load-balancer-name/ //load-balancer-id/ @ is the final portion of the load balancer ARN, and @targetgroup//target-group-name/ //target-group-id/ @ is the final portion of the target group ARN. The target group must be attached to the Auto Scaling group.+-- * 'pmsResourceLabel' - Identifies the resource associated with the metric type. The following predefined metrics are available:     * @ASGAverageCPUUtilization@ - average CPU utilization of the Auto Scaling group     * @ASGAverageNetworkIn@ - average number of bytes received on all network interfaces by the Auto Scaling group     * @ASGAverageNetworkOut@ - average number of bytes sent out on all network interfaces by the Auto Scaling group     * @ALBRequestCountPerTarget@ - number of requests completed per target in an Application Load Balancer target group For predefined metric types @ASGAverageCPUUtilization@ , @ASGAverageNetworkIn@ , and @ASGAverageNetworkOut@ , the parameter must not be specified as the resource associated with the metric type is the Auto Scaling group. For predefined metric type @ALBRequestCountPerTarget@ , the parameter must be specified in the format: @app//load-balancer-name/ //load-balancer-id/ /targetgroup//target-group-name/ //target-group-id/ @ , where @app//load-balancer-name/ //load-balancer-id/ @ is the final portion of the load balancer ARN, and @targetgroup//target-group-name/ //target-group-id/ @ is the final portion of the target group ARN. The target group must be attached to the Auto Scaling group. -- -- * 'pmsPredefinedMetricType' - The metric type. predefinedMetricSpecification@@ -1697,18 +1795,18 @@     -> PredefinedMetricSpecification predefinedMetricSpecification pPredefinedMetricType_ =   PredefinedMetricSpecification'-  { _pmsResourceLabel = Nothing-  , _pmsPredefinedMetricType = pPredefinedMetricType_-  }+    { _pmsResourceLabel = Nothing+    , _pmsPredefinedMetricType = pPredefinedMetricType_+    }  --- | Identifies the resource associated with the metric type. The following predefined metrics are available:     * @ASGAverageCPUUtilization@ - average CPU utilization of the Auto Scaling group     * @ASGAverageNetworkIn@ - average number of bytes received on all network interfaces by the Auto Scaling group     * @ASGAverageNetworkOut@ - average number of bytes sent out on all network interfaces by the Auto Scaling group     * @ALBRequestCountPerTarget@ - number of requests completed per target in an Application Load Balancer target group For predefined metric types @ASGAverageCPUUtilization@ , @ASGAverageNetworkIn@ and @ASGAverageNetworkOut@ , the parameter must not be specified as the resource associated with the metric type is the Auto Scaling group. For predefined metric type @ALBRequestCountPerTarget@ , the parameter must be specified in the format: @app//load-balancer-name/ //load-balancer-id/ /targetgroup//target-group-name/ //target-group-id/ @ , where @app//load-balancer-name/ //load-balancer-id/ @ is the final portion of the load balancer ARN, and @targetgroup//target-group-name/ //target-group-id/ @ is the final portion of the target group ARN. The target group must be attached to the Auto Scaling group.+-- | Identifies the resource associated with the metric type. The following predefined metrics are available:     * @ASGAverageCPUUtilization@ - average CPU utilization of the Auto Scaling group     * @ASGAverageNetworkIn@ - average number of bytes received on all network interfaces by the Auto Scaling group     * @ASGAverageNetworkOut@ - average number of bytes sent out on all network interfaces by the Auto Scaling group     * @ALBRequestCountPerTarget@ - number of requests completed per target in an Application Load Balancer target group For predefined metric types @ASGAverageCPUUtilization@ , @ASGAverageNetworkIn@ , and @ASGAverageNetworkOut@ , the parameter must not be specified as the resource associated with the metric type is the Auto Scaling group. For predefined metric type @ALBRequestCountPerTarget@ , the parameter must be specified in the format: @app//load-balancer-name/ //load-balancer-id/ /targetgroup//target-group-name/ //target-group-id/ @ , where @app//load-balancer-name/ //load-balancer-id/ @ is the final portion of the load balancer ARN, and @targetgroup//target-group-name/ //target-group-id/ @ is the final portion of the target group ARN. The target group must be attached to the Auto Scaling group. pmsResourceLabel :: Lens' PredefinedMetricSpecification (Maybe Text)-pmsResourceLabel = lens _pmsResourceLabel (\ s a -> s{_pmsResourceLabel = a});+pmsResourceLabel = lens _pmsResourceLabel (\ s a -> s{_pmsResourceLabel = a})  -- | The metric type. pmsPredefinedMetricType :: Lens' PredefinedMetricSpecification MetricType-pmsPredefinedMetricType = lens _pmsPredefinedMetricType (\ s a -> s{_pmsPredefinedMetricType = a});+pmsPredefinedMetricType = lens _pmsPredefinedMetricType (\ s a -> s{_pmsPredefinedMetricType = a})  instance FromXML PredefinedMetricSpecification where         parseXML x@@ -1751,7 +1849,7 @@  -- | One of the following processes:     * @Launch@      * @Terminate@      * @AddToLoadBalancer@      * @AlarmNotification@      * @AZRebalance@      * @HealthCheck@      * @ReplaceUnhealthy@      * @ScheduledActions@ ptProcessName :: Lens' ProcessType Text-ptProcessName = lens _ptProcessName (\ s a -> s{_ptProcessName = a});+ptProcessName = lens _ptProcessName (\ s a -> s{_ptProcessName = a})  instance FromXML ProcessType where         parseXML x = ProcessType' <$> (x .@ "ProcessName")@@ -1801,7 +1899,7 @@ -- -- * 'sAdjustmentType' - The adjustment type, which specifies how @ScalingAdjustment@ is interpreted. Valid values are @ChangeInCapacity@ , @ExactCapacity@ , and @PercentChangeInCapacity@ . ----- * 'sAutoScalingGroupName' - The name of the Auto Scaling group associated with this scaling policy.+-- * 'sAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'sScalingAdjustment' - The amount by which to scale, based on the specified adjustment type. A positive value adds to the current capacity while a negative number removes from the current capacity. --@@ -1818,78 +1916,78 @@     :: ScalingPolicy scalingPolicy =   ScalingPolicy'-  { _sMinAdjustmentStep = Nothing-  , _sEstimatedInstanceWarmup = Nothing-  , _sPolicyName = Nothing-  , _sPolicyType = Nothing-  , _sStepAdjustments = Nothing-  , _sTargetTrackingConfiguration = Nothing-  , _sAdjustmentType = Nothing-  , _sAutoScalingGroupName = Nothing-  , _sScalingAdjustment = Nothing-  , _sCooldown = Nothing-  , _sPolicyARN = Nothing-  , _sAlarms = Nothing-  , _sMetricAggregationType = Nothing-  , _sMinAdjustmentMagnitude = Nothing-  }+    { _sMinAdjustmentStep = Nothing+    , _sEstimatedInstanceWarmup = Nothing+    , _sPolicyName = Nothing+    , _sPolicyType = Nothing+    , _sStepAdjustments = Nothing+    , _sTargetTrackingConfiguration = Nothing+    , _sAdjustmentType = Nothing+    , _sAutoScalingGroupName = Nothing+    , _sScalingAdjustment = Nothing+    , _sCooldown = Nothing+    , _sPolicyARN = Nothing+    , _sAlarms = Nothing+    , _sMetricAggregationType = Nothing+    , _sMinAdjustmentMagnitude = Nothing+    }   -- | Available for backward compatibility. Use @MinAdjustmentMagnitude@ instead. sMinAdjustmentStep :: Lens' ScalingPolicy (Maybe Int)-sMinAdjustmentStep = lens _sMinAdjustmentStep (\ s a -> s{_sMinAdjustmentStep = a});+sMinAdjustmentStep = lens _sMinAdjustmentStep (\ s a -> s{_sMinAdjustmentStep = a})  -- | The estimated time, in seconds, until a newly launched instance can contribute to the CloudWatch metrics. sEstimatedInstanceWarmup :: Lens' ScalingPolicy (Maybe Int)-sEstimatedInstanceWarmup = lens _sEstimatedInstanceWarmup (\ s a -> s{_sEstimatedInstanceWarmup = a});+sEstimatedInstanceWarmup = lens _sEstimatedInstanceWarmup (\ s a -> s{_sEstimatedInstanceWarmup = a})  -- | The name of the scaling policy. sPolicyName :: Lens' ScalingPolicy (Maybe Text)-sPolicyName = lens _sPolicyName (\ s a -> s{_sPolicyName = a});+sPolicyName = lens _sPolicyName (\ s a -> s{_sPolicyName = a})  -- | The policy type. Valid values are @SimpleScaling@ and @StepScaling@ . sPolicyType :: Lens' ScalingPolicy (Maybe Text)-sPolicyType = lens _sPolicyType (\ s a -> s{_sPolicyType = a});+sPolicyType = lens _sPolicyType (\ s a -> s{_sPolicyType = a})  -- | A set of adjustments that enable you to scale based on the size of the alarm breach. sStepAdjustments :: Lens' ScalingPolicy [StepAdjustment]-sStepAdjustments = lens _sStepAdjustments (\ s a -> s{_sStepAdjustments = a}) . _Default . _Coerce;+sStepAdjustments = lens _sStepAdjustments (\ s a -> s{_sStepAdjustments = a}) . _Default . _Coerce  -- | A target tracking policy. sTargetTrackingConfiguration :: Lens' ScalingPolicy (Maybe TargetTrackingConfiguration)-sTargetTrackingConfiguration = lens _sTargetTrackingConfiguration (\ s a -> s{_sTargetTrackingConfiguration = a});+sTargetTrackingConfiguration = lens _sTargetTrackingConfiguration (\ s a -> s{_sTargetTrackingConfiguration = a})  -- | The adjustment type, which specifies how @ScalingAdjustment@ is interpreted. Valid values are @ChangeInCapacity@ , @ExactCapacity@ , and @PercentChangeInCapacity@ . sAdjustmentType :: Lens' ScalingPolicy (Maybe Text)-sAdjustmentType = lens _sAdjustmentType (\ s a -> s{_sAdjustmentType = a});+sAdjustmentType = lens _sAdjustmentType (\ s a -> s{_sAdjustmentType = a}) --- | The name of the Auto Scaling group associated with this scaling policy.+-- | The name of the Auto Scaling group. sAutoScalingGroupName :: Lens' ScalingPolicy (Maybe Text)-sAutoScalingGroupName = lens _sAutoScalingGroupName (\ s a -> s{_sAutoScalingGroupName = a});+sAutoScalingGroupName = lens _sAutoScalingGroupName (\ s a -> s{_sAutoScalingGroupName = a})  -- | The amount by which to scale, based on the specified adjustment type. A positive value adds to the current capacity while a negative number removes from the current capacity. sScalingAdjustment :: Lens' ScalingPolicy (Maybe Int)-sScalingAdjustment = lens _sScalingAdjustment (\ s a -> s{_sScalingAdjustment = a});+sScalingAdjustment = lens _sScalingAdjustment (\ s a -> s{_sScalingAdjustment = a})  -- | The amount of time, in seconds, after a scaling activity completes before any further dynamic scaling activities can start. sCooldown :: Lens' ScalingPolicy (Maybe Int)-sCooldown = lens _sCooldown (\ s a -> s{_sCooldown = a});+sCooldown = lens _sCooldown (\ s a -> s{_sCooldown = a})  -- | The Amazon Resource Name (ARN) of the policy. sPolicyARN :: Lens' ScalingPolicy (Maybe Text)-sPolicyARN = lens _sPolicyARN (\ s a -> s{_sPolicyARN = a});+sPolicyARN = lens _sPolicyARN (\ s a -> s{_sPolicyARN = a})  -- | The CloudWatch alarms related to the policy. sAlarms :: Lens' ScalingPolicy [Alarm]-sAlarms = lens _sAlarms (\ s a -> s{_sAlarms = a}) . _Default . _Coerce;+sAlarms = lens _sAlarms (\ s a -> s{_sAlarms = a}) . _Default . _Coerce  -- | The aggregation type for the CloudWatch metrics. Valid values are @Minimum@ , @Maximum@ , and @Average@ . sMetricAggregationType :: Lens' ScalingPolicy (Maybe Text)-sMetricAggregationType = lens _sMetricAggregationType (\ s a -> s{_sMetricAggregationType = a});+sMetricAggregationType = lens _sMetricAggregationType (\ s a -> s{_sMetricAggregationType = a})  -- | The minimum number of instances to scale. If the value of @AdjustmentType@ is @PercentChangeInCapacity@ , the scaling policy changes the @DesiredCapacity@ of the Auto Scaling group by at least this many instances. Otherwise, the error is @ValidationError@ . sMinAdjustmentMagnitude :: Lens' ScalingPolicy (Maybe Int)-sMinAdjustmentMagnitude = lens _sMinAdjustmentMagnitude (\ s a -> s{_sMinAdjustmentMagnitude = a});+sMinAdjustmentMagnitude = lens _sMinAdjustmentMagnitude (\ s a -> s{_sMinAdjustmentMagnitude = a})  instance FromXML ScalingPolicy where         parseXML x@@ -1930,24 +2028,24 @@ -- -- * 'spqScalingProcesses' - One or more of the following processes. If you omit this parameter, all processes are specified.     * @Launch@      * @Terminate@      * @HealthCheck@      * @ReplaceUnhealthy@      * @AZRebalance@      * @AlarmNotification@      * @ScheduledActions@      * @AddToLoadBalancer@ ----- * 'spqAutoScalingGroupName' - The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- * 'spqAutoScalingGroupName' - The name of the Auto Scaling group. scalingProcessQuery     :: Text -- ^ 'spqAutoScalingGroupName'     -> ScalingProcessQuery scalingProcessQuery pAutoScalingGroupName_ =   ScalingProcessQuery'-  { _spqScalingProcesses = Nothing-  , _spqAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _spqScalingProcesses = Nothing+    , _spqAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | One or more of the following processes. If you omit this parameter, all processes are specified.     * @Launch@      * @Terminate@      * @HealthCheck@      * @ReplaceUnhealthy@      * @AZRebalance@      * @AlarmNotification@      * @ScheduledActions@      * @AddToLoadBalancer@ spqScalingProcesses :: Lens' ScalingProcessQuery [Text]-spqScalingProcesses = lens _spqScalingProcesses (\ s a -> s{_spqScalingProcesses = a}) . _Default . _Coerce;+spqScalingProcesses = lens _spqScalingProcesses (\ s a -> s{_spqScalingProcesses = a}) . _Default . _Coerce --- | The name or Amazon Resource Name (ARN) of the Auto Scaling group.+-- | The name of the Auto Scaling group. spqAutoScalingGroupName :: Lens' ScalingProcessQuery Text-spqAutoScalingGroupName = lens _spqAutoScalingGroupName (\ s a -> s{_spqAutoScalingGroupName = a});+spqAutoScalingGroupName = lens _spqAutoScalingGroupName (\ s a -> s{_spqAutoScalingGroupName = a})  instance Hashable ScalingProcessQuery where @@ -2000,65 +2098,65 @@ -- -- * 'sugaMinSize' - The minimum size of the group. ----- * 'sugaAutoScalingGroupName' - The name of the group.+-- * 'sugaAutoScalingGroupName' - The name of the Auto Scaling group. -- -- * 'sugaEndTime' - The date and time that the action is scheduled to end. This date and time can be up to one month in the future. scheduledUpdateGroupAction     :: ScheduledUpdateGroupAction scheduledUpdateGroupAction =   ScheduledUpdateGroupAction'-  { _sugaScheduledActionARN = Nothing-  , _sugaStartTime = Nothing-  , _sugaTime = Nothing-  , _sugaScheduledActionName = Nothing-  , _sugaMaxSize = Nothing-  , _sugaRecurrence = Nothing-  , _sugaDesiredCapacity = Nothing-  , _sugaMinSize = Nothing-  , _sugaAutoScalingGroupName = Nothing-  , _sugaEndTime = Nothing-  }+    { _sugaScheduledActionARN = Nothing+    , _sugaStartTime = Nothing+    , _sugaTime = Nothing+    , _sugaScheduledActionName = Nothing+    , _sugaMaxSize = Nothing+    , _sugaRecurrence = Nothing+    , _sugaDesiredCapacity = Nothing+    , _sugaMinSize = Nothing+    , _sugaAutoScalingGroupName = Nothing+    , _sugaEndTime = Nothing+    }   -- | The Amazon Resource Name (ARN) of the scheduled action. sugaScheduledActionARN :: Lens' ScheduledUpdateGroupAction (Maybe Text)-sugaScheduledActionARN = lens _sugaScheduledActionARN (\ s a -> s{_sugaScheduledActionARN = a});+sugaScheduledActionARN = lens _sugaScheduledActionARN (\ s a -> s{_sugaScheduledActionARN = a})  -- | The date and time that the action is scheduled to begin. This date and time can be up to one month in the future. When @StartTime@ and @EndTime@ are specified with @Recurrence@ , they form the boundaries of when the recurring action will start and stop. sugaStartTime :: Lens' ScheduledUpdateGroupAction (Maybe UTCTime)-sugaStartTime = lens _sugaStartTime (\ s a -> s{_sugaStartTime = a}) . mapping _Time;+sugaStartTime = lens _sugaStartTime (\ s a -> s{_sugaStartTime = a}) . mapping _Time  -- | This parameter is deprecated. sugaTime :: Lens' ScheduledUpdateGroupAction (Maybe UTCTime)-sugaTime = lens _sugaTime (\ s a -> s{_sugaTime = a}) . mapping _Time;+sugaTime = lens _sugaTime (\ s a -> s{_sugaTime = a}) . mapping _Time  -- | The name of the scheduled action. sugaScheduledActionName :: Lens' ScheduledUpdateGroupAction (Maybe Text)-sugaScheduledActionName = lens _sugaScheduledActionName (\ s a -> s{_sugaScheduledActionName = a});+sugaScheduledActionName = lens _sugaScheduledActionName (\ s a -> s{_sugaScheduledActionName = a})  -- | The maximum size of the group. sugaMaxSize :: Lens' ScheduledUpdateGroupAction (Maybe Int)-sugaMaxSize = lens _sugaMaxSize (\ s a -> s{_sugaMaxSize = a});+sugaMaxSize = lens _sugaMaxSize (\ s a -> s{_sugaMaxSize = a})  -- | The recurring schedule for the action. sugaRecurrence :: Lens' ScheduledUpdateGroupAction (Maybe Text)-sugaRecurrence = lens _sugaRecurrence (\ s a -> s{_sugaRecurrence = a});+sugaRecurrence = lens _sugaRecurrence (\ s a -> s{_sugaRecurrence = a})  -- | The number of instances you prefer to maintain in the group. sugaDesiredCapacity :: Lens' ScheduledUpdateGroupAction (Maybe Int)-sugaDesiredCapacity = lens _sugaDesiredCapacity (\ s a -> s{_sugaDesiredCapacity = a});+sugaDesiredCapacity = lens _sugaDesiredCapacity (\ s a -> s{_sugaDesiredCapacity = a})  -- | The minimum size of the group. sugaMinSize :: Lens' ScheduledUpdateGroupAction (Maybe Int)-sugaMinSize = lens _sugaMinSize (\ s a -> s{_sugaMinSize = a});+sugaMinSize = lens _sugaMinSize (\ s a -> s{_sugaMinSize = a}) --- | The name of the group.+-- | The name of the Auto Scaling group. sugaAutoScalingGroupName :: Lens' ScheduledUpdateGroupAction (Maybe Text)-sugaAutoScalingGroupName = lens _sugaAutoScalingGroupName (\ s a -> s{_sugaAutoScalingGroupName = a});+sugaAutoScalingGroupName = lens _sugaAutoScalingGroupName (\ s a -> s{_sugaAutoScalingGroupName = a})  -- | The date and time that the action is scheduled to end. This date and time can be up to one month in the future. sugaEndTime :: Lens' ScheduledUpdateGroupAction (Maybe UTCTime)-sugaEndTime = lens _sugaEndTime (\ s a -> s{_sugaEndTime = a}) . mapping _Time;+sugaEndTime = lens _sugaEndTime (\ s a -> s{_sugaEndTime = a}) . mapping _Time  instance FromXML ScheduledUpdateGroupAction where         parseXML x@@ -2123,23 +2221,23 @@     -> StepAdjustment stepAdjustment pScalingAdjustment_ =   StepAdjustment'-  { _saMetricIntervalLowerBound = Nothing-  , _saMetricIntervalUpperBound = Nothing-  , _saScalingAdjustment = pScalingAdjustment_-  }+    { _saMetricIntervalLowerBound = Nothing+    , _saMetricIntervalUpperBound = Nothing+    , _saScalingAdjustment = pScalingAdjustment_+    }   -- | The lower bound for the difference between the alarm threshold and the CloudWatch metric. If the metric value is above the breach threshold, the lower bound is inclusive (the metric must be greater than or equal to the threshold plus the lower bound). Otherwise, it is exclusive (the metric must be greater than the threshold plus the lower bound). A null value indicates negative infinity. saMetricIntervalLowerBound :: Lens' StepAdjustment (Maybe Double)-saMetricIntervalLowerBound = lens _saMetricIntervalLowerBound (\ s a -> s{_saMetricIntervalLowerBound = a});+saMetricIntervalLowerBound = lens _saMetricIntervalLowerBound (\ s a -> s{_saMetricIntervalLowerBound = a})  -- | The upper bound for the difference between the alarm threshold and the CloudWatch metric. If the metric value is above the breach threshold, the upper bound is exclusive (the metric must be less than the threshold plus the upper bound). Otherwise, it is inclusive (the metric must be less than or equal to the threshold plus the upper bound). A null value indicates positive infinity. The upper bound must be greater than the lower bound. saMetricIntervalUpperBound :: Lens' StepAdjustment (Maybe Double)-saMetricIntervalUpperBound = lens _saMetricIntervalUpperBound (\ s a -> s{_saMetricIntervalUpperBound = a});+saMetricIntervalUpperBound = lens _saMetricIntervalUpperBound (\ s a -> s{_saMetricIntervalUpperBound = a})  -- | The amount by which to scale, based on the specified adjustment type. A positive value adds to the current capacity while a negative number removes from the current capacity. saScalingAdjustment :: Lens' StepAdjustment Int-saScalingAdjustment = lens _saScalingAdjustment (\ s a -> s{_saScalingAdjustment = a});+saScalingAdjustment = lens _saScalingAdjustment (\ s a -> s{_saScalingAdjustment = a})  instance FromXML StepAdjustment where         parseXML x@@ -2187,11 +2285,11 @@  -- | The name of the suspended process. spProcessName :: Lens' SuspendedProcess (Maybe Text)-spProcessName = lens _spProcessName (\ s a -> s{_spProcessName = a});+spProcessName = lens _spProcessName (\ s a -> s{_spProcessName = a})  -- | The reason that the process was suspended. spSuspensionReason :: Lens' SuspendedProcess (Maybe Text)-spSuspensionReason = lens _spSuspensionReason (\ s a -> s{_spSuspensionReason = a});+spSuspensionReason = lens _spSuspensionReason (\ s a -> s{_spSuspensionReason = a})  instance FromXML SuspendedProcess where         parseXML x@@ -2238,33 +2336,33 @@     -> Tag tag pKey_ pResourceId_ pResourceType_ pPropagateAtLaunch_ pValue_ =   Tag'-  { _tagKey = pKey_-  , _tagResourceId = pResourceId_-  , _tagResourceType = pResourceType_-  , _tagPropagateAtLaunch = pPropagateAtLaunch_-  , _tagValue = pValue_-  }+    { _tagKey = pKey_+    , _tagResourceId = pResourceId_+    , _tagResourceType = pResourceType_+    , _tagPropagateAtLaunch = pPropagateAtLaunch_+    , _tagValue = pValue_+    }   -- | The tag key. tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  -- | The name of the group. tagResourceId :: Lens' Tag Text-tagResourceId = lens _tagResourceId (\ s a -> s{_tagResourceId = a});+tagResourceId = lens _tagResourceId (\ s a -> s{_tagResourceId = a})  -- | The type of resource. The only supported value is @auto-scaling-group@ . tagResourceType :: Lens' Tag Text-tagResourceType = lens _tagResourceType (\ s a -> s{_tagResourceType = a});+tagResourceType = lens _tagResourceType (\ s a -> s{_tagResourceType = a})  -- | Determines whether the tag is added to new instances as they are launched in the group. tagPropagateAtLaunch :: Lens' Tag Bool-tagPropagateAtLaunch = lens _tagPropagateAtLaunch (\ s a -> s{_tagPropagateAtLaunch = a});+tagPropagateAtLaunch = lens _tagPropagateAtLaunch (\ s a -> s{_tagPropagateAtLaunch = a})  -- | The tag value. tagValue :: Lens' Tag Text-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})  instance Hashable Tag where @@ -2314,33 +2412,33 @@     -> TagDescription tagDescription pResourceId_ pResourceType_ pKey_ pPropagateAtLaunch_ pValue_ =   TagDescription'-  { _tdResourceId = pResourceId_-  , _tdResourceType = pResourceType_-  , _tdKey = pKey_-  , _tdPropagateAtLaunch = pPropagateAtLaunch_-  , _tdValue = pValue_-  }+    { _tdResourceId = pResourceId_+    , _tdResourceType = pResourceType_+    , _tdKey = pKey_+    , _tdPropagateAtLaunch = pPropagateAtLaunch_+    , _tdValue = pValue_+    }   -- | The name of the group. tdResourceId :: Lens' TagDescription Text-tdResourceId = lens _tdResourceId (\ s a -> s{_tdResourceId = a});+tdResourceId = lens _tdResourceId (\ s a -> s{_tdResourceId = a})  -- | The type of resource. The only supported value is @auto-scaling-group@ . tdResourceType :: Lens' TagDescription Text-tdResourceType = lens _tdResourceType (\ s a -> s{_tdResourceType = a});+tdResourceType = lens _tdResourceType (\ s a -> s{_tdResourceType = a})  -- | The tag key. tdKey :: Lens' TagDescription Text-tdKey = lens _tdKey (\ s a -> s{_tdKey = a});+tdKey = lens _tdKey (\ s a -> s{_tdKey = a})  -- | Determines whether the tag is added to new instances as they are launched in the group. tdPropagateAtLaunch :: Lens' TagDescription Bool-tdPropagateAtLaunch = lens _tdPropagateAtLaunch (\ s a -> s{_tdPropagateAtLaunch = a});+tdPropagateAtLaunch = lens _tdPropagateAtLaunch (\ s a -> s{_tdPropagateAtLaunch = a})  -- | The tag value. tdValue :: Lens' TagDescription Text-tdValue = lens _tdValue (\ s a -> s{_tdValue = a});+tdValue = lens _tdValue (\ s a -> s{_tdValue = a})  instance FromXML TagDescription where         parseXML x@@ -2375,7 +2473,7 @@ -- -- * 'ttcCustomizedMetricSpecification' - A customized metric. ----- * 'ttcDisableScaleIn' - Indicates whether scale in by the target tracking policy is disabled. If the value is @true@ , scale in is disabled and the target tracking policy won't remove instances from the Auto Scaling group. Otherwise, scale in is enabled and the target tracking policy can remove instances from the Auto Scaling group. The default value is @false@ .+-- * 'ttcDisableScaleIn' - Indicates whether scale in by the target tracking policy is disabled. If scale in is disabled, the target tracking policy won't remove instances from the Auto Scaling group. Otherwise, the target tracking policy can remove instances from the Auto Scaling group. The default is disabled. -- -- * 'ttcTargetValue' - The target value for the metric. targetTrackingConfiguration@@ -2383,28 +2481,28 @@     -> TargetTrackingConfiguration targetTrackingConfiguration pTargetValue_ =   TargetTrackingConfiguration'-  { _ttcPredefinedMetricSpecification = Nothing-  , _ttcCustomizedMetricSpecification = Nothing-  , _ttcDisableScaleIn = Nothing-  , _ttcTargetValue = pTargetValue_-  }+    { _ttcPredefinedMetricSpecification = Nothing+    , _ttcCustomizedMetricSpecification = Nothing+    , _ttcDisableScaleIn = Nothing+    , _ttcTargetValue = pTargetValue_+    }   -- | A predefined metric. You can specify either a predefined metric or a customized metric. ttcPredefinedMetricSpecification :: Lens' TargetTrackingConfiguration (Maybe PredefinedMetricSpecification)-ttcPredefinedMetricSpecification = lens _ttcPredefinedMetricSpecification (\ s a -> s{_ttcPredefinedMetricSpecification = a});+ttcPredefinedMetricSpecification = lens _ttcPredefinedMetricSpecification (\ s a -> s{_ttcPredefinedMetricSpecification = a})  -- | A customized metric. ttcCustomizedMetricSpecification :: Lens' TargetTrackingConfiguration (Maybe CustomizedMetricSpecification)-ttcCustomizedMetricSpecification = lens _ttcCustomizedMetricSpecification (\ s a -> s{_ttcCustomizedMetricSpecification = a});+ttcCustomizedMetricSpecification = lens _ttcCustomizedMetricSpecification (\ s a -> s{_ttcCustomizedMetricSpecification = a}) --- | Indicates whether scale in by the target tracking policy is disabled. If the value is @true@ , scale in is disabled and the target tracking policy won't remove instances from the Auto Scaling group. Otherwise, scale in is enabled and the target tracking policy can remove instances from the Auto Scaling group. The default value is @false@ .+-- | Indicates whether scale in by the target tracking policy is disabled. If scale in is disabled, the target tracking policy won't remove instances from the Auto Scaling group. Otherwise, the target tracking policy can remove instances from the Auto Scaling group. The default is disabled. ttcDisableScaleIn :: Lens' TargetTrackingConfiguration (Maybe Bool)-ttcDisableScaleIn = lens _ttcDisableScaleIn (\ s a -> s{_ttcDisableScaleIn = a});+ttcDisableScaleIn = lens _ttcDisableScaleIn (\ s a -> s{_ttcDisableScaleIn = a})  -- | The target value for the metric. ttcTargetValue :: Lens' TargetTrackingConfiguration Double-ttcTargetValue = lens _ttcTargetValue (\ s a -> s{_ttcTargetValue = a});+ttcTargetValue = lens _ttcTargetValue (\ s a -> s{_ttcTargetValue = a})  instance FromXML TargetTrackingConfiguration where         parseXML x

gen/Network/AWS/AutoScaling/Types/Sum.hs view

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.AutoScaling.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs view

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AutoScaling.UpdateAutoScalingGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -43,6 +43,7 @@     -- * Request Lenses     , uasgTerminationPolicies     , uasgHealthCheckGracePeriod+    , uasgServiceLinkedRoleARN     , uasgNewInstancesProtectedFromScaleIn     , uasgVPCZoneIdentifier     , uasgDefaultCooldown@@ -52,6 +53,7 @@     , uasgMinSize     , uasgLaunchConfigurationName     , uasgHealthCheckType+    , uasgLaunchTemplate     , uasgPlacementGroup     , uasgAutoScalingGroupName @@ -69,19 +71,21 @@  -- | /See:/ 'updateAutoScalingGroup' smart constructor. data UpdateAutoScalingGroup = UpdateAutoScalingGroup'-  { _uasgTerminationPolicies              :: !(Maybe [Text])-  , _uasgHealthCheckGracePeriod           :: !(Maybe Int)+  { _uasgTerminationPolicies :: !(Maybe [Text])+  , _uasgHealthCheckGracePeriod :: !(Maybe Int)+  , _uasgServiceLinkedRoleARN :: !(Maybe Text)   , _uasgNewInstancesProtectedFromScaleIn :: !(Maybe Bool)-  , _uasgVPCZoneIdentifier                :: !(Maybe Text)-  , _uasgDefaultCooldown                  :: !(Maybe Int)-  , _uasgMaxSize                          :: !(Maybe Int)-  , _uasgAvailabilityZones                :: !(Maybe (List1 Text))-  , _uasgDesiredCapacity                  :: !(Maybe Int)-  , _uasgMinSize                          :: !(Maybe Int)-  , _uasgLaunchConfigurationName          :: !(Maybe Text)-  , _uasgHealthCheckType                  :: !(Maybe Text)-  , _uasgPlacementGroup                   :: !(Maybe Text)-  , _uasgAutoScalingGroupName             :: !Text+  , _uasgVPCZoneIdentifier :: !(Maybe Text)+  , _uasgDefaultCooldown :: !(Maybe Int)+  , _uasgMaxSize :: !(Maybe Int)+  , _uasgAvailabilityZones :: !(Maybe (List1 Text))+  , _uasgDesiredCapacity :: !(Maybe Int)+  , _uasgMinSize :: !(Maybe Int)+  , _uasgLaunchConfigurationName :: !(Maybe Text)+  , _uasgHealthCheckType :: !(Maybe Text)+  , _uasgLaunchTemplate :: !(Maybe LaunchTemplateSpecification)+  , _uasgPlacementGroup :: !(Maybe Text)+  , _uasgAutoScalingGroupName :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -93,6 +97,8 @@ -- -- * 'uasgHealthCheckGracePeriod' - 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/userguide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/ . --+-- * 'uasgServiceLinkedRoleARN' - The Amazon Resource Name (ARN) of the service-linked role that the Auto Scaling group uses to call other AWS services on your behalf.+-- -- * 'uasgNewInstancesProtectedFromScaleIn' - Indicates whether newly launched instances are protected from termination by Auto Scaling when scaling in. -- -- * 'uasgVPCZoneIdentifier' - The ID of the subnet, if you are launching into a VPC. You can specify several subnets in a comma-separated list. 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/userguide/asg-in-vpc.html Launching Auto Scaling Instances in a VPC> in the /Auto Scaling User Guide/ .@@ -107,10 +113,12 @@ -- -- * 'uasgMinSize' - The minimum size of the Auto Scaling group. ----- * 'uasgLaunchConfigurationName' - The name of the launch configuration.+-- * 'uasgLaunchConfigurationName' - The name of the launch configuration. If you specify a launch configuration, you can't specify a launch template. -- -- * 'uasgHealthCheckType' - The service to use for the health checks. The valid values are @EC2@ and @ELB@ . --+-- * 'uasgLaunchTemplate' - The launch template to use to specify the updates. If you specify a launch template, you can't specify a launch configuration.+-- -- * 'uasgPlacementGroup' - The name of the placement group into which you'll launch your instances, if any. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement Groups> in the /Amazon Elastic Compute Cloud User Guide/ . -- -- * 'uasgAutoScalingGroupName' - The name of the Auto Scaling group.@@ -119,73 +127,83 @@     -> UpdateAutoScalingGroup updateAutoScalingGroup pAutoScalingGroupName_ =   UpdateAutoScalingGroup'-  { _uasgTerminationPolicies = Nothing-  , _uasgHealthCheckGracePeriod = Nothing-  , _uasgNewInstancesProtectedFromScaleIn = Nothing-  , _uasgVPCZoneIdentifier = Nothing-  , _uasgDefaultCooldown = Nothing-  , _uasgMaxSize = Nothing-  , _uasgAvailabilityZones = Nothing-  , _uasgDesiredCapacity = Nothing-  , _uasgMinSize = Nothing-  , _uasgLaunchConfigurationName = Nothing-  , _uasgHealthCheckType = Nothing-  , _uasgPlacementGroup = Nothing-  , _uasgAutoScalingGroupName = pAutoScalingGroupName_-  }+    { _uasgTerminationPolicies = Nothing+    , _uasgHealthCheckGracePeriod = Nothing+    , _uasgServiceLinkedRoleARN = Nothing+    , _uasgNewInstancesProtectedFromScaleIn = Nothing+    , _uasgVPCZoneIdentifier = Nothing+    , _uasgDefaultCooldown = Nothing+    , _uasgMaxSize = Nothing+    , _uasgAvailabilityZones = Nothing+    , _uasgDesiredCapacity = Nothing+    , _uasgMinSize = Nothing+    , _uasgLaunchConfigurationName = Nothing+    , _uasgHealthCheckType = Nothing+    , _uasgLaunchTemplate = Nothing+    , _uasgPlacementGroup = Nothing+    , _uasgAutoScalingGroupName = pAutoScalingGroupName_+    }   -- | 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/userguide/as-instance-termination.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;+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 0. For more information, see <http://docs.aws.amazon.com/autoscaling/latest/userguide/healthcheck.html Health Checks> in the /Auto Scaling User Guide/ . uasgHealthCheckGracePeriod :: Lens' UpdateAutoScalingGroup (Maybe Int)-uasgHealthCheckGracePeriod = lens _uasgHealthCheckGracePeriod (\ s a -> s{_uasgHealthCheckGracePeriod = a});+uasgHealthCheckGracePeriod = lens _uasgHealthCheckGracePeriod (\ s a -> s{_uasgHealthCheckGracePeriod = a}) +-- | The Amazon Resource Name (ARN) of the service-linked role that the Auto Scaling group uses to call other AWS services on your behalf.+uasgServiceLinkedRoleARN :: Lens' UpdateAutoScalingGroup (Maybe Text)+uasgServiceLinkedRoleARN = lens _uasgServiceLinkedRoleARN (\ s a -> s{_uasgServiceLinkedRoleARN = a})+ -- | Indicates whether newly launched instances are protected from termination by Auto Scaling when scaling in. uasgNewInstancesProtectedFromScaleIn :: Lens' UpdateAutoScalingGroup (Maybe Bool)-uasgNewInstancesProtectedFromScaleIn = lens _uasgNewInstancesProtectedFromScaleIn (\ s a -> s{_uasgNewInstancesProtectedFromScaleIn = a});+uasgNewInstancesProtectedFromScaleIn = lens _uasgNewInstancesProtectedFromScaleIn (\ s a -> s{_uasgNewInstancesProtectedFromScaleIn = a})  -- | The ID of the subnet, if you are launching into a VPC. You can specify several subnets in a comma-separated list. 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/userguide/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});+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/userguide/Cooldown.html Auto Scaling Cooldowns> in the /Auto Scaling User Guide/ . uasgDefaultCooldown :: Lens' UpdateAutoScalingGroup (Maybe Int)-uasgDefaultCooldown = lens _uasgDefaultCooldown (\ s a -> s{_uasgDefaultCooldown = a});+uasgDefaultCooldown = lens _uasgDefaultCooldown (\ s a -> s{_uasgDefaultCooldown = a})  -- | The maximum size of the Auto Scaling group. uasgMaxSize :: Lens' UpdateAutoScalingGroup (Maybe Int)-uasgMaxSize = lens _uasgMaxSize (\ s a -> s{_uasgMaxSize = a});+uasgMaxSize = lens _uasgMaxSize (\ s a -> s{_uasgMaxSize = a})  -- | One or more Availability Zones for the group. uasgAvailabilityZones :: Lens' UpdateAutoScalingGroup (Maybe (NonEmpty Text))-uasgAvailabilityZones = lens _uasgAvailabilityZones (\ s a -> s{_uasgAvailabilityZones = a}) . mapping _List1;+uasgAvailabilityZones = lens _uasgAvailabilityZones (\ s a -> s{_uasgAvailabilityZones = a}) . mapping _List1  -- | The number of EC2 instances that should be running in the Auto Scaling group. This number must be greater than or equal to the minimum size of the group and less than or equal to the maximum size of the group. uasgDesiredCapacity :: Lens' UpdateAutoScalingGroup (Maybe Int)-uasgDesiredCapacity = lens _uasgDesiredCapacity (\ s a -> s{_uasgDesiredCapacity = a});+uasgDesiredCapacity = lens _uasgDesiredCapacity (\ s a -> s{_uasgDesiredCapacity = a})  -- | The minimum size of the Auto Scaling group. uasgMinSize :: Lens' UpdateAutoScalingGroup (Maybe Int)-uasgMinSize = lens _uasgMinSize (\ s a -> s{_uasgMinSize = a});+uasgMinSize = lens _uasgMinSize (\ s a -> s{_uasgMinSize = a}) --- | The name of the launch configuration.+-- | The name of the launch configuration. If you specify a launch configuration, you can't specify a launch template. uasgLaunchConfigurationName :: Lens' UpdateAutoScalingGroup (Maybe Text)-uasgLaunchConfigurationName = lens _uasgLaunchConfigurationName (\ s a -> s{_uasgLaunchConfigurationName = a});+uasgLaunchConfigurationName = lens _uasgLaunchConfigurationName (\ s a -> s{_uasgLaunchConfigurationName = a})  -- | The service to use for the health checks. The valid values are @EC2@ and @ELB@ . uasgHealthCheckType :: Lens' UpdateAutoScalingGroup (Maybe Text)-uasgHealthCheckType = lens _uasgHealthCheckType (\ s a -> s{_uasgHealthCheckType = a});+uasgHealthCheckType = lens _uasgHealthCheckType (\ s a -> s{_uasgHealthCheckType = a}) +-- | The launch template to use to specify the updates. If you specify a launch template, you can't specify a launch configuration.+uasgLaunchTemplate :: Lens' UpdateAutoScalingGroup (Maybe LaunchTemplateSpecification)+uasgLaunchTemplate = lens _uasgLaunchTemplate (\ s a -> s{_uasgLaunchTemplate = a})+ -- | The name of the placement group into which you'll launch your instances, if any. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/placement-groups.html Placement Groups> in the /Amazon Elastic Compute Cloud User Guide/ . uasgPlacementGroup :: Lens' UpdateAutoScalingGroup (Maybe Text)-uasgPlacementGroup = lens _uasgPlacementGroup (\ s a -> s{_uasgPlacementGroup = a});+uasgPlacementGroup = lens _uasgPlacementGroup (\ s a -> s{_uasgPlacementGroup = a})  -- | The name of the Auto Scaling group. uasgAutoScalingGroupName :: Lens' UpdateAutoScalingGroup Text-uasgAutoScalingGroupName = lens _uasgAutoScalingGroupName (\ s a -> s{_uasgAutoScalingGroupName = a});+uasgAutoScalingGroupName = lens _uasgAutoScalingGroupName (\ s a -> s{_uasgAutoScalingGroupName = a})  instance AWSRequest UpdateAutoScalingGroup where         type Rs UpdateAutoScalingGroup =@@ -215,6 +233,7 @@                    (toQueryList "member" <$> _uasgTerminationPolicies),                "HealthCheckGracePeriod" =:                  _uasgHealthCheckGracePeriod,+               "ServiceLinkedRoleARN" =: _uasgServiceLinkedRoleARN,                "NewInstancesProtectedFromScaleIn" =:                  _uasgNewInstancesProtectedFromScaleIn,                "VPCZoneIdentifier" =: _uasgVPCZoneIdentifier,@@ -228,6 +247,7 @@                "LaunchConfigurationName" =:                  _uasgLaunchConfigurationName,                "HealthCheckType" =: _uasgHealthCheckType,+               "LaunchTemplate" =: _uasgLaunchTemplate,                "PlacementGroup" =: _uasgPlacementGroup,                "AutoScalingGroupName" =: _uasgAutoScalingGroupName]

gen/Network/AWS/AutoScaling/Waiters.hs view

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.AutoScaling.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

test/Main.hs view

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

test/Test/AWS/AutoScaling.hs view

@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.AutoScaling--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or

test/Test/AWS/AutoScaling/Internal.hs view

@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.AutoScaling.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or

test/Test/AWS/Gen/AutoScaling.hs view

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.AutoScaling--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated