{-# 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.CodeGuruReviewer.ListCodeReviews
(
ListCodeReviews (..),
newListCodeReviews,
listCodeReviews_maxResults,
listCodeReviews_nextToken,
listCodeReviews_providerTypes,
listCodeReviews_repositoryNames,
listCodeReviews_states,
listCodeReviews_type,
ListCodeReviewsResponse (..),
newListCodeReviewsResponse,
listCodeReviewsResponse_codeReviewSummaries,
listCodeReviewsResponse_nextToken,
listCodeReviewsResponse_httpStatus,
)
where
import Amazonka.CodeGuruReviewer.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 ListCodeReviews = ListCodeReviews'
{
ListCodeReviews -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListCodeReviews -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListCodeReviews -> Maybe (NonEmpty ProviderType)
providerTypes :: Prelude.Maybe (Prelude.NonEmpty ProviderType),
ListCodeReviews -> Maybe (NonEmpty Text)
repositoryNames :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
ListCodeReviews -> Maybe (NonEmpty JobState)
states :: Prelude.Maybe (Prelude.NonEmpty JobState),
ListCodeReviews -> Type
type' :: Type
}
deriving (ListCodeReviews -> ListCodeReviews -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListCodeReviews -> ListCodeReviews -> Bool
$c/= :: ListCodeReviews -> ListCodeReviews -> Bool
== :: ListCodeReviews -> ListCodeReviews -> Bool
$c== :: ListCodeReviews -> ListCodeReviews -> Bool
Prelude.Eq, ReadPrec [ListCodeReviews]
ReadPrec ListCodeReviews
Int -> ReadS ListCodeReviews
ReadS [ListCodeReviews]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListCodeReviews]
$creadListPrec :: ReadPrec [ListCodeReviews]
readPrec :: ReadPrec ListCodeReviews
$creadPrec :: ReadPrec ListCodeReviews
readList :: ReadS [ListCodeReviews]
$creadList :: ReadS [ListCodeReviews]
readsPrec :: Int -> ReadS ListCodeReviews
$creadsPrec :: Int -> ReadS ListCodeReviews
Prelude.Read, Int -> ListCodeReviews -> ShowS
[ListCodeReviews] -> ShowS
ListCodeReviews -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListCodeReviews] -> ShowS
$cshowList :: [ListCodeReviews] -> ShowS
show :: ListCodeReviews -> String
$cshow :: ListCodeReviews -> String
showsPrec :: Int -> ListCodeReviews -> ShowS
$cshowsPrec :: Int -> ListCodeReviews -> ShowS
Prelude.Show, forall x. Rep ListCodeReviews x -> ListCodeReviews
forall x. ListCodeReviews -> Rep ListCodeReviews x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListCodeReviews x -> ListCodeReviews
$cfrom :: forall x. ListCodeReviews -> Rep ListCodeReviews x
Prelude.Generic)
newListCodeReviews ::
Type ->
ListCodeReviews
newListCodeReviews :: Type -> ListCodeReviews
newListCodeReviews Type
pType_ =
ListCodeReviews'
{ $sel:maxResults:ListCodeReviews' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListCodeReviews' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:providerTypes:ListCodeReviews' :: Maybe (NonEmpty ProviderType)
providerTypes = forall a. Maybe a
Prelude.Nothing,
$sel:repositoryNames:ListCodeReviews' :: Maybe (NonEmpty Text)
repositoryNames = forall a. Maybe a
Prelude.Nothing,
$sel:states:ListCodeReviews' :: Maybe (NonEmpty JobState)
states = forall a. Maybe a
Prelude.Nothing,
$sel:type':ListCodeReviews' :: Type
type' = Type
pType_
}
listCodeReviews_maxResults :: Lens.Lens' ListCodeReviews (Prelude.Maybe Prelude.Natural)
listCodeReviews_maxResults :: Lens' ListCodeReviews (Maybe Natural)
listCodeReviews_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCodeReviews' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListCodeReviews' :: ListCodeReviews -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListCodeReviews
s@ListCodeReviews' {} Maybe Natural
a -> ListCodeReviews
s {$sel:maxResults:ListCodeReviews' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListCodeReviews)
listCodeReviews_nextToken :: Lens.Lens' ListCodeReviews (Prelude.Maybe Prelude.Text)
listCodeReviews_nextToken :: Lens' ListCodeReviews (Maybe Text)
listCodeReviews_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCodeReviews' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListCodeReviews' :: ListCodeReviews -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListCodeReviews
s@ListCodeReviews' {} Maybe Text
a -> ListCodeReviews
s {$sel:nextToken:ListCodeReviews' :: Maybe Text
nextToken = Maybe Text
a} :: ListCodeReviews)
listCodeReviews_providerTypes :: Lens.Lens' ListCodeReviews (Prelude.Maybe (Prelude.NonEmpty ProviderType))
listCodeReviews_providerTypes :: Lens' ListCodeReviews (Maybe (NonEmpty ProviderType))
listCodeReviews_providerTypes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCodeReviews' {Maybe (NonEmpty ProviderType)
providerTypes :: Maybe (NonEmpty ProviderType)
$sel:providerTypes:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty ProviderType)
providerTypes} -> Maybe (NonEmpty ProviderType)
providerTypes) (\s :: ListCodeReviews
s@ListCodeReviews' {} Maybe (NonEmpty ProviderType)
a -> ListCodeReviews
s {$sel:providerTypes:ListCodeReviews' :: Maybe (NonEmpty ProviderType)
providerTypes = Maybe (NonEmpty ProviderType)
a} :: ListCodeReviews) 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
listCodeReviews_repositoryNames :: Lens.Lens' ListCodeReviews (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))
listCodeReviews_repositoryNames :: Lens' ListCodeReviews (Maybe (NonEmpty Text))
listCodeReviews_repositoryNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCodeReviews' {Maybe (NonEmpty Text)
repositoryNames :: Maybe (NonEmpty Text)
$sel:repositoryNames:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty Text)
repositoryNames} -> Maybe (NonEmpty Text)
repositoryNames) (\s :: ListCodeReviews
s@ListCodeReviews' {} Maybe (NonEmpty Text)
a -> ListCodeReviews
s {$sel:repositoryNames:ListCodeReviews' :: Maybe (NonEmpty Text)
repositoryNames = Maybe (NonEmpty Text)
a} :: ListCodeReviews) 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
listCodeReviews_states :: Lens.Lens' ListCodeReviews (Prelude.Maybe (Prelude.NonEmpty JobState))
listCodeReviews_states :: Lens' ListCodeReviews (Maybe (NonEmpty JobState))
listCodeReviews_states = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCodeReviews' {Maybe (NonEmpty JobState)
states :: Maybe (NonEmpty JobState)
$sel:states:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty JobState)
states} -> Maybe (NonEmpty JobState)
states) (\s :: ListCodeReviews
s@ListCodeReviews' {} Maybe (NonEmpty JobState)
a -> ListCodeReviews
s {$sel:states:ListCodeReviews' :: Maybe (NonEmpty JobState)
states = Maybe (NonEmpty JobState)
a} :: ListCodeReviews) 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
listCodeReviews_type :: Lens.Lens' ListCodeReviews Type
listCodeReviews_type :: Lens' ListCodeReviews Type
listCodeReviews_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCodeReviews' {Type
type' :: Type
$sel:type':ListCodeReviews' :: ListCodeReviews -> Type
type'} -> Type
type') (\s :: ListCodeReviews
s@ListCodeReviews' {} Type
a -> ListCodeReviews
s {$sel:type':ListCodeReviews' :: Type
type' = Type
a} :: ListCodeReviews)
instance Core.AWSRequest ListCodeReviews where
type
AWSResponse ListCodeReviews =
ListCodeReviewsResponse
request :: (Service -> Service) -> ListCodeReviews -> Request ListCodeReviews
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 ListCodeReviews
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListCodeReviews)))
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 [CodeReviewSummary]
-> Maybe Text -> Int -> ListCodeReviewsResponse
ListCodeReviewsResponse'
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
"CodeReviewSummaries"
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 ListCodeReviews where
hashWithSalt :: Int -> ListCodeReviews -> Int
hashWithSalt Int
_salt ListCodeReviews' {Maybe Natural
Maybe (NonEmpty Text)
Maybe (NonEmpty JobState)
Maybe (NonEmpty ProviderType)
Maybe Text
Type
type' :: Type
states :: Maybe (NonEmpty JobState)
repositoryNames :: Maybe (NonEmpty Text)
providerTypes :: Maybe (NonEmpty ProviderType)
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:type':ListCodeReviews' :: ListCodeReviews -> Type
$sel:states:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty JobState)
$sel:repositoryNames:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty Text)
$sel:providerTypes:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty ProviderType)
$sel:nextToken:ListCodeReviews' :: ListCodeReviews -> Maybe Text
$sel:maxResults:ListCodeReviews' :: ListCodeReviews -> 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` Maybe (NonEmpty ProviderType)
providerTypes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Text)
repositoryNames
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty JobState)
states
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Type
type'
instance Prelude.NFData ListCodeReviews where
rnf :: ListCodeReviews -> ()
rnf ListCodeReviews' {Maybe Natural
Maybe (NonEmpty Text)
Maybe (NonEmpty JobState)
Maybe (NonEmpty ProviderType)
Maybe Text
Type
type' :: Type
states :: Maybe (NonEmpty JobState)
repositoryNames :: Maybe (NonEmpty Text)
providerTypes :: Maybe (NonEmpty ProviderType)
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:type':ListCodeReviews' :: ListCodeReviews -> Type
$sel:states:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty JobState)
$sel:repositoryNames:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty Text)
$sel:providerTypes:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty ProviderType)
$sel:nextToken:ListCodeReviews' :: ListCodeReviews -> Maybe Text
$sel:maxResults:ListCodeReviews' :: ListCodeReviews -> 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 Maybe (NonEmpty ProviderType)
providerTypes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Text)
repositoryNames
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty JobState)
states
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Type
type'
instance Data.ToHeaders ListCodeReviews where
toHeaders :: ListCodeReviews -> 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 ListCodeReviews where
toPath :: ListCodeReviews -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/codereviews"
instance Data.ToQuery ListCodeReviews where
toQuery :: ListCodeReviews -> QueryString
toQuery ListCodeReviews' {Maybe Natural
Maybe (NonEmpty Text)
Maybe (NonEmpty JobState)
Maybe (NonEmpty ProviderType)
Maybe Text
Type
type' :: Type
states :: Maybe (NonEmpty JobState)
repositoryNames :: Maybe (NonEmpty Text)
providerTypes :: Maybe (NonEmpty ProviderType)
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:type':ListCodeReviews' :: ListCodeReviews -> Type
$sel:states:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty JobState)
$sel:repositoryNames:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty Text)
$sel:providerTypes:ListCodeReviews' :: ListCodeReviews -> Maybe (NonEmpty ProviderType)
$sel:nextToken:ListCodeReviews' :: ListCodeReviews -> Maybe Text
$sel:maxResults:ListCodeReviews' :: ListCodeReviews -> 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,
ByteString
"ProviderTypes"
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 (NonEmpty ProviderType)
providerTypes
),
ByteString
"RepositoryNames"
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 (NonEmpty Text)
repositoryNames
),
ByteString
"States"
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 (NonEmpty JobState)
states),
ByteString
"Type" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Type
type'
]
data ListCodeReviewsResponse = ListCodeReviewsResponse'
{
ListCodeReviewsResponse -> Maybe [CodeReviewSummary]
codeReviewSummaries :: Prelude.Maybe [CodeReviewSummary],
ListCodeReviewsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListCodeReviewsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListCodeReviewsResponse -> ListCodeReviewsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListCodeReviewsResponse -> ListCodeReviewsResponse -> Bool
$c/= :: ListCodeReviewsResponse -> ListCodeReviewsResponse -> Bool
== :: ListCodeReviewsResponse -> ListCodeReviewsResponse -> Bool
$c== :: ListCodeReviewsResponse -> ListCodeReviewsResponse -> Bool
Prelude.Eq, ReadPrec [ListCodeReviewsResponse]
ReadPrec ListCodeReviewsResponse
Int -> ReadS ListCodeReviewsResponse
ReadS [ListCodeReviewsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListCodeReviewsResponse]
$creadListPrec :: ReadPrec [ListCodeReviewsResponse]
readPrec :: ReadPrec ListCodeReviewsResponse
$creadPrec :: ReadPrec ListCodeReviewsResponse
readList :: ReadS [ListCodeReviewsResponse]
$creadList :: ReadS [ListCodeReviewsResponse]
readsPrec :: Int -> ReadS ListCodeReviewsResponse
$creadsPrec :: Int -> ReadS ListCodeReviewsResponse
Prelude.Read, Int -> ListCodeReviewsResponse -> ShowS
[ListCodeReviewsResponse] -> ShowS
ListCodeReviewsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListCodeReviewsResponse] -> ShowS
$cshowList :: [ListCodeReviewsResponse] -> ShowS
show :: ListCodeReviewsResponse -> String
$cshow :: ListCodeReviewsResponse -> String
showsPrec :: Int -> ListCodeReviewsResponse -> ShowS
$cshowsPrec :: Int -> ListCodeReviewsResponse -> ShowS
Prelude.Show, forall x. Rep ListCodeReviewsResponse x -> ListCodeReviewsResponse
forall x. ListCodeReviewsResponse -> Rep ListCodeReviewsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListCodeReviewsResponse x -> ListCodeReviewsResponse
$cfrom :: forall x. ListCodeReviewsResponse -> Rep ListCodeReviewsResponse x
Prelude.Generic)
newListCodeReviewsResponse ::
Prelude.Int ->
ListCodeReviewsResponse
newListCodeReviewsResponse :: Int -> ListCodeReviewsResponse
newListCodeReviewsResponse Int
pHttpStatus_ =
ListCodeReviewsResponse'
{ $sel:codeReviewSummaries:ListCodeReviewsResponse' :: Maybe [CodeReviewSummary]
codeReviewSummaries =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListCodeReviewsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListCodeReviewsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listCodeReviewsResponse_codeReviewSummaries :: Lens.Lens' ListCodeReviewsResponse (Prelude.Maybe [CodeReviewSummary])
listCodeReviewsResponse_codeReviewSummaries :: Lens' ListCodeReviewsResponse (Maybe [CodeReviewSummary])
listCodeReviewsResponse_codeReviewSummaries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCodeReviewsResponse' {Maybe [CodeReviewSummary]
codeReviewSummaries :: Maybe [CodeReviewSummary]
$sel:codeReviewSummaries:ListCodeReviewsResponse' :: ListCodeReviewsResponse -> Maybe [CodeReviewSummary]
codeReviewSummaries} -> Maybe [CodeReviewSummary]
codeReviewSummaries) (\s :: ListCodeReviewsResponse
s@ListCodeReviewsResponse' {} Maybe [CodeReviewSummary]
a -> ListCodeReviewsResponse
s {$sel:codeReviewSummaries:ListCodeReviewsResponse' :: Maybe [CodeReviewSummary]
codeReviewSummaries = Maybe [CodeReviewSummary]
a} :: ListCodeReviewsResponse) 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
listCodeReviewsResponse_nextToken :: Lens.Lens' ListCodeReviewsResponse (Prelude.Maybe Prelude.Text)
listCodeReviewsResponse_nextToken :: Lens' ListCodeReviewsResponse (Maybe Text)
listCodeReviewsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCodeReviewsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListCodeReviewsResponse' :: ListCodeReviewsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListCodeReviewsResponse
s@ListCodeReviewsResponse' {} Maybe Text
a -> ListCodeReviewsResponse
s {$sel:nextToken:ListCodeReviewsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListCodeReviewsResponse)
listCodeReviewsResponse_httpStatus :: Lens.Lens' ListCodeReviewsResponse Prelude.Int
listCodeReviewsResponse_httpStatus :: Lens' ListCodeReviewsResponse Int
listCodeReviewsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListCodeReviewsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListCodeReviewsResponse' :: ListCodeReviewsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListCodeReviewsResponse
s@ListCodeReviewsResponse' {} Int
a -> ListCodeReviewsResponse
s {$sel:httpStatus:ListCodeReviewsResponse' :: Int
httpStatus = Int
a} :: ListCodeReviewsResponse)
instance Prelude.NFData ListCodeReviewsResponse where
rnf :: ListCodeReviewsResponse -> ()
rnf ListCodeReviewsResponse' {Int
Maybe [CodeReviewSummary]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
codeReviewSummaries :: Maybe [CodeReviewSummary]
$sel:httpStatus:ListCodeReviewsResponse' :: ListCodeReviewsResponse -> Int
$sel:nextToken:ListCodeReviewsResponse' :: ListCodeReviewsResponse -> Maybe Text
$sel:codeReviewSummaries:ListCodeReviewsResponse' :: ListCodeReviewsResponse -> Maybe [CodeReviewSummary]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [CodeReviewSummary]
codeReviewSummaries
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