{-# 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.AWSHealth.DescribeAffectedEntities
(
DescribeAffectedEntities (..),
newDescribeAffectedEntities,
describeAffectedEntities_locale,
describeAffectedEntities_maxResults,
describeAffectedEntities_nextToken,
describeAffectedEntities_filter,
DescribeAffectedEntitiesResponse (..),
newDescribeAffectedEntitiesResponse,
describeAffectedEntitiesResponse_entities,
describeAffectedEntitiesResponse_nextToken,
describeAffectedEntitiesResponse_httpStatus,
)
where
import Amazonka.AWSHealth.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 DescribeAffectedEntities = DescribeAffectedEntities'
{
DescribeAffectedEntities -> Maybe Text
locale :: Prelude.Maybe Prelude.Text,
DescribeAffectedEntities -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
DescribeAffectedEntities -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeAffectedEntities -> EntityFilter
filter' :: EntityFilter
}
deriving (DescribeAffectedEntities -> DescribeAffectedEntities -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeAffectedEntities -> DescribeAffectedEntities -> Bool
$c/= :: DescribeAffectedEntities -> DescribeAffectedEntities -> Bool
== :: DescribeAffectedEntities -> DescribeAffectedEntities -> Bool
$c== :: DescribeAffectedEntities -> DescribeAffectedEntities -> Bool
Prelude.Eq, ReadPrec [DescribeAffectedEntities]
ReadPrec DescribeAffectedEntities
Int -> ReadS DescribeAffectedEntities
ReadS [DescribeAffectedEntities]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeAffectedEntities]
$creadListPrec :: ReadPrec [DescribeAffectedEntities]
readPrec :: ReadPrec DescribeAffectedEntities
$creadPrec :: ReadPrec DescribeAffectedEntities
readList :: ReadS [DescribeAffectedEntities]
$creadList :: ReadS [DescribeAffectedEntities]
readsPrec :: Int -> ReadS DescribeAffectedEntities
$creadsPrec :: Int -> ReadS DescribeAffectedEntities
Prelude.Read, Int -> DescribeAffectedEntities -> ShowS
[DescribeAffectedEntities] -> ShowS
DescribeAffectedEntities -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeAffectedEntities] -> ShowS
$cshowList :: [DescribeAffectedEntities] -> ShowS
show :: DescribeAffectedEntities -> String
$cshow :: DescribeAffectedEntities -> String
showsPrec :: Int -> DescribeAffectedEntities -> ShowS
$cshowsPrec :: Int -> DescribeAffectedEntities -> ShowS
Prelude.Show, forall x.
Rep DescribeAffectedEntities x -> DescribeAffectedEntities
forall x.
DescribeAffectedEntities -> Rep DescribeAffectedEntities x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeAffectedEntities x -> DescribeAffectedEntities
$cfrom :: forall x.
DescribeAffectedEntities -> Rep DescribeAffectedEntities x
Prelude.Generic)
newDescribeAffectedEntities ::
EntityFilter ->
DescribeAffectedEntities
newDescribeAffectedEntities :: EntityFilter -> DescribeAffectedEntities
newDescribeAffectedEntities EntityFilter
pFilter_ =
DescribeAffectedEntities'
{ $sel:locale:DescribeAffectedEntities' :: Maybe Text
locale = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:DescribeAffectedEntities' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeAffectedEntities' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:filter':DescribeAffectedEntities' :: EntityFilter
filter' = EntityFilter
pFilter_
}
describeAffectedEntities_locale :: Lens.Lens' DescribeAffectedEntities (Prelude.Maybe Prelude.Text)
describeAffectedEntities_locale :: Lens' DescribeAffectedEntities (Maybe Text)
describeAffectedEntities_locale = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAffectedEntities' {Maybe Text
locale :: Maybe Text
$sel:locale:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Text
locale} -> Maybe Text
locale) (\s :: DescribeAffectedEntities
s@DescribeAffectedEntities' {} Maybe Text
a -> DescribeAffectedEntities
s {$sel:locale:DescribeAffectedEntities' :: Maybe Text
locale = Maybe Text
a} :: DescribeAffectedEntities)
describeAffectedEntities_maxResults :: Lens.Lens' DescribeAffectedEntities (Prelude.Maybe Prelude.Natural)
describeAffectedEntities_maxResults :: Lens' DescribeAffectedEntities (Maybe Natural)
describeAffectedEntities_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAffectedEntities' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: DescribeAffectedEntities
s@DescribeAffectedEntities' {} Maybe Natural
a -> DescribeAffectedEntities
s {$sel:maxResults:DescribeAffectedEntities' :: Maybe Natural
maxResults = Maybe Natural
a} :: DescribeAffectedEntities)
describeAffectedEntities_nextToken :: Lens.Lens' DescribeAffectedEntities (Prelude.Maybe Prelude.Text)
describeAffectedEntities_nextToken :: Lens' DescribeAffectedEntities (Maybe Text)
describeAffectedEntities_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAffectedEntities' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeAffectedEntities
s@DescribeAffectedEntities' {} Maybe Text
a -> DescribeAffectedEntities
s {$sel:nextToken:DescribeAffectedEntities' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeAffectedEntities)
describeAffectedEntities_filter :: Lens.Lens' DescribeAffectedEntities EntityFilter
describeAffectedEntities_filter :: Lens' DescribeAffectedEntities EntityFilter
describeAffectedEntities_filter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAffectedEntities' {EntityFilter
filter' :: EntityFilter
$sel:filter':DescribeAffectedEntities' :: DescribeAffectedEntities -> EntityFilter
filter'} -> EntityFilter
filter') (\s :: DescribeAffectedEntities
s@DescribeAffectedEntities' {} EntityFilter
a -> DescribeAffectedEntities
s {$sel:filter':DescribeAffectedEntities' :: EntityFilter
filter' = EntityFilter
a} :: DescribeAffectedEntities)
instance Core.AWSPager DescribeAffectedEntities where
page :: DescribeAffectedEntities
-> AWSResponse DescribeAffectedEntities
-> Maybe DescribeAffectedEntities
page DescribeAffectedEntities
rq AWSResponse DescribeAffectedEntities
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeAffectedEntities
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeAffectedEntitiesResponse (Maybe Text)
describeAffectedEntitiesResponse_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 DescribeAffectedEntities
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeAffectedEntitiesResponse (Maybe [AffectedEntity])
describeAffectedEntitiesResponse_entities
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.$ DescribeAffectedEntities
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeAffectedEntities (Maybe Text)
describeAffectedEntities_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeAffectedEntities
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeAffectedEntitiesResponse (Maybe Text)
describeAffectedEntitiesResponse_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 DescribeAffectedEntities where
type
AWSResponse DescribeAffectedEntities =
DescribeAffectedEntitiesResponse
request :: (Service -> Service)
-> DescribeAffectedEntities -> Request DescribeAffectedEntities
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 DescribeAffectedEntities
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeAffectedEntities)))
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 [AffectedEntity]
-> Maybe Text -> Int -> DescribeAffectedEntitiesResponse
DescribeAffectedEntitiesResponse'
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
"entities" 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.<*> (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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DescribeAffectedEntities where
hashWithSalt :: Int -> DescribeAffectedEntities -> Int
hashWithSalt Int
_salt DescribeAffectedEntities' {Maybe Natural
Maybe Text
EntityFilter
filter' :: EntityFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
locale :: Maybe Text
$sel:filter':DescribeAffectedEntities' :: DescribeAffectedEntities -> EntityFilter
$sel:nextToken:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Text
$sel:maxResults:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Natural
$sel:locale:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
locale
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` EntityFilter
filter'
instance Prelude.NFData DescribeAffectedEntities where
rnf :: DescribeAffectedEntities -> ()
rnf DescribeAffectedEntities' {Maybe Natural
Maybe Text
EntityFilter
filter' :: EntityFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
locale :: Maybe Text
$sel:filter':DescribeAffectedEntities' :: DescribeAffectedEntities -> EntityFilter
$sel:nextToken:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Text
$sel:maxResults:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Natural
$sel:locale:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
locale
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
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 EntityFilter
filter'
instance Data.ToHeaders DescribeAffectedEntities where
toHeaders :: DescribeAffectedEntities -> 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
"AWSHealth_20160804.DescribeAffectedEntities" ::
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 DescribeAffectedEntities where
toJSON :: DescribeAffectedEntities -> Value
toJSON DescribeAffectedEntities' {Maybe Natural
Maybe Text
EntityFilter
filter' :: EntityFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
locale :: Maybe Text
$sel:filter':DescribeAffectedEntities' :: DescribeAffectedEntities -> EntityFilter
$sel:nextToken:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Text
$sel:maxResults:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Natural
$sel:locale:DescribeAffectedEntities' :: DescribeAffectedEntities -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"locale" 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
locale,
(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 Natural
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,
forall a. a -> Maybe a
Prelude.Just (Key
"filter" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= EntityFilter
filter')
]
)
instance Data.ToPath DescribeAffectedEntities where
toPath :: DescribeAffectedEntities -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeAffectedEntities where
toQuery :: DescribeAffectedEntities -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeAffectedEntitiesResponse = DescribeAffectedEntitiesResponse'
{
DescribeAffectedEntitiesResponse -> Maybe [AffectedEntity]
entities :: Prelude.Maybe [AffectedEntity],
DescribeAffectedEntitiesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeAffectedEntitiesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeAffectedEntitiesResponse
-> DescribeAffectedEntitiesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeAffectedEntitiesResponse
-> DescribeAffectedEntitiesResponse -> Bool
$c/= :: DescribeAffectedEntitiesResponse
-> DescribeAffectedEntitiesResponse -> Bool
== :: DescribeAffectedEntitiesResponse
-> DescribeAffectedEntitiesResponse -> Bool
$c== :: DescribeAffectedEntitiesResponse
-> DescribeAffectedEntitiesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeAffectedEntitiesResponse]
ReadPrec DescribeAffectedEntitiesResponse
Int -> ReadS DescribeAffectedEntitiesResponse
ReadS [DescribeAffectedEntitiesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeAffectedEntitiesResponse]
$creadListPrec :: ReadPrec [DescribeAffectedEntitiesResponse]
readPrec :: ReadPrec DescribeAffectedEntitiesResponse
$creadPrec :: ReadPrec DescribeAffectedEntitiesResponse
readList :: ReadS [DescribeAffectedEntitiesResponse]
$creadList :: ReadS [DescribeAffectedEntitiesResponse]
readsPrec :: Int -> ReadS DescribeAffectedEntitiesResponse
$creadsPrec :: Int -> ReadS DescribeAffectedEntitiesResponse
Prelude.Read, Int -> DescribeAffectedEntitiesResponse -> ShowS
[DescribeAffectedEntitiesResponse] -> ShowS
DescribeAffectedEntitiesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeAffectedEntitiesResponse] -> ShowS
$cshowList :: [DescribeAffectedEntitiesResponse] -> ShowS
show :: DescribeAffectedEntitiesResponse -> String
$cshow :: DescribeAffectedEntitiesResponse -> String
showsPrec :: Int -> DescribeAffectedEntitiesResponse -> ShowS
$cshowsPrec :: Int -> DescribeAffectedEntitiesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeAffectedEntitiesResponse x
-> DescribeAffectedEntitiesResponse
forall x.
DescribeAffectedEntitiesResponse
-> Rep DescribeAffectedEntitiesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeAffectedEntitiesResponse x
-> DescribeAffectedEntitiesResponse
$cfrom :: forall x.
DescribeAffectedEntitiesResponse
-> Rep DescribeAffectedEntitiesResponse x
Prelude.Generic)
newDescribeAffectedEntitiesResponse ::
Prelude.Int ->
DescribeAffectedEntitiesResponse
newDescribeAffectedEntitiesResponse :: Int -> DescribeAffectedEntitiesResponse
newDescribeAffectedEntitiesResponse Int
pHttpStatus_ =
DescribeAffectedEntitiesResponse'
{ $sel:entities:DescribeAffectedEntitiesResponse' :: Maybe [AffectedEntity]
entities =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeAffectedEntitiesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeAffectedEntitiesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeAffectedEntitiesResponse_entities :: Lens.Lens' DescribeAffectedEntitiesResponse (Prelude.Maybe [AffectedEntity])
describeAffectedEntitiesResponse_entities :: Lens' DescribeAffectedEntitiesResponse (Maybe [AffectedEntity])
describeAffectedEntitiesResponse_entities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAffectedEntitiesResponse' {Maybe [AffectedEntity]
entities :: Maybe [AffectedEntity]
$sel:entities:DescribeAffectedEntitiesResponse' :: DescribeAffectedEntitiesResponse -> Maybe [AffectedEntity]
entities} -> Maybe [AffectedEntity]
entities) (\s :: DescribeAffectedEntitiesResponse
s@DescribeAffectedEntitiesResponse' {} Maybe [AffectedEntity]
a -> DescribeAffectedEntitiesResponse
s {$sel:entities:DescribeAffectedEntitiesResponse' :: Maybe [AffectedEntity]
entities = Maybe [AffectedEntity]
a} :: DescribeAffectedEntitiesResponse) 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
describeAffectedEntitiesResponse_nextToken :: Lens.Lens' DescribeAffectedEntitiesResponse (Prelude.Maybe Prelude.Text)
describeAffectedEntitiesResponse_nextToken :: Lens' DescribeAffectedEntitiesResponse (Maybe Text)
describeAffectedEntitiesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAffectedEntitiesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeAffectedEntitiesResponse' :: DescribeAffectedEntitiesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeAffectedEntitiesResponse
s@DescribeAffectedEntitiesResponse' {} Maybe Text
a -> DescribeAffectedEntitiesResponse
s {$sel:nextToken:DescribeAffectedEntitiesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeAffectedEntitiesResponse)
describeAffectedEntitiesResponse_httpStatus :: Lens.Lens' DescribeAffectedEntitiesResponse Prelude.Int
describeAffectedEntitiesResponse_httpStatus :: Lens' DescribeAffectedEntitiesResponse Int
describeAffectedEntitiesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAffectedEntitiesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeAffectedEntitiesResponse' :: DescribeAffectedEntitiesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeAffectedEntitiesResponse
s@DescribeAffectedEntitiesResponse' {} Int
a -> DescribeAffectedEntitiesResponse
s {$sel:httpStatus:DescribeAffectedEntitiesResponse' :: Int
httpStatus = Int
a} :: DescribeAffectedEntitiesResponse)
instance
Prelude.NFData
DescribeAffectedEntitiesResponse
where
rnf :: DescribeAffectedEntitiesResponse -> ()
rnf DescribeAffectedEntitiesResponse' {Int
Maybe [AffectedEntity]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
entities :: Maybe [AffectedEntity]
$sel:httpStatus:DescribeAffectedEntitiesResponse' :: DescribeAffectedEntitiesResponse -> Int
$sel:nextToken:DescribeAffectedEntitiesResponse' :: DescribeAffectedEntitiesResponse -> Maybe Text
$sel:entities:DescribeAffectedEntitiesResponse' :: DescribeAffectedEntitiesResponse -> Maybe [AffectedEntity]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AffectedEntity]
entities
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