{-# 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.ApplicationAutoScaling.PutScalingPolicy -- 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 or updates a scaling policy for an Application Auto Scaling -- scalable target. -- -- Each scalable target is identified by a service namespace, resource ID, -- and scalable dimension. A scaling policy applies to the scalable target -- identified by those three attributes. You cannot create a scaling policy -- until you have registered the resource as a scalable target. -- -- Multiple scaling policies can be in force at the same time for the same -- scalable target. You can have one or more target tracking scaling -- policies, one or more step scaling policies, or both. However, there is -- a chance that multiple policies could conflict, instructing the scalable -- target to scale out or in at the same time. Application Auto Scaling -- gives precedence to the policy that provides the largest capacity for -- both scale out and scale in. For example, if one policy increases -- capacity by 3, another policy increases capacity by 200 percent, and the -- current capacity is 10, Application Auto Scaling uses the policy with -- the highest calculated capacity (200% of 10 = 20) and scales out to 30. -- -- We recommend caution, however, when using target tracking scaling -- policies with step scaling policies because conflicts between these -- policies can cause undesirable behavior. For example, if the step -- scaling policy initiates a scale-in activity before the target tracking -- policy is ready to scale in, the scale-in activity will not be blocked. -- After the scale-in activity completes, the target tracking policy could -- instruct the scalable target to scale out again. -- -- For more information, see -- <https://docs.aws.amazon.com/autoscaling/application/userguide/application-auto-scaling-target-tracking.html Target tracking scaling policies> -- and -- <https://docs.aws.amazon.com/autoscaling/application/userguide/application-auto-scaling-step-scaling-policies.html Step scaling policies> -- in the /Application Auto Scaling User Guide/. -- -- If a scalable target is deregistered, the scalable target is no longer -- available to execute scaling policies. Any scaling policies that were -- specified for the scalable target are deleted. module Amazonka.ApplicationAutoScaling.PutScalingPolicy ( -- * Creating a Request PutScalingPolicy (..), newPutScalingPolicy, -- * Request Lenses putScalingPolicy_policyType, putScalingPolicy_stepScalingPolicyConfiguration, putScalingPolicy_targetTrackingScalingPolicyConfiguration, putScalingPolicy_policyName, putScalingPolicy_serviceNamespace, putScalingPolicy_resourceId, putScalingPolicy_scalableDimension, -- * Destructuring the Response PutScalingPolicyResponse (..), newPutScalingPolicyResponse, -- * Response Lenses putScalingPolicyResponse_alarms, putScalingPolicyResponse_httpStatus, putScalingPolicyResponse_policyARN, ) where import Amazonka.ApplicationAutoScaling.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:/ 'newPutScalingPolicy' smart constructor. data PutScalingPolicy = PutScalingPolicy' { -- | The scaling policy type. This parameter is required if you are creating -- a scaling policy. -- -- The following policy types are supported: -- -- @TargetTrackingScaling@—Not supported for Amazon EMR -- -- @StepScaling@—Not supported for DynamoDB, Amazon Comprehend, Lambda, -- Amazon Keyspaces, Amazon MSK, Amazon ElastiCache, or Neptune. -- -- For more information, see -- <https://docs.aws.amazon.com/autoscaling/application/userguide/application-auto-scaling-target-tracking.html Target tracking scaling policies> -- and -- <https://docs.aws.amazon.com/autoscaling/application/userguide/application-auto-scaling-step-scaling-policies.html Step scaling policies> -- in the /Application Auto Scaling User Guide/. PutScalingPolicy -> Maybe PolicyType policyType :: Prelude.Maybe PolicyType, -- | A step scaling policy. -- -- This parameter is required if you are creating a policy and the policy -- type is @StepScaling@. PutScalingPolicy -> Maybe StepScalingPolicyConfiguration stepScalingPolicyConfiguration :: Prelude.Maybe StepScalingPolicyConfiguration, -- | A target tracking scaling policy. Includes support for predefined or -- customized metrics. -- -- This parameter is required if you are creating a policy and the policy -- type is @TargetTrackingScaling@. PutScalingPolicy -> Maybe TargetTrackingScalingPolicyConfiguration targetTrackingScalingPolicyConfiguration :: Prelude.Maybe TargetTrackingScalingPolicyConfiguration, -- | The name of the scaling policy. -- -- You cannot change the name of a scaling policy, but you can delete the -- original scaling policy and create a new scaling policy with the same -- settings and a different name. PutScalingPolicy -> Text policyName :: Prelude.Text, -- | The namespace of the Amazon Web Services service that provides the -- resource. For a resource provided by your own application or service, -- use @custom-resource@ instead. PutScalingPolicy -> ServiceNamespace serviceNamespace :: ServiceNamespace, -- | The identifier of the resource associated with the scaling policy. This -- string consists of the resource type and unique identifier. -- -- - 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 - 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@. -- -- - EMR cluster - The resource type is @instancegroup@ and the unique -- identifier is the cluster ID and instance group ID. Example: -- @instancegroup\/j-2EEZNYKUA1NTV\/ig-1791Y4E1L8YI0@. -- -- - AppStream 2.0 fleet - The resource type is @fleet@ and the unique -- identifier is the fleet name. Example: @fleet\/sample-fleet@. -- -- - DynamoDB table - The resource type is @table@ and the unique -- identifier is the table name. Example: @table\/my-table@. -- -- - DynamoDB global secondary index - The resource type is @index@ and -- the unique identifier is the index name. 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@. -- -- - SageMaker endpoint variant - The resource type is @variant@ and the -- unique identifier is the resource ID. Example: -- @endpoint\/my-end-point\/variant\/KMeansClustering@. -- -- - Custom resources are not supported with a resource type. This -- parameter must specify the @OutputValue@ from the CloudFormation -- template stack used to access the resources. The unique identifier -- is defined by the service provider. More information is available in -- our -- <https://github.com/aws/aws-auto-scaling-custom-resource GitHub repository>. -- -- - Amazon Comprehend document classification endpoint - The resource -- type and unique identifier are specified using the endpoint ARN. -- Example: -- @arn:aws:comprehend:us-west-2:123456789012:document-classifier-endpoint\/EXAMPLE@. -- -- - Amazon Comprehend entity recognizer endpoint - The resource type and -- unique identifier are specified using the endpoint ARN. Example: -- @arn:aws:comprehend:us-west-2:123456789012:entity-recognizer-endpoint\/EXAMPLE@. -- -- - Lambda provisioned concurrency - The resource type is @function@ and -- the unique identifier is the function name with a function version -- or alias name suffix that is not @$LATEST@. Example: -- @function:my-function:prod@ or @function:my-function:1@. -- -- - Amazon Keyspaces table - The resource type is @table@ and the unique -- identifier is the table name. Example: -- @keyspace\/mykeyspace\/table\/mytable@. -- -- - Amazon MSK cluster - The resource type and unique identifier are -- specified using the cluster ARN. Example: -- @arn:aws:kafka:us-east-1:123456789012:cluster\/demo-cluster-1\/6357e0b2-0e6a-4b86-a0b4-70df934c2e31-5@. -- -- - Amazon ElastiCache replication group - The resource type is -- @replication-group@ and the unique identifier is the replication -- group name. Example: @replication-group\/mycluster@. -- -- - Neptune cluster - The resource type is @cluster@ and the unique -- identifier is the cluster name. Example: @cluster:mycluster@. PutScalingPolicy -> Text resourceId :: Prelude.Text, -- | The scalable dimension. This string consists of the service namespace, -- resource type, and scaling property. -- -- - @ecs:service:DesiredCount@ - The desired task count of an ECS -- service. -- -- - @elasticmapreduce:instancegroup:InstanceCount@ - The instance count -- of an EMR Instance Group. -- -- - @ec2:spot-fleet-request:TargetCapacity@ - The target capacity of a -- Spot Fleet. -- -- - @appstream:fleet:DesiredCapacity@ - The desired capacity of an -- AppStream 2.0 fleet. -- -- - @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. -- -- - @sagemaker:variant:DesiredInstanceCount@ - The number of EC2 -- instances for a SageMaker model endpoint variant. -- -- - @custom-resource:ResourceType:Property@ - The scalable dimension for -- a custom resource provided by your own application or service. -- -- - @comprehend:document-classifier-endpoint:DesiredInferenceUnits@ - -- The number of inference units for an Amazon Comprehend document -- classification endpoint. -- -- - @comprehend:entity-recognizer-endpoint:DesiredInferenceUnits@ - The -- number of inference units for an Amazon Comprehend entity recognizer -- endpoint. -- -- - @lambda:function:ProvisionedConcurrency@ - The provisioned -- concurrency for a Lambda function. -- -- - @cassandra:table:ReadCapacityUnits@ - The provisioned read capacity -- for an Amazon Keyspaces table. -- -- - @cassandra:table:WriteCapacityUnits@ - The provisioned write -- capacity for an Amazon Keyspaces table. -- -- - @kafka:broker-storage:VolumeSize@ - The provisioned volume size (in -- GiB) for brokers in an Amazon MSK cluster. -- -- - @elasticache:replication-group:NodeGroups@ - The number of node -- groups for an Amazon ElastiCache replication group. -- -- - @elasticache:replication-group:Replicas@ - The number of replicas -- per node group for an Amazon ElastiCache replication group. -- -- - @neptune:cluster:ReadReplicaCount@ - The count of read replicas in -- an Amazon Neptune DB cluster. PutScalingPolicy -> ScalableDimension scalableDimension :: ScalableDimension } deriving (PutScalingPolicy -> PutScalingPolicy -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: PutScalingPolicy -> PutScalingPolicy -> Bool $c/= :: PutScalingPolicy -> PutScalingPolicy -> Bool == :: PutScalingPolicy -> PutScalingPolicy -> Bool $c== :: PutScalingPolicy -> PutScalingPolicy -> Bool Prelude.Eq, ReadPrec [PutScalingPolicy] ReadPrec PutScalingPolicy Int -> ReadS PutScalingPolicy ReadS [PutScalingPolicy] forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [PutScalingPolicy] $creadListPrec :: ReadPrec [PutScalingPolicy] readPrec :: ReadPrec PutScalingPolicy $creadPrec :: ReadPrec PutScalingPolicy readList :: ReadS [PutScalingPolicy] $creadList :: ReadS [PutScalingPolicy] readsPrec :: Int -> ReadS PutScalingPolicy $creadsPrec :: Int -> ReadS PutScalingPolicy Prelude.Read, Int -> PutScalingPolicy -> ShowS [PutScalingPolicy] -> ShowS PutScalingPolicy -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [PutScalingPolicy] -> ShowS $cshowList :: [PutScalingPolicy] -> ShowS show :: PutScalingPolicy -> String $cshow :: PutScalingPolicy -> String showsPrec :: Int -> PutScalingPolicy -> ShowS $cshowsPrec :: Int -> PutScalingPolicy -> ShowS Prelude.Show, forall x. Rep PutScalingPolicy x -> PutScalingPolicy forall x. PutScalingPolicy -> Rep PutScalingPolicy x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep PutScalingPolicy x -> PutScalingPolicy $cfrom :: forall x. PutScalingPolicy -> Rep PutScalingPolicy x Prelude.Generic) -- | -- Create a value of 'PutScalingPolicy' 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: -- -- 'policyType', 'putScalingPolicy_policyType' - The scaling policy type. This parameter is required if you are creating -- a scaling policy. -- -- The following policy types are supported: -- -- @TargetTrackingScaling@—Not supported for Amazon EMR -- -- @StepScaling@—Not supported for DynamoDB, Amazon Comprehend, Lambda, -- Amazon Keyspaces, Amazon MSK, Amazon ElastiCache, or Neptune. -- -- For more information, see -- <https://docs.aws.amazon.com/autoscaling/application/userguide/application-auto-scaling-target-tracking.html Target tracking scaling policies> -- and -- <https://docs.aws.amazon.com/autoscaling/application/userguide/application-auto-scaling-step-scaling-policies.html Step scaling policies> -- in the /Application Auto Scaling User Guide/. -- -- 'stepScalingPolicyConfiguration', 'putScalingPolicy_stepScalingPolicyConfiguration' - A step scaling policy. -- -- This parameter is required if you are creating a policy and the policy -- type is @StepScaling@. -- -- 'targetTrackingScalingPolicyConfiguration', 'putScalingPolicy_targetTrackingScalingPolicyConfiguration' - A target tracking scaling policy. Includes support for predefined or -- customized metrics. -- -- This parameter is required if you are creating a policy and the policy -- type is @TargetTrackingScaling@. -- -- 'policyName', 'putScalingPolicy_policyName' - The name of the scaling policy. -- -- You cannot change the name of a scaling policy, but you can delete the -- original scaling policy and create a new scaling policy with the same -- settings and a different name. -- -- 'serviceNamespace', 'putScalingPolicy_serviceNamespace' - The namespace of the Amazon Web Services service that provides the -- resource. For a resource provided by your own application or service, -- use @custom-resource@ instead. -- -- 'resourceId', 'putScalingPolicy_resourceId' - The identifier of the resource associated with the scaling policy. This -- string consists of the resource type and unique identifier. -- -- - 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 - 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@. -- -- - EMR cluster - The resource type is @instancegroup@ and the unique -- identifier is the cluster ID and instance group ID. Example: -- @instancegroup\/j-2EEZNYKUA1NTV\/ig-1791Y4E1L8YI0@. -- -- - AppStream 2.0 fleet - The resource type is @fleet@ and the unique -- identifier is the fleet name. Example: @fleet\/sample-fleet@. -- -- - DynamoDB table - The resource type is @table@ and the unique -- identifier is the table name. Example: @table\/my-table@. -- -- - DynamoDB global secondary index - The resource type is @index@ and -- the unique identifier is the index name. 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@. -- -- - SageMaker endpoint variant - The resource type is @variant@ and the -- unique identifier is the resource ID. Example: -- @endpoint\/my-end-point\/variant\/KMeansClustering@. -- -- - Custom resources are not supported with a resource type. This -- parameter must specify the @OutputValue@ from the CloudFormation -- template stack used to access the resources. The unique identifier -- is defined by the service provider. More information is available in -- our -- <https://github.com/aws/aws-auto-scaling-custom-resource GitHub repository>. -- -- - Amazon Comprehend document classification endpoint - The resource -- type and unique identifier are specified using the endpoint ARN. -- Example: -- @arn:aws:comprehend:us-west-2:123456789012:document-classifier-endpoint\/EXAMPLE@. -- -- - Amazon Comprehend entity recognizer endpoint - The resource type and -- unique identifier are specified using the endpoint ARN. Example: -- @arn:aws:comprehend:us-west-2:123456789012:entity-recognizer-endpoint\/EXAMPLE@. -- -- - Lambda provisioned concurrency - The resource type is @function@ and -- the unique identifier is the function name with a function version -- or alias name suffix that is not @$LATEST@. Example: -- @function:my-function:prod@ or @function:my-function:1@. -- -- - Amazon Keyspaces table - The resource type is @table@ and the unique -- identifier is the table name. Example: -- @keyspace\/mykeyspace\/table\/mytable@. -- -- - Amazon MSK cluster - The resource type and unique identifier are -- specified using the cluster ARN. Example: -- @arn:aws:kafka:us-east-1:123456789012:cluster\/demo-cluster-1\/6357e0b2-0e6a-4b86-a0b4-70df934c2e31-5@. -- -- - Amazon ElastiCache replication group - The resource type is -- @replication-group@ and the unique identifier is the replication -- group name. Example: @replication-group\/mycluster@. -- -- - Neptune cluster - The resource type is @cluster@ and the unique -- identifier is the cluster name. Example: @cluster:mycluster@. -- -- 'scalableDimension', 'putScalingPolicy_scalableDimension' - The scalable dimension. This string consists of the service namespace, -- resource type, and scaling property. -- -- - @ecs:service:DesiredCount@ - The desired task count of an ECS -- service. -- -- - @elasticmapreduce:instancegroup:InstanceCount@ - The instance count -- of an EMR Instance Group. -- -- - @ec2:spot-fleet-request:TargetCapacity@ - The target capacity of a -- Spot Fleet. -- -- - @appstream:fleet:DesiredCapacity@ - The desired capacity of an -- AppStream 2.0 fleet. -- -- - @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. -- -- - @sagemaker:variant:DesiredInstanceCount@ - The number of EC2 -- instances for a SageMaker model endpoint variant. -- -- - @custom-resource:ResourceType:Property@ - The scalable dimension for -- a custom resource provided by your own application or service. -- -- - @comprehend:document-classifier-endpoint:DesiredInferenceUnits@ - -- The number of inference units for an Amazon Comprehend document -- classification endpoint. -- -- - @comprehend:entity-recognizer-endpoint:DesiredInferenceUnits@ - The -- number of inference units for an Amazon Comprehend entity recognizer -- endpoint. -- -- - @lambda:function:ProvisionedConcurrency@ - The provisioned -- concurrency for a Lambda function. -- -- - @cassandra:table:ReadCapacityUnits@ - The provisioned read capacity -- for an Amazon Keyspaces table. -- -- - @cassandra:table:WriteCapacityUnits@ - The provisioned write -- capacity for an Amazon Keyspaces table. -- -- - @kafka:broker-storage:VolumeSize@ - The provisioned volume size (in -- GiB) for brokers in an Amazon MSK cluster. -- -- - @elasticache:replication-group:NodeGroups@ - The number of node -- groups for an Amazon ElastiCache replication group. -- -- - @elasticache:replication-group:Replicas@ - The number of replicas -- per node group for an Amazon ElastiCache replication group. -- -- - @neptune:cluster:ReadReplicaCount@ - The count of read replicas in -- an Amazon Neptune DB cluster. newPutScalingPolicy :: -- | 'policyName' Prelude.Text -> -- | 'serviceNamespace' ServiceNamespace -> -- | 'resourceId' Prelude.Text -> -- | 'scalableDimension' ScalableDimension -> PutScalingPolicy newPutScalingPolicy :: Text -> ServiceNamespace -> Text -> ScalableDimension -> PutScalingPolicy newPutScalingPolicy Text pPolicyName_ ServiceNamespace pServiceNamespace_ Text pResourceId_ ScalableDimension pScalableDimension_ = PutScalingPolicy' { $sel:policyType:PutScalingPolicy' :: Maybe PolicyType policyType = forall a. Maybe a Prelude.Nothing, $sel:stepScalingPolicyConfiguration:PutScalingPolicy' :: Maybe StepScalingPolicyConfiguration stepScalingPolicyConfiguration = forall a. Maybe a Prelude.Nothing, $sel:targetTrackingScalingPolicyConfiguration:PutScalingPolicy' :: Maybe TargetTrackingScalingPolicyConfiguration targetTrackingScalingPolicyConfiguration = forall a. Maybe a Prelude.Nothing, $sel:policyName:PutScalingPolicy' :: Text policyName = Text pPolicyName_, $sel:serviceNamespace:PutScalingPolicy' :: ServiceNamespace serviceNamespace = ServiceNamespace pServiceNamespace_, $sel:resourceId:PutScalingPolicy' :: Text resourceId = Text pResourceId_, $sel:scalableDimension:PutScalingPolicy' :: ScalableDimension scalableDimension = ScalableDimension pScalableDimension_ } -- | The scaling policy type. This parameter is required if you are creating -- a scaling policy. -- -- The following policy types are supported: -- -- @TargetTrackingScaling@—Not supported for Amazon EMR -- -- @StepScaling@—Not supported for DynamoDB, Amazon Comprehend, Lambda, -- Amazon Keyspaces, Amazon MSK, Amazon ElastiCache, or Neptune. -- -- For more information, see -- <https://docs.aws.amazon.com/autoscaling/application/userguide/application-auto-scaling-target-tracking.html Target tracking scaling policies> -- and -- <https://docs.aws.amazon.com/autoscaling/application/userguide/application-auto-scaling-step-scaling-policies.html Step scaling policies> -- in the /Application Auto Scaling User Guide/. putScalingPolicy_policyType :: Lens.Lens' PutScalingPolicy (Prelude.Maybe PolicyType) putScalingPolicy_policyType :: Lens' PutScalingPolicy (Maybe PolicyType) putScalingPolicy_policyType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicy' {Maybe PolicyType policyType :: Maybe PolicyType $sel:policyType:PutScalingPolicy' :: PutScalingPolicy -> Maybe PolicyType policyType} -> Maybe PolicyType policyType) (\s :: PutScalingPolicy s@PutScalingPolicy' {} Maybe PolicyType a -> PutScalingPolicy s {$sel:policyType:PutScalingPolicy' :: Maybe PolicyType policyType = Maybe PolicyType a} :: PutScalingPolicy) -- | A step scaling policy. -- -- This parameter is required if you are creating a policy and the policy -- type is @StepScaling@. putScalingPolicy_stepScalingPolicyConfiguration :: Lens.Lens' PutScalingPolicy (Prelude.Maybe StepScalingPolicyConfiguration) putScalingPolicy_stepScalingPolicyConfiguration :: Lens' PutScalingPolicy (Maybe StepScalingPolicyConfiguration) putScalingPolicy_stepScalingPolicyConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicy' {Maybe StepScalingPolicyConfiguration stepScalingPolicyConfiguration :: Maybe StepScalingPolicyConfiguration $sel:stepScalingPolicyConfiguration:PutScalingPolicy' :: PutScalingPolicy -> Maybe StepScalingPolicyConfiguration stepScalingPolicyConfiguration} -> Maybe StepScalingPolicyConfiguration stepScalingPolicyConfiguration) (\s :: PutScalingPolicy s@PutScalingPolicy' {} Maybe StepScalingPolicyConfiguration a -> PutScalingPolicy s {$sel:stepScalingPolicyConfiguration:PutScalingPolicy' :: Maybe StepScalingPolicyConfiguration stepScalingPolicyConfiguration = Maybe StepScalingPolicyConfiguration a} :: PutScalingPolicy) -- | A target tracking scaling policy. Includes support for predefined or -- customized metrics. -- -- This parameter is required if you are creating a policy and the policy -- type is @TargetTrackingScaling@. putScalingPolicy_targetTrackingScalingPolicyConfiguration :: Lens.Lens' PutScalingPolicy (Prelude.Maybe TargetTrackingScalingPolicyConfiguration) putScalingPolicy_targetTrackingScalingPolicyConfiguration :: Lens' PutScalingPolicy (Maybe TargetTrackingScalingPolicyConfiguration) putScalingPolicy_targetTrackingScalingPolicyConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicy' {Maybe TargetTrackingScalingPolicyConfiguration targetTrackingScalingPolicyConfiguration :: Maybe TargetTrackingScalingPolicyConfiguration $sel:targetTrackingScalingPolicyConfiguration:PutScalingPolicy' :: PutScalingPolicy -> Maybe TargetTrackingScalingPolicyConfiguration targetTrackingScalingPolicyConfiguration} -> Maybe TargetTrackingScalingPolicyConfiguration targetTrackingScalingPolicyConfiguration) (\s :: PutScalingPolicy s@PutScalingPolicy' {} Maybe TargetTrackingScalingPolicyConfiguration a -> PutScalingPolicy s {$sel:targetTrackingScalingPolicyConfiguration:PutScalingPolicy' :: Maybe TargetTrackingScalingPolicyConfiguration targetTrackingScalingPolicyConfiguration = Maybe TargetTrackingScalingPolicyConfiguration a} :: PutScalingPolicy) -- | The name of the scaling policy. -- -- You cannot change the name of a scaling policy, but you can delete the -- original scaling policy and create a new scaling policy with the same -- settings and a different name. putScalingPolicy_policyName :: Lens.Lens' PutScalingPolicy Prelude.Text putScalingPolicy_policyName :: Lens' PutScalingPolicy Text putScalingPolicy_policyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicy' {Text policyName :: Text $sel:policyName:PutScalingPolicy' :: PutScalingPolicy -> Text policyName} -> Text policyName) (\s :: PutScalingPolicy s@PutScalingPolicy' {} Text a -> PutScalingPolicy s {$sel:policyName:PutScalingPolicy' :: Text policyName = Text a} :: PutScalingPolicy) -- | The namespace of the Amazon Web Services service that provides the -- resource. For a resource provided by your own application or service, -- use @custom-resource@ instead. putScalingPolicy_serviceNamespace :: Lens.Lens' PutScalingPolicy ServiceNamespace putScalingPolicy_serviceNamespace :: Lens' PutScalingPolicy ServiceNamespace putScalingPolicy_serviceNamespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicy' {ServiceNamespace serviceNamespace :: ServiceNamespace $sel:serviceNamespace:PutScalingPolicy' :: PutScalingPolicy -> ServiceNamespace serviceNamespace} -> ServiceNamespace serviceNamespace) (\s :: PutScalingPolicy s@PutScalingPolicy' {} ServiceNamespace a -> PutScalingPolicy s {$sel:serviceNamespace:PutScalingPolicy' :: ServiceNamespace serviceNamespace = ServiceNamespace a} :: PutScalingPolicy) -- | The identifier of the resource associated with the scaling policy. This -- string consists of the resource type and unique identifier. -- -- - 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 - 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@. -- -- - EMR cluster - The resource type is @instancegroup@ and the unique -- identifier is the cluster ID and instance group ID. Example: -- @instancegroup\/j-2EEZNYKUA1NTV\/ig-1791Y4E1L8YI0@. -- -- - AppStream 2.0 fleet - The resource type is @fleet@ and the unique -- identifier is the fleet name. Example: @fleet\/sample-fleet@. -- -- - DynamoDB table - The resource type is @table@ and the unique -- identifier is the table name. Example: @table\/my-table@. -- -- - DynamoDB global secondary index - The resource type is @index@ and -- the unique identifier is the index name. 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@. -- -- - SageMaker endpoint variant - The resource type is @variant@ and the -- unique identifier is the resource ID. Example: -- @endpoint\/my-end-point\/variant\/KMeansClustering@. -- -- - Custom resources are not supported with a resource type. This -- parameter must specify the @OutputValue@ from the CloudFormation -- template stack used to access the resources. The unique identifier -- is defined by the service provider. More information is available in -- our -- <https://github.com/aws/aws-auto-scaling-custom-resource GitHub repository>. -- -- - Amazon Comprehend document classification endpoint - The resource -- type and unique identifier are specified using the endpoint ARN. -- Example: -- @arn:aws:comprehend:us-west-2:123456789012:document-classifier-endpoint\/EXAMPLE@. -- -- - Amazon Comprehend entity recognizer endpoint - The resource type and -- unique identifier are specified using the endpoint ARN. Example: -- @arn:aws:comprehend:us-west-2:123456789012:entity-recognizer-endpoint\/EXAMPLE@. -- -- - Lambda provisioned concurrency - The resource type is @function@ and -- the unique identifier is the function name with a function version -- or alias name suffix that is not @$LATEST@. Example: -- @function:my-function:prod@ or @function:my-function:1@. -- -- - Amazon Keyspaces table - The resource type is @table@ and the unique -- identifier is the table name. Example: -- @keyspace\/mykeyspace\/table\/mytable@. -- -- - Amazon MSK cluster - The resource type and unique identifier are -- specified using the cluster ARN. Example: -- @arn:aws:kafka:us-east-1:123456789012:cluster\/demo-cluster-1\/6357e0b2-0e6a-4b86-a0b4-70df934c2e31-5@. -- -- - Amazon ElastiCache replication group - The resource type is -- @replication-group@ and the unique identifier is the replication -- group name. Example: @replication-group\/mycluster@. -- -- - Neptune cluster - The resource type is @cluster@ and the unique -- identifier is the cluster name. Example: @cluster:mycluster@. putScalingPolicy_resourceId :: Lens.Lens' PutScalingPolicy Prelude.Text putScalingPolicy_resourceId :: Lens' PutScalingPolicy Text putScalingPolicy_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicy' {Text resourceId :: Text $sel:resourceId:PutScalingPolicy' :: PutScalingPolicy -> Text resourceId} -> Text resourceId) (\s :: PutScalingPolicy s@PutScalingPolicy' {} Text a -> PutScalingPolicy s {$sel:resourceId:PutScalingPolicy' :: Text resourceId = Text a} :: PutScalingPolicy) -- | The scalable dimension. This string consists of the service namespace, -- resource type, and scaling property. -- -- - @ecs:service:DesiredCount@ - The desired task count of an ECS -- service. -- -- - @elasticmapreduce:instancegroup:InstanceCount@ - The instance count -- of an EMR Instance Group. -- -- - @ec2:spot-fleet-request:TargetCapacity@ - The target capacity of a -- Spot Fleet. -- -- - @appstream:fleet:DesiredCapacity@ - The desired capacity of an -- AppStream 2.0 fleet. -- -- - @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. -- -- - @sagemaker:variant:DesiredInstanceCount@ - The number of EC2 -- instances for a SageMaker model endpoint variant. -- -- - @custom-resource:ResourceType:Property@ - The scalable dimension for -- a custom resource provided by your own application or service. -- -- - @comprehend:document-classifier-endpoint:DesiredInferenceUnits@ - -- The number of inference units for an Amazon Comprehend document -- classification endpoint. -- -- - @comprehend:entity-recognizer-endpoint:DesiredInferenceUnits@ - The -- number of inference units for an Amazon Comprehend entity recognizer -- endpoint. -- -- - @lambda:function:ProvisionedConcurrency@ - The provisioned -- concurrency for a Lambda function. -- -- - @cassandra:table:ReadCapacityUnits@ - The provisioned read capacity -- for an Amazon Keyspaces table. -- -- - @cassandra:table:WriteCapacityUnits@ - The provisioned write -- capacity for an Amazon Keyspaces table. -- -- - @kafka:broker-storage:VolumeSize@ - The provisioned volume size (in -- GiB) for brokers in an Amazon MSK cluster. -- -- - @elasticache:replication-group:NodeGroups@ - The number of node -- groups for an Amazon ElastiCache replication group. -- -- - @elasticache:replication-group:Replicas@ - The number of replicas -- per node group for an Amazon ElastiCache replication group. -- -- - @neptune:cluster:ReadReplicaCount@ - The count of read replicas in -- an Amazon Neptune DB cluster. putScalingPolicy_scalableDimension :: Lens.Lens' PutScalingPolicy ScalableDimension putScalingPolicy_scalableDimension :: Lens' PutScalingPolicy ScalableDimension putScalingPolicy_scalableDimension = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicy' {ScalableDimension scalableDimension :: ScalableDimension $sel:scalableDimension:PutScalingPolicy' :: PutScalingPolicy -> ScalableDimension scalableDimension} -> ScalableDimension scalableDimension) (\s :: PutScalingPolicy s@PutScalingPolicy' {} ScalableDimension a -> PutScalingPolicy s {$sel:scalableDimension:PutScalingPolicy' :: ScalableDimension scalableDimension = ScalableDimension a} :: PutScalingPolicy) instance Core.AWSRequest PutScalingPolicy where type AWSResponse PutScalingPolicy = PutScalingPolicyResponse request :: (Service -> Service) -> PutScalingPolicy -> Request PutScalingPolicy request Service -> Service overrides = forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a Request.postJSON (Service -> Service overrides Service defaultService) response :: forall (m :: * -> *). MonadResource m => (ByteStringLazy -> IO ByteStringLazy) -> Service -> Proxy PutScalingPolicy -> ClientResponse ClientBody -> m (Either Error (ClientResponse (AWSResponse PutScalingPolicy))) response = forall (m :: * -> *) a. MonadResource m => (Int -> ResponseHeaders -> Object -> Either String (AWSResponse a)) -> (ByteStringLazy -> IO ByteStringLazy) -> Service -> Proxy a -> ClientResponse ClientBody -> m (Either Error (ClientResponse (AWSResponse a))) Response.receiveJSON ( \Int s ResponseHeaders h Object x -> Maybe [Alarm] -> Int -> Text -> PutScalingPolicyResponse PutScalingPolicyResponse' forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> (Object x forall a. FromJSON a => Object -> Key -> Either String (Maybe a) Data..?> Key "Alarms" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a Core..!@ forall a. Monoid a => a Prelude.mempty) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a Prelude.pure (forall a. Enum a => a -> Int Prelude.fromEnum Int s)) forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b Prelude.<*> (Object x forall a. FromJSON a => Object -> Key -> Either String a Data..:> Key "PolicyARN") ) instance Prelude.Hashable PutScalingPolicy where hashWithSalt :: Int -> PutScalingPolicy -> Int hashWithSalt Int _salt PutScalingPolicy' {Maybe PolicyType Maybe StepScalingPolicyConfiguration Maybe TargetTrackingScalingPolicyConfiguration Text ScalableDimension ServiceNamespace scalableDimension :: ScalableDimension resourceId :: Text serviceNamespace :: ServiceNamespace policyName :: Text targetTrackingScalingPolicyConfiguration :: Maybe TargetTrackingScalingPolicyConfiguration stepScalingPolicyConfiguration :: Maybe StepScalingPolicyConfiguration policyType :: Maybe PolicyType $sel:scalableDimension:PutScalingPolicy' :: PutScalingPolicy -> ScalableDimension $sel:resourceId:PutScalingPolicy' :: PutScalingPolicy -> Text $sel:serviceNamespace:PutScalingPolicy' :: PutScalingPolicy -> ServiceNamespace $sel:policyName:PutScalingPolicy' :: PutScalingPolicy -> Text $sel:targetTrackingScalingPolicyConfiguration:PutScalingPolicy' :: PutScalingPolicy -> Maybe TargetTrackingScalingPolicyConfiguration $sel:stepScalingPolicyConfiguration:PutScalingPolicy' :: PutScalingPolicy -> Maybe StepScalingPolicyConfiguration $sel:policyType:PutScalingPolicy' :: PutScalingPolicy -> Maybe PolicyType ..} = Int _salt forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe PolicyType policyType forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe StepScalingPolicyConfiguration stepScalingPolicyConfiguration forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe TargetTrackingScalingPolicyConfiguration targetTrackingScalingPolicyConfiguration forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Text policyName forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` ServiceNamespace serviceNamespace forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Text resourceId forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` ScalableDimension scalableDimension instance Prelude.NFData PutScalingPolicy where rnf :: PutScalingPolicy -> () rnf PutScalingPolicy' {Maybe PolicyType Maybe StepScalingPolicyConfiguration Maybe TargetTrackingScalingPolicyConfiguration Text ScalableDimension ServiceNamespace scalableDimension :: ScalableDimension resourceId :: Text serviceNamespace :: ServiceNamespace policyName :: Text targetTrackingScalingPolicyConfiguration :: Maybe TargetTrackingScalingPolicyConfiguration stepScalingPolicyConfiguration :: Maybe StepScalingPolicyConfiguration policyType :: Maybe PolicyType $sel:scalableDimension:PutScalingPolicy' :: PutScalingPolicy -> ScalableDimension $sel:resourceId:PutScalingPolicy' :: PutScalingPolicy -> Text $sel:serviceNamespace:PutScalingPolicy' :: PutScalingPolicy -> ServiceNamespace $sel:policyName:PutScalingPolicy' :: PutScalingPolicy -> Text $sel:targetTrackingScalingPolicyConfiguration:PutScalingPolicy' :: PutScalingPolicy -> Maybe TargetTrackingScalingPolicyConfiguration $sel:stepScalingPolicyConfiguration:PutScalingPolicy' :: PutScalingPolicy -> Maybe StepScalingPolicyConfiguration $sel:policyType:PutScalingPolicy' :: PutScalingPolicy -> Maybe PolicyType ..} = forall a. NFData a => a -> () Prelude.rnf Maybe PolicyType policyType seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe StepScalingPolicyConfiguration stepScalingPolicyConfiguration seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe TargetTrackingScalingPolicyConfiguration targetTrackingScalingPolicyConfiguration seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Text policyName seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf ServiceNamespace serviceNamespace seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Text resourceId seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf ScalableDimension scalableDimension instance Data.ToHeaders PutScalingPolicy where toHeaders :: PutScalingPolicy -> ResponseHeaders toHeaders = forall a b. a -> b -> a Prelude.const ( forall a. Monoid a => [a] -> a Prelude.mconcat [ HeaderName "X-Amz-Target" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders Data.=# ( ByteString "AnyScaleFrontendService.PutScalingPolicy" :: Prelude.ByteString ), HeaderName "Content-Type" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders Data.=# ( ByteString "application/x-amz-json-1.1" :: Prelude.ByteString ) ] ) instance Data.ToJSON PutScalingPolicy where toJSON :: PutScalingPolicy -> Value toJSON PutScalingPolicy' {Maybe PolicyType Maybe StepScalingPolicyConfiguration Maybe TargetTrackingScalingPolicyConfiguration Text ScalableDimension ServiceNamespace scalableDimension :: ScalableDimension resourceId :: Text serviceNamespace :: ServiceNamespace policyName :: Text targetTrackingScalingPolicyConfiguration :: Maybe TargetTrackingScalingPolicyConfiguration stepScalingPolicyConfiguration :: Maybe StepScalingPolicyConfiguration policyType :: Maybe PolicyType $sel:scalableDimension:PutScalingPolicy' :: PutScalingPolicy -> ScalableDimension $sel:resourceId:PutScalingPolicy' :: PutScalingPolicy -> Text $sel:serviceNamespace:PutScalingPolicy' :: PutScalingPolicy -> ServiceNamespace $sel:policyName:PutScalingPolicy' :: PutScalingPolicy -> Text $sel:targetTrackingScalingPolicyConfiguration:PutScalingPolicy' :: PutScalingPolicy -> Maybe TargetTrackingScalingPolicyConfiguration $sel:stepScalingPolicyConfiguration:PutScalingPolicy' :: PutScalingPolicy -> Maybe StepScalingPolicyConfiguration $sel:policyType:PutScalingPolicy' :: PutScalingPolicy -> Maybe PolicyType ..} = [Pair] -> Value Data.object ( forall a. [Maybe a] -> [a] Prelude.catMaybes [ (Key "PolicyType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe PolicyType policyType, (Key "StepScalingPolicyConfiguration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe StepScalingPolicyConfiguration stepScalingPolicyConfiguration, (Key "TargetTrackingScalingPolicyConfiguration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe TargetTrackingScalingPolicyConfiguration targetTrackingScalingPolicyConfiguration, forall a. a -> Maybe a Prelude.Just (Key "PolicyName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..= Text policyName), forall a. a -> Maybe a Prelude.Just (Key "ServiceNamespace" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..= ServiceNamespace serviceNamespace), forall a. a -> Maybe a Prelude.Just (Key "ResourceId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..= Text resourceId), forall a. a -> Maybe a Prelude.Just (Key "ScalableDimension" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..= ScalableDimension scalableDimension) ] ) instance Data.ToPath PutScalingPolicy where toPath :: PutScalingPolicy -> ByteString toPath = forall a b. a -> b -> a Prelude.const ByteString "/" instance Data.ToQuery PutScalingPolicy where toQuery :: PutScalingPolicy -> QueryString toQuery = forall a b. a -> b -> a Prelude.const forall a. Monoid a => a Prelude.mempty -- | /See:/ 'newPutScalingPolicyResponse' smart constructor. data PutScalingPolicyResponse = PutScalingPolicyResponse' { -- | The CloudWatch alarms created for the target tracking scaling policy. PutScalingPolicyResponse -> Maybe [Alarm] alarms :: Prelude.Maybe [Alarm], -- | The response's http status code. PutScalingPolicyResponse -> Int httpStatus :: Prelude.Int, -- | The Amazon Resource Name (ARN) of the resulting scaling policy. PutScalingPolicyResponse -> Text policyARN :: Prelude.Text } deriving (PutScalingPolicyResponse -> PutScalingPolicyResponse -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: PutScalingPolicyResponse -> PutScalingPolicyResponse -> Bool $c/= :: PutScalingPolicyResponse -> PutScalingPolicyResponse -> Bool == :: PutScalingPolicyResponse -> PutScalingPolicyResponse -> Bool $c== :: PutScalingPolicyResponse -> PutScalingPolicyResponse -> Bool Prelude.Eq, ReadPrec [PutScalingPolicyResponse] ReadPrec PutScalingPolicyResponse Int -> ReadS PutScalingPolicyResponse ReadS [PutScalingPolicyResponse] forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [PutScalingPolicyResponse] $creadListPrec :: ReadPrec [PutScalingPolicyResponse] readPrec :: ReadPrec PutScalingPolicyResponse $creadPrec :: ReadPrec PutScalingPolicyResponse readList :: ReadS [PutScalingPolicyResponse] $creadList :: ReadS [PutScalingPolicyResponse] readsPrec :: Int -> ReadS PutScalingPolicyResponse $creadsPrec :: Int -> ReadS PutScalingPolicyResponse Prelude.Read, Int -> PutScalingPolicyResponse -> ShowS [PutScalingPolicyResponse] -> ShowS PutScalingPolicyResponse -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [PutScalingPolicyResponse] -> ShowS $cshowList :: [PutScalingPolicyResponse] -> ShowS show :: PutScalingPolicyResponse -> String $cshow :: PutScalingPolicyResponse -> String showsPrec :: Int -> PutScalingPolicyResponse -> ShowS $cshowsPrec :: Int -> PutScalingPolicyResponse -> ShowS Prelude.Show, forall x. Rep PutScalingPolicyResponse x -> PutScalingPolicyResponse forall x. PutScalingPolicyResponse -> Rep PutScalingPolicyResponse x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep PutScalingPolicyResponse x -> PutScalingPolicyResponse $cfrom :: forall x. PutScalingPolicyResponse -> Rep PutScalingPolicyResponse x Prelude.Generic) -- | -- Create a value of 'PutScalingPolicyResponse' 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: -- -- 'alarms', 'putScalingPolicyResponse_alarms' - The CloudWatch alarms created for the target tracking scaling policy. -- -- 'httpStatus', 'putScalingPolicyResponse_httpStatus' - The response's http status code. -- -- 'policyARN', 'putScalingPolicyResponse_policyARN' - The Amazon Resource Name (ARN) of the resulting scaling policy. newPutScalingPolicyResponse :: -- | 'httpStatus' Prelude.Int -> -- | 'policyARN' Prelude.Text -> PutScalingPolicyResponse newPutScalingPolicyResponse :: Int -> Text -> PutScalingPolicyResponse newPutScalingPolicyResponse Int pHttpStatus_ Text pPolicyARN_ = PutScalingPolicyResponse' { $sel:alarms:PutScalingPolicyResponse' :: Maybe [Alarm] alarms = forall a. Maybe a Prelude.Nothing, $sel:httpStatus:PutScalingPolicyResponse' :: Int httpStatus = Int pHttpStatus_, $sel:policyARN:PutScalingPolicyResponse' :: Text policyARN = Text pPolicyARN_ } -- | The CloudWatch alarms created for the target tracking scaling policy. putScalingPolicyResponse_alarms :: Lens.Lens' PutScalingPolicyResponse (Prelude.Maybe [Alarm]) putScalingPolicyResponse_alarms :: Lens' PutScalingPolicyResponse (Maybe [Alarm]) putScalingPolicyResponse_alarms = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicyResponse' {Maybe [Alarm] alarms :: Maybe [Alarm] $sel:alarms:PutScalingPolicyResponse' :: PutScalingPolicyResponse -> Maybe [Alarm] alarms} -> Maybe [Alarm] alarms) (\s :: PutScalingPolicyResponse s@PutScalingPolicyResponse' {} Maybe [Alarm] a -> PutScalingPolicyResponse s {$sel:alarms:PutScalingPolicyResponse' :: Maybe [Alarm] alarms = Maybe [Alarm] a} :: PutScalingPolicyResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b. (Functor f, Functor g) => AnIso s t a b -> Iso (f s) (g t) (f a) (g b) Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b Lens.coerced -- | The response's http status code. putScalingPolicyResponse_httpStatus :: Lens.Lens' PutScalingPolicyResponse Prelude.Int putScalingPolicyResponse_httpStatus :: Lens' PutScalingPolicyResponse Int putScalingPolicyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicyResponse' {Int httpStatus :: Int $sel:httpStatus:PutScalingPolicyResponse' :: PutScalingPolicyResponse -> Int httpStatus} -> Int httpStatus) (\s :: PutScalingPolicyResponse s@PutScalingPolicyResponse' {} Int a -> PutScalingPolicyResponse s {$sel:httpStatus:PutScalingPolicyResponse' :: Int httpStatus = Int a} :: PutScalingPolicyResponse) -- | The Amazon Resource Name (ARN) of the resulting scaling policy. putScalingPolicyResponse_policyARN :: Lens.Lens' PutScalingPolicyResponse Prelude.Text putScalingPolicyResponse_policyARN :: Lens' PutScalingPolicyResponse Text putScalingPolicyResponse_policyARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScalingPolicyResponse' {Text policyARN :: Text $sel:policyARN:PutScalingPolicyResponse' :: PutScalingPolicyResponse -> Text policyARN} -> Text policyARN) (\s :: PutScalingPolicyResponse s@PutScalingPolicyResponse' {} Text a -> PutScalingPolicyResponse s {$sel:policyARN:PutScalingPolicyResponse' :: Text policyARN = Text a} :: PutScalingPolicyResponse) instance Prelude.NFData PutScalingPolicyResponse where rnf :: PutScalingPolicyResponse -> () rnf PutScalingPolicyResponse' {Int Maybe [Alarm] Text policyARN :: Text httpStatus :: Int alarms :: Maybe [Alarm] $sel:policyARN:PutScalingPolicyResponse' :: PutScalingPolicyResponse -> Text $sel:httpStatus:PutScalingPolicyResponse' :: PutScalingPolicyResponse -> Int $sel:alarms:PutScalingPolicyResponse' :: PutScalingPolicyResponse -> Maybe [Alarm] ..} = forall a. NFData a => a -> () Prelude.rnf Maybe [Alarm] alarms seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Int httpStatus seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Text policyARN