{-# 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.GameLift.DescribeScalingPolicies
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Retrieves all scaling policies applied to a fleet.
--
-- To get a fleet\'s scaling policies, specify the fleet ID. You can filter
-- this request by policy status, such as to retrieve only active scaling
-- policies. Use the pagination parameters to retrieve results as a set of
-- sequential pages. If successful, set of @ScalingPolicy@ objects is
-- returned for the fleet.
--
-- A fleet may have all of its scaling policies suspended. This operation
-- does not affect the status of the scaling policies, which remains
-- ACTIVE.
--
-- This operation returns paginated results.
module Amazonka.GameLift.DescribeScalingPolicies
  ( -- * Creating a Request
    DescribeScalingPolicies (..),
    newDescribeScalingPolicies,

    -- * Request Lenses
    describeScalingPolicies_limit,
    describeScalingPolicies_location,
    describeScalingPolicies_nextToken,
    describeScalingPolicies_statusFilter,
    describeScalingPolicies_fleetId,

    -- * Destructuring the Response
    DescribeScalingPoliciesResponse (..),
    newDescribeScalingPoliciesResponse,

    -- * Response Lenses
    describeScalingPoliciesResponse_nextToken,
    describeScalingPoliciesResponse_scalingPolicies,
    describeScalingPoliciesResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.GameLift.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newDescribeScalingPolicies' smart constructor.
data DescribeScalingPolicies = DescribeScalingPolicies'
  { -- | The maximum number of results to return. Use this parameter with
    -- @NextToken@ to get results as a set of sequential pages.
    DescribeScalingPolicies -> Maybe Natural
limit :: Prelude.Maybe Prelude.Natural,
    -- | The fleet location. If you don\'t specify this value, the response
    -- contains the scaling policies of every location in the fleet.
    DescribeScalingPolicies -> Maybe Text
location :: Prelude.Maybe Prelude.Text,
    -- | A token that indicates the start of the next sequential page of results.
    -- Use the token that is returned with a previous call to this operation.
    -- To start at the beginning of the result set, do not specify a value.
    DescribeScalingPolicies -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | Scaling policy status to filter results on. A scaling policy is only in
    -- force when in an @ACTIVE@ status.
    --
    -- -   __ACTIVE__ -- The scaling policy is currently in force.
    --
    -- -   __UPDATEREQUESTED__ -- A request to update the scaling policy has
    --     been received.
    --
    -- -   __UPDATING__ -- A change is being made to the scaling policy.
    --
    -- -   __DELETEREQUESTED__ -- A request to delete the scaling policy has
    --     been received.
    --
    -- -   __DELETING__ -- The scaling policy is being deleted.
    --
    -- -   __DELETED__ -- The scaling policy has been deleted.
    --
    -- -   __ERROR__ -- An error occurred in creating the policy. It should be
    --     removed and recreated.
    DescribeScalingPolicies -> Maybe ScalingStatusType
statusFilter :: Prelude.Maybe ScalingStatusType,
    -- | A unique identifier for the fleet for which to retrieve scaling
    -- policies. You can use either the fleet ID or ARN value.
    DescribeScalingPolicies -> Text
fleetId :: Prelude.Text
  }
  deriving (DescribeScalingPolicies -> DescribeScalingPolicies -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeScalingPolicies -> DescribeScalingPolicies -> Bool
$c/= :: DescribeScalingPolicies -> DescribeScalingPolicies -> Bool
== :: DescribeScalingPolicies -> DescribeScalingPolicies -> Bool
$c== :: DescribeScalingPolicies -> DescribeScalingPolicies -> Bool
Prelude.Eq, ReadPrec [DescribeScalingPolicies]
ReadPrec DescribeScalingPolicies
Int -> ReadS DescribeScalingPolicies
ReadS [DescribeScalingPolicies]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeScalingPolicies]
$creadListPrec :: ReadPrec [DescribeScalingPolicies]
readPrec :: ReadPrec DescribeScalingPolicies
$creadPrec :: ReadPrec DescribeScalingPolicies
readList :: ReadS [DescribeScalingPolicies]
$creadList :: ReadS [DescribeScalingPolicies]
readsPrec :: Int -> ReadS DescribeScalingPolicies
$creadsPrec :: Int -> ReadS DescribeScalingPolicies
Prelude.Read, Int -> DescribeScalingPolicies -> ShowS
[DescribeScalingPolicies] -> ShowS
DescribeScalingPolicies -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeScalingPolicies] -> ShowS
$cshowList :: [DescribeScalingPolicies] -> ShowS
show :: DescribeScalingPolicies -> String
$cshow :: DescribeScalingPolicies -> String
showsPrec :: Int -> DescribeScalingPolicies -> ShowS
$cshowsPrec :: Int -> DescribeScalingPolicies -> ShowS
Prelude.Show, forall x. Rep DescribeScalingPolicies x -> DescribeScalingPolicies
forall x. DescribeScalingPolicies -> Rep DescribeScalingPolicies x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeScalingPolicies x -> DescribeScalingPolicies
$cfrom :: forall x. DescribeScalingPolicies -> Rep DescribeScalingPolicies x
Prelude.Generic)

-- |
-- Create a value of 'DescribeScalingPolicies' 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:
--
-- 'limit', 'describeScalingPolicies_limit' - The maximum number of results to return. Use this parameter with
-- @NextToken@ to get results as a set of sequential pages.
--
-- 'location', 'describeScalingPolicies_location' - The fleet location. If you don\'t specify this value, the response
-- contains the scaling policies of every location in the fleet.
--
-- 'nextToken', 'describeScalingPolicies_nextToken' - A token that indicates the start of the next sequential page of results.
-- Use the token that is returned with a previous call to this operation.
-- To start at the beginning of the result set, do not specify a value.
--
-- 'statusFilter', 'describeScalingPolicies_statusFilter' - Scaling policy status to filter results on. A scaling policy is only in
-- force when in an @ACTIVE@ status.
--
-- -   __ACTIVE__ -- The scaling policy is currently in force.
--
-- -   __UPDATEREQUESTED__ -- A request to update the scaling policy has
--     been received.
--
-- -   __UPDATING__ -- A change is being made to the scaling policy.
--
-- -   __DELETEREQUESTED__ -- A request to delete the scaling policy has
--     been received.
--
-- -   __DELETING__ -- The scaling policy is being deleted.
--
-- -   __DELETED__ -- The scaling policy has been deleted.
--
-- -   __ERROR__ -- An error occurred in creating the policy. It should be
--     removed and recreated.
--
-- 'fleetId', 'describeScalingPolicies_fleetId' - A unique identifier for the fleet for which to retrieve scaling
-- policies. You can use either the fleet ID or ARN value.
newDescribeScalingPolicies ::
  -- | 'fleetId'
  Prelude.Text ->
  DescribeScalingPolicies
newDescribeScalingPolicies :: Text -> DescribeScalingPolicies
newDescribeScalingPolicies Text
pFleetId_ =
  DescribeScalingPolicies'
    { $sel:limit:DescribeScalingPolicies' :: Maybe Natural
limit = forall a. Maybe a
Prelude.Nothing,
      $sel:location:DescribeScalingPolicies' :: Maybe Text
location = forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:DescribeScalingPolicies' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
      $sel:statusFilter:DescribeScalingPolicies' :: Maybe ScalingStatusType
statusFilter = forall a. Maybe a
Prelude.Nothing,
      $sel:fleetId:DescribeScalingPolicies' :: Text
fleetId = Text
pFleetId_
    }

-- | The maximum number of results to return. Use this parameter with
-- @NextToken@ to get results as a set of sequential pages.
describeScalingPolicies_limit :: Lens.Lens' DescribeScalingPolicies (Prelude.Maybe Prelude.Natural)
describeScalingPolicies_limit :: Lens' DescribeScalingPolicies (Maybe Natural)
describeScalingPolicies_limit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingPolicies' {Maybe Natural
limit :: Maybe Natural
$sel:limit:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Natural
limit} -> Maybe Natural
limit) (\s :: DescribeScalingPolicies
s@DescribeScalingPolicies' {} Maybe Natural
a -> DescribeScalingPolicies
s {$sel:limit:DescribeScalingPolicies' :: Maybe Natural
limit = Maybe Natural
a} :: DescribeScalingPolicies)

-- | The fleet location. If you don\'t specify this value, the response
-- contains the scaling policies of every location in the fleet.
describeScalingPolicies_location :: Lens.Lens' DescribeScalingPolicies (Prelude.Maybe Prelude.Text)
describeScalingPolicies_location :: Lens' DescribeScalingPolicies (Maybe Text)
describeScalingPolicies_location = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingPolicies' {Maybe Text
location :: Maybe Text
$sel:location:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Text
location} -> Maybe Text
location) (\s :: DescribeScalingPolicies
s@DescribeScalingPolicies' {} Maybe Text
a -> DescribeScalingPolicies
s {$sel:location:DescribeScalingPolicies' :: Maybe Text
location = Maybe Text
a} :: DescribeScalingPolicies)

-- | A token that indicates the start of the next sequential page of results.
-- Use the token that is returned with a previous call to this operation.
-- To start at the beginning of the result set, do not specify a value.
describeScalingPolicies_nextToken :: Lens.Lens' DescribeScalingPolicies (Prelude.Maybe Prelude.Text)
describeScalingPolicies_nextToken :: Lens' DescribeScalingPolicies (Maybe Text)
describeScalingPolicies_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingPolicies' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeScalingPolicies
s@DescribeScalingPolicies' {} Maybe Text
a -> DescribeScalingPolicies
s {$sel:nextToken:DescribeScalingPolicies' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeScalingPolicies)

-- | Scaling policy status to filter results on. A scaling policy is only in
-- force when in an @ACTIVE@ status.
--
-- -   __ACTIVE__ -- The scaling policy is currently in force.
--
-- -   __UPDATEREQUESTED__ -- A request to update the scaling policy has
--     been received.
--
-- -   __UPDATING__ -- A change is being made to the scaling policy.
--
-- -   __DELETEREQUESTED__ -- A request to delete the scaling policy has
--     been received.
--
-- -   __DELETING__ -- The scaling policy is being deleted.
--
-- -   __DELETED__ -- The scaling policy has been deleted.
--
-- -   __ERROR__ -- An error occurred in creating the policy. It should be
--     removed and recreated.
describeScalingPolicies_statusFilter :: Lens.Lens' DescribeScalingPolicies (Prelude.Maybe ScalingStatusType)
describeScalingPolicies_statusFilter :: Lens' DescribeScalingPolicies (Maybe ScalingStatusType)
describeScalingPolicies_statusFilter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingPolicies' {Maybe ScalingStatusType
statusFilter :: Maybe ScalingStatusType
$sel:statusFilter:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe ScalingStatusType
statusFilter} -> Maybe ScalingStatusType
statusFilter) (\s :: DescribeScalingPolicies
s@DescribeScalingPolicies' {} Maybe ScalingStatusType
a -> DescribeScalingPolicies
s {$sel:statusFilter:DescribeScalingPolicies' :: Maybe ScalingStatusType
statusFilter = Maybe ScalingStatusType
a} :: DescribeScalingPolicies)

-- | A unique identifier for the fleet for which to retrieve scaling
-- policies. You can use either the fleet ID or ARN value.
describeScalingPolicies_fleetId :: Lens.Lens' DescribeScalingPolicies Prelude.Text
describeScalingPolicies_fleetId :: Lens' DescribeScalingPolicies Text
describeScalingPolicies_fleetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingPolicies' {Text
fleetId :: Text
$sel:fleetId:DescribeScalingPolicies' :: DescribeScalingPolicies -> Text
fleetId} -> Text
fleetId) (\s :: DescribeScalingPolicies
s@DescribeScalingPolicies' {} Text
a -> DescribeScalingPolicies
s {$sel:fleetId:DescribeScalingPolicies' :: Text
fleetId = Text
a} :: DescribeScalingPolicies)

instance Core.AWSPager DescribeScalingPolicies where
  page :: DescribeScalingPolicies
-> AWSResponse DescribeScalingPolicies
-> Maybe DescribeScalingPolicies
page DescribeScalingPolicies
rq AWSResponse DescribeScalingPolicies
rs
    | forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse DescribeScalingPolicies
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeScalingPoliciesResponse (Maybe Text)
describeScalingPoliciesResponse_nextToken
            forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
        ) =
        forall a. Maybe a
Prelude.Nothing
    | forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse DescribeScalingPolicies
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeScalingPoliciesResponse (Maybe [ScalingPolicy])
describeScalingPoliciesResponse_scalingPolicies
            forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
        ) =
        forall a. Maybe a
Prelude.Nothing
    | Bool
Prelude.otherwise =
        forall a. a -> Maybe a
Prelude.Just
          forall a b. (a -> b) -> a -> b
Prelude.$ DescribeScalingPolicies
rq
          forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeScalingPolicies (Maybe Text)
describeScalingPolicies_nextToken
          forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeScalingPolicies
rs
          forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeScalingPoliciesResponse (Maybe Text)
describeScalingPoliciesResponse_nextToken
          forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just

instance Core.AWSRequest DescribeScalingPolicies where
  type
    AWSResponse DescribeScalingPolicies =
      DescribeScalingPoliciesResponse
  request :: (Service -> Service)
-> DescribeScalingPolicies -> Request DescribeScalingPolicies
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 DescribeScalingPolicies
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DescribeScalingPolicies)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe Text
-> Maybe [ScalingPolicy] -> Int -> DescribeScalingPoliciesResponse
DescribeScalingPoliciesResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"NextToken")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
                            forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ScalingPolicies"
                            forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable DescribeScalingPolicies where
  hashWithSalt :: Int -> DescribeScalingPolicies -> Int
hashWithSalt Int
_salt DescribeScalingPolicies' {Maybe Natural
Maybe Text
Maybe ScalingStatusType
Text
fleetId :: Text
statusFilter :: Maybe ScalingStatusType
nextToken :: Maybe Text
location :: Maybe Text
limit :: Maybe Natural
$sel:fleetId:DescribeScalingPolicies' :: DescribeScalingPolicies -> Text
$sel:statusFilter:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe ScalingStatusType
$sel:nextToken:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Text
$sel:location:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Text
$sel:limit:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Natural
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
limit
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
location
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ScalingStatusType
statusFilter
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
fleetId

instance Prelude.NFData DescribeScalingPolicies where
  rnf :: DescribeScalingPolicies -> ()
rnf DescribeScalingPolicies' {Maybe Natural
Maybe Text
Maybe ScalingStatusType
Text
fleetId :: Text
statusFilter :: Maybe ScalingStatusType
nextToken :: Maybe Text
location :: Maybe Text
limit :: Maybe Natural
$sel:fleetId:DescribeScalingPolicies' :: DescribeScalingPolicies -> Text
$sel:statusFilter:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe ScalingStatusType
$sel:nextToken:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Text
$sel:location:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Text
$sel:limit:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Natural
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
limit
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
location
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ScalingStatusType
statusFilter
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
fleetId

instance Data.ToHeaders DescribeScalingPolicies where
  toHeaders :: DescribeScalingPolicies -> 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
"GameLift.DescribeScalingPolicies" ::
                          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 DescribeScalingPolicies where
  toJSON :: DescribeScalingPolicies -> Value
toJSON DescribeScalingPolicies' {Maybe Natural
Maybe Text
Maybe ScalingStatusType
Text
fleetId :: Text
statusFilter :: Maybe ScalingStatusType
nextToken :: Maybe Text
location :: Maybe Text
limit :: Maybe Natural
$sel:fleetId:DescribeScalingPolicies' :: DescribeScalingPolicies -> Text
$sel:statusFilter:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe ScalingStatusType
$sel:nextToken:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Text
$sel:location:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Text
$sel:limit:DescribeScalingPolicies' :: DescribeScalingPolicies -> Maybe Natural
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"Limit" 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 Natural
limit,
            (Key
"Location" 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
location,
            (Key
"NextToken" 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
nextToken,
            (Key
"StatusFilter" 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 ScalingStatusType
statusFilter,
            forall a. a -> Maybe a
Prelude.Just (Key
"FleetId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
fleetId)
          ]
      )

instance Data.ToPath DescribeScalingPolicies where
  toPath :: DescribeScalingPolicies -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery DescribeScalingPolicies where
  toQuery :: DescribeScalingPolicies -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newDescribeScalingPoliciesResponse' smart constructor.
data DescribeScalingPoliciesResponse = DescribeScalingPoliciesResponse'
  { -- | A token that indicates where to resume retrieving results on the next
    -- call to this operation. If no token is returned, these results represent
    -- the end of the list.
    DescribeScalingPoliciesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | A collection of objects containing the scaling policies matching the
    -- request.
    DescribeScalingPoliciesResponse -> Maybe [ScalingPolicy]
scalingPolicies :: Prelude.Maybe [ScalingPolicy],
    -- | The response's http status code.
    DescribeScalingPoliciesResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (DescribeScalingPoliciesResponse
-> DescribeScalingPoliciesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeScalingPoliciesResponse
-> DescribeScalingPoliciesResponse -> Bool
$c/= :: DescribeScalingPoliciesResponse
-> DescribeScalingPoliciesResponse -> Bool
== :: DescribeScalingPoliciesResponse
-> DescribeScalingPoliciesResponse -> Bool
$c== :: DescribeScalingPoliciesResponse
-> DescribeScalingPoliciesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeScalingPoliciesResponse]
ReadPrec DescribeScalingPoliciesResponse
Int -> ReadS DescribeScalingPoliciesResponse
ReadS [DescribeScalingPoliciesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeScalingPoliciesResponse]
$creadListPrec :: ReadPrec [DescribeScalingPoliciesResponse]
readPrec :: ReadPrec DescribeScalingPoliciesResponse
$creadPrec :: ReadPrec DescribeScalingPoliciesResponse
readList :: ReadS [DescribeScalingPoliciesResponse]
$creadList :: ReadS [DescribeScalingPoliciesResponse]
readsPrec :: Int -> ReadS DescribeScalingPoliciesResponse
$creadsPrec :: Int -> ReadS DescribeScalingPoliciesResponse
Prelude.Read, Int -> DescribeScalingPoliciesResponse -> ShowS
[DescribeScalingPoliciesResponse] -> ShowS
DescribeScalingPoliciesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeScalingPoliciesResponse] -> ShowS
$cshowList :: [DescribeScalingPoliciesResponse] -> ShowS
show :: DescribeScalingPoliciesResponse -> String
$cshow :: DescribeScalingPoliciesResponse -> String
showsPrec :: Int -> DescribeScalingPoliciesResponse -> ShowS
$cshowsPrec :: Int -> DescribeScalingPoliciesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeScalingPoliciesResponse x
-> DescribeScalingPoliciesResponse
forall x.
DescribeScalingPoliciesResponse
-> Rep DescribeScalingPoliciesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeScalingPoliciesResponse x
-> DescribeScalingPoliciesResponse
$cfrom :: forall x.
DescribeScalingPoliciesResponse
-> Rep DescribeScalingPoliciesResponse x
Prelude.Generic)

-- |
-- Create a value of 'DescribeScalingPoliciesResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'nextToken', 'describeScalingPoliciesResponse_nextToken' - A token that indicates where to resume retrieving results on the next
-- call to this operation. If no token is returned, these results represent
-- the end of the list.
--
-- 'scalingPolicies', 'describeScalingPoliciesResponse_scalingPolicies' - A collection of objects containing the scaling policies matching the
-- request.
--
-- 'httpStatus', 'describeScalingPoliciesResponse_httpStatus' - The response's http status code.
newDescribeScalingPoliciesResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  DescribeScalingPoliciesResponse
newDescribeScalingPoliciesResponse :: Int -> DescribeScalingPoliciesResponse
newDescribeScalingPoliciesResponse Int
pHttpStatus_ =
  DescribeScalingPoliciesResponse'
    { $sel:nextToken:DescribeScalingPoliciesResponse' :: Maybe Text
nextToken =
        forall a. Maybe a
Prelude.Nothing,
      $sel:scalingPolicies:DescribeScalingPoliciesResponse' :: Maybe [ScalingPolicy]
scalingPolicies = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:DescribeScalingPoliciesResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | A token that indicates where to resume retrieving results on the next
-- call to this operation. If no token is returned, these results represent
-- the end of the list.
describeScalingPoliciesResponse_nextToken :: Lens.Lens' DescribeScalingPoliciesResponse (Prelude.Maybe Prelude.Text)
describeScalingPoliciesResponse_nextToken :: Lens' DescribeScalingPoliciesResponse (Maybe Text)
describeScalingPoliciesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingPoliciesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeScalingPoliciesResponse' :: DescribeScalingPoliciesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeScalingPoliciesResponse
s@DescribeScalingPoliciesResponse' {} Maybe Text
a -> DescribeScalingPoliciesResponse
s {$sel:nextToken:DescribeScalingPoliciesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeScalingPoliciesResponse)

-- | A collection of objects containing the scaling policies matching the
-- request.
describeScalingPoliciesResponse_scalingPolicies :: Lens.Lens' DescribeScalingPoliciesResponse (Prelude.Maybe [ScalingPolicy])
describeScalingPoliciesResponse_scalingPolicies :: Lens' DescribeScalingPoliciesResponse (Maybe [ScalingPolicy])
describeScalingPoliciesResponse_scalingPolicies = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingPoliciesResponse' {Maybe [ScalingPolicy]
scalingPolicies :: Maybe [ScalingPolicy]
$sel:scalingPolicies:DescribeScalingPoliciesResponse' :: DescribeScalingPoliciesResponse -> Maybe [ScalingPolicy]
scalingPolicies} -> Maybe [ScalingPolicy]
scalingPolicies) (\s :: DescribeScalingPoliciesResponse
s@DescribeScalingPoliciesResponse' {} Maybe [ScalingPolicy]
a -> DescribeScalingPoliciesResponse
s {$sel:scalingPolicies:DescribeScalingPoliciesResponse' :: Maybe [ScalingPolicy]
scalingPolicies = Maybe [ScalingPolicy]
a} :: DescribeScalingPoliciesResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The response's http status code.
describeScalingPoliciesResponse_httpStatus :: Lens.Lens' DescribeScalingPoliciesResponse Prelude.Int
describeScalingPoliciesResponse_httpStatus :: Lens' DescribeScalingPoliciesResponse Int
describeScalingPoliciesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingPoliciesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeScalingPoliciesResponse' :: DescribeScalingPoliciesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeScalingPoliciesResponse
s@DescribeScalingPoliciesResponse' {} Int
a -> DescribeScalingPoliciesResponse
s {$sel:httpStatus:DescribeScalingPoliciesResponse' :: Int
httpStatus = Int
a} :: DescribeScalingPoliciesResponse)

instance
  Prelude.NFData
    DescribeScalingPoliciesResponse
  where
  rnf :: DescribeScalingPoliciesResponse -> ()
rnf DescribeScalingPoliciesResponse' {Int
Maybe [ScalingPolicy]
Maybe Text
httpStatus :: Int
scalingPolicies :: Maybe [ScalingPolicy]
nextToken :: Maybe Text
$sel:httpStatus:DescribeScalingPoliciesResponse' :: DescribeScalingPoliciesResponse -> Int
$sel:scalingPolicies:DescribeScalingPoliciesResponse' :: DescribeScalingPoliciesResponse -> Maybe [ScalingPolicy]
$sel:nextToken:DescribeScalingPoliciesResponse' :: DescribeScalingPoliciesResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ScalingPolicy]
scalingPolicies
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus