{-# 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.DescribeScalingActivities
(
DescribeScalingActivities (..),
newDescribeScalingActivities,
describeScalingActivities_includeNotScaledActivities,
describeScalingActivities_maxResults,
describeScalingActivities_nextToken,
describeScalingActivities_resourceId,
describeScalingActivities_scalableDimension,
describeScalingActivities_serviceNamespace,
DescribeScalingActivitiesResponse (..),
newDescribeScalingActivitiesResponse,
describeScalingActivitiesResponse_nextToken,
describeScalingActivitiesResponse_scalingActivities,
describeScalingActivitiesResponse_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 DescribeScalingActivities = DescribeScalingActivities'
{
DescribeScalingActivities -> Maybe Bool
includeNotScaledActivities :: Prelude.Maybe Prelude.Bool,
DescribeScalingActivities -> Maybe Int
maxResults :: Prelude.Maybe Prelude.Int,
DescribeScalingActivities -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeScalingActivities -> Maybe Text
resourceId :: Prelude.Maybe Prelude.Text,
DescribeScalingActivities -> Maybe ScalableDimension
scalableDimension :: Prelude.Maybe ScalableDimension,
DescribeScalingActivities -> ServiceNamespace
serviceNamespace :: ServiceNamespace
}
deriving (DescribeScalingActivities -> DescribeScalingActivities -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeScalingActivities -> DescribeScalingActivities -> Bool
$c/= :: DescribeScalingActivities -> DescribeScalingActivities -> Bool
== :: DescribeScalingActivities -> DescribeScalingActivities -> Bool
$c== :: DescribeScalingActivities -> DescribeScalingActivities -> Bool
Prelude.Eq, ReadPrec [DescribeScalingActivities]
ReadPrec DescribeScalingActivities
Int -> ReadS DescribeScalingActivities
ReadS [DescribeScalingActivities]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeScalingActivities]
$creadListPrec :: ReadPrec [DescribeScalingActivities]
readPrec :: ReadPrec DescribeScalingActivities
$creadPrec :: ReadPrec DescribeScalingActivities
readList :: ReadS [DescribeScalingActivities]
$creadList :: ReadS [DescribeScalingActivities]
readsPrec :: Int -> ReadS DescribeScalingActivities
$creadsPrec :: Int -> ReadS DescribeScalingActivities
Prelude.Read, Int -> DescribeScalingActivities -> ShowS
[DescribeScalingActivities] -> ShowS
DescribeScalingActivities -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeScalingActivities] -> ShowS
$cshowList :: [DescribeScalingActivities] -> ShowS
show :: DescribeScalingActivities -> String
$cshow :: DescribeScalingActivities -> String
showsPrec :: Int -> DescribeScalingActivities -> ShowS
$cshowsPrec :: Int -> DescribeScalingActivities -> ShowS
Prelude.Show, forall x.
Rep DescribeScalingActivities x -> DescribeScalingActivities
forall x.
DescribeScalingActivities -> Rep DescribeScalingActivities x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeScalingActivities x -> DescribeScalingActivities
$cfrom :: forall x.
DescribeScalingActivities -> Rep DescribeScalingActivities x
Prelude.Generic)
newDescribeScalingActivities ::
ServiceNamespace ->
DescribeScalingActivities
newDescribeScalingActivities :: ServiceNamespace -> DescribeScalingActivities
newDescribeScalingActivities ServiceNamespace
pServiceNamespace_ =
DescribeScalingActivities'
{ $sel:includeNotScaledActivities:DescribeScalingActivities' :: Maybe Bool
includeNotScaledActivities =
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:DescribeScalingActivities' :: Maybe Int
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeScalingActivities' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:resourceId:DescribeScalingActivities' :: Maybe Text
resourceId = forall a. Maybe a
Prelude.Nothing,
$sel:scalableDimension:DescribeScalingActivities' :: Maybe ScalableDimension
scalableDimension = forall a. Maybe a
Prelude.Nothing,
$sel:serviceNamespace:DescribeScalingActivities' :: ServiceNamespace
serviceNamespace = ServiceNamespace
pServiceNamespace_
}
describeScalingActivities_includeNotScaledActivities :: Lens.Lens' DescribeScalingActivities (Prelude.Maybe Prelude.Bool)
describeScalingActivities_includeNotScaledActivities :: Lens' DescribeScalingActivities (Maybe Bool)
describeScalingActivities_includeNotScaledActivities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingActivities' {Maybe Bool
includeNotScaledActivities :: Maybe Bool
$sel:includeNotScaledActivities:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Bool
includeNotScaledActivities} -> Maybe Bool
includeNotScaledActivities) (\s :: DescribeScalingActivities
s@DescribeScalingActivities' {} Maybe Bool
a -> DescribeScalingActivities
s {$sel:includeNotScaledActivities:DescribeScalingActivities' :: Maybe Bool
includeNotScaledActivities = Maybe Bool
a} :: DescribeScalingActivities)
describeScalingActivities_maxResults :: Lens.Lens' DescribeScalingActivities (Prelude.Maybe Prelude.Int)
describeScalingActivities_maxResults :: Lens' DescribeScalingActivities (Maybe Int)
describeScalingActivities_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingActivities' {Maybe Int
maxResults :: Maybe Int
$sel:maxResults:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Int
maxResults} -> Maybe Int
maxResults) (\s :: DescribeScalingActivities
s@DescribeScalingActivities' {} Maybe Int
a -> DescribeScalingActivities
s {$sel:maxResults:DescribeScalingActivities' :: Maybe Int
maxResults = Maybe Int
a} :: DescribeScalingActivities)
describeScalingActivities_nextToken :: Lens.Lens' DescribeScalingActivities (Prelude.Maybe Prelude.Text)
describeScalingActivities_nextToken :: Lens' DescribeScalingActivities (Maybe Text)
describeScalingActivities_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingActivities' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeScalingActivities
s@DescribeScalingActivities' {} Maybe Text
a -> DescribeScalingActivities
s {$sel:nextToken:DescribeScalingActivities' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeScalingActivities)
describeScalingActivities_resourceId :: Lens.Lens' DescribeScalingActivities (Prelude.Maybe Prelude.Text)
describeScalingActivities_resourceId :: Lens' DescribeScalingActivities (Maybe Text)
describeScalingActivities_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingActivities' {Maybe Text
resourceId :: Maybe Text
$sel:resourceId:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Text
resourceId} -> Maybe Text
resourceId) (\s :: DescribeScalingActivities
s@DescribeScalingActivities' {} Maybe Text
a -> DescribeScalingActivities
s {$sel:resourceId:DescribeScalingActivities' :: Maybe Text
resourceId = Maybe Text
a} :: DescribeScalingActivities)
describeScalingActivities_scalableDimension :: Lens.Lens' DescribeScalingActivities (Prelude.Maybe ScalableDimension)
describeScalingActivities_scalableDimension :: Lens' DescribeScalingActivities (Maybe ScalableDimension)
describeScalingActivities_scalableDimension = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingActivities' {Maybe ScalableDimension
scalableDimension :: Maybe ScalableDimension
$sel:scalableDimension:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe ScalableDimension
scalableDimension} -> Maybe ScalableDimension
scalableDimension) (\s :: DescribeScalingActivities
s@DescribeScalingActivities' {} Maybe ScalableDimension
a -> DescribeScalingActivities
s {$sel:scalableDimension:DescribeScalingActivities' :: Maybe ScalableDimension
scalableDimension = Maybe ScalableDimension
a} :: DescribeScalingActivities)
describeScalingActivities_serviceNamespace :: Lens.Lens' DescribeScalingActivities ServiceNamespace
describeScalingActivities_serviceNamespace :: Lens' DescribeScalingActivities ServiceNamespace
describeScalingActivities_serviceNamespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingActivities' {ServiceNamespace
serviceNamespace :: ServiceNamespace
$sel:serviceNamespace:DescribeScalingActivities' :: DescribeScalingActivities -> ServiceNamespace
serviceNamespace} -> ServiceNamespace
serviceNamespace) (\s :: DescribeScalingActivities
s@DescribeScalingActivities' {} ServiceNamespace
a -> DescribeScalingActivities
s {$sel:serviceNamespace:DescribeScalingActivities' :: ServiceNamespace
serviceNamespace = ServiceNamespace
a} :: DescribeScalingActivities)
instance Core.AWSPager DescribeScalingActivities where
page :: DescribeScalingActivities
-> AWSResponse DescribeScalingActivities
-> Maybe DescribeScalingActivities
page DescribeScalingActivities
rq AWSResponse DescribeScalingActivities
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeScalingActivities
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeScalingActivitiesResponse (Maybe Text)
describeScalingActivitiesResponse_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 DescribeScalingActivities
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeScalingActivitiesResponse (Maybe [ScalingActivity])
describeScalingActivitiesResponse_scalingActivities
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.$ DescribeScalingActivities
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeScalingActivities (Maybe Text)
describeScalingActivities_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeScalingActivities
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeScalingActivitiesResponse (Maybe Text)
describeScalingActivitiesResponse_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 DescribeScalingActivities where
type
AWSResponse DescribeScalingActivities =
DescribeScalingActivitiesResponse
request :: (Service -> Service)
-> DescribeScalingActivities -> Request DescribeScalingActivities
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 DescribeScalingActivities
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeScalingActivities)))
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 [ScalingActivity]
-> Int
-> DescribeScalingActivitiesResponse
DescribeScalingActivitiesResponse'
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
"ScalingActivities"
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 DescribeScalingActivities where
hashWithSalt :: Int -> DescribeScalingActivities -> Int
hashWithSalt Int
_salt DescribeScalingActivities' {Maybe Bool
Maybe Int
Maybe Text
Maybe ScalableDimension
ServiceNamespace
serviceNamespace :: ServiceNamespace
scalableDimension :: Maybe ScalableDimension
resourceId :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
includeNotScaledActivities :: Maybe Bool
$sel:serviceNamespace:DescribeScalingActivities' :: DescribeScalingActivities -> ServiceNamespace
$sel:scalableDimension:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe ScalableDimension
$sel:resourceId:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Text
$sel:nextToken:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Text
$sel:maxResults:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Int
$sel:includeNotScaledActivities:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
includeNotScaledActivities
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
resourceId
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 DescribeScalingActivities where
rnf :: DescribeScalingActivities -> ()
rnf DescribeScalingActivities' {Maybe Bool
Maybe Int
Maybe Text
Maybe ScalableDimension
ServiceNamespace
serviceNamespace :: ServiceNamespace
scalableDimension :: Maybe ScalableDimension
resourceId :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
includeNotScaledActivities :: Maybe Bool
$sel:serviceNamespace:DescribeScalingActivities' :: DescribeScalingActivities -> ServiceNamespace
$sel:scalableDimension:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe ScalableDimension
$sel:resourceId:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Text
$sel:nextToken:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Text
$sel:maxResults:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Int
$sel:includeNotScaledActivities:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
includeNotScaledActivities
seq :: forall a b. a -> b -> b
`Prelude.seq` 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
resourceId
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 DescribeScalingActivities where
toHeaders :: DescribeScalingActivities -> 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.DescribeScalingActivities" ::
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 DescribeScalingActivities where
toJSON :: DescribeScalingActivities -> Value
toJSON DescribeScalingActivities' {Maybe Bool
Maybe Int
Maybe Text
Maybe ScalableDimension
ServiceNamespace
serviceNamespace :: ServiceNamespace
scalableDimension :: Maybe ScalableDimension
resourceId :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
includeNotScaledActivities :: Maybe Bool
$sel:serviceNamespace:DescribeScalingActivities' :: DescribeScalingActivities -> ServiceNamespace
$sel:scalableDimension:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe ScalableDimension
$sel:resourceId:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Text
$sel:nextToken:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Text
$sel:maxResults:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Int
$sel:includeNotScaledActivities:DescribeScalingActivities' :: DescribeScalingActivities -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"IncludeNotScaledActivities" 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 Bool
includeNotScaledActivities,
(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
"ResourceId" 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
resourceId,
(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 DescribeScalingActivities where
toPath :: DescribeScalingActivities -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeScalingActivities where
toQuery :: DescribeScalingActivities -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeScalingActivitiesResponse = DescribeScalingActivitiesResponse'
{
DescribeScalingActivitiesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeScalingActivitiesResponse -> Maybe [ScalingActivity]
scalingActivities :: Prelude.Maybe [ScalingActivity],
DescribeScalingActivitiesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeScalingActivitiesResponse
-> DescribeScalingActivitiesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeScalingActivitiesResponse
-> DescribeScalingActivitiesResponse -> Bool
$c/= :: DescribeScalingActivitiesResponse
-> DescribeScalingActivitiesResponse -> Bool
== :: DescribeScalingActivitiesResponse
-> DescribeScalingActivitiesResponse -> Bool
$c== :: DescribeScalingActivitiesResponse
-> DescribeScalingActivitiesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeScalingActivitiesResponse]
ReadPrec DescribeScalingActivitiesResponse
Int -> ReadS DescribeScalingActivitiesResponse
ReadS [DescribeScalingActivitiesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeScalingActivitiesResponse]
$creadListPrec :: ReadPrec [DescribeScalingActivitiesResponse]
readPrec :: ReadPrec DescribeScalingActivitiesResponse
$creadPrec :: ReadPrec DescribeScalingActivitiesResponse
readList :: ReadS [DescribeScalingActivitiesResponse]
$creadList :: ReadS [DescribeScalingActivitiesResponse]
readsPrec :: Int -> ReadS DescribeScalingActivitiesResponse
$creadsPrec :: Int -> ReadS DescribeScalingActivitiesResponse
Prelude.Read, Int -> DescribeScalingActivitiesResponse -> ShowS
[DescribeScalingActivitiesResponse] -> ShowS
DescribeScalingActivitiesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeScalingActivitiesResponse] -> ShowS
$cshowList :: [DescribeScalingActivitiesResponse] -> ShowS
show :: DescribeScalingActivitiesResponse -> String
$cshow :: DescribeScalingActivitiesResponse -> String
showsPrec :: Int -> DescribeScalingActivitiesResponse -> ShowS
$cshowsPrec :: Int -> DescribeScalingActivitiesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeScalingActivitiesResponse x
-> DescribeScalingActivitiesResponse
forall x.
DescribeScalingActivitiesResponse
-> Rep DescribeScalingActivitiesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeScalingActivitiesResponse x
-> DescribeScalingActivitiesResponse
$cfrom :: forall x.
DescribeScalingActivitiesResponse
-> Rep DescribeScalingActivitiesResponse x
Prelude.Generic)
newDescribeScalingActivitiesResponse ::
Prelude.Int ->
DescribeScalingActivitiesResponse
newDescribeScalingActivitiesResponse :: Int -> DescribeScalingActivitiesResponse
newDescribeScalingActivitiesResponse Int
pHttpStatus_ =
DescribeScalingActivitiesResponse'
{ $sel:nextToken:DescribeScalingActivitiesResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:scalingActivities:DescribeScalingActivitiesResponse' :: Maybe [ScalingActivity]
scalingActivities = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeScalingActivitiesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeScalingActivitiesResponse_nextToken :: Lens.Lens' DescribeScalingActivitiesResponse (Prelude.Maybe Prelude.Text)
describeScalingActivitiesResponse_nextToken :: Lens' DescribeScalingActivitiesResponse (Maybe Text)
describeScalingActivitiesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingActivitiesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeScalingActivitiesResponse' :: DescribeScalingActivitiesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeScalingActivitiesResponse
s@DescribeScalingActivitiesResponse' {} Maybe Text
a -> DescribeScalingActivitiesResponse
s {$sel:nextToken:DescribeScalingActivitiesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeScalingActivitiesResponse)
describeScalingActivitiesResponse_scalingActivities :: Lens.Lens' DescribeScalingActivitiesResponse (Prelude.Maybe [ScalingActivity])
describeScalingActivitiesResponse_scalingActivities :: Lens' DescribeScalingActivitiesResponse (Maybe [ScalingActivity])
describeScalingActivitiesResponse_scalingActivities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingActivitiesResponse' {Maybe [ScalingActivity]
scalingActivities :: Maybe [ScalingActivity]
$sel:scalingActivities:DescribeScalingActivitiesResponse' :: DescribeScalingActivitiesResponse -> Maybe [ScalingActivity]
scalingActivities} -> Maybe [ScalingActivity]
scalingActivities) (\s :: DescribeScalingActivitiesResponse
s@DescribeScalingActivitiesResponse' {} Maybe [ScalingActivity]
a -> DescribeScalingActivitiesResponse
s {$sel:scalingActivities:DescribeScalingActivitiesResponse' :: Maybe [ScalingActivity]
scalingActivities = Maybe [ScalingActivity]
a} :: DescribeScalingActivitiesResponse) 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
describeScalingActivitiesResponse_httpStatus :: Lens.Lens' DescribeScalingActivitiesResponse Prelude.Int
describeScalingActivitiesResponse_httpStatus :: Lens' DescribeScalingActivitiesResponse Int
describeScalingActivitiesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeScalingActivitiesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeScalingActivitiesResponse' :: DescribeScalingActivitiesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeScalingActivitiesResponse
s@DescribeScalingActivitiesResponse' {} Int
a -> DescribeScalingActivitiesResponse
s {$sel:httpStatus:DescribeScalingActivitiesResponse' :: Int
httpStatus = Int
a} :: DescribeScalingActivitiesResponse)
instance
Prelude.NFData
DescribeScalingActivitiesResponse
where
rnf :: DescribeScalingActivitiesResponse -> ()
rnf DescribeScalingActivitiesResponse' {Int
Maybe [ScalingActivity]
Maybe Text
httpStatus :: Int
scalingActivities :: Maybe [ScalingActivity]
nextToken :: Maybe Text
$sel:httpStatus:DescribeScalingActivitiesResponse' :: DescribeScalingActivitiesResponse -> Int
$sel:scalingActivities:DescribeScalingActivitiesResponse' :: DescribeScalingActivitiesResponse -> Maybe [ScalingActivity]
$sel:nextToken:DescribeScalingActivitiesResponse' :: DescribeScalingActivitiesResponse -> 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 [ScalingActivity]
scalingActivities
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus