{-# 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.PutScheduledAction -- 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 scheduled action for an Application Auto Scaling -- scalable target. -- -- Each scalable target is identified by a service namespace, resource ID, -- and scalable dimension. A scheduled action applies to the scalable -- target identified by those three attributes. You cannot create a -- scheduled action until you have registered the resource as a scalable -- target. -- -- When start and end times are specified with a recurring schedule using a -- cron expression or rates, they form the boundaries for when the -- recurring action starts and stops. -- -- To update a scheduled action, specify the parameters that you want to -- change. If you don\'t specify start and end times, the old values are -- deleted. -- -- For more information, see -- <https://docs.aws.amazon.com/autoscaling/application/userguide/application-auto-scaling-scheduled-scaling.html Scheduled scaling> -- in the /Application Auto Scaling User Guide/. -- -- If a scalable target is deregistered, the scalable target is no longer -- available to run scheduled actions. Any scheduled actions that were -- specified for the scalable target are deleted. module Amazonka.ApplicationAutoScaling.PutScheduledAction ( -- * Creating a Request PutScheduledAction (..), newPutScheduledAction, -- * Request Lenses putScheduledAction_endTime, putScheduledAction_scalableTargetAction, putScheduledAction_schedule, putScheduledAction_startTime, putScheduledAction_timezone, putScheduledAction_serviceNamespace, putScheduledAction_scheduledActionName, putScheduledAction_resourceId, putScheduledAction_scalableDimension, -- * Destructuring the Response PutScheduledActionResponse (..), newPutScheduledActionResponse, -- * Response Lenses putScheduledActionResponse_httpStatus, ) 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:/ 'newPutScheduledAction' smart constructor. data PutScheduledAction = PutScheduledAction' { -- | The date and time for the recurring schedule to end, in UTC. PutScheduledAction -> Maybe POSIX endTime :: Prelude.Maybe Data.POSIX, -- | The new minimum and maximum capacity. You can set both values or just -- one. At the scheduled time, if the current capacity is below the minimum -- capacity, Application Auto Scaling scales out to the minimum capacity. -- If the current capacity is above the maximum capacity, Application Auto -- Scaling scales in to the maximum capacity. PutScheduledAction -> Maybe ScalableTargetAction scalableTargetAction :: Prelude.Maybe ScalableTargetAction, -- | The schedule for this action. The following formats are supported: -- -- - At expressions - -- \"@at(@/@yyyy@/@-@/@mm@/@-@/@dd@/@T@/@hh@/@:@/@mm@/@:@/@ss@/@)@\" -- -- - Rate expressions - \"@rate(@/@value@/@ @/@unit@/@)@\" -- -- - Cron expressions - \"@cron(@/@fields@/@)@\" -- -- At expressions are useful for one-time schedules. Cron expressions are -- useful for scheduled actions that run periodically at a specified date -- and time, and rate expressions are useful for scheduled actions that run -- at a regular interval. -- -- At and cron expressions use Universal Coordinated Time (UTC) by default. -- -- The cron format consists of six fields separated by white spaces: -- [Minutes] [Hours] [Day_of_Month] [Month] [Day_of_Week] [Year]. -- -- For rate expressions, /value/ is a positive integer and /unit/ is -- @minute@ | @minutes@ | @hour@ | @hours@ | @day@ | @days@. -- -- For more information and examples, see -- <https://docs.aws.amazon.com/autoscaling/application/userguide/examples-scheduled-actions.html Example scheduled actions for Application Auto Scaling> -- in the /Application Auto Scaling User Guide/. PutScheduledAction -> Maybe Text schedule :: Prelude.Maybe Prelude.Text, -- | The date and time for this scheduled action to start, in UTC. PutScheduledAction -> Maybe POSIX startTime :: Prelude.Maybe Data.POSIX, -- | Specifies the time zone used when setting a scheduled action by using an -- at or cron expression. If a time zone is not provided, UTC is used by -- default. -- -- Valid values are the canonical names of the IANA time zones supported by -- Joda-Time (such as @Etc\/GMT+9@ or @Pacific\/Tahiti@). For more -- information, see <https://www.joda.org/joda-time/timezones.html>. PutScheduledAction -> Maybe Text timezone :: Prelude.Maybe 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. PutScheduledAction -> ServiceNamespace serviceNamespace :: ServiceNamespace, -- | The name of the scheduled action. This name must be unique among all -- other scheduled actions on the specified scalable target. PutScheduledAction -> Text scheduledActionName :: Prelude.Text, -- | The identifier of the resource associated with the scheduled action. -- 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@. PutScheduledAction -> 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. PutScheduledAction -> ScalableDimension scalableDimension :: ScalableDimension } deriving (PutScheduledAction -> PutScheduledAction -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: PutScheduledAction -> PutScheduledAction -> Bool $c/= :: PutScheduledAction -> PutScheduledAction -> Bool == :: PutScheduledAction -> PutScheduledAction -> Bool $c== :: PutScheduledAction -> PutScheduledAction -> Bool Prelude.Eq, ReadPrec [PutScheduledAction] ReadPrec PutScheduledAction Int -> ReadS PutScheduledAction ReadS [PutScheduledAction] forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [PutScheduledAction] $creadListPrec :: ReadPrec [PutScheduledAction] readPrec :: ReadPrec PutScheduledAction $creadPrec :: ReadPrec PutScheduledAction readList :: ReadS [PutScheduledAction] $creadList :: ReadS [PutScheduledAction] readsPrec :: Int -> ReadS PutScheduledAction $creadsPrec :: Int -> ReadS PutScheduledAction Prelude.Read, Int -> PutScheduledAction -> ShowS [PutScheduledAction] -> ShowS PutScheduledAction -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [PutScheduledAction] -> ShowS $cshowList :: [PutScheduledAction] -> ShowS show :: PutScheduledAction -> String $cshow :: PutScheduledAction -> String showsPrec :: Int -> PutScheduledAction -> ShowS $cshowsPrec :: Int -> PutScheduledAction -> ShowS Prelude.Show, forall x. Rep PutScheduledAction x -> PutScheduledAction forall x. PutScheduledAction -> Rep PutScheduledAction x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep PutScheduledAction x -> PutScheduledAction $cfrom :: forall x. PutScheduledAction -> Rep PutScheduledAction x Prelude.Generic) -- | -- Create a value of 'PutScheduledAction' 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: -- -- 'endTime', 'putScheduledAction_endTime' - The date and time for the recurring schedule to end, in UTC. -- -- 'scalableTargetAction', 'putScheduledAction_scalableTargetAction' - The new minimum and maximum capacity. You can set both values or just -- one. At the scheduled time, if the current capacity is below the minimum -- capacity, Application Auto Scaling scales out to the minimum capacity. -- If the current capacity is above the maximum capacity, Application Auto -- Scaling scales in to the maximum capacity. -- -- 'schedule', 'putScheduledAction_schedule' - The schedule for this action. The following formats are supported: -- -- - At expressions - -- \"@at(@/@yyyy@/@-@/@mm@/@-@/@dd@/@T@/@hh@/@:@/@mm@/@:@/@ss@/@)@\" -- -- - Rate expressions - \"@rate(@/@value@/@ @/@unit@/@)@\" -- -- - Cron expressions - \"@cron(@/@fields@/@)@\" -- -- At expressions are useful for one-time schedules. Cron expressions are -- useful for scheduled actions that run periodically at a specified date -- and time, and rate expressions are useful for scheduled actions that run -- at a regular interval. -- -- At and cron expressions use Universal Coordinated Time (UTC) by default. -- -- The cron format consists of six fields separated by white spaces: -- [Minutes] [Hours] [Day_of_Month] [Month] [Day_of_Week] [Year]. -- -- For rate expressions, /value/ is a positive integer and /unit/ is -- @minute@ | @minutes@ | @hour@ | @hours@ | @day@ | @days@. -- -- For more information and examples, see -- <https://docs.aws.amazon.com/autoscaling/application/userguide/examples-scheduled-actions.html Example scheduled actions for Application Auto Scaling> -- in the /Application Auto Scaling User Guide/. -- -- 'startTime', 'putScheduledAction_startTime' - The date and time for this scheduled action to start, in UTC. -- -- 'timezone', 'putScheduledAction_timezone' - Specifies the time zone used when setting a scheduled action by using an -- at or cron expression. If a time zone is not provided, UTC is used by -- default. -- -- Valid values are the canonical names of the IANA time zones supported by -- Joda-Time (such as @Etc\/GMT+9@ or @Pacific\/Tahiti@). For more -- information, see <https://www.joda.org/joda-time/timezones.html>. -- -- 'serviceNamespace', 'putScheduledAction_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. -- -- 'scheduledActionName', 'putScheduledAction_scheduledActionName' - The name of the scheduled action. This name must be unique among all -- other scheduled actions on the specified scalable target. -- -- 'resourceId', 'putScheduledAction_resourceId' - The identifier of the resource associated with the scheduled action. -- 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', 'putScheduledAction_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. newPutScheduledAction :: -- | 'serviceNamespace' ServiceNamespace -> -- | 'scheduledActionName' Prelude.Text -> -- | 'resourceId' Prelude.Text -> -- | 'scalableDimension' ScalableDimension -> PutScheduledAction newPutScheduledAction :: ServiceNamespace -> Text -> Text -> ScalableDimension -> PutScheduledAction newPutScheduledAction ServiceNamespace pServiceNamespace_ Text pScheduledActionName_ Text pResourceId_ ScalableDimension pScalableDimension_ = PutScheduledAction' { $sel:endTime:PutScheduledAction' :: Maybe POSIX endTime = forall a. Maybe a Prelude.Nothing, $sel:scalableTargetAction:PutScheduledAction' :: Maybe ScalableTargetAction scalableTargetAction = forall a. Maybe a Prelude.Nothing, $sel:schedule:PutScheduledAction' :: Maybe Text schedule = forall a. Maybe a Prelude.Nothing, $sel:startTime:PutScheduledAction' :: Maybe POSIX startTime = forall a. Maybe a Prelude.Nothing, $sel:timezone:PutScheduledAction' :: Maybe Text timezone = forall a. Maybe a Prelude.Nothing, $sel:serviceNamespace:PutScheduledAction' :: ServiceNamespace serviceNamespace = ServiceNamespace pServiceNamespace_, $sel:scheduledActionName:PutScheduledAction' :: Text scheduledActionName = Text pScheduledActionName_, $sel:resourceId:PutScheduledAction' :: Text resourceId = Text pResourceId_, $sel:scalableDimension:PutScheduledAction' :: ScalableDimension scalableDimension = ScalableDimension pScalableDimension_ } -- | The date and time for the recurring schedule to end, in UTC. putScheduledAction_endTime :: Lens.Lens' PutScheduledAction (Prelude.Maybe Prelude.UTCTime) putScheduledAction_endTime :: Lens' PutScheduledAction (Maybe UTCTime) putScheduledAction_endTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledAction' {Maybe POSIX endTime :: Maybe POSIX $sel:endTime:PutScheduledAction' :: PutScheduledAction -> Maybe POSIX endTime} -> Maybe POSIX endTime) (\s :: PutScheduledAction s@PutScheduledAction' {} Maybe POSIX a -> PutScheduledAction s {$sel:endTime:PutScheduledAction' :: Maybe POSIX endTime = Maybe POSIX a} :: PutScheduledAction) 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 (a :: Format). Iso' (Time a) UTCTime Data._Time -- | The new minimum and maximum capacity. You can set both values or just -- one. At the scheduled time, if the current capacity is below the minimum -- capacity, Application Auto Scaling scales out to the minimum capacity. -- If the current capacity is above the maximum capacity, Application Auto -- Scaling scales in to the maximum capacity. putScheduledAction_scalableTargetAction :: Lens.Lens' PutScheduledAction (Prelude.Maybe ScalableTargetAction) putScheduledAction_scalableTargetAction :: Lens' PutScheduledAction (Maybe ScalableTargetAction) putScheduledAction_scalableTargetAction = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledAction' {Maybe ScalableTargetAction scalableTargetAction :: Maybe ScalableTargetAction $sel:scalableTargetAction:PutScheduledAction' :: PutScheduledAction -> Maybe ScalableTargetAction scalableTargetAction} -> Maybe ScalableTargetAction scalableTargetAction) (\s :: PutScheduledAction s@PutScheduledAction' {} Maybe ScalableTargetAction a -> PutScheduledAction s {$sel:scalableTargetAction:PutScheduledAction' :: Maybe ScalableTargetAction scalableTargetAction = Maybe ScalableTargetAction a} :: PutScheduledAction) -- | The schedule for this action. The following formats are supported: -- -- - At expressions - -- \"@at(@/@yyyy@/@-@/@mm@/@-@/@dd@/@T@/@hh@/@:@/@mm@/@:@/@ss@/@)@\" -- -- - Rate expressions - \"@rate(@/@value@/@ @/@unit@/@)@\" -- -- - Cron expressions - \"@cron(@/@fields@/@)@\" -- -- At expressions are useful for one-time schedules. Cron expressions are -- useful for scheduled actions that run periodically at a specified date -- and time, and rate expressions are useful for scheduled actions that run -- at a regular interval. -- -- At and cron expressions use Universal Coordinated Time (UTC) by default. -- -- The cron format consists of six fields separated by white spaces: -- [Minutes] [Hours] [Day_of_Month] [Month] [Day_of_Week] [Year]. -- -- For rate expressions, /value/ is a positive integer and /unit/ is -- @minute@ | @minutes@ | @hour@ | @hours@ | @day@ | @days@. -- -- For more information and examples, see -- <https://docs.aws.amazon.com/autoscaling/application/userguide/examples-scheduled-actions.html Example scheduled actions for Application Auto Scaling> -- in the /Application Auto Scaling User Guide/. putScheduledAction_schedule :: Lens.Lens' PutScheduledAction (Prelude.Maybe Prelude.Text) putScheduledAction_schedule :: Lens' PutScheduledAction (Maybe Text) putScheduledAction_schedule = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledAction' {Maybe Text schedule :: Maybe Text $sel:schedule:PutScheduledAction' :: PutScheduledAction -> Maybe Text schedule} -> Maybe Text schedule) (\s :: PutScheduledAction s@PutScheduledAction' {} Maybe Text a -> PutScheduledAction s {$sel:schedule:PutScheduledAction' :: Maybe Text schedule = Maybe Text a} :: PutScheduledAction) -- | The date and time for this scheduled action to start, in UTC. putScheduledAction_startTime :: Lens.Lens' PutScheduledAction (Prelude.Maybe Prelude.UTCTime) putScheduledAction_startTime :: Lens' PutScheduledAction (Maybe UTCTime) putScheduledAction_startTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledAction' {Maybe POSIX startTime :: Maybe POSIX $sel:startTime:PutScheduledAction' :: PutScheduledAction -> Maybe POSIX startTime} -> Maybe POSIX startTime) (\s :: PutScheduledAction s@PutScheduledAction' {} Maybe POSIX a -> PutScheduledAction s {$sel:startTime:PutScheduledAction' :: Maybe POSIX startTime = Maybe POSIX a} :: PutScheduledAction) 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 (a :: Format). Iso' (Time a) UTCTime Data._Time -- | Specifies the time zone used when setting a scheduled action by using an -- at or cron expression. If a time zone is not provided, UTC is used by -- default. -- -- Valid values are the canonical names of the IANA time zones supported by -- Joda-Time (such as @Etc\/GMT+9@ or @Pacific\/Tahiti@). For more -- information, see <https://www.joda.org/joda-time/timezones.html>. putScheduledAction_timezone :: Lens.Lens' PutScheduledAction (Prelude.Maybe Prelude.Text) putScheduledAction_timezone :: Lens' PutScheduledAction (Maybe Text) putScheduledAction_timezone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledAction' {Maybe Text timezone :: Maybe Text $sel:timezone:PutScheduledAction' :: PutScheduledAction -> Maybe Text timezone} -> Maybe Text timezone) (\s :: PutScheduledAction s@PutScheduledAction' {} Maybe Text a -> PutScheduledAction s {$sel:timezone:PutScheduledAction' :: Maybe Text timezone = Maybe Text a} :: PutScheduledAction) -- | 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. putScheduledAction_serviceNamespace :: Lens.Lens' PutScheduledAction ServiceNamespace putScheduledAction_serviceNamespace :: Lens' PutScheduledAction ServiceNamespace putScheduledAction_serviceNamespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledAction' {ServiceNamespace serviceNamespace :: ServiceNamespace $sel:serviceNamespace:PutScheduledAction' :: PutScheduledAction -> ServiceNamespace serviceNamespace} -> ServiceNamespace serviceNamespace) (\s :: PutScheduledAction s@PutScheduledAction' {} ServiceNamespace a -> PutScheduledAction s {$sel:serviceNamespace:PutScheduledAction' :: ServiceNamespace serviceNamespace = ServiceNamespace a} :: PutScheduledAction) -- | The name of the scheduled action. This name must be unique among all -- other scheduled actions on the specified scalable target. putScheduledAction_scheduledActionName :: Lens.Lens' PutScheduledAction Prelude.Text putScheduledAction_scheduledActionName :: Lens' PutScheduledAction Text putScheduledAction_scheduledActionName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledAction' {Text scheduledActionName :: Text $sel:scheduledActionName:PutScheduledAction' :: PutScheduledAction -> Text scheduledActionName} -> Text scheduledActionName) (\s :: PutScheduledAction s@PutScheduledAction' {} Text a -> PutScheduledAction s {$sel:scheduledActionName:PutScheduledAction' :: Text scheduledActionName = Text a} :: PutScheduledAction) -- | The identifier of the resource associated with the scheduled action. -- 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@. putScheduledAction_resourceId :: Lens.Lens' PutScheduledAction Prelude.Text putScheduledAction_resourceId :: Lens' PutScheduledAction Text putScheduledAction_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledAction' {Text resourceId :: Text $sel:resourceId:PutScheduledAction' :: PutScheduledAction -> Text resourceId} -> Text resourceId) (\s :: PutScheduledAction s@PutScheduledAction' {} Text a -> PutScheduledAction s {$sel:resourceId:PutScheduledAction' :: Text resourceId = Text a} :: PutScheduledAction) -- | 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. putScheduledAction_scalableDimension :: Lens.Lens' PutScheduledAction ScalableDimension putScheduledAction_scalableDimension :: Lens' PutScheduledAction ScalableDimension putScheduledAction_scalableDimension = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledAction' {ScalableDimension scalableDimension :: ScalableDimension $sel:scalableDimension:PutScheduledAction' :: PutScheduledAction -> ScalableDimension scalableDimension} -> ScalableDimension scalableDimension) (\s :: PutScheduledAction s@PutScheduledAction' {} ScalableDimension a -> PutScheduledAction s {$sel:scalableDimension:PutScheduledAction' :: ScalableDimension scalableDimension = ScalableDimension a} :: PutScheduledAction) instance Core.AWSRequest PutScheduledAction where type AWSResponse PutScheduledAction = PutScheduledActionResponse request :: (Service -> Service) -> PutScheduledAction -> Request PutScheduledAction 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 PutScheduledAction -> ClientResponse ClientBody -> m (Either Error (ClientResponse (AWSResponse PutScheduledAction))) response = forall (m :: * -> *) a. MonadResource m => (Int -> ResponseHeaders -> () -> Either String (AWSResponse a)) -> (ByteStringLazy -> IO ByteStringLazy) -> Service -> Proxy a -> ClientResponse ClientBody -> m (Either Error (ClientResponse (AWSResponse a))) Response.receiveEmpty ( \Int s ResponseHeaders h () x -> Int -> PutScheduledActionResponse PutScheduledActionResponse' forall (f :: * -> *) a b. Functor 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)) ) instance Prelude.Hashable PutScheduledAction where hashWithSalt :: Int -> PutScheduledAction -> Int hashWithSalt Int _salt PutScheduledAction' {Maybe Text Maybe POSIX Maybe ScalableTargetAction Text ScalableDimension ServiceNamespace scalableDimension :: ScalableDimension resourceId :: Text scheduledActionName :: Text serviceNamespace :: ServiceNamespace timezone :: Maybe Text startTime :: Maybe POSIX schedule :: Maybe Text scalableTargetAction :: Maybe ScalableTargetAction endTime :: Maybe POSIX $sel:scalableDimension:PutScheduledAction' :: PutScheduledAction -> ScalableDimension $sel:resourceId:PutScheduledAction' :: PutScheduledAction -> Text $sel:scheduledActionName:PutScheduledAction' :: PutScheduledAction -> Text $sel:serviceNamespace:PutScheduledAction' :: PutScheduledAction -> ServiceNamespace $sel:timezone:PutScheduledAction' :: PutScheduledAction -> Maybe Text $sel:startTime:PutScheduledAction' :: PutScheduledAction -> Maybe POSIX $sel:schedule:PutScheduledAction' :: PutScheduledAction -> Maybe Text $sel:scalableTargetAction:PutScheduledAction' :: PutScheduledAction -> Maybe ScalableTargetAction $sel:endTime:PutScheduledAction' :: PutScheduledAction -> Maybe POSIX ..} = Int _salt forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe POSIX endTime forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe ScalableTargetAction scalableTargetAction forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe Text schedule forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe POSIX startTime forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe Text timezone forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` ServiceNamespace serviceNamespace forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Text scheduledActionName 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 PutScheduledAction where rnf :: PutScheduledAction -> () rnf PutScheduledAction' {Maybe Text Maybe POSIX Maybe ScalableTargetAction Text ScalableDimension ServiceNamespace scalableDimension :: ScalableDimension resourceId :: Text scheduledActionName :: Text serviceNamespace :: ServiceNamespace timezone :: Maybe Text startTime :: Maybe POSIX schedule :: Maybe Text scalableTargetAction :: Maybe ScalableTargetAction endTime :: Maybe POSIX $sel:scalableDimension:PutScheduledAction' :: PutScheduledAction -> ScalableDimension $sel:resourceId:PutScheduledAction' :: PutScheduledAction -> Text $sel:scheduledActionName:PutScheduledAction' :: PutScheduledAction -> Text $sel:serviceNamespace:PutScheduledAction' :: PutScheduledAction -> ServiceNamespace $sel:timezone:PutScheduledAction' :: PutScheduledAction -> Maybe Text $sel:startTime:PutScheduledAction' :: PutScheduledAction -> Maybe POSIX $sel:schedule:PutScheduledAction' :: PutScheduledAction -> Maybe Text $sel:scalableTargetAction:PutScheduledAction' :: PutScheduledAction -> Maybe ScalableTargetAction $sel:endTime:PutScheduledAction' :: PutScheduledAction -> Maybe POSIX ..} = forall a. NFData a => a -> () Prelude.rnf Maybe POSIX endTime seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe ScalableTargetAction scalableTargetAction seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe Text schedule seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe POSIX startTime seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Maybe Text timezone 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 scheduledActionName 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 PutScheduledAction where toHeaders :: PutScheduledAction -> 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.PutScheduledAction" :: 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 PutScheduledAction where toJSON :: PutScheduledAction -> Value toJSON PutScheduledAction' {Maybe Text Maybe POSIX Maybe ScalableTargetAction Text ScalableDimension ServiceNamespace scalableDimension :: ScalableDimension resourceId :: Text scheduledActionName :: Text serviceNamespace :: ServiceNamespace timezone :: Maybe Text startTime :: Maybe POSIX schedule :: Maybe Text scalableTargetAction :: Maybe ScalableTargetAction endTime :: Maybe POSIX $sel:scalableDimension:PutScheduledAction' :: PutScheduledAction -> ScalableDimension $sel:resourceId:PutScheduledAction' :: PutScheduledAction -> Text $sel:scheduledActionName:PutScheduledAction' :: PutScheduledAction -> Text $sel:serviceNamespace:PutScheduledAction' :: PutScheduledAction -> ServiceNamespace $sel:timezone:PutScheduledAction' :: PutScheduledAction -> Maybe Text $sel:startTime:PutScheduledAction' :: PutScheduledAction -> Maybe POSIX $sel:schedule:PutScheduledAction' :: PutScheduledAction -> Maybe Text $sel:scalableTargetAction:PutScheduledAction' :: PutScheduledAction -> Maybe ScalableTargetAction $sel:endTime:PutScheduledAction' :: PutScheduledAction -> Maybe POSIX ..} = [Pair] -> Value Data.object ( forall a. [Maybe a] -> [a] Prelude.catMaybes [ (Key "EndTime" 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 POSIX endTime, (Key "ScalableTargetAction" 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 ScalableTargetAction scalableTargetAction, (Key "Schedule" 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 Text schedule, (Key "StartTime" 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 POSIX startTime, (Key "Timezone" 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 Text timezone, 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 "ScheduledActionName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..= Text scheduledActionName), 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 PutScheduledAction where toPath :: PutScheduledAction -> ByteString toPath = forall a b. a -> b -> a Prelude.const ByteString "/" instance Data.ToQuery PutScheduledAction where toQuery :: PutScheduledAction -> QueryString toQuery = forall a b. a -> b -> a Prelude.const forall a. Monoid a => a Prelude.mempty -- | /See:/ 'newPutScheduledActionResponse' smart constructor. data PutScheduledActionResponse = PutScheduledActionResponse' { -- | The response's http status code. PutScheduledActionResponse -> Int httpStatus :: Prelude.Int } deriving (PutScheduledActionResponse -> PutScheduledActionResponse -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: PutScheduledActionResponse -> PutScheduledActionResponse -> Bool $c/= :: PutScheduledActionResponse -> PutScheduledActionResponse -> Bool == :: PutScheduledActionResponse -> PutScheduledActionResponse -> Bool $c== :: PutScheduledActionResponse -> PutScheduledActionResponse -> Bool Prelude.Eq, ReadPrec [PutScheduledActionResponse] ReadPrec PutScheduledActionResponse Int -> ReadS PutScheduledActionResponse ReadS [PutScheduledActionResponse] forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [PutScheduledActionResponse] $creadListPrec :: ReadPrec [PutScheduledActionResponse] readPrec :: ReadPrec PutScheduledActionResponse $creadPrec :: ReadPrec PutScheduledActionResponse readList :: ReadS [PutScheduledActionResponse] $creadList :: ReadS [PutScheduledActionResponse] readsPrec :: Int -> ReadS PutScheduledActionResponse $creadsPrec :: Int -> ReadS PutScheduledActionResponse Prelude.Read, Int -> PutScheduledActionResponse -> ShowS [PutScheduledActionResponse] -> ShowS PutScheduledActionResponse -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [PutScheduledActionResponse] -> ShowS $cshowList :: [PutScheduledActionResponse] -> ShowS show :: PutScheduledActionResponse -> String $cshow :: PutScheduledActionResponse -> String showsPrec :: Int -> PutScheduledActionResponse -> ShowS $cshowsPrec :: Int -> PutScheduledActionResponse -> ShowS Prelude.Show, forall x. Rep PutScheduledActionResponse x -> PutScheduledActionResponse forall x. PutScheduledActionResponse -> Rep PutScheduledActionResponse x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep PutScheduledActionResponse x -> PutScheduledActionResponse $cfrom :: forall x. PutScheduledActionResponse -> Rep PutScheduledActionResponse x Prelude.Generic) -- | -- Create a value of 'PutScheduledActionResponse' 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', 'putScheduledActionResponse_httpStatus' - The response's http status code. newPutScheduledActionResponse :: -- | 'httpStatus' Prelude.Int -> PutScheduledActionResponse newPutScheduledActionResponse :: Int -> PutScheduledActionResponse newPutScheduledActionResponse Int pHttpStatus_ = PutScheduledActionResponse' { $sel:httpStatus:PutScheduledActionResponse' :: Int httpStatus = Int pHttpStatus_ } -- | The response's http status code. putScheduledActionResponse_httpStatus :: Lens.Lens' PutScheduledActionResponse Prelude.Int putScheduledActionResponse_httpStatus :: Lens' PutScheduledActionResponse Int putScheduledActionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\PutScheduledActionResponse' {Int httpStatus :: Int $sel:httpStatus:PutScheduledActionResponse' :: PutScheduledActionResponse -> Int httpStatus} -> Int httpStatus) (\s :: PutScheduledActionResponse s@PutScheduledActionResponse' {} Int a -> PutScheduledActionResponse s {$sel:httpStatus:PutScheduledActionResponse' :: Int httpStatus = Int a} :: PutScheduledActionResponse) instance Prelude.NFData PutScheduledActionResponse where rnf :: PutScheduledActionResponse -> () rnf PutScheduledActionResponse' {Int httpStatus :: Int $sel:httpStatus:PutScheduledActionResponse' :: PutScheduledActionResponse -> Int ..} = forall a. NFData a => a -> () Prelude.rnf Int httpStatus