{-# 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.ListCheckDetails
(
ListCheckDetails (..),
newListCheckDetails,
listCheckDetails_maxResults,
listCheckDetails_nextToken,
listCheckDetails_workloadId,
listCheckDetails_lensArn,
listCheckDetails_pillarId,
listCheckDetails_questionId,
listCheckDetails_choiceId,
ListCheckDetailsResponse (..),
newListCheckDetailsResponse,
listCheckDetailsResponse_checkDetails,
listCheckDetailsResponse_nextToken,
listCheckDetailsResponse_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 ListCheckDetails = ListCheckDetails'
{ ListCheckDetails -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListCheckDetails -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListCheckDetails -> Text
workloadId :: Prelude.Text,
ListCheckDetails -> Text
lensArn :: Prelude.Text,
ListCheckDetails -> Text
pillarId :: Prelude.Text,
ListCheckDetails -> Text
questionId :: Prelude.Text,
ListCheckDetails -> Text
choiceId :: Prelude.Text
}
deriving (ListCheckDetails -> ListCheckDetails -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListCheckDetails -> ListCheckDetails -> Bool
$c/= :: ListCheckDetails -> ListCheckDetails -> Bool
== :: ListCheckDetails -> ListCheckDetails -> Bool
$c== :: ListCheckDetails -> ListCheckDetails -> Bool
Prelude.Eq, ReadPrec [ListCheckDetails]
ReadPrec ListCheckDetails
Int -> ReadS ListCheckDetails
ReadS [ListCheckDetails]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListCheckDetails]
$creadListPrec :: ReadPrec [ListCheckDetails]
readPrec :: ReadPrec ListCheckDetails
$creadPrec :: ReadPrec ListCheckDetails
readList :: ReadS [ListCheckDetails]
$creadList :: ReadS [ListCheckDetails]
readsPrec :: Int -> ReadS ListCheckDetails
$creadsPrec :: Int -> ReadS ListCheckDetails
Prelude.Read, Int -> ListCheckDetails -> ShowS
[ListCheckDetails] -> ShowS
ListCheckDetails -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListCheckDetails] -> ShowS
$cshowList :: [ListCheckDetails] -> ShowS
show :: ListCheckDetails -> String
$cshow :: ListCheckDetails -> String
showsPrec :: Int -> ListCheckDetails -> ShowS
$cshowsPrec :: Int -> ListCheckDetails -> ShowS
Prelude.Show, forall x. Rep ListCheckDetails x -> ListCheckDetails
forall x. ListCheckDetails -> Rep ListCheckDetails x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListCheckDetails x -> ListCheckDetails
$cfrom :: forall x. ListCheckDetails -> Rep ListCheckDetails x
Prelude.Generic)
newListCheckDetails ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
ListCheckDetails
newListCheckDetails :: Text -> Text -> Text -> Text -> Text -> ListCheckDetails
newListCheckDetails
Text
pWorkloadId_
Text
pLensArn_
Text
pPillarId_
Text
pQuestionId_
Text
pChoiceId_ =
ListCheckDetails'
{ $sel:maxResults:ListCheckDetails' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListCheckDetails' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:workloadId:ListCheckDetails' :: Text
workloadId = Text
pWorkloadId_,
$sel:lensArn:ListCheckDetails' :: Text
lensArn = Text
pLensArn_,
$sel:pillarId:ListCheckDetails' :: Text
pillarId = Text
pPillarId_,
$sel:questionId:ListCheckDetails' :: Text
questionId = Text
pQuestionId_,
$sel:choiceId:ListCheckDetails' :: Text
choiceId = Text
pChoiceId_
}
listCheckDetails_maxResults :: Lens.Lens' ListCheckDetails (Prelude.Maybe Prelude.Natural)
listCheckDetails_maxResults :: Lens' ListCheckDetails (Maybe Natural)
listCheckDetails_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetails' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListCheckDetails' :: ListCheckDetails -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListCheckDetails
s@ListCheckDetails' {} Maybe Natural
a -> ListCheckDetails
s {$sel:maxResults:ListCheckDetails' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListCheckDetails)
listCheckDetails_nextToken :: Lens.Lens' ListCheckDetails (Prelude.Maybe Prelude.Text)
listCheckDetails_nextToken :: Lens' ListCheckDetails (Maybe Text)
listCheckDetails_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetails' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListCheckDetails' :: ListCheckDetails -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListCheckDetails
s@ListCheckDetails' {} Maybe Text
a -> ListCheckDetails
s {$sel:nextToken:ListCheckDetails' :: Maybe Text
nextToken = Maybe Text
a} :: ListCheckDetails)
listCheckDetails_workloadId :: Lens.Lens' ListCheckDetails Prelude.Text
listCheckDetails_workloadId :: Lens' ListCheckDetails Text
listCheckDetails_workloadId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetails' {Text
workloadId :: Text
$sel:workloadId:ListCheckDetails' :: ListCheckDetails -> Text
workloadId} -> Text
workloadId) (\s :: ListCheckDetails
s@ListCheckDetails' {} Text
a -> ListCheckDetails
s {$sel:workloadId:ListCheckDetails' :: Text
workloadId = Text
a} :: ListCheckDetails)
listCheckDetails_lensArn :: Lens.Lens' ListCheckDetails Prelude.Text
listCheckDetails_lensArn :: Lens' ListCheckDetails Text
listCheckDetails_lensArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetails' {Text
lensArn :: Text
$sel:lensArn:ListCheckDetails' :: ListCheckDetails -> Text
lensArn} -> Text
lensArn) (\s :: ListCheckDetails
s@ListCheckDetails' {} Text
a -> ListCheckDetails
s {$sel:lensArn:ListCheckDetails' :: Text
lensArn = Text
a} :: ListCheckDetails)
listCheckDetails_pillarId :: Lens.Lens' ListCheckDetails Prelude.Text
listCheckDetails_pillarId :: Lens' ListCheckDetails Text
listCheckDetails_pillarId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetails' {Text
pillarId :: Text
$sel:pillarId:ListCheckDetails' :: ListCheckDetails -> Text
pillarId} -> Text
pillarId) (\s :: ListCheckDetails
s@ListCheckDetails' {} Text
a -> ListCheckDetails
s {$sel:pillarId:ListCheckDetails' :: Text
pillarId = Text
a} :: ListCheckDetails)
listCheckDetails_questionId :: Lens.Lens' ListCheckDetails Prelude.Text
listCheckDetails_questionId :: Lens' ListCheckDetails Text
listCheckDetails_questionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetails' {Text
questionId :: Text
$sel:questionId:ListCheckDetails' :: ListCheckDetails -> Text
questionId} -> Text
questionId) (\s :: ListCheckDetails
s@ListCheckDetails' {} Text
a -> ListCheckDetails
s {$sel:questionId:ListCheckDetails' :: Text
questionId = Text
a} :: ListCheckDetails)
listCheckDetails_choiceId :: Lens.Lens' ListCheckDetails Prelude.Text
listCheckDetails_choiceId :: Lens' ListCheckDetails Text
listCheckDetails_choiceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetails' {Text
choiceId :: Text
$sel:choiceId:ListCheckDetails' :: ListCheckDetails -> Text
choiceId} -> Text
choiceId) (\s :: ListCheckDetails
s@ListCheckDetails' {} Text
a -> ListCheckDetails
s {$sel:choiceId:ListCheckDetails' :: Text
choiceId = Text
a} :: ListCheckDetails)
instance Core.AWSRequest ListCheckDetails where
type
AWSResponse ListCheckDetails =
ListCheckDetailsResponse
request :: (Service -> Service)
-> ListCheckDetails -> Request ListCheckDetails
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 ListCheckDetails
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListCheckDetails)))
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 [CheckDetail]
-> Maybe Text -> Int -> ListCheckDetailsResponse
ListCheckDetailsResponse'
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
"CheckDetails" 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 ListCheckDetails where
hashWithSalt :: Int -> ListCheckDetails -> Int
hashWithSalt Int
_salt ListCheckDetails' {Maybe Natural
Maybe Text
Text
choiceId :: Text
questionId :: Text
pillarId :: Text
lensArn :: Text
workloadId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:choiceId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:questionId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:pillarId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:lensArn:ListCheckDetails' :: ListCheckDetails -> Text
$sel:workloadId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:nextToken:ListCheckDetails' :: ListCheckDetails -> Maybe Text
$sel:maxResults:ListCheckDetails' :: ListCheckDetails -> 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 ListCheckDetails where
rnf :: ListCheckDetails -> ()
rnf ListCheckDetails' {Maybe Natural
Maybe Text
Text
choiceId :: Text
questionId :: Text
pillarId :: Text
lensArn :: Text
workloadId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:choiceId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:questionId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:pillarId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:lensArn:ListCheckDetails' :: ListCheckDetails -> Text
$sel:workloadId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:nextToken:ListCheckDetails' :: ListCheckDetails -> Maybe Text
$sel:maxResults:ListCheckDetails' :: ListCheckDetails -> 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 ListCheckDetails where
toHeaders :: ListCheckDetails -> 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 ListCheckDetails where
toJSON :: ListCheckDetails -> Value
toJSON ListCheckDetails' {Maybe Natural
Maybe Text
Text
choiceId :: Text
questionId :: Text
pillarId :: Text
lensArn :: Text
workloadId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:choiceId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:questionId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:pillarId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:lensArn:ListCheckDetails' :: ListCheckDetails -> Text
$sel:workloadId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:nextToken:ListCheckDetails' :: ListCheckDetails -> Maybe Text
$sel:maxResults:ListCheckDetails' :: ListCheckDetails -> 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 ListCheckDetails where
toPath :: ListCheckDetails -> ByteString
toPath ListCheckDetails' {Maybe Natural
Maybe Text
Text
choiceId :: Text
questionId :: Text
pillarId :: Text
lensArn :: Text
workloadId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:choiceId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:questionId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:pillarId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:lensArn:ListCheckDetails' :: ListCheckDetails -> Text
$sel:workloadId:ListCheckDetails' :: ListCheckDetails -> Text
$sel:nextToken:ListCheckDetails' :: ListCheckDetails -> Maybe Text
$sel:maxResults:ListCheckDetails' :: ListCheckDetails -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/workloads/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
workloadId, ByteString
"/checks"]
instance Data.ToQuery ListCheckDetails where
toQuery :: ListCheckDetails -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListCheckDetailsResponse = ListCheckDetailsResponse'
{
ListCheckDetailsResponse -> Maybe [CheckDetail]
checkDetails :: Prelude.Maybe [CheckDetail],
ListCheckDetailsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListCheckDetailsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListCheckDetailsResponse -> ListCheckDetailsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListCheckDetailsResponse -> ListCheckDetailsResponse -> Bool
$c/= :: ListCheckDetailsResponse -> ListCheckDetailsResponse -> Bool
== :: ListCheckDetailsResponse -> ListCheckDetailsResponse -> Bool
$c== :: ListCheckDetailsResponse -> ListCheckDetailsResponse -> Bool
Prelude.Eq, ReadPrec [ListCheckDetailsResponse]
ReadPrec ListCheckDetailsResponse
Int -> ReadS ListCheckDetailsResponse
ReadS [ListCheckDetailsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListCheckDetailsResponse]
$creadListPrec :: ReadPrec [ListCheckDetailsResponse]
readPrec :: ReadPrec ListCheckDetailsResponse
$creadPrec :: ReadPrec ListCheckDetailsResponse
readList :: ReadS [ListCheckDetailsResponse]
$creadList :: ReadS [ListCheckDetailsResponse]
readsPrec :: Int -> ReadS ListCheckDetailsResponse
$creadsPrec :: Int -> ReadS ListCheckDetailsResponse
Prelude.Read, Int -> ListCheckDetailsResponse -> ShowS
[ListCheckDetailsResponse] -> ShowS
ListCheckDetailsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListCheckDetailsResponse] -> ShowS
$cshowList :: [ListCheckDetailsResponse] -> ShowS
show :: ListCheckDetailsResponse -> String
$cshow :: ListCheckDetailsResponse -> String
showsPrec :: Int -> ListCheckDetailsResponse -> ShowS
$cshowsPrec :: Int -> ListCheckDetailsResponse -> ShowS
Prelude.Show, forall x.
Rep ListCheckDetailsResponse x -> ListCheckDetailsResponse
forall x.
ListCheckDetailsResponse -> Rep ListCheckDetailsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListCheckDetailsResponse x -> ListCheckDetailsResponse
$cfrom :: forall x.
ListCheckDetailsResponse -> Rep ListCheckDetailsResponse x
Prelude.Generic)
newListCheckDetailsResponse ::
Prelude.Int ->
ListCheckDetailsResponse
newListCheckDetailsResponse :: Int -> ListCheckDetailsResponse
newListCheckDetailsResponse Int
pHttpStatus_ =
ListCheckDetailsResponse'
{ $sel:checkDetails:ListCheckDetailsResponse' :: Maybe [CheckDetail]
checkDetails =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListCheckDetailsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListCheckDetailsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listCheckDetailsResponse_checkDetails :: Lens.Lens' ListCheckDetailsResponse (Prelude.Maybe [CheckDetail])
listCheckDetailsResponse_checkDetails :: Lens' ListCheckDetailsResponse (Maybe [CheckDetail])
listCheckDetailsResponse_checkDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetailsResponse' {Maybe [CheckDetail]
checkDetails :: Maybe [CheckDetail]
$sel:checkDetails:ListCheckDetailsResponse' :: ListCheckDetailsResponse -> Maybe [CheckDetail]
checkDetails} -> Maybe [CheckDetail]
checkDetails) (\s :: ListCheckDetailsResponse
s@ListCheckDetailsResponse' {} Maybe [CheckDetail]
a -> ListCheckDetailsResponse
s {$sel:checkDetails:ListCheckDetailsResponse' :: Maybe [CheckDetail]
checkDetails = Maybe [CheckDetail]
a} :: ListCheckDetailsResponse) 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
listCheckDetailsResponse_nextToken :: Lens.Lens' ListCheckDetailsResponse (Prelude.Maybe Prelude.Text)
listCheckDetailsResponse_nextToken :: Lens' ListCheckDetailsResponse (Maybe Text)
listCheckDetailsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetailsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListCheckDetailsResponse' :: ListCheckDetailsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListCheckDetailsResponse
s@ListCheckDetailsResponse' {} Maybe Text
a -> ListCheckDetailsResponse
s {$sel:nextToken:ListCheckDetailsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListCheckDetailsResponse)
listCheckDetailsResponse_httpStatus :: Lens.Lens' ListCheckDetailsResponse Prelude.Int
listCheckDetailsResponse_httpStatus :: Lens' ListCheckDetailsResponse Int
listCheckDetailsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCheckDetailsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListCheckDetailsResponse' :: ListCheckDetailsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListCheckDetailsResponse
s@ListCheckDetailsResponse' {} Int
a -> ListCheckDetailsResponse
s {$sel:httpStatus:ListCheckDetailsResponse' :: Int
httpStatus = Int
a} :: ListCheckDetailsResponse)
instance Prelude.NFData ListCheckDetailsResponse where
rnf :: ListCheckDetailsResponse -> ()
rnf ListCheckDetailsResponse' {Int
Maybe [CheckDetail]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
checkDetails :: Maybe [CheckDetail]
$sel:httpStatus:ListCheckDetailsResponse' :: ListCheckDetailsResponse -> Int
$sel:nextToken:ListCheckDetailsResponse' :: ListCheckDetailsResponse -> Maybe Text
$sel:checkDetails:ListCheckDetailsResponse' :: ListCheckDetailsResponse -> Maybe [CheckDetail]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [CheckDetail]
checkDetails
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