{-# 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.GetLabelDetection
(
GetLabelDetection (..),
newGetLabelDetection,
getLabelDetection_aggregateBy,
getLabelDetection_maxResults,
getLabelDetection_nextToken,
getLabelDetection_sortBy,
getLabelDetection_jobId,
GetLabelDetectionResponse (..),
newGetLabelDetectionResponse,
getLabelDetectionResponse_jobStatus,
getLabelDetectionResponse_labelModelVersion,
getLabelDetectionResponse_labels,
getLabelDetectionResponse_nextToken,
getLabelDetectionResponse_statusMessage,
getLabelDetectionResponse_videoMetadata,
getLabelDetectionResponse_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 GetLabelDetection = GetLabelDetection'
{
GetLabelDetection -> Maybe LabelDetectionAggregateBy
aggregateBy :: Prelude.Maybe LabelDetectionAggregateBy,
GetLabelDetection -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
GetLabelDetection -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetLabelDetection -> Maybe LabelDetectionSortBy
sortBy :: Prelude.Maybe LabelDetectionSortBy,
GetLabelDetection -> Text
jobId :: Prelude.Text
}
deriving (GetLabelDetection -> GetLabelDetection -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetLabelDetection -> GetLabelDetection -> Bool
$c/= :: GetLabelDetection -> GetLabelDetection -> Bool
== :: GetLabelDetection -> GetLabelDetection -> Bool
$c== :: GetLabelDetection -> GetLabelDetection -> Bool
Prelude.Eq, ReadPrec [GetLabelDetection]
ReadPrec GetLabelDetection
Int -> ReadS GetLabelDetection
ReadS [GetLabelDetection]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetLabelDetection]
$creadListPrec :: ReadPrec [GetLabelDetection]
readPrec :: ReadPrec GetLabelDetection
$creadPrec :: ReadPrec GetLabelDetection
readList :: ReadS [GetLabelDetection]
$creadList :: ReadS [GetLabelDetection]
readsPrec :: Int -> ReadS GetLabelDetection
$creadsPrec :: Int -> ReadS GetLabelDetection
Prelude.Read, Int -> GetLabelDetection -> ShowS
[GetLabelDetection] -> ShowS
GetLabelDetection -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetLabelDetection] -> ShowS
$cshowList :: [GetLabelDetection] -> ShowS
show :: GetLabelDetection -> String
$cshow :: GetLabelDetection -> String
showsPrec :: Int -> GetLabelDetection -> ShowS
$cshowsPrec :: Int -> GetLabelDetection -> ShowS
Prelude.Show, forall x. Rep GetLabelDetection x -> GetLabelDetection
forall x. GetLabelDetection -> Rep GetLabelDetection x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetLabelDetection x -> GetLabelDetection
$cfrom :: forall x. GetLabelDetection -> Rep GetLabelDetection x
Prelude.Generic)
newGetLabelDetection ::
Prelude.Text ->
GetLabelDetection
newGetLabelDetection :: Text -> GetLabelDetection
newGetLabelDetection Text
pJobId_ =
GetLabelDetection'
{ $sel:aggregateBy:GetLabelDetection' :: Maybe LabelDetectionAggregateBy
aggregateBy = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:GetLabelDetection' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetLabelDetection' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:sortBy:GetLabelDetection' :: Maybe LabelDetectionSortBy
sortBy = forall a. Maybe a
Prelude.Nothing,
$sel:jobId:GetLabelDetection' :: Text
jobId = Text
pJobId_
}
getLabelDetection_aggregateBy :: Lens.Lens' GetLabelDetection (Prelude.Maybe LabelDetectionAggregateBy)
getLabelDetection_aggregateBy :: Lens' GetLabelDetection (Maybe LabelDetectionAggregateBy)
getLabelDetection_aggregateBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetection' {Maybe LabelDetectionAggregateBy
aggregateBy :: Maybe LabelDetectionAggregateBy
$sel:aggregateBy:GetLabelDetection' :: GetLabelDetection -> Maybe LabelDetectionAggregateBy
aggregateBy} -> Maybe LabelDetectionAggregateBy
aggregateBy) (\s :: GetLabelDetection
s@GetLabelDetection' {} Maybe LabelDetectionAggregateBy
a -> GetLabelDetection
s {$sel:aggregateBy:GetLabelDetection' :: Maybe LabelDetectionAggregateBy
aggregateBy = Maybe LabelDetectionAggregateBy
a} :: GetLabelDetection)
getLabelDetection_maxResults :: Lens.Lens' GetLabelDetection (Prelude.Maybe Prelude.Natural)
getLabelDetection_maxResults :: Lens' GetLabelDetection (Maybe Natural)
getLabelDetection_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetection' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:GetLabelDetection' :: GetLabelDetection -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: GetLabelDetection
s@GetLabelDetection' {} Maybe Natural
a -> GetLabelDetection
s {$sel:maxResults:GetLabelDetection' :: Maybe Natural
maxResults = Maybe Natural
a} :: GetLabelDetection)
getLabelDetection_nextToken :: Lens.Lens' GetLabelDetection (Prelude.Maybe Prelude.Text)
getLabelDetection_nextToken :: Lens' GetLabelDetection (Maybe Text)
getLabelDetection_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetection' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetLabelDetection' :: GetLabelDetection -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetLabelDetection
s@GetLabelDetection' {} Maybe Text
a -> GetLabelDetection
s {$sel:nextToken:GetLabelDetection' :: Maybe Text
nextToken = Maybe Text
a} :: GetLabelDetection)
getLabelDetection_sortBy :: Lens.Lens' GetLabelDetection (Prelude.Maybe LabelDetectionSortBy)
getLabelDetection_sortBy :: Lens' GetLabelDetection (Maybe LabelDetectionSortBy)
getLabelDetection_sortBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetection' {Maybe LabelDetectionSortBy
sortBy :: Maybe LabelDetectionSortBy
$sel:sortBy:GetLabelDetection' :: GetLabelDetection -> Maybe LabelDetectionSortBy
sortBy} -> Maybe LabelDetectionSortBy
sortBy) (\s :: GetLabelDetection
s@GetLabelDetection' {} Maybe LabelDetectionSortBy
a -> GetLabelDetection
s {$sel:sortBy:GetLabelDetection' :: Maybe LabelDetectionSortBy
sortBy = Maybe LabelDetectionSortBy
a} :: GetLabelDetection)
getLabelDetection_jobId :: Lens.Lens' GetLabelDetection Prelude.Text
getLabelDetection_jobId :: Lens' GetLabelDetection Text
getLabelDetection_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetection' {Text
jobId :: Text
$sel:jobId:GetLabelDetection' :: GetLabelDetection -> Text
jobId} -> Text
jobId) (\s :: GetLabelDetection
s@GetLabelDetection' {} Text
a -> GetLabelDetection
s {$sel:jobId:GetLabelDetection' :: Text
jobId = Text
a} :: GetLabelDetection)
instance Core.AWSRequest GetLabelDetection where
type
AWSResponse GetLabelDetection =
GetLabelDetectionResponse
request :: (Service -> Service)
-> GetLabelDetection -> Request GetLabelDetection
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 GetLabelDetection
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetLabelDetection)))
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 Text
-> Maybe [LabelDetection]
-> Maybe Text
-> Maybe Text
-> Maybe VideoMetadata
-> Int
-> GetLabelDetectionResponse
GetLabelDetectionResponse'
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
"LabelModelVersion")
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
"Labels" 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
"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 GetLabelDetection where
hashWithSalt :: Int -> GetLabelDetection -> Int
hashWithSalt Int
_salt GetLabelDetection' {Maybe Natural
Maybe Text
Maybe LabelDetectionAggregateBy
Maybe LabelDetectionSortBy
Text
jobId :: Text
sortBy :: Maybe LabelDetectionSortBy
nextToken :: Maybe Text
maxResults :: Maybe Natural
aggregateBy :: Maybe LabelDetectionAggregateBy
$sel:jobId:GetLabelDetection' :: GetLabelDetection -> Text
$sel:sortBy:GetLabelDetection' :: GetLabelDetection -> Maybe LabelDetectionSortBy
$sel:nextToken:GetLabelDetection' :: GetLabelDetection -> Maybe Text
$sel:maxResults:GetLabelDetection' :: GetLabelDetection -> Maybe Natural
$sel:aggregateBy:GetLabelDetection' :: GetLabelDetection -> Maybe LabelDetectionAggregateBy
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LabelDetectionAggregateBy
aggregateBy
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 LabelDetectionSortBy
sortBy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
jobId
instance Prelude.NFData GetLabelDetection where
rnf :: GetLabelDetection -> ()
rnf GetLabelDetection' {Maybe Natural
Maybe Text
Maybe LabelDetectionAggregateBy
Maybe LabelDetectionSortBy
Text
jobId :: Text
sortBy :: Maybe LabelDetectionSortBy
nextToken :: Maybe Text
maxResults :: Maybe Natural
aggregateBy :: Maybe LabelDetectionAggregateBy
$sel:jobId:GetLabelDetection' :: GetLabelDetection -> Text
$sel:sortBy:GetLabelDetection' :: GetLabelDetection -> Maybe LabelDetectionSortBy
$sel:nextToken:GetLabelDetection' :: GetLabelDetection -> Maybe Text
$sel:maxResults:GetLabelDetection' :: GetLabelDetection -> Maybe Natural
$sel:aggregateBy:GetLabelDetection' :: GetLabelDetection -> Maybe LabelDetectionAggregateBy
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe LabelDetectionAggregateBy
aggregateBy
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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LabelDetectionSortBy
sortBy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
jobId
instance Data.ToHeaders GetLabelDetection where
toHeaders :: GetLabelDetection -> 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.GetLabelDetection" ::
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 GetLabelDetection where
toJSON :: GetLabelDetection -> Value
toJSON GetLabelDetection' {Maybe Natural
Maybe Text
Maybe LabelDetectionAggregateBy
Maybe LabelDetectionSortBy
Text
jobId :: Text
sortBy :: Maybe LabelDetectionSortBy
nextToken :: Maybe Text
maxResults :: Maybe Natural
aggregateBy :: Maybe LabelDetectionAggregateBy
$sel:jobId:GetLabelDetection' :: GetLabelDetection -> Text
$sel:sortBy:GetLabelDetection' :: GetLabelDetection -> Maybe LabelDetectionSortBy
$sel:nextToken:GetLabelDetection' :: GetLabelDetection -> Maybe Text
$sel:maxResults:GetLabelDetection' :: GetLabelDetection -> Maybe Natural
$sel:aggregateBy:GetLabelDetection' :: GetLabelDetection -> Maybe LabelDetectionAggregateBy
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AggregateBy" 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 LabelDetectionAggregateBy
aggregateBy,
(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 LabelDetectionSortBy
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 GetLabelDetection where
toPath :: GetLabelDetection -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetLabelDetection where
toQuery :: GetLabelDetection -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetLabelDetectionResponse = GetLabelDetectionResponse'
{
GetLabelDetectionResponse -> Maybe VideoJobStatus
jobStatus :: Prelude.Maybe VideoJobStatus,
GetLabelDetectionResponse -> Maybe Text
labelModelVersion :: Prelude.Maybe Prelude.Text,
GetLabelDetectionResponse -> Maybe [LabelDetection]
labels :: Prelude.Maybe [LabelDetection],
GetLabelDetectionResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetLabelDetectionResponse -> Maybe Text
statusMessage :: Prelude.Maybe Prelude.Text,
GetLabelDetectionResponse -> Maybe VideoMetadata
videoMetadata :: Prelude.Maybe VideoMetadata,
GetLabelDetectionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetLabelDetectionResponse -> GetLabelDetectionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetLabelDetectionResponse -> GetLabelDetectionResponse -> Bool
$c/= :: GetLabelDetectionResponse -> GetLabelDetectionResponse -> Bool
== :: GetLabelDetectionResponse -> GetLabelDetectionResponse -> Bool
$c== :: GetLabelDetectionResponse -> GetLabelDetectionResponse -> Bool
Prelude.Eq, ReadPrec [GetLabelDetectionResponse]
ReadPrec GetLabelDetectionResponse
Int -> ReadS GetLabelDetectionResponse
ReadS [GetLabelDetectionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetLabelDetectionResponse]
$creadListPrec :: ReadPrec [GetLabelDetectionResponse]
readPrec :: ReadPrec GetLabelDetectionResponse
$creadPrec :: ReadPrec GetLabelDetectionResponse
readList :: ReadS [GetLabelDetectionResponse]
$creadList :: ReadS [GetLabelDetectionResponse]
readsPrec :: Int -> ReadS GetLabelDetectionResponse
$creadsPrec :: Int -> ReadS GetLabelDetectionResponse
Prelude.Read, Int -> GetLabelDetectionResponse -> ShowS
[GetLabelDetectionResponse] -> ShowS
GetLabelDetectionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetLabelDetectionResponse] -> ShowS
$cshowList :: [GetLabelDetectionResponse] -> ShowS
show :: GetLabelDetectionResponse -> String
$cshow :: GetLabelDetectionResponse -> String
showsPrec :: Int -> GetLabelDetectionResponse -> ShowS
$cshowsPrec :: Int -> GetLabelDetectionResponse -> ShowS
Prelude.Show, forall x.
Rep GetLabelDetectionResponse x -> GetLabelDetectionResponse
forall x.
GetLabelDetectionResponse -> Rep GetLabelDetectionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetLabelDetectionResponse x -> GetLabelDetectionResponse
$cfrom :: forall x.
GetLabelDetectionResponse -> Rep GetLabelDetectionResponse x
Prelude.Generic)
newGetLabelDetectionResponse ::
Prelude.Int ->
GetLabelDetectionResponse
newGetLabelDetectionResponse :: Int -> GetLabelDetectionResponse
newGetLabelDetectionResponse Int
pHttpStatus_ =
GetLabelDetectionResponse'
{ $sel:jobStatus:GetLabelDetectionResponse' :: Maybe VideoJobStatus
jobStatus =
forall a. Maybe a
Prelude.Nothing,
$sel:labelModelVersion:GetLabelDetectionResponse' :: Maybe Text
labelModelVersion = forall a. Maybe a
Prelude.Nothing,
$sel:labels:GetLabelDetectionResponse' :: Maybe [LabelDetection]
labels = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetLabelDetectionResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:statusMessage:GetLabelDetectionResponse' :: Maybe Text
statusMessage = forall a. Maybe a
Prelude.Nothing,
$sel:videoMetadata:GetLabelDetectionResponse' :: Maybe VideoMetadata
videoMetadata = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetLabelDetectionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getLabelDetectionResponse_jobStatus :: Lens.Lens' GetLabelDetectionResponse (Prelude.Maybe VideoJobStatus)
getLabelDetectionResponse_jobStatus :: Lens' GetLabelDetectionResponse (Maybe VideoJobStatus)
getLabelDetectionResponse_jobStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetectionResponse' {Maybe VideoJobStatus
jobStatus :: Maybe VideoJobStatus
$sel:jobStatus:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe VideoJobStatus
jobStatus} -> Maybe VideoJobStatus
jobStatus) (\s :: GetLabelDetectionResponse
s@GetLabelDetectionResponse' {} Maybe VideoJobStatus
a -> GetLabelDetectionResponse
s {$sel:jobStatus:GetLabelDetectionResponse' :: Maybe VideoJobStatus
jobStatus = Maybe VideoJobStatus
a} :: GetLabelDetectionResponse)
getLabelDetectionResponse_labelModelVersion :: Lens.Lens' GetLabelDetectionResponse (Prelude.Maybe Prelude.Text)
getLabelDetectionResponse_labelModelVersion :: Lens' GetLabelDetectionResponse (Maybe Text)
getLabelDetectionResponse_labelModelVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetectionResponse' {Maybe Text
labelModelVersion :: Maybe Text
$sel:labelModelVersion:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe Text
labelModelVersion} -> Maybe Text
labelModelVersion) (\s :: GetLabelDetectionResponse
s@GetLabelDetectionResponse' {} Maybe Text
a -> GetLabelDetectionResponse
s {$sel:labelModelVersion:GetLabelDetectionResponse' :: Maybe Text
labelModelVersion = Maybe Text
a} :: GetLabelDetectionResponse)
getLabelDetectionResponse_labels :: Lens.Lens' GetLabelDetectionResponse (Prelude.Maybe [LabelDetection])
getLabelDetectionResponse_labels :: Lens' GetLabelDetectionResponse (Maybe [LabelDetection])
getLabelDetectionResponse_labels = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetectionResponse' {Maybe [LabelDetection]
labels :: Maybe [LabelDetection]
$sel:labels:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe [LabelDetection]
labels} -> Maybe [LabelDetection]
labels) (\s :: GetLabelDetectionResponse
s@GetLabelDetectionResponse' {} Maybe [LabelDetection]
a -> GetLabelDetectionResponse
s {$sel:labels:GetLabelDetectionResponse' :: Maybe [LabelDetection]
labels = Maybe [LabelDetection]
a} :: GetLabelDetectionResponse) 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
getLabelDetectionResponse_nextToken :: Lens.Lens' GetLabelDetectionResponse (Prelude.Maybe Prelude.Text)
getLabelDetectionResponse_nextToken :: Lens' GetLabelDetectionResponse (Maybe Text)
getLabelDetectionResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetectionResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetLabelDetectionResponse
s@GetLabelDetectionResponse' {} Maybe Text
a -> GetLabelDetectionResponse
s {$sel:nextToken:GetLabelDetectionResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetLabelDetectionResponse)
getLabelDetectionResponse_statusMessage :: Lens.Lens' GetLabelDetectionResponse (Prelude.Maybe Prelude.Text)
getLabelDetectionResponse_statusMessage :: Lens' GetLabelDetectionResponse (Maybe Text)
getLabelDetectionResponse_statusMessage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetectionResponse' {Maybe Text
statusMessage :: Maybe Text
$sel:statusMessage:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe Text
statusMessage} -> Maybe Text
statusMessage) (\s :: GetLabelDetectionResponse
s@GetLabelDetectionResponse' {} Maybe Text
a -> GetLabelDetectionResponse
s {$sel:statusMessage:GetLabelDetectionResponse' :: Maybe Text
statusMessage = Maybe Text
a} :: GetLabelDetectionResponse)
getLabelDetectionResponse_videoMetadata :: Lens.Lens' GetLabelDetectionResponse (Prelude.Maybe VideoMetadata)
getLabelDetectionResponse_videoMetadata :: Lens' GetLabelDetectionResponse (Maybe VideoMetadata)
getLabelDetectionResponse_videoMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetectionResponse' {Maybe VideoMetadata
videoMetadata :: Maybe VideoMetadata
$sel:videoMetadata:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe VideoMetadata
videoMetadata} -> Maybe VideoMetadata
videoMetadata) (\s :: GetLabelDetectionResponse
s@GetLabelDetectionResponse' {} Maybe VideoMetadata
a -> GetLabelDetectionResponse
s {$sel:videoMetadata:GetLabelDetectionResponse' :: Maybe VideoMetadata
videoMetadata = Maybe VideoMetadata
a} :: GetLabelDetectionResponse)
getLabelDetectionResponse_httpStatus :: Lens.Lens' GetLabelDetectionResponse Prelude.Int
getLabelDetectionResponse_httpStatus :: Lens' GetLabelDetectionResponse Int
getLabelDetectionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLabelDetectionResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetLabelDetectionResponse
s@GetLabelDetectionResponse' {} Int
a -> GetLabelDetectionResponse
s {$sel:httpStatus:GetLabelDetectionResponse' :: Int
httpStatus = Int
a} :: GetLabelDetectionResponse)
instance Prelude.NFData GetLabelDetectionResponse where
rnf :: GetLabelDetectionResponse -> ()
rnf GetLabelDetectionResponse' {Int
Maybe [LabelDetection]
Maybe Text
Maybe VideoJobStatus
Maybe VideoMetadata
httpStatus :: Int
videoMetadata :: Maybe VideoMetadata
statusMessage :: Maybe Text
nextToken :: Maybe Text
labels :: Maybe [LabelDetection]
labelModelVersion :: Maybe Text
jobStatus :: Maybe VideoJobStatus
$sel:httpStatus:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Int
$sel:videoMetadata:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe VideoMetadata
$sel:statusMessage:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe Text
$sel:nextToken:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe Text
$sel:labels:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe [LabelDetection]
$sel:labelModelVersion:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> Maybe Text
$sel:jobStatus:GetLabelDetectionResponse' :: GetLabelDetectionResponse -> 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 Text
labelModelVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [LabelDetection]
labels
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