{-# 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.QuickSight.SearchAnalyses
(
SearchAnalyses (..),
newSearchAnalyses,
searchAnalyses_maxResults,
searchAnalyses_nextToken,
searchAnalyses_awsAccountId,
searchAnalyses_filters,
SearchAnalysesResponse (..),
newSearchAnalysesResponse,
searchAnalysesResponse_analysisSummaryList,
searchAnalysesResponse_nextToken,
searchAnalysesResponse_requestId,
searchAnalysesResponse_status,
)
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 Amazonka.QuickSight.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data SearchAnalyses = SearchAnalyses'
{
SearchAnalyses -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
SearchAnalyses -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
SearchAnalyses -> Text
awsAccountId :: Prelude.Text,
SearchAnalyses -> NonEmpty AnalysisSearchFilter
filters :: Prelude.NonEmpty AnalysisSearchFilter
}
deriving (SearchAnalyses -> SearchAnalyses -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchAnalyses -> SearchAnalyses -> Bool
$c/= :: SearchAnalyses -> SearchAnalyses -> Bool
== :: SearchAnalyses -> SearchAnalyses -> Bool
$c== :: SearchAnalyses -> SearchAnalyses -> Bool
Prelude.Eq, ReadPrec [SearchAnalyses]
ReadPrec SearchAnalyses
Int -> ReadS SearchAnalyses
ReadS [SearchAnalyses]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SearchAnalyses]
$creadListPrec :: ReadPrec [SearchAnalyses]
readPrec :: ReadPrec SearchAnalyses
$creadPrec :: ReadPrec SearchAnalyses
readList :: ReadS [SearchAnalyses]
$creadList :: ReadS [SearchAnalyses]
readsPrec :: Int -> ReadS SearchAnalyses
$creadsPrec :: Int -> ReadS SearchAnalyses
Prelude.Read, Int -> SearchAnalyses -> ShowS
[SearchAnalyses] -> ShowS
SearchAnalyses -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SearchAnalyses] -> ShowS
$cshowList :: [SearchAnalyses] -> ShowS
show :: SearchAnalyses -> String
$cshow :: SearchAnalyses -> String
showsPrec :: Int -> SearchAnalyses -> ShowS
$cshowsPrec :: Int -> SearchAnalyses -> ShowS
Prelude.Show, forall x. Rep SearchAnalyses x -> SearchAnalyses
forall x. SearchAnalyses -> Rep SearchAnalyses x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SearchAnalyses x -> SearchAnalyses
$cfrom :: forall x. SearchAnalyses -> Rep SearchAnalyses x
Prelude.Generic)
newSearchAnalyses ::
Prelude.Text ->
Prelude.NonEmpty AnalysisSearchFilter ->
SearchAnalyses
newSearchAnalyses :: Text -> NonEmpty AnalysisSearchFilter -> SearchAnalyses
newSearchAnalyses Text
pAwsAccountId_ NonEmpty AnalysisSearchFilter
pFilters_ =
SearchAnalyses'
{ $sel:maxResults:SearchAnalyses' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:SearchAnalyses' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:awsAccountId:SearchAnalyses' :: Text
awsAccountId = Text
pAwsAccountId_,
$sel:filters:SearchAnalyses' :: NonEmpty AnalysisSearchFilter
filters = forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced forall t b. AReview t b -> b -> t
Lens.# NonEmpty AnalysisSearchFilter
pFilters_
}
searchAnalyses_maxResults :: Lens.Lens' SearchAnalyses (Prelude.Maybe Prelude.Natural)
searchAnalyses_maxResults :: Lens' SearchAnalyses (Maybe Natural)
searchAnalyses_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchAnalyses' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:SearchAnalyses' :: SearchAnalyses -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: SearchAnalyses
s@SearchAnalyses' {} Maybe Natural
a -> SearchAnalyses
s {$sel:maxResults:SearchAnalyses' :: Maybe Natural
maxResults = Maybe Natural
a} :: SearchAnalyses)
searchAnalyses_nextToken :: Lens.Lens' SearchAnalyses (Prelude.Maybe Prelude.Text)
searchAnalyses_nextToken :: Lens' SearchAnalyses (Maybe Text)
searchAnalyses_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchAnalyses' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:SearchAnalyses' :: SearchAnalyses -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: SearchAnalyses
s@SearchAnalyses' {} Maybe Text
a -> SearchAnalyses
s {$sel:nextToken:SearchAnalyses' :: Maybe Text
nextToken = Maybe Text
a} :: SearchAnalyses)
searchAnalyses_awsAccountId :: Lens.Lens' SearchAnalyses Prelude.Text
searchAnalyses_awsAccountId :: Lens' SearchAnalyses Text
searchAnalyses_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchAnalyses' {Text
awsAccountId :: Text
$sel:awsAccountId:SearchAnalyses' :: SearchAnalyses -> Text
awsAccountId} -> Text
awsAccountId) (\s :: SearchAnalyses
s@SearchAnalyses' {} Text
a -> SearchAnalyses
s {$sel:awsAccountId:SearchAnalyses' :: Text
awsAccountId = Text
a} :: SearchAnalyses)
searchAnalyses_filters :: Lens.Lens' SearchAnalyses (Prelude.NonEmpty AnalysisSearchFilter)
searchAnalyses_filters :: Lens' SearchAnalyses (NonEmpty AnalysisSearchFilter)
searchAnalyses_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchAnalyses' {NonEmpty AnalysisSearchFilter
filters :: NonEmpty AnalysisSearchFilter
$sel:filters:SearchAnalyses' :: SearchAnalyses -> NonEmpty AnalysisSearchFilter
filters} -> NonEmpty AnalysisSearchFilter
filters) (\s :: SearchAnalyses
s@SearchAnalyses' {} NonEmpty AnalysisSearchFilter
a -> SearchAnalyses
s {$sel:filters:SearchAnalyses' :: NonEmpty AnalysisSearchFilter
filters = NonEmpty AnalysisSearchFilter
a} :: SearchAnalyses) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSPager SearchAnalyses where
page :: SearchAnalyses
-> AWSResponse SearchAnalyses -> Maybe SearchAnalyses
page SearchAnalyses
rq AWSResponse SearchAnalyses
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse SearchAnalyses
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' SearchAnalysesResponse (Maybe Text)
searchAnalysesResponse_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 SearchAnalyses
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' SearchAnalysesResponse (Maybe [AnalysisSummary])
searchAnalysesResponse_analysisSummaryList
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.$ SearchAnalyses
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' SearchAnalyses (Maybe Text)
searchAnalyses_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse SearchAnalyses
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' SearchAnalysesResponse (Maybe Text)
searchAnalysesResponse_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 SearchAnalyses where
type
AWSResponse SearchAnalyses =
SearchAnalysesResponse
request :: (Service -> Service) -> SearchAnalyses -> Request SearchAnalyses
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 SearchAnalyses
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse SearchAnalyses)))
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 [AnalysisSummary]
-> Maybe Text -> Maybe Text -> Int -> SearchAnalysesResponse
SearchAnalysesResponse'
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
"AnalysisSummaryList"
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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"RequestId")
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 SearchAnalyses where
hashWithSalt :: Int -> SearchAnalyses -> Int
hashWithSalt Int
_salt SearchAnalyses' {Maybe Natural
Maybe Text
NonEmpty AnalysisSearchFilter
Text
filters :: NonEmpty AnalysisSearchFilter
awsAccountId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:filters:SearchAnalyses' :: SearchAnalyses -> NonEmpty AnalysisSearchFilter
$sel:awsAccountId:SearchAnalyses' :: SearchAnalyses -> Text
$sel:nextToken:SearchAnalyses' :: SearchAnalyses -> Maybe Text
$sel:maxResults:SearchAnalyses' :: SearchAnalyses -> 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
awsAccountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty AnalysisSearchFilter
filters
instance Prelude.NFData SearchAnalyses where
rnf :: SearchAnalyses -> ()
rnf SearchAnalyses' {Maybe Natural
Maybe Text
NonEmpty AnalysisSearchFilter
Text
filters :: NonEmpty AnalysisSearchFilter
awsAccountId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:filters:SearchAnalyses' :: SearchAnalyses -> NonEmpty AnalysisSearchFilter
$sel:awsAccountId:SearchAnalyses' :: SearchAnalyses -> Text
$sel:nextToken:SearchAnalyses' :: SearchAnalyses -> Maybe Text
$sel:maxResults:SearchAnalyses' :: SearchAnalyses -> 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
awsAccountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty AnalysisSearchFilter
filters
instance Data.ToHeaders SearchAnalyses where
toHeaders :: SearchAnalyses -> 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.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON SearchAnalyses where
toJSON :: SearchAnalyses -> Value
toJSON SearchAnalyses' {Maybe Natural
Maybe Text
NonEmpty AnalysisSearchFilter
Text
filters :: NonEmpty AnalysisSearchFilter
awsAccountId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:filters:SearchAnalyses' :: SearchAnalyses -> NonEmpty AnalysisSearchFilter
$sel:awsAccountId:SearchAnalyses' :: SearchAnalyses -> Text
$sel:nextToken:SearchAnalyses' :: SearchAnalyses -> Maybe Text
$sel:maxResults:SearchAnalyses' :: SearchAnalyses -> 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
"Filters" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty AnalysisSearchFilter
filters)
]
)
instance Data.ToPath SearchAnalyses where
toPath :: SearchAnalyses -> ByteString
toPath SearchAnalyses' {Maybe Natural
Maybe Text
NonEmpty AnalysisSearchFilter
Text
filters :: NonEmpty AnalysisSearchFilter
awsAccountId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:filters:SearchAnalyses' :: SearchAnalyses -> NonEmpty AnalysisSearchFilter
$sel:awsAccountId:SearchAnalyses' :: SearchAnalyses -> Text
$sel:nextToken:SearchAnalyses' :: SearchAnalyses -> Maybe Text
$sel:maxResults:SearchAnalyses' :: SearchAnalyses -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/accounts/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
awsAccountId,
ByteString
"/search/analyses"
]
instance Data.ToQuery SearchAnalyses where
toQuery :: SearchAnalyses -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SearchAnalysesResponse = SearchAnalysesResponse'
{
SearchAnalysesResponse -> Maybe [AnalysisSummary]
analysisSummaryList :: Prelude.Maybe [AnalysisSummary],
SearchAnalysesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
SearchAnalysesResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
SearchAnalysesResponse -> Int
status :: Prelude.Int
}
deriving (SearchAnalysesResponse -> SearchAnalysesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchAnalysesResponse -> SearchAnalysesResponse -> Bool
$c/= :: SearchAnalysesResponse -> SearchAnalysesResponse -> Bool
== :: SearchAnalysesResponse -> SearchAnalysesResponse -> Bool
$c== :: SearchAnalysesResponse -> SearchAnalysesResponse -> Bool
Prelude.Eq, ReadPrec [SearchAnalysesResponse]
ReadPrec SearchAnalysesResponse
Int -> ReadS SearchAnalysesResponse
ReadS [SearchAnalysesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SearchAnalysesResponse]
$creadListPrec :: ReadPrec [SearchAnalysesResponse]
readPrec :: ReadPrec SearchAnalysesResponse
$creadPrec :: ReadPrec SearchAnalysesResponse
readList :: ReadS [SearchAnalysesResponse]
$creadList :: ReadS [SearchAnalysesResponse]
readsPrec :: Int -> ReadS SearchAnalysesResponse
$creadsPrec :: Int -> ReadS SearchAnalysesResponse
Prelude.Read, Int -> SearchAnalysesResponse -> ShowS
[SearchAnalysesResponse] -> ShowS
SearchAnalysesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SearchAnalysesResponse] -> ShowS
$cshowList :: [SearchAnalysesResponse] -> ShowS
show :: SearchAnalysesResponse -> String
$cshow :: SearchAnalysesResponse -> String
showsPrec :: Int -> SearchAnalysesResponse -> ShowS
$cshowsPrec :: Int -> SearchAnalysesResponse -> ShowS
Prelude.Show, forall x. Rep SearchAnalysesResponse x -> SearchAnalysesResponse
forall x. SearchAnalysesResponse -> Rep SearchAnalysesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SearchAnalysesResponse x -> SearchAnalysesResponse
$cfrom :: forall x. SearchAnalysesResponse -> Rep SearchAnalysesResponse x
Prelude.Generic)
newSearchAnalysesResponse ::
Prelude.Int ->
SearchAnalysesResponse
newSearchAnalysesResponse :: Int -> SearchAnalysesResponse
newSearchAnalysesResponse Int
pStatus_ =
SearchAnalysesResponse'
{ $sel:analysisSummaryList:SearchAnalysesResponse' :: Maybe [AnalysisSummary]
analysisSummaryList =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:SearchAnalysesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:requestId:SearchAnalysesResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:status:SearchAnalysesResponse' :: Int
status = Int
pStatus_
}
searchAnalysesResponse_analysisSummaryList :: Lens.Lens' SearchAnalysesResponse (Prelude.Maybe [AnalysisSummary])
searchAnalysesResponse_analysisSummaryList :: Lens' SearchAnalysesResponse (Maybe [AnalysisSummary])
searchAnalysesResponse_analysisSummaryList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchAnalysesResponse' {Maybe [AnalysisSummary]
analysisSummaryList :: Maybe [AnalysisSummary]
$sel:analysisSummaryList:SearchAnalysesResponse' :: SearchAnalysesResponse -> Maybe [AnalysisSummary]
analysisSummaryList} -> Maybe [AnalysisSummary]
analysisSummaryList) (\s :: SearchAnalysesResponse
s@SearchAnalysesResponse' {} Maybe [AnalysisSummary]
a -> SearchAnalysesResponse
s {$sel:analysisSummaryList:SearchAnalysesResponse' :: Maybe [AnalysisSummary]
analysisSummaryList = Maybe [AnalysisSummary]
a} :: SearchAnalysesResponse) 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
searchAnalysesResponse_nextToken :: Lens.Lens' SearchAnalysesResponse (Prelude.Maybe Prelude.Text)
searchAnalysesResponse_nextToken :: Lens' SearchAnalysesResponse (Maybe Text)
searchAnalysesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchAnalysesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:SearchAnalysesResponse' :: SearchAnalysesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: SearchAnalysesResponse
s@SearchAnalysesResponse' {} Maybe Text
a -> SearchAnalysesResponse
s {$sel:nextToken:SearchAnalysesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: SearchAnalysesResponse)
searchAnalysesResponse_requestId :: Lens.Lens' SearchAnalysesResponse (Prelude.Maybe Prelude.Text)
searchAnalysesResponse_requestId :: Lens' SearchAnalysesResponse (Maybe Text)
searchAnalysesResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchAnalysesResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:SearchAnalysesResponse' :: SearchAnalysesResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: SearchAnalysesResponse
s@SearchAnalysesResponse' {} Maybe Text
a -> SearchAnalysesResponse
s {$sel:requestId:SearchAnalysesResponse' :: Maybe Text
requestId = Maybe Text
a} :: SearchAnalysesResponse)
searchAnalysesResponse_status :: Lens.Lens' SearchAnalysesResponse Prelude.Int
searchAnalysesResponse_status :: Lens' SearchAnalysesResponse Int
searchAnalysesResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchAnalysesResponse' {Int
status :: Int
$sel:status:SearchAnalysesResponse' :: SearchAnalysesResponse -> Int
status} -> Int
status) (\s :: SearchAnalysesResponse
s@SearchAnalysesResponse' {} Int
a -> SearchAnalysesResponse
s {$sel:status:SearchAnalysesResponse' :: Int
status = Int
a} :: SearchAnalysesResponse)
instance Prelude.NFData SearchAnalysesResponse where
rnf :: SearchAnalysesResponse -> ()
rnf SearchAnalysesResponse' {Int
Maybe [AnalysisSummary]
Maybe Text
status :: Int
requestId :: Maybe Text
nextToken :: Maybe Text
analysisSummaryList :: Maybe [AnalysisSummary]
$sel:status:SearchAnalysesResponse' :: SearchAnalysesResponse -> Int
$sel:requestId:SearchAnalysesResponse' :: SearchAnalysesResponse -> Maybe Text
$sel:nextToken:SearchAnalysesResponse' :: SearchAnalysesResponse -> Maybe Text
$sel:analysisSummaryList:SearchAnalysesResponse' :: SearchAnalysesResponse -> Maybe [AnalysisSummary]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AnalysisSummary]
analysisSummaryList
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 Text
requestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
status