{-# 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.DetectLabels
(
DetectLabels (..),
newDetectLabels,
detectLabels_features,
detectLabels_maxLabels,
detectLabels_minConfidence,
detectLabels_settings,
detectLabels_image,
DetectLabelsResponse (..),
newDetectLabelsResponse,
detectLabelsResponse_imageProperties,
detectLabelsResponse_labelModelVersion,
detectLabelsResponse_labels,
detectLabelsResponse_orientationCorrection,
detectLabelsResponse_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 DetectLabels = DetectLabels'
{
DetectLabels -> Maybe [DetectLabelsFeatureName]
features :: Prelude.Maybe [DetectLabelsFeatureName],
DetectLabels -> Maybe Natural
maxLabels :: Prelude.Maybe Prelude.Natural,
DetectLabels -> Maybe Double
minConfidence :: Prelude.Maybe Prelude.Double,
DetectLabels -> Maybe DetectLabelsSettings
settings :: Prelude.Maybe DetectLabelsSettings,
DetectLabels -> Image
image :: Image
}
deriving (DetectLabels -> DetectLabels -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DetectLabels -> DetectLabels -> Bool
$c/= :: DetectLabels -> DetectLabels -> Bool
== :: DetectLabels -> DetectLabels -> Bool
$c== :: DetectLabels -> DetectLabels -> Bool
Prelude.Eq, ReadPrec [DetectLabels]
ReadPrec DetectLabels
Int -> ReadS DetectLabels
ReadS [DetectLabels]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DetectLabels]
$creadListPrec :: ReadPrec [DetectLabels]
readPrec :: ReadPrec DetectLabels
$creadPrec :: ReadPrec DetectLabels
readList :: ReadS [DetectLabels]
$creadList :: ReadS [DetectLabels]
readsPrec :: Int -> ReadS DetectLabels
$creadsPrec :: Int -> ReadS DetectLabels
Prelude.Read, Int -> DetectLabels -> ShowS
[DetectLabels] -> ShowS
DetectLabels -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DetectLabels] -> ShowS
$cshowList :: [DetectLabels] -> ShowS
show :: DetectLabels -> String
$cshow :: DetectLabels -> String
showsPrec :: Int -> DetectLabels -> ShowS
$cshowsPrec :: Int -> DetectLabels -> ShowS
Prelude.Show, forall x. Rep DetectLabels x -> DetectLabels
forall x. DetectLabels -> Rep DetectLabels x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DetectLabels x -> DetectLabels
$cfrom :: forall x. DetectLabels -> Rep DetectLabels x
Prelude.Generic)
newDetectLabels ::
Image ->
DetectLabels
newDetectLabels :: Image -> DetectLabels
newDetectLabels Image
pImage_ =
DetectLabels'
{ $sel:features:DetectLabels' :: Maybe [DetectLabelsFeatureName]
features = forall a. Maybe a
Prelude.Nothing,
$sel:maxLabels:DetectLabels' :: Maybe Natural
maxLabels = forall a. Maybe a
Prelude.Nothing,
$sel:minConfidence:DetectLabels' :: Maybe Double
minConfidence = forall a. Maybe a
Prelude.Nothing,
$sel:settings:DetectLabels' :: Maybe DetectLabelsSettings
settings = forall a. Maybe a
Prelude.Nothing,
$sel:image:DetectLabels' :: Image
image = Image
pImage_
}
detectLabels_features :: Lens.Lens' DetectLabels (Prelude.Maybe [DetectLabelsFeatureName])
detectLabels_features :: Lens' DetectLabels (Maybe [DetectLabelsFeatureName])
detectLabels_features = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabels' {Maybe [DetectLabelsFeatureName]
features :: Maybe [DetectLabelsFeatureName]
$sel:features:DetectLabels' :: DetectLabels -> Maybe [DetectLabelsFeatureName]
features} -> Maybe [DetectLabelsFeatureName]
features) (\s :: DetectLabels
s@DetectLabels' {} Maybe [DetectLabelsFeatureName]
a -> DetectLabels
s {$sel:features:DetectLabels' :: Maybe [DetectLabelsFeatureName]
features = Maybe [DetectLabelsFeatureName]
a} :: DetectLabels) 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
detectLabels_maxLabels :: Lens.Lens' DetectLabels (Prelude.Maybe Prelude.Natural)
detectLabels_maxLabels :: Lens' DetectLabels (Maybe Natural)
detectLabels_maxLabels = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabels' {Maybe Natural
maxLabels :: Maybe Natural
$sel:maxLabels:DetectLabels' :: DetectLabels -> Maybe Natural
maxLabels} -> Maybe Natural
maxLabels) (\s :: DetectLabels
s@DetectLabels' {} Maybe Natural
a -> DetectLabels
s {$sel:maxLabels:DetectLabels' :: Maybe Natural
maxLabels = Maybe Natural
a} :: DetectLabels)
detectLabels_minConfidence :: Lens.Lens' DetectLabels (Prelude.Maybe Prelude.Double)
detectLabels_minConfidence :: Lens' DetectLabels (Maybe Double)
detectLabels_minConfidence = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabels' {Maybe Double
minConfidence :: Maybe Double
$sel:minConfidence:DetectLabels' :: DetectLabels -> Maybe Double
minConfidence} -> Maybe Double
minConfidence) (\s :: DetectLabels
s@DetectLabels' {} Maybe Double
a -> DetectLabels
s {$sel:minConfidence:DetectLabels' :: Maybe Double
minConfidence = Maybe Double
a} :: DetectLabels)
detectLabels_settings :: Lens.Lens' DetectLabels (Prelude.Maybe DetectLabelsSettings)
detectLabels_settings :: Lens' DetectLabels (Maybe DetectLabelsSettings)
detectLabels_settings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabels' {Maybe DetectLabelsSettings
settings :: Maybe DetectLabelsSettings
$sel:settings:DetectLabels' :: DetectLabels -> Maybe DetectLabelsSettings
settings} -> Maybe DetectLabelsSettings
settings) (\s :: DetectLabels
s@DetectLabels' {} Maybe DetectLabelsSettings
a -> DetectLabels
s {$sel:settings:DetectLabels' :: Maybe DetectLabelsSettings
settings = Maybe DetectLabelsSettings
a} :: DetectLabels)
detectLabels_image :: Lens.Lens' DetectLabels Image
detectLabels_image :: Lens' DetectLabels Image
detectLabels_image = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabels' {Image
image :: Image
$sel:image:DetectLabels' :: DetectLabels -> Image
image} -> Image
image) (\s :: DetectLabels
s@DetectLabels' {} Image
a -> DetectLabels
s {$sel:image:DetectLabels' :: Image
image = Image
a} :: DetectLabels)
instance Core.AWSRequest DetectLabels where
type AWSResponse DetectLabels = DetectLabelsResponse
request :: (Service -> Service) -> DetectLabels -> Request DetectLabels
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 DetectLabels
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DetectLabels)))
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 DetectLabelsImageProperties
-> Maybe Text
-> Maybe [Label]
-> Maybe OrientationCorrection
-> Int
-> DetectLabelsResponse
DetectLabelsResponse'
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
"ImageProperties")
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
"OrientationCorrection")
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 DetectLabels where
hashWithSalt :: Int -> DetectLabels -> Int
hashWithSalt Int
_salt DetectLabels' {Maybe Double
Maybe Natural
Maybe [DetectLabelsFeatureName]
Maybe DetectLabelsSettings
Image
image :: Image
settings :: Maybe DetectLabelsSettings
minConfidence :: Maybe Double
maxLabels :: Maybe Natural
features :: Maybe [DetectLabelsFeatureName]
$sel:image:DetectLabels' :: DetectLabels -> Image
$sel:settings:DetectLabels' :: DetectLabels -> Maybe DetectLabelsSettings
$sel:minConfidence:DetectLabels' :: DetectLabels -> Maybe Double
$sel:maxLabels:DetectLabels' :: DetectLabels -> Maybe Natural
$sel:features:DetectLabels' :: DetectLabels -> Maybe [DetectLabelsFeatureName]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [DetectLabelsFeatureName]
features
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxLabels
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
minConfidence
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DetectLabelsSettings
settings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Image
image
instance Prelude.NFData DetectLabels where
rnf :: DetectLabels -> ()
rnf DetectLabels' {Maybe Double
Maybe Natural
Maybe [DetectLabelsFeatureName]
Maybe DetectLabelsSettings
Image
image :: Image
settings :: Maybe DetectLabelsSettings
minConfidence :: Maybe Double
maxLabels :: Maybe Natural
features :: Maybe [DetectLabelsFeatureName]
$sel:image:DetectLabels' :: DetectLabels -> Image
$sel:settings:DetectLabels' :: DetectLabels -> Maybe DetectLabelsSettings
$sel:minConfidence:DetectLabels' :: DetectLabels -> Maybe Double
$sel:maxLabels:DetectLabels' :: DetectLabels -> Maybe Natural
$sel:features:DetectLabels' :: DetectLabels -> Maybe [DetectLabelsFeatureName]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [DetectLabelsFeatureName]
features
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxLabels
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
minConfidence
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DetectLabelsSettings
settings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Image
image
instance Data.ToHeaders DetectLabels where
toHeaders :: DetectLabels -> 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.DetectLabels" ::
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 DetectLabels where
toJSON :: DetectLabels -> Value
toJSON DetectLabels' {Maybe Double
Maybe Natural
Maybe [DetectLabelsFeatureName]
Maybe DetectLabelsSettings
Image
image :: Image
settings :: Maybe DetectLabelsSettings
minConfidence :: Maybe Double
maxLabels :: Maybe Natural
features :: Maybe [DetectLabelsFeatureName]
$sel:image:DetectLabels' :: DetectLabels -> Image
$sel:settings:DetectLabels' :: DetectLabels -> Maybe DetectLabelsSettings
$sel:minConfidence:DetectLabels' :: DetectLabels -> Maybe Double
$sel:maxLabels:DetectLabels' :: DetectLabels -> Maybe Natural
$sel:features:DetectLabels' :: DetectLabels -> Maybe [DetectLabelsFeatureName]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Features" 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 [DetectLabelsFeatureName]
features,
(Key
"MaxLabels" 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
maxLabels,
(Key
"MinConfidence" 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 Double
minConfidence,
(Key
"Settings" 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 DetectLabelsSettings
settings,
forall a. a -> Maybe a
Prelude.Just (Key
"Image" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Image
image)
]
)
instance Data.ToPath DetectLabels where
toPath :: DetectLabels -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DetectLabels where
toQuery :: DetectLabels -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DetectLabelsResponse = DetectLabelsResponse'
{
DetectLabelsResponse -> Maybe DetectLabelsImageProperties
imageProperties :: Prelude.Maybe DetectLabelsImageProperties,
DetectLabelsResponse -> Maybe Text
labelModelVersion :: Prelude.Maybe Prelude.Text,
DetectLabelsResponse -> Maybe [Label]
labels :: Prelude.Maybe [Label],
DetectLabelsResponse -> Maybe OrientationCorrection
orientationCorrection :: Prelude.Maybe OrientationCorrection,
DetectLabelsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DetectLabelsResponse -> DetectLabelsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DetectLabelsResponse -> DetectLabelsResponse -> Bool
$c/= :: DetectLabelsResponse -> DetectLabelsResponse -> Bool
== :: DetectLabelsResponse -> DetectLabelsResponse -> Bool
$c== :: DetectLabelsResponse -> DetectLabelsResponse -> Bool
Prelude.Eq, ReadPrec [DetectLabelsResponse]
ReadPrec DetectLabelsResponse
Int -> ReadS DetectLabelsResponse
ReadS [DetectLabelsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DetectLabelsResponse]
$creadListPrec :: ReadPrec [DetectLabelsResponse]
readPrec :: ReadPrec DetectLabelsResponse
$creadPrec :: ReadPrec DetectLabelsResponse
readList :: ReadS [DetectLabelsResponse]
$creadList :: ReadS [DetectLabelsResponse]
readsPrec :: Int -> ReadS DetectLabelsResponse
$creadsPrec :: Int -> ReadS DetectLabelsResponse
Prelude.Read, Int -> DetectLabelsResponse -> ShowS
[DetectLabelsResponse] -> ShowS
DetectLabelsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DetectLabelsResponse] -> ShowS
$cshowList :: [DetectLabelsResponse] -> ShowS
show :: DetectLabelsResponse -> String
$cshow :: DetectLabelsResponse -> String
showsPrec :: Int -> DetectLabelsResponse -> ShowS
$cshowsPrec :: Int -> DetectLabelsResponse -> ShowS
Prelude.Show, forall x. Rep DetectLabelsResponse x -> DetectLabelsResponse
forall x. DetectLabelsResponse -> Rep DetectLabelsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DetectLabelsResponse x -> DetectLabelsResponse
$cfrom :: forall x. DetectLabelsResponse -> Rep DetectLabelsResponse x
Prelude.Generic)
newDetectLabelsResponse ::
Prelude.Int ->
DetectLabelsResponse
newDetectLabelsResponse :: Int -> DetectLabelsResponse
newDetectLabelsResponse Int
pHttpStatus_ =
DetectLabelsResponse'
{ $sel:imageProperties:DetectLabelsResponse' :: Maybe DetectLabelsImageProperties
imageProperties =
forall a. Maybe a
Prelude.Nothing,
$sel:labelModelVersion:DetectLabelsResponse' :: Maybe Text
labelModelVersion = forall a. Maybe a
Prelude.Nothing,
$sel:labels:DetectLabelsResponse' :: Maybe [Label]
labels = forall a. Maybe a
Prelude.Nothing,
$sel:orientationCorrection:DetectLabelsResponse' :: Maybe OrientationCorrection
orientationCorrection = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DetectLabelsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
detectLabelsResponse_imageProperties :: Lens.Lens' DetectLabelsResponse (Prelude.Maybe DetectLabelsImageProperties)
detectLabelsResponse_imageProperties :: Lens' DetectLabelsResponse (Maybe DetectLabelsImageProperties)
detectLabelsResponse_imageProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabelsResponse' {Maybe DetectLabelsImageProperties
imageProperties :: Maybe DetectLabelsImageProperties
$sel:imageProperties:DetectLabelsResponse' :: DetectLabelsResponse -> Maybe DetectLabelsImageProperties
imageProperties} -> Maybe DetectLabelsImageProperties
imageProperties) (\s :: DetectLabelsResponse
s@DetectLabelsResponse' {} Maybe DetectLabelsImageProperties
a -> DetectLabelsResponse
s {$sel:imageProperties:DetectLabelsResponse' :: Maybe DetectLabelsImageProperties
imageProperties = Maybe DetectLabelsImageProperties
a} :: DetectLabelsResponse)
detectLabelsResponse_labelModelVersion :: Lens.Lens' DetectLabelsResponse (Prelude.Maybe Prelude.Text)
detectLabelsResponse_labelModelVersion :: Lens' DetectLabelsResponse (Maybe Text)
detectLabelsResponse_labelModelVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabelsResponse' {Maybe Text
labelModelVersion :: Maybe Text
$sel:labelModelVersion:DetectLabelsResponse' :: DetectLabelsResponse -> Maybe Text
labelModelVersion} -> Maybe Text
labelModelVersion) (\s :: DetectLabelsResponse
s@DetectLabelsResponse' {} Maybe Text
a -> DetectLabelsResponse
s {$sel:labelModelVersion:DetectLabelsResponse' :: Maybe Text
labelModelVersion = Maybe Text
a} :: DetectLabelsResponse)
detectLabelsResponse_labels :: Lens.Lens' DetectLabelsResponse (Prelude.Maybe [Label])
detectLabelsResponse_labels :: Lens' DetectLabelsResponse (Maybe [Label])
detectLabelsResponse_labels = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabelsResponse' {Maybe [Label]
labels :: Maybe [Label]
$sel:labels:DetectLabelsResponse' :: DetectLabelsResponse -> Maybe [Label]
labels} -> Maybe [Label]
labels) (\s :: DetectLabelsResponse
s@DetectLabelsResponse' {} Maybe [Label]
a -> DetectLabelsResponse
s {$sel:labels:DetectLabelsResponse' :: Maybe [Label]
labels = Maybe [Label]
a} :: DetectLabelsResponse) 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
detectLabelsResponse_orientationCorrection :: Lens.Lens' DetectLabelsResponse (Prelude.Maybe OrientationCorrection)
detectLabelsResponse_orientationCorrection :: Lens' DetectLabelsResponse (Maybe OrientationCorrection)
detectLabelsResponse_orientationCorrection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabelsResponse' {Maybe OrientationCorrection
orientationCorrection :: Maybe OrientationCorrection
$sel:orientationCorrection:DetectLabelsResponse' :: DetectLabelsResponse -> Maybe OrientationCorrection
orientationCorrection} -> Maybe OrientationCorrection
orientationCorrection) (\s :: DetectLabelsResponse
s@DetectLabelsResponse' {} Maybe OrientationCorrection
a -> DetectLabelsResponse
s {$sel:orientationCorrection:DetectLabelsResponse' :: Maybe OrientationCorrection
orientationCorrection = Maybe OrientationCorrection
a} :: DetectLabelsResponse)
detectLabelsResponse_httpStatus :: Lens.Lens' DetectLabelsResponse Prelude.Int
detectLabelsResponse_httpStatus :: Lens' DetectLabelsResponse Int
detectLabelsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetectLabelsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DetectLabelsResponse' :: DetectLabelsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DetectLabelsResponse
s@DetectLabelsResponse' {} Int
a -> DetectLabelsResponse
s {$sel:httpStatus:DetectLabelsResponse' :: Int
httpStatus = Int
a} :: DetectLabelsResponse)
instance Prelude.NFData DetectLabelsResponse where
rnf :: DetectLabelsResponse -> ()
rnf DetectLabelsResponse' {Int
Maybe [Label]
Maybe Text
Maybe DetectLabelsImageProperties
Maybe OrientationCorrection
httpStatus :: Int
orientationCorrection :: Maybe OrientationCorrection
labels :: Maybe [Label]
labelModelVersion :: Maybe Text
imageProperties :: Maybe DetectLabelsImageProperties
$sel:httpStatus:DetectLabelsResponse' :: DetectLabelsResponse -> Int
$sel:orientationCorrection:DetectLabelsResponse' :: DetectLabelsResponse -> Maybe OrientationCorrection
$sel:labels:DetectLabelsResponse' :: DetectLabelsResponse -> Maybe [Label]
$sel:labelModelVersion:DetectLabelsResponse' :: DetectLabelsResponse -> Maybe Text
$sel:imageProperties:DetectLabelsResponse' :: DetectLabelsResponse -> Maybe DetectLabelsImageProperties
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DetectLabelsImageProperties
imageProperties
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 [Label]
labels
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OrientationCorrection
orientationCorrection
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus