{-# 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