{-# 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.IndexFaces
(
IndexFaces (..),
newIndexFaces,
indexFaces_detectionAttributes,
indexFaces_externalImageId,
indexFaces_maxFaces,
indexFaces_qualityFilter,
indexFaces_collectionId,
indexFaces_image,
IndexFacesResponse (..),
newIndexFacesResponse,
indexFacesResponse_faceModelVersion,
indexFacesResponse_faceRecords,
indexFacesResponse_orientationCorrection,
indexFacesResponse_unindexedFaces,
indexFacesResponse_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 IndexFaces = IndexFaces'
{
IndexFaces -> Maybe [Attribute]
detectionAttributes :: Prelude.Maybe [Attribute],
IndexFaces -> Maybe Text
externalImageId :: Prelude.Maybe Prelude.Text,
IndexFaces -> Maybe Natural
maxFaces :: Prelude.Maybe Prelude.Natural,
IndexFaces -> Maybe QualityFilter
qualityFilter :: Prelude.Maybe QualityFilter,
IndexFaces -> Text
collectionId :: Prelude.Text,
IndexFaces -> Image
image :: Image
}
deriving (IndexFaces -> IndexFaces -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IndexFaces -> IndexFaces -> Bool
$c/= :: IndexFaces -> IndexFaces -> Bool
== :: IndexFaces -> IndexFaces -> Bool
$c== :: IndexFaces -> IndexFaces -> Bool
Prelude.Eq, ReadPrec [IndexFaces]
ReadPrec IndexFaces
Int -> ReadS IndexFaces
ReadS [IndexFaces]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [IndexFaces]
$creadListPrec :: ReadPrec [IndexFaces]
readPrec :: ReadPrec IndexFaces
$creadPrec :: ReadPrec IndexFaces
readList :: ReadS [IndexFaces]
$creadList :: ReadS [IndexFaces]
readsPrec :: Int -> ReadS IndexFaces
$creadsPrec :: Int -> ReadS IndexFaces
Prelude.Read, Int -> IndexFaces -> ShowS
[IndexFaces] -> ShowS
IndexFaces -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [IndexFaces] -> ShowS
$cshowList :: [IndexFaces] -> ShowS
show :: IndexFaces -> String
$cshow :: IndexFaces -> String
showsPrec :: Int -> IndexFaces -> ShowS
$cshowsPrec :: Int -> IndexFaces -> ShowS
Prelude.Show, forall x. Rep IndexFaces x -> IndexFaces
forall x. IndexFaces -> Rep IndexFaces x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep IndexFaces x -> IndexFaces
$cfrom :: forall x. IndexFaces -> Rep IndexFaces x
Prelude.Generic)
newIndexFaces ::
Prelude.Text ->
Image ->
IndexFaces
newIndexFaces :: Text -> Image -> IndexFaces
newIndexFaces Text
pCollectionId_ Image
pImage_ =
IndexFaces'
{ $sel:detectionAttributes:IndexFaces' :: Maybe [Attribute]
detectionAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:externalImageId:IndexFaces' :: Maybe Text
externalImageId = forall a. Maybe a
Prelude.Nothing,
$sel:maxFaces:IndexFaces' :: Maybe Natural
maxFaces = forall a. Maybe a
Prelude.Nothing,
$sel:qualityFilter:IndexFaces' :: Maybe QualityFilter
qualityFilter = forall a. Maybe a
Prelude.Nothing,
$sel:collectionId:IndexFaces' :: Text
collectionId = Text
pCollectionId_,
$sel:image:IndexFaces' :: Image
image = Image
pImage_
}
indexFaces_detectionAttributes :: Lens.Lens' IndexFaces (Prelude.Maybe [Attribute])
indexFaces_detectionAttributes :: Lens' IndexFaces (Maybe [Attribute])
indexFaces_detectionAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFaces' {Maybe [Attribute]
detectionAttributes :: Maybe [Attribute]
$sel:detectionAttributes:IndexFaces' :: IndexFaces -> Maybe [Attribute]
detectionAttributes} -> Maybe [Attribute]
detectionAttributes) (\s :: IndexFaces
s@IndexFaces' {} Maybe [Attribute]
a -> IndexFaces
s {$sel:detectionAttributes:IndexFaces' :: Maybe [Attribute]
detectionAttributes = Maybe [Attribute]
a} :: IndexFaces) 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
indexFaces_externalImageId :: Lens.Lens' IndexFaces (Prelude.Maybe Prelude.Text)
indexFaces_externalImageId :: Lens' IndexFaces (Maybe Text)
indexFaces_externalImageId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFaces' {Maybe Text
externalImageId :: Maybe Text
$sel:externalImageId:IndexFaces' :: IndexFaces -> Maybe Text
externalImageId} -> Maybe Text
externalImageId) (\s :: IndexFaces
s@IndexFaces' {} Maybe Text
a -> IndexFaces
s {$sel:externalImageId:IndexFaces' :: Maybe Text
externalImageId = Maybe Text
a} :: IndexFaces)
indexFaces_maxFaces :: Lens.Lens' IndexFaces (Prelude.Maybe Prelude.Natural)
indexFaces_maxFaces :: Lens' IndexFaces (Maybe Natural)
indexFaces_maxFaces = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFaces' {Maybe Natural
maxFaces :: Maybe Natural
$sel:maxFaces:IndexFaces' :: IndexFaces -> Maybe Natural
maxFaces} -> Maybe Natural
maxFaces) (\s :: IndexFaces
s@IndexFaces' {} Maybe Natural
a -> IndexFaces
s {$sel:maxFaces:IndexFaces' :: Maybe Natural
maxFaces = Maybe Natural
a} :: IndexFaces)
indexFaces_qualityFilter :: Lens.Lens' IndexFaces (Prelude.Maybe QualityFilter)
indexFaces_qualityFilter :: Lens' IndexFaces (Maybe QualityFilter)
indexFaces_qualityFilter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFaces' {Maybe QualityFilter
qualityFilter :: Maybe QualityFilter
$sel:qualityFilter:IndexFaces' :: IndexFaces -> Maybe QualityFilter
qualityFilter} -> Maybe QualityFilter
qualityFilter) (\s :: IndexFaces
s@IndexFaces' {} Maybe QualityFilter
a -> IndexFaces
s {$sel:qualityFilter:IndexFaces' :: Maybe QualityFilter
qualityFilter = Maybe QualityFilter
a} :: IndexFaces)
indexFaces_collectionId :: Lens.Lens' IndexFaces Prelude.Text
indexFaces_collectionId :: Lens' IndexFaces Text
indexFaces_collectionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFaces' {Text
collectionId :: Text
$sel:collectionId:IndexFaces' :: IndexFaces -> Text
collectionId} -> Text
collectionId) (\s :: IndexFaces
s@IndexFaces' {} Text
a -> IndexFaces
s {$sel:collectionId:IndexFaces' :: Text
collectionId = Text
a} :: IndexFaces)
indexFaces_image :: Lens.Lens' IndexFaces Image
indexFaces_image :: Lens' IndexFaces Image
indexFaces_image = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFaces' {Image
image :: Image
$sel:image:IndexFaces' :: IndexFaces -> Image
image} -> Image
image) (\s :: IndexFaces
s@IndexFaces' {} Image
a -> IndexFaces
s {$sel:image:IndexFaces' :: Image
image = Image
a} :: IndexFaces)
instance Core.AWSRequest IndexFaces where
type AWSResponse IndexFaces = IndexFacesResponse
request :: (Service -> Service) -> IndexFaces -> Request IndexFaces
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 IndexFaces
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse IndexFaces)))
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 [FaceRecord]
-> Maybe OrientationCorrection
-> Maybe [UnindexedFace]
-> Int
-> IndexFacesResponse
IndexFacesResponse'
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
"FaceModelVersion")
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
"FaceRecords" 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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"UnindexedFaces" 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 IndexFaces where
hashWithSalt :: Int -> IndexFaces -> Int
hashWithSalt Int
_salt IndexFaces' {Maybe Natural
Maybe [Attribute]
Maybe Text
Maybe QualityFilter
Text
Image
image :: Image
collectionId :: Text
qualityFilter :: Maybe QualityFilter
maxFaces :: Maybe Natural
externalImageId :: Maybe Text
detectionAttributes :: Maybe [Attribute]
$sel:image:IndexFaces' :: IndexFaces -> Image
$sel:collectionId:IndexFaces' :: IndexFaces -> Text
$sel:qualityFilter:IndexFaces' :: IndexFaces -> Maybe QualityFilter
$sel:maxFaces:IndexFaces' :: IndexFaces -> Maybe Natural
$sel:externalImageId:IndexFaces' :: IndexFaces -> Maybe Text
$sel:detectionAttributes:IndexFaces' :: IndexFaces -> Maybe [Attribute]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Attribute]
detectionAttributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
externalImageId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxFaces
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe QualityFilter
qualityFilter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
collectionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Image
image
instance Prelude.NFData IndexFaces where
rnf :: IndexFaces -> ()
rnf IndexFaces' {Maybe Natural
Maybe [Attribute]
Maybe Text
Maybe QualityFilter
Text
Image
image :: Image
collectionId :: Text
qualityFilter :: Maybe QualityFilter
maxFaces :: Maybe Natural
externalImageId :: Maybe Text
detectionAttributes :: Maybe [Attribute]
$sel:image:IndexFaces' :: IndexFaces -> Image
$sel:collectionId:IndexFaces' :: IndexFaces -> Text
$sel:qualityFilter:IndexFaces' :: IndexFaces -> Maybe QualityFilter
$sel:maxFaces:IndexFaces' :: IndexFaces -> Maybe Natural
$sel:externalImageId:IndexFaces' :: IndexFaces -> Maybe Text
$sel:detectionAttributes:IndexFaces' :: IndexFaces -> Maybe [Attribute]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Attribute]
detectionAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
externalImageId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxFaces
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe QualityFilter
qualityFilter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
collectionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Image
image
instance Data.ToHeaders IndexFaces where
toHeaders :: IndexFaces -> 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.IndexFaces" ::
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 IndexFaces where
toJSON :: IndexFaces -> Value
toJSON IndexFaces' {Maybe Natural
Maybe [Attribute]
Maybe Text
Maybe QualityFilter
Text
Image
image :: Image
collectionId :: Text
qualityFilter :: Maybe QualityFilter
maxFaces :: Maybe Natural
externalImageId :: Maybe Text
detectionAttributes :: Maybe [Attribute]
$sel:image:IndexFaces' :: IndexFaces -> Image
$sel:collectionId:IndexFaces' :: IndexFaces -> Text
$sel:qualityFilter:IndexFaces' :: IndexFaces -> Maybe QualityFilter
$sel:maxFaces:IndexFaces' :: IndexFaces -> Maybe Natural
$sel:externalImageId:IndexFaces' :: IndexFaces -> Maybe Text
$sel:detectionAttributes:IndexFaces' :: IndexFaces -> Maybe [Attribute]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"DetectionAttributes" 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 [Attribute]
detectionAttributes,
(Key
"ExternalImageId" 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
externalImageId,
(Key
"MaxFaces" 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
maxFaces,
(Key
"QualityFilter" 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 QualityFilter
qualityFilter,
forall a. a -> Maybe a
Prelude.Just (Key
"CollectionId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
collectionId),
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 IndexFaces where
toPath :: IndexFaces -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery IndexFaces where
toQuery :: IndexFaces -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data IndexFacesResponse = IndexFacesResponse'
{
IndexFacesResponse -> Maybe Text
faceModelVersion :: Prelude.Maybe Prelude.Text,
IndexFacesResponse -> Maybe [FaceRecord]
faceRecords :: Prelude.Maybe [FaceRecord],
IndexFacesResponse -> Maybe OrientationCorrection
orientationCorrection :: Prelude.Maybe OrientationCorrection,
IndexFacesResponse -> Maybe [UnindexedFace]
unindexedFaces :: Prelude.Maybe [UnindexedFace],
IndexFacesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (IndexFacesResponse -> IndexFacesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IndexFacesResponse -> IndexFacesResponse -> Bool
$c/= :: IndexFacesResponse -> IndexFacesResponse -> Bool
== :: IndexFacesResponse -> IndexFacesResponse -> Bool
$c== :: IndexFacesResponse -> IndexFacesResponse -> Bool
Prelude.Eq, ReadPrec [IndexFacesResponse]
ReadPrec IndexFacesResponse
Int -> ReadS IndexFacesResponse
ReadS [IndexFacesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [IndexFacesResponse]
$creadListPrec :: ReadPrec [IndexFacesResponse]
readPrec :: ReadPrec IndexFacesResponse
$creadPrec :: ReadPrec IndexFacesResponse
readList :: ReadS [IndexFacesResponse]
$creadList :: ReadS [IndexFacesResponse]
readsPrec :: Int -> ReadS IndexFacesResponse
$creadsPrec :: Int -> ReadS IndexFacesResponse
Prelude.Read, Int -> IndexFacesResponse -> ShowS
[IndexFacesResponse] -> ShowS
IndexFacesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [IndexFacesResponse] -> ShowS
$cshowList :: [IndexFacesResponse] -> ShowS
show :: IndexFacesResponse -> String
$cshow :: IndexFacesResponse -> String
showsPrec :: Int -> IndexFacesResponse -> ShowS
$cshowsPrec :: Int -> IndexFacesResponse -> ShowS
Prelude.Show, forall x. Rep IndexFacesResponse x -> IndexFacesResponse
forall x. IndexFacesResponse -> Rep IndexFacesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep IndexFacesResponse x -> IndexFacesResponse
$cfrom :: forall x. IndexFacesResponse -> Rep IndexFacesResponse x
Prelude.Generic)
newIndexFacesResponse ::
Prelude.Int ->
IndexFacesResponse
newIndexFacesResponse :: Int -> IndexFacesResponse
newIndexFacesResponse Int
pHttpStatus_ =
IndexFacesResponse'
{ $sel:faceModelVersion:IndexFacesResponse' :: Maybe Text
faceModelVersion =
forall a. Maybe a
Prelude.Nothing,
$sel:faceRecords:IndexFacesResponse' :: Maybe [FaceRecord]
faceRecords = forall a. Maybe a
Prelude.Nothing,
$sel:orientationCorrection:IndexFacesResponse' :: Maybe OrientationCorrection
orientationCorrection = forall a. Maybe a
Prelude.Nothing,
$sel:unindexedFaces:IndexFacesResponse' :: Maybe [UnindexedFace]
unindexedFaces = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:IndexFacesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
indexFacesResponse_faceModelVersion :: Lens.Lens' IndexFacesResponse (Prelude.Maybe Prelude.Text)
indexFacesResponse_faceModelVersion :: Lens' IndexFacesResponse (Maybe Text)
indexFacesResponse_faceModelVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFacesResponse' {Maybe Text
faceModelVersion :: Maybe Text
$sel:faceModelVersion:IndexFacesResponse' :: IndexFacesResponse -> Maybe Text
faceModelVersion} -> Maybe Text
faceModelVersion) (\s :: IndexFacesResponse
s@IndexFacesResponse' {} Maybe Text
a -> IndexFacesResponse
s {$sel:faceModelVersion:IndexFacesResponse' :: Maybe Text
faceModelVersion = Maybe Text
a} :: IndexFacesResponse)
indexFacesResponse_faceRecords :: Lens.Lens' IndexFacesResponse (Prelude.Maybe [FaceRecord])
indexFacesResponse_faceRecords :: Lens' IndexFacesResponse (Maybe [FaceRecord])
indexFacesResponse_faceRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFacesResponse' {Maybe [FaceRecord]
faceRecords :: Maybe [FaceRecord]
$sel:faceRecords:IndexFacesResponse' :: IndexFacesResponse -> Maybe [FaceRecord]
faceRecords} -> Maybe [FaceRecord]
faceRecords) (\s :: IndexFacesResponse
s@IndexFacesResponse' {} Maybe [FaceRecord]
a -> IndexFacesResponse
s {$sel:faceRecords:IndexFacesResponse' :: Maybe [FaceRecord]
faceRecords = Maybe [FaceRecord]
a} :: IndexFacesResponse) 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
indexFacesResponse_orientationCorrection :: Lens.Lens' IndexFacesResponse (Prelude.Maybe OrientationCorrection)
indexFacesResponse_orientationCorrection :: Lens' IndexFacesResponse (Maybe OrientationCorrection)
indexFacesResponse_orientationCorrection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFacesResponse' {Maybe OrientationCorrection
orientationCorrection :: Maybe OrientationCorrection
$sel:orientationCorrection:IndexFacesResponse' :: IndexFacesResponse -> Maybe OrientationCorrection
orientationCorrection} -> Maybe OrientationCorrection
orientationCorrection) (\s :: IndexFacesResponse
s@IndexFacesResponse' {} Maybe OrientationCorrection
a -> IndexFacesResponse
s {$sel:orientationCorrection:IndexFacesResponse' :: Maybe OrientationCorrection
orientationCorrection = Maybe OrientationCorrection
a} :: IndexFacesResponse)
indexFacesResponse_unindexedFaces :: Lens.Lens' IndexFacesResponse (Prelude.Maybe [UnindexedFace])
indexFacesResponse_unindexedFaces :: Lens' IndexFacesResponse (Maybe [UnindexedFace])
indexFacesResponse_unindexedFaces = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFacesResponse' {Maybe [UnindexedFace]
unindexedFaces :: Maybe [UnindexedFace]
$sel:unindexedFaces:IndexFacesResponse' :: IndexFacesResponse -> Maybe [UnindexedFace]
unindexedFaces} -> Maybe [UnindexedFace]
unindexedFaces) (\s :: IndexFacesResponse
s@IndexFacesResponse' {} Maybe [UnindexedFace]
a -> IndexFacesResponse
s {$sel:unindexedFaces:IndexFacesResponse' :: Maybe [UnindexedFace]
unindexedFaces = Maybe [UnindexedFace]
a} :: IndexFacesResponse) 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
indexFacesResponse_httpStatus :: Lens.Lens' IndexFacesResponse Prelude.Int
indexFacesResponse_httpStatus :: Lens' IndexFacesResponse Int
indexFacesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\IndexFacesResponse' {Int
httpStatus :: Int
$sel:httpStatus:IndexFacesResponse' :: IndexFacesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: IndexFacesResponse
s@IndexFacesResponse' {} Int
a -> IndexFacesResponse
s {$sel:httpStatus:IndexFacesResponse' :: Int
httpStatus = Int
a} :: IndexFacesResponse)
instance Prelude.NFData IndexFacesResponse where
rnf :: IndexFacesResponse -> ()
rnf IndexFacesResponse' {Int
Maybe [FaceRecord]
Maybe [UnindexedFace]
Maybe Text
Maybe OrientationCorrection
httpStatus :: Int
unindexedFaces :: Maybe [UnindexedFace]
orientationCorrection :: Maybe OrientationCorrection
faceRecords :: Maybe [FaceRecord]
faceModelVersion :: Maybe Text
$sel:httpStatus:IndexFacesResponse' :: IndexFacesResponse -> Int
$sel:unindexedFaces:IndexFacesResponse' :: IndexFacesResponse -> Maybe [UnindexedFace]
$sel:orientationCorrection:IndexFacesResponse' :: IndexFacesResponse -> Maybe OrientationCorrection
$sel:faceRecords:IndexFacesResponse' :: IndexFacesResponse -> Maybe [FaceRecord]
$sel:faceModelVersion:IndexFacesResponse' :: IndexFacesResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
faceModelVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [FaceRecord]
faceRecords
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 Maybe [UnindexedFace]
unindexedFaces
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus