amazonka-autoscaling 0.3.6 → 1.0.0

raw patch · 59 files changed

+9680/−6987 lines, 59 filesdep +amazonka-autoscalingdep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-autoscaling, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +21/−10
• amazonka-autoscaling.cabal +54/−14
• gen/Network/AWS/AutoScaling.hs +504/−99
• gen/Network/AWS/AutoScaling/AttachInstances.hs +75/−70
• gen/Network/AWS/AutoScaling/AttachLoadBalancers.hs +129/−0
• gen/Network/AWS/AutoScaling/CompleteLifecycleAction.hs +128/−99
• gen/Network/AWS/AutoScaling/CreateAutoScalingGroup.hs +250/−229
• gen/Network/AWS/AutoScaling/CreateLaunchConfiguration.hs +312/−271
• gen/Network/AWS/AutoScaling/CreateOrUpdateTags.hs +76/−83
• gen/Network/AWS/AutoScaling/DeleteAutoScalingGroup.hs +80/−73
• gen/Network/AWS/AutoScaling/DeleteLaunchConfiguration.hs +68/−62
• gen/Network/AWS/AutoScaling/DeleteLifecycleHook.hs +93/−74
• gen/Network/AWS/AutoScaling/DeleteNotificationConfiguration.hs +77/−67
• gen/Network/AWS/AutoScaling/DeletePolicy.hs +69/−65
• gen/Network/AWS/AutoScaling/DeleteScheduledAction.hs +68/−66
• gen/Network/AWS/AutoScaling/DeleteTags.hs +64/−66
• gen/Network/AWS/AutoScaling/DescribeAccountLimits.hs +96/−81
• gen/Network/AWS/AutoScaling/DescribeAdjustmentTypes.hs +83/−72
• gen/Network/AWS/AutoScaling/DescribeAutoScalingGroups.hs +123/−112
• gen/Network/AWS/AutoScaling/DescribeAutoScalingInstances.hs +128/−114
• gen/Network/AWS/AutoScaling/DescribeAutoScalingNotificationTypes.hs +95/−79
• gen/Network/AWS/AutoScaling/DescribeLaunchConfigurations.hs +128/−115
• gen/Network/AWS/AutoScaling/DescribeLifecycleHookTypes.hs +86/−75
• gen/Network/AWS/AutoScaling/DescribeLifecycleHooks.hs +99/−93
• gen/Network/AWS/AutoScaling/DescribeLoadBalancers.hs +154/−0
• gen/Network/AWS/AutoScaling/DescribeMetricCollectionTypes.hs +101/−102
• gen/Network/AWS/AutoScaling/DescribeNotificationConfigurations.hs +132/−110
• gen/Network/AWS/AutoScaling/DescribePolicies.hs +146/−124
• gen/Network/AWS/AutoScaling/DescribeScalingActivities.hs +141/−129
• gen/Network/AWS/AutoScaling/DescribeScalingProcessTypes.hs +85/−70
• gen/Network/AWS/AutoScaling/DescribeScheduledActions.hs +163/−147
• gen/Network/AWS/AutoScaling/DescribeTags.hs +127/−112
• gen/Network/AWS/AutoScaling/DescribeTerminationPolicyTypes.hs +89/−74
• gen/Network/AWS/AutoScaling/DetachInstances.hs +112/−104
• gen/Network/AWS/AutoScaling/DetachLoadBalancers.hs +127/−0
• gen/Network/AWS/AutoScaling/DisableMetricsCollection.hs +86/−80
• gen/Network/AWS/AutoScaling/EnableMetricsCollection.hs +100/−97
• gen/Network/AWS/AutoScaling/EnterStandby.hs +112/−104
• gen/Network/AWS/AutoScaling/ExecutePolicy.hs +113/−78
• gen/Network/AWS/AutoScaling/ExitStandby.hs +101/−92
• gen/Network/AWS/AutoScaling/PutLifecycleHook.hs +186/−155
• gen/Network/AWS/AutoScaling/PutNotificationConfiguration.hs +89/−81
• gen/Network/AWS/AutoScaling/PutScalingPolicy.hs +221/−135
• gen/Network/AWS/AutoScaling/PutScheduledUpdateGroupAction.hs +148/−149
• gen/Network/AWS/AutoScaling/RecordLifecycleActionHeartbeat.hs +121/−90
• gen/Network/AWS/AutoScaling/ResumeProcesses.hs +94/−76
• gen/Network/AWS/AutoScaling/SetDesiredCapacity.hs +88/−81
• gen/Network/AWS/AutoScaling/SetInstanceHealth.hs +92/−86
• gen/Network/AWS/AutoScaling/SuspendProcesses.hs +98/−79
• gen/Network/AWS/AutoScaling/TerminateInstanceInAutoScalingGroup.hs +106/−87
• gen/Network/AWS/AutoScaling/Types.hs +337/−2265
• gen/Network/AWS/AutoScaling/Types/Product.hs +2040/−0
• gen/Network/AWS/AutoScaling/Types/Sum.hs +130/−0
• gen/Network/AWS/AutoScaling/UpdateAutoScalingGroup.hs +197/−191
• gen/Network/AWS/AutoScaling/Waiters.hs +20/−0
• test/Main.hs +21/−0
• test/Test/AWS/AutoScaling.hs +26/−0
• test/Test/AWS/AutoScaling/Internal.hs +16/−0
• test/Test/AWS/Gen/AutoScaling.hs +855/−0

@@ -1,25 +1,36 @@ # Amazon Auto Scaling SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -Auto Scaling allows you to scale your Amazon EC2 capacity up or down-automatically according to conditions you define. With Auto Scaling, you can-ensure that the number of Amazon EC2 instances you’re using increases-seamlessly during demand spikes to maintain performance, and decreases-automatically during demand lulls to minimize costs. Auto Scaling is-particularly well suited for applications that experience hourly, daily, or-weekly variability in usage. Auto Scaling is enabled by Amazon CloudWatch and-available at no additional charge beyond Amazon CloudWatch fees.+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.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-autoscaling) and the [AWS API Reference](http://docs.aws.amazon.com/AutoScaling/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,32 +1,38 @@ name:                  amazonka-autoscaling-version:               0.3.6+version:               1.0.0 synopsis:              Amazon Auto Scaling SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    Auto Scaling allows you to scale your Amazon EC2 capacity up or down-    automatically according to conditions you define. With Auto Scaling, you can-    ensure that the number of Amazon EC2 instances you’re using increases-    seamlessly during demand spikes to maintain performance, and decreases-    automatically during demand lulls to minimize costs. Auto Scaling is-    particularly well suited for applications that experience hourly, daily, or-    weekly variability in usage. Auto Scaling is enabled by Amazon CloudWatch and-    available at no additional charge beyond Amazon CloudWatch fees.+    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.     .-    /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.AutoScaling" and the <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -41,6 +47,7 @@     exposed-modules:           Network.AWS.AutoScaling         , Network.AWS.AutoScaling.AttachInstances+        , Network.AWS.AutoScaling.AttachLoadBalancers         , Network.AWS.AutoScaling.CompleteLifecycleAction         , Network.AWS.AutoScaling.CreateAutoScalingGroup         , Network.AWS.AutoScaling.CreateLaunchConfiguration@@ -60,6 +67,7 @@         , Network.AWS.AutoScaling.DescribeLaunchConfigurations         , Network.AWS.AutoScaling.DescribeLifecycleHookTypes         , Network.AWS.AutoScaling.DescribeLifecycleHooks+        , Network.AWS.AutoScaling.DescribeLoadBalancers         , Network.AWS.AutoScaling.DescribeMetricCollectionTypes         , Network.AWS.AutoScaling.DescribeNotificationConfigurations         , Network.AWS.AutoScaling.DescribePolicies@@ -69,6 +77,7 @@         , Network.AWS.AutoScaling.DescribeTags         , Network.AWS.AutoScaling.DescribeTerminationPolicyTypes         , Network.AWS.AutoScaling.DetachInstances+        , Network.AWS.AutoScaling.DetachLoadBalancers         , Network.AWS.AutoScaling.DisableMetricsCollection         , Network.AWS.AutoScaling.EnableMetricsCollection         , Network.AWS.AutoScaling.EnterStandby@@ -86,9 +95,40 @@         , Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup         , Network.AWS.AutoScaling.Types         , Network.AWS.AutoScaling.UpdateAutoScalingGroup+        , Network.AWS.AutoScaling.Waiters      other-modules:+          Network.AWS.AutoScaling.Types.Product+        , Network.AWS.AutoScaling.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-autoscaling-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.AutoScaling+        , Test.AWS.Gen.AutoScaling+        , Test.AWS.AutoScaling.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-autoscaling == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,115 +1,520 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Auto Scaling allows you to scale your Amazon EC2 capacity up or down--- automatically according to conditions you define. With Auto Scaling, you can--- ensure that the number of Amazon EC2 instances you’re using increases--- seamlessly during demand spikes to maintain performance, and decreases--- automatically during demand lulls to minimize costs. Auto Scaling is--- particularly well suited for applications that experience hourly, daily, or--- weekly variability in usage. Auto Scaling is enabled by Amazon CloudWatch and--- available at no additional charge beyond Amazon CloudWatch fees.+-- 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.+--+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.AutoScaling-    ( module Network.AWS.AutoScaling.AttachInstances-    , module Network.AWS.AutoScaling.CompleteLifecycleAction-    , module Network.AWS.AutoScaling.CreateAutoScalingGroup-    , module Network.AWS.AutoScaling.CreateLaunchConfiguration-    , module Network.AWS.AutoScaling.CreateOrUpdateTags-    , module Network.AWS.AutoScaling.DeleteAutoScalingGroup-    , module Network.AWS.AutoScaling.DeleteLaunchConfiguration-    , module Network.AWS.AutoScaling.DeleteLifecycleHook-    , module Network.AWS.AutoScaling.DeleteNotificationConfiguration-    , module Network.AWS.AutoScaling.DeletePolicy-    , module Network.AWS.AutoScaling.DeleteScheduledAction-    , module Network.AWS.AutoScaling.DeleteTags-    , module Network.AWS.AutoScaling.DescribeAccountLimits-    , module Network.AWS.AutoScaling.DescribeAdjustmentTypes-    , module Network.AWS.AutoScaling.DescribeAutoScalingGroups-    , module Network.AWS.AutoScaling.DescribeAutoScalingInstances-    , module Network.AWS.AutoScaling.DescribeAutoScalingNotificationTypes-    , module Network.AWS.AutoScaling.DescribeLaunchConfigurations-    , module Network.AWS.AutoScaling.DescribeLifecycleHookTypes-    , module Network.AWS.AutoScaling.DescribeLifecycleHooks+    (+    -- * Service+      AutoScaling++    -- * Errors+    -- $errors++    -- ** LimitExceededFault+    , _LimitExceededFault++    -- ** AlreadyExistsFault+    , _AlreadyExistsFault++    -- ** ResourceInUseFault+    , _ResourceInUseFault++    -- ** InvalidNextToken+    , _InvalidNextToken++    -- ** ScalingActivityInProgressFault+    , _ScalingActivityInProgressFault++    -- ** ResourceContentionFault+    , _ResourceContentionFault++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** DescribeMetricCollectionTypes     , module Network.AWS.AutoScaling.DescribeMetricCollectionTypes-    , module Network.AWS.AutoScaling.DescribeNotificationConfigurations-    , module Network.AWS.AutoScaling.DescribePolicies-    , module Network.AWS.AutoScaling.DescribeScalingActivities-    , module Network.AWS.AutoScaling.DescribeScalingProcessTypes-    , module Network.AWS.AutoScaling.DescribeScheduledActions++    -- ** PutScalingPolicy+    , module Network.AWS.AutoScaling.PutScalingPolicy++    -- ** DeleteNotificationConfiguration+    , module Network.AWS.AutoScaling.DeleteNotificationConfiguration++    -- ** DescribeTags (Paginated)     , module Network.AWS.AutoScaling.DescribeTags++    -- ** DeleteLaunchConfiguration+    , module Network.AWS.AutoScaling.DeleteLaunchConfiguration++    -- ** DescribeLoadBalancers+    , module Network.AWS.AutoScaling.DescribeLoadBalancers++    -- ** PutNotificationConfiguration+    , module Network.AWS.AutoScaling.PutNotificationConfiguration++    -- ** SetInstanceHealth+    , module Network.AWS.AutoScaling.SetInstanceHealth++    -- ** EnterStandby+    , module Network.AWS.AutoScaling.EnterStandby++    -- ** SuspendProcesses+    , module Network.AWS.AutoScaling.SuspendProcesses++    -- ** ExitStandby+    , module Network.AWS.AutoScaling.ExitStandby++    -- ** DescribeTerminationPolicyTypes     , module Network.AWS.AutoScaling.DescribeTerminationPolicyTypes++    -- ** DescribeAutoScalingInstances (Paginated)+    , module Network.AWS.AutoScaling.DescribeAutoScalingInstances++    -- ** DetachInstances     , module Network.AWS.AutoScaling.DetachInstances++    -- ** DisableMetricsCollection     , module Network.AWS.AutoScaling.DisableMetricsCollection++    -- ** RecordLifecycleActionHeartbeat+    , module Network.AWS.AutoScaling.RecordLifecycleActionHeartbeat++    -- ** DeleteTags+    , module Network.AWS.AutoScaling.DeleteTags++    -- ** DescribeScalingProcessTypes+    , module Network.AWS.AutoScaling.DescribeScalingProcessTypes++    -- ** EnableMetricsCollection     , module Network.AWS.AutoScaling.EnableMetricsCollection-    , module Network.AWS.AutoScaling.EnterStandby-    , module Network.AWS.AutoScaling.ExecutePolicy-    , module Network.AWS.AutoScaling.ExitStandby++    -- ** DescribeLifecycleHooks+    , module Network.AWS.AutoScaling.DescribeLifecycleHooks++    -- ** DescribeAutoScalingGroups (Paginated)+    , module Network.AWS.AutoScaling.DescribeAutoScalingGroups++    -- ** SetDesiredCapacity+    , module Network.AWS.AutoScaling.SetDesiredCapacity++    -- ** DetachLoadBalancers+    , module Network.AWS.AutoScaling.DetachLoadBalancers++    -- ** DeleteScheduledAction+    , module Network.AWS.AutoScaling.DeleteScheduledAction++    -- ** CreateOrUpdateTags+    , module Network.AWS.AutoScaling.CreateOrUpdateTags++    -- ** DeletePolicy+    , module Network.AWS.AutoScaling.DeletePolicy++    -- ** DescribeAutoScalingNotificationTypes+    , module Network.AWS.AutoScaling.DescribeAutoScalingNotificationTypes++    -- ** CompleteLifecycleAction+    , module Network.AWS.AutoScaling.CompleteLifecycleAction++    -- ** AttachInstances+    , module Network.AWS.AutoScaling.AttachInstances++    -- ** DescribeScheduledActions (Paginated)+    , module Network.AWS.AutoScaling.DescribeScheduledActions++    -- ** DeleteAutoScalingGroup+    , module Network.AWS.AutoScaling.DeleteAutoScalingGroup++    -- ** PutLifecycleHook     , module Network.AWS.AutoScaling.PutLifecycleHook-    , module Network.AWS.AutoScaling.PutNotificationConfiguration-    , module Network.AWS.AutoScaling.PutScalingPolicy-    , module Network.AWS.AutoScaling.PutScheduledUpdateGroupAction-    , module Network.AWS.AutoScaling.RecordLifecycleActionHeartbeat++    -- ** UpdateAutoScalingGroup+    , module Network.AWS.AutoScaling.UpdateAutoScalingGroup++    -- ** DeleteLifecycleHook+    , module Network.AWS.AutoScaling.DeleteLifecycleHook++    -- ** ResumeProcesses     , module Network.AWS.AutoScaling.ResumeProcesses-    , module Network.AWS.AutoScaling.SetDesiredCapacity-    , module Network.AWS.AutoScaling.SetInstanceHealth-    , module Network.AWS.AutoScaling.SuspendProcesses++    -- ** ExecutePolicy+    , module Network.AWS.AutoScaling.ExecutePolicy++    -- ** TerminateInstanceInAutoScalingGroup     , module Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup-    , module Network.AWS.AutoScaling.Types-    , module Network.AWS.AutoScaling.UpdateAutoScalingGroup++    -- ** DescribeAccountLimits+    , module Network.AWS.AutoScaling.DescribeAccountLimits++    -- ** AttachLoadBalancers+    , module Network.AWS.AutoScaling.AttachLoadBalancers++    -- ** PutScheduledUpdateGroupAction+    , module Network.AWS.AutoScaling.PutScheduledUpdateGroupAction++    -- ** DescribePolicies (Paginated)+    , module Network.AWS.AutoScaling.DescribePolicies++    -- ** DescribeNotificationConfigurations (Paginated)+    , module Network.AWS.AutoScaling.DescribeNotificationConfigurations++    -- ** DescribeLaunchConfigurations (Paginated)+    , module Network.AWS.AutoScaling.DescribeLaunchConfigurations++    -- ** DescribeLifecycleHookTypes+    , module Network.AWS.AutoScaling.DescribeLifecycleHookTypes++    -- ** DescribeScalingActivities (Paginated)+    , module Network.AWS.AutoScaling.DescribeScalingActivities++    -- ** CreateAutoScalingGroup+    , module Network.AWS.AutoScaling.CreateAutoScalingGroup++    -- ** CreateLaunchConfiguration+    , module Network.AWS.AutoScaling.CreateLaunchConfiguration++    -- ** DescribeAdjustmentTypes+    , module Network.AWS.AutoScaling.DescribeAdjustmentTypes++    -- * Types++    -- ** LifecycleState+    , LifecycleState (..)++    -- ** ScalingActivityStatusCode+    , ScalingActivityStatusCode (..)++    -- ** Activity+    , Activity+    , activity+    , aProgress+    , aStatusMessage+    , aDetails+    , aEndTime+    , aDescription+    , aActivityId+    , aAutoScalingGroupName+    , aCause+    , aStartTime+    , aStatusCode++    -- ** AdjustmentType+    , AdjustmentType+    , adjustmentType+    , atAdjustmentType++    -- ** Alarm+    , Alarm+    , alarm+    , aAlarmName+    , aAlarmARN++    -- ** AutoScalingGroup+    , AutoScalingGroup+    , autoScalingGroup+    , asgStatus+    , asgTerminationPolicies+    , asgHealthCheckGracePeriod+    , asgVPCZoneIdentifier+    , asgEnabledMetrics+    , asgInstances+    , asgAutoScalingGroupARN+    , asgSuspendedProcesses+    , asgPlacementGroup+    , asgLoadBalancerNames+    , asgTags+    , asgAutoScalingGroupName+    , asgLaunchConfigurationName+    , asgMinSize+    , asgMaxSize+    , asgDesiredCapacity+    , asgDefaultCooldown+    , asgAvailabilityZones+    , asgHealthCheckType+    , asgCreatedTime++    -- ** AutoScalingInstanceDetails+    , AutoScalingInstanceDetails+    , autoScalingInstanceDetails+    , asidInstanceId+    , asidAutoScalingGroupName+    , asidAvailabilityZone+    , asidLifecycleState+    , asidHealthStatus+    , asidLaunchConfigurationName++    -- ** BlockDeviceMapping+    , BlockDeviceMapping+    , blockDeviceMapping+    , bdmVirtualName+    , bdmNoDevice+    , bdmEBS+    , bdmDeviceName++    -- ** EBS+    , EBS+    , ebs+    , ebsDeleteOnTermination+    , ebsVolumeSize+    , ebsIOPS+    , ebsVolumeType+    , ebsSnapshotId++    -- ** EnabledMetric+    , EnabledMetric+    , enabledMetric+    , emGranularity+    , emMetric++    -- ** Filter+    , Filter+    , filter'+    , fValues+    , fName++    -- ** Instance+    , Instance+    , instance'+    , iInstanceId+    , iAvailabilityZone+    , iLifecycleState+    , iHealthStatus+    , iLaunchConfigurationName++    -- ** InstanceMonitoring+    , InstanceMonitoring+    , instanceMonitoring+    , imEnabled++    -- ** LaunchConfiguration+    , LaunchConfiguration+    , launchConfiguration+    , lcSecurityGroups+    , lcAssociatePublicIPAddress+    , lcInstanceMonitoring+    , lcSpotPrice+    , lcKeyName+    , lcClassicLinkVPCSecurityGroups+    , lcRAMDiskId+    , lcKernelId+    , lcEBSOptimized+    , lcUserData+    , lcClassicLinkVPCId+    , lcIAMInstanceProfile+    , lcLaunchConfigurationARN+    , lcPlacementTenancy+    , lcBlockDeviceMappings+    , lcLaunchConfigurationName+    , lcImageId+    , lcInstanceType+    , lcCreatedTime++    -- ** LifecycleHook+    , LifecycleHook+    , lifecycleHook+    , lhDefaultResult+    , lhLifecycleHookName+    , lhHeartbeatTimeout+    , lhAutoScalingGroupName+    , lhNotificationMetadata+    , lhGlobalTimeout+    , lhRoleARN+    , lhLifecycleTransition+    , lhNotificationTargetARN++    -- ** LoadBalancerState+    , LoadBalancerState+    , loadBalancerState+    , lbsState+    , lbsLoadBalancerName++    -- ** MetricCollectionType+    , MetricCollectionType+    , metricCollectionType+    , mctMetric++    -- ** MetricGranularityType+    , MetricGranularityType+    , metricGranularityType+    , mgtGranularity++    -- ** NotificationConfiguration+    , NotificationConfiguration+    , notificationConfiguration+    , ncTopicARN+    , ncAutoScalingGroupName+    , ncNotificationType++    -- ** ProcessType+    , ProcessType+    , processType+    , ptProcessName++    -- ** ScalingPolicy+    , ScalingPolicy+    , scalingPolicy+    , sEstimatedInstanceWarmup+    , sMinAdjustmentStep+    , sPolicyName+    , sPolicyType+    , sStepAdjustments+    , sAdjustmentType+    , sScalingAdjustment+    , sAutoScalingGroupName+    , sCooldown+    , sPolicyARN+    , sAlarms+    , sMetricAggregationType+    , sMinAdjustmentMagnitude++    -- ** ScalingProcessQuery+    , ScalingProcessQuery+    , scalingProcessQuery+    , spqScalingProcesses+    , spqAutoScalingGroupName++    -- ** ScheduledUpdateGroupAction+    , ScheduledUpdateGroupAction+    , scheduledUpdateGroupAction+    , sugaScheduledActionARN+    , sugaTime+    , sugaStartTime+    , sugaScheduledActionName+    , sugaMaxSize+    , sugaDesiredCapacity+    , sugaRecurrence+    , sugaMinSize+    , sugaEndTime+    , sugaAutoScalingGroupName++    -- ** StepAdjustment+    , StepAdjustment+    , stepAdjustment+    , saMetricIntervalLowerBound+    , saMetricIntervalUpperBound+    , saScalingAdjustment++    -- ** SuspendedProcess+    , SuspendedProcess+    , suspendedProcess+    , spProcessName+    , spSuspensionReason++    -- ** Tag+    , Tag+    , tag+    , tagKey+    , tagResourceId+    , tagResourceType+    , tagPropagateAtLaunch+    , tagValue++    -- ** TagDescription+    , TagDescription+    , tagDescription+    , tdResourceId+    , tdResourceType+    , tdKey+    , tdPropagateAtLaunch+    , tdValue     ) where -import Network.AWS.AutoScaling.AttachInstances-import Network.AWS.AutoScaling.CompleteLifecycleAction-import Network.AWS.AutoScaling.CreateAutoScalingGroup-import Network.AWS.AutoScaling.CreateLaunchConfiguration-import Network.AWS.AutoScaling.CreateOrUpdateTags-import Network.AWS.AutoScaling.DeleteAutoScalingGroup-import Network.AWS.AutoScaling.DeleteLaunchConfiguration-import Network.AWS.AutoScaling.DeleteLifecycleHook-import Network.AWS.AutoScaling.DeleteNotificationConfiguration-import Network.AWS.AutoScaling.DeletePolicy-import Network.AWS.AutoScaling.DeleteScheduledAction-import Network.AWS.AutoScaling.DeleteTags-import Network.AWS.AutoScaling.DescribeAccountLimits-import Network.AWS.AutoScaling.DescribeAdjustmentTypes-import Network.AWS.AutoScaling.DescribeAutoScalingGroups-import Network.AWS.AutoScaling.DescribeAutoScalingInstances-import Network.AWS.AutoScaling.DescribeAutoScalingNotificationTypes-import Network.AWS.AutoScaling.DescribeLaunchConfigurations-import Network.AWS.AutoScaling.DescribeLifecycleHookTypes-import Network.AWS.AutoScaling.DescribeLifecycleHooks-import Network.AWS.AutoScaling.DescribeMetricCollectionTypes-import Network.AWS.AutoScaling.DescribeNotificationConfigurations-import Network.AWS.AutoScaling.DescribePolicies-import Network.AWS.AutoScaling.DescribeScalingActivities-import Network.AWS.AutoScaling.DescribeScalingProcessTypes-import Network.AWS.AutoScaling.DescribeScheduledActions-import Network.AWS.AutoScaling.DescribeTags-import Network.AWS.AutoScaling.DescribeTerminationPolicyTypes-import Network.AWS.AutoScaling.DetachInstances-import Network.AWS.AutoScaling.DisableMetricsCollection-import Network.AWS.AutoScaling.EnableMetricsCollection-import Network.AWS.AutoScaling.EnterStandby-import Network.AWS.AutoScaling.ExecutePolicy-import Network.AWS.AutoScaling.ExitStandby-import Network.AWS.AutoScaling.PutLifecycleHook-import Network.AWS.AutoScaling.PutNotificationConfiguration-import Network.AWS.AutoScaling.PutScalingPolicy-import Network.AWS.AutoScaling.PutScheduledUpdateGroupAction-import Network.AWS.AutoScaling.RecordLifecycleActionHeartbeat-import Network.AWS.AutoScaling.ResumeProcesses-import Network.AWS.AutoScaling.SetDesiredCapacity-import Network.AWS.AutoScaling.SetInstanceHealth-import Network.AWS.AutoScaling.SuspendProcesses-import Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup-import Network.AWS.AutoScaling.Types-import Network.AWS.AutoScaling.UpdateAutoScalingGroup+import           Network.AWS.AutoScaling.AttachInstances+import           Network.AWS.AutoScaling.AttachLoadBalancers+import           Network.AWS.AutoScaling.CompleteLifecycleAction+import           Network.AWS.AutoScaling.CreateAutoScalingGroup+import           Network.AWS.AutoScaling.CreateLaunchConfiguration+import           Network.AWS.AutoScaling.CreateOrUpdateTags+import           Network.AWS.AutoScaling.DeleteAutoScalingGroup+import           Network.AWS.AutoScaling.DeleteLaunchConfiguration+import           Network.AWS.AutoScaling.DeleteLifecycleHook+import           Network.AWS.AutoScaling.DeleteNotificationConfiguration+import           Network.AWS.AutoScaling.DeletePolicy+import           Network.AWS.AutoScaling.DeleteScheduledAction+import           Network.AWS.AutoScaling.DeleteTags+import           Network.AWS.AutoScaling.DescribeAccountLimits+import           Network.AWS.AutoScaling.DescribeAdjustmentTypes+import           Network.AWS.AutoScaling.DescribeAutoScalingGroups+import           Network.AWS.AutoScaling.DescribeAutoScalingInstances+import           Network.AWS.AutoScaling.DescribeAutoScalingNotificationTypes+import           Network.AWS.AutoScaling.DescribeLaunchConfigurations+import           Network.AWS.AutoScaling.DescribeLifecycleHooks+import           Network.AWS.AutoScaling.DescribeLifecycleHookTypes+import           Network.AWS.AutoScaling.DescribeLoadBalancers+import           Network.AWS.AutoScaling.DescribeMetricCollectionTypes+import           Network.AWS.AutoScaling.DescribeNotificationConfigurations+import           Network.AWS.AutoScaling.DescribePolicies+import           Network.AWS.AutoScaling.DescribeScalingActivities+import           Network.AWS.AutoScaling.DescribeScalingProcessTypes+import           Network.AWS.AutoScaling.DescribeScheduledActions+import           Network.AWS.AutoScaling.DescribeTags+import           Network.AWS.AutoScaling.DescribeTerminationPolicyTypes+import           Network.AWS.AutoScaling.DetachInstances+import           Network.AWS.AutoScaling.DetachLoadBalancers+import           Network.AWS.AutoScaling.DisableMetricsCollection+import           Network.AWS.AutoScaling.EnableMetricsCollection+import           Network.AWS.AutoScaling.EnterStandby+import           Network.AWS.AutoScaling.ExecutePolicy+import           Network.AWS.AutoScaling.ExitStandby+import           Network.AWS.AutoScaling.PutLifecycleHook+import           Network.AWS.AutoScaling.PutNotificationConfiguration+import           Network.AWS.AutoScaling.PutScalingPolicy+import           Network.AWS.AutoScaling.PutScheduledUpdateGroupAction+import           Network.AWS.AutoScaling.RecordLifecycleActionHeartbeat+import           Network.AWS.AutoScaling.ResumeProcesses+import           Network.AWS.AutoScaling.SetDesiredCapacity+import           Network.AWS.AutoScaling.SetInstanceHealth+import           Network.AWS.AutoScaling.SuspendProcesses+import           Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.UpdateAutoScalingGroup+import           Network.AWS.AutoScaling.Waiters++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'AutoScaling'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,103 +1,108 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.AttachInstances--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Attaches one or more EC2 instances to the specified Auto Scaling group.+-- Attaches one or more EC2 instances to the specified Auto Scaling group. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/attach-instance-asg.html Attach Amazon EC2 Instances to Your Existing AutoScaling Group> in the /Auto Scaling Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/attach-instance-asg.html Attach EC2 Instances to Your Auto Scaling Group>+-- in the /Auto Scaling Developer Guide/. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_AttachInstances.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_AttachInstances.html AWS API Reference> for AttachInstances. module Network.AWS.AutoScaling.AttachInstances     (-    -- * Request-      AttachInstances-    -- ** Request constructor-    , attachInstances-    -- ** Request lenses-    , aiAutoScalingGroupName+    -- * Creating a Request+      attachInstances+    , AttachInstances+    -- * Request Lenses     , aiInstanceIds+    , aiAutoScalingGroupName -    -- * Response-    , AttachInstancesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , attachInstancesResponse+    , AttachInstancesResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data AttachInstances = AttachInstances-    { _aiAutoScalingGroupName :: Text-    , _aiInstanceIds          :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'attachInstances' smart constructor.+data AttachInstances = AttachInstances'+    { _aiInstanceIds          :: !(Maybe [Text])+    , _aiAutoScalingGroupName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'AttachInstances' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'AttachInstances' with the minimum fields required to make a request. ----- * 'aiAutoScalingGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'aiInstanceIds' @::@ ['Text']+-- * 'aiInstanceIds' ---attachInstances :: Text -- ^ 'aiAutoScalingGroupName'-                -> AttachInstances-attachInstances p1 = AttachInstances-    { _aiAutoScalingGroupName = p1-    , _aiInstanceIds          = mempty+-- * 'aiAutoScalingGroupName'+attachInstances+    :: Text -- ^ 'aiAutoScalingGroupName'+    -> AttachInstances+attachInstances pAutoScalingGroupName_ =+    AttachInstances'+    { _aiInstanceIds = Nothing+    , _aiAutoScalingGroupName = pAutoScalingGroupName_     } +-- | One or more EC2 instance IDs.+aiInstanceIds :: Lens' AttachInstances [Text]+aiInstanceIds = lens _aiInstanceIds (\ s a -> s{_aiInstanceIds = a}) . _Default . _Coerce;+ -- | The name of the group. aiAutoScalingGroupName :: Lens' AttachInstances Text-aiAutoScalingGroupName =-    lens _aiAutoScalingGroupName (\s a -> s { _aiAutoScalingGroupName = a })---- | One or more EC2 instance IDs. You must specify at least one ID.-aiInstanceIds :: Lens' AttachInstances [Text]-aiInstanceIds = lens _aiInstanceIds (\s a -> s { _aiInstanceIds = a }) . _List+aiAutoScalingGroupName = lens _aiAutoScalingGroupName (\ s a -> s{_aiAutoScalingGroupName = a}); -data AttachInstancesResponse = AttachInstancesResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest AttachInstances where+        type Sv AttachInstances = AutoScaling+        type Rs AttachInstances = AttachInstancesResponse+        request = postQuery+        response = receiveNull AttachInstancesResponse' --- | 'AttachInstancesResponse' constructor.-attachInstancesResponse :: AttachInstancesResponse-attachInstancesResponse = AttachInstancesResponse+instance ToHeaders AttachInstances where+        toHeaders = const mempty  instance ToPath AttachInstances where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AttachInstances where-    toQuery AttachInstances{..} = mconcat-        [ "AutoScalingGroupName" =? _aiAutoScalingGroupName-        , "InstanceIds"          =? _aiInstanceIds-        ]--instance ToHeaders AttachInstances+        toQuery AttachInstances'{..}+          = mconcat+              ["Action" =: ("AttachInstances" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "InstanceIds" =:+                 toQuery (toQueryList "member" <$> _aiInstanceIds),+               "AutoScalingGroupName" =: _aiAutoScalingGroupName] -instance AWSRequest AttachInstances where-    type Sv AttachInstances = AutoScaling-    type Rs AttachInstances = AttachInstancesResponse+-- | /See:/ 'attachInstancesResponse' smart constructor.+data AttachInstancesResponse =+    AttachInstancesResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "AttachInstances"-    response = nullResponse AttachInstancesResponse+-- | Creates a value of 'AttachInstancesResponse' with the minimum fields required to make a request.+--+attachInstancesResponse+    :: AttachInstancesResponse+attachInstancesResponse = AttachInstancesResponse'

@@ -0,0 +1,129 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AutoScaling.AttachLoadBalancers+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Attaches one or more load balancers to the specified Auto Scaling group.+--+-- To describe the load balancers for an Auto Scaling group, use+-- DescribeLoadBalancers. To detach the load balancer from the Auto Scaling+-- group, use DetachLoadBalancers.+--+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/attach-load-balancer-asg.html Attach a Load Balancer to Your Auto Scaling Group>+-- in the /Auto Scaling Developer Guide/.+--+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_AttachLoadBalancers.html AWS API Reference> for AttachLoadBalancers.+module Network.AWS.AutoScaling.AttachLoadBalancers+    (+    -- * Creating a Request+      attachLoadBalancers+    , AttachLoadBalancers+    -- * Request Lenses+    , albAutoScalingGroupName+    , albLoadBalancerNames++    -- * Destructuring the Response+    , attachLoadBalancersResponse+    , AttachLoadBalancersResponse+    -- * Response Lenses+    , albrsStatus+    ) where++import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'attachLoadBalancers' smart constructor.+data AttachLoadBalancers = AttachLoadBalancers'+    { _albAutoScalingGroupName :: !(Maybe Text)+    , _albLoadBalancerNames    :: !(Maybe [Text])+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AttachLoadBalancers' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'albAutoScalingGroupName'+--+-- * 'albLoadBalancerNames'+attachLoadBalancers+    :: AttachLoadBalancers+attachLoadBalancers =+    AttachLoadBalancers'+    { _albAutoScalingGroupName = Nothing+    , _albLoadBalancerNames = Nothing+    }++-- | The name of the group.+albAutoScalingGroupName :: Lens' AttachLoadBalancers (Maybe Text)+albAutoScalingGroupName = lens _albAutoScalingGroupName (\ s a -> s{_albAutoScalingGroupName = a});++-- | One or more load balancer names.+albLoadBalancerNames :: Lens' AttachLoadBalancers [Text]+albLoadBalancerNames = lens _albLoadBalancerNames (\ s a -> s{_albLoadBalancerNames = a}) . _Default . _Coerce;++instance AWSRequest AttachLoadBalancers where+        type Sv AttachLoadBalancers = AutoScaling+        type Rs AttachLoadBalancers =+             AttachLoadBalancersResponse+        request = postQuery+        response+          = receiveXMLWrapper "AttachLoadBalancersResult"+              (\ s h x ->+                 AttachLoadBalancersResponse' <$> (pure (fromEnum s)))++instance ToHeaders AttachLoadBalancers where+        toHeaders = const mempty++instance ToPath AttachLoadBalancers where+        toPath = const "/"++instance ToQuery AttachLoadBalancers where+        toQuery AttachLoadBalancers'{..}+          = mconcat+              ["Action" =: ("AttachLoadBalancers" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "AutoScalingGroupName" =: _albAutoScalingGroupName,+               "LoadBalancerNames" =:+                 toQuery+                   (toQueryList "member" <$> _albLoadBalancerNames)]++-- | /See:/ 'attachLoadBalancersResponse' smart constructor.+newtype AttachLoadBalancersResponse = AttachLoadBalancersResponse'+    { _albrsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AttachLoadBalancersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'albrsStatus'+attachLoadBalancersResponse+    :: Int -- ^ 'albrsStatus'+    -> AttachLoadBalancersResponse+attachLoadBalancersResponse pStatus_ =+    AttachLoadBalancersResponse'+    { _albrsStatus = pStatus_+    }++-- | The response status code.+albrsStatus :: Lens' AttachLoadBalancersResponse Int+albrsStatus = lens _albrsStatus (\ s a -> s{_albrsStatus = a});

@@ -1,140 +1,169 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.CompleteLifecycleAction--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Completes the lifecycle action for the associated token initiated under the--- given lifecycle hook with the specified result.+-- Completes the lifecycle action for the associated token initiated under+-- the given lifecycle hook with the specified result. ----- This operation is a part of the basic sequence for adding a lifecycle hook--- to an Auto Scaling group:+-- This operation is a part of the basic sequence for adding a lifecycle+-- hook to an Auto Scaling group: ----- Create a notification target. A target can be either an Amazon SQS queue or--- an Amazon SNS topic. Create an IAM role. This role allows Auto Scaling to--- publish lifecycle notifications to the designated SQS queue or SNS topic. Create the lifecycle hook. You can create a hook that acts when instances launch or when instances terminate.--- If necessary, record the lifecycle action heartbeat to keep the instance in--- a pending state.  Complete the lifecycle action.  For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingPendingState.html Auto Scaling Pending State> and <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingTerminatingState.html Auto Scaling Terminating State> in the /Auto Scaling Developer Guide/.+-- 1.  Create a notification target. A target can be either an Amazon SQS+--     queue or an Amazon SNS topic.+-- 2.  Create an IAM role. This role allows Auto Scaling to publish+--     lifecycle notifications to the designated SQS queue or SNS topic.+-- 3.  Create the lifecycle hook. You can create a hook that acts when+--     instances launch or when instances terminate.+-- 4.  If necessary, record the lifecycle action heartbeat to keep the+--     instance in a pending state.+-- 5.  __Complete the lifecycle action__. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_CompleteLifecycleAction.html>+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingPendingState.html Auto Scaling Pending State>+-- and+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingTerminatingState.html Auto Scaling Terminating State>+-- in the /Auto Scaling Developer Guide/.+--+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_CompleteLifecycleAction.html AWS API Reference> for CompleteLifecycleAction. module Network.AWS.AutoScaling.CompleteLifecycleAction     (-    -- * Request-      CompleteLifecycleAction-    -- ** Request constructor-    , completeLifecycleAction-    -- ** Request lenses+    -- * Creating a Request+      completeLifecycleAction+    , CompleteLifecycleAction+    -- * Request Lenses+    , claLifecycleHookName     , claAutoScalingGroupName-    , claLifecycleActionResult     , claLifecycleActionToken-    , claLifecycleHookName+    , claLifecycleActionResult -    -- * Response-    , CompleteLifecycleActionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , completeLifecycleActionResponse+    , CompleteLifecycleActionResponse+    -- * Response Lenses+    , clarsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CompleteLifecycleAction = CompleteLifecycleAction-    { _claAutoScalingGroupName  :: Text-    , _claLifecycleActionResult :: Text-    , _claLifecycleActionToken  :: Text-    , _claLifecycleHookName     :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'completeLifecycleAction' smart constructor.+data CompleteLifecycleAction = CompleteLifecycleAction'+    { _claLifecycleHookName     :: !Text+    , _claAutoScalingGroupName  :: !Text+    , _claLifecycleActionToken  :: !Text+    , _claLifecycleActionResult :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CompleteLifecycleAction' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CompleteLifecycleAction' with the minimum fields required to make a request. ----- * 'claAutoScalingGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'claLifecycleActionResult' @::@ 'Text'+-- * 'claLifecycleHookName' ----- * 'claLifecycleActionToken' @::@ 'Text'+-- * 'claAutoScalingGroupName' ----- * 'claLifecycleHookName' @::@ 'Text'+-- * 'claLifecycleActionToken' ---completeLifecycleAction :: Text -- ^ 'claLifecycleHookName'-                        -> Text -- ^ 'claAutoScalingGroupName'-                        -> Text -- ^ 'claLifecycleActionToken'-                        -> Text -- ^ 'claLifecycleActionResult'-                        -> CompleteLifecycleAction-completeLifecycleAction p1 p2 p3 p4 = CompleteLifecycleAction-    { _claLifecycleHookName     = p1-    , _claAutoScalingGroupName  = p2-    , _claLifecycleActionToken  = p3-    , _claLifecycleActionResult = p4+-- * 'claLifecycleActionResult'+completeLifecycleAction+    :: Text -- ^ 'claLifecycleHookName'+    -> Text -- ^ 'claAutoScalingGroupName'+    -> Text -- ^ 'claLifecycleActionToken'+    -> Text -- ^ 'claLifecycleActionResult'+    -> CompleteLifecycleAction+completeLifecycleAction pLifecycleHookName_ pAutoScalingGroupName_ pLifecycleActionToken_ pLifecycleActionResult_ =+    CompleteLifecycleAction'+    { _claLifecycleHookName = pLifecycleHookName_+    , _claAutoScalingGroupName = pAutoScalingGroupName_+    , _claLifecycleActionToken = pLifecycleActionToken_+    , _claLifecycleActionResult = pLifecycleActionResult_     } +-- | The name of the lifecycle hook.+claLifecycleHookName :: Lens' CompleteLifecycleAction Text+claLifecycleHookName = lens _claLifecycleHookName (\ s a -> s{_claLifecycleHookName = a});+ -- | The name of the group for the lifecycle hook. claAutoScalingGroupName :: Lens' CompleteLifecycleAction Text-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 })+claAutoScalingGroupName = lens _claAutoScalingGroupName (\ s a -> s{_claAutoScalingGroupName = 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.+-- | 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 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 })+-- | 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}); -data CompleteLifecycleActionResponse = CompleteLifecycleActionResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest CompleteLifecycleAction where+        type Sv CompleteLifecycleAction = AutoScaling+        type Rs CompleteLifecycleAction =+             CompleteLifecycleActionResponse+        request = postQuery+        response+          = receiveXMLWrapper "CompleteLifecycleActionResult"+              (\ s h x ->+                 CompleteLifecycleActionResponse' <$>+                   (pure (fromEnum s))) --- | 'CompleteLifecycleActionResponse' constructor.-completeLifecycleActionResponse :: CompleteLifecycleActionResponse-completeLifecycleActionResponse = CompleteLifecycleActionResponse+instance ToHeaders CompleteLifecycleAction where+        toHeaders = const mempty  instance ToPath CompleteLifecycleAction where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CompleteLifecycleAction where-    toQuery CompleteLifecycleAction{..} = mconcat-        [ "AutoScalingGroupName"  =? _claAutoScalingGroupName-        , "LifecycleActionResult" =? _claLifecycleActionResult-        , "LifecycleActionToken"  =? _claLifecycleActionToken-        , "LifecycleHookName"     =? _claLifecycleHookName-        ]+        toQuery CompleteLifecycleAction'{..}+          = mconcat+              ["Action" =:+                 ("CompleteLifecycleAction" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "LifecycleHookName" =: _claLifecycleHookName,+               "AutoScalingGroupName" =: _claAutoScalingGroupName,+               "LifecycleActionToken" =: _claLifecycleActionToken,+               "LifecycleActionResult" =: _claLifecycleActionResult] -instance ToHeaders CompleteLifecycleAction+-- | /See:/ 'completeLifecycleActionResponse' smart constructor.+newtype CompleteLifecycleActionResponse = CompleteLifecycleActionResponse'+    { _clarsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CompleteLifecycleAction where-    type Sv CompleteLifecycleAction = AutoScaling-    type Rs CompleteLifecycleAction = CompleteLifecycleActionResponse+-- | Creates a value of 'CompleteLifecycleActionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clarsStatus'+completeLifecycleActionResponse+    :: Int -- ^ 'clarsStatus'+    -> CompleteLifecycleActionResponse+completeLifecycleActionResponse pStatus_ =+    CompleteLifecycleActionResponse'+    { _clarsStatus = pStatus_+    } -    request  = post "CompleteLifecycleAction"-    response = nullResponse CompleteLifecycleActionResponse+-- | The response status code.+clarsStatus :: Lens' CompleteLifecycleActionResponse Int+clarsStatus = lens _clarsStatus (\ s a -> s{_clarsStatus = a});

@@ -1,302 +1,323 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.CreateAutoScalingGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates an Auto Scaling group with the specified name and attributes.+-- 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--- these limits, see 'DescribeAccountLimits'.+-- 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. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_CreateAutoScalingGroup.html>+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/AutoScalingGroup.html Auto Scaling Groups>+-- in the /Auto Scaling Developer Guide/.+--+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_CreateAutoScalingGroup.html AWS API Reference> for CreateAutoScalingGroup. module Network.AWS.AutoScaling.CreateAutoScalingGroup     (-    -- * Request-      CreateAutoScalingGroup-    -- ** Request constructor-    , createAutoScalingGroup-    -- ** Request lenses-    , casgAutoScalingGroupName-    , casgAvailabilityZones+    -- * Creating a Request+      createAutoScalingGroup+    , CreateAutoScalingGroup+    -- * Request Lenses+    , casgInstanceId+    , casgTerminationPolicies+    , casgHealthCheckGracePeriod+    , casgVPCZoneIdentifier     , casgDefaultCooldown     , casgDesiredCapacity-    , casgHealthCheckGracePeriod+    , casgAvailabilityZones     , casgHealthCheckType-    , casgInstanceId     , casgLaunchConfigurationName-    , casgLoadBalancerNames-    , casgMaxSize-    , casgMinSize     , casgPlacementGroup+    , casgLoadBalancerNames     , casgTags-    , casgTerminationPolicies-    , casgVPCZoneIdentifier+    , casgAutoScalingGroupName+    , casgMinSize+    , casgMaxSize -    -- * Response-    , CreateAutoScalingGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createAutoScalingGroupResponse+    , CreateAutoScalingGroupResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateAutoScalingGroup = CreateAutoScalingGroup-    { _casgAutoScalingGroupName    :: Text-    , _casgAvailabilityZones       :: List1 "member" Text-    , _casgDefaultCooldown         :: Maybe Int-    , _casgDesiredCapacity         :: Maybe Int-    , _casgHealthCheckGracePeriod  :: Maybe Int-    , _casgHealthCheckType         :: Maybe Text-    , _casgInstanceId              :: Maybe Text-    , _casgLaunchConfigurationName :: Maybe Text-    , _casgLoadBalancerNames       :: List "member" Text-    , _casgMaxSize                 :: Int-    , _casgMinSize                 :: Int-    , _casgPlacementGroup          :: Maybe Text-    , _casgTags                    :: List "member" Tag-    , _casgTerminationPolicies     :: List "member" Text-    , _casgVPCZoneIdentifier       :: Maybe Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'createAutoScalingGroup' smart constructor.+data CreateAutoScalingGroup = CreateAutoScalingGroup'+    { _casgInstanceId              :: !(Maybe Text)+    , _casgTerminationPolicies     :: !(Maybe [Text])+    , _casgHealthCheckGracePeriod  :: !(Maybe Int)+    , _casgVPCZoneIdentifier       :: !(Maybe Text)+    , _casgDefaultCooldown         :: !(Maybe Int)+    , _casgDesiredCapacity         :: !(Maybe Int)+    , _casgAvailabilityZones       :: !(Maybe (List1 Text))+    , _casgHealthCheckType         :: !(Maybe Text)+    , _casgLaunchConfigurationName :: !(Maybe Text)+    , _casgPlacementGroup          :: !(Maybe Text)+    , _casgLoadBalancerNames       :: !(Maybe [Text])+    , _casgTags                    :: !(Maybe [Tag])+    , _casgAutoScalingGroupName    :: !Text+    , _casgMinSize                 :: !Int+    , _casgMaxSize                 :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateAutoScalingGroup' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateAutoScalingGroup' with the minimum fields required to make a request. ----- * 'casgAutoScalingGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'casgAvailabilityZones' @::@ 'NonEmpty' 'Text'+-- * 'casgInstanceId' ----- * 'casgDefaultCooldown' @::@ 'Maybe' 'Int'+-- * 'casgTerminationPolicies' ----- * 'casgDesiredCapacity' @::@ 'Maybe' 'Int'+-- * 'casgHealthCheckGracePeriod' ----- * 'casgHealthCheckGracePeriod' @::@ 'Maybe' 'Int'+-- * 'casgVPCZoneIdentifier' ----- * 'casgHealthCheckType' @::@ 'Maybe' 'Text'+-- * 'casgDefaultCooldown' ----- * 'casgInstanceId' @::@ 'Maybe' 'Text'+-- * 'casgDesiredCapacity' ----- * 'casgLaunchConfigurationName' @::@ 'Maybe' 'Text'+-- * 'casgAvailabilityZones' ----- * 'casgLoadBalancerNames' @::@ ['Text']+-- * 'casgHealthCheckType' ----- * 'casgMaxSize' @::@ 'Int'+-- * 'casgLaunchConfigurationName' ----- * 'casgMinSize' @::@ 'Int'+-- * 'casgPlacementGroup' ----- * 'casgPlacementGroup' @::@ 'Maybe' 'Text'+-- * 'casgLoadBalancerNames' ----- * 'casgTags' @::@ ['Tag']+-- * 'casgTags' ----- * 'casgTerminationPolicies' @::@ ['Text']+-- * 'casgAutoScalingGroupName' ----- * 'casgVPCZoneIdentifier' @::@ 'Maybe' 'Text'+-- * 'casgMinSize' ---createAutoScalingGroup :: Text -- ^ 'casgAutoScalingGroupName'-                       -> Int -- ^ 'casgMinSize'-                       -> Int -- ^ 'casgMaxSize'-                       -> NonEmpty Text -- ^ 'casgAvailabilityZones'-                       -> CreateAutoScalingGroup-createAutoScalingGroup p1 p2 p3 p4 = CreateAutoScalingGroup-    { _casgAutoScalingGroupName    = p1-    , _casgMinSize                 = p2-    , _casgMaxSize                 = p3-    , _casgAvailabilityZones       = withIso _List1 (const id) p4+-- * 'casgMaxSize'+createAutoScalingGroup+    :: Text -- ^ 'casgAutoScalingGroupName'+    -> Int -- ^ 'casgMinSize'+    -> Int -- ^ 'casgMaxSize'+    -> CreateAutoScalingGroup+createAutoScalingGroup pAutoScalingGroupName_ pMinSize_ pMaxSize_ =+    CreateAutoScalingGroup'+    { _casgInstanceId = Nothing+    , _casgTerminationPolicies = Nothing+    , _casgHealthCheckGracePeriod = Nothing+    , _casgVPCZoneIdentifier = Nothing+    , _casgDefaultCooldown = Nothing+    , _casgDesiredCapacity = Nothing+    , _casgAvailabilityZones = Nothing+    , _casgHealthCheckType = Nothing     , _casgLaunchConfigurationName = Nothing-    , _casgInstanceId              = Nothing-    , _casgDesiredCapacity         = Nothing-    , _casgDefaultCooldown         = Nothing-    , _casgLoadBalancerNames       = mempty-    , _casgHealthCheckType         = Nothing-    , _casgHealthCheckGracePeriod  = Nothing-    , _casgPlacementGroup          = Nothing-    , _casgVPCZoneIdentifier       = Nothing-    , _casgTerminationPolicies     = mempty-    , _casgTags                    = mempty+    , _casgPlacementGroup = Nothing+    , _casgLoadBalancerNames = Nothing+    , _casgTags = Nothing+    , _casgAutoScalingGroupName = pAutoScalingGroupName_+    , _casgMinSize = pMinSize_+    , _casgMaxSize = pMaxSize_     } --- | The name of the 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 })---- | One or more Availability Zones for the group. This parameter is optional if--- you specify subnets using the 'VPCZoneIdentifier' parameter.-casgAvailabilityZones :: Lens' CreateAutoScalingGroup (NonEmpty Text)-casgAvailabilityZones =-    lens _casgAvailabilityZones (\s a -> s { _casgAvailabilityZones = a })-        . _List1---- | The amount of time, in seconds, after a scaling activity completes before--- another scaling activity can start.+-- | The ID of the EC2 instance used to create a launch configuration for the+-- group. Alternatively, use the 'LaunchConfigurationName' parameter to+-- specify a launch configuration instead of an EC2 instance. ----- If 'DefaultCooldown' is not specified, the default value is 300. For more--- information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Understanding Auto Scaling Cooldowns> in the /Auto ScalingDeveloper Guide/.-casgDefaultCooldown :: Lens' CreateAutoScalingGroup (Maybe Int)-casgDefaultCooldown =-    lens _casgDefaultCooldown (\s a -> s { _casgDefaultCooldown = a })+-- When you specify an ID of an instance, Auto Scaling creates a new launch+-- configuration and associates it with the group. This launch+-- configuration derives its attributes from the specified instance, with+-- the exception of the block device mapping.+--+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/create-asg-from-instance.html Create an Auto Scaling Group from an EC2 Instance>+-- in the /Auto Scaling Developer Guide/.+casgInstanceId :: Lens' CreateAutoScalingGroup (Maybe Text)+casgInstanceId = lens _casgInstanceId (\ s a -> s{_casgInstanceId = a}); --- | The number of EC2 instances that should be running in the group. This value--- 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.-casgDesiredCapacity :: Lens' CreateAutoScalingGroup (Maybe Int)-casgDesiredCapacity =-    lens _casgDesiredCapacity (\s a -> s { _casgDesiredCapacity = a })+-- | One or more termination policies used to select the instance to+-- terminate. These policies are executed in the order that they are+-- listed.+--+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/us-termination-policy.html Choosing a Termination Policy for Your Auto Scaling Group>+-- in the /Auto Scaling Developer Guide/.+casgTerminationPolicies :: Lens' CreateAutoScalingGroup [Text]+casgTerminationPolicies = lens _casgTerminationPolicies (\ s a -> s{_casgTerminationPolicies = a}) . _Default . _Coerce; --- | The amount of time, in seconds, after an EC2 instance comes into service that--- Auto Scaling starts checking its health. During this time, any health check--- failures for the instance are ignored.+-- | The amount of time, in seconds, after an EC2 instance comes into service+-- that Auto Scaling starts checking its health. During this time, any+-- health check failures for the instance are ignored. -- -- This parameter is required if you are adding an 'ELB' health check.--- Frequently, new instances need to warm up, briefly, before they can pass a--- health check. To provide ample warm-up time, set the health check grace--- period of the group to match the expected startup period of your application.+-- Frequently, new instances need to warm up, briefly, before they can pass+-- a health check. To provide ample warm-up time, set the health check+-- grace period of the group to match the expected startup period of your+-- application. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/as-add-elb-healthcheck.html Add an Elastic Load Balancing Health Check to YourAuto Scaling Group> in the /Auto Scaling Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/as-add-elb-healthcheck.html Add an Elastic Load Balancing Health Check to Your Auto Scaling Group>+-- in the /Auto Scaling Developer Guide/. casgHealthCheckGracePeriod :: Lens' CreateAutoScalingGroup (Maybe Int)-casgHealthCheckGracePeriod =-    lens _casgHealthCheckGracePeriod-        (\s a -> s { _casgHealthCheckGracePeriod = a })+casgHealthCheckGracePeriod = lens _casgHealthCheckGracePeriod (\ s a -> s{_casgHealthCheckGracePeriod = a}); --- | The service to use for the health checks. The valid values are 'EC2' and 'ELB'.+-- | A comma-separated list of subnet identifiers for your virtual private+-- cloud (VPC). ----- By default, health checks use Amazon EC2 instance status checks to determine--- the health of an instance. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks>.-casgHealthCheckType :: Lens' CreateAutoScalingGroup (Maybe Text)-casgHealthCheckType =-    lens _casgHealthCheckType (\s a -> s { _casgHealthCheckType = a })+-- If you specify subnets and Availability Zones with this call, ensure+-- that the subnets\' Availability Zones match the Availability Zones+-- specified.+--+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/autoscalingsubnets.html Auto Scaling and Amazon Virtual Private Cloud>+-- in the /Auto Scaling Developer Guide/.+casgVPCZoneIdentifier :: Lens' CreateAutoScalingGroup (Maybe Text)+casgVPCZoneIdentifier = lens _casgVPCZoneIdentifier (\ s a -> s{_casgVPCZoneIdentifier = a}); --- | The ID of the EC2 instance used to create a launch configuration for the--- group. Alternatively, use the 'LaunchConfigurationName' parameter to specify a--- launch configuration instead of an EC2 instance.+-- | The amount of time, in seconds, after a scaling activity completes+-- before another scaling activity can start. ----- 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.+-- If this parameter is not specified, the default value is 300. For more+-- information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/Cooldown.html Understanding Auto Scaling Cooldowns>+-- in the /Auto Scaling Developer Guide/.+casgDefaultCooldown :: Lens' CreateAutoScalingGroup (Maybe Int)+casgDefaultCooldown = lens _casgDefaultCooldown (\ s a -> s{_casgDefaultCooldown = a});++-- | 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.+casgDesiredCapacity :: Lens' CreateAutoScalingGroup (Maybe Int)+casgDesiredCapacity = lens _casgDesiredCapacity (\ s a -> s{_casgDesiredCapacity = a});++-- | One or more Availability Zones for the group. This parameter is optional+-- if you specify subnets using the 'VPCZoneIdentifier' parameter.+casgAvailabilityZones :: Lens' CreateAutoScalingGroup (Maybe (NonEmpty Text))+casgAvailabilityZones = lens _casgAvailabilityZones (\ s a -> s{_casgAvailabilityZones = a}) . mapping _List1;++-- | The service to use for the health checks. The valid values are 'EC2' and+-- 'ELB'. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/create-asg-from-instance.html Create an Auto Scaling Group Using an EC2 InstanceID> in the /Auto Scaling Developer Guide/.-casgInstanceId :: Lens' CreateAutoScalingGroup (Maybe Text)-casgInstanceId = lens _casgInstanceId (\s a -> s { _casgInstanceId = a })+-- By default, health checks use Amazon EC2 instance status checks to+-- determine the health of an instance. For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/healthcheck.html Health Checks>.+casgHealthCheckType :: Lens' CreateAutoScalingGroup (Maybe Text)+casgHealthCheckType = lens _casgHealthCheckType (\ s a -> s{_casgHealthCheckType = a}); --- | The name of the launch configuration. Alternatively, use the 'InstanceId'--- parameter to specify an EC2 instance instead of a launch configuration.+-- | The name of the launch configuration. Alternatively, use the+-- 'InstanceId' parameter to specify an EC2 instance instead of a launch+-- configuration. casgLaunchConfigurationName :: Lens' CreateAutoScalingGroup (Maybe Text)-casgLaunchConfigurationName =-    lens _casgLaunchConfigurationName-        (\s a -> s { _casgLaunchConfigurationName = a })+casgLaunchConfigurationName = lens _casgLaunchConfigurationName (\ s a -> s{_casgLaunchConfigurationName = 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});+ -- | One or more load balancers. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SetUpASLBApp.html Load Balance Your Auto Scaling Group> in the /AutoScaling Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US_SetUpASLBApp.html Load Balance Your Auto Scaling Group>+-- in the /Auto Scaling Developer Guide/. casgLoadBalancerNames :: Lens' CreateAutoScalingGroup [Text]-casgLoadBalancerNames =-    lens _casgLoadBalancerNames (\s a -> s { _casgLoadBalancerNames = a })-        . _List---- | The maximum size of the group.-casgMaxSize :: Lens' CreateAutoScalingGroup Int-casgMaxSize = lens _casgMaxSize (\s a -> s { _casgMaxSize = a })---- | The minimum size of the group.-casgMinSize :: Lens' CreateAutoScalingGroup Int-casgMinSize = lens _casgMinSize (\s a -> s { _casgMinSize = 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>.-casgPlacementGroup :: Lens' CreateAutoScalingGroup (Maybe Text)-casgPlacementGroup =-    lens _casgPlacementGroup (\s a -> s { _casgPlacementGroup = a })+casgLoadBalancerNames = lens _casgLoadBalancerNames (\ s a -> s{_casgLoadBalancerNames = a}) . _Default . _Coerce; --- | The tag to be created or updated. Each tag should be defined by its resource--- type, resource ID, key, value, and a propagate flag. Valid values: key=/value/,--- value=/value/, propagate=/true/ or /false/. Value and propagate are optional--- parameters.+-- | The tag to be created or updated. Each tag should be defined by its+-- resource type, resource ID, key, value, and a propagate flag. Valid+-- values: key=/value/, value=/value/, propagate=/true/ or /false/. Value+-- and propagate are optional parameters. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASTagging.html Add, Modify, or Remove Auto Scaling Group Tags> in--- the /Auto Scaling Developer Guide/.+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASTagging.html Tagging Auto Scaling Groups and Instances>+-- in the /Auto Scaling Developer Guide/. casgTags :: Lens' CreateAutoScalingGroup [Tag]-casgTags = lens _casgTags (\s a -> s { _casgTags = a }) . _List+casgTags = lens _casgTags (\ s a -> s{_casgTags = a}) . _Default . _Coerce; --- | One or more termination policies used to select the instance to terminate.--- These policies are executed in the order that they are listed.------ For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/us-termination-policy.html Choosing a Termination Policy for Your AutoScaling Group> in the /Auto Scaling Developer Guide/.-casgTerminationPolicies :: Lens' CreateAutoScalingGroup [Text]-casgTerminationPolicies =-    lens _casgTerminationPolicies (\s a -> s { _casgTerminationPolicies = a })-        . _List+-- | The name of the 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}); --- | 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/DeveloperGuide/autoscalingsubnets.html Auto Scaling and Amazon VPC> in the /Auto ScalingDeveloper Guide/.-casgVPCZoneIdentifier :: Lens' CreateAutoScalingGroup (Maybe Text)-casgVPCZoneIdentifier =-    lens _casgVPCZoneIdentifier (\s a -> s { _casgVPCZoneIdentifier = a })+-- | The minimum size of the group.+casgMinSize :: Lens' CreateAutoScalingGroup Int+casgMinSize = lens _casgMinSize (\ s a -> s{_casgMinSize = a}); -data CreateAutoScalingGroupResponse = CreateAutoScalingGroupResponse-    deriving (Eq, Ord, Read, Show, Generic)+-- | The maximum size of the group.+casgMaxSize :: Lens' CreateAutoScalingGroup Int+casgMaxSize = lens _casgMaxSize (\ s a -> s{_casgMaxSize = a}); --- | 'CreateAutoScalingGroupResponse' constructor.-createAutoScalingGroupResponse :: CreateAutoScalingGroupResponse-createAutoScalingGroupResponse = CreateAutoScalingGroupResponse+instance AWSRequest CreateAutoScalingGroup where+        type Sv CreateAutoScalingGroup = AutoScaling+        type Rs CreateAutoScalingGroup =+             CreateAutoScalingGroupResponse+        request = postQuery+        response+          = receiveNull CreateAutoScalingGroupResponse' +instance ToHeaders CreateAutoScalingGroup where+        toHeaders = const mempty+ instance ToPath CreateAutoScalingGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateAutoScalingGroup where-    toQuery CreateAutoScalingGroup{..} = mconcat-        [ "AutoScalingGroupName"    =? _casgAutoScalingGroupName-        , "AvailabilityZones"       =? _casgAvailabilityZones-        , "DefaultCooldown"         =? _casgDefaultCooldown-        , "DesiredCapacity"         =? _casgDesiredCapacity-        , "HealthCheckGracePeriod"  =? _casgHealthCheckGracePeriod-        , "HealthCheckType"         =? _casgHealthCheckType-        , "InstanceId"              =? _casgInstanceId-        , "LaunchConfigurationName" =? _casgLaunchConfigurationName-        , "LoadBalancerNames"       =? _casgLoadBalancerNames-        , "MaxSize"                 =? _casgMaxSize-        , "MinSize"                 =? _casgMinSize-        , "PlacementGroup"          =? _casgPlacementGroup-        , "Tags"                    =? _casgTags-        , "TerminationPolicies"     =? _casgTerminationPolicies-        , "VPCZoneIdentifier"       =? _casgVPCZoneIdentifier-        ]--instance ToHeaders CreateAutoScalingGroup+        toQuery CreateAutoScalingGroup'{..}+          = mconcat+              ["Action" =:+                 ("CreateAutoScalingGroup" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "InstanceId" =: _casgInstanceId,+               "TerminationPolicies" =:+                 toQuery+                   (toQueryList "member" <$> _casgTerminationPolicies),+               "HealthCheckGracePeriod" =:+                 _casgHealthCheckGracePeriod,+               "VPCZoneIdentifier" =: _casgVPCZoneIdentifier,+               "DefaultCooldown" =: _casgDefaultCooldown,+               "DesiredCapacity" =: _casgDesiredCapacity,+               "AvailabilityZones" =:+                 toQuery+                   (toQueryList "member" <$> _casgAvailabilityZones),+               "HealthCheckType" =: _casgHealthCheckType,+               "LaunchConfigurationName" =:+                 _casgLaunchConfigurationName,+               "PlacementGroup" =: _casgPlacementGroup,+               "LoadBalancerNames" =:+                 toQuery+                   (toQueryList "member" <$> _casgLoadBalancerNames),+               "Tags" =:+                 toQuery (toQueryList "member" <$> _casgTags),+               "AutoScalingGroupName" =: _casgAutoScalingGroupName,+               "MinSize" =: _casgMinSize, "MaxSize" =: _casgMaxSize] -instance AWSRequest CreateAutoScalingGroup where-    type Sv CreateAutoScalingGroup = AutoScaling-    type Rs CreateAutoScalingGroup = CreateAutoScalingGroupResponse+-- | /See:/ 'createAutoScalingGroupResponse' smart constructor.+data CreateAutoScalingGroupResponse =+    CreateAutoScalingGroupResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "CreateAutoScalingGroup"-    response = nullResponse CreateAutoScalingGroupResponse+-- | Creates a value of 'CreateAutoScalingGroupResponse' with the minimum fields required to make a request.+--+createAutoScalingGroupResponse+    :: CreateAutoScalingGroupResponse+createAutoScalingGroupResponse = CreateAutoScalingGroupResponse'

@@ -1,345 +1,386 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.CreateLaunchConfiguration--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a launch configuration.+-- 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--- these limits, see 'DescribeAccountLimits'.+-- 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. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_CreateLaunchConfiguration.html>+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/LaunchConfiguration.html Launch Configurations>+-- in the /Auto Scaling Developer Guide/.+--+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_CreateLaunchConfiguration.html AWS API Reference> for CreateLaunchConfiguration. module Network.AWS.AutoScaling.CreateLaunchConfiguration     (-    -- * Request-      CreateLaunchConfiguration-    -- ** Request constructor-    , createLaunchConfiguration-    -- ** Request lenses-    , clcAssociatePublicIpAddress-    , clcBlockDeviceMappings-    , clcClassicLinkVPCId-    , clcClassicLinkVPCSecurityGroups-    , clcEbsOptimized-    , clcIamInstanceProfile-    , clcImageId+    -- * Creating a Request+      createLaunchConfiguration+    , CreateLaunchConfiguration+    -- * Request Lenses     , clcInstanceId-    , clcInstanceMonitoring-    , clcInstanceType-    , clcKernelId-    , clcKeyName-    , clcLaunchConfigurationName-    , clcPlacementTenancy-    , clcRamdiskId     , clcSecurityGroups+    , clcAssociatePublicIPAddress+    , clcInstanceMonitoring     , clcSpotPrice+    , clcKeyName+    , clcClassicLinkVPCSecurityGroups+    , clcRAMDiskId+    , clcKernelId+    , clcInstanceType+    , clcEBSOptimized     , clcUserData+    , clcClassicLinkVPCId+    , clcIAMInstanceProfile+    , clcImageId+    , clcPlacementTenancy+    , clcBlockDeviceMappings+    , clcLaunchConfigurationName -    -- * Response-    , CreateLaunchConfigurationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createLaunchConfigurationResponse+    , CreateLaunchConfigurationResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data CreateLaunchConfiguration = CreateLaunchConfiguration-    { _clcAssociatePublicIpAddress     :: Maybe Bool-    , _clcBlockDeviceMappings          :: List "member" BlockDeviceMapping-    , _clcClassicLinkVPCId             :: Maybe Text-    , _clcClassicLinkVPCSecurityGroups :: List "member" Text-    , _clcEbsOptimized                 :: Maybe Bool-    , _clcIamInstanceProfile           :: Maybe Text-    , _clcImageId                      :: Maybe Text-    , _clcInstanceId                   :: Maybe Text-    , _clcInstanceMonitoring           :: Maybe InstanceMonitoring-    , _clcInstanceType                 :: Maybe Text-    , _clcKernelId                     :: Maybe Text-    , _clcKeyName                      :: Maybe Text-    , _clcLaunchConfigurationName      :: Text-    , _clcPlacementTenancy             :: Maybe Text-    , _clcRamdiskId                    :: Maybe Text-    , _clcSecurityGroups               :: List "member" Text-    , _clcSpotPrice                    :: Maybe Text-    , _clcUserData                     :: Maybe Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'createLaunchConfiguration' smart constructor.+data CreateLaunchConfiguration = CreateLaunchConfiguration'+    { _clcInstanceId                   :: !(Maybe Text)+    , _clcSecurityGroups               :: !(Maybe [Text])+    , _clcAssociatePublicIPAddress     :: !(Maybe Bool)+    , _clcInstanceMonitoring           :: !(Maybe InstanceMonitoring)+    , _clcSpotPrice                    :: !(Maybe Text)+    , _clcKeyName                      :: !(Maybe Text)+    , _clcClassicLinkVPCSecurityGroups :: !(Maybe [Text])+    , _clcRAMDiskId                    :: !(Maybe Text)+    , _clcKernelId                     :: !(Maybe Text)+    , _clcInstanceType                 :: !(Maybe Text)+    , _clcEBSOptimized                 :: !(Maybe Bool)+    , _clcUserData                     :: !(Maybe Text)+    , _clcClassicLinkVPCId             :: !(Maybe Text)+    , _clcIAMInstanceProfile           :: !(Maybe Text)+    , _clcImageId                      :: !(Maybe Text)+    , _clcPlacementTenancy             :: !(Maybe Text)+    , _clcBlockDeviceMappings          :: !(Maybe [BlockDeviceMapping])+    , _clcLaunchConfigurationName      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateLaunchConfiguration' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateLaunchConfiguration' with the minimum fields required to make a request. ----- * 'clcAssociatePublicIpAddress' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'clcBlockDeviceMappings' @::@ ['BlockDeviceMapping']+-- * 'clcInstanceId' ----- * 'clcClassicLinkVPCId' @::@ 'Maybe' 'Text'+-- * 'clcSecurityGroups' ----- * 'clcClassicLinkVPCSecurityGroups' @::@ ['Text']+-- * 'clcAssociatePublicIPAddress' ----- * 'clcEbsOptimized' @::@ 'Maybe' 'Bool'+-- * 'clcInstanceMonitoring' ----- * 'clcIamInstanceProfile' @::@ 'Maybe' 'Text'+-- * 'clcSpotPrice' ----- * 'clcImageId' @::@ 'Maybe' 'Text'+-- * 'clcKeyName' ----- * 'clcInstanceId' @::@ 'Maybe' 'Text'+-- * 'clcClassicLinkVPCSecurityGroups' ----- * 'clcInstanceMonitoring' @::@ 'Maybe' 'InstanceMonitoring'+-- * 'clcRAMDiskId' ----- * 'clcInstanceType' @::@ 'Maybe' 'Text'+-- * 'clcKernelId' ----- * 'clcKernelId' @::@ 'Maybe' 'Text'+-- * 'clcInstanceType' ----- * 'clcKeyName' @::@ 'Maybe' 'Text'+-- * 'clcEBSOptimized' ----- * 'clcLaunchConfigurationName' @::@ 'Text'+-- * 'clcUserData' ----- * 'clcPlacementTenancy' @::@ 'Maybe' 'Text'+-- * 'clcClassicLinkVPCId' ----- * 'clcRamdiskId' @::@ 'Maybe' 'Text'+-- * 'clcIAMInstanceProfile' ----- * 'clcSecurityGroups' @::@ ['Text']+-- * 'clcImageId' ----- * 'clcSpotPrice' @::@ 'Maybe' 'Text'+-- * 'clcPlacementTenancy' ----- * 'clcUserData' @::@ 'Maybe' 'Text'+-- * 'clcBlockDeviceMappings' ---createLaunchConfiguration :: Text -- ^ 'clcLaunchConfigurationName'-                          -> CreateLaunchConfiguration-createLaunchConfiguration p1 = CreateLaunchConfiguration-    { _clcLaunchConfigurationName      = p1-    , _clcImageId                      = Nothing-    , _clcKeyName                      = Nothing-    , _clcSecurityGroups               = mempty-    , _clcClassicLinkVPCId             = Nothing-    , _clcClassicLinkVPCSecurityGroups = mempty-    , _clcUserData                     = Nothing-    , _clcInstanceId                   = Nothing-    , _clcInstanceType                 = Nothing-    , _clcKernelId                     = Nothing-    , _clcRamdiskId                    = Nothing-    , _clcBlockDeviceMappings          = mempty-    , _clcInstanceMonitoring           = Nothing-    , _clcSpotPrice                    = Nothing-    , _clcIamInstanceProfile           = Nothing-    , _clcEbsOptimized                 = Nothing-    , _clcAssociatePublicIpAddress     = Nothing-    , _clcPlacementTenancy             = Nothing+-- * 'clcLaunchConfigurationName'+createLaunchConfiguration+    :: Text -- ^ 'clcLaunchConfigurationName'+    -> CreateLaunchConfiguration+createLaunchConfiguration pLaunchConfigurationName_ =+    CreateLaunchConfiguration'+    { _clcInstanceId = Nothing+    , _clcSecurityGroups = Nothing+    , _clcAssociatePublicIPAddress = Nothing+    , _clcInstanceMonitoring = Nothing+    , _clcSpotPrice = 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_     } --- | Used for groups that launch instances into a virtual private cloud (VPC).--- Specifies whether to assign a public IP address to each instance. For more--- information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/autoscalingsubnets.html Auto Scaling and Amazon VPC> in the /Auto Scaling DeveloperGuide/.+-- | The ID of the EC2 instance to use to create the launch configuration. ----- If you specify a value for this parameter, be sure to specify at least one--- subnet using the /VPCZoneIdentifier/ parameter when you create your group.+-- The new launch configuration derives attributes from the instance, with+-- the exception of the block device mapping. ----- 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/AutoScaling/latest/DeveloperGuide//as-supported-platforms.html Supported Platforms> in the /Amazon Elastic ComputeCloud User Guide/.-clcAssociatePublicIpAddress :: Lens' CreateLaunchConfiguration (Maybe Bool)-clcAssociatePublicIpAddress =-    lens _clcAssociatePublicIpAddress-        (\s a -> s { _clcAssociatePublicIpAddress = 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 /AmazonElastic Compute Cloud User Guide/.-clcBlockDeviceMappings :: Lens' CreateLaunchConfiguration [BlockDeviceMapping]-clcBlockDeviceMappings =-    lens _clcBlockDeviceMappings (\s a -> s { _clcBlockDeviceMappings = a })-        . _List---- | 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 CloudUser Guide/.-clcClassicLinkVPCId :: Lens' CreateLaunchConfiguration (Maybe Text)-clcClassicLinkVPCId =-    lens _clcClassicLinkVPCId (\s a -> s { _clcClassicLinkVPCId = a })---- | The IDs of one or more security groups for the VPC specified in 'ClassicLinkVPCId'. This parameter is required if 'ClassicLinkVPCId' is specified, and cannot be--- used otherwise. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> in the /Amazon ElasticCompute Cloud User Guide/.-clcClassicLinkVPCSecurityGroups :: Lens' CreateLaunchConfiguration [Text]-clcClassicLinkVPCSecurityGroups =-    lens _clcClassicLinkVPCSecurityGroups-        (\s a -> s { _clcClassicLinkVPCSecurityGroups = a })-            . _List---- | 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 })---- | The name or the Amazon Resource Name (ARN) of the instance profile associated--- with the IAM role for the instance.+-- To create a launch configuration with a block device mapping or override+-- any other instance attributes, specify them as part of the same request. ----- Amazon 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 Amazon EC2 instances to--- securely access other AWS resources. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/us-iam-role.html Launch AutoScaling Instances with an IAM Role> in the /Auto Scaling Developer Guide/.-clcIamInstanceProfile :: Lens' CreateLaunchConfiguration (Maybe Text)-clcIamInstanceProfile =-    lens _clcIamInstanceProfile (\s a -> s { _clcIamInstanceProfile = a })---- | The ID of the Amazon Machine Image (AMI) to use to launch your EC2 instances.--- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/finding-an-ami.html Finding an AMI> in the /Amazon Elastic Compute CloudUser Guide/.-clcImageId :: Lens' CreateLaunchConfiguration (Maybe Text)-clcImageId = lens _clcImageId (\s a -> s { _clcImageId = a })+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/create-lc-with-instanceID.html Create a Launch Configuration Using an EC2 Instance>+-- in the /Auto Scaling Developer Guide/.+clcInstanceId :: Lens' CreateLaunchConfiguration (Maybe Text)+clcInstanceId = lens _clcInstanceId (\ s a -> s{_clcInstanceId = a}); --- | The ID of the EC2 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.+-- | One or more security groups with which to associate the instances. ----- To create a launch configuration with a block device mapping or override any--- other instance attributes, specify them as part of the same request.+-- 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/. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/create-lc-with-instanceID.html Create a Launch Configuration Using an EC2 Instance>+-- 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;++-- | Used for groups that launch instances into a virtual private cloud+-- (VPC). Specifies whether to assign a public IP address to each instance.+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/autoscalingsubnets.html Auto Scaling and Amazon Virtual Private Cloud> -- in the /Auto Scaling Developer Guide/.-clcInstanceId :: Lens' CreateLaunchConfiguration (Maybe Text)-clcInstanceId = lens _clcInstanceId (\s a -> s { _clcInstanceId = a })+--+-- If you specify a value for this parameter, be sure to specify at least+-- one subnet using the /VPCZoneIdentifier/ parameter 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 :: Lens' CreateLaunchConfiguration (Maybe Bool)+clcAssociatePublicIPAddress = lens _clcAssociatePublicIPAddress (\ s a -> s{_clcAssociatePublicIPAddress = a}); --- | Enables detailed monitoring if it is disabled. Detailed monitoring is enabled--- by default.+-- | Enables detailed monitoring if it is disabled. Detailed monitoring is+-- enabled by default. ----- When detailed monitoring is enabled, Amazon Cloudwatch generates metrics--- every minute and your account is charged a fee. When you disable detailed--- monitoring, by specifying 'False', Cloudwatch generates metrics every 5--- minutes. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/as-instance-monitoring.html Monitor Your Auto Scaling Instances> in the /Auto Scaling Developer Guide/.+-- When detailed monitoring is enabled, Amazon CloudWatch generates metrics+-- every minute and your account is charged a fee. When you disable+-- detailed monitoring, by specifying 'False', CloudWatch generates metrics+-- every 5 minutes. For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/as-instance-monitoring.html Monitor Your Auto Scaling Instances>+-- in the /Auto Scaling Developer Guide/. clcInstanceMonitoring :: Lens' CreateLaunchConfiguration (Maybe InstanceMonitoring)-clcInstanceMonitoring =-    lens _clcInstanceMonitoring (\s a -> s { _clcInstanceMonitoring = a })+clcInstanceMonitoring = lens _clcInstanceMonitoring (\ s a -> s{_clcInstanceMonitoring = a}); --- | The instance type of the Amazon EC2 instance. For information about--- available Amazon EC2 instance types, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html#AvailableInstanceTypes  Available Instance Types> in the /Amazon Elastic Cloud Compute User Guide./-clcInstanceType :: Lens' CreateLaunchConfiguration (Maybe Text)-clcInstanceType = lens _clcInstanceType (\s a -> s { _clcInstanceType = a })+-- | The maximum hourly price to be paid for any Spot Instance launched to+-- fulfill the request. Spot Instances are launched when the price you+-- specify exceeds the current Spot market price. For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US-SpotInstances.html Launch Spot Instances in Your Auto Scaling Group>+-- in the /Auto Scaling Developer Guide/.+clcSpotPrice :: Lens' CreateLaunchConfiguration (Maybe Text)+clcSpotPrice = lens _clcSpotPrice (\ s a -> s{_clcSpotPrice = a}); --- | The ID of the kernel associated with the Amazon EC2 AMI.+-- | 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});++-- | The IDs of one or more security groups for the VPC specified in+-- 'ClassicLinkVPCId'. This parameter is required if 'ClassicLinkVPCId' is+-- specified, 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;++-- | The ID of the RAM disk associated with the AMI.+clcRAMDiskId :: Lens' CreateLaunchConfiguration (Maybe Text)+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 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 })+-- | The instance type of the EC2 instance. 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 Cloud Compute User Guide./+clcInstanceType :: Lens' CreateLaunchConfiguration (Maybe Text)+clcInstanceType = lens _clcInstanceType (\ s a -> s{_clcInstanceType = a}); --- | 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 })+-- | 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}); --- | The tenancy of the instance. An instance with a tenancy of 'dedicated' runs on--- single-tenant hardware and can only be launched in a VPC.------ You must set the value of this parameter to 'dedicated' if want to launch--- Dedicated Instances in a shared tenancy VPC (VPC with instance placement--- tenancy attribute set to 'default').------ If you specify a value for this parameter, be sure to specify at least one--- VPC subnet using the /VPCZoneIdentifier/ parameter when you create your group.+-- | 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/. ----- For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/autoscalingsubnets.html Auto Scaling and Amazon VPC> in the /Auto ScalingDeveloper Guide/.+-- At this time, launch configurations don\'t support compressed (zipped)+-- user data files.+clcUserData :: Lens' CreateLaunchConfiguration (Maybe Text)+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});++-- | The name or the Amazon Resource Name (ARN) of the instance profile+-- associated with the IAM role for the instance. ----- Valid values: 'default' | 'dedicated'-clcPlacementTenancy :: Lens' CreateLaunchConfiguration (Maybe Text)-clcPlacementTenancy =-    lens _clcPlacementTenancy (\s a -> s { _clcPlacementTenancy = a })+-- EC2 instances launched with an IAM role will automatically have AWS+-- security credentials available. You can use IAM roles with Auto Scaling+-- to automatically enable applications running on your EC2 instances to+-- securely access other AWS resources. For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/us-iam-role.html Launch Auto Scaling Instances with an IAM Role>+-- in the /Auto Scaling Developer Guide/.+clcIAMInstanceProfile :: Lens' CreateLaunchConfiguration (Maybe Text)+clcIAMInstanceProfile = lens _clcIAMInstanceProfile (\ s a -> s{_clcIAMInstanceProfile = a}); --- | The ID of the RAM disk associated with the Amazon EC2 AMI.-clcRamdiskId :: Lens' CreateLaunchConfiguration (Maybe Text)-clcRamdiskId = lens _clcRamdiskId (\s a -> s { _clcRamdiskId = a })+-- | The ID of the Amazon Machine Image (AMI) to use to launch your EC2+-- instances. 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}); --- | One or more security groups with which to associate the instances.+-- | 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. ----- 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 /AmazonElastic Compute Cloud User Guide/.+-- 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 your instances are launched in 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 VirtualPrivate Cloud User Guide/.-clcSecurityGroups :: Lens' CreateLaunchConfiguration [Text]-clcSecurityGroups =-    lens _clcSecurityGroups (\s a -> s { _clcSecurityGroups = a })-        . _List+-- If you specify a value for this parameter, be sure to specify at least+-- one subnet using the /VPCZoneIdentifier/ parameter when you create your+-- group.+--+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/autoscalingsubnets.html Auto Scaling and Amazon Virtual Private Cloud>+-- in the /Auto Scaling Developer Guide/.+--+-- Valid values: 'default' | 'dedicated'+clcPlacementTenancy :: Lens' CreateLaunchConfiguration (Maybe Text)+clcPlacementTenancy = lens _clcPlacementTenancy (\ s a -> s{_clcPlacementTenancy = a}); --- | The maximum hourly price to be paid for any Spot Instance launched to fulfill--- the request. Spot Instances are launched when the price you specify exceeds--- the current Spot market price. For more information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/US-SpotInstances.html Launch SpotInstances in Your Auto Scaling Group> in the /Auto Scaling Developer Guide/.-clcSpotPrice :: Lens' CreateLaunchConfiguration (Maybe Text)-clcSpotPrice = lens _clcSpotPrice (\s a -> s { _clcSpotPrice = 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; --- | 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 ElasticCompute Cloud User Guide/.------ At this time, launch configurations don't support compressed (zipped) user--- data files.-clcUserData :: Lens' CreateLaunchConfiguration (Maybe Text)-clcUserData = lens _clcUserData (\s a -> s { _clcUserData = a })+-- | 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}); -data CreateLaunchConfigurationResponse = CreateLaunchConfigurationResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest CreateLaunchConfiguration where+        type Sv CreateLaunchConfiguration = AutoScaling+        type Rs CreateLaunchConfiguration =+             CreateLaunchConfigurationResponse+        request = postQuery+        response+          = receiveNull CreateLaunchConfigurationResponse' --- | 'CreateLaunchConfigurationResponse' constructor.-createLaunchConfigurationResponse :: CreateLaunchConfigurationResponse-createLaunchConfigurationResponse = CreateLaunchConfigurationResponse+instance ToHeaders CreateLaunchConfiguration where+        toHeaders = const mempty  instance ToPath CreateLaunchConfiguration where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateLaunchConfiguration where-    toQuery CreateLaunchConfiguration{..} = mconcat-        [ "AssociatePublicIpAddress"     =? _clcAssociatePublicIpAddress-        , "BlockDeviceMappings"          =? _clcBlockDeviceMappings-        , "ClassicLinkVPCId"             =? _clcClassicLinkVPCId-        , "ClassicLinkVPCSecurityGroups" =? _clcClassicLinkVPCSecurityGroups-        , "EbsOptimized"                 =? _clcEbsOptimized-        , "IamInstanceProfile"           =? _clcIamInstanceProfile-        , "ImageId"                      =? _clcImageId-        , "InstanceId"                   =? _clcInstanceId-        , "InstanceMonitoring"           =? _clcInstanceMonitoring-        , "InstanceType"                 =? _clcInstanceType-        , "KernelId"                     =? _clcKernelId-        , "KeyName"                      =? _clcKeyName-        , "LaunchConfigurationName"      =? _clcLaunchConfigurationName-        , "PlacementTenancy"             =? _clcPlacementTenancy-        , "RamdiskId"                    =? _clcRamdiskId-        , "SecurityGroups"               =? _clcSecurityGroups-        , "SpotPrice"                    =? _clcSpotPrice-        , "UserData"                     =? _clcUserData-        ]--instance ToHeaders CreateLaunchConfiguration+        toQuery CreateLaunchConfiguration'{..}+          = mconcat+              ["Action" =:+                 ("CreateLaunchConfiguration" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "InstanceId" =: _clcInstanceId,+               "SecurityGroups" =:+                 toQuery+                   (toQueryList "member" <$> _clcSecurityGroups),+               "AssociatePublicIpAddress" =:+                 _clcAssociatePublicIPAddress,+               "InstanceMonitoring" =: _clcInstanceMonitoring,+               "SpotPrice" =: _clcSpotPrice,+               "KeyName" =: _clcKeyName,+               "ClassicLinkVPCSecurityGroups" =:+                 toQuery+                   (toQueryList "member" <$>+                      _clcClassicLinkVPCSecurityGroups),+               "RamdiskId" =: _clcRAMDiskId,+               "KernelId" =: _clcKernelId,+               "InstanceType" =: _clcInstanceType,+               "EbsOptimized" =: _clcEBSOptimized,+               "UserData" =: _clcUserData,+               "ClassicLinkVPCId" =: _clcClassicLinkVPCId,+               "IamInstanceProfile" =: _clcIAMInstanceProfile,+               "ImageId" =: _clcImageId,+               "PlacementTenancy" =: _clcPlacementTenancy,+               "BlockDeviceMappings" =:+                 toQuery+                   (toQueryList "member" <$> _clcBlockDeviceMappings),+               "LaunchConfigurationName" =:+                 _clcLaunchConfigurationName] -instance AWSRequest CreateLaunchConfiguration where-    type Sv CreateLaunchConfiguration = AutoScaling-    type Rs CreateLaunchConfiguration = CreateLaunchConfigurationResponse+-- | /See:/ 'createLaunchConfigurationResponse' smart constructor.+data CreateLaunchConfigurationResponse =+    CreateLaunchConfigurationResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "CreateLaunchConfiguration"-    response = nullResponse CreateLaunchConfigurationResponse+-- | Creates a value of 'CreateLaunchConfigurationResponse' with the minimum fields required to make a request.+--+createLaunchConfigurationResponse+    :: CreateLaunchConfigurationResponse+createLaunchConfigurationResponse = CreateLaunchConfigurationResponse'

@@ -1,115 +1,108 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.CreateOrUpdateTags--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates or updates tags for the specified Auto Scaling group.+-- Creates or updates tags for the specified Auto Scaling group. ----- A tag's definition is composed of a resource ID, resource type, key and--- value, and the propagate flag. Value and the propagate flag are optional--- parameters. See the Request Parameters for more information.  For more--- information, see <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASTagging.html Add, Modify, or Remove Auto Scaling Group Tags> in the /AutoScaling Developer Guide/.+-- A tag is defined by its resource ID, resource type, key, value, and+-- propagate flag. The value and the propagate flag are optional+-- parameters. The only supported resource type is 'auto-scaling-group',+-- and the resource ID must be the name of the group. The+-- 'PropagateAtLaunch' flag determines whether the tag is added to+-- instances launched in the group. Valid values are 'true' or 'false'. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_CreateOrUpdateTags.html>+-- When you specify a tag with a key that already exists, the operation+-- overwrites the previous tag definition, and you do not get an error+-- message.+--+-- For more information, see+-- <http://docs.aws.amazon.com/AutoScaling/latest/DeveloperGuide/ASTagging.html Tagging Auto Scaling Groups and Instances>+-- in the /Auto Scaling Developer Guide/.+--+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_CreateOrUpdateTags.html AWS API Reference> for CreateOrUpdateTags. module Network.AWS.AutoScaling.CreateOrUpdateTags     (-    -- * Request-      CreateOrUpdateTags-    -- ** Request constructor-    , createOrUpdateTags-    -- ** Request lenses+    -- * Creating a Request+      createOrUpdateTags+    , CreateOrUpdateTags+    -- * Request Lenses     , coutTags -    -- * Response-    , CreateOrUpdateTagsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createOrUpdateTagsResponse+    , CreateOrUpdateTagsResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts--newtype CreateOrUpdateTags = CreateOrUpdateTags-    { _coutTags :: List "member" Tag-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList CreateOrUpdateTags where-    type Item CreateOrUpdateTags = Tag+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -    fromList = CreateOrUpdateTags . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _coutTags+-- | /See:/ 'createOrUpdateTags' smart constructor.+newtype CreateOrUpdateTags = CreateOrUpdateTags'+    { _coutTags :: [Tag]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateOrUpdateTags' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateOrUpdateTags' with the minimum fields required to make a request. ----- * 'coutTags' @::@ ['Tag']+-- Use one of the following lenses to modify other fields as desired: ---createOrUpdateTags :: CreateOrUpdateTags-createOrUpdateTags = CreateOrUpdateTags+-- * 'coutTags'+createOrUpdateTags+    :: CreateOrUpdateTags+createOrUpdateTags =+    CreateOrUpdateTags'     { _coutTags = mempty     } --- | The tag to be created or updated. Each tag should be defined by its resource--- type, resource ID, key, value, and a propagate flag. The resource type and--- resource ID identify the type and name of resource for which the tag is--- created. Currently, 'auto-scaling-group' is the only supported resource type.--- The valid value for the resource ID is /groupname/.------ The 'PropagateAtLaunch' flag defines whether the new tag will be applied to--- instances launched by the group. Valid values are 'true' or 'false'. However,--- instances that are already running will not get the new or updated tag.--- Likewise, when you modify a tag, the updated version will be applied only to--- new instances launched by the group after the change. Running instances that--- had the previous version of the tag will continue to have the older tag.------ When you create a tag and a tag of the same name already exists, the--- operation overwrites the previous tag definition, but you will not get an--- error message.+-- | One or more tags. coutTags :: Lens' CreateOrUpdateTags [Tag]-coutTags = lens _coutTags (\s a -> s { _coutTags = a }) . _List+coutTags = lens _coutTags (\ s a -> s{_coutTags = a}) . _Coerce; -data CreateOrUpdateTagsResponse = CreateOrUpdateTagsResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest CreateOrUpdateTags where+        type Sv CreateOrUpdateTags = AutoScaling+        type Rs CreateOrUpdateTags =+             CreateOrUpdateTagsResponse+        request = postQuery+        response = receiveNull CreateOrUpdateTagsResponse' --- | 'CreateOrUpdateTagsResponse' constructor.-createOrUpdateTagsResponse :: CreateOrUpdateTagsResponse-createOrUpdateTagsResponse = CreateOrUpdateTagsResponse+instance ToHeaders CreateOrUpdateTags where+        toHeaders = const mempty  instance ToPath CreateOrUpdateTags where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateOrUpdateTags where-    toQuery CreateOrUpdateTags{..} = mconcat-        [ "Tags" =? _coutTags-        ]--instance ToHeaders CreateOrUpdateTags+        toQuery CreateOrUpdateTags'{..}+          = mconcat+              ["Action" =: ("CreateOrUpdateTags" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "Tags" =: toQueryList "member" _coutTags] -instance AWSRequest CreateOrUpdateTags where-    type Sv CreateOrUpdateTags = AutoScaling-    type Rs CreateOrUpdateTags = CreateOrUpdateTagsResponse+-- | /See:/ 'createOrUpdateTagsResponse' smart constructor.+data CreateOrUpdateTagsResponse =+    CreateOrUpdateTagsResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "CreateOrUpdateTags"-    response = nullResponse CreateOrUpdateTagsResponse+-- | Creates a value of 'CreateOrUpdateTagsResponse' with the minimum fields required to make a request.+--+createOrUpdateTagsResponse+    :: CreateOrUpdateTagsResponse+createOrUpdateTagsResponse = CreateOrUpdateTagsResponse'

@@ -1,108 +1,115 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DeleteAutoScalingGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified Auto Scaling group.+-- Deletes the specified Auto Scaling group. -- -- The group must have no instances and no scaling activities in progress. ----- To remove all instances before calling 'DeleteAutoScalingGroup', you can call 'UpdateAutoScalingGroup' to set the minimum and maximum size of the AutoScalingGroup to zero.+-- To remove all instances before calling 'DeleteAutoScalingGroup', call+-- UpdateAutoScalingGroup to set the minimum and maximum size of the Auto+-- Scaling group to zero. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteAutoScalingGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteAutoScalingGroup.html AWS API Reference> for DeleteAutoScalingGroup. module Network.AWS.AutoScaling.DeleteAutoScalingGroup     (-    -- * Request-      DeleteAutoScalingGroup-    -- ** Request constructor-    , deleteAutoScalingGroup-    -- ** Request lenses-    , dasgAutoScalingGroupName+    -- * Creating a Request+      deleteAutoScalingGroup+    , DeleteAutoScalingGroup+    -- * Request Lenses     , dasgForceDelete+    , dasgAutoScalingGroupName -    -- * Response-    , DeleteAutoScalingGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteAutoScalingGroupResponse+    , DeleteAutoScalingGroupResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DeleteAutoScalingGroup = DeleteAutoScalingGroup-    { _dasgAutoScalingGroupName :: Text-    , _dasgForceDelete          :: Maybe Bool-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'deleteAutoScalingGroup' smart constructor.+data DeleteAutoScalingGroup = DeleteAutoScalingGroup'+    { _dasgForceDelete          :: !(Maybe Bool)+    , _dasgAutoScalingGroupName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteAutoScalingGroup' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteAutoScalingGroup' with the minimum fields required to make a request. ----- * 'dasgAutoScalingGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dasgForceDelete' @::@ 'Maybe' 'Bool'+-- * 'dasgForceDelete' ---deleteAutoScalingGroup :: Text -- ^ 'dasgAutoScalingGroupName'-                       -> DeleteAutoScalingGroup-deleteAutoScalingGroup p1 = DeleteAutoScalingGroup-    { _dasgAutoScalingGroupName = p1-    , _dasgForceDelete          = Nothing+-- * 'dasgAutoScalingGroupName'+deleteAutoScalingGroup+    :: Text -- ^ 'dasgAutoScalingGroupName'+    -> DeleteAutoScalingGroup+deleteAutoScalingGroup pAutoScalingGroupName_ =+    DeleteAutoScalingGroup'+    { _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});+ -- | The name of the group to delete. dasgAutoScalingGroupName :: Lens' DeleteAutoScalingGroup Text-dasgAutoScalingGroupName =-    lens _dasgAutoScalingGroupName-        (\s a -> s { _dasgAutoScalingGroupName = a })---- | 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 })+dasgAutoScalingGroupName = lens _dasgAutoScalingGroupName (\ s a -> s{_dasgAutoScalingGroupName = a}); -data DeleteAutoScalingGroupResponse = DeleteAutoScalingGroupResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteAutoScalingGroup where+        type Sv DeleteAutoScalingGroup = AutoScaling+        type Rs DeleteAutoScalingGroup =+             DeleteAutoScalingGroupResponse+        request = postQuery+        response+          = receiveNull DeleteAutoScalingGroupResponse' --- | 'DeleteAutoScalingGroupResponse' constructor.-deleteAutoScalingGroupResponse :: DeleteAutoScalingGroupResponse-deleteAutoScalingGroupResponse = DeleteAutoScalingGroupResponse+instance ToHeaders DeleteAutoScalingGroup where+        toHeaders = const mempty  instance ToPath DeleteAutoScalingGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteAutoScalingGroup where-    toQuery DeleteAutoScalingGroup{..} = mconcat-        [ "AutoScalingGroupName" =? _dasgAutoScalingGroupName-        , "ForceDelete"          =? _dasgForceDelete-        ]--instance ToHeaders DeleteAutoScalingGroup+        toQuery DeleteAutoScalingGroup'{..}+          = mconcat+              ["Action" =:+                 ("DeleteAutoScalingGroup" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "ForceDelete" =: _dasgForceDelete,+               "AutoScalingGroupName" =: _dasgAutoScalingGroupName] -instance AWSRequest DeleteAutoScalingGroup where-    type Sv DeleteAutoScalingGroup = AutoScaling-    type Rs DeleteAutoScalingGroup = DeleteAutoScalingGroupResponse+-- | /See:/ 'deleteAutoScalingGroupResponse' smart constructor.+data DeleteAutoScalingGroupResponse =+    DeleteAutoScalingGroupResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteAutoScalingGroup"-    response = nullResponse DeleteAutoScalingGroupResponse+-- | Creates a value of 'DeleteAutoScalingGroupResponse' with the minimum fields required to make a request.+--+deleteAutoScalingGroupResponse+    :: DeleteAutoScalingGroupResponse+deleteAutoScalingGroupResponse = DeleteAutoScalingGroupResponse'

@@ -1,95 +1,101 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DeleteLaunchConfiguration--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified launch configuration.+-- Deletes the specified launch configuration. ----- The launch configuration must not be attached to an Auto Scaling group. When--- this call completes, the launch configuration is no longer available for use.+-- The launch configuration must not be attached to an Auto Scaling group.+-- When this call completes, the launch configuration is no longer+-- available for use. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteLaunchConfiguration.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteLaunchConfiguration.html AWS API Reference> for DeleteLaunchConfiguration. module Network.AWS.AutoScaling.DeleteLaunchConfiguration     (-    -- * Request-      DeleteLaunchConfiguration-    -- ** Request constructor-    , deleteLaunchConfiguration-    -- ** Request lenses+    -- * Creating a Request+      deleteLaunchConfiguration+    , DeleteLaunchConfiguration+    -- * Request Lenses     , dlcLaunchConfigurationName -    -- * Response-    , DeleteLaunchConfigurationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteLaunchConfigurationResponse+    , DeleteLaunchConfigurationResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteLaunchConfiguration = DeleteLaunchConfiguration+-- | /See:/ 'deleteLaunchConfiguration' smart constructor.+newtype DeleteLaunchConfiguration = DeleteLaunchConfiguration'     { _dlcLaunchConfigurationName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteLaunchConfiguration' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteLaunchConfiguration' with the minimum fields required to make a request. ----- * 'dlcLaunchConfigurationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteLaunchConfiguration :: Text -- ^ 'dlcLaunchConfigurationName'-                          -> DeleteLaunchConfiguration-deleteLaunchConfiguration p1 = DeleteLaunchConfiguration-    { _dlcLaunchConfigurationName = p1+-- * 'dlcLaunchConfigurationName'+deleteLaunchConfiguration+    :: Text -- ^ 'dlcLaunchConfigurationName'+    -> DeleteLaunchConfiguration+deleteLaunchConfiguration pLaunchConfigurationName_ =+    DeleteLaunchConfiguration'+    { _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}); -data DeleteLaunchConfigurationResponse = DeleteLaunchConfigurationResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteLaunchConfiguration where+        type Sv DeleteLaunchConfiguration = AutoScaling+        type Rs DeleteLaunchConfiguration =+             DeleteLaunchConfigurationResponse+        request = postQuery+        response+          = receiveNull DeleteLaunchConfigurationResponse' --- | 'DeleteLaunchConfigurationResponse' constructor.-deleteLaunchConfigurationResponse :: DeleteLaunchConfigurationResponse-deleteLaunchConfigurationResponse = DeleteLaunchConfigurationResponse+instance ToHeaders DeleteLaunchConfiguration where+        toHeaders = const mempty  instance ToPath DeleteLaunchConfiguration where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteLaunchConfiguration where-    toQuery DeleteLaunchConfiguration{..} = mconcat-        [ "LaunchConfigurationName" =? _dlcLaunchConfigurationName-        ]--instance ToHeaders DeleteLaunchConfiguration+        toQuery DeleteLaunchConfiguration'{..}+          = mconcat+              ["Action" =:+                 ("DeleteLaunchConfiguration" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "LaunchConfigurationName" =:+                 _dlcLaunchConfigurationName] -instance AWSRequest DeleteLaunchConfiguration where-    type Sv DeleteLaunchConfiguration = AutoScaling-    type Rs DeleteLaunchConfiguration = DeleteLaunchConfigurationResponse+-- | /See:/ 'deleteLaunchConfigurationResponse' smart constructor.+data DeleteLaunchConfigurationResponse =+    DeleteLaunchConfigurationResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteLaunchConfiguration"-    response = nullResponse DeleteLaunchConfigurationResponse+-- | Creates a value of 'DeleteLaunchConfigurationResponse' with the minimum fields required to make a request.+--+deleteLaunchConfigurationResponse+    :: DeleteLaunchConfigurationResponse+deleteLaunchConfigurationResponse = DeleteLaunchConfigurationResponse'

@@ -1,106 +1,125 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DeleteLifecycleHook--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified lifecycle hook.+-- Deletes the specified lifecycle hook. ----- If there are any outstanding lifecycle actions, they are completed first ('ABANDON' for launching instances, 'CONTINUE' for terminating instances).+-- If there are any outstanding lifecycle actions, they are completed first+-- ('ABANDON' for launching instances, 'CONTINUE' for terminating+-- instances). ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteLifecycleHook.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteLifecycleHook.html AWS API Reference> for DeleteLifecycleHook. module Network.AWS.AutoScaling.DeleteLifecycleHook     (-    -- * Request-      DeleteLifecycleHook-    -- ** Request constructor-    , deleteLifecycleHook-    -- ** Request lenses-    , dlh1AutoScalingGroupName-    , dlh1LifecycleHookName+    -- * Creating a Request+      deleteLifecycleHook+    , DeleteLifecycleHook+    -- * Request Lenses+    , delLifecycleHookName+    , delAutoScalingGroupName -    -- * Response-    , DeleteLifecycleHookResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteLifecycleHookResponse+    , DeleteLifecycleHookResponse+    -- * Response Lenses+    , drsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DeleteLifecycleHook = DeleteLifecycleHook-    { _dlh1AutoScalingGroupName :: Text-    , _dlh1LifecycleHookName    :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'deleteLifecycleHook' smart constructor.+data DeleteLifecycleHook = DeleteLifecycleHook'+    { _delLifecycleHookName    :: !Text+    , _delAutoScalingGroupName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteLifecycleHook' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteLifecycleHook' with the minimum fields required to make a request. ----- * 'dlh1AutoScalingGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlh1LifecycleHookName' @::@ 'Text'+-- * 'delLifecycleHookName' ---deleteLifecycleHook :: Text -- ^ 'dlh1LifecycleHookName'-                    -> Text -- ^ 'dlh1AutoScalingGroupName'-                    -> DeleteLifecycleHook-deleteLifecycleHook p1 p2 = DeleteLifecycleHook-    { _dlh1LifecycleHookName    = p1-    , _dlh1AutoScalingGroupName = p2+-- * 'delAutoScalingGroupName'+deleteLifecycleHook+    :: Text -- ^ 'delLifecycleHookName'+    -> Text -- ^ 'delAutoScalingGroupName'+    -> DeleteLifecycleHook+deleteLifecycleHook pLifecycleHookName_ pAutoScalingGroupName_ =+    DeleteLifecycleHook'+    { _delLifecycleHookName = pLifecycleHookName_+    , _delAutoScalingGroupName = pAutoScalingGroupName_     } --- | The name of the Auto Scaling group for the lifecycle hook.-dlh1AutoScalingGroupName :: Lens' DeleteLifecycleHook Text-dlh1AutoScalingGroupName =-    lens _dlh1AutoScalingGroupName-        (\s a -> s { _dlh1AutoScalingGroupName = a })- -- | The name of the lifecycle hook.-dlh1LifecycleHookName :: Lens' DeleteLifecycleHook Text-dlh1LifecycleHookName =-    lens _dlh1LifecycleHookName (\s a -> s { _dlh1LifecycleHookName = a })+delLifecycleHookName :: Lens' DeleteLifecycleHook Text+delLifecycleHookName = lens _delLifecycleHookName (\ s a -> s{_delLifecycleHookName = a}); -data DeleteLifecycleHookResponse = DeleteLifecycleHookResponse-    deriving (Eq, Ord, Read, Show, Generic)+-- | The name of the Auto Scaling group for the lifecycle hook.+delAutoScalingGroupName :: Lens' DeleteLifecycleHook Text+delAutoScalingGroupName = lens _delAutoScalingGroupName (\ s a -> s{_delAutoScalingGroupName = a}); --- | 'DeleteLifecycleHookResponse' constructor.-deleteLifecycleHookResponse :: DeleteLifecycleHookResponse-deleteLifecycleHookResponse = DeleteLifecycleHookResponse+instance AWSRequest DeleteLifecycleHook where+        type Sv DeleteLifecycleHook = AutoScaling+        type Rs DeleteLifecycleHook =+             DeleteLifecycleHookResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteLifecycleHookResult"+              (\ s h x ->+                 DeleteLifecycleHookResponse' <$> (pure (fromEnum s))) +instance ToHeaders DeleteLifecycleHook where+        toHeaders = const mempty+ instance ToPath DeleteLifecycleHook where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteLifecycleHook where-    toQuery DeleteLifecycleHook{..} = mconcat-        [ "AutoScalingGroupName" =? _dlh1AutoScalingGroupName-        , "LifecycleHookName"    =? _dlh1LifecycleHookName-        ]+        toQuery DeleteLifecycleHook'{..}+          = mconcat+              ["Action" =: ("DeleteLifecycleHook" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "LifecycleHookName" =: _delLifecycleHookName,+               "AutoScalingGroupName" =: _delAutoScalingGroupName] -instance ToHeaders DeleteLifecycleHook+-- | /See:/ 'deleteLifecycleHookResponse' smart constructor.+newtype DeleteLifecycleHookResponse = DeleteLifecycleHookResponse'+    { _drsStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteLifecycleHook where-    type Sv DeleteLifecycleHook = AutoScaling-    type Rs DeleteLifecycleHook = DeleteLifecycleHookResponse+-- | Creates a value of 'DeleteLifecycleHookResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsStatus'+deleteLifecycleHookResponse+    :: Int -- ^ 'drsStatus'+    -> DeleteLifecycleHookResponse+deleteLifecycleHookResponse pStatus_ =+    DeleteLifecycleHookResponse'+    { _drsStatus = pStatus_+    } -    request  = post "DeleteLifecycleHook"-    response = nullResponse DeleteLifecycleHookResponse+-- | The response status code.+drsStatus :: Lens' DeleteLifecycleHookResponse Int+drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});

@@ -1,103 +1,113 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DeleteNotificationConfiguration--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified notification.+-- Deletes the specified notification. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteNotificationConfiguration.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteNotificationConfiguration.html AWS API Reference> for DeleteNotificationConfiguration. module Network.AWS.AutoScaling.DeleteNotificationConfiguration     (-    -- * Request-      DeleteNotificationConfiguration-    -- ** Request constructor-    , deleteNotificationConfiguration-    -- ** Request lenses+    -- * Creating a Request+      deleteNotificationConfiguration+    , DeleteNotificationConfiguration+    -- * Request Lenses     , dncAutoScalingGroupName     , dncTopicARN -    -- * Response-    , DeleteNotificationConfigurationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteNotificationConfigurationResponse+    , DeleteNotificationConfigurationResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DeleteNotificationConfiguration = DeleteNotificationConfiguration-    { _dncAutoScalingGroupName :: Text-    , _dncTopicARN             :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'deleteNotificationConfiguration' smart constructor.+data DeleteNotificationConfiguration = DeleteNotificationConfiguration'+    { _dncAutoScalingGroupName :: !Text+    , _dncTopicARN             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteNotificationConfiguration' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteNotificationConfiguration' with the minimum fields required to make a request. ----- * 'dncAutoScalingGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dncTopicARN' @::@ 'Text'+-- * 'dncAutoScalingGroupName' ---deleteNotificationConfiguration :: Text -- ^ 'dncAutoScalingGroupName'-                                -> Text -- ^ 'dncTopicARN'-                                -> DeleteNotificationConfiguration-deleteNotificationConfiguration p1 p2 = DeleteNotificationConfiguration-    { _dncAutoScalingGroupName = p1-    , _dncTopicARN             = p2+-- * 'dncTopicARN'+deleteNotificationConfiguration+    :: Text -- ^ 'dncAutoScalingGroupName'+    -> Text -- ^ 'dncTopicARN'+    -> DeleteNotificationConfiguration+deleteNotificationConfiguration pAutoScalingGroupName_ pTopicARN_ =+    DeleteNotificationConfiguration'+    { _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}); -data DeleteNotificationConfigurationResponse = DeleteNotificationConfigurationResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteNotificationConfiguration+         where+        type Sv DeleteNotificationConfiguration = AutoScaling+        type Rs DeleteNotificationConfiguration =+             DeleteNotificationConfigurationResponse+        request = postQuery+        response+          = receiveNull+              DeleteNotificationConfigurationResponse' --- | 'DeleteNotificationConfigurationResponse' constructor.-deleteNotificationConfigurationResponse :: DeleteNotificationConfigurationResponse-deleteNotificationConfigurationResponse = DeleteNotificationConfigurationResponse+instance ToHeaders DeleteNotificationConfiguration+         where+        toHeaders = const mempty  instance ToPath DeleteNotificationConfiguration where-    toPath = const "/"--instance ToQuery DeleteNotificationConfiguration where-    toQuery DeleteNotificationConfiguration{..} = mconcat-        [ "AutoScalingGroupName" =? _dncAutoScalingGroupName-        , "TopicARN"             =? _dncTopicARN-        ]+        toPath = const "/" -instance ToHeaders DeleteNotificationConfiguration+instance ToQuery DeleteNotificationConfiguration+         where+        toQuery DeleteNotificationConfiguration'{..}+          = mconcat+              ["Action" =:+                 ("DeleteNotificationConfiguration" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "AutoScalingGroupName" =: _dncAutoScalingGroupName,+               "TopicARN" =: _dncTopicARN] -instance AWSRequest DeleteNotificationConfiguration where-    type Sv DeleteNotificationConfiguration = AutoScaling-    type Rs DeleteNotificationConfiguration = DeleteNotificationConfigurationResponse+-- | /See:/ 'deleteNotificationConfigurationResponse' smart constructor.+data DeleteNotificationConfigurationResponse =+    DeleteNotificationConfigurationResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteNotificationConfiguration"-    response = nullResponse DeleteNotificationConfigurationResponse+-- | Creates a value of 'DeleteNotificationConfigurationResponse' with the minimum fields required to make a request.+--+deleteNotificationConfigurationResponse+    :: DeleteNotificationConfigurationResponse+deleteNotificationConfigurationResponse =+    DeleteNotificationConfigurationResponse'

@@ -1,101 +1,105 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DeletePolicy--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified Auto Scaling policy.+-- Deletes the specified Auto Scaling policy. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeletePolicy.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeletePolicy.html AWS API Reference> for DeletePolicy. module Network.AWS.AutoScaling.DeletePolicy     (-    -- * Request-      DeletePolicy-    -- ** Request constructor-    , deletePolicy-    -- ** Request lenses+    -- * Creating a Request+      deletePolicy+    , DeletePolicy+    -- * Request Lenses     , dpAutoScalingGroupName     , dpPolicyName -    -- * Response-    , DeletePolicyResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deletePolicyResponse+    , DeletePolicyResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts--data DeletePolicy = DeletePolicy-    { _dpAutoScalingGroupName :: Maybe Text-    , _dpPolicyName           :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeletePolicy' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deletePolicy' smart constructor.+data DeletePolicy = DeletePolicy'+    { _dpAutoScalingGroupName :: !(Maybe Text)+    , _dpPolicyName           :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeletePolicy' with the minimum fields required to make a request. ----- * 'dpAutoScalingGroupName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dpPolicyName' @::@ 'Text'+-- * 'dpAutoScalingGroupName' ---deletePolicy :: Text -- ^ 'dpPolicyName'-             -> DeletePolicy-deletePolicy p1 = DeletePolicy-    { _dpPolicyName           = p1-    , _dpAutoScalingGroupName = Nothing+-- * 'dpPolicyName'+deletePolicy+    :: Text -- ^ 'dpPolicyName'+    -> DeletePolicy+deletePolicy pPolicyName_ =+    DeletePolicy'+    { _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}); -data DeletePolicyResponse = DeletePolicyResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeletePolicy where+        type Sv DeletePolicy = AutoScaling+        type Rs DeletePolicy = DeletePolicyResponse+        request = postQuery+        response = receiveNull DeletePolicyResponse' --- | 'DeletePolicyResponse' constructor.-deletePolicyResponse :: DeletePolicyResponse-deletePolicyResponse = DeletePolicyResponse+instance ToHeaders DeletePolicy where+        toHeaders = const mempty  instance ToPath DeletePolicy where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeletePolicy where-    toQuery DeletePolicy{..} = mconcat-        [ "AutoScalingGroupName" =? _dpAutoScalingGroupName-        , "PolicyName"           =? _dpPolicyName-        ]--instance ToHeaders DeletePolicy+        toQuery DeletePolicy'{..}+          = mconcat+              ["Action" =: ("DeletePolicy" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "AutoScalingGroupName" =: _dpAutoScalingGroupName,+               "PolicyName" =: _dpPolicyName] -instance AWSRequest DeletePolicy where-    type Sv DeletePolicy = AutoScaling-    type Rs DeletePolicy = DeletePolicyResponse+-- | /See:/ 'deletePolicyResponse' smart constructor.+data DeletePolicyResponse =+    DeletePolicyResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeletePolicy"-    response = nullResponse DeletePolicyResponse+-- | Creates a value of 'DeletePolicyResponse' with the minimum fields required to make a request.+--+deletePolicyResponse+    :: DeletePolicyResponse+deletePolicyResponse = DeletePolicyResponse'

@@ -1,102 +1,104 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DeleteScheduledAction--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified scheduled action.+-- Deletes the specified scheduled action. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteScheduledAction.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteScheduledAction.html AWS API Reference> for DeleteScheduledAction. module Network.AWS.AutoScaling.DeleteScheduledAction     (-    -- * Request-      DeleteScheduledAction-    -- ** Request constructor-    , deleteScheduledAction-    -- ** Request lenses+    -- * Creating a Request+      deleteScheduledAction+    , DeleteScheduledAction+    -- * Request Lenses     , dsaAutoScalingGroupName     , dsaScheduledActionName -    -- * Response-    , DeleteScheduledActionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteScheduledActionResponse+    , DeleteScheduledActionResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DeleteScheduledAction = DeleteScheduledAction-    { _dsaAutoScalingGroupName :: Maybe Text-    , _dsaScheduledActionName  :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'deleteScheduledAction' smart constructor.+data DeleteScheduledAction = DeleteScheduledAction'+    { _dsaAutoScalingGroupName :: !(Maybe Text)+    , _dsaScheduledActionName  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteScheduledAction' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteScheduledAction' with the minimum fields required to make a request. ----- * 'dsaAutoScalingGroupName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dsaScheduledActionName' @::@ 'Text'+-- * 'dsaAutoScalingGroupName' ---deleteScheduledAction :: Text -- ^ 'dsaScheduledActionName'-                      -> DeleteScheduledAction-deleteScheduledAction p1 = DeleteScheduledAction-    { _dsaScheduledActionName  = p1-    , _dsaAutoScalingGroupName = Nothing+-- * 'dsaScheduledActionName'+deleteScheduledAction+    :: Text -- ^ 'dsaScheduledActionName'+    -> DeleteScheduledAction+deleteScheduledAction pScheduledActionName_ =+    DeleteScheduledAction'+    { _dsaAutoScalingGroupName = Nothing+    , _dsaScheduledActionName = pScheduledActionName_     }  -- | The name of the Auto Scaling group. dsaAutoScalingGroupName :: Lens' DeleteScheduledAction (Maybe 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}); -data DeleteScheduledActionResponse = DeleteScheduledActionResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteScheduledAction where+        type Sv DeleteScheduledAction = AutoScaling+        type Rs DeleteScheduledAction =+             DeleteScheduledActionResponse+        request = postQuery+        response = receiveNull DeleteScheduledActionResponse' --- | 'DeleteScheduledActionResponse' constructor.-deleteScheduledActionResponse :: DeleteScheduledActionResponse-deleteScheduledActionResponse = DeleteScheduledActionResponse+instance ToHeaders DeleteScheduledAction where+        toHeaders = const mempty  instance ToPath DeleteScheduledAction where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteScheduledAction where-    toQuery DeleteScheduledAction{..} = mconcat-        [ "AutoScalingGroupName" =? _dsaAutoScalingGroupName-        , "ScheduledActionName"  =? _dsaScheduledActionName-        ]--instance ToHeaders DeleteScheduledAction+        toQuery DeleteScheduledAction'{..}+          = mconcat+              ["Action" =: ("DeleteScheduledAction" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "AutoScalingGroupName" =: _dsaAutoScalingGroupName,+               "ScheduledActionName" =: _dsaScheduledActionName] -instance AWSRequest DeleteScheduledAction where-    type Sv DeleteScheduledAction = AutoScaling-    type Rs DeleteScheduledAction = DeleteScheduledActionResponse+-- | /See:/ 'deleteScheduledActionResponse' smart constructor.+data DeleteScheduledActionResponse =+    DeleteScheduledActionResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteScheduledAction"-    response = nullResponse DeleteScheduledActionResponse+-- | Creates a value of 'DeleteScheduledActionResponse' with the minimum fields required to make a request.+--+deleteScheduledActionResponse+    :: DeleteScheduledActionResponse+deleteScheduledActionResponse = DeleteScheduledActionResponse'

@@ -1,97 +1,95 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DeleteTags--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified tags.+-- Deletes the specified tags. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteTags.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DeleteTags.html AWS API Reference> for DeleteTags. module Network.AWS.AutoScaling.DeleteTags     (-    -- * Request-      DeleteTags-    -- ** Request constructor-    , deleteTags-    -- ** Request lenses+    -- * Creating a Request+      deleteTags+    , DeleteTags+    -- * Request Lenses     , dtTags -    -- * Response-    , DeleteTagsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteTagsResponse+    , DeleteTagsResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts--newtype DeleteTags = DeleteTags-    { _dtTags :: List "member" Tag-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DeleteTags where-    type Item DeleteTags = Tag+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -    fromList = DeleteTags . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dtTags+-- | /See:/ 'deleteTags' smart constructor.+newtype DeleteTags = DeleteTags'+    { _dtTags :: [Tag]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteTags' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteTags' with the minimum fields required to make a request. ----- * 'dtTags' @::@ ['Tag']+-- Use one of the following lenses to modify other fields as desired: ---deleteTags :: DeleteTags-deleteTags = DeleteTags+-- * 'dtTags'+deleteTags+    :: DeleteTags+deleteTags =+    DeleteTags'     { _dtTags = mempty     } --- | Each tag should be defined by its resource type, resource ID, key, value, and--- a propagate flag. Valid values are: Resource type = /auto-scaling-group/,--- Resource ID = /AutoScalingGroupName/, key=/value/, value=/value/, propagate=/true/ or /false/.+-- | Each tag should be defined by its resource type, resource ID, key,+-- value, and a propagate flag. Valid values are: Resource type =+-- /auto-scaling-group/, Resource ID = /AutoScalingGroupName/, key=/value/,+-- value=/value/, propagate=/true/ or /false/. dtTags :: Lens' DeleteTags [Tag]-dtTags = lens _dtTags (\s a -> s { _dtTags = a }) . _List+dtTags = lens _dtTags (\ s a -> s{_dtTags = a}) . _Coerce; -data DeleteTagsResponse = DeleteTagsResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteTags where+        type Sv DeleteTags = AutoScaling+        type Rs DeleteTags = DeleteTagsResponse+        request = postQuery+        response = receiveNull DeleteTagsResponse' --- | 'DeleteTagsResponse' constructor.-deleteTagsResponse :: DeleteTagsResponse-deleteTagsResponse = DeleteTagsResponse+instance ToHeaders DeleteTags where+        toHeaders = const mempty  instance ToPath DeleteTags where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteTags where-    toQuery DeleteTags{..} = mconcat-        [ "Tags" =? _dtTags-        ]--instance ToHeaders DeleteTags+        toQuery DeleteTags'{..}+          = mconcat+              ["Action" =: ("DeleteTags" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "Tags" =: toQueryList "member" _dtTags] -instance AWSRequest DeleteTags where-    type Sv DeleteTags = AutoScaling-    type Rs DeleteTags = DeleteTagsResponse+-- | /See:/ 'deleteTagsResponse' smart constructor.+data DeleteTagsResponse =+    DeleteTagsResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteTags"-    response = nullResponse DeleteTagsResponse+-- | Creates a value of 'DeleteTagsResponse' with the minimum fields required to make a request.+--+deleteTagsResponse+    :: DeleteTagsResponse+deleteTagsResponse = DeleteTagsResponse'

@@ -1,109 +1,124 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DescribeAccountLimits--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the current Auto Scaling resource limits for your AWS account.+-- 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 AWSService Limits>.+-- 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/. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAccountLimits.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAccountLimits.html AWS API Reference> for DescribeAccountLimits. module Network.AWS.AutoScaling.DescribeAccountLimits     (-    -- * Request-      DescribeAccountLimits-    -- ** Request constructor-    , describeAccountLimits+    -- * Creating a Request+      describeAccountLimits+    , DescribeAccountLimits -    -- * Response-    , DescribeAccountLimitsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeAccountLimitsResponse-    -- ** Response lenses-    , dalrMaxNumberOfAutoScalingGroups-    , dalrMaxNumberOfLaunchConfigurations+    , DescribeAccountLimitsResponse+    -- * Response Lenses+    , dalrsMaxNumberOfLaunchConfigurations+    , dalrsMaxNumberOfAutoScalingGroups+    , dalrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts--data DescribeAccountLimits = DescribeAccountLimits-    deriving (Eq, Ord, Read, Show, Generic)---- | 'DescribeAccountLimits' constructor.-describeAccountLimits :: DescribeAccountLimits-describeAccountLimits = DescribeAccountLimits+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse-    { _dalrMaxNumberOfAutoScalingGroups    :: Maybe Int-    , _dalrMaxNumberOfLaunchConfigurations :: Maybe Int-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeAccountLimits' smart constructor.+data DescribeAccountLimits =+    DescribeAccountLimits'+    deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeAccountLimitsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dalrMaxNumberOfAutoScalingGroups' @::@ 'Maybe' 'Int'------ * 'dalrMaxNumberOfLaunchConfigurations' @::@ 'Maybe' 'Int'+-- | Creates a value of 'DescribeAccountLimits' with the minimum fields required to make a request. ---describeAccountLimitsResponse :: DescribeAccountLimitsResponse-describeAccountLimitsResponse = DescribeAccountLimitsResponse-    { _dalrMaxNumberOfAutoScalingGroups    = Nothing-    , _dalrMaxNumberOfLaunchConfigurations = Nothing-    }+describeAccountLimits+    :: DescribeAccountLimits+describeAccountLimits = DescribeAccountLimits' --- | The maximum number of groups allowed for your AWS account. The default limit--- is 20 per region.-dalrMaxNumberOfAutoScalingGroups :: Lens' DescribeAccountLimitsResponse (Maybe Int)-dalrMaxNumberOfAutoScalingGroups =-    lens _dalrMaxNumberOfAutoScalingGroups-        (\s a -> s { _dalrMaxNumberOfAutoScalingGroups = a })+instance AWSRequest DescribeAccountLimits where+        type Sv DescribeAccountLimits = AutoScaling+        type Rs DescribeAccountLimits =+             DescribeAccountLimitsResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeAccountLimitsResult"+              (\ s h x ->+                 DescribeAccountLimitsResponse' <$>+                   (x .@? "MaxNumberOfLaunchConfigurations") <*>+                     (x .@? "MaxNumberOfAutoScalingGroups")+                     <*> (pure (fromEnum s))) --- | The maximum number of launch configurations allowed for your AWS account. The--- default limit is 100 per region.-dalrMaxNumberOfLaunchConfigurations :: Lens' DescribeAccountLimitsResponse (Maybe Int)-dalrMaxNumberOfLaunchConfigurations =-    lens _dalrMaxNumberOfLaunchConfigurations-        (\s a -> s { _dalrMaxNumberOfLaunchConfigurations = a })+instance ToHeaders DescribeAccountLimits where+        toHeaders = const mempty  instance ToPath DescribeAccountLimits where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeAccountLimits where-    toQuery = const mempty+        toQuery+          = const+              (mconcat+                 ["Action" =: ("DescribeAccountLimits" :: ByteString),+                  "Version" =: ("2011-01-01" :: ByteString)]) -instance ToHeaders DescribeAccountLimits+-- | /See:/ 'describeAccountLimitsResponse' smart constructor.+data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse'+    { _dalrsMaxNumberOfLaunchConfigurations :: !(Maybe Int)+    , _dalrsMaxNumberOfAutoScalingGroups    :: !(Maybe Int)+    , _dalrsStatus                          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeAccountLimits where-    type Sv DescribeAccountLimits = AutoScaling-    type Rs DescribeAccountLimits = DescribeAccountLimitsResponse+-- | Creates a value of 'DescribeAccountLimitsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dalrsMaxNumberOfLaunchConfigurations'+--+-- * 'dalrsMaxNumberOfAutoScalingGroups'+--+-- * 'dalrsStatus'+describeAccountLimitsResponse+    :: Int -- ^ 'dalrsStatus'+    -> DescribeAccountLimitsResponse+describeAccountLimitsResponse pStatus_ =+    DescribeAccountLimitsResponse'+    { _dalrsMaxNumberOfLaunchConfigurations = Nothing+    , _dalrsMaxNumberOfAutoScalingGroups = Nothing+    , _dalrsStatus = pStatus_+    } -    request  = post "DescribeAccountLimits"-    response = xmlResponse+-- | 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}); -instance FromXML DescribeAccountLimitsResponse where-    parseXML = withElement "DescribeAccountLimitsResult" $ \x -> DescribeAccountLimitsResponse-        <$> x .@? "MaxNumberOfAutoScalingGroups"-        <*> x .@? "MaxNumberOfLaunchConfigurations"+-- | 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});++-- | The response status code.+dalrsStatus :: Lens' DescribeAccountLimitsResponse Int+dalrsStatus = lens _dalrsStatus (\ s a -> s{_dalrsStatus = a});

@@ -1,99 +1,110 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DescribeAdjustmentTypes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Lists the policy adjustment types for use with 'PutScalingPolicy'.+-- Describes the policy adjustment types for use with PutScalingPolicy. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAdjustmentTypes.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAdjustmentTypes.html AWS API Reference> for DescribeAdjustmentTypes. module Network.AWS.AutoScaling.DescribeAdjustmentTypes     (-    -- * Request-      DescribeAdjustmentTypes-    -- ** Request constructor-    , describeAdjustmentTypes+    -- * Creating a Request+      describeAdjustmentTypes+    , DescribeAdjustmentTypes -    -- * Response-    , DescribeAdjustmentTypesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeAdjustmentTypesResponse-    -- ** Response lenses-    , datrAdjustmentTypes+    , DescribeAdjustmentTypesResponse+    -- * Response Lenses+    , datrsAdjustmentTypes+    , datrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeAdjustmentTypes = DescribeAdjustmentTypes-    deriving (Eq, Ord, Read, Show, Generic)+-- | /See:/ 'describeAdjustmentTypes' smart constructor.+data DescribeAdjustmentTypes =+    DescribeAdjustmentTypes'+    deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeAdjustmentTypes' constructor.-describeAdjustmentTypes :: DescribeAdjustmentTypes-describeAdjustmentTypes = DescribeAdjustmentTypes+-- | Creates a value of 'DescribeAdjustmentTypes' with the minimum fields required to make a request.+--+describeAdjustmentTypes+    :: DescribeAdjustmentTypes+describeAdjustmentTypes = DescribeAdjustmentTypes' -newtype DescribeAdjustmentTypesResponse = DescribeAdjustmentTypesResponse-    { _datrAdjustmentTypes :: List "member" AdjustmentType-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance AWSRequest DescribeAdjustmentTypes where+        type Sv DescribeAdjustmentTypes = AutoScaling+        type Rs DescribeAdjustmentTypes =+             DescribeAdjustmentTypesResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeAdjustmentTypesResult"+              (\ s h x ->+                 DescribeAdjustmentTypesResponse' <$>+                   (x .@? "AdjustmentTypes" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList DescribeAdjustmentTypesResponse where-    type Item DescribeAdjustmentTypesResponse = AdjustmentType+instance ToHeaders DescribeAdjustmentTypes where+        toHeaders = const mempty -    fromList = DescribeAdjustmentTypesResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _datrAdjustmentTypes+instance ToPath DescribeAdjustmentTypes where+        toPath = const "/" --- | 'DescribeAdjustmentTypesResponse' constructor.+instance ToQuery DescribeAdjustmentTypes where+        toQuery+          = const+              (mconcat+                 ["Action" =:+                    ("DescribeAdjustmentTypes" :: ByteString),+                  "Version" =: ("2011-01-01" :: ByteString)])++-- | /See:/ 'describeAdjustmentTypesResponse' smart constructor.+data DescribeAdjustmentTypesResponse = DescribeAdjustmentTypesResponse'+    { _datrsAdjustmentTypes :: !(Maybe [AdjustmentType])+    , _datrsStatus          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAdjustmentTypesResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'datrAdjustmentTypes' @::@ ['AdjustmentType']+-- * 'datrsAdjustmentTypes' ---describeAdjustmentTypesResponse :: DescribeAdjustmentTypesResponse-describeAdjustmentTypesResponse = DescribeAdjustmentTypesResponse-    { _datrAdjustmentTypes = mempty+-- * 'datrsStatus'+describeAdjustmentTypesResponse+    :: Int -- ^ 'datrsStatus'+    -> DescribeAdjustmentTypesResponse+describeAdjustmentTypesResponse pStatus_ =+    DescribeAdjustmentTypesResponse'+    { _datrsAdjustmentTypes = Nothing+    , _datrsStatus = pStatus_     }  -- | The policy adjustment types.-datrAdjustmentTypes :: Lens' DescribeAdjustmentTypesResponse [AdjustmentType]-datrAdjustmentTypes =-    lens _datrAdjustmentTypes (\s a -> s { _datrAdjustmentTypes = a })-        . _List--instance ToPath DescribeAdjustmentTypes where-    toPath = const "/"--instance ToQuery DescribeAdjustmentTypes where-    toQuery = const mempty--instance ToHeaders DescribeAdjustmentTypes--instance AWSRequest DescribeAdjustmentTypes where-    type Sv DescribeAdjustmentTypes = AutoScaling-    type Rs DescribeAdjustmentTypes = DescribeAdjustmentTypesResponse--    request  = post "DescribeAdjustmentTypes"-    response = xmlResponse+datrsAdjustmentTypes :: Lens' DescribeAdjustmentTypesResponse [AdjustmentType]+datrsAdjustmentTypes = lens _datrsAdjustmentTypes (\ s a -> s{_datrsAdjustmentTypes = a}) . _Default . _Coerce; -instance FromXML DescribeAdjustmentTypesResponse where-    parseXML = withElement "DescribeAdjustmentTypesResult" $ \x -> DescribeAdjustmentTypesResponse-        <$> x .@? "AdjustmentTypes" .!@ mempty+-- | The response status code.+datrsStatus :: Lens' DescribeAdjustmentTypesResponse Int+datrsStatus = lens _datrsStatus (\ s a -> s{_datrsStatus = a});

@@ -1,156 +1,167 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DescribeAutoScalingGroups--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes one or more Auto Scaling groups. If a list of names is not+-- Describes one or more Auto Scaling groups. If a list of names is not -- provided, the call describes all Auto Scaling groups. ----- You can specify a maximum number of items to be returned 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 in the 'NextToken'--- parameter.+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAutoScalingGroups.html AWS API Reference> for DescribeAutoScalingGroups. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAutoScalingGroups.html>+-- This operation returns paginated results. module Network.AWS.AutoScaling.DescribeAutoScalingGroups     (-    -- * Request-      DescribeAutoScalingGroups-    -- ** Request constructor-    , describeAutoScalingGroups-    -- ** Request lenses+    -- * Creating a Request+      describeAutoScalingGroups+    , DescribeAutoScalingGroups+    -- * Request Lenses     , dasgAutoScalingGroupNames-    , dasgMaxRecords     , dasgNextToken+    , dasgMaxRecords -    -- * Response-    , DescribeAutoScalingGroupsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeAutoScalingGroupsResponse-    -- ** Response lenses-    , dasgrAutoScalingGroups-    , dasgrNextToken+    , DescribeAutoScalingGroupsResponse+    -- * Response Lenses+    , dasgrsNextToken+    , dasgrsStatus+    , dasgrsAutoScalingGroups     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeAutoScalingGroups = DescribeAutoScalingGroups-    { _dasgAutoScalingGroupNames :: List "member" Text-    , _dasgMaxRecords            :: Maybe Int-    , _dasgNextToken             :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeAutoScalingGroups' smart constructor.+data DescribeAutoScalingGroups = DescribeAutoScalingGroups'+    { _dasgAutoScalingGroupNames :: !(Maybe [Text])+    , _dasgNextToken             :: !(Maybe Text)+    , _dasgMaxRecords            :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeAutoScalingGroups' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeAutoScalingGroups' with the minimum fields required to make a request. ----- * 'dasgAutoScalingGroupNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'dasgMaxRecords' @::@ 'Maybe' 'Int'+-- * 'dasgAutoScalingGroupNames' ----- * 'dasgNextToken' @::@ 'Maybe' 'Text'+-- * 'dasgNextToken' ---describeAutoScalingGroups :: DescribeAutoScalingGroups-describeAutoScalingGroups = DescribeAutoScalingGroups-    { _dasgAutoScalingGroupNames = mempty-    , _dasgNextToken             = Nothing-    , _dasgMaxRecords            = Nothing+-- * 'dasgMaxRecords'+describeAutoScalingGroups+    :: DescribeAutoScalingGroups+describeAutoScalingGroups =+    DescribeAutoScalingGroups'+    { _dasgAutoScalingGroupNames = Nothing+    , _dasgNextToken = Nothing+    , _dasgMaxRecords = Nothing     }  -- | The group names. dasgAutoScalingGroupNames :: Lens' DescribeAutoScalingGroups [Text]-dasgAutoScalingGroupNames =-    lens _dasgAutoScalingGroupNames-        (\s a -> s { _dasgAutoScalingGroupNames = a })-            . _List+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});+ -- | The maximum number of items to return with this call. dasgMaxRecords :: Lens' DescribeAutoScalingGroups (Maybe Int)-dasgMaxRecords = lens _dasgMaxRecords (\s a -> s { _dasgMaxRecords = a })+dasgMaxRecords = lens _dasgMaxRecords (\ s a -> s{_dasgMaxRecords = a}); --- | 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 })+instance AWSPager DescribeAutoScalingGroups where+        page rq rs+          | stop (rs ^. dasgrsNextToken) = Nothing+          | stop (rs ^. dasgrsAutoScalingGroups) = Nothing+          | otherwise =+            Just $ rq & dasgNextToken .~ rs ^. dasgrsNextToken -data DescribeAutoScalingGroupsResponse = DescribeAutoScalingGroupsResponse-    { _dasgrAutoScalingGroups :: List "member" AutoScalingGroup-    , _dasgrNextToken         :: Maybe Text-    } deriving (Eq, Read, Show)+instance AWSRequest DescribeAutoScalingGroups where+        type Sv DescribeAutoScalingGroups = AutoScaling+        type Rs DescribeAutoScalingGroups =+             DescribeAutoScalingGroupsResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeAutoScalingGroupsResult"+              (\ s h x ->+                 DescribeAutoScalingGroupsResponse' <$>+                   (x .@? "NextToken") <*> (pure (fromEnum s)) <*>+                     (x .@? "AutoScalingGroups" .!@ mempty >>=+                        parseXMLList "member")) --- | 'DescribeAutoScalingGroupsResponse' constructor.+instance ToHeaders DescribeAutoScalingGroups where+        toHeaders = const mempty++instance ToPath DescribeAutoScalingGroups where+        toPath = const "/"++instance ToQuery DescribeAutoScalingGroups where+        toQuery DescribeAutoScalingGroups'{..}+          = mconcat+              ["Action" =:+                 ("DescribeAutoScalingGroups" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "AutoScalingGroupNames" =:+                 toQuery+                   (toQueryList "member" <$>+                      _dasgAutoScalingGroupNames),+               "NextToken" =: _dasgNextToken,+               "MaxRecords" =: _dasgMaxRecords]++-- | /See:/ 'describeAutoScalingGroupsResponse' smart constructor.+data DescribeAutoScalingGroupsResponse = DescribeAutoScalingGroupsResponse'+    { _dasgrsNextToken         :: !(Maybe Text)+    , _dasgrsStatus            :: !Int+    , _dasgrsAutoScalingGroups :: ![AutoScalingGroup]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAutoScalingGroupsResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dasgrAutoScalingGroups' @::@ ['AutoScalingGroup']+-- * 'dasgrsNextToken' ----- * 'dasgrNextToken' @::@ 'Maybe' 'Text'+-- * 'dasgrsStatus' ---describeAutoScalingGroupsResponse :: DescribeAutoScalingGroupsResponse-describeAutoScalingGroupsResponse = DescribeAutoScalingGroupsResponse-    { _dasgrAutoScalingGroups = mempty-    , _dasgrNextToken         = Nothing+-- * 'dasgrsAutoScalingGroups'+describeAutoScalingGroupsResponse+    :: Int -- ^ 'dasgrsStatus'+    -> DescribeAutoScalingGroupsResponse+describeAutoScalingGroupsResponse pStatus_ =+    DescribeAutoScalingGroupsResponse'+    { _dasgrsNextToken = Nothing+    , _dasgrsStatus = pStatus_+    , _dasgrsAutoScalingGroups = mempty     } --- | The groups.-dasgrAutoScalingGroups :: Lens' DescribeAutoScalingGroupsResponse [AutoScalingGroup]-dasgrAutoScalingGroups =-    lens _dasgrAutoScalingGroups (\s a -> s { _dasgrAutoScalingGroups = a })-        . _List- -- | The token to use when requesting the next set of items. If there are no -- additional items to return, the string is empty.-dasgrNextToken :: Lens' DescribeAutoScalingGroupsResponse (Maybe Text)-dasgrNextToken = lens _dasgrNextToken (\s a -> s { _dasgrNextToken = a })--instance ToPath DescribeAutoScalingGroups where-    toPath = const "/"--instance ToQuery DescribeAutoScalingGroups where-    toQuery DescribeAutoScalingGroups{..} = mconcat-        [ "AutoScalingGroupNames" =? _dasgAutoScalingGroupNames-        , "MaxRecords"            =? _dasgMaxRecords-        , "NextToken"             =? _dasgNextToken-        ]--instance ToHeaders DescribeAutoScalingGroups--instance AWSRequest DescribeAutoScalingGroups where-    type Sv DescribeAutoScalingGroups = AutoScaling-    type Rs DescribeAutoScalingGroups = DescribeAutoScalingGroupsResponse--    request  = post "DescribeAutoScalingGroups"-    response = xmlResponse+dasgrsNextToken :: Lens' DescribeAutoScalingGroupsResponse (Maybe Text)+dasgrsNextToken = lens _dasgrsNextToken (\ s a -> s{_dasgrsNextToken = a}); -instance FromXML DescribeAutoScalingGroupsResponse where-    parseXML = withElement "DescribeAutoScalingGroupsResult" $ \x -> DescribeAutoScalingGroupsResponse-        <$> x .@? "AutoScalingGroups" .!@ mempty-        <*> x .@? "NextToken"+-- | The response status code.+dasgrsStatus :: Lens' DescribeAutoScalingGroupsResponse Int+dasgrsStatus = lens _dasgrsStatus (\ s a -> s{_dasgrsStatus = a}); -instance AWSPager DescribeAutoScalingGroups where-    page rq rs-        | stop (rs ^. dasgrNextToken) = Nothing-        | otherwise = (\x -> rq & dasgNextToken ?~ x)-            <$> (rs ^. dasgrNextToken)+-- | The groups.+dasgrsAutoScalingGroups :: Lens' DescribeAutoScalingGroupsResponse [AutoScalingGroup]+dasgrsAutoScalingGroups = lens _dasgrsAutoScalingGroups (\ s a -> s{_dasgrsAutoScalingGroups = a}) . _Coerce;

@@ -1,156 +1,170 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DescribeAutoScalingInstances--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes one or more Auto Scaling instances. If a list is not provided, the--- call describes all instances.+-- Describes one or more Auto Scaling instances. If a list is not provided,+-- the call describes all instances. ----- You can describe up to a maximum of 50 instances with a single call. By--- default, a call returns up to 20 instances. 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 in the 'NextToken' parameter.+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAutoScalingInstances.html AWS API Reference> for DescribeAutoScalingInstances. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAutoScalingInstances.html>+-- This operation returns paginated results. module Network.AWS.AutoScaling.DescribeAutoScalingInstances     (-    -- * Request-      DescribeAutoScalingInstances-    -- ** Request constructor-    , describeAutoScalingInstances-    -- ** Request lenses+    -- * Creating a Request+      describeAutoScalingInstances+    , DescribeAutoScalingInstances+    -- * Request Lenses+    , dasiNextToken     , dasiInstanceIds     , dasiMaxRecords-    , dasiNextToken -    -- * Response-    , DescribeAutoScalingInstancesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeAutoScalingInstancesResponse-    -- ** Response lenses-    , dasirAutoScalingInstances-    , dasirNextToken+    , DescribeAutoScalingInstancesResponse+    -- * Response Lenses+    , dasirsNextToken+    , dasirsAutoScalingInstances+    , dasirsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeAutoScalingInstances = DescribeAutoScalingInstances-    { _dasiInstanceIds :: List "member" Text-    , _dasiMaxRecords  :: Maybe Int-    , _dasiNextToken   :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeAutoScalingInstances' smart constructor.+data DescribeAutoScalingInstances = DescribeAutoScalingInstances'+    { _dasiNextToken   :: !(Maybe Text)+    , _dasiInstanceIds :: !(Maybe [Text])+    , _dasiMaxRecords  :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeAutoScalingInstances' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeAutoScalingInstances' with the minimum fields required to make a request. ----- * 'dasiInstanceIds' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'dasiMaxRecords' @::@ 'Maybe' 'Int'+-- * 'dasiNextToken' ----- * 'dasiNextToken' @::@ 'Maybe' 'Text'+-- * 'dasiInstanceIds' ---describeAutoScalingInstances :: DescribeAutoScalingInstances-describeAutoScalingInstances = DescribeAutoScalingInstances-    { _dasiInstanceIds = mempty-    , _dasiMaxRecords  = Nothing-    , _dasiNextToken   = Nothing+-- * 'dasiMaxRecords'+describeAutoScalingInstances+    :: DescribeAutoScalingInstances+describeAutoScalingInstances =+    DescribeAutoScalingInstances'+    { _dasiNextToken = Nothing+    , _dasiInstanceIds = Nothing+    , _dasiMaxRecords = Nothing     } --- | One or more Auto Scaling instances to describe, up to 50 instances. 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.+-- | 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});++-- | One or more Auto Scaling instances to describe, up to 50 instances. 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 }) . _List+dasiInstanceIds = lens _dasiInstanceIds (\ s a -> s{_dasiInstanceIds = a}) . _Default . _Coerce;  -- | The maximum number of items to return with this call. dasiMaxRecords :: Lens' DescribeAutoScalingInstances (Maybe Int)-dasiMaxRecords = lens _dasiMaxRecords (\s a -> s { _dasiMaxRecords = a })+dasiMaxRecords = lens _dasiMaxRecords (\ s a -> s{_dasiMaxRecords = a}); --- | 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 })+instance AWSPager DescribeAutoScalingInstances where+        page rq rs+          | stop (rs ^. dasirsNextToken) = Nothing+          | stop (rs ^. dasirsAutoScalingInstances) = Nothing+          | otherwise =+            Just $ rq & dasiNextToken .~ rs ^. dasirsNextToken -data DescribeAutoScalingInstancesResponse = DescribeAutoScalingInstancesResponse-    { _dasirAutoScalingInstances :: List "member" AutoScalingInstanceDetails-    , _dasirNextToken            :: Maybe Text-    } deriving (Eq, Read, Show)+instance AWSRequest DescribeAutoScalingInstances+         where+        type Sv DescribeAutoScalingInstances = AutoScaling+        type Rs DescribeAutoScalingInstances =+             DescribeAutoScalingInstancesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeAutoScalingInstancesResult"+              (\ s h x ->+                 DescribeAutoScalingInstancesResponse' <$>+                   (x .@? "NextToken") <*>+                     (x .@? "AutoScalingInstances" .!@ mempty >>=+                        may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) --- | 'DescribeAutoScalingInstancesResponse' constructor.+instance ToHeaders DescribeAutoScalingInstances where+        toHeaders = const mempty++instance ToPath DescribeAutoScalingInstances where+        toPath = const "/"++instance ToQuery DescribeAutoScalingInstances where+        toQuery DescribeAutoScalingInstances'{..}+          = mconcat+              ["Action" =:+                 ("DescribeAutoScalingInstances" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "NextToken" =: _dasiNextToken,+               "InstanceIds" =:+                 toQuery (toQueryList "member" <$> _dasiInstanceIds),+               "MaxRecords" =: _dasiMaxRecords]++-- | /See:/ 'describeAutoScalingInstancesResponse' smart constructor.+data DescribeAutoScalingInstancesResponse = DescribeAutoScalingInstancesResponse'+    { _dasirsNextToken            :: !(Maybe Text)+    , _dasirsAutoScalingInstances :: !(Maybe [AutoScalingInstanceDetails])+    , _dasirsStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAutoScalingInstancesResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dasirAutoScalingInstances' @::@ ['AutoScalingInstanceDetails']+-- * 'dasirsNextToken' ----- * 'dasirNextToken' @::@ 'Maybe' 'Text'+-- * 'dasirsAutoScalingInstances' ---describeAutoScalingInstancesResponse :: DescribeAutoScalingInstancesResponse-describeAutoScalingInstancesResponse = DescribeAutoScalingInstancesResponse-    { _dasirAutoScalingInstances = mempty-    , _dasirNextToken            = Nothing+-- * 'dasirsStatus'+describeAutoScalingInstancesResponse+    :: Int -- ^ 'dasirsStatus'+    -> DescribeAutoScalingInstancesResponse+describeAutoScalingInstancesResponse pStatus_ =+    DescribeAutoScalingInstancesResponse'+    { _dasirsNextToken = Nothing+    , _dasirsAutoScalingInstances = Nothing+    , _dasirsStatus = pStatus_     } --- | The instances.-dasirAutoScalingInstances :: Lens' DescribeAutoScalingInstancesResponse [AutoScalingInstanceDetails]-dasirAutoScalingInstances =-    lens _dasirAutoScalingInstances-        (\s a -> s { _dasirAutoScalingInstances = a })-            . _List- -- | The token to use when requesting the next set of items. If there are no -- additional items to return, the string is empty.-dasirNextToken :: Lens' DescribeAutoScalingInstancesResponse (Maybe Text)-dasirNextToken = lens _dasirNextToken (\s a -> s { _dasirNextToken = a })--instance ToPath DescribeAutoScalingInstances where-    toPath = const "/"--instance ToQuery DescribeAutoScalingInstances where-    toQuery DescribeAutoScalingInstances{..} = mconcat-        [ "InstanceIds" =? _dasiInstanceIds-        , "MaxRecords"  =? _dasiMaxRecords-        , "NextToken"   =? _dasiNextToken-        ]--instance ToHeaders DescribeAutoScalingInstances--instance AWSRequest DescribeAutoScalingInstances where-    type Sv DescribeAutoScalingInstances = AutoScaling-    type Rs DescribeAutoScalingInstances = DescribeAutoScalingInstancesResponse--    request  = post "DescribeAutoScalingInstances"-    response = xmlResponse+dasirsNextToken :: Lens' DescribeAutoScalingInstancesResponse (Maybe Text)+dasirsNextToken = lens _dasirsNextToken (\ s a -> s{_dasirsNextToken = a}); -instance FromXML DescribeAutoScalingInstancesResponse where-    parseXML = withElement "DescribeAutoScalingInstancesResult" $ \x -> DescribeAutoScalingInstancesResponse-        <$> x .@? "AutoScalingInstances" .!@ mempty-        <*> x .@? "NextToken"+-- | The instances.+dasirsAutoScalingInstances :: Lens' DescribeAutoScalingInstancesResponse [AutoScalingInstanceDetails]+dasirsAutoScalingInstances = lens _dasirsAutoScalingInstances (\ s a -> s{_dasirsAutoScalingInstances = a}) . _Default . _Coerce; -instance AWSPager DescribeAutoScalingInstances where-    page rq rs-        | stop (rs ^. dasirNextToken) = Nothing-        | otherwise = (\x -> rq & dasiNextToken ?~ x)-            <$> (rs ^. dasirNextToken)+-- | The response status code.+dasirsStatus :: Lens' DescribeAutoScalingInstancesResponse Int+dasirsStatus = lens _dasirsStatus (\ s a -> s{_dasirsStatus = a});

@@ -1,112 +1,128 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DescribeAutoScalingNotificationTypes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Lists the notification types that are supported by Auto Scaling.+-- Describes the notification types that are supported by Auto Scaling. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAutoScalingNotificationTypes.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeAutoScalingNotificationTypes.html AWS API Reference> for DescribeAutoScalingNotificationTypes. module Network.AWS.AutoScaling.DescribeAutoScalingNotificationTypes     (-    -- * Request-      DescribeAutoScalingNotificationTypes-    -- ** Request constructor-    , describeAutoScalingNotificationTypes+    -- * Creating a Request+      describeAutoScalingNotificationTypes+    , DescribeAutoScalingNotificationTypes -    -- * Response-    , DescribeAutoScalingNotificationTypesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeAutoScalingNotificationTypesResponse-    -- ** Response lenses-    , dasntrAutoScalingNotificationTypes+    , DescribeAutoScalingNotificationTypesResponse+    -- * Response Lenses+    , dasntrsAutoScalingNotificationTypes+    , dasntrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeAutoScalingNotificationTypes = DescribeAutoScalingNotificationTypes-    deriving (Eq, Ord, Read, Show, Generic)+-- | /See:/ 'describeAutoScalingNotificationTypes' smart constructor.+data DescribeAutoScalingNotificationTypes =+    DescribeAutoScalingNotificationTypes'+    deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeAutoScalingNotificationTypes' constructor.-describeAutoScalingNotificationTypes :: DescribeAutoScalingNotificationTypes-describeAutoScalingNotificationTypes = DescribeAutoScalingNotificationTypes+-- | Creates a value of 'DescribeAutoScalingNotificationTypes' with the minimum fields required to make a request.+--+describeAutoScalingNotificationTypes+    :: DescribeAutoScalingNotificationTypes+describeAutoScalingNotificationTypes = DescribeAutoScalingNotificationTypes' -newtype DescribeAutoScalingNotificationTypesResponse = DescribeAutoScalingNotificationTypesResponse-    { _dasntrAutoScalingNotificationTypes :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)+instance AWSRequest+         DescribeAutoScalingNotificationTypes where+        type Sv DescribeAutoScalingNotificationTypes =+             AutoScaling+        type Rs DescribeAutoScalingNotificationTypes =+             DescribeAutoScalingNotificationTypesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeAutoScalingNotificationTypesResult"+              (\ s h x ->+                 DescribeAutoScalingNotificationTypesResponse' <$>+                   (x .@? "AutoScalingNotificationTypes" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList DescribeAutoScalingNotificationTypesResponse where-    type Item DescribeAutoScalingNotificationTypesResponse = Text+instance ToHeaders+         DescribeAutoScalingNotificationTypes where+        toHeaders = const mempty -    fromList = DescribeAutoScalingNotificationTypesResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dasntrAutoScalingNotificationTypes+instance ToPath DescribeAutoScalingNotificationTypes+         where+        toPath = const "/" --- | 'DescribeAutoScalingNotificationTypesResponse' constructor.+instance ToQuery DescribeAutoScalingNotificationTypes+         where+        toQuery+          = const+              (mconcat+                 ["Action" =:+                    ("DescribeAutoScalingNotificationTypes" ::+                       ByteString),+                  "Version" =: ("2011-01-01" :: ByteString)])++-- | /See:/ 'describeAutoScalingNotificationTypesResponse' smart constructor.+data DescribeAutoScalingNotificationTypesResponse = DescribeAutoScalingNotificationTypesResponse'+    { _dasntrsAutoScalingNotificationTypes :: !(Maybe [Text])+    , _dasntrsStatus                       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAutoScalingNotificationTypesResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dasntrAutoScalingNotificationTypes' @::@ ['Text']+-- * 'dasntrsAutoScalingNotificationTypes' ---describeAutoScalingNotificationTypesResponse :: DescribeAutoScalingNotificationTypesResponse-describeAutoScalingNotificationTypesResponse = DescribeAutoScalingNotificationTypesResponse-    { _dasntrAutoScalingNotificationTypes = mempty+-- * 'dasntrsStatus'+describeAutoScalingNotificationTypesResponse+    :: Int -- ^ 'dasntrsStatus'+    -> DescribeAutoScalingNotificationTypesResponse+describeAutoScalingNotificationTypesResponse pStatus_ =+    DescribeAutoScalingNotificationTypesResponse'+    { _dasntrsAutoScalingNotificationTypes = Nothing+    , _dasntrsStatus = pStatus_     }  -- | One or more of the following notification types: ----- 'autoscaling:EC2_INSTANCE_LAUNCH'------ 'autoscaling:EC2_INSTANCE_LAUNCH_ERROR'+-- -   'autoscaling:EC2_INSTANCE_LAUNCH' ----- 'autoscaling:EC2_INSTANCE_TERMINATE'+-- -   'autoscaling:EC2_INSTANCE_LAUNCH_ERROR' ----- 'autoscaling:EC2_INSTANCE_TERMINATE_ERROR'+-- -   'autoscaling:EC2_INSTANCE_TERMINATE' ----- 'autoscaling:TEST_NOTIFICATION'+-- -   'autoscaling:EC2_INSTANCE_TERMINATE_ERROR' --+-- -   'autoscaling:TEST_NOTIFICATION' ---dasntrAutoScalingNotificationTypes :: Lens' DescribeAutoScalingNotificationTypesResponse [Text]-dasntrAutoScalingNotificationTypes =-    lens _dasntrAutoScalingNotificationTypes-        (\s a -> s { _dasntrAutoScalingNotificationTypes = a })-            . _List--instance ToPath DescribeAutoScalingNotificationTypes where-    toPath = const "/"--instance ToQuery DescribeAutoScalingNotificationTypes where-    toQuery = const mempty--instance ToHeaders DescribeAutoScalingNotificationTypes--instance AWSRequest DescribeAutoScalingNotificationTypes where-    type Sv DescribeAutoScalingNotificationTypes = AutoScaling-    type Rs DescribeAutoScalingNotificationTypes = DescribeAutoScalingNotificationTypesResponse--    request  = post "DescribeAutoScalingNotificationTypes"-    response = xmlResponse+dasntrsAutoScalingNotificationTypes :: Lens' DescribeAutoScalingNotificationTypesResponse [Text]+dasntrsAutoScalingNotificationTypes = lens _dasntrsAutoScalingNotificationTypes (\ s a -> s{_dasntrsAutoScalingNotificationTypes = a}) . _Default . _Coerce; -instance FromXML DescribeAutoScalingNotificationTypesResponse where-    parseXML = withElement "DescribeAutoScalingNotificationTypesResult" $ \x -> DescribeAutoScalingNotificationTypesResponse-        <$> x .@? "AutoScalingNotificationTypes" .!@ mempty+-- | The response status code.+dasntrsStatus :: Lens' DescribeAutoScalingNotificationTypesResponse Int+dasntrsStatus = lens _dasntrsStatus (\ s a -> s{_dasntrsStatus = a});

@@ -1,157 +1,170 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DescribeLaunchConfigurations--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes one or more launch configurations. If you omit the list of names,--- then the call describes all launch configurations.+-- Describes one or more launch configurations. If you omit the list of+-- names, then the call describes all launch configurations. ----- You can specify a maximum number of items to be returned 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 in the 'NextToken'--- parameter.+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeLaunchConfigurations.html AWS API Reference> for DescribeLaunchConfigurations. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeLaunchConfigurations.html>+-- This operation returns paginated results. module Network.AWS.AutoScaling.DescribeLaunchConfigurations     (-    -- * Request-      DescribeLaunchConfigurations-    -- ** Request constructor-    , describeLaunchConfigurations-    -- ** Request lenses+    -- * Creating a Request+      describeLaunchConfigurations+    , DescribeLaunchConfigurations+    -- * Request Lenses     , dlcLaunchConfigurationNames-    , dlcMaxRecords     , dlcNextToken+    , dlcMaxRecords -    -- * Response-    , DescribeLaunchConfigurationsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeLaunchConfigurationsResponse-    -- ** Response lenses-    , dlcrLaunchConfigurations-    , dlcrNextToken+    , DescribeLaunchConfigurationsResponse+    -- * Response Lenses+    , dlcrsNextToken+    , dlcrsStatus+    , dlcrsLaunchConfigurations     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeLaunchConfigurations = DescribeLaunchConfigurations-    { _dlcLaunchConfigurationNames :: List "member" Text-    , _dlcMaxRecords               :: Maybe Int-    , _dlcNextToken                :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeLaunchConfigurations' smart constructor.+data DescribeLaunchConfigurations = DescribeLaunchConfigurations'+    { _dlcLaunchConfigurationNames :: !(Maybe [Text])+    , _dlcNextToken                :: !(Maybe Text)+    , _dlcMaxRecords               :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeLaunchConfigurations' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeLaunchConfigurations' with the minimum fields required to make a request. ----- * 'dlcLaunchConfigurationNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlcMaxRecords' @::@ 'Maybe' 'Int'+-- * 'dlcLaunchConfigurationNames' ----- * 'dlcNextToken' @::@ 'Maybe' 'Text'+-- * 'dlcNextToken' ---describeLaunchConfigurations :: DescribeLaunchConfigurations-describeLaunchConfigurations = DescribeLaunchConfigurations-    { _dlcLaunchConfigurationNames = mempty-    , _dlcNextToken                = Nothing-    , _dlcMaxRecords               = Nothing+-- * 'dlcMaxRecords'+describeLaunchConfigurations+    :: DescribeLaunchConfigurations+describeLaunchConfigurations =+    DescribeLaunchConfigurations'+    { _dlcLaunchConfigurationNames = Nothing+    , _dlcNextToken = Nothing+    , _dlcMaxRecords = Nothing     }  -- | The launch configuration names. dlcLaunchConfigurationNames :: Lens' DescribeLaunchConfigurations [Text]-dlcLaunchConfigurationNames =-    lens _dlcLaunchConfigurationNames-        (\s a -> s { _dlcLaunchConfigurationNames = a })-            . _List---- | The maximum number of items to return with this call. The default is 100.-dlcMaxRecords :: Lens' DescribeLaunchConfigurations (Maybe Int)-dlcMaxRecords = lens _dlcMaxRecords (\s a -> s { _dlcMaxRecords = a })+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.)+-- | 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}); -data DescribeLaunchConfigurationsResponse = DescribeLaunchConfigurationsResponse-    { _dlcrLaunchConfigurations :: List "member" LaunchConfiguration-    , _dlcrNextToken            :: Maybe Text-    } deriving (Eq, Read, Show)+-- | The maximum number of items to return with this call. The default is+-- 100.+dlcMaxRecords :: Lens' DescribeLaunchConfigurations (Maybe Int)+dlcMaxRecords = lens _dlcMaxRecords (\ s a -> s{_dlcMaxRecords = a}); --- | 'DescribeLaunchConfigurationsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dlcrLaunchConfigurations' @::@ ['LaunchConfiguration']------ * 'dlcrNextToken' @::@ 'Maybe' 'Text'----describeLaunchConfigurationsResponse :: DescribeLaunchConfigurationsResponse-describeLaunchConfigurationsResponse = DescribeLaunchConfigurationsResponse-    { _dlcrLaunchConfigurations = mempty-    , _dlcrNextToken            = Nothing-    }+instance AWSPager DescribeLaunchConfigurations where+        page rq rs+          | stop (rs ^. dlcrsNextToken) = Nothing+          | stop (rs ^. dlcrsLaunchConfigurations) = Nothing+          | otherwise =+            Just $ rq & dlcNextToken .~ rs ^. dlcrsNextToken --- | The launch configurations.-dlcrLaunchConfigurations :: Lens' DescribeLaunchConfigurationsResponse [LaunchConfiguration]-dlcrLaunchConfigurations =-    lens _dlcrLaunchConfigurations-        (\s a -> s { _dlcrLaunchConfigurations = a })-            . _List+instance AWSRequest DescribeLaunchConfigurations+         where+        type Sv DescribeLaunchConfigurations = AutoScaling+        type Rs DescribeLaunchConfigurations =+             DescribeLaunchConfigurationsResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeLaunchConfigurationsResult"+              (\ s h x ->+                 DescribeLaunchConfigurationsResponse' <$>+                   (x .@? "NextToken") <*> (pure (fromEnum s)) <*>+                     (x .@? "LaunchConfigurations" .!@ mempty >>=+                        parseXMLList "member")) --- | The token to use when requesting the next set of items. If there are no--- additional items to return, the string is empty.-dlcrNextToken :: Lens' DescribeLaunchConfigurationsResponse (Maybe Text)-dlcrNextToken = lens _dlcrNextToken (\s a -> s { _dlcrNextToken = a })+instance ToHeaders DescribeLaunchConfigurations where+        toHeaders = const mempty  instance ToPath DescribeLaunchConfigurations where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeLaunchConfigurations where-    toQuery DescribeLaunchConfigurations{..} = mconcat-        [ "LaunchConfigurationNames" =? _dlcLaunchConfigurationNames-        , "MaxRecords"               =? _dlcMaxRecords-        , "NextToken"                =? _dlcNextToken-        ]+        toQuery DescribeLaunchConfigurations'{..}+          = mconcat+              ["Action" =:+                 ("DescribeLaunchConfigurations" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "LaunchConfigurationNames" =:+                 toQuery+                   (toQueryList "member" <$>+                      _dlcLaunchConfigurationNames),+               "NextToken" =: _dlcNextToken,+               "MaxRecords" =: _dlcMaxRecords] -instance ToHeaders DescribeLaunchConfigurations+-- | /See:/ 'describeLaunchConfigurationsResponse' smart constructor.+data DescribeLaunchConfigurationsResponse = DescribeLaunchConfigurationsResponse'+    { _dlcrsNextToken            :: !(Maybe Text)+    , _dlcrsStatus               :: !Int+    , _dlcrsLaunchConfigurations :: ![LaunchConfiguration]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeLaunchConfigurations where-    type Sv DescribeLaunchConfigurations = AutoScaling-    type Rs DescribeLaunchConfigurations = DescribeLaunchConfigurationsResponse+-- | Creates a value of 'DescribeLaunchConfigurationsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlcrsNextToken'+--+-- * 'dlcrsStatus'+--+-- * 'dlcrsLaunchConfigurations'+describeLaunchConfigurationsResponse+    :: Int -- ^ 'dlcrsStatus'+    -> DescribeLaunchConfigurationsResponse+describeLaunchConfigurationsResponse pStatus_ =+    DescribeLaunchConfigurationsResponse'+    { _dlcrsNextToken = Nothing+    , _dlcrsStatus = pStatus_+    , _dlcrsLaunchConfigurations = mempty+    } -    request  = post "DescribeLaunchConfigurations"-    response = xmlResponse+-- | 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}); -instance FromXML DescribeLaunchConfigurationsResponse where-    parseXML = withElement "DescribeLaunchConfigurationsResult" $ \x -> DescribeLaunchConfigurationsResponse-        <$> x .@? "LaunchConfigurations" .!@ mempty-        <*> x .@? "NextToken"+-- | The response status code.+dlcrsStatus :: Lens' DescribeLaunchConfigurationsResponse Int+dlcrsStatus = lens _dlcrsStatus (\ s a -> s{_dlcrsStatus = a}); -instance AWSPager DescribeLaunchConfigurations where-    page rq rs-        | stop (rs ^. dlcrNextToken) = Nothing-        | otherwise = (\x -> rq & dlcNextToken ?~ x)-            <$> (rs ^. dlcrNextToken)+-- | The launch configurations.+dlcrsLaunchConfigurations :: Lens' DescribeLaunchConfigurationsResponse [LaunchConfiguration]+dlcrsLaunchConfigurations = lens _dlcrsLaunchConfigurations (\ s a -> s{_dlcrsLaunchConfigurations = a}) . _Coerce;

@@ -1,105 +1,116 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DescribeLifecycleHookTypes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the available types of lifecycle hooks.+-- Describes the available types of lifecycle hooks. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeLifecycleHookTypes.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeLifecycleHookTypes.html AWS API Reference> for DescribeLifecycleHookTypes. module Network.AWS.AutoScaling.DescribeLifecycleHookTypes     (-    -- * Request-      DescribeLifecycleHookTypes-    -- ** Request constructor-    , describeLifecycleHookTypes+    -- * Creating a Request+      describeLifecycleHookTypes+    , DescribeLifecycleHookTypes -    -- * Response-    , DescribeLifecycleHookTypesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeLifecycleHookTypesResponse-    -- ** Response lenses-    , dlhtrLifecycleHookTypes+    , DescribeLifecycleHookTypesResponse+    -- * Response Lenses+    , dlhtrsLifecycleHookTypes+    , dlhtrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeLifecycleHookTypes = DescribeLifecycleHookTypes-    deriving (Eq, Ord, Read, Show, Generic)+-- | /See:/ 'describeLifecycleHookTypes' smart constructor.+data DescribeLifecycleHookTypes =+    DescribeLifecycleHookTypes'+    deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeLifecycleHookTypes' constructor.-describeLifecycleHookTypes :: DescribeLifecycleHookTypes-describeLifecycleHookTypes = DescribeLifecycleHookTypes+-- | Creates a value of 'DescribeLifecycleHookTypes' with the minimum fields required to make a request.+--+describeLifecycleHookTypes+    :: DescribeLifecycleHookTypes+describeLifecycleHookTypes = DescribeLifecycleHookTypes' -newtype DescribeLifecycleHookTypesResponse = DescribeLifecycleHookTypesResponse-    { _dlhtrLifecycleHookTypes :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)+instance AWSRequest DescribeLifecycleHookTypes where+        type Sv DescribeLifecycleHookTypes = AutoScaling+        type Rs DescribeLifecycleHookTypes =+             DescribeLifecycleHookTypesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeLifecycleHookTypesResult"+              (\ s h x ->+                 DescribeLifecycleHookTypesResponse' <$>+                   (x .@? "LifecycleHookTypes" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList DescribeLifecycleHookTypesResponse where-    type Item DescribeLifecycleHookTypesResponse = Text+instance ToHeaders DescribeLifecycleHookTypes where+        toHeaders = const mempty -    fromList = DescribeLifecycleHookTypesResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dlhtrLifecycleHookTypes+instance ToPath DescribeLifecycleHookTypes where+        toPath = const "/" --- | 'DescribeLifecycleHookTypesResponse' constructor.+instance ToQuery DescribeLifecycleHookTypes where+        toQuery+          = const+              (mconcat+                 ["Action" =:+                    ("DescribeLifecycleHookTypes" :: ByteString),+                  "Version" =: ("2011-01-01" :: ByteString)])++-- | /See:/ 'describeLifecycleHookTypesResponse' smart constructor.+data DescribeLifecycleHookTypesResponse = DescribeLifecycleHookTypesResponse'+    { _dlhtrsLifecycleHookTypes :: !(Maybe [Text])+    , _dlhtrsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeLifecycleHookTypesResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlhtrLifecycleHookTypes' @::@ ['Text']+-- * 'dlhtrsLifecycleHookTypes' ---describeLifecycleHookTypesResponse :: DescribeLifecycleHookTypesResponse-describeLifecycleHookTypesResponse = DescribeLifecycleHookTypesResponse-    { _dlhtrLifecycleHookTypes = mempty+-- * 'dlhtrsStatus'+describeLifecycleHookTypesResponse+    :: Int -- ^ 'dlhtrsStatus'+    -> DescribeLifecycleHookTypesResponse+describeLifecycleHookTypesResponse pStatus_ =+    DescribeLifecycleHookTypesResponse'+    { _dlhtrsLifecycleHookTypes = Nothing+    , _dlhtrsStatus = pStatus_     }  -- | One or more of the following notification types: ----- 'autoscaling:EC2_INSTANCE_LAUNCHING'------ 'autoscaling:EC2_INSTANCE_TERMINATING'+-- -   'autoscaling:EC2_INSTANCE_LAUNCHING' --+-- -   'autoscaling:EC2_INSTANCE_TERMINATING' ---dlhtrLifecycleHookTypes :: Lens' DescribeLifecycleHookTypesResponse [Text]-dlhtrLifecycleHookTypes =-    lens _dlhtrLifecycleHookTypes (\s a -> s { _dlhtrLifecycleHookTypes = a })-        . _List--instance ToPath DescribeLifecycleHookTypes where-    toPath = const "/"--instance ToQuery DescribeLifecycleHookTypes where-    toQuery = const mempty--instance ToHeaders DescribeLifecycleHookTypes--instance AWSRequest DescribeLifecycleHookTypes where-    type Sv DescribeLifecycleHookTypes = AutoScaling-    type Rs DescribeLifecycleHookTypes = DescribeLifecycleHookTypesResponse--    request  = post "DescribeLifecycleHookTypes"-    response = xmlResponse+dlhtrsLifecycleHookTypes :: Lens' DescribeLifecycleHookTypesResponse [Text]+dlhtrsLifecycleHookTypes = lens _dlhtrsLifecycleHookTypes (\ s a -> s{_dlhtrsLifecycleHookTypes = a}) . _Default . _Coerce; -instance FromXML DescribeLifecycleHookTypesResponse where-    parseXML = withElement "DescribeLifecycleHookTypesResult" $ \x -> DescribeLifecycleHookTypesResponse-        <$> x .@? "LifecycleHookTypes" .!@ mempty+-- | The response status code.+dlhtrsStatus :: Lens' DescribeLifecycleHookTypesResponse Int+dlhtrsStatus = lens _dlhtrsStatus (\ s a -> s{_dlhtrsStatus = a});

@@ -1,129 +1,135 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DescribeLifecycleHooks--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Describes the lifecycle hooks for the specified Auto Scaling group.+-- Describes the lifecycle hooks for the specified Auto Scaling group. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeLifecycleHooks.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeLifecycleHooks.html AWS API Reference> for DescribeLifecycleHooks. module Network.AWS.AutoScaling.DescribeLifecycleHooks     (-    -- * Request-      DescribeLifecycleHooks-    -- ** Request constructor-    , describeLifecycleHooks-    -- ** Request lenses-    , dlhAutoScalingGroupName+    -- * Creating a Request+      describeLifecycleHooks+    , DescribeLifecycleHooks+    -- * Request Lenses     , dlhLifecycleHookNames+    , dlhAutoScalingGroupName -    -- * Response-    , DescribeLifecycleHooksResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeLifecycleHooksResponse-    -- ** Response lenses-    , dlhrLifecycleHooks+    , DescribeLifecycleHooksResponse+    -- * Response Lenses+    , dlhrsLifecycleHooks+    , dlhrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeLifecycleHooks = DescribeLifecycleHooks-    { _dlhAutoScalingGroupName :: Text-    , _dlhLifecycleHookNames   :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'describeLifecycleHooks' smart constructor.+data DescribeLifecycleHooks = DescribeLifecycleHooks'+    { _dlhLifecycleHookNames   :: !(Maybe [Text])+    , _dlhAutoScalingGroupName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeLifecycleHooks' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeLifecycleHooks' with the minimum fields required to make a request. ----- * 'dlhAutoScalingGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlhLifecycleHookNames' @::@ ['Text']+-- * 'dlhLifecycleHookNames' ---describeLifecycleHooks :: Text -- ^ 'dlhAutoScalingGroupName'-                       -> DescribeLifecycleHooks-describeLifecycleHooks p1 = DescribeLifecycleHooks-    { _dlhAutoScalingGroupName = p1-    , _dlhLifecycleHookNames   = mempty+-- * 'dlhAutoScalingGroupName'+describeLifecycleHooks+    :: Text -- ^ 'dlhAutoScalingGroupName'+    -> DescribeLifecycleHooks+describeLifecycleHooks pAutoScalingGroupName_ =+    DescribeLifecycleHooks'+    { _dlhLifecycleHookNames = Nothing+    , _dlhAutoScalingGroupName = pAutoScalingGroupName_     } +-- | The names of one or more lifecycle hooks.+dlhLifecycleHookNames :: Lens' DescribeLifecycleHooks [Text]+dlhLifecycleHookNames = lens _dlhLifecycleHookNames (\ s a -> s{_dlhLifecycleHookNames = a}) . _Default . _Coerce;+ -- | The name of the group. dlhAutoScalingGroupName :: Lens' DescribeLifecycleHooks Text-dlhAutoScalingGroupName =-    lens _dlhAutoScalingGroupName (\s a -> s { _dlhAutoScalingGroupName = a })+dlhAutoScalingGroupName = lens _dlhAutoScalingGroupName (\ s a -> s{_dlhAutoScalingGroupName = a}); --- | The names of one or more lifecycle hooks.-dlhLifecycleHookNames :: Lens' DescribeLifecycleHooks [Text]-dlhLifecycleHookNames =-    lens _dlhLifecycleHookNames (\s a -> s { _dlhLifecycleHookNames = a })-        . _List+instance AWSRequest DescribeLifecycleHooks where+        type Sv DescribeLifecycleHooks = AutoScaling+        type Rs DescribeLifecycleHooks =+             DescribeLifecycleHooksResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeLifecycleHooksResult"+              (\ s h x ->+                 DescribeLifecycleHooksResponse' <$>+                   (x .@? "LifecycleHooks" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -newtype DescribeLifecycleHooksResponse = DescribeLifecycleHooksResponse-    { _dlhrLifecycleHooks :: List "member" LifecycleHook-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance ToHeaders DescribeLifecycleHooks where+        toHeaders = const mempty -instance GHC.Exts.IsList DescribeLifecycleHooksResponse where-    type Item DescribeLifecycleHooksResponse = LifecycleHook+instance ToPath DescribeLifecycleHooks where+        toPath = const "/" -    fromList = DescribeLifecycleHooksResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dlhrLifecycleHooks+instance ToQuery DescribeLifecycleHooks where+        toQuery DescribeLifecycleHooks'{..}+          = mconcat+              ["Action" =:+                 ("DescribeLifecycleHooks" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "LifecycleHookNames" =:+                 toQuery+                   (toQueryList "member" <$> _dlhLifecycleHookNames),+               "AutoScalingGroupName" =: _dlhAutoScalingGroupName] --- | 'DescribeLifecycleHooksResponse' constructor.+-- | /See:/ 'describeLifecycleHooksResponse' smart constructor.+data DescribeLifecycleHooksResponse = DescribeLifecycleHooksResponse'+    { _dlhrsLifecycleHooks :: !(Maybe [LifecycleHook])+    , _dlhrsStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeLifecycleHooksResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dlhrLifecycleHooks' @::@ ['LifecycleHook']+-- * 'dlhrsLifecycleHooks' ---describeLifecycleHooksResponse :: DescribeLifecycleHooksResponse-describeLifecycleHooksResponse = DescribeLifecycleHooksResponse-    { _dlhrLifecycleHooks = mempty+-- * 'dlhrsStatus'+describeLifecycleHooksResponse+    :: Int -- ^ 'dlhrsStatus'+    -> DescribeLifecycleHooksResponse+describeLifecycleHooksResponse pStatus_ =+    DescribeLifecycleHooksResponse'+    { _dlhrsLifecycleHooks = Nothing+    , _dlhrsStatus = pStatus_     }  -- | The lifecycle hooks for the specified group.-dlhrLifecycleHooks :: Lens' DescribeLifecycleHooksResponse [LifecycleHook]-dlhrLifecycleHooks =-    lens _dlhrLifecycleHooks (\s a -> s { _dlhrLifecycleHooks = a })-        . _List--instance ToPath DescribeLifecycleHooks where-    toPath = const "/"--instance ToQuery DescribeLifecycleHooks where-    toQuery DescribeLifecycleHooks{..} = mconcat-        [ "AutoScalingGroupName" =? _dlhAutoScalingGroupName-        , "LifecycleHookNames"   =? _dlhLifecycleHookNames-        ]--instance ToHeaders DescribeLifecycleHooks--instance AWSRequest DescribeLifecycleHooks where-    type Sv DescribeLifecycleHooks = AutoScaling-    type Rs DescribeLifecycleHooks = DescribeLifecycleHooksResponse--    request  = post "DescribeLifecycleHooks"-    response = xmlResponse+dlhrsLifecycleHooks :: Lens' DescribeLifecycleHooksResponse [LifecycleHook]+dlhrsLifecycleHooks = lens _dlhrsLifecycleHooks (\ s a -> s{_dlhrsLifecycleHooks = a}) . _Default . _Coerce; -instance FromXML DescribeLifecycleHooksResponse where-    parseXML = withElement "DescribeLifecycleHooksResult" $ \x -> DescribeLifecycleHooksResponse-        <$> x .@? "LifecycleHooks" .!@ mempty+-- | The response status code.+dlhrsStatus :: Lens' DescribeLifecycleHooksResponse Int+dlhrsStatus = lens _dlhrsStatus (\ s a -> s{_dlhrsStatus = a});

@@ -0,0 +1,154 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AutoScaling.DescribeLoadBalancers+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the load balancers for the specified Auto Scaling group.+--+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeLoadBalancers.html AWS API Reference> for DescribeLoadBalancers.+module Network.AWS.AutoScaling.DescribeLoadBalancers+    (+    -- * Creating a Request+      describeLoadBalancers+    , DescribeLoadBalancers+    -- * Request Lenses+    , dlbNextToken+    , dlbMaxRecords+    , dlbAutoScalingGroupName++    -- * Destructuring the Response+    , describeLoadBalancersResponse+    , DescribeLoadBalancersResponse+    -- * Response Lenses+    , dlbrsLoadBalancers+    , dlbrsNextToken+    , dlbrsStatus+    ) where++import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeLoadBalancers' smart constructor.+data DescribeLoadBalancers = DescribeLoadBalancers'+    { _dlbNextToken            :: !(Maybe Text)+    , _dlbMaxRecords           :: !(Maybe Int)+    , _dlbAutoScalingGroupName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeLoadBalancers' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbNextToken'+--+-- * 'dlbMaxRecords'+--+-- * 'dlbAutoScalingGroupName'+describeLoadBalancers+    :: Text -- ^ 'dlbAutoScalingGroupName'+    -> DescribeLoadBalancers+describeLoadBalancers pAutoScalingGroupName_ =+    DescribeLoadBalancers'+    { _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});++-- | The maximum number of items to return with this call.+dlbMaxRecords :: Lens' DescribeLoadBalancers (Maybe Int)+dlbMaxRecords = lens _dlbMaxRecords (\ s a -> s{_dlbMaxRecords = a});++-- | The name of the group.+dlbAutoScalingGroupName :: Lens' DescribeLoadBalancers Text+dlbAutoScalingGroupName = lens _dlbAutoScalingGroupName (\ s a -> s{_dlbAutoScalingGroupName = a});++instance AWSRequest DescribeLoadBalancers where+        type Sv DescribeLoadBalancers = AutoScaling+        type Rs DescribeLoadBalancers =+             DescribeLoadBalancersResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeLoadBalancersResult"+              (\ s h x ->+                 DescribeLoadBalancersResponse' <$>+                   (x .@? "LoadBalancers" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "NextToken")+                     <*> (pure (fromEnum s)))++instance ToHeaders DescribeLoadBalancers where+        toHeaders = const mempty++instance ToPath DescribeLoadBalancers where+        toPath = const "/"++instance ToQuery DescribeLoadBalancers where+        toQuery DescribeLoadBalancers'{..}+          = mconcat+              ["Action" =: ("DescribeLoadBalancers" :: ByteString),+               "Version" =: ("2011-01-01" :: ByteString),+               "NextToken" =: _dlbNextToken,+               "MaxRecords" =: _dlbMaxRecords,+               "AutoScalingGroupName" =: _dlbAutoScalingGroupName]++-- | /See:/ 'describeLoadBalancersResponse' smart constructor.+data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse'+    { _dlbrsLoadBalancers :: !(Maybe [LoadBalancerState])+    , _dlbrsNextToken     :: !(Maybe Text)+    , _dlbrsStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeLoadBalancersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbrsLoadBalancers'+--+-- * 'dlbrsNextToken'+--+-- * 'dlbrsStatus'+describeLoadBalancersResponse+    :: Int -- ^ 'dlbrsStatus'+    -> DescribeLoadBalancersResponse+describeLoadBalancersResponse pStatus_ =+    DescribeLoadBalancersResponse'+    { _dlbrsLoadBalancers = Nothing+    , _dlbrsNextToken = Nothing+    , _dlbrsStatus = pStatus_+    }++-- | The load balancers.+dlbrsLoadBalancers :: Lens' DescribeLoadBalancersResponse [LoadBalancerState]+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});++-- | The response status code.+dlbrsStatus :: Lens' DescribeLoadBalancersResponse Int+dlbrsStatus = lens _dlbrsStatus (\ s a -> s{_dlbrsStatus = a});

@@ -1,130 +1,129 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.AutoScaling.DescribeMetricCollectionTypes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of metrics and a corresponding list of granularities for each--- metric.------ The 'GroupStandbyInstances' metric is not returned by default. You must--- explicitly request it when calling 'EnableMetricsCollection'.---+-- Describes the available CloudWatch metrics for Auto Scaling. --+-- Note that the 'GroupStandbyInstances' metric is not returned by default.+-- You must explicitly request this metric when calling+-- EnableMetricsCollection. ----- <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeMetricCollectionTypes.html>+-- /See:/ <http://docs.aws.amazon.com/AutoScaling/latest/APIReference/API_DescribeMetricCollectionTypes.html AWS API Reference> for DescribeMetricCollectionTypes. module Network.AWS.AutoScaling.DescribeMetricCollectionTypes     (-    -- * Request-      DescribeMetricCollectionTypes-    -- ** Request constructor-    , describeMetricCollectionTypes+    -- * Creating a Request+      describeMetricCollectionTypes+    , DescribeMetricCollectionTypes -    -- * Response-    , DescribeMetricCollectionTypesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeMetricCollectionTypesResponse-    -- ** Response lenses-    , dmctrGranularities-    , dmctrMetrics+    , DescribeMetricCollectionTypesResponse+    -- * Response Lenses+    , dmctrsMetrics+    , dmctrsGranularities+    , dmctrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.AutoScaling.Types-import qualified GHC.Exts--data DescribeMetricCollectionTypes = DescribeMetricCollectionTypes-    deriving (Eq, Ord, Read, Show, Generic)---- | 'DescribeMetricCollectionTypes' constructor.-describeMetricCollectionTypes :: DescribeMetricCollectionTypes-describeMetricCollectionTypes = DescribeMetricCollectionTypes+import           Network.AWS.AutoScaling.Types+import           Network.AWS.AutoScaling.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -data DescribeMetricCollectionTypesResponse = DescribeMetricCollectionTypesResponse-    { _dmctrGranularities :: List "member" MetricGranularityType-    , _dmctrMetrics       :: List "member" MetricCollectionType-    } deriving (Eq, Read, Show)+-- | /See:/ 'describeMetricCollectionTypes' smart constructor.+data DescribeMetricCollectionTypes =+    DescribeMetricCollectionTypes'+    deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeMetricCollectionTypesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dmctrGranularities' @::@ ['MetricGranularityType']------ * 'dmctrMetrics' @::@ ['MetricCollectionType']+-- | Creates a value of 'DescribeMetricCollectionTypes' with the minimum fields required to make a request. ---describeMetricCollectionTypesResponse :: DescribeMetricCollectionTypesResponse-describeMetricCollectionTypesResponse = DescribeMetricCollectionTypesResponse-    { _dmctrMetrics       = mempty-    , _dmctrGranularities = mempty-    }+describeMetricCollectionTypes+    :: DescribeMetricCollectionTypes+describeMetricCollectionTypes = DescribeMetricCollectionTypes' --- | The granularities for the listed metrics.-dmctrGranularities :: Lens' DescribeMetricCollectionTypesResponse [MetricGranularityType]-dmctrGranularities =-    lens _dmctrGranularities (\s a -> s { _dmctrGranularities = a })-        . _List+instance AWSRequest DescribeMetricCollectionTypes+         where+        type Sv DescribeMetricCollectionTypes = AutoScaling+        type Rs DescribeMetricCollectionTypes =+             DescribeMetricCollectionTypesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeMetricCollectionTypesResult"+              (\ s h x ->+                 DescribeMetricCollectionTypesResponse' <$>+                   (x .@? "Metrics" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*>+                     (x .@? "Granularities" .!@ mempty >>=+                        may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) --- | One or more of the following metrics:------ GroupMinSize------ GroupMaxSize------ GroupDesiredCapacity------ GroupInServiceInstances------ GroupPendingInstances------ GroupStandbyInstances------ GroupTerminatingInstances------ GroupTotalInstances------ The 'GroupStandbyInstances' metric is not returned by default. You must--- explicitly request it when calling 'EnableMetricsCollection'.-------dmctrMetrics :: Lens' DescribeMetricCollectionTypesResponse [MetricCollectionType]-dmctrMetrics = lens _dmctrMetrics (\s a -> s { _dmctrMetrics = a }) . _List+instance ToHeaders DescribeMetricCollectionTypes+         where+        toHeaders = const mempty  instance ToPath DescribeMetricCollectionTypes where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeMetricCollectionTypes where-    toQuery = const mempty+        toQuery+          = const+              (mconcat+                 ["Action" =:+                    ("DescribeMetricCollectionTypes" :: ByteString),+                  "Version" =: ("2011-01-01" :: ByteString)]) -instance ToHeaders DescribeMetricCollectionTypes+-- | /See:/ 'describeMetricCollectionTypesResponse' smart constructor.+data DescribeMetricCollectionTypesResponse = DescribeMetricCollectionTypesResponse'+    { _dmctrsMetrics       :: !(Maybe [MetricCollectionType])+    , _dmctrsGranularities :: !(Maybe [MetricGranularityType])+    , _dmctrsStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeMetricCollectionTypes where-    type Sv DescribeMetricCollectionTypes = AutoScaling-    type Rs DescribeMetricCollectionTypes = DescribeMetricCollectionTypesResponse+-- | Creates a value of 'DescribeMetricCollectionTypesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dmctrsMetrics'+--+-- * 'dmctrsGranularities'+--+-- * 'dmctrsStatus'+describeMetricCollectionTypesResponse+    :: Int -- ^ 'dmctrsStatus'+    -> DescribeMetricCollectionTypesResponse+describeMetricCollectionTypesResponse pStatus_ =+    DescribeMetricCollectionTypesResponse'+    { _dmctrsMetrics = Nothing+    , _dmctrsGranularities = Nothing+    , _dmctrsStatus = pStatus_+    } -    request  = post "DescribeMetricCollectionTypes"-    response = xmlResponse+-- | One or more metrics.+dmctrsMetrics :: Lens' DescribeMetricCollectionTypesResponse [MetricCollectionType]+dmctrsMetrics = lens _dmctrsMetrics (\ s a -> s{_dmctrsMetrics = a}) . _Default . _Coerce; -instance FromXML DescribeMetricCollectionTypesResponse where-    parseXML = withElement "DescribeMetricCollectionTypesResult" $ \x -> DescribeMetricCollectionTypesResponse-        <$> x .@? "Granularities" .!@ mempty-        <*> x .@? "Metrics" .!@ mempty+-- | The granularities for the metrics.+dmctrsGranularities :: Lens' DescribeMetricCollectionTypesResponse [MetricGranularityType]+dmctrsGranularities = lens _dmctrsGranularities (\ s a -> s{_dmctrsGranularities = a}) . _Default . _Coerce;++-- | The response status code.+dmctrsStatus :: Lens' DescribeMetricCollectionTypesResponse Int+dmctrsStatus = lens _dmctrsStatus (\ s a -> s{_dmctrsStatus = a});