{-# 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.AutoScaling.DescribeInstanceRefreshes
(
DescribeInstanceRefreshes (..),
newDescribeInstanceRefreshes,
describeInstanceRefreshes_instanceRefreshIds,
describeInstanceRefreshes_maxRecords,
describeInstanceRefreshes_nextToken,
describeInstanceRefreshes_autoScalingGroupName,
DescribeInstanceRefreshesResponse (..),
newDescribeInstanceRefreshesResponse,
describeInstanceRefreshesResponse_instanceRefreshes,
describeInstanceRefreshesResponse_nextToken,
describeInstanceRefreshesResponse_httpStatus,
)
where
import Amazonka.AutoScaling.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 DescribeInstanceRefreshes = DescribeInstanceRefreshes'
{
DescribeInstanceRefreshes -> Maybe [Text]
instanceRefreshIds :: Prelude.Maybe [Prelude.Text],
DescribeInstanceRefreshes -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int,
DescribeInstanceRefreshes -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeInstanceRefreshes -> Text
autoScalingGroupName :: Prelude.Text
}
deriving (DescribeInstanceRefreshes -> DescribeInstanceRefreshes -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstanceRefreshes -> DescribeInstanceRefreshes -> Bool
$c/= :: DescribeInstanceRefreshes -> DescribeInstanceRefreshes -> Bool
== :: DescribeInstanceRefreshes -> DescribeInstanceRefreshes -> Bool
$c== :: DescribeInstanceRefreshes -> DescribeInstanceRefreshes -> Bool
Prelude.Eq, ReadPrec [DescribeInstanceRefreshes]
ReadPrec DescribeInstanceRefreshes
Int -> ReadS DescribeInstanceRefreshes
ReadS [DescribeInstanceRefreshes]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeInstanceRefreshes]
$creadListPrec :: ReadPrec [DescribeInstanceRefreshes]
readPrec :: ReadPrec DescribeInstanceRefreshes
$creadPrec :: ReadPrec DescribeInstanceRefreshes
readList :: ReadS [DescribeInstanceRefreshes]
$creadList :: ReadS [DescribeInstanceRefreshes]
readsPrec :: Int -> ReadS DescribeInstanceRefreshes
$creadsPrec :: Int -> ReadS DescribeInstanceRefreshes
Prelude.Read, Int -> DescribeInstanceRefreshes -> ShowS
[DescribeInstanceRefreshes] -> ShowS
DescribeInstanceRefreshes -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstanceRefreshes] -> ShowS
$cshowList :: [DescribeInstanceRefreshes] -> ShowS
show :: DescribeInstanceRefreshes -> String
$cshow :: DescribeInstanceRefreshes -> String
showsPrec :: Int -> DescribeInstanceRefreshes -> ShowS
$cshowsPrec :: Int -> DescribeInstanceRefreshes -> ShowS
Prelude.Show, forall x.
Rep DescribeInstanceRefreshes x -> DescribeInstanceRefreshes
forall x.
DescribeInstanceRefreshes -> Rep DescribeInstanceRefreshes x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeInstanceRefreshes x -> DescribeInstanceRefreshes
$cfrom :: forall x.
DescribeInstanceRefreshes -> Rep DescribeInstanceRefreshes x
Prelude.Generic)
newDescribeInstanceRefreshes ::
Prelude.Text ->
DescribeInstanceRefreshes
newDescribeInstanceRefreshes :: Text -> DescribeInstanceRefreshes
newDescribeInstanceRefreshes Text
pAutoScalingGroupName_ =
DescribeInstanceRefreshes'
{ $sel:instanceRefreshIds:DescribeInstanceRefreshes' :: Maybe [Text]
instanceRefreshIds =
forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeInstanceRefreshes' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeInstanceRefreshes' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:autoScalingGroupName:DescribeInstanceRefreshes' :: Text
autoScalingGroupName = Text
pAutoScalingGroupName_
}
describeInstanceRefreshes_instanceRefreshIds :: Lens.Lens' DescribeInstanceRefreshes (Prelude.Maybe [Prelude.Text])
describeInstanceRefreshes_instanceRefreshIds :: Lens' DescribeInstanceRefreshes (Maybe [Text])
describeInstanceRefreshes_instanceRefreshIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceRefreshes' {Maybe [Text]
instanceRefreshIds :: Maybe [Text]
$sel:instanceRefreshIds:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe [Text]
instanceRefreshIds} -> Maybe [Text]
instanceRefreshIds) (\s :: DescribeInstanceRefreshes
s@DescribeInstanceRefreshes' {} Maybe [Text]
a -> DescribeInstanceRefreshes
s {$sel:instanceRefreshIds:DescribeInstanceRefreshes' :: Maybe [Text]
instanceRefreshIds = Maybe [Text]
a} :: DescribeInstanceRefreshes) 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
describeInstanceRefreshes_maxRecords :: Lens.Lens' DescribeInstanceRefreshes (Prelude.Maybe Prelude.Int)
describeInstanceRefreshes_maxRecords :: Lens' DescribeInstanceRefreshes (Maybe Int)
describeInstanceRefreshes_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceRefreshes' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeInstanceRefreshes
s@DescribeInstanceRefreshes' {} Maybe Int
a -> DescribeInstanceRefreshes
s {$sel:maxRecords:DescribeInstanceRefreshes' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeInstanceRefreshes)
describeInstanceRefreshes_nextToken :: Lens.Lens' DescribeInstanceRefreshes (Prelude.Maybe Prelude.Text)
describeInstanceRefreshes_nextToken :: Lens' DescribeInstanceRefreshes (Maybe Text)
describeInstanceRefreshes_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceRefreshes' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeInstanceRefreshes
s@DescribeInstanceRefreshes' {} Maybe Text
a -> DescribeInstanceRefreshes
s {$sel:nextToken:DescribeInstanceRefreshes' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeInstanceRefreshes)
describeInstanceRefreshes_autoScalingGroupName :: Lens.Lens' DescribeInstanceRefreshes Prelude.Text
describeInstanceRefreshes_autoScalingGroupName :: Lens' DescribeInstanceRefreshes Text
describeInstanceRefreshes_autoScalingGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceRefreshes' {Text
autoScalingGroupName :: Text
$sel:autoScalingGroupName:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Text
autoScalingGroupName} -> Text
autoScalingGroupName) (\s :: DescribeInstanceRefreshes
s@DescribeInstanceRefreshes' {} Text
a -> DescribeInstanceRefreshes
s {$sel:autoScalingGroupName:DescribeInstanceRefreshes' :: Text
autoScalingGroupName = Text
a} :: DescribeInstanceRefreshes)
instance Core.AWSRequest DescribeInstanceRefreshes where
type
AWSResponse DescribeInstanceRefreshes =
DescribeInstanceRefreshesResponse
request :: (Service -> Service)
-> DescribeInstanceRefreshes -> Request DescribeInstanceRefreshes
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeInstanceRefreshes
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeInstanceRefreshes)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"DescribeInstanceRefreshesResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [InstanceRefresh]
-> Maybe Text -> Int -> DescribeInstanceRefreshesResponse
DescribeInstanceRefreshesResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"InstanceRefreshes"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"NextToken")
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 DescribeInstanceRefreshes where
hashWithSalt :: Int -> DescribeInstanceRefreshes -> Int
hashWithSalt Int
_salt DescribeInstanceRefreshes' {Maybe Int
Maybe [Text]
Maybe Text
Text
autoScalingGroupName :: Text
nextToken :: Maybe Text
maxRecords :: Maybe Int
instanceRefreshIds :: Maybe [Text]
$sel:autoScalingGroupName:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Text
$sel:nextToken:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe Text
$sel:maxRecords:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe Int
$sel:instanceRefreshIds:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
instanceRefreshIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxRecords
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
autoScalingGroupName
instance Prelude.NFData DescribeInstanceRefreshes where
rnf :: DescribeInstanceRefreshes -> ()
rnf DescribeInstanceRefreshes' {Maybe Int
Maybe [Text]
Maybe Text
Text
autoScalingGroupName :: Text
nextToken :: Maybe Text
maxRecords :: Maybe Int
instanceRefreshIds :: Maybe [Text]
$sel:autoScalingGroupName:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Text
$sel:nextToken:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe Text
$sel:maxRecords:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe Int
$sel:instanceRefreshIds:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
instanceRefreshIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxRecords
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 Text
autoScalingGroupName
instance Data.ToHeaders DescribeInstanceRefreshes where
toHeaders :: DescribeInstanceRefreshes -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeInstanceRefreshes where
toPath :: DescribeInstanceRefreshes -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeInstanceRefreshes where
toQuery :: DescribeInstanceRefreshes -> QueryString
toQuery DescribeInstanceRefreshes' {Maybe Int
Maybe [Text]
Maybe Text
Text
autoScalingGroupName :: Text
nextToken :: Maybe Text
maxRecords :: Maybe Int
instanceRefreshIds :: Maybe [Text]
$sel:autoScalingGroupName:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Text
$sel:nextToken:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe Text
$sel:maxRecords:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe Int
$sel:instanceRefreshIds:DescribeInstanceRefreshes' :: DescribeInstanceRefreshes -> Maybe [Text]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DescribeInstanceRefreshes" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2011-01-01" :: Prelude.ByteString),
ByteString
"InstanceRefreshIds"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
instanceRefreshIds
),
ByteString
"MaxRecords" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
maxRecords,
ByteString
"NextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"AutoScalingGroupName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
autoScalingGroupName
]
data DescribeInstanceRefreshesResponse = DescribeInstanceRefreshesResponse'
{
DescribeInstanceRefreshesResponse -> Maybe [InstanceRefresh]
instanceRefreshes :: Prelude.Maybe [InstanceRefresh],
DescribeInstanceRefreshesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeInstanceRefreshesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeInstanceRefreshesResponse
-> DescribeInstanceRefreshesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstanceRefreshesResponse
-> DescribeInstanceRefreshesResponse -> Bool
$c/= :: DescribeInstanceRefreshesResponse
-> DescribeInstanceRefreshesResponse -> Bool
== :: DescribeInstanceRefreshesResponse
-> DescribeInstanceRefreshesResponse -> Bool
$c== :: DescribeInstanceRefreshesResponse
-> DescribeInstanceRefreshesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeInstanceRefreshesResponse]
ReadPrec DescribeInstanceRefreshesResponse
Int -> ReadS DescribeInstanceRefreshesResponse
ReadS [DescribeInstanceRefreshesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeInstanceRefreshesResponse]
$creadListPrec :: ReadPrec [DescribeInstanceRefreshesResponse]
readPrec :: ReadPrec DescribeInstanceRefreshesResponse
$creadPrec :: ReadPrec DescribeInstanceRefreshesResponse
readList :: ReadS [DescribeInstanceRefreshesResponse]
$creadList :: ReadS [DescribeInstanceRefreshesResponse]
readsPrec :: Int -> ReadS DescribeInstanceRefreshesResponse
$creadsPrec :: Int -> ReadS DescribeInstanceRefreshesResponse
Prelude.Read, Int -> DescribeInstanceRefreshesResponse -> ShowS
[DescribeInstanceRefreshesResponse] -> ShowS
DescribeInstanceRefreshesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstanceRefreshesResponse] -> ShowS
$cshowList :: [DescribeInstanceRefreshesResponse] -> ShowS
show :: DescribeInstanceRefreshesResponse -> String
$cshow :: DescribeInstanceRefreshesResponse -> String
showsPrec :: Int -> DescribeInstanceRefreshesResponse -> ShowS
$cshowsPrec :: Int -> DescribeInstanceRefreshesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeInstanceRefreshesResponse x
-> DescribeInstanceRefreshesResponse
forall x.
DescribeInstanceRefreshesResponse
-> Rep DescribeInstanceRefreshesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeInstanceRefreshesResponse x
-> DescribeInstanceRefreshesResponse
$cfrom :: forall x.
DescribeInstanceRefreshesResponse
-> Rep DescribeInstanceRefreshesResponse x
Prelude.Generic)
newDescribeInstanceRefreshesResponse ::
Prelude.Int ->
DescribeInstanceRefreshesResponse
newDescribeInstanceRefreshesResponse :: Int -> DescribeInstanceRefreshesResponse
newDescribeInstanceRefreshesResponse Int
pHttpStatus_ =
DescribeInstanceRefreshesResponse'
{ $sel:instanceRefreshes:DescribeInstanceRefreshesResponse' :: Maybe [InstanceRefresh]
instanceRefreshes =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeInstanceRefreshesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeInstanceRefreshesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeInstanceRefreshesResponse_instanceRefreshes :: Lens.Lens' DescribeInstanceRefreshesResponse (Prelude.Maybe [InstanceRefresh])
describeInstanceRefreshesResponse_instanceRefreshes :: Lens' DescribeInstanceRefreshesResponse (Maybe [InstanceRefresh])
describeInstanceRefreshesResponse_instanceRefreshes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceRefreshesResponse' {Maybe [InstanceRefresh]
instanceRefreshes :: Maybe [InstanceRefresh]
$sel:instanceRefreshes:DescribeInstanceRefreshesResponse' :: DescribeInstanceRefreshesResponse -> Maybe [InstanceRefresh]
instanceRefreshes} -> Maybe [InstanceRefresh]
instanceRefreshes) (\s :: DescribeInstanceRefreshesResponse
s@DescribeInstanceRefreshesResponse' {} Maybe [InstanceRefresh]
a -> DescribeInstanceRefreshesResponse
s {$sel:instanceRefreshes:DescribeInstanceRefreshesResponse' :: Maybe [InstanceRefresh]
instanceRefreshes = Maybe [InstanceRefresh]
a} :: DescribeInstanceRefreshesResponse) 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
describeInstanceRefreshesResponse_nextToken :: Lens.Lens' DescribeInstanceRefreshesResponse (Prelude.Maybe Prelude.Text)
describeInstanceRefreshesResponse_nextToken :: Lens' DescribeInstanceRefreshesResponse (Maybe Text)
describeInstanceRefreshesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceRefreshesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeInstanceRefreshesResponse' :: DescribeInstanceRefreshesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeInstanceRefreshesResponse
s@DescribeInstanceRefreshesResponse' {} Maybe Text
a -> DescribeInstanceRefreshesResponse
s {$sel:nextToken:DescribeInstanceRefreshesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeInstanceRefreshesResponse)
describeInstanceRefreshesResponse_httpStatus :: Lens.Lens' DescribeInstanceRefreshesResponse Prelude.Int
describeInstanceRefreshesResponse_httpStatus :: Lens' DescribeInstanceRefreshesResponse Int
describeInstanceRefreshesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceRefreshesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeInstanceRefreshesResponse' :: DescribeInstanceRefreshesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeInstanceRefreshesResponse
s@DescribeInstanceRefreshesResponse' {} Int
a -> DescribeInstanceRefreshesResponse
s {$sel:httpStatus:DescribeInstanceRefreshesResponse' :: Int
httpStatus = Int
a} :: DescribeInstanceRefreshesResponse)
instance
Prelude.NFData
DescribeInstanceRefreshesResponse
where
rnf :: DescribeInstanceRefreshesResponse -> ()
rnf DescribeInstanceRefreshesResponse' {Int
Maybe [InstanceRefresh]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
instanceRefreshes :: Maybe [InstanceRefresh]
$sel:httpStatus:DescribeInstanceRefreshesResponse' :: DescribeInstanceRefreshesResponse -> Int
$sel:nextToken:DescribeInstanceRefreshesResponse' :: DescribeInstanceRefreshesResponse -> Maybe Text
$sel:instanceRefreshes:DescribeInstanceRefreshesResponse' :: DescribeInstanceRefreshesResponse -> Maybe [InstanceRefresh]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [InstanceRefresh]
instanceRefreshes
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 Int
httpStatus