amazonka-autoscaling-plans 1.6.1 → 2.0

raw patch · 62 files changed

+6503/−2669 lines, 62 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-autoscaling-plans.cabal +103/−79
• fixture/CreateScalingPlan.yaml +2/−2
• fixture/DeleteScalingPlan.yaml +2/−2
• fixture/DescribeScalingPlanResources.yaml +2/−2
• fixture/DescribeScalingPlans.yaml +2/−2
• fixture/GetScalingPlanResourceForecastData.yaml +10/−0
• fixture/GetScalingPlanResourceForecastDataResponse.proto +0/−0
• fixture/UpdateScalingPlan.yaml +2/−2
• gen/Amazonka/AutoScalingPlans.hs +237/−0
• gen/Amazonka/AutoScalingPlans/CreateScalingPlan.hs +244/−0
• gen/Amazonka/AutoScalingPlans/DeleteScalingPlan.hs +190/−0
• gen/Amazonka/AutoScalingPlans/DescribeScalingPlanResources.hs +274/−0
• gen/Amazonka/AutoScalingPlans/DescribeScalingPlans.hs +287/−0
• gen/Amazonka/AutoScalingPlans/GetScalingPlanResourceForecastData.hs +400/−0
• gen/Amazonka/AutoScalingPlans/Lens.hs +177/−0
• gen/Amazonka/AutoScalingPlans/Types.hs +323/−0
• gen/Amazonka/AutoScalingPlans/Types/ApplicationSource.hs +96/−0
• gen/Amazonka/AutoScalingPlans/Types/CustomizedLoadMetricSpecification.hs +203/−0
• gen/Amazonka/AutoScalingPlans/Types/CustomizedScalingMetricSpecification.hs +190/−0
• gen/Amazonka/AutoScalingPlans/Types/Datapoint.hs +85/−0
• gen/Amazonka/AutoScalingPlans/Types/ForecastDataType.hs +81/−0
• gen/Amazonka/AutoScalingPlans/Types/LoadMetricType.hs +81/−0
• gen/Amazonka/AutoScalingPlans/Types/MetricDimension.hs +93/−0
• gen/Amazonka/AutoScalingPlans/Types/MetricStatistic.hs +86/−0
• gen/Amazonka/AutoScalingPlans/Types/PolicyType.hs +66/−0
• gen/Amazonka/AutoScalingPlans/Types/PredefinedLoadMetricSpecification.hs +194/−0
• gen/Amazonka/AutoScalingPlans/Types/PredefinedScalingMetricSpecification.hs +195/−0
• gen/Amazonka/AutoScalingPlans/Types/PredictiveScalingMaxCapacityBehavior.hs +76/−0
• gen/Amazonka/AutoScalingPlans/Types/PredictiveScalingMode.hs +71/−0
• gen/Amazonka/AutoScalingPlans/Types/ScalableDimension.hs +101/−0
• gen/Amazonka/AutoScalingPlans/Types/ScalingInstruction.hs +661/−0
• gen/Amazonka/AutoScalingPlans/Types/ScalingMetricType.hs +126/−0
• gen/Amazonka/AutoScalingPlans/Types/ScalingPlan.hs +228/−0
• gen/Amazonka/AutoScalingPlans/Types/ScalingPlanResource.hs +359/−0
• gen/Amazonka/AutoScalingPlans/Types/ScalingPlanStatusCode.hs +101/−0
• gen/Amazonka/AutoScalingPlans/Types/ScalingPolicy.hs +106/−0
• gen/Amazonka/AutoScalingPlans/Types/ScalingPolicyUpdateBehavior.hs +71/−0
• gen/Amazonka/AutoScalingPlans/Types/ScalingStatusCode.hs +76/−0
• gen/Amazonka/AutoScalingPlans/Types/ServiceNamespace.hs +86/−0
• gen/Amazonka/AutoScalingPlans/Types/TagFilter.hs +92/−0
• gen/Amazonka/AutoScalingPlans/Types/TargetTrackingConfiguration.hs +261/−0
• gen/Amazonka/AutoScalingPlans/UpdateScalingPlan.hs +239/−0
• gen/Amazonka/AutoScalingPlans/Waiters.hs +24/−0
• gen/Network/AWS/AutoScalingPlans.hs +0/−212
• gen/Network/AWS/AutoScalingPlans/CreateScalingPlan.hs +0/−163
• gen/Network/AWS/AutoScalingPlans/DeleteScalingPlan.hs +0/−138
• gen/Network/AWS/AutoScalingPlans/DescribeScalingPlanResources.hs +0/−184
• gen/Network/AWS/AutoScalingPlans/DescribeScalingPlans.hs +0/−189
• gen/Network/AWS/AutoScalingPlans/Types.hs +0/−223
• gen/Network/AWS/AutoScalingPlans/Types/Product.hs +0/−808
• gen/Network/AWS/AutoScalingPlans/Types/Sum.hs +0/−308
• gen/Network/AWS/AutoScalingPlans/UpdateScalingPlan.hs +0/−161
• gen/Network/AWS/AutoScalingPlans/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/AutoScalingPlans.hs +0/−20
• test/Test/AWS/AutoScalingPlans/Internal.hs +0/−9
• test/Test/AWS/Gen/AutoScalingPlans.hs +0/−129
• test/Test/Amazonka/AutoScalingPlans.hs +20/−0
• test/Test/Amazonka/AutoScalingPlans/Internal.hs +8/−0
• test/Test/Amazonka/Gen/AutoScalingPlans.hs +158/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2018-01-06@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ 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). -See [Network.AWS.AutoScalingPlans](http://hackage.haskell.org/package/amazonka-autoscaling-plans/docs/Network-AWS-AutoScalingPlans.html)+See [Amazonka.AutoScalingPlans](http://hackage.haskell.org/package/amazonka-autoscaling-plans/docs/Amazonka-AutoScalingPlans.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,90 +1,114 @@-name:                  amazonka-autoscaling-plans-version:               1.6.1-synopsis:              Amazon Auto Scaling Plans SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-autoscaling-plans+version:            2.0+synopsis:           Amazon Auto Scaling Plans SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    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, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth 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.AutoScalingPlans" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2018-01-06@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  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, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.AutoScalingPlans.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.AutoScalingPlans" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-autoscaling-plans+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-autoscaling-plans  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    exposed-modules:-          Network.AWS.AutoScalingPlans-        , Network.AWS.AutoScalingPlans.CreateScalingPlan-        , Network.AWS.AutoScalingPlans.DeleteScalingPlan-        , Network.AWS.AutoScalingPlans.DescribeScalingPlanResources-        , Network.AWS.AutoScalingPlans.DescribeScalingPlans-        , Network.AWS.AutoScalingPlans.Types-        , Network.AWS.AutoScalingPlans.UpdateScalingPlan-        , Network.AWS.AutoScalingPlans.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.AutoScalingPlans.Types.Product-        , Network.AWS.AutoScalingPlans.Types.Sum+  exposed-modules:+    Amazonka.AutoScalingPlans+    Amazonka.AutoScalingPlans.CreateScalingPlan+    Amazonka.AutoScalingPlans.DeleteScalingPlan+    Amazonka.AutoScalingPlans.DescribeScalingPlanResources+    Amazonka.AutoScalingPlans.DescribeScalingPlans+    Amazonka.AutoScalingPlans.GetScalingPlanResourceForecastData+    Amazonka.AutoScalingPlans.Lens+    Amazonka.AutoScalingPlans.Types+    Amazonka.AutoScalingPlans.Types.ApplicationSource+    Amazonka.AutoScalingPlans.Types.CustomizedLoadMetricSpecification+    Amazonka.AutoScalingPlans.Types.CustomizedScalingMetricSpecification+    Amazonka.AutoScalingPlans.Types.Datapoint+    Amazonka.AutoScalingPlans.Types.ForecastDataType+    Amazonka.AutoScalingPlans.Types.LoadMetricType+    Amazonka.AutoScalingPlans.Types.MetricDimension+    Amazonka.AutoScalingPlans.Types.MetricStatistic+    Amazonka.AutoScalingPlans.Types.PolicyType+    Amazonka.AutoScalingPlans.Types.PredefinedLoadMetricSpecification+    Amazonka.AutoScalingPlans.Types.PredefinedScalingMetricSpecification+    Amazonka.AutoScalingPlans.Types.PredictiveScalingMaxCapacityBehavior+    Amazonka.AutoScalingPlans.Types.PredictiveScalingMode+    Amazonka.AutoScalingPlans.Types.ScalableDimension+    Amazonka.AutoScalingPlans.Types.ScalingInstruction+    Amazonka.AutoScalingPlans.Types.ScalingMetricType+    Amazonka.AutoScalingPlans.Types.ScalingPlan+    Amazonka.AutoScalingPlans.Types.ScalingPlanResource+    Amazonka.AutoScalingPlans.Types.ScalingPlanStatusCode+    Amazonka.AutoScalingPlans.Types.ScalingPolicy+    Amazonka.AutoScalingPlans.Types.ScalingPolicyUpdateBehavior+    Amazonka.AutoScalingPlans.Types.ScalingStatusCode+    Amazonka.AutoScalingPlans.Types.ServiceNamespace+    Amazonka.AutoScalingPlans.Types.TagFilter+    Amazonka.AutoScalingPlans.Types.TargetTrackingConfiguration+    Amazonka.AutoScalingPlans.UpdateScalingPlan+    Amazonka.AutoScalingPlans.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-autoscaling-plans-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.AutoScalingPlans-        , Test.AWS.Gen.AutoScalingPlans-        , Test.AWS.AutoScalingPlans.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.AutoScalingPlans+    Test.Amazonka.AutoScalingPlans.Internal+    Test.Amazonka.Gen.AutoScalingPlans -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-autoscaling-plans-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-autoscaling-plans+    , amazonka-core               >=2.0 && <2.1+    , amazonka-test               >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -1,8 +1,8 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  autoscaling.us-east-1.amazonaws.com+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling-plans/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  autoscaling-plans.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8   X-Amz-Content-SHA256:  abcdef   X-Amz-Date:            20091028T223200Z

@@ -1,8 +1,8 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  autoscaling.us-east-1.amazonaws.com+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling-plans/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  autoscaling-plans.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8   X-Amz-Content-SHA256:  abcdef   X-Amz-Date:            20091028T223200Z

@@ -1,8 +1,8 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  autoscaling.us-east-1.amazonaws.com+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling-plans/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  autoscaling-plans.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8   X-Amz-Content-SHA256:  abcdef   X-Amz-Date:            20091028T223200Z

@@ -1,8 +1,8 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  autoscaling.us-east-1.amazonaws.com+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling-plans/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  autoscaling-plans.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8   X-Amz-Content-SHA256:  abcdef   X-Amz-Date:            20091028T223200Z

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling-plans/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  autoscaling-plans.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -1,8 +1,8 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?-  Host:                  autoscaling.us-east-1.amazonaws.com+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/autoscaling-plans/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  autoscaling-plans.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8   X-Amz-Content-SHA256:  abcdef   X-Amz-Date:            20091028T223200Z

@@ -0,0 +1,237 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.AutoScalingPlans+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2018-01-06@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- AWS Auto Scaling+--+-- Use AWS Auto Scaling to create scaling plans for your applications to+-- automatically scale your scalable AWS resources.+--+-- __API Summary__+--+-- You can use the AWS Auto Scaling service API to accomplish the following+-- tasks:+--+-- -   Create and manage scaling plans+--+-- -   Define target tracking scaling policies to dynamically scale your+--     resources based on utilization+--+-- -   Scale Amazon EC2 Auto Scaling groups using predictive scaling and+--     dynamic scaling to scale your Amazon EC2 capacity faster+--+-- -   Set minimum and maximum capacity limits+--+-- -   Retrieve information on existing scaling plans+--+-- -   Access current forecast data and historical forecast data for up to+--     56 days previous+--+-- To learn more about AWS Auto Scaling, including information about+-- granting IAM users required permissions for AWS Auto Scaling actions,+-- see the+-- <https://docs.aws.amazon.com/autoscaling/plans/userguide/what-is-aws-auto-scaling.html AWS Auto Scaling User Guide>.+module Amazonka.AutoScalingPlans+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ConcurrentUpdateException+    _ConcurrentUpdateException,++    -- ** InternalServiceException+    _InternalServiceException,++    -- ** InvalidNextTokenException+    _InvalidNextTokenException,++    -- ** LimitExceededException+    _LimitExceededException,++    -- ** ObjectNotFoundException+    _ObjectNotFoundException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateScalingPlan+    CreateScalingPlan (CreateScalingPlan'),+    newCreateScalingPlan,+    CreateScalingPlanResponse (CreateScalingPlanResponse'),+    newCreateScalingPlanResponse,++    -- ** DeleteScalingPlan+    DeleteScalingPlan (DeleteScalingPlan'),+    newDeleteScalingPlan,+    DeleteScalingPlanResponse (DeleteScalingPlanResponse'),+    newDeleteScalingPlanResponse,++    -- ** DescribeScalingPlanResources (Paginated)+    DescribeScalingPlanResources (DescribeScalingPlanResources'),+    newDescribeScalingPlanResources,+    DescribeScalingPlanResourcesResponse (DescribeScalingPlanResourcesResponse'),+    newDescribeScalingPlanResourcesResponse,++    -- ** DescribeScalingPlans (Paginated)+    DescribeScalingPlans (DescribeScalingPlans'),+    newDescribeScalingPlans,+    DescribeScalingPlansResponse (DescribeScalingPlansResponse'),+    newDescribeScalingPlansResponse,++    -- ** GetScalingPlanResourceForecastData+    GetScalingPlanResourceForecastData (GetScalingPlanResourceForecastData'),+    newGetScalingPlanResourceForecastData,+    GetScalingPlanResourceForecastDataResponse (GetScalingPlanResourceForecastDataResponse'),+    newGetScalingPlanResourceForecastDataResponse,++    -- ** UpdateScalingPlan+    UpdateScalingPlan (UpdateScalingPlan'),+    newUpdateScalingPlan,+    UpdateScalingPlanResponse (UpdateScalingPlanResponse'),+    newUpdateScalingPlanResponse,++    -- * Types++    -- ** ForecastDataType+    ForecastDataType (..),++    -- ** LoadMetricType+    LoadMetricType (..),++    -- ** MetricStatistic+    MetricStatistic (..),++    -- ** PolicyType+    PolicyType (..),++    -- ** PredictiveScalingMaxCapacityBehavior+    PredictiveScalingMaxCapacityBehavior (..),++    -- ** PredictiveScalingMode+    PredictiveScalingMode (..),++    -- ** ScalableDimension+    ScalableDimension (..),++    -- ** ScalingMetricType+    ScalingMetricType (..),++    -- ** ScalingPlanStatusCode+    ScalingPlanStatusCode (..),++    -- ** ScalingPolicyUpdateBehavior+    ScalingPolicyUpdateBehavior (..),++    -- ** ScalingStatusCode+    ScalingStatusCode (..),++    -- ** ServiceNamespace+    ServiceNamespace (..),++    -- ** ApplicationSource+    ApplicationSource (ApplicationSource'),+    newApplicationSource,++    -- ** CustomizedLoadMetricSpecification+    CustomizedLoadMetricSpecification (CustomizedLoadMetricSpecification'),+    newCustomizedLoadMetricSpecification,++    -- ** CustomizedScalingMetricSpecification+    CustomizedScalingMetricSpecification (CustomizedScalingMetricSpecification'),+    newCustomizedScalingMetricSpecification,++    -- ** Datapoint+    Datapoint (Datapoint'),+    newDatapoint,++    -- ** MetricDimension+    MetricDimension (MetricDimension'),+    newMetricDimension,++    -- ** PredefinedLoadMetricSpecification+    PredefinedLoadMetricSpecification (PredefinedLoadMetricSpecification'),+    newPredefinedLoadMetricSpecification,++    -- ** PredefinedScalingMetricSpecification+    PredefinedScalingMetricSpecification (PredefinedScalingMetricSpecification'),+    newPredefinedScalingMetricSpecification,++    -- ** ScalingInstruction+    ScalingInstruction (ScalingInstruction'),+    newScalingInstruction,++    -- ** ScalingPlan+    ScalingPlan (ScalingPlan'),+    newScalingPlan,++    -- ** ScalingPlanResource+    ScalingPlanResource (ScalingPlanResource'),+    newScalingPlanResource,++    -- ** ScalingPolicy+    ScalingPolicy (ScalingPolicy'),+    newScalingPolicy,++    -- ** TagFilter+    TagFilter (TagFilter'),+    newTagFilter,++    -- ** TargetTrackingConfiguration+    TargetTrackingConfiguration (TargetTrackingConfiguration'),+    newTargetTrackingConfiguration,+  )+where++import Amazonka.AutoScalingPlans.CreateScalingPlan+import Amazonka.AutoScalingPlans.DeleteScalingPlan+import Amazonka.AutoScalingPlans.DescribeScalingPlanResources+import Amazonka.AutoScalingPlans.DescribeScalingPlans+import Amazonka.AutoScalingPlans.GetScalingPlanResourceForecastData+import Amazonka.AutoScalingPlans.Lens+import Amazonka.AutoScalingPlans.Types+import Amazonka.AutoScalingPlans.UpdateScalingPlan+import Amazonka.AutoScalingPlans.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 'AutoScalingPlans'.++-- $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.

@@ -0,0 +1,244 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.CreateScalingPlan+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a scaling plan.+module Amazonka.AutoScalingPlans.CreateScalingPlan+  ( -- * Creating a Request+    CreateScalingPlan (..),+    newCreateScalingPlan,++    -- * Request Lenses+    createScalingPlan_scalingPlanName,+    createScalingPlan_applicationSource,+    createScalingPlan_scalingInstructions,++    -- * Destructuring the Response+    CreateScalingPlanResponse (..),+    newCreateScalingPlanResponse,++    -- * Response Lenses+    createScalingPlanResponse_httpStatus,+    createScalingPlanResponse_scalingPlanVersion,+  )+where++import Amazonka.AutoScalingPlans.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateScalingPlan' smart constructor.+data CreateScalingPlan = CreateScalingPlan'+  { -- | The name of the scaling plan. Names cannot contain vertical bars,+    -- colons, or forward slashes.+    scalingPlanName :: Prelude.Text,+    -- | A CloudFormation stack or set of tags. You can create one scaling plan+    -- per application source.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/autoscaling/plans/APIReference/API_ApplicationSource.html ApplicationSource>+    -- in the /AWS Auto Scaling API Reference/.+    applicationSource :: ApplicationSource,+    -- | The scaling instructions.+    --+    -- For more information, see+    -- <https://docs.aws.amazon.com/autoscaling/plans/APIReference/API_ScalingInstruction.html ScalingInstruction>+    -- in the /AWS Auto Scaling API Reference/.+    scalingInstructions :: [ScalingInstruction]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateScalingPlan' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'scalingPlanName', 'createScalingPlan_scalingPlanName' - The name of the scaling plan. Names cannot contain vertical bars,+-- colons, or forward slashes.+--+-- 'applicationSource', 'createScalingPlan_applicationSource' - A CloudFormation stack or set of tags. You can create one scaling plan+-- per application source.+--+-- For more information, see+-- <https://docs.aws.amazon.com/autoscaling/plans/APIReference/API_ApplicationSource.html ApplicationSource>+-- in the /AWS Auto Scaling API Reference/.+--+-- 'scalingInstructions', 'createScalingPlan_scalingInstructions' - The scaling instructions.+--+-- For more information, see+-- <https://docs.aws.amazon.com/autoscaling/plans/APIReference/API_ScalingInstruction.html ScalingInstruction>+-- in the /AWS Auto Scaling API Reference/.+newCreateScalingPlan ::+  -- | 'scalingPlanName'+  Prelude.Text ->+  -- | 'applicationSource'+  ApplicationSource ->+  CreateScalingPlan+newCreateScalingPlan+  pScalingPlanName_+  pApplicationSource_ =+    CreateScalingPlan'+      { scalingPlanName =+          pScalingPlanName_,+        applicationSource = pApplicationSource_,+        scalingInstructions = Prelude.mempty+      }++-- | The name of the scaling plan. Names cannot contain vertical bars,+-- colons, or forward slashes.+createScalingPlan_scalingPlanName :: Lens.Lens' CreateScalingPlan Prelude.Text+createScalingPlan_scalingPlanName = Lens.lens (\CreateScalingPlan' {scalingPlanName} -> scalingPlanName) (\s@CreateScalingPlan' {} a -> s {scalingPlanName = a} :: CreateScalingPlan)++-- | A CloudFormation stack or set of tags. You can create one scaling plan+-- per application source.+--+-- For more information, see+-- <https://docs.aws.amazon.com/autoscaling/plans/APIReference/API_ApplicationSource.html ApplicationSource>+-- in the /AWS Auto Scaling API Reference/.+createScalingPlan_applicationSource :: Lens.Lens' CreateScalingPlan ApplicationSource+createScalingPlan_applicationSource = Lens.lens (\CreateScalingPlan' {applicationSource} -> applicationSource) (\s@CreateScalingPlan' {} a -> s {applicationSource = a} :: CreateScalingPlan)++-- | The scaling instructions.+--+-- For more information, see+-- <https://docs.aws.amazon.com/autoscaling/plans/APIReference/API_ScalingInstruction.html ScalingInstruction>+-- in the /AWS Auto Scaling API Reference/.+createScalingPlan_scalingInstructions :: Lens.Lens' CreateScalingPlan [ScalingInstruction]+createScalingPlan_scalingInstructions = Lens.lens (\CreateScalingPlan' {scalingInstructions} -> scalingInstructions) (\s@CreateScalingPlan' {} a -> s {scalingInstructions = a} :: CreateScalingPlan) Prelude.. Lens.coerced++instance Core.AWSRequest CreateScalingPlan where+  type+    AWSResponse CreateScalingPlan =+      CreateScalingPlanResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateScalingPlanResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "ScalingPlanVersion")+      )++instance Prelude.Hashable CreateScalingPlan where+  hashWithSalt _salt CreateScalingPlan' {..} =+    _salt+      `Prelude.hashWithSalt` scalingPlanName+      `Prelude.hashWithSalt` applicationSource+      `Prelude.hashWithSalt` scalingInstructions++instance Prelude.NFData CreateScalingPlan where+  rnf CreateScalingPlan' {..} =+    Prelude.rnf scalingPlanName+      `Prelude.seq` Prelude.rnf applicationSource+      `Prelude.seq` Prelude.rnf scalingInstructions++instance Data.ToHeaders CreateScalingPlan where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AnyScaleScalingPlannerFrontendService.CreateScalingPlan" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateScalingPlan where+  toJSON CreateScalingPlan' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ScalingPlanName" Data..= scalingPlanName),+            Prelude.Just+              ("ApplicationSource" Data..= applicationSource),+            Prelude.Just+              ("ScalingInstructions" Data..= scalingInstructions)+          ]+      )++instance Data.ToPath CreateScalingPlan where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateScalingPlan where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateScalingPlanResponse' smart constructor.+data CreateScalingPlanResponse = CreateScalingPlanResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The version number of the scaling plan. This value is always @1@.+    -- Currently, you cannot have multiple scaling plan versions.+    scalingPlanVersion :: Prelude.Integer+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateScalingPlanResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createScalingPlanResponse_httpStatus' - The response's http status code.+--+-- 'scalingPlanVersion', 'createScalingPlanResponse_scalingPlanVersion' - The version number of the scaling plan. This value is always @1@.+-- Currently, you cannot have multiple scaling plan versions.+newCreateScalingPlanResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'scalingPlanVersion'+  Prelude.Integer ->+  CreateScalingPlanResponse+newCreateScalingPlanResponse+  pHttpStatus_+  pScalingPlanVersion_ =+    CreateScalingPlanResponse'+      { httpStatus =+          pHttpStatus_,+        scalingPlanVersion = pScalingPlanVersion_+      }++-- | The response's http status code.+createScalingPlanResponse_httpStatus :: Lens.Lens' CreateScalingPlanResponse Prelude.Int+createScalingPlanResponse_httpStatus = Lens.lens (\CreateScalingPlanResponse' {httpStatus} -> httpStatus) (\s@CreateScalingPlanResponse' {} a -> s {httpStatus = a} :: CreateScalingPlanResponse)++-- | The version number of the scaling plan. This value is always @1@.+-- Currently, you cannot have multiple scaling plan versions.+createScalingPlanResponse_scalingPlanVersion :: Lens.Lens' CreateScalingPlanResponse Prelude.Integer+createScalingPlanResponse_scalingPlanVersion = Lens.lens (\CreateScalingPlanResponse' {scalingPlanVersion} -> scalingPlanVersion) (\s@CreateScalingPlanResponse' {} a -> s {scalingPlanVersion = a} :: CreateScalingPlanResponse)++instance Prelude.NFData CreateScalingPlanResponse where+  rnf CreateScalingPlanResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf scalingPlanVersion

@@ -0,0 +1,190 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.DeleteScalingPlan+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified scaling plan.+--+-- Deleting a scaling plan deletes the underlying ScalingInstruction for+-- all of the scalable resources that are covered by the plan.+--+-- If the plan has launched resources or has scaling activities in+-- progress, you must delete those resources separately.+module Amazonka.AutoScalingPlans.DeleteScalingPlan+  ( -- * Creating a Request+    DeleteScalingPlan (..),+    newDeleteScalingPlan,++    -- * Request Lenses+    deleteScalingPlan_scalingPlanName,+    deleteScalingPlan_scalingPlanVersion,++    -- * Destructuring the Response+    DeleteScalingPlanResponse (..),+    newDeleteScalingPlanResponse,++    -- * Response Lenses+    deleteScalingPlanResponse_httpStatus,+  )+where++import Amazonka.AutoScalingPlans.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteScalingPlan' smart constructor.+data DeleteScalingPlan = DeleteScalingPlan'+  { -- | The name of the scaling plan.+    scalingPlanName :: Prelude.Text,+    -- | The version number of the scaling plan. Currently, the only valid value+    -- is @1@.+    scalingPlanVersion :: Prelude.Integer+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteScalingPlan' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'scalingPlanName', 'deleteScalingPlan_scalingPlanName' - The name of the scaling plan.+--+-- 'scalingPlanVersion', 'deleteScalingPlan_scalingPlanVersion' - The version number of the scaling plan. Currently, the only valid value+-- is @1@.+newDeleteScalingPlan ::+  -- | 'scalingPlanName'+  Prelude.Text ->+  -- | 'scalingPlanVersion'+  Prelude.Integer ->+  DeleteScalingPlan+newDeleteScalingPlan+  pScalingPlanName_+  pScalingPlanVersion_ =+    DeleteScalingPlan'+      { scalingPlanName =+          pScalingPlanName_,+        scalingPlanVersion = pScalingPlanVersion_+      }++-- | The name of the scaling plan.+deleteScalingPlan_scalingPlanName :: Lens.Lens' DeleteScalingPlan Prelude.Text+deleteScalingPlan_scalingPlanName = Lens.lens (\DeleteScalingPlan' {scalingPlanName} -> scalingPlanName) (\s@DeleteScalingPlan' {} a -> s {scalingPlanName = a} :: DeleteScalingPlan)++-- | The version number of the scaling plan. Currently, the only valid value+-- is @1@.+deleteScalingPlan_scalingPlanVersion :: Lens.Lens' DeleteScalingPlan Prelude.Integer+deleteScalingPlan_scalingPlanVersion = Lens.lens (\DeleteScalingPlan' {scalingPlanVersion} -> scalingPlanVersion) (\s@DeleteScalingPlan' {} a -> s {scalingPlanVersion = a} :: DeleteScalingPlan)++instance Core.AWSRequest DeleteScalingPlan where+  type+    AWSResponse DeleteScalingPlan =+      DeleteScalingPlanResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteScalingPlanResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteScalingPlan where+  hashWithSalt _salt DeleteScalingPlan' {..} =+    _salt+      `Prelude.hashWithSalt` scalingPlanName+      `Prelude.hashWithSalt` scalingPlanVersion++instance Prelude.NFData DeleteScalingPlan where+  rnf DeleteScalingPlan' {..} =+    Prelude.rnf scalingPlanName+      `Prelude.seq` Prelude.rnf scalingPlanVersion++instance Data.ToHeaders DeleteScalingPlan where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AnyScaleScalingPlannerFrontendService.DeleteScalingPlan" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteScalingPlan where+  toJSON DeleteScalingPlan' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ScalingPlanName" Data..= scalingPlanName),+            Prelude.Just+              ("ScalingPlanVersion" Data..= scalingPlanVersion)+          ]+      )++instance Data.ToPath DeleteScalingPlan where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteScalingPlan where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteScalingPlanResponse' smart constructor.+data DeleteScalingPlanResponse = DeleteScalingPlanResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteScalingPlanResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteScalingPlanResponse_httpStatus' - The response's http status code.+newDeleteScalingPlanResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteScalingPlanResponse+newDeleteScalingPlanResponse pHttpStatus_ =+  DeleteScalingPlanResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteScalingPlanResponse_httpStatus :: Lens.Lens' DeleteScalingPlanResponse Prelude.Int+deleteScalingPlanResponse_httpStatus = Lens.lens (\DeleteScalingPlanResponse' {httpStatus} -> httpStatus) (\s@DeleteScalingPlanResponse' {} a -> s {httpStatus = a} :: DeleteScalingPlanResponse)++instance Prelude.NFData DeleteScalingPlanResponse where+  rnf DeleteScalingPlanResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,274 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.DescribeScalingPlanResources+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the scalable resources in the specified scaling plan.+--+-- This operation returns paginated results.+module Amazonka.AutoScalingPlans.DescribeScalingPlanResources+  ( -- * Creating a Request+    DescribeScalingPlanResources (..),+    newDescribeScalingPlanResources,++    -- * Request Lenses+    describeScalingPlanResources_maxResults,+    describeScalingPlanResources_nextToken,+    describeScalingPlanResources_scalingPlanName,+    describeScalingPlanResources_scalingPlanVersion,++    -- * Destructuring the Response+    DescribeScalingPlanResourcesResponse (..),+    newDescribeScalingPlanResourcesResponse,++    -- * Response Lenses+    describeScalingPlanResourcesResponse_nextToken,+    describeScalingPlanResourcesResponse_scalingPlanResources,+    describeScalingPlanResourcesResponse_httpStatus,+  )+where++import Amazonka.AutoScalingPlans.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeScalingPlanResources' smart constructor.+data DescribeScalingPlanResources = DescribeScalingPlanResources'+  { -- | The maximum number of scalable resources to return. The value must be+    -- between 1 and 50. The default value is 50.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | The token for the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the scaling plan.+    scalingPlanName :: Prelude.Text,+    -- | The version number of the scaling plan. Currently, the only valid value+    -- is @1@.+    scalingPlanVersion :: Prelude.Integer+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeScalingPlanResources' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'describeScalingPlanResources_maxResults' - The maximum number of scalable resources to return. The value must be+-- between 1 and 50. The default value is 50.+--+-- 'nextToken', 'describeScalingPlanResources_nextToken' - The token for the next set of results.+--+-- 'scalingPlanName', 'describeScalingPlanResources_scalingPlanName' - The name of the scaling plan.+--+-- 'scalingPlanVersion', 'describeScalingPlanResources_scalingPlanVersion' - The version number of the scaling plan. Currently, the only valid value+-- is @1@.+newDescribeScalingPlanResources ::+  -- | 'scalingPlanName'+  Prelude.Text ->+  -- | 'scalingPlanVersion'+  Prelude.Integer ->+  DescribeScalingPlanResources+newDescribeScalingPlanResources+  pScalingPlanName_+  pScalingPlanVersion_ =+    DescribeScalingPlanResources'+      { maxResults =+          Prelude.Nothing,+        nextToken = Prelude.Nothing,+        scalingPlanName = pScalingPlanName_,+        scalingPlanVersion = pScalingPlanVersion_+      }++-- | The maximum number of scalable resources to return. The value must be+-- between 1 and 50. The default value is 50.+describeScalingPlanResources_maxResults :: Lens.Lens' DescribeScalingPlanResources (Prelude.Maybe Prelude.Int)+describeScalingPlanResources_maxResults = Lens.lens (\DescribeScalingPlanResources' {maxResults} -> maxResults) (\s@DescribeScalingPlanResources' {} a -> s {maxResults = a} :: DescribeScalingPlanResources)++-- | The token for the next set of results.+describeScalingPlanResources_nextToken :: Lens.Lens' DescribeScalingPlanResources (Prelude.Maybe Prelude.Text)+describeScalingPlanResources_nextToken = Lens.lens (\DescribeScalingPlanResources' {nextToken} -> nextToken) (\s@DescribeScalingPlanResources' {} a -> s {nextToken = a} :: DescribeScalingPlanResources)++-- | The name of the scaling plan.+describeScalingPlanResources_scalingPlanName :: Lens.Lens' DescribeScalingPlanResources Prelude.Text+describeScalingPlanResources_scalingPlanName = Lens.lens (\DescribeScalingPlanResources' {scalingPlanName} -> scalingPlanName) (\s@DescribeScalingPlanResources' {} a -> s {scalingPlanName = a} :: DescribeScalingPlanResources)++-- | The version number of the scaling plan. Currently, the only valid value+-- is @1@.+describeScalingPlanResources_scalingPlanVersion :: Lens.Lens' DescribeScalingPlanResources Prelude.Integer+describeScalingPlanResources_scalingPlanVersion = Lens.lens (\DescribeScalingPlanResources' {scalingPlanVersion} -> scalingPlanVersion) (\s@DescribeScalingPlanResources' {} a -> s {scalingPlanVersion = a} :: DescribeScalingPlanResources)++instance Core.AWSPager DescribeScalingPlanResources where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeScalingPlanResourcesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeScalingPlanResourcesResponse_scalingPlanResources+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeScalingPlanResources_nextToken+          Lens..~ rs+          Lens.^? describeScalingPlanResourcesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeScalingPlanResources where+  type+    AWSResponse DescribeScalingPlanResources =+      DescribeScalingPlanResourcesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeScalingPlanResourcesResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "ScalingPlanResources"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeScalingPlanResources+  where+  hashWithSalt _salt DescribeScalingPlanResources' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` scalingPlanName+      `Prelude.hashWithSalt` scalingPlanVersion++instance Prelude.NFData DescribeScalingPlanResources where+  rnf DescribeScalingPlanResources' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf scalingPlanName+      `Prelude.seq` Prelude.rnf scalingPlanVersion++instance Data.ToHeaders DescribeScalingPlanResources where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AnyScaleScalingPlannerFrontendService.DescribeScalingPlanResources" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeScalingPlanResources where+  toJSON DescribeScalingPlanResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("ScalingPlanName" Data..= scalingPlanName),+            Prelude.Just+              ("ScalingPlanVersion" Data..= scalingPlanVersion)+          ]+      )++instance Data.ToPath DescribeScalingPlanResources where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeScalingPlanResources where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeScalingPlanResourcesResponse' smart constructor.+data DescribeScalingPlanResourcesResponse = DescribeScalingPlanResourcesResponse'+  { -- | The token required to get the next set of results. This value is @null@+    -- if there are no more results to return.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the scalable resources.+    scalingPlanResources :: Prelude.Maybe [ScalingPlanResource],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeScalingPlanResourcesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeScalingPlanResourcesResponse_nextToken' - The token required to get the next set of results. This value is @null@+-- if there are no more results to return.+--+-- 'scalingPlanResources', 'describeScalingPlanResourcesResponse_scalingPlanResources' - Information about the scalable resources.+--+-- 'httpStatus', 'describeScalingPlanResourcesResponse_httpStatus' - The response's http status code.+newDescribeScalingPlanResourcesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeScalingPlanResourcesResponse+newDescribeScalingPlanResourcesResponse pHttpStatus_ =+  DescribeScalingPlanResourcesResponse'+    { nextToken =+        Prelude.Nothing,+      scalingPlanResources =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The token required to get the next set of results. This value is @null@+-- if there are no more results to return.+describeScalingPlanResourcesResponse_nextToken :: Lens.Lens' DescribeScalingPlanResourcesResponse (Prelude.Maybe Prelude.Text)+describeScalingPlanResourcesResponse_nextToken = Lens.lens (\DescribeScalingPlanResourcesResponse' {nextToken} -> nextToken) (\s@DescribeScalingPlanResourcesResponse' {} a -> s {nextToken = a} :: DescribeScalingPlanResourcesResponse)++-- | Information about the scalable resources.+describeScalingPlanResourcesResponse_scalingPlanResources :: Lens.Lens' DescribeScalingPlanResourcesResponse (Prelude.Maybe [ScalingPlanResource])+describeScalingPlanResourcesResponse_scalingPlanResources = Lens.lens (\DescribeScalingPlanResourcesResponse' {scalingPlanResources} -> scalingPlanResources) (\s@DescribeScalingPlanResourcesResponse' {} a -> s {scalingPlanResources = a} :: DescribeScalingPlanResourcesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeScalingPlanResourcesResponse_httpStatus :: Lens.Lens' DescribeScalingPlanResourcesResponse Prelude.Int+describeScalingPlanResourcesResponse_httpStatus = Lens.lens (\DescribeScalingPlanResourcesResponse' {httpStatus} -> httpStatus) (\s@DescribeScalingPlanResourcesResponse' {} a -> s {httpStatus = a} :: DescribeScalingPlanResourcesResponse)++instance+  Prelude.NFData+    DescribeScalingPlanResourcesResponse+  where+  rnf DescribeScalingPlanResourcesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf scalingPlanResources+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,287 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.DescribeScalingPlans+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes one or more of your scaling plans.+--+-- This operation returns paginated results.+module Amazonka.AutoScalingPlans.DescribeScalingPlans+  ( -- * Creating a Request+    DescribeScalingPlans (..),+    newDescribeScalingPlans,++    -- * Request Lenses+    describeScalingPlans_applicationSources,+    describeScalingPlans_maxResults,+    describeScalingPlans_nextToken,+    describeScalingPlans_scalingPlanNames,+    describeScalingPlans_scalingPlanVersion,++    -- * Destructuring the Response+    DescribeScalingPlansResponse (..),+    newDescribeScalingPlansResponse,++    -- * Response Lenses+    describeScalingPlansResponse_nextToken,+    describeScalingPlansResponse_scalingPlans,+    describeScalingPlansResponse_httpStatus,+  )+where++import Amazonka.AutoScalingPlans.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeScalingPlans' smart constructor.+data DescribeScalingPlans = DescribeScalingPlans'+  { -- | The sources for the applications (up to 10). If you specify scaling plan+    -- names, you cannot specify application sources.+    applicationSources :: Prelude.Maybe [ApplicationSource],+    -- | The maximum number of scalable resources to return. This value can be+    -- between 1 and 50. The default value is 50.+    maxResults :: Prelude.Maybe Prelude.Int,+    -- | The token for the next set of results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The names of the scaling plans (up to 10). If you specify application+    -- sources, you cannot specify scaling plan names.+    scalingPlanNames :: Prelude.Maybe [Prelude.Text],+    -- | The version number of the scaling plan. Currently, the only valid value+    -- is @1@.+    --+    -- If you specify a scaling plan version, you must also specify a scaling+    -- plan name.+    scalingPlanVersion :: Prelude.Maybe Prelude.Integer+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeScalingPlans' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'applicationSources', 'describeScalingPlans_applicationSources' - The sources for the applications (up to 10). If you specify scaling plan+-- names, you cannot specify application sources.+--+-- 'maxResults', 'describeScalingPlans_maxResults' - The maximum number of scalable resources to return. This value can be+-- between 1 and 50. The default value is 50.+--+-- 'nextToken', 'describeScalingPlans_nextToken' - The token for the next set of results.+--+-- 'scalingPlanNames', 'describeScalingPlans_scalingPlanNames' - The names of the scaling plans (up to 10). If you specify application+-- sources, you cannot specify scaling plan names.+--+-- 'scalingPlanVersion', 'describeScalingPlans_scalingPlanVersion' - The version number of the scaling plan. Currently, the only valid value+-- is @1@.+--+-- If you specify a scaling plan version, you must also specify a scaling+-- plan name.+newDescribeScalingPlans ::+  DescribeScalingPlans+newDescribeScalingPlans =+  DescribeScalingPlans'+    { applicationSources =+        Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      scalingPlanNames = Prelude.Nothing,+      scalingPlanVersion = Prelude.Nothing+    }++-- | The sources for the applications (up to 10). If you specify scaling plan+-- names, you cannot specify application sources.+describeScalingPlans_applicationSources :: Lens.Lens' DescribeScalingPlans (Prelude.Maybe [ApplicationSource])+describeScalingPlans_applicationSources = Lens.lens (\DescribeScalingPlans' {applicationSources} -> applicationSources) (\s@DescribeScalingPlans' {} a -> s {applicationSources = a} :: DescribeScalingPlans) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of scalable resources to return. This value can be+-- between 1 and 50. The default value is 50.+describeScalingPlans_maxResults :: Lens.Lens' DescribeScalingPlans (Prelude.Maybe Prelude.Int)+describeScalingPlans_maxResults = Lens.lens (\DescribeScalingPlans' {maxResults} -> maxResults) (\s@DescribeScalingPlans' {} a -> s {maxResults = a} :: DescribeScalingPlans)++-- | The token for the next set of results.+describeScalingPlans_nextToken :: Lens.Lens' DescribeScalingPlans (Prelude.Maybe Prelude.Text)+describeScalingPlans_nextToken = Lens.lens (\DescribeScalingPlans' {nextToken} -> nextToken) (\s@DescribeScalingPlans' {} a -> s {nextToken = a} :: DescribeScalingPlans)++-- | The names of the scaling plans (up to 10). If you specify application+-- sources, you cannot specify scaling plan names.+describeScalingPlans_scalingPlanNames :: Lens.Lens' DescribeScalingPlans (Prelude.Maybe [Prelude.Text])+describeScalingPlans_scalingPlanNames = Lens.lens (\DescribeScalingPlans' {scalingPlanNames} -> scalingPlanNames) (\s@DescribeScalingPlans' {} a -> s {scalingPlanNames = a} :: DescribeScalingPlans) Prelude.. Lens.mapping Lens.coerced++-- | The version number of the scaling plan. Currently, the only valid value+-- is @1@.+--+-- If you specify a scaling plan version, you must also specify a scaling+-- plan name.+describeScalingPlans_scalingPlanVersion :: Lens.Lens' DescribeScalingPlans (Prelude.Maybe Prelude.Integer)+describeScalingPlans_scalingPlanVersion = Lens.lens (\DescribeScalingPlans' {scalingPlanVersion} -> scalingPlanVersion) (\s@DescribeScalingPlans' {} a -> s {scalingPlanVersion = a} :: DescribeScalingPlans)++instance Core.AWSPager DescribeScalingPlans where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeScalingPlansResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeScalingPlansResponse_scalingPlans+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeScalingPlans_nextToken+          Lens..~ rs+          Lens.^? describeScalingPlansResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeScalingPlans where+  type+    AWSResponse DescribeScalingPlans =+      DescribeScalingPlansResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeScalingPlansResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "ScalingPlans" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeScalingPlans where+  hashWithSalt _salt DescribeScalingPlans' {..} =+    _salt+      `Prelude.hashWithSalt` applicationSources+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` scalingPlanNames+      `Prelude.hashWithSalt` scalingPlanVersion++instance Prelude.NFData DescribeScalingPlans where+  rnf DescribeScalingPlans' {..} =+    Prelude.rnf applicationSources+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf scalingPlanNames+      `Prelude.seq` Prelude.rnf scalingPlanVersion++instance Data.ToHeaders DescribeScalingPlans where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AnyScaleScalingPlannerFrontendService.DescribeScalingPlans" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeScalingPlans where+  toJSON DescribeScalingPlans' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ApplicationSources" Data..=)+              Prelude.<$> applicationSources,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("ScalingPlanNames" Data..=)+              Prelude.<$> scalingPlanNames,+            ("ScalingPlanVersion" Data..=)+              Prelude.<$> scalingPlanVersion+          ]+      )++instance Data.ToPath DescribeScalingPlans where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeScalingPlans where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeScalingPlansResponse' smart constructor.+data DescribeScalingPlansResponse = DescribeScalingPlansResponse'+  { -- | The token required to get the next set of results. This value is @null@+    -- if there are no more results to return.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the scaling plans.+    scalingPlans :: Prelude.Maybe [ScalingPlan],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeScalingPlansResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeScalingPlansResponse_nextToken' - The token required to get the next set of results. This value is @null@+-- if there are no more results to return.+--+-- 'scalingPlans', 'describeScalingPlansResponse_scalingPlans' - Information about the scaling plans.+--+-- 'httpStatus', 'describeScalingPlansResponse_httpStatus' - The response's http status code.+newDescribeScalingPlansResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeScalingPlansResponse+newDescribeScalingPlansResponse pHttpStatus_ =+  DescribeScalingPlansResponse'+    { nextToken =+        Prelude.Nothing,+      scalingPlans = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The token required to get the next set of results. This value is @null@+-- if there are no more results to return.+describeScalingPlansResponse_nextToken :: Lens.Lens' DescribeScalingPlansResponse (Prelude.Maybe Prelude.Text)+describeScalingPlansResponse_nextToken = Lens.lens (\DescribeScalingPlansResponse' {nextToken} -> nextToken) (\s@DescribeScalingPlansResponse' {} a -> s {nextToken = a} :: DescribeScalingPlansResponse)++-- | Information about the scaling plans.+describeScalingPlansResponse_scalingPlans :: Lens.Lens' DescribeScalingPlansResponse (Prelude.Maybe [ScalingPlan])+describeScalingPlansResponse_scalingPlans = Lens.lens (\DescribeScalingPlansResponse' {scalingPlans} -> scalingPlans) (\s@DescribeScalingPlansResponse' {} a -> s {scalingPlans = a} :: DescribeScalingPlansResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeScalingPlansResponse_httpStatus :: Lens.Lens' DescribeScalingPlansResponse Prelude.Int+describeScalingPlansResponse_httpStatus = Lens.lens (\DescribeScalingPlansResponse' {httpStatus} -> httpStatus) (\s@DescribeScalingPlansResponse' {} a -> s {httpStatus = a} :: DescribeScalingPlansResponse)++instance Prelude.NFData DescribeScalingPlansResponse where+  rnf DescribeScalingPlansResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf scalingPlans+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,400 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.GetScalingPlanResourceForecastData+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the forecast data for a scalable resource.+--+-- Capacity forecasts are represented as predicted values, or data points,+-- that are calculated using historical data points from a specified+-- CloudWatch load metric. Data points are available for up to 56 days.+module Amazonka.AutoScalingPlans.GetScalingPlanResourceForecastData+  ( -- * Creating a Request+    GetScalingPlanResourceForecastData (..),+    newGetScalingPlanResourceForecastData,++    -- * Request Lenses+    getScalingPlanResourceForecastData_scalingPlanName,+    getScalingPlanResourceForecastData_scalingPlanVersion,+    getScalingPlanResourceForecastData_serviceNamespace,+    getScalingPlanResourceForecastData_resourceId,+    getScalingPlanResourceForecastData_scalableDimension,+    getScalingPlanResourceForecastData_forecastDataType,+    getScalingPlanResourceForecastData_startTime,+    getScalingPlanResourceForecastData_endTime,++    -- * Destructuring the Response+    GetScalingPlanResourceForecastDataResponse (..),+    newGetScalingPlanResourceForecastDataResponse,++    -- * Response Lenses+    getScalingPlanResourceForecastDataResponse_httpStatus,+    getScalingPlanResourceForecastDataResponse_datapoints,+  )+where++import Amazonka.AutoScalingPlans.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetScalingPlanResourceForecastData' smart constructor.+data GetScalingPlanResourceForecastData = GetScalingPlanResourceForecastData'+  { -- | The name of the scaling plan.+    scalingPlanName :: Prelude.Text,+    -- | The version number of the scaling plan. Currently, the only valid value+    -- is @1@.+    scalingPlanVersion :: Prelude.Integer,+    -- | The namespace of the AWS service. The only valid value is @autoscaling@.+    serviceNamespace :: ServiceNamespace,+    -- | The ID of the resource. This string consists of a prefix+    -- (@autoScalingGroup@) followed by the name of a specified Auto Scaling+    -- group (@my-asg@). Example: @autoScalingGroup\/my-asg@.+    resourceId :: Prelude.Text,+    -- | The scalable dimension for the resource. The only valid value is+    -- @autoscaling:autoScalingGroup:DesiredCapacity@.+    scalableDimension :: ScalableDimension,+    -- | The type of forecast data to get.+    --+    -- -   @LoadForecast@: The load metric forecast.+    --+    -- -   @CapacityForecast@: The capacity forecast.+    --+    -- -   @ScheduledActionMinCapacity@: The minimum capacity for each+    --     scheduled scaling action. This data is calculated as the larger of+    --     two values: the capacity forecast or the minimum capacity in the+    --     scaling instruction.+    --+    -- -   @ScheduledActionMaxCapacity@: The maximum capacity for each+    --     scheduled scaling action. The calculation used is determined by the+    --     predictive scaling maximum capacity behavior setting in the scaling+    --     instruction.+    forecastDataType :: ForecastDataType,+    -- | The inclusive start time of the time range for the forecast data to get.+    -- The date and time can be at most 56 days before the current date and+    -- time.+    startTime :: Data.POSIX,+    -- | The exclusive end time of the time range for the forecast data to get.+    -- The maximum time duration between the start and end time is seven days.+    --+    -- Although this parameter can accept a date and time that is more than two+    -- days in the future, the availability of forecast data has limits. AWS+    -- Auto Scaling only issues forecasts for periods of two days in advance.+    endTime :: Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetScalingPlanResourceForecastData' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'scalingPlanName', 'getScalingPlanResourceForecastData_scalingPlanName' - The name of the scaling plan.+--+-- 'scalingPlanVersion', 'getScalingPlanResourceForecastData_scalingPlanVersion' - The version number of the scaling plan. Currently, the only valid value+-- is @1@.+--+-- 'serviceNamespace', 'getScalingPlanResourceForecastData_serviceNamespace' - The namespace of the AWS service. The only valid value is @autoscaling@.+--+-- 'resourceId', 'getScalingPlanResourceForecastData_resourceId' - The ID of the resource. This string consists of a prefix+-- (@autoScalingGroup@) followed by the name of a specified Auto Scaling+-- group (@my-asg@). Example: @autoScalingGroup\/my-asg@.+--+-- 'scalableDimension', 'getScalingPlanResourceForecastData_scalableDimension' - The scalable dimension for the resource. The only valid value is+-- @autoscaling:autoScalingGroup:DesiredCapacity@.+--+-- 'forecastDataType', 'getScalingPlanResourceForecastData_forecastDataType' - The type of forecast data to get.+--+-- -   @LoadForecast@: The load metric forecast.+--+-- -   @CapacityForecast@: The capacity forecast.+--+-- -   @ScheduledActionMinCapacity@: The minimum capacity for each+--     scheduled scaling action. This data is calculated as the larger of+--     two values: the capacity forecast or the minimum capacity in the+--     scaling instruction.+--+-- -   @ScheduledActionMaxCapacity@: The maximum capacity for each+--     scheduled scaling action. The calculation used is determined by the+--     predictive scaling maximum capacity behavior setting in the scaling+--     instruction.+--+-- 'startTime', 'getScalingPlanResourceForecastData_startTime' - The inclusive start time of the time range for the forecast data to get.+-- The date and time can be at most 56 days before the current date and+-- time.+--+-- 'endTime', 'getScalingPlanResourceForecastData_endTime' - The exclusive end time of the time range for the forecast data to get.+-- The maximum time duration between the start and end time is seven days.+--+-- Although this parameter can accept a date and time that is more than two+-- days in the future, the availability of forecast data has limits. AWS+-- Auto Scaling only issues forecasts for periods of two days in advance.+newGetScalingPlanResourceForecastData ::+  -- | 'scalingPlanName'+  Prelude.Text ->+  -- | 'scalingPlanVersion'+  Prelude.Integer ->+  -- | 'serviceNamespace'+  ServiceNamespace ->+  -- | 'resourceId'+  Prelude.Text ->+  -- | 'scalableDimension'+  ScalableDimension ->+  -- | 'forecastDataType'+  ForecastDataType ->+  -- | 'startTime'+  Prelude.UTCTime ->+  -- | 'endTime'+  Prelude.UTCTime ->+  GetScalingPlanResourceForecastData+newGetScalingPlanResourceForecastData+  pScalingPlanName_+  pScalingPlanVersion_+  pServiceNamespace_+  pResourceId_+  pScalableDimension_+  pForecastDataType_+  pStartTime_+  pEndTime_ =+    GetScalingPlanResourceForecastData'+      { scalingPlanName =+          pScalingPlanName_,+        scalingPlanVersion =+          pScalingPlanVersion_,+        serviceNamespace = pServiceNamespace_,+        resourceId = pResourceId_,+        scalableDimension = pScalableDimension_,+        forecastDataType = pForecastDataType_,+        startTime =+          Data._Time Lens.# pStartTime_,+        endTime = Data._Time Lens.# pEndTime_+      }++-- | The name of the scaling plan.+getScalingPlanResourceForecastData_scalingPlanName :: Lens.Lens' GetScalingPlanResourceForecastData Prelude.Text+getScalingPlanResourceForecastData_scalingPlanName = Lens.lens (\GetScalingPlanResourceForecastData' {scalingPlanName} -> scalingPlanName) (\s@GetScalingPlanResourceForecastData' {} a -> s {scalingPlanName = a} :: GetScalingPlanResourceForecastData)++-- | The version number of the scaling plan. Currently, the only valid value+-- is @1@.+getScalingPlanResourceForecastData_scalingPlanVersion :: Lens.Lens' GetScalingPlanResourceForecastData Prelude.Integer+getScalingPlanResourceForecastData_scalingPlanVersion = Lens.lens (\GetScalingPlanResourceForecastData' {scalingPlanVersion} -> scalingPlanVersion) (\s@GetScalingPlanResourceForecastData' {} a -> s {scalingPlanVersion = a} :: GetScalingPlanResourceForecastData)++-- | The namespace of the AWS service. The only valid value is @autoscaling@.+getScalingPlanResourceForecastData_serviceNamespace :: Lens.Lens' GetScalingPlanResourceForecastData ServiceNamespace+getScalingPlanResourceForecastData_serviceNamespace = Lens.lens (\GetScalingPlanResourceForecastData' {serviceNamespace} -> serviceNamespace) (\s@GetScalingPlanResourceForecastData' {} a -> s {serviceNamespace = a} :: GetScalingPlanResourceForecastData)++-- | The ID of the resource. This string consists of a prefix+-- (@autoScalingGroup@) followed by the name of a specified Auto Scaling+-- group (@my-asg@). Example: @autoScalingGroup\/my-asg@.+getScalingPlanResourceForecastData_resourceId :: Lens.Lens' GetScalingPlanResourceForecastData Prelude.Text+getScalingPlanResourceForecastData_resourceId = Lens.lens (\GetScalingPlanResourceForecastData' {resourceId} -> resourceId) (\s@GetScalingPlanResourceForecastData' {} a -> s {resourceId = a} :: GetScalingPlanResourceForecastData)++-- | The scalable dimension for the resource. The only valid value is+-- @autoscaling:autoScalingGroup:DesiredCapacity@.+getScalingPlanResourceForecastData_scalableDimension :: Lens.Lens' GetScalingPlanResourceForecastData ScalableDimension+getScalingPlanResourceForecastData_scalableDimension = Lens.lens (\GetScalingPlanResourceForecastData' {scalableDimension} -> scalableDimension) (\s@GetScalingPlanResourceForecastData' {} a -> s {scalableDimension = a} :: GetScalingPlanResourceForecastData)++-- | The type of forecast data to get.+--+-- -   @LoadForecast@: The load metric forecast.+--+-- -   @CapacityForecast@: The capacity forecast.+--+-- -   @ScheduledActionMinCapacity@: The minimum capacity for each+--     scheduled scaling action. This data is calculated as the larger of+--     two values: the capacity forecast or the minimum capacity in the+--     scaling instruction.+--+-- -   @ScheduledActionMaxCapacity@: The maximum capacity for each+--     scheduled scaling action. The calculation used is determined by the+--     predictive scaling maximum capacity behavior setting in the scaling+--     instruction.+getScalingPlanResourceForecastData_forecastDataType :: Lens.Lens' GetScalingPlanResourceForecastData ForecastDataType+getScalingPlanResourceForecastData_forecastDataType = Lens.lens (\GetScalingPlanResourceForecastData' {forecastDataType} -> forecastDataType) (\s@GetScalingPlanResourceForecastData' {} a -> s {forecastDataType = a} :: GetScalingPlanResourceForecastData)++-- | The inclusive start time of the time range for the forecast data to get.+-- The date and time can be at most 56 days before the current date and+-- time.+getScalingPlanResourceForecastData_startTime :: Lens.Lens' GetScalingPlanResourceForecastData Prelude.UTCTime+getScalingPlanResourceForecastData_startTime = Lens.lens (\GetScalingPlanResourceForecastData' {startTime} -> startTime) (\s@GetScalingPlanResourceForecastData' {} a -> s {startTime = a} :: GetScalingPlanResourceForecastData) Prelude.. Data._Time++-- | The exclusive end time of the time range for the forecast data to get.+-- The maximum time duration between the start and end time is seven days.+--+-- Although this parameter can accept a date and time that is more than two+-- days in the future, the availability of forecast data has limits. AWS+-- Auto Scaling only issues forecasts for periods of two days in advance.+getScalingPlanResourceForecastData_endTime :: Lens.Lens' GetScalingPlanResourceForecastData Prelude.UTCTime+getScalingPlanResourceForecastData_endTime = Lens.lens (\GetScalingPlanResourceForecastData' {endTime} -> endTime) (\s@GetScalingPlanResourceForecastData' {} a -> s {endTime = a} :: GetScalingPlanResourceForecastData) Prelude.. Data._Time++instance+  Core.AWSRequest+    GetScalingPlanResourceForecastData+  where+  type+    AWSResponse GetScalingPlanResourceForecastData =+      GetScalingPlanResourceForecastDataResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetScalingPlanResourceForecastDataResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "Datapoints" Core..!@ Prelude.mempty)+      )++instance+  Prelude.Hashable+    GetScalingPlanResourceForecastData+  where+  hashWithSalt+    _salt+    GetScalingPlanResourceForecastData' {..} =+      _salt+        `Prelude.hashWithSalt` scalingPlanName+        `Prelude.hashWithSalt` scalingPlanVersion+        `Prelude.hashWithSalt` serviceNamespace+        `Prelude.hashWithSalt` resourceId+        `Prelude.hashWithSalt` scalableDimension+        `Prelude.hashWithSalt` forecastDataType+        `Prelude.hashWithSalt` startTime+        `Prelude.hashWithSalt` endTime++instance+  Prelude.NFData+    GetScalingPlanResourceForecastData+  where+  rnf GetScalingPlanResourceForecastData' {..} =+    Prelude.rnf scalingPlanName+      `Prelude.seq` Prelude.rnf scalingPlanVersion+      `Prelude.seq` Prelude.rnf serviceNamespace+      `Prelude.seq` Prelude.rnf resourceId+      `Prelude.seq` Prelude.rnf scalableDimension+      `Prelude.seq` Prelude.rnf forecastDataType+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf endTime++instance+  Data.ToHeaders+    GetScalingPlanResourceForecastData+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AnyScaleScalingPlannerFrontendService.GetScalingPlanResourceForecastData" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    GetScalingPlanResourceForecastData+  where+  toJSON GetScalingPlanResourceForecastData' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("ScalingPlanName" Data..= scalingPlanName),+            Prelude.Just+              ("ScalingPlanVersion" Data..= scalingPlanVersion),+            Prelude.Just+              ("ServiceNamespace" Data..= serviceNamespace),+            Prelude.Just ("ResourceId" Data..= resourceId),+            Prelude.Just+              ("ScalableDimension" Data..= scalableDimension),+            Prelude.Just+              ("ForecastDataType" Data..= forecastDataType),+            Prelude.Just ("StartTime" Data..= startTime),+            Prelude.Just ("EndTime" Data..= endTime)+          ]+      )++instance+  Data.ToPath+    GetScalingPlanResourceForecastData+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    GetScalingPlanResourceForecastData+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetScalingPlanResourceForecastDataResponse' smart constructor.+data GetScalingPlanResourceForecastDataResponse = GetScalingPlanResourceForecastDataResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The data points to return.+    datapoints :: [Datapoint]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetScalingPlanResourceForecastDataResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'getScalingPlanResourceForecastDataResponse_httpStatus' - The response's http status code.+--+-- 'datapoints', 'getScalingPlanResourceForecastDataResponse_datapoints' - The data points to return.+newGetScalingPlanResourceForecastDataResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetScalingPlanResourceForecastDataResponse+newGetScalingPlanResourceForecastDataResponse+  pHttpStatus_ =+    GetScalingPlanResourceForecastDataResponse'+      { httpStatus =+          pHttpStatus_,+        datapoints = Prelude.mempty+      }++-- | The response's http status code.+getScalingPlanResourceForecastDataResponse_httpStatus :: Lens.Lens' GetScalingPlanResourceForecastDataResponse Prelude.Int+getScalingPlanResourceForecastDataResponse_httpStatus = Lens.lens (\GetScalingPlanResourceForecastDataResponse' {httpStatus} -> httpStatus) (\s@GetScalingPlanResourceForecastDataResponse' {} a -> s {httpStatus = a} :: GetScalingPlanResourceForecastDataResponse)++-- | The data points to return.+getScalingPlanResourceForecastDataResponse_datapoints :: Lens.Lens' GetScalingPlanResourceForecastDataResponse [Datapoint]+getScalingPlanResourceForecastDataResponse_datapoints = Lens.lens (\GetScalingPlanResourceForecastDataResponse' {datapoints} -> datapoints) (\s@GetScalingPlanResourceForecastDataResponse' {} a -> s {datapoints = a} :: GetScalingPlanResourceForecastDataResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    GetScalingPlanResourceForecastDataResponse+  where+  rnf GetScalingPlanResourceForecastDataResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf datapoints

@@ -0,0 +1,177 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Lens+  ( -- * Operations++    -- ** CreateScalingPlan+    createScalingPlan_scalingPlanName,+    createScalingPlan_applicationSource,+    createScalingPlan_scalingInstructions,+    createScalingPlanResponse_httpStatus,+    createScalingPlanResponse_scalingPlanVersion,++    -- ** DeleteScalingPlan+    deleteScalingPlan_scalingPlanName,+    deleteScalingPlan_scalingPlanVersion,+    deleteScalingPlanResponse_httpStatus,++    -- ** DescribeScalingPlanResources+    describeScalingPlanResources_maxResults,+    describeScalingPlanResources_nextToken,+    describeScalingPlanResources_scalingPlanName,+    describeScalingPlanResources_scalingPlanVersion,+    describeScalingPlanResourcesResponse_nextToken,+    describeScalingPlanResourcesResponse_scalingPlanResources,+    describeScalingPlanResourcesResponse_httpStatus,++    -- ** DescribeScalingPlans+    describeScalingPlans_applicationSources,+    describeScalingPlans_maxResults,+    describeScalingPlans_nextToken,+    describeScalingPlans_scalingPlanNames,+    describeScalingPlans_scalingPlanVersion,+    describeScalingPlansResponse_nextToken,+    describeScalingPlansResponse_scalingPlans,+    describeScalingPlansResponse_httpStatus,++    -- ** GetScalingPlanResourceForecastData+    getScalingPlanResourceForecastData_scalingPlanName,+    getScalingPlanResourceForecastData_scalingPlanVersion,+    getScalingPlanResourceForecastData_serviceNamespace,+    getScalingPlanResourceForecastData_resourceId,+    getScalingPlanResourceForecastData_scalableDimension,+    getScalingPlanResourceForecastData_forecastDataType,+    getScalingPlanResourceForecastData_startTime,+    getScalingPlanResourceForecastData_endTime,+    getScalingPlanResourceForecastDataResponse_httpStatus,+    getScalingPlanResourceForecastDataResponse_datapoints,++    -- ** UpdateScalingPlan+    updateScalingPlan_applicationSource,+    updateScalingPlan_scalingInstructions,+    updateScalingPlan_scalingPlanName,+    updateScalingPlan_scalingPlanVersion,+    updateScalingPlanResponse_httpStatus,++    -- * Types++    -- ** ApplicationSource+    applicationSource_cloudFormationStackARN,+    applicationSource_tagFilters,++    -- ** CustomizedLoadMetricSpecification+    customizedLoadMetricSpecification_dimensions,+    customizedLoadMetricSpecification_unit,+    customizedLoadMetricSpecification_metricName,+    customizedLoadMetricSpecification_namespace,+    customizedLoadMetricSpecification_statistic,++    -- ** CustomizedScalingMetricSpecification+    customizedScalingMetricSpecification_dimensions,+    customizedScalingMetricSpecification_unit,+    customizedScalingMetricSpecification_metricName,+    customizedScalingMetricSpecification_namespace,+    customizedScalingMetricSpecification_statistic,++    -- ** Datapoint+    datapoint_timestamp,+    datapoint_value,++    -- ** MetricDimension+    metricDimension_name,+    metricDimension_value,++    -- ** PredefinedLoadMetricSpecification+    predefinedLoadMetricSpecification_resourceLabel,+    predefinedLoadMetricSpecification_predefinedLoadMetricType,++    -- ** PredefinedScalingMetricSpecification+    predefinedScalingMetricSpecification_resourceLabel,+    predefinedScalingMetricSpecification_predefinedScalingMetricType,++    -- ** ScalingInstruction+    scalingInstruction_customizedLoadMetricSpecification,+    scalingInstruction_disableDynamicScaling,+    scalingInstruction_predefinedLoadMetricSpecification,+    scalingInstruction_predictiveScalingMaxCapacityBehavior,+    scalingInstruction_predictiveScalingMaxCapacityBuffer,+    scalingInstruction_predictiveScalingMode,+    scalingInstruction_scalingPolicyUpdateBehavior,+    scalingInstruction_scheduledActionBufferTime,+    scalingInstruction_serviceNamespace,+    scalingInstruction_resourceId,+    scalingInstruction_scalableDimension,+    scalingInstruction_minCapacity,+    scalingInstruction_maxCapacity,+    scalingInstruction_targetTrackingConfigurations,++    -- ** ScalingPlan+    scalingPlan_creationTime,+    scalingPlan_statusMessage,+    scalingPlan_statusStartTime,+    scalingPlan_scalingPlanName,+    scalingPlan_scalingPlanVersion,+    scalingPlan_applicationSource,+    scalingPlan_scalingInstructions,+    scalingPlan_statusCode,++    -- ** ScalingPlanResource+    scalingPlanResource_scalingPolicies,+    scalingPlanResource_scalingStatusMessage,+    scalingPlanResource_scalingPlanName,+    scalingPlanResource_scalingPlanVersion,+    scalingPlanResource_serviceNamespace,+    scalingPlanResource_resourceId,+    scalingPlanResource_scalableDimension,+    scalingPlanResource_scalingStatusCode,++    -- ** ScalingPolicy+    scalingPolicy_targetTrackingConfiguration,+    scalingPolicy_policyName,+    scalingPolicy_policyType,++    -- ** TagFilter+    tagFilter_key,+    tagFilter_values,++    -- ** TargetTrackingConfiguration+    targetTrackingConfiguration_customizedScalingMetricSpecification,+    targetTrackingConfiguration_disableScaleIn,+    targetTrackingConfiguration_estimatedInstanceWarmup,+    targetTrackingConfiguration_predefinedScalingMetricSpecification,+    targetTrackingConfiguration_scaleInCooldown,+    targetTrackingConfiguration_scaleOutCooldown,+    targetTrackingConfiguration_targetValue,+  )+where++import Amazonka.AutoScalingPlans.CreateScalingPlan+import Amazonka.AutoScalingPlans.DeleteScalingPlan+import Amazonka.AutoScalingPlans.DescribeScalingPlanResources+import Amazonka.AutoScalingPlans.DescribeScalingPlans+import Amazonka.AutoScalingPlans.GetScalingPlanResourceForecastData+import Amazonka.AutoScalingPlans.Types.ApplicationSource+import Amazonka.AutoScalingPlans.Types.CustomizedLoadMetricSpecification+import Amazonka.AutoScalingPlans.Types.CustomizedScalingMetricSpecification+import Amazonka.AutoScalingPlans.Types.Datapoint+import Amazonka.AutoScalingPlans.Types.MetricDimension+import Amazonka.AutoScalingPlans.Types.PredefinedLoadMetricSpecification+import Amazonka.AutoScalingPlans.Types.PredefinedScalingMetricSpecification+import Amazonka.AutoScalingPlans.Types.ScalingInstruction+import Amazonka.AutoScalingPlans.Types.ScalingPlan+import Amazonka.AutoScalingPlans.Types.ScalingPlanResource+import Amazonka.AutoScalingPlans.Types.ScalingPolicy+import Amazonka.AutoScalingPlans.Types.TagFilter+import Amazonka.AutoScalingPlans.Types.TargetTrackingConfiguration+import Amazonka.AutoScalingPlans.UpdateScalingPlan

@@ -0,0 +1,323 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _ConcurrentUpdateException,+    _InternalServiceException,+    _InvalidNextTokenException,+    _LimitExceededException,+    _ObjectNotFoundException,+    _ValidationException,++    -- * ForecastDataType+    ForecastDataType (..),++    -- * LoadMetricType+    LoadMetricType (..),++    -- * MetricStatistic+    MetricStatistic (..),++    -- * PolicyType+    PolicyType (..),++    -- * PredictiveScalingMaxCapacityBehavior+    PredictiveScalingMaxCapacityBehavior (..),++    -- * PredictiveScalingMode+    PredictiveScalingMode (..),++    -- * ScalableDimension+    ScalableDimension (..),++    -- * ScalingMetricType+    ScalingMetricType (..),++    -- * ScalingPlanStatusCode+    ScalingPlanStatusCode (..),++    -- * ScalingPolicyUpdateBehavior+    ScalingPolicyUpdateBehavior (..),++    -- * ScalingStatusCode+    ScalingStatusCode (..),++    -- * ServiceNamespace+    ServiceNamespace (..),++    -- * ApplicationSource+    ApplicationSource (..),+    newApplicationSource,+    applicationSource_cloudFormationStackARN,+    applicationSource_tagFilters,++    -- * CustomizedLoadMetricSpecification+    CustomizedLoadMetricSpecification (..),+    newCustomizedLoadMetricSpecification,+    customizedLoadMetricSpecification_dimensions,+    customizedLoadMetricSpecification_unit,+    customizedLoadMetricSpecification_metricName,+    customizedLoadMetricSpecification_namespace,+    customizedLoadMetricSpecification_statistic,++    -- * CustomizedScalingMetricSpecification+    CustomizedScalingMetricSpecification (..),+    newCustomizedScalingMetricSpecification,+    customizedScalingMetricSpecification_dimensions,+    customizedScalingMetricSpecification_unit,+    customizedScalingMetricSpecification_metricName,+    customizedScalingMetricSpecification_namespace,+    customizedScalingMetricSpecification_statistic,++    -- * Datapoint+    Datapoint (..),+    newDatapoint,+    datapoint_timestamp,+    datapoint_value,++    -- * MetricDimension+    MetricDimension (..),+    newMetricDimension,+    metricDimension_name,+    metricDimension_value,++    -- * PredefinedLoadMetricSpecification+    PredefinedLoadMetricSpecification (..),+    newPredefinedLoadMetricSpecification,+    predefinedLoadMetricSpecification_resourceLabel,+    predefinedLoadMetricSpecification_predefinedLoadMetricType,++    -- * PredefinedScalingMetricSpecification+    PredefinedScalingMetricSpecification (..),+    newPredefinedScalingMetricSpecification,+    predefinedScalingMetricSpecification_resourceLabel,+    predefinedScalingMetricSpecification_predefinedScalingMetricType,++    -- * ScalingInstruction+    ScalingInstruction (..),+    newScalingInstruction,+    scalingInstruction_customizedLoadMetricSpecification,+    scalingInstruction_disableDynamicScaling,+    scalingInstruction_predefinedLoadMetricSpecification,+    scalingInstruction_predictiveScalingMaxCapacityBehavior,+    scalingInstruction_predictiveScalingMaxCapacityBuffer,+    scalingInstruction_predictiveScalingMode,+    scalingInstruction_scalingPolicyUpdateBehavior,+    scalingInstruction_scheduledActionBufferTime,+    scalingInstruction_serviceNamespace,+    scalingInstruction_resourceId,+    scalingInstruction_scalableDimension,+    scalingInstruction_minCapacity,+    scalingInstruction_maxCapacity,+    scalingInstruction_targetTrackingConfigurations,++    -- * ScalingPlan+    ScalingPlan (..),+    newScalingPlan,+    scalingPlan_creationTime,+    scalingPlan_statusMessage,+    scalingPlan_statusStartTime,+    scalingPlan_scalingPlanName,+    scalingPlan_scalingPlanVersion,+    scalingPlan_applicationSource,+    scalingPlan_scalingInstructions,+    scalingPlan_statusCode,++    -- * ScalingPlanResource+    ScalingPlanResource (..),+    newScalingPlanResource,+    scalingPlanResource_scalingPolicies,+    scalingPlanResource_scalingStatusMessage,+    scalingPlanResource_scalingPlanName,+    scalingPlanResource_scalingPlanVersion,+    scalingPlanResource_serviceNamespace,+    scalingPlanResource_resourceId,+    scalingPlanResource_scalableDimension,+    scalingPlanResource_scalingStatusCode,++    -- * ScalingPolicy+    ScalingPolicy (..),+    newScalingPolicy,+    scalingPolicy_targetTrackingConfiguration,+    scalingPolicy_policyName,+    scalingPolicy_policyType,++    -- * TagFilter+    TagFilter (..),+    newTagFilter,+    tagFilter_key,+    tagFilter_values,++    -- * TargetTrackingConfiguration+    TargetTrackingConfiguration (..),+    newTargetTrackingConfiguration,+    targetTrackingConfiguration_customizedScalingMetricSpecification,+    targetTrackingConfiguration_disableScaleIn,+    targetTrackingConfiguration_estimatedInstanceWarmup,+    targetTrackingConfiguration_predefinedScalingMetricSpecification,+    targetTrackingConfiguration_scaleInCooldown,+    targetTrackingConfiguration_scaleOutCooldown,+    targetTrackingConfiguration_targetValue,+  )+where++import Amazonka.AutoScalingPlans.Types.ApplicationSource+import Amazonka.AutoScalingPlans.Types.CustomizedLoadMetricSpecification+import Amazonka.AutoScalingPlans.Types.CustomizedScalingMetricSpecification+import Amazonka.AutoScalingPlans.Types.Datapoint+import Amazonka.AutoScalingPlans.Types.ForecastDataType+import Amazonka.AutoScalingPlans.Types.LoadMetricType+import Amazonka.AutoScalingPlans.Types.MetricDimension+import Amazonka.AutoScalingPlans.Types.MetricStatistic+import Amazonka.AutoScalingPlans.Types.PolicyType+import Amazonka.AutoScalingPlans.Types.PredefinedLoadMetricSpecification+import Amazonka.AutoScalingPlans.Types.PredefinedScalingMetricSpecification+import Amazonka.AutoScalingPlans.Types.PredictiveScalingMaxCapacityBehavior+import Amazonka.AutoScalingPlans.Types.PredictiveScalingMode+import Amazonka.AutoScalingPlans.Types.ScalableDimension+import Amazonka.AutoScalingPlans.Types.ScalingInstruction+import Amazonka.AutoScalingPlans.Types.ScalingMetricType+import Amazonka.AutoScalingPlans.Types.ScalingPlan+import Amazonka.AutoScalingPlans.Types.ScalingPlanResource+import Amazonka.AutoScalingPlans.Types.ScalingPlanStatusCode+import Amazonka.AutoScalingPlans.Types.ScalingPolicy+import Amazonka.AutoScalingPlans.Types.ScalingPolicyUpdateBehavior+import Amazonka.AutoScalingPlans.Types.ScalingStatusCode+import Amazonka.AutoScalingPlans.Types.ServiceNamespace+import Amazonka.AutoScalingPlans.Types.TagFilter+import Amazonka.AutoScalingPlans.Types.TargetTrackingConfiguration+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2018-01-06@ of the Amazon Auto Scaling Plans SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "AutoScalingPlans",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "autoscaling-plans",+      Core.signingName = "autoscaling-plans",+      Core.version = "2018-01-06",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "AutoScalingPlans",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | Concurrent updates caused an exception, for example, if you request an+-- update to a scaling plan that already has a pending update.+_ConcurrentUpdateException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConcurrentUpdateException =+  Core._MatchServiceError+    defaultService+    "ConcurrentUpdateException"++-- | The service encountered an internal error.+_InternalServiceException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServiceException =+  Core._MatchServiceError+    defaultService+    "InternalServiceException"++-- | The token provided is not valid.+_InvalidNextTokenException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidNextTokenException =+  Core._MatchServiceError+    defaultService+    "InvalidNextTokenException"++-- | Your account exceeded a limit. This exception is thrown when a+-- per-account resource limit is exceeded.+_LimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_LimitExceededException =+  Core._MatchServiceError+    defaultService+    "LimitExceededException"++-- | The specified object could not be found.+_ObjectNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ObjectNotFoundException =+  Core._MatchServiceError+    defaultService+    "ObjectNotFoundException"++-- | An exception was thrown for a validation issue. Review the parameters+-- provided.+_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ValidationException =+  Core._MatchServiceError+    defaultService+    "ValidationException"

@@ -0,0 +1,96 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ApplicationSource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ApplicationSource where++import Amazonka.AutoScalingPlans.Types.TagFilter+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents an application source.+--+-- /See:/ 'newApplicationSource' smart constructor.+data ApplicationSource = ApplicationSource'+  { -- | The Amazon Resource Name (ARN) of a AWS CloudFormation stack.+    cloudFormationStackARN :: Prelude.Maybe Prelude.Text,+    -- | A set of tags (up to 50).+    tagFilters :: Prelude.Maybe [TagFilter]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ApplicationSource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cloudFormationStackARN', 'applicationSource_cloudFormationStackARN' - The Amazon Resource Name (ARN) of a AWS CloudFormation stack.+--+-- 'tagFilters', 'applicationSource_tagFilters' - A set of tags (up to 50).+newApplicationSource ::+  ApplicationSource+newApplicationSource =+  ApplicationSource'+    { cloudFormationStackARN =+        Prelude.Nothing,+      tagFilters = Prelude.Nothing+    }++-- | The Amazon Resource Name (ARN) of a AWS CloudFormation stack.+applicationSource_cloudFormationStackARN :: Lens.Lens' ApplicationSource (Prelude.Maybe Prelude.Text)+applicationSource_cloudFormationStackARN = Lens.lens (\ApplicationSource' {cloudFormationStackARN} -> cloudFormationStackARN) (\s@ApplicationSource' {} a -> s {cloudFormationStackARN = a} :: ApplicationSource)++-- | A set of tags (up to 50).+applicationSource_tagFilters :: Lens.Lens' ApplicationSource (Prelude.Maybe [TagFilter])+applicationSource_tagFilters = Lens.lens (\ApplicationSource' {tagFilters} -> tagFilters) (\s@ApplicationSource' {} a -> s {tagFilters = a} :: ApplicationSource) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON ApplicationSource where+  parseJSON =+    Data.withObject+      "ApplicationSource"+      ( \x ->+          ApplicationSource'+            Prelude.<$> (x Data..:? "CloudFormationStackARN")+            Prelude.<*> (x Data..:? "TagFilters" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable ApplicationSource where+  hashWithSalt _salt ApplicationSource' {..} =+    _salt+      `Prelude.hashWithSalt` cloudFormationStackARN+      `Prelude.hashWithSalt` tagFilters++instance Prelude.NFData ApplicationSource where+  rnf ApplicationSource' {..} =+    Prelude.rnf cloudFormationStackARN+      `Prelude.seq` Prelude.rnf tagFilters++instance Data.ToJSON ApplicationSource where+  toJSON ApplicationSource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CloudFormationStackARN" Data..=)+              Prelude.<$> cloudFormationStackARN,+            ("TagFilters" Data..=) Prelude.<$> tagFilters+          ]+      )

@@ -0,0 +1,203 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.CustomizedLoadMetricSpecification+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.CustomizedLoadMetricSpecification where++import Amazonka.AutoScalingPlans.Types.MetricDimension+import Amazonka.AutoScalingPlans.Types.MetricStatistic+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a CloudWatch metric of your choosing that can be used for+-- predictive scaling.+--+-- For predictive scaling to work with a customized load metric+-- specification, AWS Auto Scaling needs access to the @Sum@ and @Average@+-- statistics that CloudWatch computes from metric data.+--+-- When you choose a load metric, make sure that the required @Sum@ and+-- @Average@ statistics for your metric are available in CloudWatch and+-- that they provide relevant data for predictive scaling. The @Sum@+-- statistic must represent the total load on the resource, and the+-- @Average@ statistic must represent the average load per capacity unit of+-- the resource. For example, there is a metric that counts the number of+-- requests processed by your Auto Scaling group. If the @Sum@ statistic+-- represents the total request count processed by the group, then the+-- @Average@ statistic for the specified metric must represent the average+-- request count processed by each instance of the group.+--+-- If you publish your own metrics, you can aggregate the data points at a+-- given interval and then publish the aggregated data points to+-- CloudWatch. Before AWS Auto Scaling generates the forecast, it sums up+-- all the metric data points that occurred within each hour to match the+-- granularity period that is used in the forecast (60 minutes).+--+-- For information about terminology, available metrics, or how to publish+-- new metrics, see+-- <https://docs.aws.amazon.com/AmazonCloudWatch/latest/monitoring/cloudwatch_concepts.html Amazon CloudWatch Concepts>+-- in the /Amazon CloudWatch User Guide/.+--+-- After creating your scaling plan, you can use the AWS Auto Scaling+-- console to visualize forecasts for the specified metric. For more+-- information, see+-- <https://docs.aws.amazon.com/autoscaling/plans/userguide/gs-create-scaling-plan.html#gs-view-resource View Scaling Information for a Resource>+-- in the /AWS Auto Scaling User Guide/.+--+-- /See:/ 'newCustomizedLoadMetricSpecification' smart constructor.+data CustomizedLoadMetricSpecification = CustomizedLoadMetricSpecification'+  { -- | The dimensions of the metric.+    --+    -- Conditional: If you published your metric with dimensions, you must+    -- specify the same dimensions in your customized load metric+    -- specification.+    dimensions :: Prelude.Maybe [MetricDimension],+    -- | The unit of the metric.+    unit :: Prelude.Maybe Prelude.Text,+    -- | The name of the metric.+    metricName :: Prelude.Text,+    -- | The namespace of the metric.+    namespace :: Prelude.Text,+    -- | The statistic of the metric. The only valid value is @Sum@.+    statistic :: MetricStatistic+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CustomizedLoadMetricSpecification' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dimensions', 'customizedLoadMetricSpecification_dimensions' - The dimensions of the metric.+--+-- Conditional: If you published your metric with dimensions, you must+-- specify the same dimensions in your customized load metric+-- specification.+--+-- 'unit', 'customizedLoadMetricSpecification_unit' - The unit of the metric.+--+-- 'metricName', 'customizedLoadMetricSpecification_metricName' - The name of the metric.+--+-- 'namespace', 'customizedLoadMetricSpecification_namespace' - The namespace of the metric.+--+-- 'statistic', 'customizedLoadMetricSpecification_statistic' - The statistic of the metric. The only valid value is @Sum@.+newCustomizedLoadMetricSpecification ::+  -- | 'metricName'+  Prelude.Text ->+  -- | 'namespace'+  Prelude.Text ->+  -- | 'statistic'+  MetricStatistic ->+  CustomizedLoadMetricSpecification+newCustomizedLoadMetricSpecification+  pMetricName_+  pNamespace_+  pStatistic_ =+    CustomizedLoadMetricSpecification'+      { dimensions =+          Prelude.Nothing,+        unit = Prelude.Nothing,+        metricName = pMetricName_,+        namespace = pNamespace_,+        statistic = pStatistic_+      }++-- | The dimensions of the metric.+--+-- Conditional: If you published your metric with dimensions, you must+-- specify the same dimensions in your customized load metric+-- specification.+customizedLoadMetricSpecification_dimensions :: Lens.Lens' CustomizedLoadMetricSpecification (Prelude.Maybe [MetricDimension])+customizedLoadMetricSpecification_dimensions = Lens.lens (\CustomizedLoadMetricSpecification' {dimensions} -> dimensions) (\s@CustomizedLoadMetricSpecification' {} a -> s {dimensions = a} :: CustomizedLoadMetricSpecification) Prelude.. Lens.mapping Lens.coerced++-- | The unit of the metric.+customizedLoadMetricSpecification_unit :: Lens.Lens' CustomizedLoadMetricSpecification (Prelude.Maybe Prelude.Text)+customizedLoadMetricSpecification_unit = Lens.lens (\CustomizedLoadMetricSpecification' {unit} -> unit) (\s@CustomizedLoadMetricSpecification' {} a -> s {unit = a} :: CustomizedLoadMetricSpecification)++-- | The name of the metric.+customizedLoadMetricSpecification_metricName :: Lens.Lens' CustomizedLoadMetricSpecification Prelude.Text+customizedLoadMetricSpecification_metricName = Lens.lens (\CustomizedLoadMetricSpecification' {metricName} -> metricName) (\s@CustomizedLoadMetricSpecification' {} a -> s {metricName = a} :: CustomizedLoadMetricSpecification)++-- | The namespace of the metric.+customizedLoadMetricSpecification_namespace :: Lens.Lens' CustomizedLoadMetricSpecification Prelude.Text+customizedLoadMetricSpecification_namespace = Lens.lens (\CustomizedLoadMetricSpecification' {namespace} -> namespace) (\s@CustomizedLoadMetricSpecification' {} a -> s {namespace = a} :: CustomizedLoadMetricSpecification)++-- | The statistic of the metric. The only valid value is @Sum@.+customizedLoadMetricSpecification_statistic :: Lens.Lens' CustomizedLoadMetricSpecification MetricStatistic+customizedLoadMetricSpecification_statistic = Lens.lens (\CustomizedLoadMetricSpecification' {statistic} -> statistic) (\s@CustomizedLoadMetricSpecification' {} a -> s {statistic = a} :: CustomizedLoadMetricSpecification)++instance+  Data.FromJSON+    CustomizedLoadMetricSpecification+  where+  parseJSON =+    Data.withObject+      "CustomizedLoadMetricSpecification"+      ( \x ->+          CustomizedLoadMetricSpecification'+            Prelude.<$> (x Data..:? "Dimensions" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "Unit")+            Prelude.<*> (x Data..: "MetricName")+            Prelude.<*> (x Data..: "Namespace")+            Prelude.<*> (x Data..: "Statistic")+      )++instance+  Prelude.Hashable+    CustomizedLoadMetricSpecification+  where+  hashWithSalt+    _salt+    CustomizedLoadMetricSpecification' {..} =+      _salt+        `Prelude.hashWithSalt` dimensions+        `Prelude.hashWithSalt` unit+        `Prelude.hashWithSalt` metricName+        `Prelude.hashWithSalt` namespace+        `Prelude.hashWithSalt` statistic++instance+  Prelude.NFData+    CustomizedLoadMetricSpecification+  where+  rnf CustomizedLoadMetricSpecification' {..} =+    Prelude.rnf dimensions+      `Prelude.seq` Prelude.rnf unit+      `Prelude.seq` Prelude.rnf metricName+      `Prelude.seq` Prelude.rnf namespace+      `Prelude.seq` Prelude.rnf statistic++instance+  Data.ToJSON+    CustomizedLoadMetricSpecification+  where+  toJSON CustomizedLoadMetricSpecification' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Dimensions" Data..=) Prelude.<$> dimensions,+            ("Unit" Data..=) Prelude.<$> unit,+            Prelude.Just ("MetricName" Data..= metricName),+            Prelude.Just ("Namespace" Data..= namespace),+            Prelude.Just ("Statistic" Data..= statistic)+          ]+      )

@@ -0,0 +1,190 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.CustomizedScalingMetricSpecification+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.CustomizedScalingMetricSpecification where++import Amazonka.AutoScalingPlans.Types.MetricDimension+import Amazonka.AutoScalingPlans.Types.MetricStatistic+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a CloudWatch metric of your choosing that can be used for+-- dynamic scaling as part of a target tracking scaling policy.+--+-- To create your customized scaling metric specification:+--+-- -   Add values for each required parameter from CloudWatch. You can use+--     an existing metric, or a new metric that you create. To use your own+--     metric, you must first publish the metric to CloudWatch. For more+--     information, see+--     <https://docs.aws.amazon.com/AmazonCloudWatch/latest/monitoring/publishingMetrics.html Publish Custom Metrics>+--     in the /Amazon CloudWatch User Guide/.+--+-- -   Choose a metric that changes proportionally with capacity. The value+--     of the metric should increase or decrease in inverse proportion to+--     the number of capacity units. That is, the value of the metric+--     should decrease when capacity increases.+--+-- For information about terminology, available metrics, or how to publish+-- new metrics, see+-- <https://docs.aws.amazon.com/AmazonCloudWatch/latest/monitoring/cloudwatch_concepts.html Amazon CloudWatch Concepts>+-- in the /Amazon CloudWatch User Guide/.+--+-- /See:/ 'newCustomizedScalingMetricSpecification' smart constructor.+data CustomizedScalingMetricSpecification = CustomizedScalingMetricSpecification'+  { -- | The dimensions of the metric.+    --+    -- Conditional: If you published your metric with dimensions, you must+    -- specify the same dimensions in your customized scaling metric+    -- specification.+    dimensions :: Prelude.Maybe [MetricDimension],+    -- | The unit of the metric.+    unit :: Prelude.Maybe Prelude.Text,+    -- | The name of the metric.+    metricName :: Prelude.Text,+    -- | The namespace of the metric.+    namespace :: Prelude.Text,+    -- | The statistic of the metric.+    statistic :: MetricStatistic+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CustomizedScalingMetricSpecification' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dimensions', 'customizedScalingMetricSpecification_dimensions' - The dimensions of the metric.+--+-- Conditional: If you published your metric with dimensions, you must+-- specify the same dimensions in your customized scaling metric+-- specification.+--+-- 'unit', 'customizedScalingMetricSpecification_unit' - The unit of the metric.+--+-- 'metricName', 'customizedScalingMetricSpecification_metricName' - The name of the metric.+--+-- 'namespace', 'customizedScalingMetricSpecification_namespace' - The namespace of the metric.+--+-- 'statistic', 'customizedScalingMetricSpecification_statistic' - The statistic of the metric.+newCustomizedScalingMetricSpecification ::+  -- | 'metricName'+  Prelude.Text ->+  -- | 'namespace'+  Prelude.Text ->+  -- | 'statistic'+  MetricStatistic ->+  CustomizedScalingMetricSpecification+newCustomizedScalingMetricSpecification+  pMetricName_+  pNamespace_+  pStatistic_ =+    CustomizedScalingMetricSpecification'+      { dimensions =+          Prelude.Nothing,+        unit = Prelude.Nothing,+        metricName = pMetricName_,+        namespace = pNamespace_,+        statistic = pStatistic_+      }++-- | The dimensions of the metric.+--+-- Conditional: If you published your metric with dimensions, you must+-- specify the same dimensions in your customized scaling metric+-- specification.+customizedScalingMetricSpecification_dimensions :: Lens.Lens' CustomizedScalingMetricSpecification (Prelude.Maybe [MetricDimension])+customizedScalingMetricSpecification_dimensions = Lens.lens (\CustomizedScalingMetricSpecification' {dimensions} -> dimensions) (\s@CustomizedScalingMetricSpecification' {} a -> s {dimensions = a} :: CustomizedScalingMetricSpecification) Prelude.. Lens.mapping Lens.coerced++-- | The unit of the metric.+customizedScalingMetricSpecification_unit :: Lens.Lens' CustomizedScalingMetricSpecification (Prelude.Maybe Prelude.Text)+customizedScalingMetricSpecification_unit = Lens.lens (\CustomizedScalingMetricSpecification' {unit} -> unit) (\s@CustomizedScalingMetricSpecification' {} a -> s {unit = a} :: CustomizedScalingMetricSpecification)++-- | The name of the metric.+customizedScalingMetricSpecification_metricName :: Lens.Lens' CustomizedScalingMetricSpecification Prelude.Text+customizedScalingMetricSpecification_metricName = Lens.lens (\CustomizedScalingMetricSpecification' {metricName} -> metricName) (\s@CustomizedScalingMetricSpecification' {} a -> s {metricName = a} :: CustomizedScalingMetricSpecification)++-- | The namespace of the metric.+customizedScalingMetricSpecification_namespace :: Lens.Lens' CustomizedScalingMetricSpecification Prelude.Text+customizedScalingMetricSpecification_namespace = Lens.lens (\CustomizedScalingMetricSpecification' {namespace} -> namespace) (\s@CustomizedScalingMetricSpecification' {} a -> s {namespace = a} :: CustomizedScalingMetricSpecification)++-- | The statistic of the metric.+customizedScalingMetricSpecification_statistic :: Lens.Lens' CustomizedScalingMetricSpecification MetricStatistic+customizedScalingMetricSpecification_statistic = Lens.lens (\CustomizedScalingMetricSpecification' {statistic} -> statistic) (\s@CustomizedScalingMetricSpecification' {} a -> s {statistic = a} :: CustomizedScalingMetricSpecification)++instance+  Data.FromJSON+    CustomizedScalingMetricSpecification+  where+  parseJSON =+    Data.withObject+      "CustomizedScalingMetricSpecification"+      ( \x ->+          CustomizedScalingMetricSpecification'+            Prelude.<$> (x Data..:? "Dimensions" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "Unit")+            Prelude.<*> (x Data..: "MetricName")+            Prelude.<*> (x Data..: "Namespace")+            Prelude.<*> (x Data..: "Statistic")+      )++instance+  Prelude.Hashable+    CustomizedScalingMetricSpecification+  where+  hashWithSalt+    _salt+    CustomizedScalingMetricSpecification' {..} =+      _salt+        `Prelude.hashWithSalt` dimensions+        `Prelude.hashWithSalt` unit+        `Prelude.hashWithSalt` metricName+        `Prelude.hashWithSalt` namespace+        `Prelude.hashWithSalt` statistic++instance+  Prelude.NFData+    CustomizedScalingMetricSpecification+  where+  rnf CustomizedScalingMetricSpecification' {..} =+    Prelude.rnf dimensions+      `Prelude.seq` Prelude.rnf unit+      `Prelude.seq` Prelude.rnf metricName+      `Prelude.seq` Prelude.rnf namespace+      `Prelude.seq` Prelude.rnf statistic++instance+  Data.ToJSON+    CustomizedScalingMetricSpecification+  where+  toJSON CustomizedScalingMetricSpecification' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Dimensions" Data..=) Prelude.<$> dimensions,+            ("Unit" Data..=) Prelude.<$> unit,+            Prelude.Just ("MetricName" Data..= metricName),+            Prelude.Just ("Namespace" Data..= namespace),+            Prelude.Just ("Statistic" Data..= statistic)+          ]+      )

@@ -0,0 +1,85 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.Datapoint+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.Datapoint where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a single value in the forecast data used for predictive+-- scaling.+--+-- /See:/ 'newDatapoint' smart constructor.+data Datapoint = Datapoint'+  { -- | The time stamp for the data point in UTC format.+    timestamp :: Prelude.Maybe Data.POSIX,+    -- | The value of the data point.+    value :: Prelude.Maybe Prelude.Double+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Datapoint' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'timestamp', 'datapoint_timestamp' - The time stamp for the data point in UTC format.+--+-- 'value', 'datapoint_value' - The value of the data point.+newDatapoint ::+  Datapoint+newDatapoint =+  Datapoint'+    { timestamp = Prelude.Nothing,+      value = Prelude.Nothing+    }++-- | The time stamp for the data point in UTC format.+datapoint_timestamp :: Lens.Lens' Datapoint (Prelude.Maybe Prelude.UTCTime)+datapoint_timestamp = Lens.lens (\Datapoint' {timestamp} -> timestamp) (\s@Datapoint' {} a -> s {timestamp = a} :: Datapoint) Prelude.. Lens.mapping Data._Time++-- | The value of the data point.+datapoint_value :: Lens.Lens' Datapoint (Prelude.Maybe Prelude.Double)+datapoint_value = Lens.lens (\Datapoint' {value} -> value) (\s@Datapoint' {} a -> s {value = a} :: Datapoint)++instance Data.FromJSON Datapoint where+  parseJSON =+    Data.withObject+      "Datapoint"+      ( \x ->+          Datapoint'+            Prelude.<$> (x Data..:? "Timestamp")+            Prelude.<*> (x Data..:? "Value")+      )++instance Prelude.Hashable Datapoint where+  hashWithSalt _salt Datapoint' {..} =+    _salt+      `Prelude.hashWithSalt` timestamp+      `Prelude.hashWithSalt` value++instance Prelude.NFData Datapoint where+  rnf Datapoint' {..} =+    Prelude.rnf timestamp+      `Prelude.seq` Prelude.rnf value

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ForecastDataType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ForecastDataType+  ( ForecastDataType+      ( ..,+        ForecastDataType_CapacityForecast,+        ForecastDataType_LoadForecast,+        ForecastDataType_ScheduledActionMaxCapacity,+        ForecastDataType_ScheduledActionMinCapacity+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ForecastDataType = ForecastDataType'+  { fromForecastDataType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ForecastDataType_CapacityForecast :: ForecastDataType+pattern ForecastDataType_CapacityForecast = ForecastDataType' "CapacityForecast"++pattern ForecastDataType_LoadForecast :: ForecastDataType+pattern ForecastDataType_LoadForecast = ForecastDataType' "LoadForecast"++pattern ForecastDataType_ScheduledActionMaxCapacity :: ForecastDataType+pattern ForecastDataType_ScheduledActionMaxCapacity = ForecastDataType' "ScheduledActionMaxCapacity"++pattern ForecastDataType_ScheduledActionMinCapacity :: ForecastDataType+pattern ForecastDataType_ScheduledActionMinCapacity = ForecastDataType' "ScheduledActionMinCapacity"++{-# COMPLETE+  ForecastDataType_CapacityForecast,+  ForecastDataType_LoadForecast,+  ForecastDataType_ScheduledActionMaxCapacity,+  ForecastDataType_ScheduledActionMinCapacity,+  ForecastDataType'+  #-}

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.LoadMetricType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.LoadMetricType+  ( LoadMetricType+      ( ..,+        LoadMetricType_ALBTargetGroupRequestCount,+        LoadMetricType_ASGTotalCPUUtilization,+        LoadMetricType_ASGTotalNetworkIn,+        LoadMetricType_ASGTotalNetworkOut+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype LoadMetricType = LoadMetricType'+  { fromLoadMetricType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern LoadMetricType_ALBTargetGroupRequestCount :: LoadMetricType+pattern LoadMetricType_ALBTargetGroupRequestCount = LoadMetricType' "ALBTargetGroupRequestCount"++pattern LoadMetricType_ASGTotalCPUUtilization :: LoadMetricType+pattern LoadMetricType_ASGTotalCPUUtilization = LoadMetricType' "ASGTotalCPUUtilization"++pattern LoadMetricType_ASGTotalNetworkIn :: LoadMetricType+pattern LoadMetricType_ASGTotalNetworkIn = LoadMetricType' "ASGTotalNetworkIn"++pattern LoadMetricType_ASGTotalNetworkOut :: LoadMetricType+pattern LoadMetricType_ASGTotalNetworkOut = LoadMetricType' "ASGTotalNetworkOut"++{-# COMPLETE+  LoadMetricType_ALBTargetGroupRequestCount,+  LoadMetricType_ASGTotalCPUUtilization,+  LoadMetricType_ASGTotalNetworkIn,+  LoadMetricType_ASGTotalNetworkOut,+  LoadMetricType'+  #-}

@@ -0,0 +1,93 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.MetricDimension+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.MetricDimension where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a dimension for a customized metric.+--+-- /See:/ 'newMetricDimension' smart constructor.+data MetricDimension = MetricDimension'+  { -- | The name of the dimension.+    name :: Prelude.Text,+    -- | The value of the dimension.+    value :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'MetricDimension' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'metricDimension_name' - The name of the dimension.+--+-- 'value', 'metricDimension_value' - The value of the dimension.+newMetricDimension ::+  -- | 'name'+  Prelude.Text ->+  -- | 'value'+  Prelude.Text ->+  MetricDimension+newMetricDimension pName_ pValue_ =+  MetricDimension' {name = pName_, value = pValue_}++-- | The name of the dimension.+metricDimension_name :: Lens.Lens' MetricDimension Prelude.Text+metricDimension_name = Lens.lens (\MetricDimension' {name} -> name) (\s@MetricDimension' {} a -> s {name = a} :: MetricDimension)++-- | The value of the dimension.+metricDimension_value :: Lens.Lens' MetricDimension Prelude.Text+metricDimension_value = Lens.lens (\MetricDimension' {value} -> value) (\s@MetricDimension' {} a -> s {value = a} :: MetricDimension)++instance Data.FromJSON MetricDimension where+  parseJSON =+    Data.withObject+      "MetricDimension"+      ( \x ->+          MetricDimension'+            Prelude.<$> (x Data..: "Name")+            Prelude.<*> (x Data..: "Value")+      )++instance Prelude.Hashable MetricDimension where+  hashWithSalt _salt MetricDimension' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` value++instance Prelude.NFData MetricDimension where+  rnf MetricDimension' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf value++instance Data.ToJSON MetricDimension where+  toJSON MetricDimension' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Value" Data..= value)+          ]+      )

@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.MetricStatistic+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.MetricStatistic+  ( MetricStatistic+      ( ..,+        MetricStatistic_Average,+        MetricStatistic_Maximum,+        MetricStatistic_Minimum,+        MetricStatistic_SampleCount,+        MetricStatistic_Sum+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype MetricStatistic = MetricStatistic'+  { fromMetricStatistic ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern MetricStatistic_Average :: MetricStatistic+pattern MetricStatistic_Average = MetricStatistic' "Average"++pattern MetricStatistic_Maximum :: MetricStatistic+pattern MetricStatistic_Maximum = MetricStatistic' "Maximum"++pattern MetricStatistic_Minimum :: MetricStatistic+pattern MetricStatistic_Minimum = MetricStatistic' "Minimum"++pattern MetricStatistic_SampleCount :: MetricStatistic+pattern MetricStatistic_SampleCount = MetricStatistic' "SampleCount"++pattern MetricStatistic_Sum :: MetricStatistic+pattern MetricStatistic_Sum = MetricStatistic' "Sum"++{-# COMPLETE+  MetricStatistic_Average,+  MetricStatistic_Maximum,+  MetricStatistic_Minimum,+  MetricStatistic_SampleCount,+  MetricStatistic_Sum,+  MetricStatistic'+  #-}

@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.PolicyType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.PolicyType+  ( PolicyType+      ( ..,+        PolicyType_TargetTrackingScaling+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype PolicyType = PolicyType'+  { fromPolicyType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern PolicyType_TargetTrackingScaling :: PolicyType+pattern PolicyType_TargetTrackingScaling = PolicyType' "TargetTrackingScaling"++{-# COMPLETE+  PolicyType_TargetTrackingScaling,+  PolicyType'+  #-}

@@ -0,0 +1,194 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.PredefinedLoadMetricSpecification+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.PredefinedLoadMetricSpecification where++import Amazonka.AutoScalingPlans.Types.LoadMetricType+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a predefined metric that can be used for predictive scaling.+--+-- After creating your scaling plan, you can use the AWS Auto Scaling+-- console to visualize forecasts for the specified metric. For more+-- information, see+-- <https://docs.aws.amazon.com/autoscaling/plans/userguide/gs-create-scaling-plan.html#gs-view-resource View Scaling Information for a Resource>+-- in the /AWS Auto Scaling User Guide/.+--+-- /See:/ 'newPredefinedLoadMetricSpecification' smart constructor.+data PredefinedLoadMetricSpecification = PredefinedLoadMetricSpecification'+  { -- | Identifies the resource associated with the metric type. You can\'t+    -- specify a resource label unless the metric type is+    -- @ALBTargetGroupRequestCount@ and there is a target group for an+    -- Application Load Balancer attached to the Auto Scaling group.+    --+    -- You create the resource label by appending the final portion of the load+    -- balancer ARN and the final portion of the target group ARN into a single+    -- value, separated by a forward slash (\/). The format is+    -- app\/\<load-balancer-name>\/\<load-balancer-id>\/targetgroup\/\<target-group-name>\/\<target-group-id>,+    -- where:+    --+    -- -   app\/\<load-balancer-name>\/\<load-balancer-id> is the final portion+    --     of the load balancer ARN+    --+    -- -   targetgroup\/\<target-group-name>\/\<target-group-id> is the final+    --     portion of the target group ARN.+    --+    -- This is an example:+    -- app\/EC2Co-EcsEl-1TKLTMITMM0EO\/f37c06a68c1748aa\/targetgroup\/EC2Co-Defau-LDNM7Q3ZH1ZN\/6d4ea56ca2d6a18d.+    --+    -- To find the ARN for an Application Load Balancer, use the+    -- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>+    -- API operation. To find the ARN for the target group, use the+    -- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeTargetGroups.html DescribeTargetGroups>+    -- API operation.+    resourceLabel :: Prelude.Maybe Prelude.Text,+    -- | The metric type.+    predefinedLoadMetricType :: LoadMetricType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PredefinedLoadMetricSpecification' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceLabel', 'predefinedLoadMetricSpecification_resourceLabel' - Identifies the resource associated with the metric type. You can\'t+-- specify a resource label unless the metric type is+-- @ALBTargetGroupRequestCount@ and there is a target group for an+-- Application Load Balancer attached to the Auto Scaling group.+--+-- You create the resource label by appending the final portion of the load+-- balancer ARN and the final portion of the target group ARN into a single+-- value, separated by a forward slash (\/). The format is+-- app\/\<load-balancer-name>\/\<load-balancer-id>\/targetgroup\/\<target-group-name>\/\<target-group-id>,+-- where:+--+-- -   app\/\<load-balancer-name>\/\<load-balancer-id> is the final portion+--     of the load balancer ARN+--+-- -   targetgroup\/\<target-group-name>\/\<target-group-id> is the final+--     portion of the target group ARN.+--+-- This is an example:+-- app\/EC2Co-EcsEl-1TKLTMITMM0EO\/f37c06a68c1748aa\/targetgroup\/EC2Co-Defau-LDNM7Q3ZH1ZN\/6d4ea56ca2d6a18d.+--+-- To find the ARN for an Application Load Balancer, use the+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>+-- API operation. To find the ARN for the target group, use the+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeTargetGroups.html DescribeTargetGroups>+-- API operation.+--+-- 'predefinedLoadMetricType', 'predefinedLoadMetricSpecification_predefinedLoadMetricType' - The metric type.+newPredefinedLoadMetricSpecification ::+  -- | 'predefinedLoadMetricType'+  LoadMetricType ->+  PredefinedLoadMetricSpecification+newPredefinedLoadMetricSpecification+  pPredefinedLoadMetricType_ =+    PredefinedLoadMetricSpecification'+      { resourceLabel =+          Prelude.Nothing,+        predefinedLoadMetricType =+          pPredefinedLoadMetricType_+      }++-- | Identifies the resource associated with the metric type. You can\'t+-- specify a resource label unless the metric type is+-- @ALBTargetGroupRequestCount@ and there is a target group for an+-- Application Load Balancer attached to the Auto Scaling group.+--+-- You create the resource label by appending the final portion of the load+-- balancer ARN and the final portion of the target group ARN into a single+-- value, separated by a forward slash (\/). The format is+-- app\/\<load-balancer-name>\/\<load-balancer-id>\/targetgroup\/\<target-group-name>\/\<target-group-id>,+-- where:+--+-- -   app\/\<load-balancer-name>\/\<load-balancer-id> is the final portion+--     of the load balancer ARN+--+-- -   targetgroup\/\<target-group-name>\/\<target-group-id> is the final+--     portion of the target group ARN.+--+-- This is an example:+-- app\/EC2Co-EcsEl-1TKLTMITMM0EO\/f37c06a68c1748aa\/targetgroup\/EC2Co-Defau-LDNM7Q3ZH1ZN\/6d4ea56ca2d6a18d.+--+-- To find the ARN for an Application Load Balancer, use the+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>+-- API operation. To find the ARN for the target group, use the+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeTargetGroups.html DescribeTargetGroups>+-- API operation.+predefinedLoadMetricSpecification_resourceLabel :: Lens.Lens' PredefinedLoadMetricSpecification (Prelude.Maybe Prelude.Text)+predefinedLoadMetricSpecification_resourceLabel = Lens.lens (\PredefinedLoadMetricSpecification' {resourceLabel} -> resourceLabel) (\s@PredefinedLoadMetricSpecification' {} a -> s {resourceLabel = a} :: PredefinedLoadMetricSpecification)++-- | The metric type.+predefinedLoadMetricSpecification_predefinedLoadMetricType :: Lens.Lens' PredefinedLoadMetricSpecification LoadMetricType+predefinedLoadMetricSpecification_predefinedLoadMetricType = Lens.lens (\PredefinedLoadMetricSpecification' {predefinedLoadMetricType} -> predefinedLoadMetricType) (\s@PredefinedLoadMetricSpecification' {} a -> s {predefinedLoadMetricType = a} :: PredefinedLoadMetricSpecification)++instance+  Data.FromJSON+    PredefinedLoadMetricSpecification+  where+  parseJSON =+    Data.withObject+      "PredefinedLoadMetricSpecification"+      ( \x ->+          PredefinedLoadMetricSpecification'+            Prelude.<$> (x Data..:? "ResourceLabel")+            Prelude.<*> (x Data..: "PredefinedLoadMetricType")+      )++instance+  Prelude.Hashable+    PredefinedLoadMetricSpecification+  where+  hashWithSalt+    _salt+    PredefinedLoadMetricSpecification' {..} =+      _salt+        `Prelude.hashWithSalt` resourceLabel+        `Prelude.hashWithSalt` predefinedLoadMetricType++instance+  Prelude.NFData+    PredefinedLoadMetricSpecification+  where+  rnf PredefinedLoadMetricSpecification' {..} =+    Prelude.rnf resourceLabel+      `Prelude.seq` Prelude.rnf predefinedLoadMetricType++instance+  Data.ToJSON+    PredefinedLoadMetricSpecification+  where+  toJSON PredefinedLoadMetricSpecification' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ResourceLabel" Data..=) Prelude.<$> resourceLabel,+            Prelude.Just+              ( "PredefinedLoadMetricType"+                  Data..= predefinedLoadMetricType+              )+          ]+      )

@@ -0,0 +1,195 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.PredefinedScalingMetricSpecification+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.PredefinedScalingMetricSpecification where++import Amazonka.AutoScalingPlans.Types.ScalingMetricType+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a predefined metric that can be used for dynamic scaling as+-- part of a target tracking scaling policy.+--+-- /See:/ 'newPredefinedScalingMetricSpecification' smart constructor.+data PredefinedScalingMetricSpecification = PredefinedScalingMetricSpecification'+  { -- | Identifies the resource associated with the metric type. You can\'t+    -- specify a resource label unless the metric type is+    -- @ALBRequestCountPerTarget@ and there is a target group for an+    -- Application Load Balancer attached to the Auto Scaling group, Spot Fleet+    -- request, or ECS service.+    --+    -- You create the resource label by appending the final portion of the load+    -- balancer ARN and the final portion of the target group ARN into a single+    -- value, separated by a forward slash (\/). The format is+    -- app\/\<load-balancer-name>\/\<load-balancer-id>\/targetgroup\/\<target-group-name>\/\<target-group-id>,+    -- where:+    --+    -- -   app\/\<load-balancer-name>\/\<load-balancer-id> is the final portion+    --     of the load balancer ARN+    --+    -- -   targetgroup\/\<target-group-name>\/\<target-group-id> is the final+    --     portion of the target group ARN.+    --+    -- This is an example:+    -- app\/EC2Co-EcsEl-1TKLTMITMM0EO\/f37c06a68c1748aa\/targetgroup\/EC2Co-Defau-LDNM7Q3ZH1ZN\/6d4ea56ca2d6a18d.+    --+    -- To find the ARN for an Application Load Balancer, use the+    -- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>+    -- API operation. To find the ARN for the target group, use the+    -- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeTargetGroups.html DescribeTargetGroups>+    -- API operation.+    resourceLabel :: Prelude.Maybe Prelude.Text,+    -- | The metric type. The @ALBRequestCountPerTarget@ metric type applies only+    -- to Auto Scaling groups, Spot Fleet requests, and ECS services.+    predefinedScalingMetricType :: ScalingMetricType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PredefinedScalingMetricSpecification' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceLabel', 'predefinedScalingMetricSpecification_resourceLabel' - Identifies the resource associated with the metric type. You can\'t+-- specify a resource label unless the metric type is+-- @ALBRequestCountPerTarget@ and there is a target group for an+-- Application Load Balancer attached to the Auto Scaling group, Spot Fleet+-- request, or ECS service.+--+-- You create the resource label by appending the final portion of the load+-- balancer ARN and the final portion of the target group ARN into a single+-- value, separated by a forward slash (\/). The format is+-- app\/\<load-balancer-name>\/\<load-balancer-id>\/targetgroup\/\<target-group-name>\/\<target-group-id>,+-- where:+--+-- -   app\/\<load-balancer-name>\/\<load-balancer-id> is the final portion+--     of the load balancer ARN+--+-- -   targetgroup\/\<target-group-name>\/\<target-group-id> is the final+--     portion of the target group ARN.+--+-- This is an example:+-- app\/EC2Co-EcsEl-1TKLTMITMM0EO\/f37c06a68c1748aa\/targetgroup\/EC2Co-Defau-LDNM7Q3ZH1ZN\/6d4ea56ca2d6a18d.+--+-- To find the ARN for an Application Load Balancer, use the+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>+-- API operation. To find the ARN for the target group, use the+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeTargetGroups.html DescribeTargetGroups>+-- API operation.+--+-- 'predefinedScalingMetricType', 'predefinedScalingMetricSpecification_predefinedScalingMetricType' - The metric type. The @ALBRequestCountPerTarget@ metric type applies only+-- to Auto Scaling groups, Spot Fleet requests, and ECS services.+newPredefinedScalingMetricSpecification ::+  -- | 'predefinedScalingMetricType'+  ScalingMetricType ->+  PredefinedScalingMetricSpecification+newPredefinedScalingMetricSpecification+  pPredefinedScalingMetricType_ =+    PredefinedScalingMetricSpecification'+      { resourceLabel =+          Prelude.Nothing,+        predefinedScalingMetricType =+          pPredefinedScalingMetricType_+      }++-- | Identifies the resource associated with the metric type. You can\'t+-- specify a resource label unless the metric type is+-- @ALBRequestCountPerTarget@ and there is a target group for an+-- Application Load Balancer attached to the Auto Scaling group, Spot Fleet+-- request, or ECS service.+--+-- You create the resource label by appending the final portion of the load+-- balancer ARN and the final portion of the target group ARN into a single+-- value, separated by a forward slash (\/). The format is+-- app\/\<load-balancer-name>\/\<load-balancer-id>\/targetgroup\/\<target-group-name>\/\<target-group-id>,+-- where:+--+-- -   app\/\<load-balancer-name>\/\<load-balancer-id> is the final portion+--     of the load balancer ARN+--+-- -   targetgroup\/\<target-group-name>\/\<target-group-id> is the final+--     portion of the target group ARN.+--+-- This is an example:+-- app\/EC2Co-EcsEl-1TKLTMITMM0EO\/f37c06a68c1748aa\/targetgroup\/EC2Co-Defau-LDNM7Q3ZH1ZN\/6d4ea56ca2d6a18d.+--+-- To find the ARN for an Application Load Balancer, use the+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeLoadBalancers.html DescribeLoadBalancers>+-- API operation. To find the ARN for the target group, use the+-- <https://docs.aws.amazon.com/elasticloadbalancing/latest/APIReference/API_DescribeTargetGroups.html DescribeTargetGroups>+-- API operation.+predefinedScalingMetricSpecification_resourceLabel :: Lens.Lens' PredefinedScalingMetricSpecification (Prelude.Maybe Prelude.Text)+predefinedScalingMetricSpecification_resourceLabel = Lens.lens (\PredefinedScalingMetricSpecification' {resourceLabel} -> resourceLabel) (\s@PredefinedScalingMetricSpecification' {} a -> s {resourceLabel = a} :: PredefinedScalingMetricSpecification)++-- | The metric type. The @ALBRequestCountPerTarget@ metric type applies only+-- to Auto Scaling groups, Spot Fleet requests, and ECS services.+predefinedScalingMetricSpecification_predefinedScalingMetricType :: Lens.Lens' PredefinedScalingMetricSpecification ScalingMetricType+predefinedScalingMetricSpecification_predefinedScalingMetricType = Lens.lens (\PredefinedScalingMetricSpecification' {predefinedScalingMetricType} -> predefinedScalingMetricType) (\s@PredefinedScalingMetricSpecification' {} a -> s {predefinedScalingMetricType = a} :: PredefinedScalingMetricSpecification)++instance+  Data.FromJSON+    PredefinedScalingMetricSpecification+  where+  parseJSON =+    Data.withObject+      "PredefinedScalingMetricSpecification"+      ( \x ->+          PredefinedScalingMetricSpecification'+            Prelude.<$> (x Data..:? "ResourceLabel")+            Prelude.<*> (x Data..: "PredefinedScalingMetricType")+      )++instance+  Prelude.Hashable+    PredefinedScalingMetricSpecification+  where+  hashWithSalt+    _salt+    PredefinedScalingMetricSpecification' {..} =+      _salt+        `Prelude.hashWithSalt` resourceLabel+        `Prelude.hashWithSalt` predefinedScalingMetricType++instance+  Prelude.NFData+    PredefinedScalingMetricSpecification+  where+  rnf PredefinedScalingMetricSpecification' {..} =+    Prelude.rnf resourceLabel+      `Prelude.seq` Prelude.rnf predefinedScalingMetricType++instance+  Data.ToJSON+    PredefinedScalingMetricSpecification+  where+  toJSON PredefinedScalingMetricSpecification' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ResourceLabel" Data..=) Prelude.<$> resourceLabel,+            Prelude.Just+              ( "PredefinedScalingMetricType"+                  Data..= predefinedScalingMetricType+              )+          ]+      )

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.PredictiveScalingMaxCapacityBehavior+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.PredictiveScalingMaxCapacityBehavior+  ( PredictiveScalingMaxCapacityBehavior+      ( ..,+        PredictiveScalingMaxCapacityBehavior_SetForecastCapacityToMaxCapacity,+        PredictiveScalingMaxCapacityBehavior_SetMaxCapacityAboveForecastCapacity,+        PredictiveScalingMaxCapacityBehavior_SetMaxCapacityToForecastCapacity+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype PredictiveScalingMaxCapacityBehavior = PredictiveScalingMaxCapacityBehavior'+  { fromPredictiveScalingMaxCapacityBehavior ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern PredictiveScalingMaxCapacityBehavior_SetForecastCapacityToMaxCapacity :: PredictiveScalingMaxCapacityBehavior+pattern PredictiveScalingMaxCapacityBehavior_SetForecastCapacityToMaxCapacity = PredictiveScalingMaxCapacityBehavior' "SetForecastCapacityToMaxCapacity"++pattern PredictiveScalingMaxCapacityBehavior_SetMaxCapacityAboveForecastCapacity :: PredictiveScalingMaxCapacityBehavior+pattern PredictiveScalingMaxCapacityBehavior_SetMaxCapacityAboveForecastCapacity = PredictiveScalingMaxCapacityBehavior' "SetMaxCapacityAboveForecastCapacity"++pattern PredictiveScalingMaxCapacityBehavior_SetMaxCapacityToForecastCapacity :: PredictiveScalingMaxCapacityBehavior+pattern PredictiveScalingMaxCapacityBehavior_SetMaxCapacityToForecastCapacity = PredictiveScalingMaxCapacityBehavior' "SetMaxCapacityToForecastCapacity"++{-# COMPLETE+  PredictiveScalingMaxCapacityBehavior_SetForecastCapacityToMaxCapacity,+  PredictiveScalingMaxCapacityBehavior_SetMaxCapacityAboveForecastCapacity,+  PredictiveScalingMaxCapacityBehavior_SetMaxCapacityToForecastCapacity,+  PredictiveScalingMaxCapacityBehavior'+  #-}

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.PredictiveScalingMode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.PredictiveScalingMode+  ( PredictiveScalingMode+      ( ..,+        PredictiveScalingMode_ForecastAndScale,+        PredictiveScalingMode_ForecastOnly+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype PredictiveScalingMode = PredictiveScalingMode'+  { fromPredictiveScalingMode ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern PredictiveScalingMode_ForecastAndScale :: PredictiveScalingMode+pattern PredictiveScalingMode_ForecastAndScale = PredictiveScalingMode' "ForecastAndScale"++pattern PredictiveScalingMode_ForecastOnly :: PredictiveScalingMode+pattern PredictiveScalingMode_ForecastOnly = PredictiveScalingMode' "ForecastOnly"++{-# COMPLETE+  PredictiveScalingMode_ForecastAndScale,+  PredictiveScalingMode_ForecastOnly,+  PredictiveScalingMode'+  #-}

@@ -0,0 +1,101 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ScalableDimension+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ScalableDimension+  ( ScalableDimension+      ( ..,+        ScalableDimension_Autoscaling_autoScalingGroup_DesiredCapacity,+        ScalableDimension_Dynamodb_index_ReadCapacityUnits,+        ScalableDimension_Dynamodb_index_WriteCapacityUnits,+        ScalableDimension_Dynamodb_table_ReadCapacityUnits,+        ScalableDimension_Dynamodb_table_WriteCapacityUnits,+        ScalableDimension_Ec2_spot_fleet_request_TargetCapacity,+        ScalableDimension_Ecs_service_DesiredCount,+        ScalableDimension_Rds_cluster_ReadReplicaCount+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ScalableDimension = ScalableDimension'+  { fromScalableDimension ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ScalableDimension_Autoscaling_autoScalingGroup_DesiredCapacity :: ScalableDimension+pattern ScalableDimension_Autoscaling_autoScalingGroup_DesiredCapacity = ScalableDimension' "autoscaling:autoScalingGroup:DesiredCapacity"++pattern ScalableDimension_Dynamodb_index_ReadCapacityUnits :: ScalableDimension+pattern ScalableDimension_Dynamodb_index_ReadCapacityUnits = ScalableDimension' "dynamodb:index:ReadCapacityUnits"++pattern ScalableDimension_Dynamodb_index_WriteCapacityUnits :: ScalableDimension+pattern ScalableDimension_Dynamodb_index_WriteCapacityUnits = ScalableDimension' "dynamodb:index:WriteCapacityUnits"++pattern ScalableDimension_Dynamodb_table_ReadCapacityUnits :: ScalableDimension+pattern ScalableDimension_Dynamodb_table_ReadCapacityUnits = ScalableDimension' "dynamodb:table:ReadCapacityUnits"++pattern ScalableDimension_Dynamodb_table_WriteCapacityUnits :: ScalableDimension+pattern ScalableDimension_Dynamodb_table_WriteCapacityUnits = ScalableDimension' "dynamodb:table:WriteCapacityUnits"++pattern ScalableDimension_Ec2_spot_fleet_request_TargetCapacity :: ScalableDimension+pattern ScalableDimension_Ec2_spot_fleet_request_TargetCapacity = ScalableDimension' "ec2:spot-fleet-request:TargetCapacity"++pattern ScalableDimension_Ecs_service_DesiredCount :: ScalableDimension+pattern ScalableDimension_Ecs_service_DesiredCount = ScalableDimension' "ecs:service:DesiredCount"++pattern ScalableDimension_Rds_cluster_ReadReplicaCount :: ScalableDimension+pattern ScalableDimension_Rds_cluster_ReadReplicaCount = ScalableDimension' "rds:cluster:ReadReplicaCount"++{-# COMPLETE+  ScalableDimension_Autoscaling_autoScalingGroup_DesiredCapacity,+  ScalableDimension_Dynamodb_index_ReadCapacityUnits,+  ScalableDimension_Dynamodb_index_WriteCapacityUnits,+  ScalableDimension_Dynamodb_table_ReadCapacityUnits,+  ScalableDimension_Dynamodb_table_WriteCapacityUnits,+  ScalableDimension_Ec2_spot_fleet_request_TargetCapacity,+  ScalableDimension_Ecs_service_DesiredCount,+  ScalableDimension_Rds_cluster_ReadReplicaCount,+  ScalableDimension'+  #-}

@@ -0,0 +1,661 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ScalingInstruction+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ScalingInstruction where++import Amazonka.AutoScalingPlans.Types.CustomizedLoadMetricSpecification+import Amazonka.AutoScalingPlans.Types.PredefinedLoadMetricSpecification+import Amazonka.AutoScalingPlans.Types.PredictiveScalingMaxCapacityBehavior+import Amazonka.AutoScalingPlans.Types.PredictiveScalingMode+import Amazonka.AutoScalingPlans.Types.ScalableDimension+import Amazonka.AutoScalingPlans.Types.ScalingPolicyUpdateBehavior+import Amazonka.AutoScalingPlans.Types.ServiceNamespace+import Amazonka.AutoScalingPlans.Types.TargetTrackingConfiguration+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Describes a scaling instruction for a scalable resource in a scaling+-- plan. Each scaling instruction applies to one resource.+--+-- AWS Auto Scaling creates target tracking scaling policies based on the+-- scaling instructions. Target tracking scaling policies adjust the+-- capacity of your scalable resource as required to maintain resource+-- utilization at the target value that you specified.+--+-- AWS Auto Scaling also configures predictive scaling for your Amazon EC2+-- Auto Scaling groups using a subset of parameters, including the load+-- metric, the scaling metric, the target value for the scaling metric, the+-- predictive scaling mode (forecast and scale or forecast only), and the+-- desired behavior when the forecast capacity exceeds the maximum capacity+-- of the resource. With predictive scaling, AWS Auto Scaling generates+-- forecasts with traffic predictions for the two days ahead and schedules+-- scaling actions that proactively add and remove resource capacity to+-- match the forecast.+--+-- We recommend waiting a minimum of 24 hours after creating an Auto+-- Scaling group to configure predictive scaling. At minimum, there must be+-- 24 hours of historical data to generate a forecast. For more+-- information, see+-- <https://docs.aws.amazon.com/autoscaling/plans/userguide/gs-best-practices.html Best Practices for AWS Auto Scaling>+-- in the /AWS Auto Scaling User Guide/.+--+-- /See:/ 'newScalingInstruction' smart constructor.+data ScalingInstruction = ScalingInstruction'+  { -- | The customized load metric to use for predictive scaling. This parameter+    -- or a __PredefinedLoadMetricSpecification__ is required when configuring+    -- predictive scaling, and cannot be used otherwise.+    customizedLoadMetricSpecification :: Prelude.Maybe CustomizedLoadMetricSpecification,+    -- | Controls whether dynamic scaling by AWS Auto Scaling is disabled. When+    -- dynamic scaling is enabled, AWS Auto Scaling creates target tracking+    -- scaling policies based on the specified target tracking configurations.+    --+    -- The default is enabled (@false@).+    disableDynamicScaling :: Prelude.Maybe Prelude.Bool,+    -- | The predefined load metric to use for predictive scaling. This parameter+    -- or a __CustomizedLoadMetricSpecification__ is required when configuring+    -- predictive scaling, and cannot be used otherwise.+    predefinedLoadMetricSpecification :: Prelude.Maybe PredefinedLoadMetricSpecification,+    -- | Defines the behavior that should be applied if the forecast capacity+    -- approaches or exceeds the maximum capacity specified for the resource.+    -- The default value is @SetForecastCapacityToMaxCapacity@.+    --+    -- The following are possible values:+    --+    -- -   @SetForecastCapacityToMaxCapacity@ - AWS Auto Scaling cannot scale+    --     resource capacity higher than the maximum capacity. The maximum+    --     capacity is enforced as a hard limit.+    --+    -- -   @SetMaxCapacityToForecastCapacity@ - AWS Auto Scaling may scale+    --     resource capacity higher than the maximum capacity to equal but not+    --     exceed forecast capacity.+    --+    -- -   @SetMaxCapacityAboveForecastCapacity@ - AWS Auto Scaling may scale+    --     resource capacity higher than the maximum capacity by a specified+    --     buffer value. The intention is to give the target tracking scaling+    --     policy extra capacity if unexpected traffic occurs.+    --+    -- Only valid when configuring predictive scaling.+    predictiveScalingMaxCapacityBehavior :: Prelude.Maybe PredictiveScalingMaxCapacityBehavior,+    -- | The size of the capacity buffer to use when the forecast capacity is+    -- close to or exceeds the maximum capacity. The value is specified as a+    -- percentage relative to the forecast capacity. For example, if the buffer+    -- is 10, this means a 10 percent buffer, such that if the forecast+    -- capacity is 50, and the maximum capacity is 40, then the effective+    -- maximum capacity is 55.+    --+    -- Only valid when configuring predictive scaling. Required if the+    -- __PredictiveScalingMaxCapacityBehavior__ is set to+    -- @SetMaxCapacityAboveForecastCapacity@, and cannot be used otherwise.+    --+    -- The range is 1-100.+    predictiveScalingMaxCapacityBuffer :: Prelude.Maybe Prelude.Int,+    -- | The predictive scaling mode. The default value is @ForecastAndScale@.+    -- Otherwise, AWS Auto Scaling forecasts capacity but does not create any+    -- scheduled scaling actions based on the capacity forecast.+    predictiveScalingMode :: Prelude.Maybe PredictiveScalingMode,+    -- | Controls whether a resource\'s externally created scaling policies are+    -- kept or replaced.+    --+    -- The default value is @KeepExternalPolicies@. If the parameter is set to+    -- @ReplaceExternalPolicies@, any scaling policies that are external to AWS+    -- Auto Scaling are deleted and new target tracking scaling policies+    -- created.+    --+    -- Only valid when configuring dynamic scaling.+    --+    -- Condition: The number of existing policies to be replaced must be less+    -- than or equal to 50. If there are more than 50 policies to be replaced,+    -- AWS Auto Scaling keeps all existing policies and does not create new+    -- ones.+    scalingPolicyUpdateBehavior :: Prelude.Maybe ScalingPolicyUpdateBehavior,+    -- | The amount of time, in seconds, to buffer the run time of scheduled+    -- scaling actions when scaling out. For example, if the forecast says to+    -- add capacity at 10:00 AM, and the buffer time is 5 minutes, then the run+    -- time of the corresponding scheduled scaling action will be 9:55 AM. The+    -- intention is to give resources time to be provisioned. For example, it+    -- can take a few minutes to launch an EC2 instance. The actual amount of+    -- time required depends on several factors, such as the size of the+    -- instance and whether there are startup scripts to complete.+    --+    -- The value must be less than the forecast interval duration of 3600+    -- seconds (60 minutes). The default is 300 seconds.+    --+    -- Only valid when configuring predictive scaling.+    scheduledActionBufferTime :: Prelude.Maybe Prelude.Natural,+    -- | The namespace of the AWS service.+    serviceNamespace :: ServiceNamespace,+    -- | The ID of the resource. This string consists of the resource type and+    -- unique identifier.+    --+    -- -   Auto Scaling group - The resource type is @autoScalingGroup@ and the+    --     unique identifier is the name of the Auto Scaling group. Example:+    --     @autoScalingGroup\/my-asg@.+    --+    -- -   ECS service - The resource type is @service@ and the unique+    --     identifier is the cluster name and service name. Example:+    --     @service\/default\/sample-webapp@.+    --+    -- -   Spot Fleet request - The resource type is @spot-fleet-request@ and+    --     the unique identifier is the Spot Fleet request ID. Example:+    --     @spot-fleet-request\/sfr-73fbd2ce-aa30-494c-8788-1cee4EXAMPLE@.+    --+    -- -   DynamoDB table - The resource type is @table@ and the unique+    --     identifier is the resource ID. Example: @table\/my-table@.+    --+    -- -   DynamoDB global secondary index - The resource type is @index@ and+    --     the unique identifier is the resource ID. Example:+    --     @table\/my-table\/index\/my-table-index@.+    --+    -- -   Aurora DB cluster - The resource type is @cluster@ and the unique+    --     identifier is the cluster name. Example: @cluster:my-db-cluster@.+    resourceId :: Prelude.Text,+    -- | The scalable dimension associated with the resource.+    --+    -- -   @autoscaling:autoScalingGroup:DesiredCapacity@ - The desired+    --     capacity of an Auto Scaling group.+    --+    -- -   @ecs:service:DesiredCount@ - The desired task count of an ECS+    --     service.+    --+    -- -   @ec2:spot-fleet-request:TargetCapacity@ - The target capacity of a+    --     Spot Fleet request.+    --+    -- -   @dynamodb:table:ReadCapacityUnits@ - The provisioned read capacity+    --     for a DynamoDB table.+    --+    -- -   @dynamodb:table:WriteCapacityUnits@ - The provisioned write capacity+    --     for a DynamoDB table.+    --+    -- -   @dynamodb:index:ReadCapacityUnits@ - The provisioned read capacity+    --     for a DynamoDB global secondary index.+    --+    -- -   @dynamodb:index:WriteCapacityUnits@ - The provisioned write capacity+    --     for a DynamoDB global secondary index.+    --+    -- -   @rds:cluster:ReadReplicaCount@ - The count of Aurora Replicas in an+    --     Aurora DB cluster. Available for Aurora MySQL-compatible edition and+    --     Aurora PostgreSQL-compatible edition.+    scalableDimension :: ScalableDimension,+    -- | The minimum capacity of the resource.+    minCapacity :: Prelude.Int,+    -- | The maximum capacity of the resource. The exception to this upper limit+    -- is if you specify a non-default setting for+    -- __PredictiveScalingMaxCapacityBehavior__.+    maxCapacity :: Prelude.Int,+    -- | The target tracking configurations (up to 10). Each of these structures+    -- must specify a unique scaling metric and a target value for the metric.+    targetTrackingConfigurations :: [TargetTrackingConfiguration]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScalingInstruction' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'customizedLoadMetricSpecification', 'scalingInstruction_customizedLoadMetricSpecification' - The customized load metric to use for predictive scaling. This parameter+-- or a __PredefinedLoadMetricSpecification__ is required when configuring+-- predictive scaling, and cannot be used otherwise.+--+-- 'disableDynamicScaling', 'scalingInstruction_disableDynamicScaling' - Controls whether dynamic scaling by AWS Auto Scaling is disabled. When+-- dynamic scaling is enabled, AWS Auto Scaling creates target tracking+-- scaling policies based on the specified target tracking configurations.+--+-- The default is enabled (@false@).+--+-- 'predefinedLoadMetricSpecification', 'scalingInstruction_predefinedLoadMetricSpecification' - The predefined load metric to use for predictive scaling. This parameter+-- or a __CustomizedLoadMetricSpecification__ is required when configuring+-- predictive scaling, and cannot be used otherwise.+--+-- 'predictiveScalingMaxCapacityBehavior', 'scalingInstruction_predictiveScalingMaxCapacityBehavior' - Defines the behavior that should be applied if the forecast capacity+-- approaches or exceeds the maximum capacity specified for the resource.+-- The default value is @SetForecastCapacityToMaxCapacity@.+--+-- The following are possible values:+--+-- -   @SetForecastCapacityToMaxCapacity@ - AWS Auto Scaling cannot scale+--     resource capacity higher than the maximum capacity. The maximum+--     capacity is enforced as a hard limit.+--+-- -   @SetMaxCapacityToForecastCapacity@ - AWS Auto Scaling may scale+--     resource capacity higher than the maximum capacity to equal but not+--     exceed forecast capacity.+--+-- -   @SetMaxCapacityAboveForecastCapacity@ - AWS Auto Scaling may scale+--     resource capacity higher than the maximum capacity by a specified+--     buffer value. The intention is to give the target tracking scaling+--     policy extra capacity if unexpected traffic occurs.+--+-- Only valid when configuring predictive scaling.+--+-- 'predictiveScalingMaxCapacityBuffer', 'scalingInstruction_predictiveScalingMaxCapacityBuffer' - The size of the capacity buffer to use when the forecast capacity is+-- close to or exceeds the maximum capacity. The value is specified as a+-- percentage relative to the forecast capacity. For example, if the buffer+-- is 10, this means a 10 percent buffer, such that if the forecast+-- capacity is 50, and the maximum capacity is 40, then the effective+-- maximum capacity is 55.+--+-- Only valid when configuring predictive scaling. Required if the+-- __PredictiveScalingMaxCapacityBehavior__ is set to+-- @SetMaxCapacityAboveForecastCapacity@, and cannot be used otherwise.+--+-- The range is 1-100.+--+-- 'predictiveScalingMode', 'scalingInstruction_predictiveScalingMode' - The predictive scaling mode. The default value is @ForecastAndScale@.+-- Otherwise, AWS Auto Scaling forecasts capacity but does not create any+-- scheduled scaling actions based on the capacity forecast.+--+-- 'scalingPolicyUpdateBehavior', 'scalingInstruction_scalingPolicyUpdateBehavior' - Controls whether a resource\'s externally created scaling policies are+-- kept or replaced.+--+-- The default value is @KeepExternalPolicies@. If the parameter is set to+-- @ReplaceExternalPolicies@, any scaling policies that are external to AWS+-- Auto Scaling are deleted and new target tracking scaling policies+-- created.+--+-- Only valid when configuring dynamic scaling.+--+-- Condition: The number of existing policies to be replaced must be less+-- than or equal to 50. If there are more than 50 policies to be replaced,+-- AWS Auto Scaling keeps all existing policies and does not create new+-- ones.+--+-- 'scheduledActionBufferTime', 'scalingInstruction_scheduledActionBufferTime' - The amount of time, in seconds, to buffer the run time of scheduled+-- scaling actions when scaling out. For example, if the forecast says to+-- add capacity at 10:00 AM, and the buffer time is 5 minutes, then the run+-- time of the corresponding scheduled scaling action will be 9:55 AM. The+-- intention is to give resources time to be provisioned. For example, it+-- can take a few minutes to launch an EC2 instance. The actual amount of+-- time required depends on several factors, such as the size of the+-- instance and whether there are startup scripts to complete.+--+-- The value must be less than the forecast interval duration of 3600+-- seconds (60 minutes). The default is 300 seconds.+--+-- Only valid when configuring predictive scaling.+--+-- 'serviceNamespace', 'scalingInstruction_serviceNamespace' - The namespace of the AWS service.+--+-- 'resourceId', 'scalingInstruction_resourceId' - The ID of the resource. This string consists of the resource type and+-- unique identifier.+--+-- -   Auto Scaling group - The resource type is @autoScalingGroup@ and the+--     unique identifier is the name of the Auto Scaling group. Example:+--     @autoScalingGroup\/my-asg@.+--+-- -   ECS service - The resource type is @service@ and the unique+--     identifier is the cluster name and service name. Example:+--     @service\/default\/sample-webapp@.+--+-- -   Spot Fleet request - The resource type is @spot-fleet-request@ and+--     the unique identifier is the Spot Fleet request ID. Example:+--     @spot-fleet-request\/sfr-73fbd2ce-aa30-494c-8788-1cee4EXAMPLE@.+--+-- -   DynamoDB table - The resource type is @table@ and the unique+--     identifier is the resource ID. Example: @table\/my-table@.+--+-- -   DynamoDB global secondary index - The resource type is @index@ and+--     the unique identifier is the resource ID. Example:+--     @table\/my-table\/index\/my-table-index@.+--+-- -   Aurora DB cluster - The resource type is @cluster@ and the unique+--     identifier is the cluster name. Example: @cluster:my-db-cluster@.+--+-- 'scalableDimension', 'scalingInstruction_scalableDimension' - The scalable dimension associated with the resource.+--+-- -   @autoscaling:autoScalingGroup:DesiredCapacity@ - The desired+--     capacity of an Auto Scaling group.+--+-- -   @ecs:service:DesiredCount@ - The desired task count of an ECS+--     service.+--+-- -   @ec2:spot-fleet-request:TargetCapacity@ - The target capacity of a+--     Spot Fleet request.+--+-- -   @dynamodb:table:ReadCapacityUnits@ - The provisioned read capacity+--     for a DynamoDB table.+--+-- -   @dynamodb:table:WriteCapacityUnits@ - The provisioned write capacity+--     for a DynamoDB table.+--+-- -   @dynamodb:index:ReadCapacityUnits@ - The provisioned read capacity+--     for a DynamoDB global secondary index.+--+-- -   @dynamodb:index:WriteCapacityUnits@ - The provisioned write capacity+--     for a DynamoDB global secondary index.+--+-- -   @rds:cluster:ReadReplicaCount@ - The count of Aurora Replicas in an+--     Aurora DB cluster. Available for Aurora MySQL-compatible edition and+--     Aurora PostgreSQL-compatible edition.+--+-- 'minCapacity', 'scalingInstruction_minCapacity' - The minimum capacity of the resource.+--+-- 'maxCapacity', 'scalingInstruction_maxCapacity' - The maximum capacity of the resource. The exception to this upper limit+-- is if you specify a non-default setting for+-- __PredictiveScalingMaxCapacityBehavior__.+--+-- 'targetTrackingConfigurations', 'scalingInstruction_targetTrackingConfigurations' - The target tracking configurations (up to 10). Each of these structures+-- must specify a unique scaling metric and a target value for the metric.+newScalingInstruction ::+  -- | 'serviceNamespace'+  ServiceNamespace ->+  -- | 'resourceId'+  Prelude.Text ->+  -- | 'scalableDimension'+  ScalableDimension ->+  -- | 'minCapacity'+  Prelude.Int ->+  -- | 'maxCapacity'+  Prelude.Int ->+  ScalingInstruction+newScalingInstruction+  pServiceNamespace_+  pResourceId_+  pScalableDimension_+  pMinCapacity_+  pMaxCapacity_ =+    ScalingInstruction'+      { customizedLoadMetricSpecification =+          Prelude.Nothing,+        disableDynamicScaling = Prelude.Nothing,+        predefinedLoadMetricSpecification = Prelude.Nothing,+        predictiveScalingMaxCapacityBehavior =+          Prelude.Nothing,+        predictiveScalingMaxCapacityBuffer = Prelude.Nothing,+        predictiveScalingMode = Prelude.Nothing,+        scalingPolicyUpdateBehavior = Prelude.Nothing,+        scheduledActionBufferTime = Prelude.Nothing,+        serviceNamespace = pServiceNamespace_,+        resourceId = pResourceId_,+        scalableDimension = pScalableDimension_,+        minCapacity = pMinCapacity_,+        maxCapacity = pMaxCapacity_,+        targetTrackingConfigurations = Prelude.mempty+      }++-- | The customized load metric to use for predictive scaling. This parameter+-- or a __PredefinedLoadMetricSpecification__ is required when configuring+-- predictive scaling, and cannot be used otherwise.+scalingInstruction_customizedLoadMetricSpecification :: Lens.Lens' ScalingInstruction (Prelude.Maybe CustomizedLoadMetricSpecification)+scalingInstruction_customizedLoadMetricSpecification = Lens.lens (\ScalingInstruction' {customizedLoadMetricSpecification} -> customizedLoadMetricSpecification) (\s@ScalingInstruction' {} a -> s {customizedLoadMetricSpecification = a} :: ScalingInstruction)++-- | Controls whether dynamic scaling by AWS Auto Scaling is disabled. When+-- dynamic scaling is enabled, AWS Auto Scaling creates target tracking+-- scaling policies based on the specified target tracking configurations.+--+-- The default is enabled (@false@).+scalingInstruction_disableDynamicScaling :: Lens.Lens' ScalingInstruction (Prelude.Maybe Prelude.Bool)+scalingInstruction_disableDynamicScaling = Lens.lens (\ScalingInstruction' {disableDynamicScaling} -> disableDynamicScaling) (\s@ScalingInstruction' {} a -> s {disableDynamicScaling = a} :: ScalingInstruction)++-- | The predefined load metric to use for predictive scaling. This parameter+-- or a __CustomizedLoadMetricSpecification__ is required when configuring+-- predictive scaling, and cannot be used otherwise.+scalingInstruction_predefinedLoadMetricSpecification :: Lens.Lens' ScalingInstruction (Prelude.Maybe PredefinedLoadMetricSpecification)+scalingInstruction_predefinedLoadMetricSpecification = Lens.lens (\ScalingInstruction' {predefinedLoadMetricSpecification} -> predefinedLoadMetricSpecification) (\s@ScalingInstruction' {} a -> s {predefinedLoadMetricSpecification = a} :: ScalingInstruction)++-- | Defines the behavior that should be applied if the forecast capacity+-- approaches or exceeds the maximum capacity specified for the resource.+-- The default value is @SetForecastCapacityToMaxCapacity@.+--+-- The following are possible values:+--+-- -   @SetForecastCapacityToMaxCapacity@ - AWS Auto Scaling cannot scale+--     resource capacity higher than the maximum capacity. The maximum+--     capacity is enforced as a hard limit.+--+-- -   @SetMaxCapacityToForecastCapacity@ - AWS Auto Scaling may scale+--     resource capacity higher than the maximum capacity to equal but not+--     exceed forecast capacity.+--+-- -   @SetMaxCapacityAboveForecastCapacity@ - AWS Auto Scaling may scale+--     resource capacity higher than the maximum capacity by a specified+--     buffer value. The intention is to give the target tracking scaling+--     policy extra capacity if unexpected traffic occurs.+--+-- Only valid when configuring predictive scaling.+scalingInstruction_predictiveScalingMaxCapacityBehavior :: Lens.Lens' ScalingInstruction (Prelude.Maybe PredictiveScalingMaxCapacityBehavior)+scalingInstruction_predictiveScalingMaxCapacityBehavior = Lens.lens (\ScalingInstruction' {predictiveScalingMaxCapacityBehavior} -> predictiveScalingMaxCapacityBehavior) (\s@ScalingInstruction' {} a -> s {predictiveScalingMaxCapacityBehavior = a} :: ScalingInstruction)++-- | The size of the capacity buffer to use when the forecast capacity is+-- close to or exceeds the maximum capacity. The value is specified as a+-- percentage relative to the forecast capacity. For example, if the buffer+-- is 10, this means a 10 percent buffer, such that if the forecast+-- capacity is 50, and the maximum capacity is 40, then the effective+-- maximum capacity is 55.+--+-- Only valid when configuring predictive scaling. Required if the+-- __PredictiveScalingMaxCapacityBehavior__ is set to+-- @SetMaxCapacityAboveForecastCapacity@, and cannot be used otherwise.+--+-- The range is 1-100.+scalingInstruction_predictiveScalingMaxCapacityBuffer :: Lens.Lens' ScalingInstruction (Prelude.Maybe Prelude.Int)+scalingInstruction_predictiveScalingMaxCapacityBuffer = Lens.lens (\ScalingInstruction' {predictiveScalingMaxCapacityBuffer} -> predictiveScalingMaxCapacityBuffer) (\s@ScalingInstruction' {} a -> s {predictiveScalingMaxCapacityBuffer = a} :: ScalingInstruction)++-- | The predictive scaling mode. The default value is @ForecastAndScale@.+-- Otherwise, AWS Auto Scaling forecasts capacity but does not create any+-- scheduled scaling actions based on the capacity forecast.+scalingInstruction_predictiveScalingMode :: Lens.Lens' ScalingInstruction (Prelude.Maybe PredictiveScalingMode)+scalingInstruction_predictiveScalingMode = Lens.lens (\ScalingInstruction' {predictiveScalingMode} -> predictiveScalingMode) (\s@ScalingInstruction' {} a -> s {predictiveScalingMode = a} :: ScalingInstruction)++-- | Controls whether a resource\'s externally created scaling policies are+-- kept or replaced.+--+-- The default value is @KeepExternalPolicies@. If the parameter is set to+-- @ReplaceExternalPolicies@, any scaling policies that are external to AWS+-- Auto Scaling are deleted and new target tracking scaling policies+-- created.+--+-- Only valid when configuring dynamic scaling.+--+-- Condition: The number of existing policies to be replaced must be less+-- than or equal to 50. If there are more than 50 policies to be replaced,+-- AWS Auto Scaling keeps all existing policies and does not create new+-- ones.+scalingInstruction_scalingPolicyUpdateBehavior :: Lens.Lens' ScalingInstruction (Prelude.Maybe ScalingPolicyUpdateBehavior)+scalingInstruction_scalingPolicyUpdateBehavior = Lens.lens (\ScalingInstruction' {scalingPolicyUpdateBehavior} -> scalingPolicyUpdateBehavior) (\s@ScalingInstruction' {} a -> s {scalingPolicyUpdateBehavior = a} :: ScalingInstruction)++-- | The amount of time, in seconds, to buffer the run time of scheduled+-- scaling actions when scaling out. For example, if the forecast says to+-- add capacity at 10:00 AM, and the buffer time is 5 minutes, then the run+-- time of the corresponding scheduled scaling action will be 9:55 AM. The+-- intention is to give resources time to be provisioned. For example, it+-- can take a few minutes to launch an EC2 instance. The actual amount of+-- time required depends on several factors, such as the size of the+-- instance and whether there are startup scripts to complete.+--+-- The value must be less than the forecast interval duration of 3600+-- seconds (60 minutes). The default is 300 seconds.+--+-- Only valid when configuring predictive scaling.+scalingInstruction_scheduledActionBufferTime :: Lens.Lens' ScalingInstruction (Prelude.Maybe Prelude.Natural)+scalingInstruction_scheduledActionBufferTime = Lens.lens (\ScalingInstruction' {scheduledActionBufferTime} -> scheduledActionBufferTime) (\s@ScalingInstruction' {} a -> s {scheduledActionBufferTime = a} :: ScalingInstruction)++-- | The namespace of the AWS service.+scalingInstruction_serviceNamespace :: Lens.Lens' ScalingInstruction ServiceNamespace+scalingInstruction_serviceNamespace = Lens.lens (\ScalingInstruction' {serviceNamespace} -> serviceNamespace) (\s@ScalingInstruction' {} a -> s {serviceNamespace = a} :: ScalingInstruction)++-- | The ID of the resource. This string consists of the resource type and+-- unique identifier.+--+-- -   Auto Scaling group - The resource type is @autoScalingGroup@ and the+--     unique identifier is the name of the Auto Scaling group. Example:+--     @autoScalingGroup\/my-asg@.+--+-- -   ECS service - The resource type is @service@ and the unique+--     identifier is the cluster name and service name. Example:+--     @service\/default\/sample-webapp@.+--+-- -   Spot Fleet request - The resource type is @spot-fleet-request@ and+--     the unique identifier is the Spot Fleet request ID. Example:+--     @spot-fleet-request\/sfr-73fbd2ce-aa30-494c-8788-1cee4EXAMPLE@.+--+-- -   DynamoDB table - The resource type is @table@ and the unique+--     identifier is the resource ID. Example: @table\/my-table@.+--+-- -   DynamoDB global secondary index - The resource type is @index@ and+--     the unique identifier is the resource ID. Example:+--     @table\/my-table\/index\/my-table-index@.+--+-- -   Aurora DB cluster - The resource type is @cluster@ and the unique+--     identifier is the cluster name. Example: @cluster:my-db-cluster@.+scalingInstruction_resourceId :: Lens.Lens' ScalingInstruction Prelude.Text+scalingInstruction_resourceId = Lens.lens (\ScalingInstruction' {resourceId} -> resourceId) (\s@ScalingInstruction' {} a -> s {resourceId = a} :: ScalingInstruction)++-- | The scalable dimension associated with the resource.+--+-- -   @autoscaling:autoScalingGroup:DesiredCapacity@ - The desired+--     capacity of an Auto Scaling group.+--+-- -   @ecs:service:DesiredCount@ - The desired task count of an ECS+--     service.+--+-- -   @ec2:spot-fleet-request:TargetCapacity@ - The target capacity of a+--     Spot Fleet request.+--+-- -   @dynamodb:table:ReadCapacityUnits@ - The provisioned read capacity+--     for a DynamoDB table.+--+-- -   @dynamodb:table:WriteCapacityUnits@ - The provisioned write capacity+--     for a DynamoDB table.+--+-- -   @dynamodb:index:ReadCapacityUnits@ - The provisioned read capacity+--     for a DynamoDB global secondary index.+--+-- -   @dynamodb:index:WriteCapacityUnits@ - The provisioned write capacity+--     for a DynamoDB global secondary index.+--+-- -   @rds:cluster:ReadReplicaCount@ - The count of Aurora Replicas in an+--     Aurora DB cluster. Available for Aurora MySQL-compatible edition and+--     Aurora PostgreSQL-compatible edition.+scalingInstruction_scalableDimension :: Lens.Lens' ScalingInstruction ScalableDimension+scalingInstruction_scalableDimension = Lens.lens (\ScalingInstruction' {scalableDimension} -> scalableDimension) (\s@ScalingInstruction' {} a -> s {scalableDimension = a} :: ScalingInstruction)++-- | The minimum capacity of the resource.+scalingInstruction_minCapacity :: Lens.Lens' ScalingInstruction Prelude.Int+scalingInstruction_minCapacity = Lens.lens (\ScalingInstruction' {minCapacity} -> minCapacity) (\s@ScalingInstruction' {} a -> s {minCapacity = a} :: ScalingInstruction)++-- | The maximum capacity of the resource. The exception to this upper limit+-- is if you specify a non-default setting for+-- __PredictiveScalingMaxCapacityBehavior__.+scalingInstruction_maxCapacity :: Lens.Lens' ScalingInstruction Prelude.Int+scalingInstruction_maxCapacity = Lens.lens (\ScalingInstruction' {maxCapacity} -> maxCapacity) (\s@ScalingInstruction' {} a -> s {maxCapacity = a} :: ScalingInstruction)++-- | The target tracking configurations (up to 10). Each of these structures+-- must specify a unique scaling metric and a target value for the metric.+scalingInstruction_targetTrackingConfigurations :: Lens.Lens' ScalingInstruction [TargetTrackingConfiguration]+scalingInstruction_targetTrackingConfigurations = Lens.lens (\ScalingInstruction' {targetTrackingConfigurations} -> targetTrackingConfigurations) (\s@ScalingInstruction' {} a -> s {targetTrackingConfigurations = a} :: ScalingInstruction) Prelude.. Lens.coerced++instance Data.FromJSON ScalingInstruction where+  parseJSON =+    Data.withObject+      "ScalingInstruction"+      ( \x ->+          ScalingInstruction'+            Prelude.<$> (x Data..:? "CustomizedLoadMetricSpecification")+            Prelude.<*> (x Data..:? "DisableDynamicScaling")+            Prelude.<*> (x Data..:? "PredefinedLoadMetricSpecification")+            Prelude.<*> (x Data..:? "PredictiveScalingMaxCapacityBehavior")+            Prelude.<*> (x Data..:? "PredictiveScalingMaxCapacityBuffer")+            Prelude.<*> (x Data..:? "PredictiveScalingMode")+            Prelude.<*> (x Data..:? "ScalingPolicyUpdateBehavior")+            Prelude.<*> (x Data..:? "ScheduledActionBufferTime")+            Prelude.<*> (x Data..: "ServiceNamespace")+            Prelude.<*> (x Data..: "ResourceId")+            Prelude.<*> (x Data..: "ScalableDimension")+            Prelude.<*> (x Data..: "MinCapacity")+            Prelude.<*> (x Data..: "MaxCapacity")+            Prelude.<*> ( x+                            Data..:? "TargetTrackingConfigurations"+                            Data..!= Prelude.mempty+                        )+      )++instance Prelude.Hashable ScalingInstruction where+  hashWithSalt _salt ScalingInstruction' {..} =+    _salt+      `Prelude.hashWithSalt` customizedLoadMetricSpecification+      `Prelude.hashWithSalt` disableDynamicScaling+      `Prelude.hashWithSalt` predefinedLoadMetricSpecification+      `Prelude.hashWithSalt` predictiveScalingMaxCapacityBehavior+      `Prelude.hashWithSalt` predictiveScalingMaxCapacityBuffer+      `Prelude.hashWithSalt` predictiveScalingMode+      `Prelude.hashWithSalt` scalingPolicyUpdateBehavior+      `Prelude.hashWithSalt` scheduledActionBufferTime+      `Prelude.hashWithSalt` serviceNamespace+      `Prelude.hashWithSalt` resourceId+      `Prelude.hashWithSalt` scalableDimension+      `Prelude.hashWithSalt` minCapacity+      `Prelude.hashWithSalt` maxCapacity+      `Prelude.hashWithSalt` targetTrackingConfigurations++instance Prelude.NFData ScalingInstruction where+  rnf ScalingInstruction' {..} =+    Prelude.rnf customizedLoadMetricSpecification+      `Prelude.seq` Prelude.rnf disableDynamicScaling+      `Prelude.seq` Prelude.rnf predefinedLoadMetricSpecification+      `Prelude.seq` Prelude.rnf predictiveScalingMaxCapacityBehavior+      `Prelude.seq` Prelude.rnf predictiveScalingMaxCapacityBuffer+      `Prelude.seq` Prelude.rnf predictiveScalingMode+      `Prelude.seq` Prelude.rnf scalingPolicyUpdateBehavior+      `Prelude.seq` Prelude.rnf scheduledActionBufferTime+      `Prelude.seq` Prelude.rnf serviceNamespace+      `Prelude.seq` Prelude.rnf resourceId+      `Prelude.seq` Prelude.rnf scalableDimension+      `Prelude.seq` Prelude.rnf minCapacity+      `Prelude.seq` Prelude.rnf maxCapacity+      `Prelude.seq` Prelude.rnf targetTrackingConfigurations++instance Data.ToJSON ScalingInstruction where+  toJSON ScalingInstruction' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CustomizedLoadMetricSpecification" Data..=)+              Prelude.<$> customizedLoadMetricSpecification,+            ("DisableDynamicScaling" Data..=)+              Prelude.<$> disableDynamicScaling,+            ("PredefinedLoadMetricSpecification" Data..=)+              Prelude.<$> predefinedLoadMetricSpecification,+            ("PredictiveScalingMaxCapacityBehavior" Data..=)+              Prelude.<$> predictiveScalingMaxCapacityBehavior,+            ("PredictiveScalingMaxCapacityBuffer" Data..=)+              Prelude.<$> predictiveScalingMaxCapacityBuffer,+            ("PredictiveScalingMode" Data..=)+              Prelude.<$> predictiveScalingMode,+            ("ScalingPolicyUpdateBehavior" Data..=)+              Prelude.<$> scalingPolicyUpdateBehavior,+            ("ScheduledActionBufferTime" Data..=)+              Prelude.<$> scheduledActionBufferTime,+            Prelude.Just+              ("ServiceNamespace" Data..= serviceNamespace),+            Prelude.Just ("ResourceId" Data..= resourceId),+            Prelude.Just+              ("ScalableDimension" Data..= scalableDimension),+            Prelude.Just ("MinCapacity" Data..= minCapacity),+            Prelude.Just ("MaxCapacity" Data..= maxCapacity),+            Prelude.Just+              ( "TargetTrackingConfigurations"+                  Data..= targetTrackingConfigurations+              )+          ]+      )

@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ScalingMetricType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ScalingMetricType+  ( ScalingMetricType+      ( ..,+        ScalingMetricType_ALBRequestCountPerTarget,+        ScalingMetricType_ASGAverageCPUUtilization,+        ScalingMetricType_ASGAverageNetworkIn,+        ScalingMetricType_ASGAverageNetworkOut,+        ScalingMetricType_DynamoDBReadCapacityUtilization,+        ScalingMetricType_DynamoDBWriteCapacityUtilization,+        ScalingMetricType_EC2SpotFleetRequestAverageCPUUtilization,+        ScalingMetricType_EC2SpotFleetRequestAverageNetworkIn,+        ScalingMetricType_EC2SpotFleetRequestAverageNetworkOut,+        ScalingMetricType_ECSServiceAverageCPUUtilization,+        ScalingMetricType_ECSServiceAverageMemoryUtilization,+        ScalingMetricType_RDSReaderAverageCPUUtilization,+        ScalingMetricType_RDSReaderAverageDatabaseConnections+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ScalingMetricType = ScalingMetricType'+  { fromScalingMetricType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ScalingMetricType_ALBRequestCountPerTarget :: ScalingMetricType+pattern ScalingMetricType_ALBRequestCountPerTarget = ScalingMetricType' "ALBRequestCountPerTarget"++pattern ScalingMetricType_ASGAverageCPUUtilization :: ScalingMetricType+pattern ScalingMetricType_ASGAverageCPUUtilization = ScalingMetricType' "ASGAverageCPUUtilization"++pattern ScalingMetricType_ASGAverageNetworkIn :: ScalingMetricType+pattern ScalingMetricType_ASGAverageNetworkIn = ScalingMetricType' "ASGAverageNetworkIn"++pattern ScalingMetricType_ASGAverageNetworkOut :: ScalingMetricType+pattern ScalingMetricType_ASGAverageNetworkOut = ScalingMetricType' "ASGAverageNetworkOut"++pattern ScalingMetricType_DynamoDBReadCapacityUtilization :: ScalingMetricType+pattern ScalingMetricType_DynamoDBReadCapacityUtilization = ScalingMetricType' "DynamoDBReadCapacityUtilization"++pattern ScalingMetricType_DynamoDBWriteCapacityUtilization :: ScalingMetricType+pattern ScalingMetricType_DynamoDBWriteCapacityUtilization = ScalingMetricType' "DynamoDBWriteCapacityUtilization"++pattern ScalingMetricType_EC2SpotFleetRequestAverageCPUUtilization :: ScalingMetricType+pattern ScalingMetricType_EC2SpotFleetRequestAverageCPUUtilization = ScalingMetricType' "EC2SpotFleetRequestAverageCPUUtilization"++pattern ScalingMetricType_EC2SpotFleetRequestAverageNetworkIn :: ScalingMetricType+pattern ScalingMetricType_EC2SpotFleetRequestAverageNetworkIn = ScalingMetricType' "EC2SpotFleetRequestAverageNetworkIn"++pattern ScalingMetricType_EC2SpotFleetRequestAverageNetworkOut :: ScalingMetricType+pattern ScalingMetricType_EC2SpotFleetRequestAverageNetworkOut = ScalingMetricType' "EC2SpotFleetRequestAverageNetworkOut"++pattern ScalingMetricType_ECSServiceAverageCPUUtilization :: ScalingMetricType+pattern ScalingMetricType_ECSServiceAverageCPUUtilization = ScalingMetricType' "ECSServiceAverageCPUUtilization"++pattern ScalingMetricType_ECSServiceAverageMemoryUtilization :: ScalingMetricType+pattern ScalingMetricType_ECSServiceAverageMemoryUtilization = ScalingMetricType' "ECSServiceAverageMemoryUtilization"++pattern ScalingMetricType_RDSReaderAverageCPUUtilization :: ScalingMetricType+pattern ScalingMetricType_RDSReaderAverageCPUUtilization = ScalingMetricType' "RDSReaderAverageCPUUtilization"++pattern ScalingMetricType_RDSReaderAverageDatabaseConnections :: ScalingMetricType+pattern ScalingMetricType_RDSReaderAverageDatabaseConnections = ScalingMetricType' "RDSReaderAverageDatabaseConnections"++{-# COMPLETE+  ScalingMetricType_ALBRequestCountPerTarget,+  ScalingMetricType_ASGAverageCPUUtilization,+  ScalingMetricType_ASGAverageNetworkIn,+  ScalingMetricType_ASGAverageNetworkOut,+  ScalingMetricType_DynamoDBReadCapacityUtilization,+  ScalingMetricType_DynamoDBWriteCapacityUtilization,+  ScalingMetricType_EC2SpotFleetRequestAverageCPUUtilization,+  ScalingMetricType_EC2SpotFleetRequestAverageNetworkIn,+  ScalingMetricType_EC2SpotFleetRequestAverageNetworkOut,+  ScalingMetricType_ECSServiceAverageCPUUtilization,+  ScalingMetricType_ECSServiceAverageMemoryUtilization,+  ScalingMetricType_RDSReaderAverageCPUUtilization,+  ScalingMetricType_RDSReaderAverageDatabaseConnections,+  ScalingMetricType'+  #-}

@@ -0,0 +1,228 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ScalingPlan+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ScalingPlan where++import Amazonka.AutoScalingPlans.Types.ApplicationSource+import Amazonka.AutoScalingPlans.Types.ScalingInstruction+import Amazonka.AutoScalingPlans.Types.ScalingPlanStatusCode+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a scaling plan.+--+-- /See:/ 'newScalingPlan' smart constructor.+data ScalingPlan = ScalingPlan'+  { -- | The Unix time stamp when the scaling plan was created.+    creationTime :: Prelude.Maybe Data.POSIX,+    -- | A simple message about the current status of the scaling plan.+    statusMessage :: Prelude.Maybe Prelude.Text,+    -- | The Unix time stamp when the scaling plan entered the current status.+    statusStartTime :: Prelude.Maybe Data.POSIX,+    -- | The name of the scaling plan.+    scalingPlanName :: Prelude.Text,+    -- | The version number of the scaling plan.+    scalingPlanVersion :: Prelude.Integer,+    -- | A CloudFormation stack or a set of tags. You can create one scaling plan+    -- per application source.+    applicationSource :: ApplicationSource,+    -- | The scaling instructions.+    scalingInstructions :: [ScalingInstruction],+    -- | The status of the scaling plan.+    --+    -- -   @Active@ - The scaling plan is active.+    --+    -- -   @ActiveWithProblems@ - The scaling plan is active, but the scaling+    --     configuration for one or more resources could not be applied.+    --+    -- -   @CreationInProgress@ - The scaling plan is being created.+    --+    -- -   @CreationFailed@ - The scaling plan could not be created.+    --+    -- -   @DeletionInProgress@ - The scaling plan is being deleted.+    --+    -- -   @DeletionFailed@ - The scaling plan could not be deleted.+    --+    -- -   @UpdateInProgress@ - The scaling plan is being updated.+    --+    -- -   @UpdateFailed@ - The scaling plan could not be updated.+    statusCode :: ScalingPlanStatusCode+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScalingPlan' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'creationTime', 'scalingPlan_creationTime' - The Unix time stamp when the scaling plan was created.+--+-- 'statusMessage', 'scalingPlan_statusMessage' - A simple message about the current status of the scaling plan.+--+-- 'statusStartTime', 'scalingPlan_statusStartTime' - The Unix time stamp when the scaling plan entered the current status.+--+-- 'scalingPlanName', 'scalingPlan_scalingPlanName' - The name of the scaling plan.+--+-- 'scalingPlanVersion', 'scalingPlan_scalingPlanVersion' - The version number of the scaling plan.+--+-- 'applicationSource', 'scalingPlan_applicationSource' - A CloudFormation stack or a set of tags. You can create one scaling plan+-- per application source.+--+-- 'scalingInstructions', 'scalingPlan_scalingInstructions' - The scaling instructions.+--+-- 'statusCode', 'scalingPlan_statusCode' - The status of the scaling plan.+--+-- -   @Active@ - The scaling plan is active.+--+-- -   @ActiveWithProblems@ - The scaling plan is active, but the scaling+--     configuration for one or more resources could not be applied.+--+-- -   @CreationInProgress@ - The scaling plan is being created.+--+-- -   @CreationFailed@ - The scaling plan could not be created.+--+-- -   @DeletionInProgress@ - The scaling plan is being deleted.+--+-- -   @DeletionFailed@ - The scaling plan could not be deleted.+--+-- -   @UpdateInProgress@ - The scaling plan is being updated.+--+-- -   @UpdateFailed@ - The scaling plan could not be updated.+newScalingPlan ::+  -- | 'scalingPlanName'+  Prelude.Text ->+  -- | 'scalingPlanVersion'+  Prelude.Integer ->+  -- | 'applicationSource'+  ApplicationSource ->+  -- | 'statusCode'+  ScalingPlanStatusCode ->+  ScalingPlan+newScalingPlan+  pScalingPlanName_+  pScalingPlanVersion_+  pApplicationSource_+  pStatusCode_ =+    ScalingPlan'+      { creationTime = Prelude.Nothing,+        statusMessage = Prelude.Nothing,+        statusStartTime = Prelude.Nothing,+        scalingPlanName = pScalingPlanName_,+        scalingPlanVersion = pScalingPlanVersion_,+        applicationSource = pApplicationSource_,+        scalingInstructions = Prelude.mempty,+        statusCode = pStatusCode_+      }++-- | The Unix time stamp when the scaling plan was created.+scalingPlan_creationTime :: Lens.Lens' ScalingPlan (Prelude.Maybe Prelude.UTCTime)+scalingPlan_creationTime = Lens.lens (\ScalingPlan' {creationTime} -> creationTime) (\s@ScalingPlan' {} a -> s {creationTime = a} :: ScalingPlan) Prelude.. Lens.mapping Data._Time++-- | A simple message about the current status of the scaling plan.+scalingPlan_statusMessage :: Lens.Lens' ScalingPlan (Prelude.Maybe Prelude.Text)+scalingPlan_statusMessage = Lens.lens (\ScalingPlan' {statusMessage} -> statusMessage) (\s@ScalingPlan' {} a -> s {statusMessage = a} :: ScalingPlan)++-- | The Unix time stamp when the scaling plan entered the current status.+scalingPlan_statusStartTime :: Lens.Lens' ScalingPlan (Prelude.Maybe Prelude.UTCTime)+scalingPlan_statusStartTime = Lens.lens (\ScalingPlan' {statusStartTime} -> statusStartTime) (\s@ScalingPlan' {} a -> s {statusStartTime = a} :: ScalingPlan) Prelude.. Lens.mapping Data._Time++-- | The name of the scaling plan.+scalingPlan_scalingPlanName :: Lens.Lens' ScalingPlan Prelude.Text+scalingPlan_scalingPlanName = Lens.lens (\ScalingPlan' {scalingPlanName} -> scalingPlanName) (\s@ScalingPlan' {} a -> s {scalingPlanName = a} :: ScalingPlan)++-- | The version number of the scaling plan.+scalingPlan_scalingPlanVersion :: Lens.Lens' ScalingPlan Prelude.Integer+scalingPlan_scalingPlanVersion = Lens.lens (\ScalingPlan' {scalingPlanVersion} -> scalingPlanVersion) (\s@ScalingPlan' {} a -> s {scalingPlanVersion = a} :: ScalingPlan)++-- | A CloudFormation stack or a set of tags. You can create one scaling plan+-- per application source.+scalingPlan_applicationSource :: Lens.Lens' ScalingPlan ApplicationSource+scalingPlan_applicationSource = Lens.lens (\ScalingPlan' {applicationSource} -> applicationSource) (\s@ScalingPlan' {} a -> s {applicationSource = a} :: ScalingPlan)++-- | The scaling instructions.+scalingPlan_scalingInstructions :: Lens.Lens' ScalingPlan [ScalingInstruction]+scalingPlan_scalingInstructions = Lens.lens (\ScalingPlan' {scalingInstructions} -> scalingInstructions) (\s@ScalingPlan' {} a -> s {scalingInstructions = a} :: ScalingPlan) Prelude.. Lens.coerced++-- | The status of the scaling plan.+--+-- -   @Active@ - The scaling plan is active.+--+-- -   @ActiveWithProblems@ - The scaling plan is active, but the scaling+--     configuration for one or more resources could not be applied.+--+-- -   @CreationInProgress@ - The scaling plan is being created.+--+-- -   @CreationFailed@ - The scaling plan could not be created.+--+-- -   @DeletionInProgress@ - The scaling plan is being deleted.+--+-- -   @DeletionFailed@ - The scaling plan could not be deleted.+--+-- -   @UpdateInProgress@ - The scaling plan is being updated.+--+-- -   @UpdateFailed@ - The scaling plan could not be updated.+scalingPlan_statusCode :: Lens.Lens' ScalingPlan ScalingPlanStatusCode+scalingPlan_statusCode = Lens.lens (\ScalingPlan' {statusCode} -> statusCode) (\s@ScalingPlan' {} a -> s {statusCode = a} :: ScalingPlan)++instance Data.FromJSON ScalingPlan where+  parseJSON =+    Data.withObject+      "ScalingPlan"+      ( \x ->+          ScalingPlan'+            Prelude.<$> (x Data..:? "CreationTime")+            Prelude.<*> (x Data..:? "StatusMessage")+            Prelude.<*> (x Data..:? "StatusStartTime")+            Prelude.<*> (x Data..: "ScalingPlanName")+            Prelude.<*> (x Data..: "ScalingPlanVersion")+            Prelude.<*> (x Data..: "ApplicationSource")+            Prelude.<*> ( x+                            Data..:? "ScalingInstructions"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..: "StatusCode")+      )++instance Prelude.Hashable ScalingPlan where+  hashWithSalt _salt ScalingPlan' {..} =+    _salt+      `Prelude.hashWithSalt` creationTime+      `Prelude.hashWithSalt` statusMessage+      `Prelude.hashWithSalt` statusStartTime+      `Prelude.hashWithSalt` scalingPlanName+      `Prelude.hashWithSalt` scalingPlanVersion+      `Prelude.hashWithSalt` applicationSource+      `Prelude.hashWithSalt` scalingInstructions+      `Prelude.hashWithSalt` statusCode++instance Prelude.NFData ScalingPlan where+  rnf ScalingPlan' {..} =+    Prelude.rnf creationTime+      `Prelude.seq` Prelude.rnf statusMessage+      `Prelude.seq` Prelude.rnf statusStartTime+      `Prelude.seq` Prelude.rnf scalingPlanName+      `Prelude.seq` Prelude.rnf scalingPlanVersion+      `Prelude.seq` Prelude.rnf applicationSource+      `Prelude.seq` Prelude.rnf scalingInstructions+      `Prelude.seq` Prelude.rnf statusCode

@@ -0,0 +1,359 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ScalingPlanResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ScalingPlanResource where++import Amazonka.AutoScalingPlans.Types.ScalableDimension+import Amazonka.AutoScalingPlans.Types.ScalingPolicy+import Amazonka.AutoScalingPlans.Types.ScalingStatusCode+import Amazonka.AutoScalingPlans.Types.ServiceNamespace+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a scalable resource.+--+-- /See:/ 'newScalingPlanResource' smart constructor.+data ScalingPlanResource = ScalingPlanResource'+  { -- | The scaling policies.+    scalingPolicies :: Prelude.Maybe [ScalingPolicy],+    -- | A simple message about the current scaling status of the resource.+    scalingStatusMessage :: Prelude.Maybe Prelude.Text,+    -- | The name of the scaling plan.+    scalingPlanName :: Prelude.Text,+    -- | The version number of the scaling plan.+    scalingPlanVersion :: Prelude.Integer,+    -- | The namespace of the AWS service.+    serviceNamespace :: ServiceNamespace,+    -- | The ID of the resource. This string consists of the resource type and+    -- unique identifier.+    --+    -- -   Auto Scaling group - The resource type is @autoScalingGroup@ and the+    --     unique identifier is the name of the Auto Scaling group. Example:+    --     @autoScalingGroup\/my-asg@.+    --+    -- -   ECS service - The resource type is @service@ and the unique+    --     identifier is the cluster name and service name. Example:+    --     @service\/default\/sample-webapp@.+    --+    -- -   Spot Fleet request - The resource type is @spot-fleet-request@ and+    --     the unique identifier is the Spot Fleet request ID. Example:+    --     @spot-fleet-request\/sfr-73fbd2ce-aa30-494c-8788-1cee4EXAMPLE@.+    --+    -- -   DynamoDB table - The resource type is @table@ and the unique+    --     identifier is the resource ID. Example: @table\/my-table@.+    --+    -- -   DynamoDB global secondary index - The resource type is @index@ and+    --     the unique identifier is the resource ID. Example:+    --     @table\/my-table\/index\/my-table-index@.+    --+    -- -   Aurora DB cluster - The resource type is @cluster@ and the unique+    --     identifier is the cluster name. Example: @cluster:my-db-cluster@.+    resourceId :: Prelude.Text,+    -- | The scalable dimension for the resource.+    --+    -- -   @autoscaling:autoScalingGroup:DesiredCapacity@ - The desired+    --     capacity of an Auto Scaling group.+    --+    -- -   @ecs:service:DesiredCount@ - The desired task count of an ECS+    --     service.+    --+    -- -   @ec2:spot-fleet-request:TargetCapacity@ - The target capacity of a+    --     Spot Fleet request.+    --+    -- -   @dynamodb:table:ReadCapacityUnits@ - The provisioned read capacity+    --     for a DynamoDB table.+    --+    -- -   @dynamodb:table:WriteCapacityUnits@ - The provisioned write capacity+    --     for a DynamoDB table.+    --+    -- -   @dynamodb:index:ReadCapacityUnits@ - The provisioned read capacity+    --     for a DynamoDB global secondary index.+    --+    -- -   @dynamodb:index:WriteCapacityUnits@ - The provisioned write capacity+    --     for a DynamoDB global secondary index.+    --+    -- -   @rds:cluster:ReadReplicaCount@ - The count of Aurora Replicas in an+    --     Aurora DB cluster. Available for Aurora MySQL-compatible edition and+    --     Aurora PostgreSQL-compatible edition.+    scalableDimension :: ScalableDimension,+    -- | The scaling status of the resource.+    --+    -- -   @Active@ - The scaling configuration is active.+    --+    -- -   @Inactive@ - The scaling configuration is not active because the+    --     scaling plan is being created or the scaling configuration could not+    --     be applied. Check the status message for more information.+    --+    -- -   @PartiallyActive@ - The scaling configuration is partially active+    --     because the scaling plan is being created or deleted or the scaling+    --     configuration could not be fully applied. Check the status message+    --     for more information.+    scalingStatusCode :: ScalingStatusCode+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScalingPlanResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'scalingPolicies', 'scalingPlanResource_scalingPolicies' - The scaling policies.+--+-- 'scalingStatusMessage', 'scalingPlanResource_scalingStatusMessage' - A simple message about the current scaling status of the resource.+--+-- 'scalingPlanName', 'scalingPlanResource_scalingPlanName' - The name of the scaling plan.+--+-- 'scalingPlanVersion', 'scalingPlanResource_scalingPlanVersion' - The version number of the scaling plan.+--+-- 'serviceNamespace', 'scalingPlanResource_serviceNamespace' - The namespace of the AWS service.+--+-- 'resourceId', 'scalingPlanResource_resourceId' - The ID of the resource. This string consists of the resource type and+-- unique identifier.+--+-- -   Auto Scaling group - The resource type is @autoScalingGroup@ and the+--     unique identifier is the name of the Auto Scaling group. Example:+--     @autoScalingGroup\/my-asg@.+--+-- -   ECS service - The resource type is @service@ and the unique+--     identifier is the cluster name and service name. Example:+--     @service\/default\/sample-webapp@.+--+-- -   Spot Fleet request - The resource type is @spot-fleet-request@ and+--     the unique identifier is the Spot Fleet request ID. Example:+--     @spot-fleet-request\/sfr-73fbd2ce-aa30-494c-8788-1cee4EXAMPLE@.+--+-- -   DynamoDB table - The resource type is @table@ and the unique+--     identifier is the resource ID. Example: @table\/my-table@.+--+-- -   DynamoDB global secondary index - The resource type is @index@ and+--     the unique identifier is the resource ID. Example:+--     @table\/my-table\/index\/my-table-index@.+--+-- -   Aurora DB cluster - The resource type is @cluster@ and the unique+--     identifier is the cluster name. Example: @cluster:my-db-cluster@.+--+-- 'scalableDimension', 'scalingPlanResource_scalableDimension' - The scalable dimension for the resource.+--+-- -   @autoscaling:autoScalingGroup:DesiredCapacity@ - The desired+--     capacity of an Auto Scaling group.+--+-- -   @ecs:service:DesiredCount@ - The desired task count of an ECS+--     service.+--+-- -   @ec2:spot-fleet-request:TargetCapacity@ - The target capacity of a+--     Spot Fleet request.+--+-- -   @dynamodb:table:ReadCapacityUnits@ - The provisioned read capacity+--     for a DynamoDB table.+--+-- -   @dynamodb:table:WriteCapacityUnits@ - The provisioned write capacity+--     for a DynamoDB table.+--+-- -   @dynamodb:index:ReadCapacityUnits@ - The provisioned read capacity+--     for a DynamoDB global secondary index.+--+-- -   @dynamodb:index:WriteCapacityUnits@ - The provisioned write capacity+--     for a DynamoDB global secondary index.+--+-- -   @rds:cluster:ReadReplicaCount@ - The count of Aurora Replicas in an+--     Aurora DB cluster. Available for Aurora MySQL-compatible edition and+--     Aurora PostgreSQL-compatible edition.+--+-- 'scalingStatusCode', 'scalingPlanResource_scalingStatusCode' - The scaling status of the resource.+--+-- -   @Active@ - The scaling configuration is active.+--+-- -   @Inactive@ - The scaling configuration is not active because the+--     scaling plan is being created or the scaling configuration could not+--     be applied. Check the status message for more information.+--+-- -   @PartiallyActive@ - The scaling configuration is partially active+--     because the scaling plan is being created or deleted or the scaling+--     configuration could not be fully applied. Check the status message+--     for more information.+newScalingPlanResource ::+  -- | 'scalingPlanName'+  Prelude.Text ->+  -- | 'scalingPlanVersion'+  Prelude.Integer ->+  -- | 'serviceNamespace'+  ServiceNamespace ->+  -- | 'resourceId'+  Prelude.Text ->+  -- | 'scalableDimension'+  ScalableDimension ->+  -- | 'scalingStatusCode'+  ScalingStatusCode ->+  ScalingPlanResource+newScalingPlanResource+  pScalingPlanName_+  pScalingPlanVersion_+  pServiceNamespace_+  pResourceId_+  pScalableDimension_+  pScalingStatusCode_ =+    ScalingPlanResource'+      { scalingPolicies =+          Prelude.Nothing,+        scalingStatusMessage = Prelude.Nothing,+        scalingPlanName = pScalingPlanName_,+        scalingPlanVersion = pScalingPlanVersion_,+        serviceNamespace = pServiceNamespace_,+        resourceId = pResourceId_,+        scalableDimension = pScalableDimension_,+        scalingStatusCode = pScalingStatusCode_+      }++-- | The scaling policies.+scalingPlanResource_scalingPolicies :: Lens.Lens' ScalingPlanResource (Prelude.Maybe [ScalingPolicy])+scalingPlanResource_scalingPolicies = Lens.lens (\ScalingPlanResource' {scalingPolicies} -> scalingPolicies) (\s@ScalingPlanResource' {} a -> s {scalingPolicies = a} :: ScalingPlanResource) Prelude.. Lens.mapping Lens.coerced++-- | A simple message about the current scaling status of the resource.+scalingPlanResource_scalingStatusMessage :: Lens.Lens' ScalingPlanResource (Prelude.Maybe Prelude.Text)+scalingPlanResource_scalingStatusMessage = Lens.lens (\ScalingPlanResource' {scalingStatusMessage} -> scalingStatusMessage) (\s@ScalingPlanResource' {} a -> s {scalingStatusMessage = a} :: ScalingPlanResource)++-- | The name of the scaling plan.+scalingPlanResource_scalingPlanName :: Lens.Lens' ScalingPlanResource Prelude.Text+scalingPlanResource_scalingPlanName = Lens.lens (\ScalingPlanResource' {scalingPlanName} -> scalingPlanName) (\s@ScalingPlanResource' {} a -> s {scalingPlanName = a} :: ScalingPlanResource)++-- | The version number of the scaling plan.+scalingPlanResource_scalingPlanVersion :: Lens.Lens' ScalingPlanResource Prelude.Integer+scalingPlanResource_scalingPlanVersion = Lens.lens (\ScalingPlanResource' {scalingPlanVersion} -> scalingPlanVersion) (\s@ScalingPlanResource' {} a -> s {scalingPlanVersion = a} :: ScalingPlanResource)++-- | The namespace of the AWS service.+scalingPlanResource_serviceNamespace :: Lens.Lens' ScalingPlanResource ServiceNamespace+scalingPlanResource_serviceNamespace = Lens.lens (\ScalingPlanResource' {serviceNamespace} -> serviceNamespace) (\s@ScalingPlanResource' {} a -> s {serviceNamespace = a} :: ScalingPlanResource)++-- | The ID of the resource. This string consists of the resource type and+-- unique identifier.+--+-- -   Auto Scaling group - The resource type is @autoScalingGroup@ and the+--     unique identifier is the name of the Auto Scaling group. Example:+--     @autoScalingGroup\/my-asg@.+--+-- -   ECS service - The resource type is @service@ and the unique+--     identifier is the cluster name and service name. Example:+--     @service\/default\/sample-webapp@.+--+-- -   Spot Fleet request - The resource type is @spot-fleet-request@ and+--     the unique identifier is the Spot Fleet request ID. Example:+--     @spot-fleet-request\/sfr-73fbd2ce-aa30-494c-8788-1cee4EXAMPLE@.+--+-- -   DynamoDB table - The resource type is @table@ and the unique+--     identifier is the resource ID. Example: @table\/my-table@.+--+-- -   DynamoDB global secondary index - The resource type is @index@ and+--     the unique identifier is the resource ID. Example:+--     @table\/my-table\/index\/my-table-index@.+--+-- -   Aurora DB cluster - The resource type is @cluster@ and the unique+--     identifier is the cluster name. Example: @cluster:my-db-cluster@.+scalingPlanResource_resourceId :: Lens.Lens' ScalingPlanResource Prelude.Text+scalingPlanResource_resourceId = Lens.lens (\ScalingPlanResource' {resourceId} -> resourceId) (\s@ScalingPlanResource' {} a -> s {resourceId = a} :: ScalingPlanResource)++-- | The scalable dimension for the resource.+--+-- -   @autoscaling:autoScalingGroup:DesiredCapacity@ - The desired+--     capacity of an Auto Scaling group.+--+-- -   @ecs:service:DesiredCount@ - The desired task count of an ECS+--     service.+--+-- -   @ec2:spot-fleet-request:TargetCapacity@ - The target capacity of a+--     Spot Fleet request.+--+-- -   @dynamodb:table:ReadCapacityUnits@ - The provisioned read capacity+--     for a DynamoDB table.+--+-- -   @dynamodb:table:WriteCapacityUnits@ - The provisioned write capacity+--     for a DynamoDB table.+--+-- -   @dynamodb:index:ReadCapacityUnits@ - The provisioned read capacity+--     for a DynamoDB global secondary index.+--+-- -   @dynamodb:index:WriteCapacityUnits@ - The provisioned write capacity+--     for a DynamoDB global secondary index.+--+-- -   @rds:cluster:ReadReplicaCount@ - The count of Aurora Replicas in an+--     Aurora DB cluster. Available for Aurora MySQL-compatible edition and+--     Aurora PostgreSQL-compatible edition.+scalingPlanResource_scalableDimension :: Lens.Lens' ScalingPlanResource ScalableDimension+scalingPlanResource_scalableDimension = Lens.lens (\ScalingPlanResource' {scalableDimension} -> scalableDimension) (\s@ScalingPlanResource' {} a -> s {scalableDimension = a} :: ScalingPlanResource)++-- | The scaling status of the resource.+--+-- -   @Active@ - The scaling configuration is active.+--+-- -   @Inactive@ - The scaling configuration is not active because the+--     scaling plan is being created or the scaling configuration could not+--     be applied. Check the status message for more information.+--+-- -   @PartiallyActive@ - The scaling configuration is partially active+--     because the scaling plan is being created or deleted or the scaling+--     configuration could not be fully applied. Check the status message+--     for more information.+scalingPlanResource_scalingStatusCode :: Lens.Lens' ScalingPlanResource ScalingStatusCode+scalingPlanResource_scalingStatusCode = Lens.lens (\ScalingPlanResource' {scalingStatusCode} -> scalingStatusCode) (\s@ScalingPlanResource' {} a -> s {scalingStatusCode = a} :: ScalingPlanResource)++instance Data.FromJSON ScalingPlanResource where+  parseJSON =+    Data.withObject+      "ScalingPlanResource"+      ( \x ->+          ScalingPlanResource'+            Prelude.<$> ( x+                            Data..:? "ScalingPolicies"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "ScalingStatusMessage")+            Prelude.<*> (x Data..: "ScalingPlanName")+            Prelude.<*> (x Data..: "ScalingPlanVersion")+            Prelude.<*> (x Data..: "ServiceNamespace")+            Prelude.<*> (x Data..: "ResourceId")+            Prelude.<*> (x Data..: "ScalableDimension")+            Prelude.<*> (x Data..: "ScalingStatusCode")+      )++instance Prelude.Hashable ScalingPlanResource where+  hashWithSalt _salt ScalingPlanResource' {..} =+    _salt+      `Prelude.hashWithSalt` scalingPolicies+      `Prelude.hashWithSalt` scalingStatusMessage+      `Prelude.hashWithSalt` scalingPlanName+      `Prelude.hashWithSalt` scalingPlanVersion+      `Prelude.hashWithSalt` serviceNamespace+      `Prelude.hashWithSalt` resourceId+      `Prelude.hashWithSalt` scalableDimension+      `Prelude.hashWithSalt` scalingStatusCode++instance Prelude.NFData ScalingPlanResource where+  rnf ScalingPlanResource' {..} =+    Prelude.rnf scalingPolicies+      `Prelude.seq` Prelude.rnf scalingStatusMessage+      `Prelude.seq` Prelude.rnf scalingPlanName+      `Prelude.seq` Prelude.rnf scalingPlanVersion+      `Prelude.seq` Prelude.rnf serviceNamespace+      `Prelude.seq` Prelude.rnf resourceId+      `Prelude.seq` Prelude.rnf scalableDimension+      `Prelude.seq` Prelude.rnf scalingStatusCode

@@ -0,0 +1,101 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ScalingPlanStatusCode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ScalingPlanStatusCode+  ( ScalingPlanStatusCode+      ( ..,+        ScalingPlanStatusCode_Active,+        ScalingPlanStatusCode_ActiveWithProblems,+        ScalingPlanStatusCode_CreationFailed,+        ScalingPlanStatusCode_CreationInProgress,+        ScalingPlanStatusCode_DeletionFailed,+        ScalingPlanStatusCode_DeletionInProgress,+        ScalingPlanStatusCode_UpdateFailed,+        ScalingPlanStatusCode_UpdateInProgress+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ScalingPlanStatusCode = ScalingPlanStatusCode'+  { fromScalingPlanStatusCode ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ScalingPlanStatusCode_Active :: ScalingPlanStatusCode+pattern ScalingPlanStatusCode_Active = ScalingPlanStatusCode' "Active"++pattern ScalingPlanStatusCode_ActiveWithProblems :: ScalingPlanStatusCode+pattern ScalingPlanStatusCode_ActiveWithProblems = ScalingPlanStatusCode' "ActiveWithProblems"++pattern ScalingPlanStatusCode_CreationFailed :: ScalingPlanStatusCode+pattern ScalingPlanStatusCode_CreationFailed = ScalingPlanStatusCode' "CreationFailed"++pattern ScalingPlanStatusCode_CreationInProgress :: ScalingPlanStatusCode+pattern ScalingPlanStatusCode_CreationInProgress = ScalingPlanStatusCode' "CreationInProgress"++pattern ScalingPlanStatusCode_DeletionFailed :: ScalingPlanStatusCode+pattern ScalingPlanStatusCode_DeletionFailed = ScalingPlanStatusCode' "DeletionFailed"++pattern ScalingPlanStatusCode_DeletionInProgress :: ScalingPlanStatusCode+pattern ScalingPlanStatusCode_DeletionInProgress = ScalingPlanStatusCode' "DeletionInProgress"++pattern ScalingPlanStatusCode_UpdateFailed :: ScalingPlanStatusCode+pattern ScalingPlanStatusCode_UpdateFailed = ScalingPlanStatusCode' "UpdateFailed"++pattern ScalingPlanStatusCode_UpdateInProgress :: ScalingPlanStatusCode+pattern ScalingPlanStatusCode_UpdateInProgress = ScalingPlanStatusCode' "UpdateInProgress"++{-# COMPLETE+  ScalingPlanStatusCode_Active,+  ScalingPlanStatusCode_ActiveWithProblems,+  ScalingPlanStatusCode_CreationFailed,+  ScalingPlanStatusCode_CreationInProgress,+  ScalingPlanStatusCode_DeletionFailed,+  ScalingPlanStatusCode_DeletionInProgress,+  ScalingPlanStatusCode_UpdateFailed,+  ScalingPlanStatusCode_UpdateInProgress,+  ScalingPlanStatusCode'+  #-}

@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ScalingPolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ScalingPolicy where++import Amazonka.AutoScalingPlans.Types.PolicyType+import Amazonka.AutoScalingPlans.Types.TargetTrackingConfiguration+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a scaling policy.+--+-- /See:/ 'newScalingPolicy' smart constructor.+data ScalingPolicy = ScalingPolicy'+  { -- | The target tracking scaling policy. Includes support for predefined or+    -- customized metrics.+    targetTrackingConfiguration :: Prelude.Maybe TargetTrackingConfiguration,+    -- | The name of the scaling policy.+    policyName :: Prelude.Text,+    -- | The type of scaling policy.+    policyType :: PolicyType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ScalingPolicy' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'targetTrackingConfiguration', 'scalingPolicy_targetTrackingConfiguration' - The target tracking scaling policy. Includes support for predefined or+-- customized metrics.+--+-- 'policyName', 'scalingPolicy_policyName' - The name of the scaling policy.+--+-- 'policyType', 'scalingPolicy_policyType' - The type of scaling policy.+newScalingPolicy ::+  -- | 'policyName'+  Prelude.Text ->+  -- | 'policyType'+  PolicyType ->+  ScalingPolicy+newScalingPolicy pPolicyName_ pPolicyType_ =+  ScalingPolicy'+    { targetTrackingConfiguration =+        Prelude.Nothing,+      policyName = pPolicyName_,+      policyType = pPolicyType_+    }++-- | The target tracking scaling policy. Includes support for predefined or+-- customized metrics.+scalingPolicy_targetTrackingConfiguration :: Lens.Lens' ScalingPolicy (Prelude.Maybe TargetTrackingConfiguration)+scalingPolicy_targetTrackingConfiguration = Lens.lens (\ScalingPolicy' {targetTrackingConfiguration} -> targetTrackingConfiguration) (\s@ScalingPolicy' {} a -> s {targetTrackingConfiguration = a} :: ScalingPolicy)++-- | The name of the scaling policy.+scalingPolicy_policyName :: Lens.Lens' ScalingPolicy Prelude.Text+scalingPolicy_policyName = Lens.lens (\ScalingPolicy' {policyName} -> policyName) (\s@ScalingPolicy' {} a -> s {policyName = a} :: ScalingPolicy)++-- | The type of scaling policy.+scalingPolicy_policyType :: Lens.Lens' ScalingPolicy PolicyType+scalingPolicy_policyType = Lens.lens (\ScalingPolicy' {policyType} -> policyType) (\s@ScalingPolicy' {} a -> s {policyType = a} :: ScalingPolicy)++instance Data.FromJSON ScalingPolicy where+  parseJSON =+    Data.withObject+      "ScalingPolicy"+      ( \x ->+          ScalingPolicy'+            Prelude.<$> (x Data..:? "TargetTrackingConfiguration")+            Prelude.<*> (x Data..: "PolicyName")+            Prelude.<*> (x Data..: "PolicyType")+      )++instance Prelude.Hashable ScalingPolicy where+  hashWithSalt _salt ScalingPolicy' {..} =+    _salt+      `Prelude.hashWithSalt` targetTrackingConfiguration+      `Prelude.hashWithSalt` policyName+      `Prelude.hashWithSalt` policyType++instance Prelude.NFData ScalingPolicy where+  rnf ScalingPolicy' {..} =+    Prelude.rnf targetTrackingConfiguration+      `Prelude.seq` Prelude.rnf policyName+      `Prelude.seq` Prelude.rnf policyType

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ScalingPolicyUpdateBehavior+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ScalingPolicyUpdateBehavior+  ( ScalingPolicyUpdateBehavior+      ( ..,+        ScalingPolicyUpdateBehavior_KeepExternalPolicies,+        ScalingPolicyUpdateBehavior_ReplaceExternalPolicies+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ScalingPolicyUpdateBehavior = ScalingPolicyUpdateBehavior'+  { fromScalingPolicyUpdateBehavior ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ScalingPolicyUpdateBehavior_KeepExternalPolicies :: ScalingPolicyUpdateBehavior+pattern ScalingPolicyUpdateBehavior_KeepExternalPolicies = ScalingPolicyUpdateBehavior' "KeepExternalPolicies"++pattern ScalingPolicyUpdateBehavior_ReplaceExternalPolicies :: ScalingPolicyUpdateBehavior+pattern ScalingPolicyUpdateBehavior_ReplaceExternalPolicies = ScalingPolicyUpdateBehavior' "ReplaceExternalPolicies"++{-# COMPLETE+  ScalingPolicyUpdateBehavior_KeepExternalPolicies,+  ScalingPolicyUpdateBehavior_ReplaceExternalPolicies,+  ScalingPolicyUpdateBehavior'+  #-}

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ScalingStatusCode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ScalingStatusCode+  ( ScalingStatusCode+      ( ..,+        ScalingStatusCode_Active,+        ScalingStatusCode_Inactive,+        ScalingStatusCode_PartiallyActive+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ScalingStatusCode = ScalingStatusCode'+  { fromScalingStatusCode ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ScalingStatusCode_Active :: ScalingStatusCode+pattern ScalingStatusCode_Active = ScalingStatusCode' "Active"++pattern ScalingStatusCode_Inactive :: ScalingStatusCode+pattern ScalingStatusCode_Inactive = ScalingStatusCode' "Inactive"++pattern ScalingStatusCode_PartiallyActive :: ScalingStatusCode+pattern ScalingStatusCode_PartiallyActive = ScalingStatusCode' "PartiallyActive"++{-# COMPLETE+  ScalingStatusCode_Active,+  ScalingStatusCode_Inactive,+  ScalingStatusCode_PartiallyActive,+  ScalingStatusCode'+  #-}

@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.ServiceNamespace+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.ServiceNamespace+  ( ServiceNamespace+      ( ..,+        ServiceNamespace_Autoscaling,+        ServiceNamespace_Dynamodb,+        ServiceNamespace_Ec2,+        ServiceNamespace_Ecs,+        ServiceNamespace_Rds+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ServiceNamespace = ServiceNamespace'+  { fromServiceNamespace ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ServiceNamespace_Autoscaling :: ServiceNamespace+pattern ServiceNamespace_Autoscaling = ServiceNamespace' "autoscaling"++pattern ServiceNamespace_Dynamodb :: ServiceNamespace+pattern ServiceNamespace_Dynamodb = ServiceNamespace' "dynamodb"++pattern ServiceNamespace_Ec2 :: ServiceNamespace+pattern ServiceNamespace_Ec2 = ServiceNamespace' "ec2"++pattern ServiceNamespace_Ecs :: ServiceNamespace+pattern ServiceNamespace_Ecs = ServiceNamespace' "ecs"++pattern ServiceNamespace_Rds :: ServiceNamespace+pattern ServiceNamespace_Rds = ServiceNamespace' "rds"++{-# COMPLETE+  ServiceNamespace_Autoscaling,+  ServiceNamespace_Dynamodb,+  ServiceNamespace_Ec2,+  ServiceNamespace_Ecs,+  ServiceNamespace_Rds,+  ServiceNamespace'+  #-}

@@ -0,0 +1,92 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AutoScalingPlans.Types.TagFilter+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AutoScalingPlans.Types.TagFilter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a tag.+--+-- /See:/ 'newTagFilter' smart constructor.+data TagFilter = TagFilter'+  { -- | The tag key.+    key :: Prelude.Maybe Prelude.Text,+    -- | The tag values (0 to 20).+    values :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagFilter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'key', 'tagFilter_key' - The tag key.+--+-- 'values', 'tagFilter_values' - The tag values (0 to 20).+newTagFilter ::+  TagFilter+newTagFilter =+  TagFilter'+    { key = Prelude.Nothing,+      values = Prelude.Nothing+    }++-- | The tag key.+tagFilter_key :: Lens.Lens' TagFilter (Prelude.Maybe Prelude.Text)+tagFilter_key = Lens.lens (\TagFilter' {key} -> key) (\s@TagFilter' {} a -> s {key = a} :: TagFilter)++-- | The tag values (0 to 20).+tagFilter_values :: Lens.Lens' TagFilter (Prelude.Maybe [Prelude.Text])+tagFilter_values = Lens.lens (\TagFilter' {values} -> values) (\s@TagFilter' {} a -> s {values = a} :: TagFilter) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON TagFilter where+  parseJSON =+    Data.withObject+      "TagFilter"+      ( \x ->+          TagFilter'+            Prelude.<$> (x Data..:? "Key")+            Prelude.<*> (x Data..:? "Values" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable TagFilter where+  hashWithSalt _salt TagFilter' {..} =+    _salt+      `Prelude.hashWithSalt` key+      `Prelude.hashWithSalt` values++instance Prelude.NFData TagFilter where+  rnf TagFilter' {..} =+    Prelude.rnf key `Prelude.seq` Prelude.rnf values++instance Data.ToJSON TagFilter where+  toJSON TagFilter' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Key" Data..=) Prelude.<$> key,+            ("Values" Data..=) Prelude.<$> values+          ]+      )