{-# 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.Route53RecoveryReadiness.GetCellReadinessSummary
(
GetCellReadinessSummary (..),
newGetCellReadinessSummary,
getCellReadinessSummary_maxResults,
getCellReadinessSummary_nextToken,
getCellReadinessSummary_cellName,
GetCellReadinessSummaryResponse (..),
newGetCellReadinessSummaryResponse,
getCellReadinessSummaryResponse_nextToken,
getCellReadinessSummaryResponse_readiness,
getCellReadinessSummaryResponse_readinessChecks,
getCellReadinessSummaryResponse_httpStatus,
)
where
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
import Amazonka.Route53RecoveryReadiness.Types
data GetCellReadinessSummary = GetCellReadinessSummary'
{
GetCellReadinessSummary -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
GetCellReadinessSummary -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetCellReadinessSummary -> Text
cellName :: Prelude.Text
}
deriving (GetCellReadinessSummary -> GetCellReadinessSummary -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetCellReadinessSummary -> GetCellReadinessSummary -> Bool
$c/= :: GetCellReadinessSummary -> GetCellReadinessSummary -> Bool
== :: GetCellReadinessSummary -> GetCellReadinessSummary -> Bool
$c== :: GetCellReadinessSummary -> GetCellReadinessSummary -> Bool
Prelude.Eq, ReadPrec [GetCellReadinessSummary]
ReadPrec GetCellReadinessSummary
Int -> ReadS GetCellReadinessSummary
ReadS [GetCellReadinessSummary]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetCellReadinessSummary]
$creadListPrec :: ReadPrec [GetCellReadinessSummary]
readPrec :: ReadPrec GetCellReadinessSummary
$creadPrec :: ReadPrec GetCellReadinessSummary
readList :: ReadS [GetCellReadinessSummary]
$creadList :: ReadS [GetCellReadinessSummary]
readsPrec :: Int -> ReadS GetCellReadinessSummary
$creadsPrec :: Int -> ReadS GetCellReadinessSummary
Prelude.Read, Int -> GetCellReadinessSummary -> ShowS
[GetCellReadinessSummary] -> ShowS
GetCellReadinessSummary -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetCellReadinessSummary] -> ShowS
$cshowList :: [GetCellReadinessSummary] -> ShowS
show :: GetCellReadinessSummary -> String
$cshow :: GetCellReadinessSummary -> String
showsPrec :: Int -> GetCellReadinessSummary -> ShowS
$cshowsPrec :: Int -> GetCellReadinessSummary -> ShowS
Prelude.Show, forall x. Rep GetCellReadinessSummary x -> GetCellReadinessSummary
forall x. GetCellReadinessSummary -> Rep GetCellReadinessSummary x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetCellReadinessSummary x -> GetCellReadinessSummary
$cfrom :: forall x. GetCellReadinessSummary -> Rep GetCellReadinessSummary x
Prelude.Generic)
newGetCellReadinessSummary ::
Prelude.Text ->
GetCellReadinessSummary
newGetCellReadinessSummary :: Text -> GetCellReadinessSummary
newGetCellReadinessSummary Text
pCellName_ =
GetCellReadinessSummary'
{ $sel:maxResults:GetCellReadinessSummary' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetCellReadinessSummary' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:cellName:GetCellReadinessSummary' :: Text
cellName = Text
pCellName_
}
getCellReadinessSummary_maxResults :: Lens.Lens' GetCellReadinessSummary (Prelude.Maybe Prelude.Natural)
getCellReadinessSummary_maxResults :: Lens' GetCellReadinessSummary (Maybe Natural)
getCellReadinessSummary_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCellReadinessSummary' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: GetCellReadinessSummary
s@GetCellReadinessSummary' {} Maybe Natural
a -> GetCellReadinessSummary
s {$sel:maxResults:GetCellReadinessSummary' :: Maybe Natural
maxResults = Maybe Natural
a} :: GetCellReadinessSummary)
getCellReadinessSummary_nextToken :: Lens.Lens' GetCellReadinessSummary (Prelude.Maybe Prelude.Text)
getCellReadinessSummary_nextToken :: Lens' GetCellReadinessSummary (Maybe Text)
getCellReadinessSummary_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCellReadinessSummary' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetCellReadinessSummary
s@GetCellReadinessSummary' {} Maybe Text
a -> GetCellReadinessSummary
s {$sel:nextToken:GetCellReadinessSummary' :: Maybe Text
nextToken = Maybe Text
a} :: GetCellReadinessSummary)
getCellReadinessSummary_cellName :: Lens.Lens' GetCellReadinessSummary Prelude.Text
getCellReadinessSummary_cellName :: Lens' GetCellReadinessSummary Text
getCellReadinessSummary_cellName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCellReadinessSummary' {Text
cellName :: Text
$sel:cellName:GetCellReadinessSummary' :: GetCellReadinessSummary -> Text
cellName} -> Text
cellName) (\s :: GetCellReadinessSummary
s@GetCellReadinessSummary' {} Text
a -> GetCellReadinessSummary
s {$sel:cellName:GetCellReadinessSummary' :: Text
cellName = Text
a} :: GetCellReadinessSummary)
instance Core.AWSPager GetCellReadinessSummary where
page :: GetCellReadinessSummary
-> AWSResponse GetCellReadinessSummary
-> Maybe GetCellReadinessSummary
page GetCellReadinessSummary
rq AWSResponse GetCellReadinessSummary
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse GetCellReadinessSummary
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetCellReadinessSummaryResponse (Maybe Text)
getCellReadinessSummaryResponse_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 GetCellReadinessSummary
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
GetCellReadinessSummaryResponse (Maybe [ReadinessCheckSummary])
getCellReadinessSummaryResponse_readinessChecks
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.$ GetCellReadinessSummary
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' GetCellReadinessSummary (Maybe Text)
getCellReadinessSummary_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse GetCellReadinessSummary
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetCellReadinessSummaryResponse (Maybe Text)
getCellReadinessSummaryResponse_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 GetCellReadinessSummary where
type
AWSResponse GetCellReadinessSummary =
GetCellReadinessSummaryResponse
request :: (Service -> Service)
-> GetCellReadinessSummary -> Request GetCellReadinessSummary
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetCellReadinessSummary
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetCellReadinessSummary)))
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 Readiness
-> Maybe [ReadinessCheckSummary]
-> Int
-> GetCellReadinessSummaryResponse
GetCellReadinessSummaryResponse'
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
"readiness")
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
"readinessChecks"
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 GetCellReadinessSummary where
hashWithSalt :: Int -> GetCellReadinessSummary -> Int
hashWithSalt Int
_salt GetCellReadinessSummary' {Maybe Natural
Maybe Text
Text
cellName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:cellName:GetCellReadinessSummary' :: GetCellReadinessSummary -> Text
$sel:nextToken:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Text
$sel:maxResults:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Natural
..} =
Int
_salt
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` Text
cellName
instance Prelude.NFData GetCellReadinessSummary where
rnf :: GetCellReadinessSummary -> ()
rnf GetCellReadinessSummary' {Maybe Natural
Maybe Text
Text
cellName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:cellName:GetCellReadinessSummary' :: GetCellReadinessSummary -> Text
$sel:nextToken:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Text
$sel:maxResults:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Natural
..} =
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 Text
cellName
instance Data.ToHeaders GetCellReadinessSummary where
toHeaders :: GetCellReadinessSummary -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath GetCellReadinessSummary where
toPath :: GetCellReadinessSummary -> ByteString
toPath GetCellReadinessSummary' {Maybe Natural
Maybe Text
Text
cellName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:cellName:GetCellReadinessSummary' :: GetCellReadinessSummary -> Text
$sel:nextToken:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Text
$sel:maxResults:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/cellreadiness/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
cellName]
instance Data.ToQuery GetCellReadinessSummary where
toQuery :: GetCellReadinessSummary -> QueryString
toQuery GetCellReadinessSummary' {Maybe Natural
Maybe Text
Text
cellName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:cellName:GetCellReadinessSummary' :: GetCellReadinessSummary -> Text
$sel:nextToken:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Text
$sel:maxResults:GetCellReadinessSummary' :: GetCellReadinessSummary -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data GetCellReadinessSummaryResponse = GetCellReadinessSummaryResponse'
{
GetCellReadinessSummaryResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetCellReadinessSummaryResponse -> Maybe Readiness
readiness :: Prelude.Maybe Readiness,
GetCellReadinessSummaryResponse -> Maybe [ReadinessCheckSummary]
readinessChecks :: Prelude.Maybe [ReadinessCheckSummary],
GetCellReadinessSummaryResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetCellReadinessSummaryResponse
-> GetCellReadinessSummaryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetCellReadinessSummaryResponse
-> GetCellReadinessSummaryResponse -> Bool
$c/= :: GetCellReadinessSummaryResponse
-> GetCellReadinessSummaryResponse -> Bool
== :: GetCellReadinessSummaryResponse
-> GetCellReadinessSummaryResponse -> Bool
$c== :: GetCellReadinessSummaryResponse
-> GetCellReadinessSummaryResponse -> Bool
Prelude.Eq, ReadPrec [GetCellReadinessSummaryResponse]
ReadPrec GetCellReadinessSummaryResponse
Int -> ReadS GetCellReadinessSummaryResponse
ReadS [GetCellReadinessSummaryResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetCellReadinessSummaryResponse]
$creadListPrec :: ReadPrec [GetCellReadinessSummaryResponse]
readPrec :: ReadPrec GetCellReadinessSummaryResponse
$creadPrec :: ReadPrec GetCellReadinessSummaryResponse
readList :: ReadS [GetCellReadinessSummaryResponse]
$creadList :: ReadS [GetCellReadinessSummaryResponse]
readsPrec :: Int -> ReadS GetCellReadinessSummaryResponse
$creadsPrec :: Int -> ReadS GetCellReadinessSummaryResponse
Prelude.Read, Int -> GetCellReadinessSummaryResponse -> ShowS
[GetCellReadinessSummaryResponse] -> ShowS
GetCellReadinessSummaryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetCellReadinessSummaryResponse] -> ShowS
$cshowList :: [GetCellReadinessSummaryResponse] -> ShowS
show :: GetCellReadinessSummaryResponse -> String
$cshow :: GetCellReadinessSummaryResponse -> String
showsPrec :: Int -> GetCellReadinessSummaryResponse -> ShowS
$cshowsPrec :: Int -> GetCellReadinessSummaryResponse -> ShowS
Prelude.Show, forall x.
Rep GetCellReadinessSummaryResponse x
-> GetCellReadinessSummaryResponse
forall x.
GetCellReadinessSummaryResponse
-> Rep GetCellReadinessSummaryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetCellReadinessSummaryResponse x
-> GetCellReadinessSummaryResponse
$cfrom :: forall x.
GetCellReadinessSummaryResponse
-> Rep GetCellReadinessSummaryResponse x
Prelude.Generic)
newGetCellReadinessSummaryResponse ::
Prelude.Int ->
GetCellReadinessSummaryResponse
newGetCellReadinessSummaryResponse :: Int -> GetCellReadinessSummaryResponse
newGetCellReadinessSummaryResponse Int
pHttpStatus_ =
GetCellReadinessSummaryResponse'
{ $sel:nextToken:GetCellReadinessSummaryResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:readiness:GetCellReadinessSummaryResponse' :: Maybe Readiness
readiness = forall a. Maybe a
Prelude.Nothing,
$sel:readinessChecks:GetCellReadinessSummaryResponse' :: Maybe [ReadinessCheckSummary]
readinessChecks = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetCellReadinessSummaryResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getCellReadinessSummaryResponse_nextToken :: Lens.Lens' GetCellReadinessSummaryResponse (Prelude.Maybe Prelude.Text)
getCellReadinessSummaryResponse_nextToken :: Lens' GetCellReadinessSummaryResponse (Maybe Text)
getCellReadinessSummaryResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCellReadinessSummaryResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetCellReadinessSummaryResponse' :: GetCellReadinessSummaryResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetCellReadinessSummaryResponse
s@GetCellReadinessSummaryResponse' {} Maybe Text
a -> GetCellReadinessSummaryResponse
s {$sel:nextToken:GetCellReadinessSummaryResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetCellReadinessSummaryResponse)
getCellReadinessSummaryResponse_readiness :: Lens.Lens' GetCellReadinessSummaryResponse (Prelude.Maybe Readiness)
getCellReadinessSummaryResponse_readiness :: Lens' GetCellReadinessSummaryResponse (Maybe Readiness)
getCellReadinessSummaryResponse_readiness = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCellReadinessSummaryResponse' {Maybe Readiness
readiness :: Maybe Readiness
$sel:readiness:GetCellReadinessSummaryResponse' :: GetCellReadinessSummaryResponse -> Maybe Readiness
readiness} -> Maybe Readiness
readiness) (\s :: GetCellReadinessSummaryResponse
s@GetCellReadinessSummaryResponse' {} Maybe Readiness
a -> GetCellReadinessSummaryResponse
s {$sel:readiness:GetCellReadinessSummaryResponse' :: Maybe Readiness
readiness = Maybe Readiness
a} :: GetCellReadinessSummaryResponse)
getCellReadinessSummaryResponse_readinessChecks :: Lens.Lens' GetCellReadinessSummaryResponse (Prelude.Maybe [ReadinessCheckSummary])
getCellReadinessSummaryResponse_readinessChecks :: Lens'
GetCellReadinessSummaryResponse (Maybe [ReadinessCheckSummary])
getCellReadinessSummaryResponse_readinessChecks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCellReadinessSummaryResponse' {Maybe [ReadinessCheckSummary]
readinessChecks :: Maybe [ReadinessCheckSummary]
$sel:readinessChecks:GetCellReadinessSummaryResponse' :: GetCellReadinessSummaryResponse -> Maybe [ReadinessCheckSummary]
readinessChecks} -> Maybe [ReadinessCheckSummary]
readinessChecks) (\s :: GetCellReadinessSummaryResponse
s@GetCellReadinessSummaryResponse' {} Maybe [ReadinessCheckSummary]
a -> GetCellReadinessSummaryResponse
s {$sel:readinessChecks:GetCellReadinessSummaryResponse' :: Maybe [ReadinessCheckSummary]
readinessChecks = Maybe [ReadinessCheckSummary]
a} :: GetCellReadinessSummaryResponse) 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
getCellReadinessSummaryResponse_httpStatus :: Lens.Lens' GetCellReadinessSummaryResponse Prelude.Int
getCellReadinessSummaryResponse_httpStatus :: Lens' GetCellReadinessSummaryResponse Int
getCellReadinessSummaryResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCellReadinessSummaryResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetCellReadinessSummaryResponse' :: GetCellReadinessSummaryResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetCellReadinessSummaryResponse
s@GetCellReadinessSummaryResponse' {} Int
a -> GetCellReadinessSummaryResponse
s {$sel:httpStatus:GetCellReadinessSummaryResponse' :: Int
httpStatus = Int
a} :: GetCellReadinessSummaryResponse)
instance
Prelude.NFData
GetCellReadinessSummaryResponse
where
rnf :: GetCellReadinessSummaryResponse -> ()
rnf GetCellReadinessSummaryResponse' {Int
Maybe [ReadinessCheckSummary]
Maybe Text
Maybe Readiness
httpStatus :: Int
readinessChecks :: Maybe [ReadinessCheckSummary]
readiness :: Maybe Readiness
nextToken :: Maybe Text
$sel:httpStatus:GetCellReadinessSummaryResponse' :: GetCellReadinessSummaryResponse -> Int
$sel:readinessChecks:GetCellReadinessSummaryResponse' :: GetCellReadinessSummaryResponse -> Maybe [ReadinessCheckSummary]
$sel:readiness:GetCellReadinessSummaryResponse' :: GetCellReadinessSummaryResponse -> Maybe Readiness
$sel:nextToken:GetCellReadinessSummaryResponse' :: GetCellReadinessSummaryResponse -> 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 Readiness
readiness
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ReadinessCheckSummary]
readinessChecks
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus