{-# 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.WellArchitected.ListCheckSummaries
(
ListCheckSummaries (..),
newListCheckSummaries,
listCheckSummaries_maxResults,
listCheckSummaries_nextToken,
listCheckSummaries_workloadId,
listCheckSummaries_lensArn,
listCheckSummaries_pillarId,
listCheckSummaries_questionId,
listCheckSummaries_choiceId,
ListCheckSummariesResponse (..),
newListCheckSummariesResponse,
listCheckSummariesResponse_checkSummaries,
listCheckSummariesResponse_nextToken,
listCheckSummariesResponse_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.WellArchitected.Types
data ListCheckSummaries = ListCheckSummaries'
{ ListCheckSummaries -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListCheckSummaries -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListCheckSummaries -> Text
workloadId :: Prelude.Text,
ListCheckSummaries -> Text
lensArn :: Prelude.Text,
ListCheckSummaries -> Text
pillarId :: Prelude.Text,
ListCheckSummaries -> Text
questionId :: Prelude.Text,
ListCheckSummaries -> Text
choiceId :: Prelude.Text
}
deriving (ListCheckSummaries -> ListCheckSummaries -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListCheckSummaries -> ListCheckSummaries -> Bool
$c/= :: ListCheckSummaries -> ListCheckSummaries -> Bool
== :: ListCheckSummaries -> ListCheckSummaries -> Bool
$c== :: ListCheckSummaries -> ListCheckSummaries -> Bool
Prelude.Eq, ReadPrec [ListCheckSummaries]
ReadPrec ListCheckSummaries
Int -> ReadS ListCheckSummaries
ReadS [ListCheckSummaries]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListCheckSummaries]
$creadListPrec :: ReadPrec [ListCheckSummaries]
readPrec :: ReadPrec ListCheckSummaries
$creadPrec :: ReadPrec ListCheckSummaries
readList :: ReadS [ListCheckSummaries]
$creadList :: ReadS [ListCheckSummaries]
readsPrec :: Int -> ReadS ListCheckSummaries
$creadsPrec :: Int -> ReadS ListCheckSummaries
Prelude.Read, Int -> ListCheckSummaries -> ShowS
[ListCheckSummaries] -> ShowS
ListCheckSummaries -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListCheckSummaries] -> ShowS
$cshowList :: [ListCheckSummaries] -> ShowS
show :: ListCheckSummaries -> String
$cshow :: ListCheckSummaries -> String
showsPrec :: Int -> ListCheckSummaries -> ShowS
$cshowsPrec :: Int -> ListCheckSummaries -> ShowS
Prelude.Show, forall x. Rep ListCheckSummaries x -> ListCheckSummaries
forall x. ListCheckSummaries -> Rep ListCheckSummaries x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListCheckSummaries x -> ListCheckSummaries
$cfrom :: forall x. ListCheckSummaries -> Rep ListCheckSummaries x
Prelude.Generic)
newListCheckSummaries ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
ListCheckSummaries
newListCheckSummaries :: Text -> Text -> Text -> Text -> Text -> ListCheckSummaries
newListCheckSummaries
Text
pWorkloadId_
Text
pLensArn_
Text
pPillarId_
Text
pQuestionId_
Text
pChoiceId_ =
ListCheckSummaries'
{ $sel:maxResults:ListCheckSummaries' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListCheckSummaries' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:workloadId:ListCheckSummaries' :: Text
workloadId = Text
pWorkloadId_,
$sel:lensArn:ListCheckSummaries' :: Text
lensArn = Text
pLensArn_,
$sel:pillarId:ListCheckSummaries' :: Text
pillarId = Text
pPillarId_,
$sel:questionId:ListCheckSummaries' :: Text
questionId = Text
pQuestionId_,
$sel:choiceId:ListCheckSummaries' :: Text
choiceId = Text
pChoiceId_
}
listCheckSummaries_maxResults :: Lens.Lens' ListCheckSummaries (Prelude.Maybe Prelude.Natural)
listCheckSummaries_maxResults :: Lens' ListCheckSummaries (Maybe Natural)
listCheckSummaries_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummaries' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListCheckSummaries' :: ListCheckSummaries -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListCheckSummaries
s@ListCheckSummaries' {} Maybe Natural
a -> ListCheckSummaries
s {$sel:maxResults:ListCheckSummaries' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListCheckSummaries)
listCheckSummaries_nextToken :: Lens.Lens' ListCheckSummaries (Prelude.Maybe Prelude.Text)
listCheckSummaries_nextToken :: Lens' ListCheckSummaries (Maybe Text)
listCheckSummaries_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummaries' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListCheckSummaries' :: ListCheckSummaries -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListCheckSummaries
s@ListCheckSummaries' {} Maybe Text
a -> ListCheckSummaries
s {$sel:nextToken:ListCheckSummaries' :: Maybe Text
nextToken = Maybe Text
a} :: ListCheckSummaries)
listCheckSummaries_workloadId :: Lens.Lens' ListCheckSummaries Prelude.Text
listCheckSummaries_workloadId :: Lens' ListCheckSummaries Text
listCheckSummaries_workloadId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummaries' {Text
workloadId :: Text
$sel:workloadId:ListCheckSummaries' :: ListCheckSummaries -> Text
workloadId} -> Text
workloadId) (\s :: ListCheckSummaries
s@ListCheckSummaries' {} Text
a -> ListCheckSummaries
s {$sel:workloadId:ListCheckSummaries' :: Text
workloadId = Text
a} :: ListCheckSummaries)
listCheckSummaries_lensArn :: Lens.Lens' ListCheckSummaries Prelude.Text
listCheckSummaries_lensArn :: Lens' ListCheckSummaries Text
listCheckSummaries_lensArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummaries' {Text
lensArn :: Text
$sel:lensArn:ListCheckSummaries' :: ListCheckSummaries -> Text
lensArn} -> Text
lensArn) (\s :: ListCheckSummaries
s@ListCheckSummaries' {} Text
a -> ListCheckSummaries
s {$sel:lensArn:ListCheckSummaries' :: Text
lensArn = Text
a} :: ListCheckSummaries)
listCheckSummaries_pillarId :: Lens.Lens' ListCheckSummaries Prelude.Text
listCheckSummaries_pillarId :: Lens' ListCheckSummaries Text
listCheckSummaries_pillarId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummaries' {Text
pillarId :: Text
$sel:pillarId:ListCheckSummaries' :: ListCheckSummaries -> Text
pillarId} -> Text
pillarId) (\s :: ListCheckSummaries
s@ListCheckSummaries' {} Text
a -> ListCheckSummaries
s {$sel:pillarId:ListCheckSummaries' :: Text
pillarId = Text
a} :: ListCheckSummaries)
listCheckSummaries_questionId :: Lens.Lens' ListCheckSummaries Prelude.Text
listCheckSummaries_questionId :: Lens' ListCheckSummaries Text
listCheckSummaries_questionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummaries' {Text
questionId :: Text
$sel:questionId:ListCheckSummaries' :: ListCheckSummaries -> Text
questionId} -> Text
questionId) (\s :: ListCheckSummaries
s@ListCheckSummaries' {} Text
a -> ListCheckSummaries
s {$sel:questionId:ListCheckSummaries' :: Text
questionId = Text
a} :: ListCheckSummaries)
listCheckSummaries_choiceId :: Lens.Lens' ListCheckSummaries Prelude.Text
listCheckSummaries_choiceId :: Lens' ListCheckSummaries Text
listCheckSummaries_choiceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummaries' {Text
choiceId :: Text
$sel:choiceId:ListCheckSummaries' :: ListCheckSummaries -> Text
choiceId} -> Text
choiceId) (\s :: ListCheckSummaries
s@ListCheckSummaries' {} Text
a -> ListCheckSummaries
s {$sel:choiceId:ListCheckSummaries' :: Text
choiceId = Text
a} :: ListCheckSummaries)
instance Core.AWSRequest ListCheckSummaries where
type
AWSResponse ListCheckSummaries =
ListCheckSummariesResponse
request :: (Service -> Service)
-> ListCheckSummaries -> Request ListCheckSummaries
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 ListCheckSummaries
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListCheckSummaries)))
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 [CheckSummary]
-> Maybe Text -> Int -> ListCheckSummariesResponse
ListCheckSummariesResponse'
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
"CheckSummaries" 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 ListCheckSummaries where
hashWithSalt :: Int -> ListCheckSummaries -> Int
hashWithSalt Int
_salt ListCheckSummaries' {Maybe Natural
Maybe Text
Text
choiceId :: Text
questionId :: Text
pillarId :: Text
lensArn :: Text
workloadId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:choiceId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:questionId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:pillarId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:lensArn:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:workloadId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:nextToken:ListCheckSummaries' :: ListCheckSummaries -> Maybe Text
$sel:maxResults:ListCheckSummaries' :: ListCheckSummaries -> 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
workloadId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
lensArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
pillarId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
questionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
choiceId
instance Prelude.NFData ListCheckSummaries where
rnf :: ListCheckSummaries -> ()
rnf ListCheckSummaries' {Maybe Natural
Maybe Text
Text
choiceId :: Text
questionId :: Text
pillarId :: Text
lensArn :: Text
workloadId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:choiceId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:questionId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:pillarId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:lensArn:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:workloadId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:nextToken:ListCheckSummaries' :: ListCheckSummaries -> Maybe Text
$sel:maxResults:ListCheckSummaries' :: ListCheckSummaries -> 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
workloadId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
lensArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
pillarId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
questionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
choiceId
instance Data.ToHeaders ListCheckSummaries where
toHeaders :: ListCheckSummaries -> 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.ToJSON ListCheckSummaries where
toJSON :: ListCheckSummaries -> Value
toJSON ListCheckSummaries' {Maybe Natural
Maybe Text
Text
choiceId :: Text
questionId :: Text
pillarId :: Text
lensArn :: Text
workloadId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:choiceId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:questionId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:pillarId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:lensArn:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:workloadId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:nextToken:ListCheckSummaries' :: ListCheckSummaries -> Maybe Text
$sel:maxResults:ListCheckSummaries' :: ListCheckSummaries -> Maybe Natural
..} =
[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 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
"LensArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
lensArn),
forall a. a -> Maybe a
Prelude.Just (Key
"PillarId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
pillarId),
forall a. a -> Maybe a
Prelude.Just (Key
"QuestionId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
questionId),
forall a. a -> Maybe a
Prelude.Just (Key
"ChoiceId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
choiceId)
]
)
instance Data.ToPath ListCheckSummaries where
toPath :: ListCheckSummaries -> ByteString
toPath ListCheckSummaries' {Maybe Natural
Maybe Text
Text
choiceId :: Text
questionId :: Text
pillarId :: Text
lensArn :: Text
workloadId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:choiceId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:questionId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:pillarId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:lensArn:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:workloadId:ListCheckSummaries' :: ListCheckSummaries -> Text
$sel:nextToken:ListCheckSummaries' :: ListCheckSummaries -> Maybe Text
$sel:maxResults:ListCheckSummaries' :: ListCheckSummaries -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/workloads/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
workloadId,
ByteString
"/checkSummaries"
]
instance Data.ToQuery ListCheckSummaries where
toQuery :: ListCheckSummaries -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListCheckSummariesResponse = ListCheckSummariesResponse'
{
ListCheckSummariesResponse -> Maybe [CheckSummary]
checkSummaries :: Prelude.Maybe [CheckSummary],
ListCheckSummariesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListCheckSummariesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListCheckSummariesResponse -> ListCheckSummariesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListCheckSummariesResponse -> ListCheckSummariesResponse -> Bool
$c/= :: ListCheckSummariesResponse -> ListCheckSummariesResponse -> Bool
== :: ListCheckSummariesResponse -> ListCheckSummariesResponse -> Bool
$c== :: ListCheckSummariesResponse -> ListCheckSummariesResponse -> Bool
Prelude.Eq, ReadPrec [ListCheckSummariesResponse]
ReadPrec ListCheckSummariesResponse
Int -> ReadS ListCheckSummariesResponse
ReadS [ListCheckSummariesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListCheckSummariesResponse]
$creadListPrec :: ReadPrec [ListCheckSummariesResponse]
readPrec :: ReadPrec ListCheckSummariesResponse
$creadPrec :: ReadPrec ListCheckSummariesResponse
readList :: ReadS [ListCheckSummariesResponse]
$creadList :: ReadS [ListCheckSummariesResponse]
readsPrec :: Int -> ReadS ListCheckSummariesResponse
$creadsPrec :: Int -> ReadS ListCheckSummariesResponse
Prelude.Read, Int -> ListCheckSummariesResponse -> ShowS
[ListCheckSummariesResponse] -> ShowS
ListCheckSummariesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListCheckSummariesResponse] -> ShowS
$cshowList :: [ListCheckSummariesResponse] -> ShowS
show :: ListCheckSummariesResponse -> String
$cshow :: ListCheckSummariesResponse -> String
showsPrec :: Int -> ListCheckSummariesResponse -> ShowS
$cshowsPrec :: Int -> ListCheckSummariesResponse -> ShowS
Prelude.Show, forall x.
Rep ListCheckSummariesResponse x -> ListCheckSummariesResponse
forall x.
ListCheckSummariesResponse -> Rep ListCheckSummariesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListCheckSummariesResponse x -> ListCheckSummariesResponse
$cfrom :: forall x.
ListCheckSummariesResponse -> Rep ListCheckSummariesResponse x
Prelude.Generic)
newListCheckSummariesResponse ::
Prelude.Int ->
ListCheckSummariesResponse
newListCheckSummariesResponse :: Int -> ListCheckSummariesResponse
newListCheckSummariesResponse Int
pHttpStatus_ =
ListCheckSummariesResponse'
{ $sel:checkSummaries:ListCheckSummariesResponse' :: Maybe [CheckSummary]
checkSummaries =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListCheckSummariesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListCheckSummariesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listCheckSummariesResponse_checkSummaries :: Lens.Lens' ListCheckSummariesResponse (Prelude.Maybe [CheckSummary])
listCheckSummariesResponse_checkSummaries :: Lens' ListCheckSummariesResponse (Maybe [CheckSummary])
listCheckSummariesResponse_checkSummaries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummariesResponse' {Maybe [CheckSummary]
checkSummaries :: Maybe [CheckSummary]
$sel:checkSummaries:ListCheckSummariesResponse' :: ListCheckSummariesResponse -> Maybe [CheckSummary]
checkSummaries} -> Maybe [CheckSummary]
checkSummaries) (\s :: ListCheckSummariesResponse
s@ListCheckSummariesResponse' {} Maybe [CheckSummary]
a -> ListCheckSummariesResponse
s {$sel:checkSummaries:ListCheckSummariesResponse' :: Maybe [CheckSummary]
checkSummaries = Maybe [CheckSummary]
a} :: ListCheckSummariesResponse) 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
listCheckSummariesResponse_nextToken :: Lens.Lens' ListCheckSummariesResponse (Prelude.Maybe Prelude.Text)
listCheckSummariesResponse_nextToken :: Lens' ListCheckSummariesResponse (Maybe Text)
listCheckSummariesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummariesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListCheckSummariesResponse' :: ListCheckSummariesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListCheckSummariesResponse
s@ListCheckSummariesResponse' {} Maybe Text
a -> ListCheckSummariesResponse
s {$sel:nextToken:ListCheckSummariesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListCheckSummariesResponse)
listCheckSummariesResponse_httpStatus :: Lens.Lens' ListCheckSummariesResponse Prelude.Int
listCheckSummariesResponse_httpStatus :: Lens' ListCheckSummariesResponse Int
listCheckSummariesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckSummariesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListCheckSummariesResponse' :: ListCheckSummariesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListCheckSummariesResponse
s@ListCheckSummariesResponse' {} Int
a -> ListCheckSummariesResponse
s {$sel:httpStatus:ListCheckSummariesResponse' :: Int
httpStatus = Int
a} :: ListCheckSummariesResponse)
instance Prelude.NFData ListCheckSummariesResponse where
rnf :: ListCheckSummariesResponse -> ()
rnf ListCheckSummariesResponse' {Int
Maybe [CheckSummary]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
checkSummaries :: Maybe [CheckSummary]
$sel:httpStatus:ListCheckSummariesResponse' :: ListCheckSummariesResponse -> Int
$sel:nextToken:ListCheckSummariesResponse' :: ListCheckSummariesResponse -> Maybe Text
$sel:checkSummaries:ListCheckSummariesResponse' :: ListCheckSummariesResponse -> Maybe [CheckSummary]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [CheckSummary]
checkSummaries
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