{-# 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.Rekognition.GetContentModeration
(
GetContentModeration (..),
newGetContentModeration,
getContentModeration_maxResults,
getContentModeration_nextToken,
getContentModeration_sortBy,
getContentModeration_jobId,
GetContentModerationResponse (..),
newGetContentModerationResponse,
getContentModerationResponse_jobStatus,
getContentModerationResponse_moderationLabels,
getContentModerationResponse_moderationModelVersion,
getContentModerationResponse_nextToken,
getContentModerationResponse_statusMessage,
getContentModerationResponse_videoMetadata,
getContentModerationResponse_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 Amazonka.Rekognition.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetContentModeration = GetContentModeration'
{
GetContentModeration -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
GetContentModeration -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetContentModeration -> Maybe ContentModerationSortBy
sortBy :: Prelude.Maybe ContentModerationSortBy,
GetContentModeration -> Text
jobId :: Prelude.Text
}
deriving (GetContentModeration -> GetContentModeration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetContentModeration -> GetContentModeration -> Bool
$c/= :: GetContentModeration -> GetContentModeration -> Bool
== :: GetContentModeration -> GetContentModeration -> Bool
$c== :: GetContentModeration -> GetContentModeration -> Bool
Prelude.Eq, ReadPrec [GetContentModeration]
ReadPrec GetContentModeration
Int -> ReadS GetContentModeration
ReadS [GetContentModeration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetContentModeration]
$creadListPrec :: ReadPrec [GetContentModeration]
readPrec :: ReadPrec GetContentModeration
$creadPrec :: ReadPrec GetContentModeration
readList :: ReadS [GetContentModeration]
$creadList :: ReadS [GetContentModeration]
readsPrec :: Int -> ReadS GetContentModeration
$creadsPrec :: Int -> ReadS GetContentModeration
Prelude.Read, Int -> GetContentModeration -> ShowS
[GetContentModeration] -> ShowS
GetContentModeration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetContentModeration] -> ShowS
$cshowList :: [GetContentModeration] -> ShowS
show :: GetContentModeration -> String
$cshow :: GetContentModeration -> String
showsPrec :: Int -> GetContentModeration -> ShowS
$cshowsPrec :: Int -> GetContentModeration -> ShowS
Prelude.Show, forall x. Rep GetContentModeration x -> GetContentModeration
forall x. GetContentModeration -> Rep GetContentModeration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetContentModeration x -> GetContentModeration
$cfrom :: forall x. GetContentModeration -> Rep GetContentModeration x
Prelude.Generic)
newGetContentModeration ::
Prelude.Text ->
GetContentModeration
newGetContentModeration :: Text -> GetContentModeration
newGetContentModeration Text
pJobId_ =
GetContentModeration'
{ $sel:maxResults:GetContentModeration' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetContentModeration' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:sortBy:GetContentModeration' :: Maybe ContentModerationSortBy
sortBy = forall a. Maybe a
Prelude.Nothing,
$sel:jobId:GetContentModeration' :: Text
jobId = Text
pJobId_
}
getContentModeration_maxResults :: Lens.Lens' GetContentModeration (Prelude.Maybe Prelude.Natural)
getContentModeration_maxResults :: Lens' GetContentModeration (Maybe Natural)
getContentModeration_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModeration' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:GetContentModeration' :: GetContentModeration -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: GetContentModeration
s@GetContentModeration' {} Maybe Natural
a -> GetContentModeration
s {$sel:maxResults:GetContentModeration' :: Maybe Natural
maxResults = Maybe Natural
a} :: GetContentModeration)
getContentModeration_nextToken :: Lens.Lens' GetContentModeration (Prelude.Maybe Prelude.Text)
getContentModeration_nextToken :: Lens' GetContentModeration (Maybe Text)
getContentModeration_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModeration' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetContentModeration' :: GetContentModeration -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetContentModeration
s@GetContentModeration' {} Maybe Text
a -> GetContentModeration
s {$sel:nextToken:GetContentModeration' :: Maybe Text
nextToken = Maybe Text
a} :: GetContentModeration)
getContentModeration_sortBy :: Lens.Lens' GetContentModeration (Prelude.Maybe ContentModerationSortBy)
getContentModeration_sortBy :: Lens' GetContentModeration (Maybe ContentModerationSortBy)
getContentModeration_sortBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModeration' {Maybe ContentModerationSortBy
sortBy :: Maybe ContentModerationSortBy
$sel:sortBy:GetContentModeration' :: GetContentModeration -> Maybe ContentModerationSortBy
sortBy} -> Maybe ContentModerationSortBy
sortBy) (\s :: GetContentModeration
s@GetContentModeration' {} Maybe ContentModerationSortBy
a -> GetContentModeration
s {$sel:sortBy:GetContentModeration' :: Maybe ContentModerationSortBy
sortBy = Maybe ContentModerationSortBy
a} :: GetContentModeration)
getContentModeration_jobId :: Lens.Lens' GetContentModeration Prelude.Text
getContentModeration_jobId :: Lens' GetContentModeration Text
getContentModeration_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModeration' {Text
jobId :: Text
$sel:jobId:GetContentModeration' :: GetContentModeration -> Text
jobId} -> Text
jobId) (\s :: GetContentModeration
s@GetContentModeration' {} Text
a -> GetContentModeration
s {$sel:jobId:GetContentModeration' :: Text
jobId = Text
a} :: GetContentModeration)
instance Core.AWSRequest GetContentModeration where
type
AWSResponse GetContentModeration =
GetContentModerationResponse
request :: (Service -> Service)
-> GetContentModeration -> Request GetContentModeration
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 GetContentModeration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetContentModeration)))
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 VideoJobStatus
-> Maybe [ContentModerationDetection]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe VideoMetadata
-> Int
-> GetContentModerationResponse
GetContentModerationResponse'
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
"JobStatus")
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
"ModerationLabels"
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
"ModerationModelVersion")
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
"StatusMessage")
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
"VideoMetadata")
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 GetContentModeration where
hashWithSalt :: Int -> GetContentModeration -> Int
hashWithSalt Int
_salt GetContentModeration' {Maybe Natural
Maybe Text
Maybe ContentModerationSortBy
Text
jobId :: Text
sortBy :: Maybe ContentModerationSortBy
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:jobId:GetContentModeration' :: GetContentModeration -> Text
$sel:sortBy:GetContentModeration' :: GetContentModeration -> Maybe ContentModerationSortBy
$sel:nextToken:GetContentModeration' :: GetContentModeration -> Maybe Text
$sel:maxResults:GetContentModeration' :: GetContentModeration -> 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 ContentModerationSortBy
sortBy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
jobId
instance Prelude.NFData GetContentModeration where
rnf :: GetContentModeration -> ()
rnf GetContentModeration' {Maybe Natural
Maybe Text
Maybe ContentModerationSortBy
Text
jobId :: Text
sortBy :: Maybe ContentModerationSortBy
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:jobId:GetContentModeration' :: GetContentModeration -> Text
$sel:sortBy:GetContentModeration' :: GetContentModeration -> Maybe ContentModerationSortBy
$sel:nextToken:GetContentModeration' :: GetContentModeration -> Maybe Text
$sel:maxResults:GetContentModeration' :: GetContentModeration -> 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 ContentModerationSortBy
sortBy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
jobId
instance Data.ToHeaders GetContentModeration where
toHeaders :: GetContentModeration -> 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
"RekognitionService.GetContentModeration" ::
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 GetContentModeration where
toJSON :: GetContentModeration -> Value
toJSON GetContentModeration' {Maybe Natural
Maybe Text
Maybe ContentModerationSortBy
Text
jobId :: Text
sortBy :: Maybe ContentModerationSortBy
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:jobId:GetContentModeration' :: GetContentModeration -> Text
$sel:sortBy:GetContentModeration' :: GetContentModeration -> Maybe ContentModerationSortBy
$sel:nextToken:GetContentModeration' :: GetContentModeration -> Maybe Text
$sel:maxResults:GetContentModeration' :: GetContentModeration -> 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,
(Key
"SortBy" 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 ContentModerationSortBy
sortBy,
forall a. a -> Maybe a
Prelude.Just (Key
"JobId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
jobId)
]
)
instance Data.ToPath GetContentModeration where
toPath :: GetContentModeration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetContentModeration where
toQuery :: GetContentModeration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetContentModerationResponse = GetContentModerationResponse'
{
GetContentModerationResponse -> Maybe VideoJobStatus
jobStatus :: Prelude.Maybe VideoJobStatus,
GetContentModerationResponse -> Maybe [ContentModerationDetection]
moderationLabels :: Prelude.Maybe [ContentModerationDetection],
GetContentModerationResponse -> Maybe Text
moderationModelVersion :: Prelude.Maybe Prelude.Text,
GetContentModerationResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetContentModerationResponse -> Maybe Text
statusMessage :: Prelude.Maybe Prelude.Text,
GetContentModerationResponse -> Maybe VideoMetadata
videoMetadata :: Prelude.Maybe VideoMetadata,
GetContentModerationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetContentModerationResponse
-> GetContentModerationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetContentModerationResponse
-> GetContentModerationResponse -> Bool
$c/= :: GetContentModerationResponse
-> GetContentModerationResponse -> Bool
== :: GetContentModerationResponse
-> GetContentModerationResponse -> Bool
$c== :: GetContentModerationResponse
-> GetContentModerationResponse -> Bool
Prelude.Eq, ReadPrec [GetContentModerationResponse]
ReadPrec GetContentModerationResponse
Int -> ReadS GetContentModerationResponse
ReadS [GetContentModerationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetContentModerationResponse]
$creadListPrec :: ReadPrec [GetContentModerationResponse]
readPrec :: ReadPrec GetContentModerationResponse
$creadPrec :: ReadPrec GetContentModerationResponse
readList :: ReadS [GetContentModerationResponse]
$creadList :: ReadS [GetContentModerationResponse]
readsPrec :: Int -> ReadS GetContentModerationResponse
$creadsPrec :: Int -> ReadS GetContentModerationResponse
Prelude.Read, Int -> GetContentModerationResponse -> ShowS
[GetContentModerationResponse] -> ShowS
GetContentModerationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetContentModerationResponse] -> ShowS
$cshowList :: [GetContentModerationResponse] -> ShowS
show :: GetContentModerationResponse -> String
$cshow :: GetContentModerationResponse -> String
showsPrec :: Int -> GetContentModerationResponse -> ShowS
$cshowsPrec :: Int -> GetContentModerationResponse -> ShowS
Prelude.Show, forall x.
Rep GetContentModerationResponse x -> GetContentModerationResponse
forall x.
GetContentModerationResponse -> Rep GetContentModerationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetContentModerationResponse x -> GetContentModerationResponse
$cfrom :: forall x.
GetContentModerationResponse -> Rep GetContentModerationResponse x
Prelude.Generic)
newGetContentModerationResponse ::
Prelude.Int ->
GetContentModerationResponse
newGetContentModerationResponse :: Int -> GetContentModerationResponse
newGetContentModerationResponse Int
pHttpStatus_ =
GetContentModerationResponse'
{ $sel:jobStatus:GetContentModerationResponse' :: Maybe VideoJobStatus
jobStatus =
forall a. Maybe a
Prelude.Nothing,
$sel:moderationLabels:GetContentModerationResponse' :: Maybe [ContentModerationDetection]
moderationLabels = forall a. Maybe a
Prelude.Nothing,
$sel:moderationModelVersion:GetContentModerationResponse' :: Maybe Text
moderationModelVersion = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetContentModerationResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:statusMessage:GetContentModerationResponse' :: Maybe Text
statusMessage = forall a. Maybe a
Prelude.Nothing,
$sel:videoMetadata:GetContentModerationResponse' :: Maybe VideoMetadata
videoMetadata = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetContentModerationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getContentModerationResponse_jobStatus :: Lens.Lens' GetContentModerationResponse (Prelude.Maybe VideoJobStatus)
getContentModerationResponse_jobStatus :: Lens' GetContentModerationResponse (Maybe VideoJobStatus)
getContentModerationResponse_jobStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModerationResponse' {Maybe VideoJobStatus
jobStatus :: Maybe VideoJobStatus
$sel:jobStatus:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe VideoJobStatus
jobStatus} -> Maybe VideoJobStatus
jobStatus) (\s :: GetContentModerationResponse
s@GetContentModerationResponse' {} Maybe VideoJobStatus
a -> GetContentModerationResponse
s {$sel:jobStatus:GetContentModerationResponse' :: Maybe VideoJobStatus
jobStatus = Maybe VideoJobStatus
a} :: GetContentModerationResponse)
getContentModerationResponse_moderationLabels :: Lens.Lens' GetContentModerationResponse (Prelude.Maybe [ContentModerationDetection])
getContentModerationResponse_moderationLabels :: Lens'
GetContentModerationResponse (Maybe [ContentModerationDetection])
getContentModerationResponse_moderationLabels = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModerationResponse' {Maybe [ContentModerationDetection]
moderationLabels :: Maybe [ContentModerationDetection]
$sel:moderationLabels:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe [ContentModerationDetection]
moderationLabels} -> Maybe [ContentModerationDetection]
moderationLabels) (\s :: GetContentModerationResponse
s@GetContentModerationResponse' {} Maybe [ContentModerationDetection]
a -> GetContentModerationResponse
s {$sel:moderationLabels:GetContentModerationResponse' :: Maybe [ContentModerationDetection]
moderationLabels = Maybe [ContentModerationDetection]
a} :: GetContentModerationResponse) 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
getContentModerationResponse_moderationModelVersion :: Lens.Lens' GetContentModerationResponse (Prelude.Maybe Prelude.Text)
getContentModerationResponse_moderationModelVersion :: Lens' GetContentModerationResponse (Maybe Text)
getContentModerationResponse_moderationModelVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModerationResponse' {Maybe Text
moderationModelVersion :: Maybe Text
$sel:moderationModelVersion:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe Text
moderationModelVersion} -> Maybe Text
moderationModelVersion) (\s :: GetContentModerationResponse
s@GetContentModerationResponse' {} Maybe Text
a -> GetContentModerationResponse
s {$sel:moderationModelVersion:GetContentModerationResponse' :: Maybe Text
moderationModelVersion = Maybe Text
a} :: GetContentModerationResponse)
getContentModerationResponse_nextToken :: Lens.Lens' GetContentModerationResponse (Prelude.Maybe Prelude.Text)
getContentModerationResponse_nextToken :: Lens' GetContentModerationResponse (Maybe Text)
getContentModerationResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModerationResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetContentModerationResponse
s@GetContentModerationResponse' {} Maybe Text
a -> GetContentModerationResponse
s {$sel:nextToken:GetContentModerationResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetContentModerationResponse)
getContentModerationResponse_statusMessage :: Lens.Lens' GetContentModerationResponse (Prelude.Maybe Prelude.Text)
getContentModerationResponse_statusMessage :: Lens' GetContentModerationResponse (Maybe Text)
getContentModerationResponse_statusMessage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModerationResponse' {Maybe Text
statusMessage :: Maybe Text
$sel:statusMessage:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe Text
statusMessage} -> Maybe Text
statusMessage) (\s :: GetContentModerationResponse
s@GetContentModerationResponse' {} Maybe Text
a -> GetContentModerationResponse
s {$sel:statusMessage:GetContentModerationResponse' :: Maybe Text
statusMessage = Maybe Text
a} :: GetContentModerationResponse)
getContentModerationResponse_videoMetadata :: Lens.Lens' GetContentModerationResponse (Prelude.Maybe VideoMetadata)
getContentModerationResponse_videoMetadata :: Lens' GetContentModerationResponse (Maybe VideoMetadata)
getContentModerationResponse_videoMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModerationResponse' {Maybe VideoMetadata
videoMetadata :: Maybe VideoMetadata
$sel:videoMetadata:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe VideoMetadata
videoMetadata} -> Maybe VideoMetadata
videoMetadata) (\s :: GetContentModerationResponse
s@GetContentModerationResponse' {} Maybe VideoMetadata
a -> GetContentModerationResponse
s {$sel:videoMetadata:GetContentModerationResponse' :: Maybe VideoMetadata
videoMetadata = Maybe VideoMetadata
a} :: GetContentModerationResponse)
getContentModerationResponse_httpStatus :: Lens.Lens' GetContentModerationResponse Prelude.Int
getContentModerationResponse_httpStatus :: Lens' GetContentModerationResponse Int
getContentModerationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetContentModerationResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetContentModerationResponse' :: GetContentModerationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetContentModerationResponse
s@GetContentModerationResponse' {} Int
a -> GetContentModerationResponse
s {$sel:httpStatus:GetContentModerationResponse' :: Int
httpStatus = Int
a} :: GetContentModerationResponse)
instance Prelude.NFData GetContentModerationResponse where
rnf :: GetContentModerationResponse -> ()
rnf GetContentModerationResponse' {Int
Maybe [ContentModerationDetection]
Maybe Text
Maybe VideoJobStatus
Maybe VideoMetadata
httpStatus :: Int
videoMetadata :: Maybe VideoMetadata
statusMessage :: Maybe Text
nextToken :: Maybe Text
moderationModelVersion :: Maybe Text
moderationLabels :: Maybe [ContentModerationDetection]
jobStatus :: Maybe VideoJobStatus
$sel:httpStatus:GetContentModerationResponse' :: GetContentModerationResponse -> Int
$sel:videoMetadata:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe VideoMetadata
$sel:statusMessage:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe Text
$sel:nextToken:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe Text
$sel:moderationModelVersion:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe Text
$sel:moderationLabels:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe [ContentModerationDetection]
$sel:jobStatus:GetContentModerationResponse' :: GetContentModerationResponse -> Maybe VideoJobStatus
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe VideoJobStatus
jobStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ContentModerationDetection]
moderationLabels
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
moderationModelVersion
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
statusMessage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe VideoMetadata
videoMetadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus