{-# 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.Comprehend.ListTopicsDetectionJobs
(
ListTopicsDetectionJobs (..),
newListTopicsDetectionJobs,
listTopicsDetectionJobs_filter,
listTopicsDetectionJobs_maxResults,
listTopicsDetectionJobs_nextToken,
ListTopicsDetectionJobsResponse (..),
newListTopicsDetectionJobsResponse,
listTopicsDetectionJobsResponse_nextToken,
listTopicsDetectionJobsResponse_topicsDetectionJobPropertiesList,
listTopicsDetectionJobsResponse_httpStatus,
)
where
import Amazonka.Comprehend.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 ListTopicsDetectionJobs = ListTopicsDetectionJobs'
{
ListTopicsDetectionJobs -> Maybe TopicsDetectionJobFilter
filter' :: Prelude.Maybe TopicsDetectionJobFilter,
ListTopicsDetectionJobs -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListTopicsDetectionJobs -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (ListTopicsDetectionJobs -> ListTopicsDetectionJobs -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTopicsDetectionJobs -> ListTopicsDetectionJobs -> Bool
$c/= :: ListTopicsDetectionJobs -> ListTopicsDetectionJobs -> Bool
== :: ListTopicsDetectionJobs -> ListTopicsDetectionJobs -> Bool
$c== :: ListTopicsDetectionJobs -> ListTopicsDetectionJobs -> Bool
Prelude.Eq, ReadPrec [ListTopicsDetectionJobs]
ReadPrec ListTopicsDetectionJobs
Int -> ReadS ListTopicsDetectionJobs
ReadS [ListTopicsDetectionJobs]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTopicsDetectionJobs]
$creadListPrec :: ReadPrec [ListTopicsDetectionJobs]
readPrec :: ReadPrec ListTopicsDetectionJobs
$creadPrec :: ReadPrec ListTopicsDetectionJobs
readList :: ReadS [ListTopicsDetectionJobs]
$creadList :: ReadS [ListTopicsDetectionJobs]
readsPrec :: Int -> ReadS ListTopicsDetectionJobs
$creadsPrec :: Int -> ReadS ListTopicsDetectionJobs
Prelude.Read, Int -> ListTopicsDetectionJobs -> ShowS
[ListTopicsDetectionJobs] -> ShowS
ListTopicsDetectionJobs -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTopicsDetectionJobs] -> ShowS
$cshowList :: [ListTopicsDetectionJobs] -> ShowS
show :: ListTopicsDetectionJobs -> String
$cshow :: ListTopicsDetectionJobs -> String
showsPrec :: Int -> ListTopicsDetectionJobs -> ShowS
$cshowsPrec :: Int -> ListTopicsDetectionJobs -> ShowS
Prelude.Show, forall x. Rep ListTopicsDetectionJobs x -> ListTopicsDetectionJobs
forall x. ListTopicsDetectionJobs -> Rep ListTopicsDetectionJobs x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListTopicsDetectionJobs x -> ListTopicsDetectionJobs
$cfrom :: forall x. ListTopicsDetectionJobs -> Rep ListTopicsDetectionJobs x
Prelude.Generic)
newListTopicsDetectionJobs ::
ListTopicsDetectionJobs
newListTopicsDetectionJobs :: ListTopicsDetectionJobs
newListTopicsDetectionJobs =
ListTopicsDetectionJobs'
{ $sel:filter':ListTopicsDetectionJobs' :: Maybe TopicsDetectionJobFilter
filter' = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListTopicsDetectionJobs' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListTopicsDetectionJobs' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
}
listTopicsDetectionJobs_filter :: Lens.Lens' ListTopicsDetectionJobs (Prelude.Maybe TopicsDetectionJobFilter)
listTopicsDetectionJobs_filter :: Lens' ListTopicsDetectionJobs (Maybe TopicsDetectionJobFilter)
listTopicsDetectionJobs_filter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTopicsDetectionJobs' {Maybe TopicsDetectionJobFilter
filter' :: Maybe TopicsDetectionJobFilter
$sel:filter':ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe TopicsDetectionJobFilter
filter'} -> Maybe TopicsDetectionJobFilter
filter') (\s :: ListTopicsDetectionJobs
s@ListTopicsDetectionJobs' {} Maybe TopicsDetectionJobFilter
a -> ListTopicsDetectionJobs
s {$sel:filter':ListTopicsDetectionJobs' :: Maybe TopicsDetectionJobFilter
filter' = Maybe TopicsDetectionJobFilter
a} :: ListTopicsDetectionJobs)
listTopicsDetectionJobs_maxResults :: Lens.Lens' ListTopicsDetectionJobs (Prelude.Maybe Prelude.Natural)
listTopicsDetectionJobs_maxResults :: Lens' ListTopicsDetectionJobs (Maybe Natural)
listTopicsDetectionJobs_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTopicsDetectionJobs' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListTopicsDetectionJobs
s@ListTopicsDetectionJobs' {} Maybe Natural
a -> ListTopicsDetectionJobs
s {$sel:maxResults:ListTopicsDetectionJobs' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListTopicsDetectionJobs)
listTopicsDetectionJobs_nextToken :: Lens.Lens' ListTopicsDetectionJobs (Prelude.Maybe Prelude.Text)
listTopicsDetectionJobs_nextToken :: Lens' ListTopicsDetectionJobs (Maybe Text)
listTopicsDetectionJobs_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTopicsDetectionJobs' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTopicsDetectionJobs
s@ListTopicsDetectionJobs' {} Maybe Text
a -> ListTopicsDetectionJobs
s {$sel:nextToken:ListTopicsDetectionJobs' :: Maybe Text
nextToken = Maybe Text
a} :: ListTopicsDetectionJobs)
instance Core.AWSPager ListTopicsDetectionJobs where
page :: ListTopicsDetectionJobs
-> AWSResponse ListTopicsDetectionJobs
-> Maybe ListTopicsDetectionJobs
page ListTopicsDetectionJobs
rq AWSResponse ListTopicsDetectionJobs
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListTopicsDetectionJobs
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTopicsDetectionJobsResponse (Maybe Text)
listTopicsDetectionJobsResponse_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 ListTopicsDetectionJobs
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
ListTopicsDetectionJobsResponse
(Maybe [TopicsDetectionJobProperties])
listTopicsDetectionJobsResponse_topicsDetectionJobPropertiesList
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.$ ListTopicsDetectionJobs
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListTopicsDetectionJobs (Maybe Text)
listTopicsDetectionJobs_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListTopicsDetectionJobs
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTopicsDetectionJobsResponse (Maybe Text)
listTopicsDetectionJobsResponse_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 ListTopicsDetectionJobs where
type
AWSResponse ListTopicsDetectionJobs =
ListTopicsDetectionJobsResponse
request :: (Service -> Service)
-> ListTopicsDetectionJobs -> Request ListTopicsDetectionJobs
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 ListTopicsDetectionJobs
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListTopicsDetectionJobs)))
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 [TopicsDetectionJobProperties]
-> Int
-> ListTopicsDetectionJobsResponse
ListTopicsDetectionJobsResponse'
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
"TopicsDetectionJobPropertiesList"
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 ListTopicsDetectionJobs where
hashWithSalt :: Int -> ListTopicsDetectionJobs -> Int
hashWithSalt Int
_salt ListTopicsDetectionJobs' {Maybe Natural
Maybe Text
Maybe TopicsDetectionJobFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
filter' :: Maybe TopicsDetectionJobFilter
$sel:nextToken:ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe Text
$sel:maxResults:ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe Natural
$sel:filter':ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe TopicsDetectionJobFilter
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TopicsDetectionJobFilter
filter'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
instance Prelude.NFData ListTopicsDetectionJobs where
rnf :: ListTopicsDetectionJobs -> ()
rnf ListTopicsDetectionJobs' {Maybe Natural
Maybe Text
Maybe TopicsDetectionJobFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
filter' :: Maybe TopicsDetectionJobFilter
$sel:nextToken:ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe Text
$sel:maxResults:ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe Natural
$sel:filter':ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe TopicsDetectionJobFilter
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe TopicsDetectionJobFilter
filter'
seq :: forall a b. a -> b -> b
`Prelude.seq` 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
instance Data.ToHeaders ListTopicsDetectionJobs where
toHeaders :: ListTopicsDetectionJobs -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"Comprehend_20171127.ListTopicsDetectionJobs" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ListTopicsDetectionJobs where
toJSON :: ListTopicsDetectionJobs -> Value
toJSON ListTopicsDetectionJobs' {Maybe Natural
Maybe Text
Maybe TopicsDetectionJobFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
filter' :: Maybe TopicsDetectionJobFilter
$sel:nextToken:ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe Text
$sel:maxResults:ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe Natural
$sel:filter':ListTopicsDetectionJobs' :: ListTopicsDetectionJobs -> Maybe TopicsDetectionJobFilter
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Filter" 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 TopicsDetectionJobFilter
filter',
(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
]
)
instance Data.ToPath ListTopicsDetectionJobs where
toPath :: ListTopicsDetectionJobs -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListTopicsDetectionJobs where
toQuery :: ListTopicsDetectionJobs -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListTopicsDetectionJobsResponse = ListTopicsDetectionJobsResponse'
{
ListTopicsDetectionJobsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTopicsDetectionJobsResponse
-> Maybe [TopicsDetectionJobProperties]
topicsDetectionJobPropertiesList :: Prelude.Maybe [TopicsDetectionJobProperties],
ListTopicsDetectionJobsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListTopicsDetectionJobsResponse
-> ListTopicsDetectionJobsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTopicsDetectionJobsResponse
-> ListTopicsDetectionJobsResponse -> Bool
$c/= :: ListTopicsDetectionJobsResponse
-> ListTopicsDetectionJobsResponse -> Bool
== :: ListTopicsDetectionJobsResponse
-> ListTopicsDetectionJobsResponse -> Bool
$c== :: ListTopicsDetectionJobsResponse
-> ListTopicsDetectionJobsResponse -> Bool
Prelude.Eq, ReadPrec [ListTopicsDetectionJobsResponse]
ReadPrec ListTopicsDetectionJobsResponse
Int -> ReadS ListTopicsDetectionJobsResponse
ReadS [ListTopicsDetectionJobsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTopicsDetectionJobsResponse]
$creadListPrec :: ReadPrec [ListTopicsDetectionJobsResponse]
readPrec :: ReadPrec ListTopicsDetectionJobsResponse
$creadPrec :: ReadPrec ListTopicsDetectionJobsResponse
readList :: ReadS [ListTopicsDetectionJobsResponse]
$creadList :: ReadS [ListTopicsDetectionJobsResponse]
readsPrec :: Int -> ReadS ListTopicsDetectionJobsResponse
$creadsPrec :: Int -> ReadS ListTopicsDetectionJobsResponse
Prelude.Read, Int -> ListTopicsDetectionJobsResponse -> ShowS
[ListTopicsDetectionJobsResponse] -> ShowS
ListTopicsDetectionJobsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTopicsDetectionJobsResponse] -> ShowS
$cshowList :: [ListTopicsDetectionJobsResponse] -> ShowS
show :: ListTopicsDetectionJobsResponse -> String
$cshow :: ListTopicsDetectionJobsResponse -> String
showsPrec :: Int -> ListTopicsDetectionJobsResponse -> ShowS
$cshowsPrec :: Int -> ListTopicsDetectionJobsResponse -> ShowS
Prelude.Show, forall x.
Rep ListTopicsDetectionJobsResponse x
-> ListTopicsDetectionJobsResponse
forall x.
ListTopicsDetectionJobsResponse
-> Rep ListTopicsDetectionJobsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTopicsDetectionJobsResponse x
-> ListTopicsDetectionJobsResponse
$cfrom :: forall x.
ListTopicsDetectionJobsResponse
-> Rep ListTopicsDetectionJobsResponse x
Prelude.Generic)
newListTopicsDetectionJobsResponse ::
Prelude.Int ->
ListTopicsDetectionJobsResponse
newListTopicsDetectionJobsResponse :: Int -> ListTopicsDetectionJobsResponse
newListTopicsDetectionJobsResponse Int
pHttpStatus_ =
ListTopicsDetectionJobsResponse'
{ $sel:nextToken:ListTopicsDetectionJobsResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:topicsDetectionJobPropertiesList:ListTopicsDetectionJobsResponse' :: Maybe [TopicsDetectionJobProperties]
topicsDetectionJobPropertiesList =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListTopicsDetectionJobsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listTopicsDetectionJobsResponse_nextToken :: Lens.Lens' ListTopicsDetectionJobsResponse (Prelude.Maybe Prelude.Text)
listTopicsDetectionJobsResponse_nextToken :: Lens' ListTopicsDetectionJobsResponse (Maybe Text)
listTopicsDetectionJobsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTopicsDetectionJobsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTopicsDetectionJobsResponse' :: ListTopicsDetectionJobsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTopicsDetectionJobsResponse
s@ListTopicsDetectionJobsResponse' {} Maybe Text
a -> ListTopicsDetectionJobsResponse
s {$sel:nextToken:ListTopicsDetectionJobsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListTopicsDetectionJobsResponse)
listTopicsDetectionJobsResponse_topicsDetectionJobPropertiesList :: Lens.Lens' ListTopicsDetectionJobsResponse (Prelude.Maybe [TopicsDetectionJobProperties])
listTopicsDetectionJobsResponse_topicsDetectionJobPropertiesList :: Lens'
ListTopicsDetectionJobsResponse
(Maybe [TopicsDetectionJobProperties])
listTopicsDetectionJobsResponse_topicsDetectionJobPropertiesList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTopicsDetectionJobsResponse' {Maybe [TopicsDetectionJobProperties]
topicsDetectionJobPropertiesList :: Maybe [TopicsDetectionJobProperties]
$sel:topicsDetectionJobPropertiesList:ListTopicsDetectionJobsResponse' :: ListTopicsDetectionJobsResponse
-> Maybe [TopicsDetectionJobProperties]
topicsDetectionJobPropertiesList} -> Maybe [TopicsDetectionJobProperties]
topicsDetectionJobPropertiesList) (\s :: ListTopicsDetectionJobsResponse
s@ListTopicsDetectionJobsResponse' {} Maybe [TopicsDetectionJobProperties]
a -> ListTopicsDetectionJobsResponse
s {$sel:topicsDetectionJobPropertiesList:ListTopicsDetectionJobsResponse' :: Maybe [TopicsDetectionJobProperties]
topicsDetectionJobPropertiesList = Maybe [TopicsDetectionJobProperties]
a} :: ListTopicsDetectionJobsResponse) 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
listTopicsDetectionJobsResponse_httpStatus :: Lens.Lens' ListTopicsDetectionJobsResponse Prelude.Int
listTopicsDetectionJobsResponse_httpStatus :: Lens' ListTopicsDetectionJobsResponse Int
listTopicsDetectionJobsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTopicsDetectionJobsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListTopicsDetectionJobsResponse' :: ListTopicsDetectionJobsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListTopicsDetectionJobsResponse
s@ListTopicsDetectionJobsResponse' {} Int
a -> ListTopicsDetectionJobsResponse
s {$sel:httpStatus:ListTopicsDetectionJobsResponse' :: Int
httpStatus = Int
a} :: ListTopicsDetectionJobsResponse)
instance
Prelude.NFData
ListTopicsDetectionJobsResponse
where
rnf :: ListTopicsDetectionJobsResponse -> ()
rnf ListTopicsDetectionJobsResponse' {Int
Maybe [TopicsDetectionJobProperties]
Maybe Text
httpStatus :: Int
topicsDetectionJobPropertiesList :: Maybe [TopicsDetectionJobProperties]
nextToken :: Maybe Text
$sel:httpStatus:ListTopicsDetectionJobsResponse' :: ListTopicsDetectionJobsResponse -> Int
$sel:topicsDetectionJobPropertiesList:ListTopicsDetectionJobsResponse' :: ListTopicsDetectionJobsResponse
-> Maybe [TopicsDetectionJobProperties]
$sel:nextToken:ListTopicsDetectionJobsResponse' :: ListTopicsDetectionJobsResponse -> 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 [TopicsDetectionJobProperties]
topicsDetectionJobPropertiesList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus