{-# 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 #-}
module Amazonka.ApplicationAutoScaling.DescribeScalableTargets
(
DescribeScalableTargets (..),
newDescribeScalableTargets,
describeScalableTargets_maxResults,
describeScalableTargets_nextToken,
describeScalableTargets_resourceIds,
describeScalableTargets_scalableDimension,
describeScalableTargets_serviceNamespace,
DescribeScalableTargetsResponse (..),
newDescribeScalableTargetsResponse,
describeScalableTargetsResponse_nextToken,
describeScalableTargetsResponse_scalableTargets,
describeScalableTargetsResponse_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
data DescribeScalableTargets = DescribeScalableTargets'
{
DescribeScalableTargets -> Maybe Int
maxResults :: Prelude.Maybe Prelude.Int,
DescribeScalableTargets -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeScalableTargets -> Maybe [Text]
resourceIds :: Prelude.Maybe [Prelude.Text],
DescribeScalableTargets -> Maybe ScalableDimension
scalableDimension :: Prelude.Maybe ScalableDimension,
DescribeScalableTargets -> ServiceNamespace
serviceNamespace :: ServiceNamespace
}
deriving (DescribeScalableTargets -> DescribeScalableTargets -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeScalableTargets -> DescribeScalableTargets -> Bool
$c/= :: DescribeScalableTargets -> DescribeScalableTargets -> Bool
== :: DescribeScalableTargets -> DescribeScalableTargets -> Bool
$c== :: DescribeScalableTargets -> DescribeScalableTargets -> Bool
Prelude.Eq, ReadPrec [DescribeScalableTargets]
ReadPrec DescribeScalableTargets
Int -> ReadS DescribeScalableTargets
ReadS [DescribeScalableTargets]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeScalableTargets]
$creadListPrec :: ReadPrec [DescribeScalableTargets]
readPrec :: ReadPrec DescribeScalableTargets
$creadPrec :: ReadPrec DescribeScalableTargets
readList :: ReadS [DescribeScalableTargets]
$creadList :: ReadS [DescribeScalableTargets]
readsPrec :: Int -> ReadS DescribeScalableTargets
$creadsPrec :: Int -> ReadS DescribeScalableTargets
Prelude.Read, Int -> DescribeScalableTargets -> ShowS
[DescribeScalableTargets] -> ShowS
DescribeScalableTargets -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeScalableTargets] -> ShowS
$cshowList :: [DescribeScalableTargets] -> ShowS
show :: DescribeScalableTargets -> String
$cshow :: DescribeScalableTargets -> String
showsPrec :: Int -> DescribeScalableTargets -> ShowS
$cshowsPrec :: Int -> DescribeScalableTargets -> ShowS
Prelude.Show, forall x. Rep DescribeScalableTargets x -> DescribeScalableTargets
forall x. DescribeScalableTargets -> Rep DescribeScalableTargets x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeScalableTargets x -> DescribeScalableTargets
$cfrom :: forall x. DescribeScalableTargets -> Rep DescribeScalableTargets x
Prelude.Generic)
newDescribeScalableTargets ::
ServiceNamespace ->
DescribeScalableTargets
newDescribeScalableTargets :: ServiceNamespace -> DescribeScalableTargets
newDescribeScalableTargets ServiceNamespace
pServiceNamespace_ =
DescribeScalableTargets'
{ $sel:maxResults:DescribeScalableTargets' :: Maybe Int
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeScalableTargets' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:resourceIds:DescribeScalableTargets' :: Maybe [Text]
resourceIds = forall a. Maybe a
Prelude.Nothing,
$sel:scalableDimension:DescribeScalableTargets' :: Maybe ScalableDimension
scalableDimension = forall a. Maybe a
Prelude.Nothing,
$sel:serviceNamespace:DescribeScalableTargets' :: ServiceNamespace
serviceNamespace = ServiceNamespace
pServiceNamespace_
}
describeScalableTargets_maxResults :: Lens.Lens' DescribeScalableTargets (Prelude.Maybe Prelude.Int)
describeScalableTargets_maxResults :: Lens' DescribeScalableTargets (Maybe Int)
describeScalableTargets_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalableTargets' {Maybe Int
maxResults :: Maybe Int
$sel:maxResults:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe Int
maxResults} -> Maybe Int
maxResults) (\s :: DescribeScalableTargets
s@DescribeScalableTargets' {} Maybe Int
a -> DescribeScalableTargets
s {$sel:maxResults:DescribeScalableTargets' :: Maybe Int
maxResults = Maybe Int
a} :: DescribeScalableTargets)
describeScalableTargets_nextToken :: Lens.Lens' DescribeScalableTargets (Prelude.Maybe Prelude.Text)
describeScalableTargets_nextToken :: Lens' DescribeScalableTargets (Maybe Text)
describeScalableTargets_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalableTargets' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeScalableTargets
s@DescribeScalableTargets' {} Maybe Text
a -> DescribeScalableTargets
s {$sel:nextToken:DescribeScalableTargets' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeScalableTargets)
describeScalableTargets_resourceIds :: Lens.Lens' DescribeScalableTargets (Prelude.Maybe [Prelude.Text])
describeScalableTargets_resourceIds :: Lens' DescribeScalableTargets (Maybe [Text])
describeScalableTargets_resourceIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalableTargets' {Maybe [Text]
resourceIds :: Maybe [Text]
$sel:resourceIds:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe [Text]
resourceIds} -> Maybe [Text]
resourceIds) (\s :: DescribeScalableTargets
s@DescribeScalableTargets' {} Maybe [Text]
a -> DescribeScalableTargets
s {$sel:resourceIds:DescribeScalableTargets' :: Maybe [Text]
resourceIds = Maybe [Text]
a} :: DescribeScalableTargets) 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
describeScalableTargets_scalableDimension :: Lens.Lens' DescribeScalableTargets (Prelude.Maybe ScalableDimension)
describeScalableTargets_scalableDimension :: Lens' DescribeScalableTargets (Maybe ScalableDimension)
describeScalableTargets_scalableDimension = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalableTargets' {Maybe ScalableDimension
scalableDimension :: Maybe ScalableDimension
$sel:scalableDimension:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe ScalableDimension
scalableDimension} -> Maybe ScalableDimension
scalableDimension) (\s :: DescribeScalableTargets
s@DescribeScalableTargets' {} Maybe ScalableDimension
a -> DescribeScalableTargets
s {$sel:scalableDimension:DescribeScalableTargets' :: Maybe ScalableDimension
scalableDimension = Maybe ScalableDimension
a} :: DescribeScalableTargets)
describeScalableTargets_serviceNamespace :: Lens.Lens' DescribeScalableTargets ServiceNamespace
describeScalableTargets_serviceNamespace :: Lens' DescribeScalableTargets ServiceNamespace
describeScalableTargets_serviceNamespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalableTargets' {ServiceNamespace
serviceNamespace :: ServiceNamespace
$sel:serviceNamespace:DescribeScalableTargets' :: DescribeScalableTargets -> ServiceNamespace
serviceNamespace} -> ServiceNamespace
serviceNamespace) (\s :: DescribeScalableTargets
s@DescribeScalableTargets' {} ServiceNamespace
a -> DescribeScalableTargets
s {$sel:serviceNamespace:DescribeScalableTargets' :: ServiceNamespace
serviceNamespace = ServiceNamespace
a} :: DescribeScalableTargets)
instance Core.AWSPager DescribeScalableTargets where
page :: DescribeScalableTargets
-> AWSResponse DescribeScalableTargets
-> Maybe DescribeScalableTargets
page DescribeScalableTargets
rq AWSResponse DescribeScalableTargets
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeScalableTargets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeScalableTargetsResponse (Maybe Text)
describeScalableTargetsResponse_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 DescribeScalableTargets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeScalableTargetsResponse (Maybe [ScalableTarget])
describeScalableTargetsResponse_scalableTargets
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.$ DescribeScalableTargets
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeScalableTargets (Maybe Text)
describeScalableTargets_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeScalableTargets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeScalableTargetsResponse (Maybe Text)
describeScalableTargetsResponse_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 DescribeScalableTargets where
type
AWSResponse DescribeScalableTargets =
DescribeScalableTargetsResponse
request :: (Service -> Service)
-> DescribeScalableTargets -> Request DescribeScalableTargets
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 DescribeScalableTargets
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeScalableTargets)))
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 [ScalableTarget] -> Int -> DescribeScalableTargetsResponse
DescribeScalableTargetsResponse'
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
"ScalableTargets"
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 DescribeScalableTargets where
hashWithSalt :: Int -> DescribeScalableTargets -> Int
hashWithSalt Int
_salt DescribeScalableTargets' {Maybe Int
Maybe [Text]
Maybe Text
Maybe ScalableDimension
ServiceNamespace
serviceNamespace :: ServiceNamespace
scalableDimension :: Maybe ScalableDimension
resourceIds :: Maybe [Text]
nextToken :: Maybe Text
maxResults :: Maybe Int
$sel:serviceNamespace:DescribeScalableTargets' :: DescribeScalableTargets -> ServiceNamespace
$sel:scalableDimension:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe ScalableDimension
$sel:resourceIds:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe [Text]
$sel:nextToken:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe Text
$sel:maxResults:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe Int
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
resourceIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ScalableDimension
scalableDimension
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ServiceNamespace
serviceNamespace
instance Prelude.NFData DescribeScalableTargets where
rnf :: DescribeScalableTargets -> ()
rnf DescribeScalableTargets' {Maybe Int
Maybe [Text]
Maybe Text
Maybe ScalableDimension
ServiceNamespace
serviceNamespace :: ServiceNamespace
scalableDimension :: Maybe ScalableDimension
resourceIds :: Maybe [Text]
nextToken :: Maybe Text
maxResults :: Maybe Int
$sel:serviceNamespace:DescribeScalableTargets' :: DescribeScalableTargets -> ServiceNamespace
$sel:scalableDimension:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe ScalableDimension
$sel:resourceIds:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe [Text]
$sel:nextToken:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe Text
$sel:maxResults:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxResults
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 [Text]
resourceIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ScalableDimension
scalableDimension
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ServiceNamespace
serviceNamespace
instance Data.ToHeaders DescribeScalableTargets where
toHeaders :: DescribeScalableTargets -> 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.DescribeScalableTargets" ::
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 DescribeScalableTargets where
toJSON :: DescribeScalableTargets -> Value
toJSON DescribeScalableTargets' {Maybe Int
Maybe [Text]
Maybe Text
Maybe ScalableDimension
ServiceNamespace
serviceNamespace :: ServiceNamespace
scalableDimension :: Maybe ScalableDimension
resourceIds :: Maybe [Text]
nextToken :: Maybe Text
maxResults :: Maybe Int
$sel:serviceNamespace:DescribeScalableTargets' :: DescribeScalableTargets -> ServiceNamespace
$sel:scalableDimension:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe ScalableDimension
$sel:resourceIds:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe [Text]
$sel:nextToken:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe Text
$sel:maxResults:DescribeScalableTargets' :: DescribeScalableTargets -> Maybe Int
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"MaxResults" 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 Int
maxResults,
(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
"ResourceIds" 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]
resourceIds,
(Key
"ScalableDimension" 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 ScalableDimension
scalableDimension,
forall a. a -> Maybe a
Prelude.Just
(Key
"ServiceNamespace" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ServiceNamespace
serviceNamespace)
]
)
instance Data.ToPath DescribeScalableTargets where
toPath :: DescribeScalableTargets -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeScalableTargets where
toQuery :: DescribeScalableTargets -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeScalableTargetsResponse = DescribeScalableTargetsResponse'
{
DescribeScalableTargetsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeScalableTargetsResponse -> Maybe [ScalableTarget]
scalableTargets :: Prelude.Maybe [ScalableTarget],
DescribeScalableTargetsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeScalableTargetsResponse
-> DescribeScalableTargetsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeScalableTargetsResponse
-> DescribeScalableTargetsResponse -> Bool
$c/= :: DescribeScalableTargetsResponse
-> DescribeScalableTargetsResponse -> Bool
== :: DescribeScalableTargetsResponse
-> DescribeScalableTargetsResponse -> Bool
$c== :: DescribeScalableTargetsResponse
-> DescribeScalableTargetsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeScalableTargetsResponse]
ReadPrec DescribeScalableTargetsResponse
Int -> ReadS DescribeScalableTargetsResponse
ReadS [DescribeScalableTargetsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeScalableTargetsResponse]
$creadListPrec :: ReadPrec [DescribeScalableTargetsResponse]
readPrec :: ReadPrec DescribeScalableTargetsResponse
$creadPrec :: ReadPrec DescribeScalableTargetsResponse
readList :: ReadS [DescribeScalableTargetsResponse]
$creadList :: ReadS [DescribeScalableTargetsResponse]
readsPrec :: Int -> ReadS DescribeScalableTargetsResponse
$creadsPrec :: Int -> ReadS DescribeScalableTargetsResponse
Prelude.Read, Int -> DescribeScalableTargetsResponse -> ShowS
[DescribeScalableTargetsResponse] -> ShowS
DescribeScalableTargetsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeScalableTargetsResponse] -> ShowS
$cshowList :: [DescribeScalableTargetsResponse] -> ShowS
show :: DescribeScalableTargetsResponse -> String
$cshow :: DescribeScalableTargetsResponse -> String
showsPrec :: Int -> DescribeScalableTargetsResponse -> ShowS
$cshowsPrec :: Int -> DescribeScalableTargetsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeScalableTargetsResponse x
-> DescribeScalableTargetsResponse
forall x.
DescribeScalableTargetsResponse
-> Rep DescribeScalableTargetsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeScalableTargetsResponse x
-> DescribeScalableTargetsResponse
$cfrom :: forall x.
DescribeScalableTargetsResponse
-> Rep DescribeScalableTargetsResponse x
Prelude.Generic)
newDescribeScalableTargetsResponse ::
Prelude.Int ->
DescribeScalableTargetsResponse
newDescribeScalableTargetsResponse :: Int -> DescribeScalableTargetsResponse
newDescribeScalableTargetsResponse Int
pHttpStatus_ =
DescribeScalableTargetsResponse'
{ $sel:nextToken:DescribeScalableTargetsResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:scalableTargets:DescribeScalableTargetsResponse' :: Maybe [ScalableTarget]
scalableTargets = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeScalableTargetsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeScalableTargetsResponse_nextToken :: Lens.Lens' DescribeScalableTargetsResponse (Prelude.Maybe Prelude.Text)
describeScalableTargetsResponse_nextToken :: Lens' DescribeScalableTargetsResponse (Maybe Text)
describeScalableTargetsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalableTargetsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeScalableTargetsResponse' :: DescribeScalableTargetsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeScalableTargetsResponse
s@DescribeScalableTargetsResponse' {} Maybe Text
a -> DescribeScalableTargetsResponse
s {$sel:nextToken:DescribeScalableTargetsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeScalableTargetsResponse)
describeScalableTargetsResponse_scalableTargets :: Lens.Lens' DescribeScalableTargetsResponse (Prelude.Maybe [ScalableTarget])
describeScalableTargetsResponse_scalableTargets :: Lens' DescribeScalableTargetsResponse (Maybe [ScalableTarget])
describeScalableTargetsResponse_scalableTargets = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalableTargetsResponse' {Maybe [ScalableTarget]
scalableTargets :: Maybe [ScalableTarget]
$sel:scalableTargets:DescribeScalableTargetsResponse' :: DescribeScalableTargetsResponse -> Maybe [ScalableTarget]
scalableTargets} -> Maybe [ScalableTarget]
scalableTargets) (\s :: DescribeScalableTargetsResponse
s@DescribeScalableTargetsResponse' {} Maybe [ScalableTarget]
a -> DescribeScalableTargetsResponse
s {$sel:scalableTargets:DescribeScalableTargetsResponse' :: Maybe [ScalableTarget]
scalableTargets = Maybe [ScalableTarget]
a} :: DescribeScalableTargetsResponse) 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
describeScalableTargetsResponse_httpStatus :: Lens.Lens' DescribeScalableTargetsResponse Prelude.Int
describeScalableTargetsResponse_httpStatus :: Lens' DescribeScalableTargetsResponse Int
describeScalableTargetsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalableTargetsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeScalableTargetsResponse' :: DescribeScalableTargetsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeScalableTargetsResponse
s@DescribeScalableTargetsResponse' {} Int
a -> DescribeScalableTargetsResponse
s {$sel:httpStatus:DescribeScalableTargetsResponse' :: Int
httpStatus = Int
a} :: DescribeScalableTargetsResponse)
instance
Prelude.NFData
DescribeScalableTargetsResponse
where
rnf :: DescribeScalableTargetsResponse -> ()
rnf DescribeScalableTargetsResponse' {Int
Maybe [ScalableTarget]
Maybe Text
httpStatus :: Int
scalableTargets :: Maybe [ScalableTarget]
nextToken :: Maybe Text
$sel:httpStatus:DescribeScalableTargetsResponse' :: DescribeScalableTargetsResponse -> Int
$sel:scalableTargets:DescribeScalableTargetsResponse' :: DescribeScalableTargetsResponse -> Maybe [ScalableTarget]
$sel:nextToken:DescribeScalableTargetsResponse' :: DescribeScalableTargetsResponse -> 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 [ScalableTarget]
scalableTargets
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus