amazonka-rekognition 1.5.0 → 1.6.0

raw patch · 82 files changed

+7488/−1657 lines, 82 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-rekognition.cabal +24/−5
• fixture/CreateStreamProcessor.yaml +10/−0
• fixture/CreateStreamProcessorResponse.proto +0/−0
• fixture/DeleteStreamProcessor.yaml +10/−0
• fixture/DeleteStreamProcessorResponse.proto +0/−0
• fixture/DescribeStreamProcessor.yaml +10/−0
• fixture/DescribeStreamProcessorResponse.proto +0/−0
• fixture/DetectText.yaml +10/−0
• fixture/DetectTextResponse.proto +0/−0
• fixture/GetCelebrityRecognition.yaml +10/−0
• fixture/GetCelebrityRecognitionResponse.proto +0/−0
• fixture/GetContentModeration.yaml +10/−0
• fixture/GetContentModerationResponse.proto +0/−0
• fixture/GetFaceDetection.yaml +10/−0
• fixture/GetFaceDetectionResponse.proto +0/−0
• fixture/GetFaceSearch.yaml +10/−0
• fixture/GetFaceSearchResponse.proto +0/−0
• fixture/GetLabelDetection.yaml +10/−0
• fixture/GetLabelDetectionResponse.proto +0/−0
• fixture/GetPersonTracking.yaml +10/−0
• fixture/GetPersonTrackingResponse.proto +0/−0
• fixture/ListStreamProcessors.yaml +10/−0
• fixture/ListStreamProcessorsResponse.proto +0/−0
• fixture/StartCelebrityRecognition.yaml +10/−0
• fixture/StartCelebrityRecognitionResponse.proto +0/−0
• fixture/StartContentModeration.yaml +10/−0
• fixture/StartContentModerationResponse.proto +0/−0
• fixture/StartFaceDetection.yaml +10/−0
• fixture/StartFaceDetectionResponse.proto +0/−0
• fixture/StartFaceSearch.yaml +10/−0
• fixture/StartFaceSearchResponse.proto +0/−0
• fixture/StartLabelDetection.yaml +10/−0
• fixture/StartLabelDetectionResponse.proto +0/−0
• fixture/StartPersonTracking.yaml +10/−0
• fixture/StartPersonTrackingResponse.proto +0/−0
• fixture/StartStreamProcessor.yaml +10/−0
• fixture/StartStreamProcessorResponse.proto +0/−0
• fixture/StopStreamProcessor.yaml +10/−0
• fixture/StopStreamProcessorResponse.proto +0/−0
• gen/Network/AWS/Rekognition.hs +250/−1
• gen/Network/AWS/Rekognition/CompareFaces.hs +31/−27
• gen/Network/AWS/Rekognition/CreateCollection.hs +25/−16
• gen/Network/AWS/Rekognition/CreateStreamProcessor.hs +189/−0
• gen/Network/AWS/Rekognition/DeleteCollection.hs +6/−6
• gen/Network/AWS/Rekognition/DeleteFaces.hs +16/−16
• gen/Network/AWS/Rekognition/DeleteStreamProcessor.hs +123/−0
• gen/Network/AWS/Rekognition/DescribeStreamProcessor.hs +224/−0
• gen/Network/AWS/Rekognition/DetectFaces.hs +17/−15
• gen/Network/AWS/Rekognition/DetectLabels.hs +18/−16
• gen/Network/AWS/Rekognition/DetectModerationLabels.hs +13/−11
• gen/Network/AWS/Rekognition/DetectText.hs +145/−0
• gen/Network/AWS/Rekognition/GetCelebrityInfo.hs +10/−10
• gen/Network/AWS/Rekognition/GetCelebrityRecognition.hs +221/−0
• gen/Network/AWS/Rekognition/GetContentModeration.hs +219/−0
• gen/Network/AWS/Rekognition/GetFaceDetection.hs +201/−0
• gen/Network/AWS/Rekognition/GetFaceSearch.hs +213/−0
• gen/Network/AWS/Rekognition/GetLabelDetection.hs +216/−0
• gen/Network/AWS/Rekognition/GetPersonTracking.hs +218/−0
• gen/Network/AWS/Rekognition/IndexFaces.hs +38/−26
• gen/Network/AWS/Rekognition/ListCollections.hs +25/−14
• gen/Network/AWS/Rekognition/ListFaces.hs +30/−20
• gen/Network/AWS/Rekognition/ListStreamProcessors.hs +166/−0
• gen/Network/AWS/Rekognition/RecognizeCelebrities.hs +19/−17
• gen/Network/AWS/Rekognition/SearchFaces.hs +32/−22
• gen/Network/AWS/Rekognition/SearchFacesByImage.hs +35/−23
• gen/Network/AWS/Rekognition/StartCelebrityRecognition.hs +171/−0
• gen/Network/AWS/Rekognition/StartContentModeration.hs +182/−0
• gen/Network/AWS/Rekognition/StartFaceDetection.hs +180/−0
• gen/Network/AWS/Rekognition/StartFaceSearch.hs +190/−0
• gen/Network/AWS/Rekognition/StartLabelDetection.hs +186/−0
• gen/Network/AWS/Rekognition/StartPersonTracking.hs +172/−0
• gen/Network/AWS/Rekognition/StartStreamProcessor.hs +123/−0
• gen/Network/AWS/Rekognition/StopStreamProcessor.hs +122/−0
• gen/Network/AWS/Rekognition/Types.hs +216/−17
• gen/Network/AWS/Rekognition/Types/Product.hs +2426/−1386
• gen/Network/AWS/Rekognition/Types/Sum.hs +256/−1
• gen/Network/AWS/Rekognition/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/Rekognition.hs +345/−3
• test/Test/AWS/Rekognition.hs +1/−1
• test/Test/AWS/Rekognition/Internal.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-rekognition-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Rekognition SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -47,18 +47,37 @@           Network.AWS.Rekognition         , Network.AWS.Rekognition.CompareFaces         , Network.AWS.Rekognition.CreateCollection+        , Network.AWS.Rekognition.CreateStreamProcessor         , Network.AWS.Rekognition.DeleteCollection         , Network.AWS.Rekognition.DeleteFaces+        , Network.AWS.Rekognition.DeleteStreamProcessor+        , Network.AWS.Rekognition.DescribeStreamProcessor         , Network.AWS.Rekognition.DetectFaces         , Network.AWS.Rekognition.DetectLabels         , Network.AWS.Rekognition.DetectModerationLabels+        , Network.AWS.Rekognition.DetectText         , Network.AWS.Rekognition.GetCelebrityInfo+        , Network.AWS.Rekognition.GetCelebrityRecognition+        , Network.AWS.Rekognition.GetContentModeration+        , Network.AWS.Rekognition.GetFaceDetection+        , Network.AWS.Rekognition.GetFaceSearch+        , Network.AWS.Rekognition.GetLabelDetection+        , Network.AWS.Rekognition.GetPersonTracking         , Network.AWS.Rekognition.IndexFaces         , Network.AWS.Rekognition.ListCollections         , Network.AWS.Rekognition.ListFaces+        , Network.AWS.Rekognition.ListStreamProcessors         , Network.AWS.Rekognition.RecognizeCelebrities         , Network.AWS.Rekognition.SearchFaces         , Network.AWS.Rekognition.SearchFacesByImage+        , Network.AWS.Rekognition.StartCelebrityRecognition+        , Network.AWS.Rekognition.StartContentModeration+        , Network.AWS.Rekognition.StartFaceDetection+        , Network.AWS.Rekognition.StartFaceSearch+        , Network.AWS.Rekognition.StartLabelDetection+        , Network.AWS.Rekognition.StartPersonTracking+        , Network.AWS.Rekognition.StartStreamProcessor+        , Network.AWS.Rekognition.StopStreamProcessor         , Network.AWS.Rekognition.Types         , Network.AWS.Rekognition.Waiters @@ -67,7 +86,7 @@         , Network.AWS.Rekognition.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-rekognition-test@@ -87,8 +106,8 @@         , Test.AWS.Rekognition.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-rekognition         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rekognition/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rekognition.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.Rekognition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -25,6 +25,9 @@     -- ** AccessDeniedException     , _AccessDeniedException +    -- ** VideoTooLargeException+    , _VideoTooLargeException+     -- ** InvalidParameterException     , _InvalidParameterException @@ -49,18 +52,33 @@     -- ** InternalServerError     , _InternalServerError +    -- ** IdempotentParameterMismatchException+    , _IdempotentParameterMismatchException+     -- ** ResourceNotFoundException     , _ResourceNotFoundException      -- ** InvalidPaginationTokenException     , _InvalidPaginationTokenException +    -- ** LimitExceededException+    , _LimitExceededException++    -- ** ResourceInUseException+    , _ResourceInUseException+     -- * Waiters     -- $waiters      -- * Operations     -- $operations +    -- ** StartCelebrityRecognition+    , module Network.AWS.Rekognition.StartCelebrityRecognition++    -- ** GetPersonTracking+    , module Network.AWS.Rekognition.GetPersonTracking+     -- ** ListCollections (Paginated)     , module Network.AWS.Rekognition.ListCollections @@ -70,56 +88,134 @@     -- ** CreateCollection     , module Network.AWS.Rekognition.CreateCollection +    -- ** StopStreamProcessor+    , module Network.AWS.Rekognition.StopStreamProcessor+     -- ** DetectLabels     , module Network.AWS.Rekognition.DetectLabels +    -- ** StartContentModeration+    , module Network.AWS.Rekognition.StartContentModeration+     -- ** SearchFacesByImage     , module Network.AWS.Rekognition.SearchFacesByImage +    -- ** ListStreamProcessors (Paginated)+    , module Network.AWS.Rekognition.ListStreamProcessors+     -- ** RecognizeCelebrities     , module Network.AWS.Rekognition.RecognizeCelebrities +    -- ** GetFaceSearch+    , module Network.AWS.Rekognition.GetFaceSearch++    -- ** StartLabelDetection+    , module Network.AWS.Rekognition.StartLabelDetection+     -- ** SearchFaces     , module Network.AWS.Rekognition.SearchFaces      -- ** IndexFaces     , module Network.AWS.Rekognition.IndexFaces +    -- ** GetLabelDetection+    , module Network.AWS.Rekognition.GetLabelDetection++    -- ** DescribeStreamProcessor+    , module Network.AWS.Rekognition.DescribeStreamProcessor++    -- ** StartFaceSearch+    , module Network.AWS.Rekognition.StartFaceSearch++    -- ** StartPersonTracking+    , module Network.AWS.Rekognition.StartPersonTracking++    -- ** GetCelebrityRecognition+    , module Network.AWS.Rekognition.GetCelebrityRecognition++    -- ** StartStreamProcessor+    , module Network.AWS.Rekognition.StartStreamProcessor++    -- ** DetectText+    , module Network.AWS.Rekognition.DetectText+     -- ** CompareFaces     , module Network.AWS.Rekognition.CompareFaces      -- ** DetectFaces     , module Network.AWS.Rekognition.DetectFaces +    -- ** GetFaceDetection+    , module Network.AWS.Rekognition.GetFaceDetection+     -- ** ListFaces (Paginated)     , module Network.AWS.Rekognition.ListFaces +    -- ** GetContentModeration+    , module Network.AWS.Rekognition.GetContentModeration+     -- ** DeleteFaces     , module Network.AWS.Rekognition.DeleteFaces      -- ** GetCelebrityInfo     , module Network.AWS.Rekognition.GetCelebrityInfo +    -- ** DeleteStreamProcessor+    , module Network.AWS.Rekognition.DeleteStreamProcessor+     -- ** DetectModerationLabels     , module Network.AWS.Rekognition.DetectModerationLabels +    -- ** CreateStreamProcessor+    , module Network.AWS.Rekognition.CreateStreamProcessor++    -- ** StartFaceDetection+    , module Network.AWS.Rekognition.StartFaceDetection+     -- * Types      -- ** Attribute     , Attribute (..) +    -- ** CelebrityRecognitionSortBy+    , CelebrityRecognitionSortBy (..)++    -- ** ContentModerationSortBy+    , ContentModerationSortBy (..)+     -- ** EmotionName     , EmotionName (..) +    -- ** FaceAttributes+    , FaceAttributes (..)++    -- ** FaceSearchSortBy+    , FaceSearchSortBy (..)+     -- ** GenderType     , GenderType (..) +    -- ** LabelDetectionSortBy+    , LabelDetectionSortBy (..)+     -- ** LandmarkType     , LandmarkType (..)      -- ** OrientationCorrection     , OrientationCorrection (..) +    -- ** PersonTrackingSortBy+    , PersonTrackingSortBy (..)++    -- ** StreamProcessorStatus+    , StreamProcessorStatus (..)++    -- ** TextTypes+    , TextTypes (..)++    -- ** VideoJobStatus+    , VideoJobStatus (..)+     -- ** AgeRange     , AgeRange     , ageRange@@ -149,6 +245,22 @@     , cId     , cFace +    -- ** CelebrityDetail+    , CelebrityDetail+    , celebrityDetail+    , cdBoundingBox+    , cdURLs+    , cdConfidence+    , cdName+    , cdId+    , cdFace++    -- ** CelebrityRecognition+    , CelebrityRecognition+    , celebrityRecognition+    , crCelebrity+    , crTimestamp+     -- ** CompareFacesMatch     , CompareFacesMatch     , compareFacesMatch@@ -170,6 +282,12 @@     , csifBoundingBox     , csifConfidence +    -- ** ContentModerationDetection+    , ContentModerationDetection+    , contentModerationDetection+    , cmdModerationLabel+    , cmdTimestamp+     -- ** Emotion     , Emotion     , emotion@@ -216,6 +334,12 @@     , fdSmile     , fdLandmarks +    -- ** FaceDetection+    , FaceDetection+    , faceDetection+    , fdTimestamp+    , fdFace+     -- ** FaceMatch     , FaceMatch     , faceMatch@@ -228,12 +352,24 @@     , frFaceDetail     , frFace +    -- ** FaceSearchSettings+    , FaceSearchSettings+    , faceSearchSettings+    , fssFaceMatchThreshold+    , fssCollectionId+     -- ** Gender     , Gender     , gender     , gValue     , gConfidence +    -- ** Geometry+    , Geometry+    , geometry+    , gBoundingBox+    , gPolygon+     -- ** Image     , Image     , image@@ -246,12 +382,28 @@     , iqSharpness     , iqBrightness +    -- ** KinesisDataStream+    , KinesisDataStream+    , kinesisDataStream+    , kdsARN++    -- ** KinesisVideoStream+    , KinesisVideoStream+    , kinesisVideoStream+    , kvsARN+     -- ** Label     , Label     , label     , lConfidence     , lName +    -- ** LabelDetection+    , LabelDetection+    , labelDetection+    , ldLabel+    , ldTimestamp+     -- ** Landmark     , Landmark     , landmark@@ -278,6 +430,38 @@     , mValue     , mConfidence +    -- ** NotificationChannel+    , NotificationChannel+    , notificationChannel+    , ncSNSTopicARN+    , ncRoleARN++    -- ** PersonDetail+    , PersonDetail+    , personDetail+    , pdBoundingBox+    , pdIndex+    , pdFace++    -- ** PersonDetection+    , PersonDetection+    , personDetection+    , pdPerson+    , pdTimestamp++    -- ** PersonMatch+    , PersonMatch+    , personMatch+    , pmFaceMatches+    , pmPerson+    , pmTimestamp++    -- ** Point+    , Point+    , point+    , pX+    , pY+     -- ** Pose     , Pose     , pose@@ -298,27 +482,92 @@     , smiValue     , smiConfidence +    -- ** StreamProcessor+    , StreamProcessor+    , streamProcessor+    , spStatus+    , spName++    -- ** StreamProcessorInput+    , StreamProcessorInput+    , streamProcessorInput+    , spiKinesisVideoStream++    -- ** StreamProcessorOutput+    , StreamProcessorOutput+    , streamProcessorOutput+    , spoKinesisDataStream++    -- ** StreamProcessorSettings+    , StreamProcessorSettings+    , streamProcessorSettings+    , spsFaceSearch+     -- ** Sunglasses     , Sunglasses     , sunglasses     , sValue     , sConfidence++    -- ** TextDetection+    , TextDetection+    , textDetection+    , tdDetectedText+    , tdConfidence+    , tdGeometry+    , tdId+    , tdType+    , tdParentId++    -- ** Video+    , Video+    , video+    , vS3Object++    -- ** VideoMetadata+    , VideoMetadata+    , videoMetadata+    , vmFrameRate+    , vmFormat+    , vmCodec+    , vmFrameHeight+    , vmDurationMillis+    , vmFrameWidth     ) where  import Network.AWS.Rekognition.CompareFaces import Network.AWS.Rekognition.CreateCollection+import Network.AWS.Rekognition.CreateStreamProcessor import Network.AWS.Rekognition.DeleteCollection import Network.AWS.Rekognition.DeleteFaces+import Network.AWS.Rekognition.DeleteStreamProcessor+import Network.AWS.Rekognition.DescribeStreamProcessor import Network.AWS.Rekognition.DetectFaces import Network.AWS.Rekognition.DetectLabels import Network.AWS.Rekognition.DetectModerationLabels+import Network.AWS.Rekognition.DetectText import Network.AWS.Rekognition.GetCelebrityInfo+import Network.AWS.Rekognition.GetCelebrityRecognition+import Network.AWS.Rekognition.GetContentModeration+import Network.AWS.Rekognition.GetFaceDetection+import Network.AWS.Rekognition.GetFaceSearch+import Network.AWS.Rekognition.GetLabelDetection+import Network.AWS.Rekognition.GetPersonTracking import Network.AWS.Rekognition.IndexFaces import Network.AWS.Rekognition.ListCollections import Network.AWS.Rekognition.ListFaces+import Network.AWS.Rekognition.ListStreamProcessors import Network.AWS.Rekognition.RecognizeCelebrities import Network.AWS.Rekognition.SearchFaces import Network.AWS.Rekognition.SearchFacesByImage+import Network.AWS.Rekognition.StartCelebrityRecognition+import Network.AWS.Rekognition.StartContentModeration+import Network.AWS.Rekognition.StartFaceDetection+import Network.AWS.Rekognition.StartFaceSearch+import Network.AWS.Rekognition.StartLabelDetection+import Network.AWS.Rekognition.StartPersonTracking+import Network.AWS.Rekognition.StartStreamProcessor+import Network.AWS.Rekognition.StopStreamProcessor import Network.AWS.Rekognition.Types import Network.AWS.Rekognition.Waiters 

@@ -12,23 +12,27 @@  -- | -- Module      : Network.AWS.Rekognition.CompareFaces--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Compares a face in the /source/ input image with each face detected in the /target/ input image.+-- Compares a face in the /source/ input image with each of the 100 largest faces detected in the /target/ input image. -- --+-- You pass the input and target images either as base64-encoded image bytes or as a references to images in an Amazon S3 bucket. If you use the Amazon CLI to call Amazon Rekognition operations, passing image bytes is not supported. The image must be either a PNG or JPEG formatted file.+-- -- In response, the operation returns an array of face matches ordered by similarity score in descending order. For each face match, the response provides a bounding box of the face, facial landmarks, pose details (pitch, role, and yaw), quality (brightness and sharpness), and confidence value (indicating the level of confidence that the bounding box contains a face). The response also provides a similarity score, which indicates how closely the faces match. -- -- @CompareFaces@ also returns an array of faces that don't match the source image. For each face, it returns a bounding box, confidence value, landmarks, pose details, and quality. The response also returns information about the face in the source image, including the bounding box of the face and confidence value. -- -- If the image doesn't contain Exif metadata, @CompareFaces@ returns orientation information for the source and target images. Use these values to display the images with the correct image orientation. ----- For an example, see 'get-started-exercise-compare-faces' .+-- If no faces are detected in the source or target images, @CompareFaces@ returns an @InvalidParameterException@ error. --+-- For an example, see 'faces-compare-images' .+-- -- This operation requires permissions to perform the @rekognition:CompareFaces@ action. -- module Network.AWS.Rekognition.CompareFaces@@ -74,32 +78,32 @@ -- -- * 'cfSimilarityThreshold' - The minimum level of confidence in the face matches that a match must meet to be included in the @FaceMatches@ array. ----- * 'cfSourceImage' - The source image, either as bytes or as an S3 object.+-- * 'cfSourceImage' - The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. ----- * 'cfTargetImage' - The target image, either as bytes or as an S3 object.+-- * 'cfTargetImage' - The target image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. compareFaces     :: Image -- ^ 'cfSourceImage'     -> Image -- ^ 'cfTargetImage'     -> CompareFaces compareFaces pSourceImage_ pTargetImage_ =   CompareFaces'-  { _cfSimilarityThreshold = Nothing-  , _cfSourceImage = pSourceImage_-  , _cfTargetImage = pTargetImage_-  }+    { _cfSimilarityThreshold = Nothing+    , _cfSourceImage = pSourceImage_+    , _cfTargetImage = pTargetImage_+    }   -- | The minimum level of confidence in the face matches that a match must meet to be included in the @FaceMatches@ array. cfSimilarityThreshold :: Lens' CompareFaces (Maybe Double)-cfSimilarityThreshold = lens _cfSimilarityThreshold (\ s a -> s{_cfSimilarityThreshold = a});+cfSimilarityThreshold = lens _cfSimilarityThreshold (\ s a -> s{_cfSimilarityThreshold = a}) --- | The source image, either as bytes or as an S3 object.+-- | The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. cfSourceImage :: Lens' CompareFaces Image-cfSourceImage = lens _cfSourceImage (\ s a -> s{_cfSourceImage = a});+cfSourceImage = lens _cfSourceImage (\ s a -> s{_cfSourceImage = a}) --- | The target image, either as bytes or as an S3 object.+-- | The target image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. cfTargetImage :: Lens' CompareFaces Image-cfTargetImage = lens _cfTargetImage (\ s a -> s{_cfTargetImage = a});+cfTargetImage = lens _cfTargetImage (\ s a -> s{_cfTargetImage = a})  instance AWSRequest CompareFaces where         type Rs CompareFaces = CompareFacesResponse@@ -174,37 +178,37 @@     -> CompareFacesResponse compareFacesResponse pResponseStatus_ =   CompareFacesResponse'-  { _cfrsFaceMatches = Nothing-  , _cfrsUnmatchedFaces = Nothing-  , _cfrsTargetImageOrientationCorrection = Nothing-  , _cfrsSourceImageOrientationCorrection = Nothing-  , _cfrsSourceImageFace = Nothing-  , _cfrsResponseStatus = pResponseStatus_-  }+    { _cfrsFaceMatches = Nothing+    , _cfrsUnmatchedFaces = Nothing+    , _cfrsTargetImageOrientationCorrection = Nothing+    , _cfrsSourceImageOrientationCorrection = Nothing+    , _cfrsSourceImageFace = Nothing+    , _cfrsResponseStatus = pResponseStatus_+    }   -- | An array of faces in the target image that match the source image face. Each @CompareFacesMatch@ object provides the bounding box, the confidence level that the bounding box contains a face, and the similarity score for the face in the bounding box and the face in the source image. cfrsFaceMatches :: Lens' CompareFacesResponse [CompareFacesMatch]-cfrsFaceMatches = lens _cfrsFaceMatches (\ s a -> s{_cfrsFaceMatches = a}) . _Default . _Coerce;+cfrsFaceMatches = lens _cfrsFaceMatches (\ s a -> s{_cfrsFaceMatches = a}) . _Default . _Coerce  -- | An array of faces in the target image that did not match the source image face. cfrsUnmatchedFaces :: Lens' CompareFacesResponse [ComparedFace]-cfrsUnmatchedFaces = lens _cfrsUnmatchedFaces (\ s a -> s{_cfrsUnmatchedFaces = a}) . _Default . _Coerce;+cfrsUnmatchedFaces = lens _cfrsUnmatchedFaces (\ s a -> s{_cfrsUnmatchedFaces = a}) . _Default . _Coerce  -- | The orientation of the target image (in counterclockwise direction). If your application displays the target image, you can use this value to correct the orientation of the image. The bounding box coordinates returned in @FaceMatches@ and @UnmatchedFaces@ represent face locations before the image orientation is corrected. cfrsTargetImageOrientationCorrection :: Lens' CompareFacesResponse (Maybe OrientationCorrection)-cfrsTargetImageOrientationCorrection = lens _cfrsTargetImageOrientationCorrection (\ s a -> s{_cfrsTargetImageOrientationCorrection = a});+cfrsTargetImageOrientationCorrection = lens _cfrsTargetImageOrientationCorrection (\ s a -> s{_cfrsTargetImageOrientationCorrection = a})  -- | The orientation of the source image (counterclockwise direction). If your application displays the source image, you can use this value to correct image orientation. The bounding box coordinates returned in @SourceImageFace@ represent the location of the face before the image orientation is corrected. cfrsSourceImageOrientationCorrection :: Lens' CompareFacesResponse (Maybe OrientationCorrection)-cfrsSourceImageOrientationCorrection = lens _cfrsSourceImageOrientationCorrection (\ s a -> s{_cfrsSourceImageOrientationCorrection = a});+cfrsSourceImageOrientationCorrection = lens _cfrsSourceImageOrientationCorrection (\ s a -> s{_cfrsSourceImageOrientationCorrection = a})  -- | The face in the source image that was used for comparison. cfrsSourceImageFace :: Lens' CompareFacesResponse (Maybe ComparedSourceImageFace)-cfrsSourceImageFace = lens _cfrsSourceImageFace (\ s a -> s{_cfrsSourceImageFace = a});+cfrsSourceImageFace = lens _cfrsSourceImageFace (\ s a -> s{_cfrsSourceImageFace = a})  -- | -- | The response status code. cfrsResponseStatus :: Lens' CompareFacesResponse Int-cfrsResponseStatus = lens _cfrsResponseStatus (\ s a -> s{_cfrsResponseStatus = a});+cfrsResponseStatus = lens _cfrsResponseStatus (\ s a -> s{_cfrsResponseStatus = a})  instance NFData CompareFacesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Rekognition.CreateCollection--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -23,8 +23,6 @@ -- -- For example, you might create collections, one for each of your application users. A user can then index faces using the @IndexFaces@ operation and persist results in a specific collection. Then, a user can search the collection for faces in the user-specific container. ----- For an example, see 'example1' .--- -- This operation requires permissions to perform the @rekognition:CreateCollection@ action. -- module Network.AWS.Rekognition.CreateCollection@@ -39,6 +37,7 @@     , createCollectionResponse     , CreateCollectionResponse     -- * Response Lenses+    , ccrsFaceModelVersion     , ccrsCollectionARN     , ccrsStatusCode     , ccrsResponseStatus@@ -71,7 +70,7 @@  -- | ID for the collection that you are creating. ccCollectionId :: Lens' CreateCollection Text-ccCollectionId = lens _ccCollectionId (\ s a -> s{_ccCollectionId = a});+ccCollectionId = lens _ccCollectionId (\ s a -> s{_ccCollectionId = a})  instance AWSRequest CreateCollection where         type Rs CreateCollection = CreateCollectionResponse@@ -80,8 +79,10 @@           = receiveJSON               (\ s h x ->                  CreateCollectionResponse' <$>-                   (x .?> "CollectionArn") <*> (x .?> "StatusCode") <*>-                     (pure (fromEnum s)))+                   (x .?> "FaceModelVersion") <*>+                     (x .?> "CollectionArn")+                     <*> (x .?> "StatusCode")+                     <*> (pure (fromEnum s)))  instance Hashable CreateCollection where @@ -111,9 +112,10 @@  -- | /See:/ 'createCollectionResponse' smart constructor. data CreateCollectionResponse = CreateCollectionResponse'-  { _ccrsCollectionARN  :: !(Maybe Text)-  , _ccrsStatusCode     :: !(Maybe Nat)-  , _ccrsResponseStatus :: !Int+  { _ccrsFaceModelVersion :: !(Maybe Text)+  , _ccrsCollectionARN    :: !(Maybe Text)+  , _ccrsStatusCode       :: !(Maybe Nat)+  , _ccrsResponseStatus   :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -121,6 +123,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'ccrsFaceModelVersion' - Version number of the face detection model associated with the collection you are creating.+-- -- * 'ccrsCollectionARN' - Amazon Resource Name (ARN) of the collection. You can use this to manage permissions on your resources. -- -- * 'ccrsStatusCode' - HTTP status code indicating the result of the operation.@@ -131,22 +135,27 @@     -> CreateCollectionResponse createCollectionResponse pResponseStatus_ =   CreateCollectionResponse'-  { _ccrsCollectionARN = Nothing-  , _ccrsStatusCode = Nothing-  , _ccrsResponseStatus = pResponseStatus_-  }+    { _ccrsFaceModelVersion = Nothing+    , _ccrsCollectionARN = Nothing+    , _ccrsStatusCode = Nothing+    , _ccrsResponseStatus = pResponseStatus_+    }  +-- | Version number of the face detection model associated with the collection you are creating.+ccrsFaceModelVersion :: Lens' CreateCollectionResponse (Maybe Text)+ccrsFaceModelVersion = lens _ccrsFaceModelVersion (\ s a -> s{_ccrsFaceModelVersion = a})+ -- | Amazon Resource Name (ARN) of the collection. You can use this to manage permissions on your resources. ccrsCollectionARN :: Lens' CreateCollectionResponse (Maybe Text)-ccrsCollectionARN = lens _ccrsCollectionARN (\ s a -> s{_ccrsCollectionARN = a});+ccrsCollectionARN = lens _ccrsCollectionARN (\ s a -> s{_ccrsCollectionARN = a})  -- | HTTP status code indicating the result of the operation. ccrsStatusCode :: Lens' CreateCollectionResponse (Maybe Natural)-ccrsStatusCode = lens _ccrsStatusCode (\ s a -> s{_ccrsStatusCode = a}) . mapping _Nat;+ccrsStatusCode = lens _ccrsStatusCode (\ s a -> s{_ccrsStatusCode = a}) . mapping _Nat  -- | -- | The response status code. ccrsResponseStatus :: Lens' CreateCollectionResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})  instance NFData CreateCollectionResponse where

@@ -0,0 +1,189 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.CreateStreamProcessor+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an Amazon Rekognition stream processor that you can use to detect and recognize faces in a streaming video.+--+--+-- Rekognition Video is a consumer of live video from Amazon Kinesis Video Streams. Rekognition Video sends analysis results to Amazon Kinesis Data Streams.+--+-- You provide as input a Kinesis video stream (@Input@ ) and a Kinesis data stream (@Output@ ) stream. You also specify the face recognition criteria in @Settings@ . For example, the collection containing faces that you want to recognize. Use @Name@ to assign an identifier for the stream processor. You use @Name@ to manage the stream processor. For example, you can start processing the source video by calling with the @Name@ field.+--+-- After you have finished analyzing a streaming video, use to stop processing. You can delete the stream processor by calling .+--+module Network.AWS.Rekognition.CreateStreamProcessor+    (+    -- * Creating a Request+      createStreamProcessor+    , CreateStreamProcessor+    -- * Request Lenses+    , cspInput+    , cspOutput+    , cspName+    , cspSettings+    , cspRoleARN++    -- * Destructuring the Response+    , createStreamProcessorResponse+    , CreateStreamProcessorResponse+    -- * Response Lenses+    , csprsStreamProcessorARN+    , csprsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createStreamProcessor' smart constructor.+data CreateStreamProcessor = CreateStreamProcessor'+  { _cspInput    :: !StreamProcessorInput+  , _cspOutput   :: !StreamProcessorOutput+  , _cspName     :: !Text+  , _cspSettings :: !StreamProcessorSettings+  , _cspRoleARN  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateStreamProcessor' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cspInput' - Kinesis video stream stream that provides the source streaming video. If you are using the AWS CLI, the parameter name is @StreamProcessorInput@ .+--+-- * 'cspOutput' - Kinesis data stream stream to which Rekognition Video puts the analysis results. If you are using the AWS CLI, the parameter name is @StreamProcessorOutput@ .+--+-- * 'cspName' - An identifier you assign to the stream processor. You can use @Name@ to manage the stream processor. For example, you can get the current status of the stream processor by calling . @Name@ is idempotent.+--+-- * 'cspSettings' - Face recognition input parameters to be used by the stream processor. Includes the collection to use for face recognition and the face attributes to detect.+--+-- * 'cspRoleARN' - ARN of the IAM role that allows access to the stream processor.+createStreamProcessor+    :: StreamProcessorInput -- ^ 'cspInput'+    -> StreamProcessorOutput -- ^ 'cspOutput'+    -> Text -- ^ 'cspName'+    -> StreamProcessorSettings -- ^ 'cspSettings'+    -> Text -- ^ 'cspRoleARN'+    -> CreateStreamProcessor+createStreamProcessor pInput_ pOutput_ pName_ pSettings_ pRoleARN_ =+  CreateStreamProcessor'+    { _cspInput = pInput_+    , _cspOutput = pOutput_+    , _cspName = pName_+    , _cspSettings = pSettings_+    , _cspRoleARN = pRoleARN_+    }+++-- | Kinesis video stream stream that provides the source streaming video. If you are using the AWS CLI, the parameter name is @StreamProcessorInput@ .+cspInput :: Lens' CreateStreamProcessor StreamProcessorInput+cspInput = lens _cspInput (\ s a -> s{_cspInput = a})++-- | Kinesis data stream stream to which Rekognition Video puts the analysis results. If you are using the AWS CLI, the parameter name is @StreamProcessorOutput@ .+cspOutput :: Lens' CreateStreamProcessor StreamProcessorOutput+cspOutput = lens _cspOutput (\ s a -> s{_cspOutput = a})++-- | An identifier you assign to the stream processor. You can use @Name@ to manage the stream processor. For example, you can get the current status of the stream processor by calling . @Name@ is idempotent.+cspName :: Lens' CreateStreamProcessor Text+cspName = lens _cspName (\ s a -> s{_cspName = a})++-- | Face recognition input parameters to be used by the stream processor. Includes the collection to use for face recognition and the face attributes to detect.+cspSettings :: Lens' CreateStreamProcessor StreamProcessorSettings+cspSettings = lens _cspSettings (\ s a -> s{_cspSettings = a})++-- | ARN of the IAM role that allows access to the stream processor.+cspRoleARN :: Lens' CreateStreamProcessor Text+cspRoleARN = lens _cspRoleARN (\ s a -> s{_cspRoleARN = a})++instance AWSRequest CreateStreamProcessor where+        type Rs CreateStreamProcessor =+             CreateStreamProcessorResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 CreateStreamProcessorResponse' <$>+                   (x .?> "StreamProcessorArn") <*> (pure (fromEnum s)))++instance Hashable CreateStreamProcessor where++instance NFData CreateStreamProcessor where++instance ToHeaders CreateStreamProcessor where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.CreateStreamProcessor" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateStreamProcessor where+        toJSON CreateStreamProcessor'{..}+          = object+              (catMaybes+                 [Just ("Input" .= _cspInput),+                  Just ("Output" .= _cspOutput),+                  Just ("Name" .= _cspName),+                  Just ("Settings" .= _cspSettings),+                  Just ("RoleArn" .= _cspRoleARN)])++instance ToPath CreateStreamProcessor where+        toPath = const "/"++instance ToQuery CreateStreamProcessor where+        toQuery = const mempty++-- | /See:/ 'createStreamProcessorResponse' smart constructor.+data CreateStreamProcessorResponse = CreateStreamProcessorResponse'+  { _csprsStreamProcessorARN :: !(Maybe Text)+  , _csprsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateStreamProcessorResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csprsStreamProcessorARN' - ARN for the newly create stream processor.+--+-- * 'csprsResponseStatus' - -- | The response status code.+createStreamProcessorResponse+    :: Int -- ^ 'csprsResponseStatus'+    -> CreateStreamProcessorResponse+createStreamProcessorResponse pResponseStatus_ =+  CreateStreamProcessorResponse'+    { _csprsStreamProcessorARN = Nothing+    , _csprsResponseStatus = pResponseStatus_+    }+++-- | ARN for the newly create stream processor.+csprsStreamProcessorARN :: Lens' CreateStreamProcessorResponse (Maybe Text)+csprsStreamProcessorARN = lens _csprsStreamProcessorARN (\ s a -> s{_csprsStreamProcessorARN = a})++-- | -- | The response status code.+csprsResponseStatus :: Lens' CreateStreamProcessorResponse Int+csprsResponseStatus = lens _csprsResponseStatus (\ s a -> s{_csprsResponseStatus = a})++instance NFData CreateStreamProcessorResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Rekognition.DeleteCollection--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified collection. Note that this operation removes all faces in the collection. For an example, see 'example1' .+-- Deletes the specified collection. Note that this operation removes all faces in the collection. For an example, see 'delete-collection-procedure' . -- -- -- This operation requires permissions to perform the @rekognition:DeleteCollection@ action.@@ -66,7 +66,7 @@  -- | ID of the collection to delete. dcCollectionId :: Lens' DeleteCollection Text-dcCollectionId = lens _dcCollectionId (\ s a -> s{_dcCollectionId = a});+dcCollectionId = lens _dcCollectionId (\ s a -> s{_dcCollectionId = a})  instance AWSRequest DeleteCollection where         type Rs DeleteCollection = DeleteCollectionResponse@@ -122,15 +122,15 @@     -> DeleteCollectionResponse deleteCollectionResponse pResponseStatus_ =   DeleteCollectionResponse'-  {_dcrsStatusCode = Nothing, _dcrsResponseStatus = pResponseStatus_}+    {_dcrsStatusCode = Nothing, _dcrsResponseStatus = pResponseStatus_}   -- | HTTP status code that indicates the result of the operation. dcrsStatusCode :: Lens' DeleteCollectionResponse (Maybe Natural)-dcrsStatusCode = lens _dcrsStatusCode (\ s a -> s{_dcrsStatusCode = a}) . mapping _Nat;+dcrsStatusCode = lens _dcrsStatusCode (\ s a -> s{_dcrsStatusCode = a}) . mapping _Nat  -- | -- | The response status code. dcrsResponseStatus :: Lens' DeleteCollectionResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})  instance NFData DeleteCollectionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Rekognition.DeleteFaces--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -36,8 +36,8 @@     , deleteFacesResponse     , DeleteFacesResponse     -- * Response Lenses-    , drsDeletedFaces-    , drsResponseStatus+    , dfsrsDeletedFaces+    , dfsrsResponseStatus     ) where  import Network.AWS.Lens@@ -67,16 +67,16 @@     -> DeleteFaces deleteFaces pCollectionId_ pFaceIds_ =   DeleteFaces'-  {_dfCollectionId = pCollectionId_, _dfFaceIds = _List1 # pFaceIds_}+    {_dfCollectionId = pCollectionId_, _dfFaceIds = _List1 # pFaceIds_}   -- | Collection from which to remove the specific faces. dfCollectionId :: Lens' DeleteFaces Text-dfCollectionId = lens _dfCollectionId (\ s a -> s{_dfCollectionId = a});+dfCollectionId = lens _dfCollectionId (\ s a -> s{_dfCollectionId = a})  -- | An array of face IDs to delete. dfFaceIds :: Lens' DeleteFaces (NonEmpty Text)-dfFaceIds = lens _dfFaceIds (\ s a -> s{_dfFaceIds = a}) . _List1;+dfFaceIds = lens _dfFaceIds (\ s a -> s{_dfFaceIds = a}) . _List1  instance AWSRequest DeleteFaces where         type Rs DeleteFaces = DeleteFacesResponse@@ -115,8 +115,8 @@  -- | /See:/ 'deleteFacesResponse' smart constructor. data DeleteFacesResponse = DeleteFacesResponse'-  { _drsDeletedFaces   :: !(Maybe (List1 Text))-  , _drsResponseStatus :: !Int+  { _dfsrsDeletedFaces   :: !(Maybe (List1 Text))+  , _dfsrsResponseStatus :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -124,23 +124,23 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsDeletedFaces' - An array of strings (face IDs) of the faces that were deleted.+-- * 'dfsrsDeletedFaces' - An array of strings (face IDs) of the faces that were deleted. ----- * 'drsResponseStatus' - -- | The response status code.+-- * 'dfsrsResponseStatus' - -- | The response status code. deleteFacesResponse-    :: Int -- ^ 'drsResponseStatus'+    :: Int -- ^ 'dfsrsResponseStatus'     -> DeleteFacesResponse deleteFacesResponse pResponseStatus_ =   DeleteFacesResponse'-  {_drsDeletedFaces = Nothing, _drsResponseStatus = pResponseStatus_}+    {_dfsrsDeletedFaces = Nothing, _dfsrsResponseStatus = pResponseStatus_}   -- | An array of strings (face IDs) of the faces that were deleted.-drsDeletedFaces :: Lens' DeleteFacesResponse (Maybe (NonEmpty Text))-drsDeletedFaces = lens _drsDeletedFaces (\ s a -> s{_drsDeletedFaces = a}) . mapping _List1;+dfsrsDeletedFaces :: Lens' DeleteFacesResponse (Maybe (NonEmpty Text))+dfsrsDeletedFaces = lens _dfsrsDeletedFaces (\ s a -> s{_dfsrsDeletedFaces = a}) . mapping _List1  -- | -- | The response status code.-drsResponseStatus :: Lens' DeleteFacesResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+dfsrsResponseStatus :: Lens' DeleteFacesResponse Int+dfsrsResponseStatus = lens _dfsrsResponseStatus (\ s a -> s{_dfsrsResponseStatus = a})  instance NFData DeleteFacesResponse where

@@ -0,0 +1,123 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.DeleteStreamProcessor+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the stream processor identified by @Name@ . You assign the value for @Name@ when you create the stream processor with . You might not be able to use the same name for a stream processor for a few seconds after calling @DeleteStreamProcessor@ .+--+--+module Network.AWS.Rekognition.DeleteStreamProcessor+    (+    -- * Creating a Request+      deleteStreamProcessor+    , DeleteStreamProcessor+    -- * Request Lenses+    , dName++    -- * Destructuring the Response+    , deleteStreamProcessorResponse+    , DeleteStreamProcessorResponse+    -- * Response Lenses+    , drsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteStreamProcessor' smart constructor.+newtype DeleteStreamProcessor = DeleteStreamProcessor'+  { _dName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteStreamProcessor' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dName' - The name of the stream processor you want to delete.+deleteStreamProcessor+    :: Text -- ^ 'dName'+    -> DeleteStreamProcessor+deleteStreamProcessor pName_ = DeleteStreamProcessor' {_dName = pName_}+++-- | The name of the stream processor you want to delete.+dName :: Lens' DeleteStreamProcessor Text+dName = lens _dName (\ s a -> s{_dName = a})++instance AWSRequest DeleteStreamProcessor where+        type Rs DeleteStreamProcessor =+             DeleteStreamProcessorResponse+        request = postJSON rekognition+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteStreamProcessorResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteStreamProcessor where++instance NFData DeleteStreamProcessor where++instance ToHeaders DeleteStreamProcessor where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.DeleteStreamProcessor" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteStreamProcessor where+        toJSON DeleteStreamProcessor'{..}+          = object (catMaybes [Just ("Name" .= _dName)])++instance ToPath DeleteStreamProcessor where+        toPath = const "/"++instance ToQuery DeleteStreamProcessor where+        toQuery = const mempty++-- | /See:/ 'deleteStreamProcessorResponse' smart constructor.+newtype DeleteStreamProcessorResponse = DeleteStreamProcessorResponse'+  { _drsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteStreamProcessorResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsResponseStatus' - -- | The response status code.+deleteStreamProcessorResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DeleteStreamProcessorResponse+deleteStreamProcessorResponse pResponseStatus_ =+  DeleteStreamProcessorResponse' {_drsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+drsResponseStatus :: Lens' DeleteStreamProcessorResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})++instance NFData DeleteStreamProcessorResponse where

@@ -0,0 +1,224 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.DescribeStreamProcessor+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides information about a stream processor created by . You can get information about the input and output streams, the input parameters for the face recognition being performed, and the current status of the stream processor.+--+--+module Network.AWS.Rekognition.DescribeStreamProcessor+    (+    -- * Creating a Request+      describeStreamProcessor+    , DescribeStreamProcessor+    -- * Request Lenses+    , dspName++    -- * Destructuring the Response+    , describeStreamProcessorResponse+    , DescribeStreamProcessorResponse+    -- * Response Lenses+    , dsprsStatus+    , dsprsSettings+    , dsprsInput+    , dsprsOutput+    , dsprsStreamProcessorARN+    , dsprsStatusMessage+    , dsprsName+    , dsprsCreationTimestamp+    , dsprsLastUpdateTimestamp+    , dsprsRoleARN+    , dsprsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'describeStreamProcessor' smart constructor.+newtype DescribeStreamProcessor = DescribeStreamProcessor'+  { _dspName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeStreamProcessor' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dspName' - Name of the stream processor for which you want information.+describeStreamProcessor+    :: Text -- ^ 'dspName'+    -> DescribeStreamProcessor+describeStreamProcessor pName_ = DescribeStreamProcessor' {_dspName = pName_}+++-- | Name of the stream processor for which you want information.+dspName :: Lens' DescribeStreamProcessor Text+dspName = lens _dspName (\ s a -> s{_dspName = a})++instance AWSRequest DescribeStreamProcessor where+        type Rs DescribeStreamProcessor =+             DescribeStreamProcessorResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 DescribeStreamProcessorResponse' <$>+                   (x .?> "Status") <*> (x .?> "Settings") <*>+                     (x .?> "Input")+                     <*> (x .?> "Output")+                     <*> (x .?> "StreamProcessorArn")+                     <*> (x .?> "StatusMessage")+                     <*> (x .?> "Name")+                     <*> (x .?> "CreationTimestamp")+                     <*> (x .?> "LastUpdateTimestamp")+                     <*> (x .?> "RoleArn")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeStreamProcessor where++instance NFData DescribeStreamProcessor where++instance ToHeaders DescribeStreamProcessor where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.DescribeStreamProcessor" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeStreamProcessor where+        toJSON DescribeStreamProcessor'{..}+          = object (catMaybes [Just ("Name" .= _dspName)])++instance ToPath DescribeStreamProcessor where+        toPath = const "/"++instance ToQuery DescribeStreamProcessor where+        toQuery = const mempty++-- | /See:/ 'describeStreamProcessorResponse' smart constructor.+data DescribeStreamProcessorResponse = DescribeStreamProcessorResponse'+  { _dsprsStatus              :: !(Maybe StreamProcessorStatus)+  , _dsprsSettings            :: !(Maybe StreamProcessorSettings)+  , _dsprsInput               :: !(Maybe StreamProcessorInput)+  , _dsprsOutput              :: !(Maybe StreamProcessorOutput)+  , _dsprsStreamProcessorARN  :: !(Maybe Text)+  , _dsprsStatusMessage       :: !(Maybe Text)+  , _dsprsName                :: !(Maybe Text)+  , _dsprsCreationTimestamp   :: !(Maybe POSIX)+  , _dsprsLastUpdateTimestamp :: !(Maybe POSIX)+  , _dsprsRoleARN             :: !(Maybe Text)+  , _dsprsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeStreamProcessorResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsprsStatus' - Current status of the stream processor.+--+-- * 'dsprsSettings' - Face recognition input parameters that are being used by the stream processor. Includes the collection to use for face recognition and the face attributes to detect.+--+-- * 'dsprsInput' - Kinesis video stream that provides the source streaming video.+--+-- * 'dsprsOutput' - Kinesis data stream to which Rekognition Video puts the analysis results.+--+-- * 'dsprsStreamProcessorARN' - ARN of the stream processor.+--+-- * 'dsprsStatusMessage' - Detailed status message about the stream processor.+--+-- * 'dsprsName' - Name of the stream processor.+--+-- * 'dsprsCreationTimestamp' - Date and time the stream processor was created+--+-- * 'dsprsLastUpdateTimestamp' - The time, in Unix format, the stream processor was last updated. For example, when the stream processor moves from a running state to a failed state, or when the user starts or stops the stream processor.+--+-- * 'dsprsRoleARN' - ARN of the IAM role that allows access to the stream processor.+--+-- * 'dsprsResponseStatus' - -- | The response status code.+describeStreamProcessorResponse+    :: Int -- ^ 'dsprsResponseStatus'+    -> DescribeStreamProcessorResponse+describeStreamProcessorResponse pResponseStatus_ =+  DescribeStreamProcessorResponse'+    { _dsprsStatus = Nothing+    , _dsprsSettings = Nothing+    , _dsprsInput = Nothing+    , _dsprsOutput = Nothing+    , _dsprsStreamProcessorARN = Nothing+    , _dsprsStatusMessage = Nothing+    , _dsprsName = Nothing+    , _dsprsCreationTimestamp = Nothing+    , _dsprsLastUpdateTimestamp = Nothing+    , _dsprsRoleARN = Nothing+    , _dsprsResponseStatus = pResponseStatus_+    }+++-- | Current status of the stream processor.+dsprsStatus :: Lens' DescribeStreamProcessorResponse (Maybe StreamProcessorStatus)+dsprsStatus = lens _dsprsStatus (\ s a -> s{_dsprsStatus = a})++-- | Face recognition input parameters that are being used by the stream processor. Includes the collection to use for face recognition and the face attributes to detect.+dsprsSettings :: Lens' DescribeStreamProcessorResponse (Maybe StreamProcessorSettings)+dsprsSettings = lens _dsprsSettings (\ s a -> s{_dsprsSettings = a})++-- | Kinesis video stream that provides the source streaming video.+dsprsInput :: Lens' DescribeStreamProcessorResponse (Maybe StreamProcessorInput)+dsprsInput = lens _dsprsInput (\ s a -> s{_dsprsInput = a})++-- | Kinesis data stream to which Rekognition Video puts the analysis results.+dsprsOutput :: Lens' DescribeStreamProcessorResponse (Maybe StreamProcessorOutput)+dsprsOutput = lens _dsprsOutput (\ s a -> s{_dsprsOutput = a})++-- | ARN of the stream processor.+dsprsStreamProcessorARN :: Lens' DescribeStreamProcessorResponse (Maybe Text)+dsprsStreamProcessorARN = lens _dsprsStreamProcessorARN (\ s a -> s{_dsprsStreamProcessorARN = a})++-- | Detailed status message about the stream processor.+dsprsStatusMessage :: Lens' DescribeStreamProcessorResponse (Maybe Text)+dsprsStatusMessage = lens _dsprsStatusMessage (\ s a -> s{_dsprsStatusMessage = a})++-- | Name of the stream processor.+dsprsName :: Lens' DescribeStreamProcessorResponse (Maybe Text)+dsprsName = lens _dsprsName (\ s a -> s{_dsprsName = a})++-- | Date and time the stream processor was created+dsprsCreationTimestamp :: Lens' DescribeStreamProcessorResponse (Maybe UTCTime)+dsprsCreationTimestamp = lens _dsprsCreationTimestamp (\ s a -> s{_dsprsCreationTimestamp = a}) . mapping _Time++-- | The time, in Unix format, the stream processor was last updated. For example, when the stream processor moves from a running state to a failed state, or when the user starts or stops the stream processor.+dsprsLastUpdateTimestamp :: Lens' DescribeStreamProcessorResponse (Maybe UTCTime)+dsprsLastUpdateTimestamp = lens _dsprsLastUpdateTimestamp (\ s a -> s{_dsprsLastUpdateTimestamp = a}) . mapping _Time++-- | ARN of the IAM role that allows access to the stream processor.+dsprsRoleARN :: Lens' DescribeStreamProcessorResponse (Maybe Text)+dsprsRoleARN = lens _dsprsRoleARN (\ s a -> s{_dsprsRoleARN = a})++-- | -- | The response status code.+dsprsResponseStatus :: Lens' DescribeStreamProcessorResponse Int+dsprsResponseStatus = lens _dsprsResponseStatus (\ s a -> s{_dsprsResponseStatus = a})++instance NFData DescribeStreamProcessorResponse where

@@ -12,21 +12,23 @@  -- | -- Module      : Network.AWS.Rekognition.DetectFaces--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Detects faces within an image (JPEG or PNG) that is provided as input.+-- Detects faces within an image that is provided as input. -- ----- For each face detected, the operation returns face details including a bounding box of the face, a confidence value (that the bounding box contains a face), and a fixed set of attributes such as facial landmarks (for example, coordinates of eye and mouth), gender, presence of beard, sunglasses, etc.+-- @DetectFaces@ detects the 100 largest faces in the image. For each face detected, the operation returns face details including a bounding box of the face, a confidence value (that the bounding box contains a face), and a fixed set of attributes such as facial landmarks (for example, coordinates of eye and mouth), gender, presence of beard, sunglasses, etc. -- -- The face-detection algorithm is most effective on frontal faces. For non-frontal or obscured faces, the algorithm may not detect the faces or might detect faces with lower confidence. ----- For an example, see 'get-started-exercise-detect-faces' .+-- You pass the input image either as base64-encoded image bytes or as a reference to an image in an Amazon S3 bucket. If you use the Amazon CLI to call Amazon Rekognition operations, passing image bytes is not supported. The image must be either a PNG or JPEG formatted file. --+-- For an example, see 'procedure-detecting-faces-in-images' .+-- -- This operation requires permissions to perform the @rekognition:DetectFaces@ action. -- module Network.AWS.Rekognition.DetectFaces@@ -67,7 +69,7 @@ -- -- * 'dfAttributes' - An array of facial attributes you want to be returned. This can be the default list of attributes or all attributes. If you don't specify a value for @Attributes@ or if you specify @["DEFAULT"]@ , the API returns the following subset of facial attributes: @BoundingBox@ , @Confidence@ , @Pose@ , @Quality@ and @Landmarks@ . If you provide @["ALL"]@ , all facial attributes are returned but the operation will take longer to complete. If you provide both, @["ALL", "DEFAULT"]@ , the service uses a logical AND operator to determine which attributes to return (in this case, all attributes). ----- * 'dfImage' - The image in which you want to detect faces. You can specify a blob or an S3 object.+-- * 'dfImage' - The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. detectFaces     :: Image -- ^ 'dfImage'     -> DetectFaces@@ -76,11 +78,11 @@  -- | An array of facial attributes you want to be returned. This can be the default list of attributes or all attributes. If you don't specify a value for @Attributes@ or if you specify @["DEFAULT"]@ , the API returns the following subset of facial attributes: @BoundingBox@ , @Confidence@ , @Pose@ , @Quality@ and @Landmarks@ . If you provide @["ALL"]@ , all facial attributes are returned but the operation will take longer to complete. If you provide both, @["ALL", "DEFAULT"]@ , the service uses a logical AND operator to determine which attributes to return (in this case, all attributes). dfAttributes :: Lens' DetectFaces [Attribute]-dfAttributes = lens _dfAttributes (\ s a -> s{_dfAttributes = a}) . _Default . _Coerce;+dfAttributes = lens _dfAttributes (\ s a -> s{_dfAttributes = a}) . _Default . _Coerce --- | The image in which you want to detect faces. You can specify a blob or an S3 object.+-- | The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. dfImage :: Lens' DetectFaces Image-dfImage = lens _dfImage (\ s a -> s{_dfImage = a});+dfImage = lens _dfImage (\ s a -> s{_dfImage = a})  instance AWSRequest DetectFaces where         type Rs DetectFaces = DetectFacesResponse@@ -141,22 +143,22 @@     -> DetectFacesResponse detectFacesResponse pResponseStatus_ =   DetectFacesResponse'-  { _dfrsOrientationCorrection = Nothing-  , _dfrsFaceDetails = Nothing-  , _dfrsResponseStatus = pResponseStatus_-  }+    { _dfrsOrientationCorrection = Nothing+    , _dfrsFaceDetails = Nothing+    , _dfrsResponseStatus = pResponseStatus_+    }   -- | The orientation of the input image (counter-clockwise direction). If your application displays the image, you can use this value to correct image orientation. The bounding box coordinates returned in @FaceDetails@ represent face locations before the image orientation is corrected. dfrsOrientationCorrection :: Lens' DetectFacesResponse (Maybe OrientationCorrection)-dfrsOrientationCorrection = lens _dfrsOrientationCorrection (\ s a -> s{_dfrsOrientationCorrection = a});+dfrsOrientationCorrection = lens _dfrsOrientationCorrection (\ s a -> s{_dfrsOrientationCorrection = a})  -- | Details of each face found in the image. dfrsFaceDetails :: Lens' DetectFacesResponse [FaceDetail]-dfrsFaceDetails = lens _dfrsFaceDetails (\ s a -> s{_dfrsFaceDetails = a}) . _Default . _Coerce;+dfrsFaceDetails = lens _dfrsFaceDetails (\ s a -> s{_dfrsFaceDetails = a}) . _Default . _Coerce  -- | -- | The response status code. dfrsResponseStatus :: Lens' DetectFacesResponse Int-dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a});+dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a})  instance NFData DetectFacesResponse where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.Rekognition.DetectLabels--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Detects instances of real-world labels within an image (JPEG or PNG) provided as input. This includes objects like flower, tree, and table; events like wedding, graduation, and birthday party; and concepts like landscape, evening, and nature. For an example, see 'get-started-exercise-detect-labels' .+-- Detects instances of real-world entities within an image (JPEG or PNG) provided as input. This includes objects like flower, tree, and table; events like wedding, graduation, and birthday party; and concepts like landscape, evening, and nature. For an example, see 'images-s3' . -- --+-- You pass the input image as base64-encoded image bytes or as a reference to an image in an Amazon S3 bucket. If you use the Amazon CLI to call Amazon Rekognition operations, passing image bytes is not supported. The image must be either a PNG or JPEG formatted file.+-- -- For each object, scene, and concept the API returns one or more labels. Each label provides the object name, and the level of confidence that the image contains the object. For example, suppose the input image has a lighthouse, the sea, and a rock. The response will include all three labels, one for each object. -- -- @{Name: lighthouse, Confidence: 98.4629}@@@ -39,7 +41,7 @@ -- -- In this example, the detection algorithm more precisely identifies the flower as a tulip. ----- You can provide the input image as an S3 object or as base64-encoded bytes. In response, the API returns an array of labels. In addition, the response also includes the orientation correction. Optionally, you can specify @MinConfidence@ to control the confidence threshold for the labels returned. The default is 50%. You can also add the @MaxLabels@ parameter to limit the number of labels returned.+-- In response, the API returns an array of labels. In addition, the response also includes the orientation correction. Optionally, you can specify @MinConfidence@ to control the confidence threshold for the labels returned. The default is 50%. You can also add the @MaxLabels@ parameter to limit the number of labels returned. -- -- This is a stateless API operation. That is, the operation does not persist any data. --@@ -87,26 +89,26 @@ -- -- * 'dlMaxLabels' - Maximum number of labels you want the service to return in the response. The service returns the specified number of highest confidence labels. ----- * 'dlImage' - The input image. You can provide a blob of image bytes or an S3 object.+-- * 'dlImage' - The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. detectLabels     :: Image -- ^ 'dlImage'     -> DetectLabels detectLabels pImage_ =   DetectLabels'-  {_dlMinConfidence = Nothing, _dlMaxLabels = Nothing, _dlImage = pImage_}+    {_dlMinConfidence = Nothing, _dlMaxLabels = Nothing, _dlImage = pImage_}   -- | Specifies the minimum confidence level for the labels to return. Amazon Rekognition doesn't return any labels with confidence lower than this specified value. If @MinConfidence@ is not specified, the operation returns labels with a confidence values greater than or equal to 50 percent. dlMinConfidence :: Lens' DetectLabels (Maybe Double)-dlMinConfidence = lens _dlMinConfidence (\ s a -> s{_dlMinConfidence = a});+dlMinConfidence = lens _dlMinConfidence (\ s a -> s{_dlMinConfidence = a})  -- | Maximum number of labels you want the service to return in the response. The service returns the specified number of highest confidence labels. dlMaxLabels :: Lens' DetectLabels (Maybe Natural)-dlMaxLabels = lens _dlMaxLabels (\ s a -> s{_dlMaxLabels = a}) . mapping _Nat;+dlMaxLabels = lens _dlMaxLabels (\ s a -> s{_dlMaxLabels = a}) . mapping _Nat --- | The input image. You can provide a blob of image bytes or an S3 object.+-- | The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. dlImage :: Lens' DetectLabels Image-dlImage = lens _dlImage (\ s a -> s{_dlImage = a});+dlImage = lens _dlImage (\ s a -> s{_dlImage = a})  instance AWSRequest DetectLabels where         type Rs DetectLabels = DetectLabelsResponse@@ -168,22 +170,22 @@     -> DetectLabelsResponse detectLabelsResponse pResponseStatus_ =   DetectLabelsResponse'-  { _dlrsLabels = Nothing-  , _dlrsOrientationCorrection = Nothing-  , _dlrsResponseStatus = pResponseStatus_-  }+    { _dlrsLabels = Nothing+    , _dlrsOrientationCorrection = Nothing+    , _dlrsResponseStatus = pResponseStatus_+    }   -- | An array of labels for the real-world objects detected. dlrsLabels :: Lens' DetectLabelsResponse [Label]-dlrsLabels = lens _dlrsLabels (\ s a -> s{_dlrsLabels = a}) . _Default . _Coerce;+dlrsLabels = lens _dlrsLabels (\ s a -> s{_dlrsLabels = a}) . _Default . _Coerce  -- | The orientation of the input image (counter-clockwise direction). If your application displays the image, you can use this value to correct the orientation. If Amazon Rekognition detects that the input image was rotated (for example, by 90 degrees), it first corrects the orientation before detecting the labels. dlrsOrientationCorrection :: Lens' DetectLabelsResponse (Maybe OrientationCorrection)-dlrsOrientationCorrection = lens _dlrsOrientationCorrection (\ s a -> s{_dlrsOrientationCorrection = a});+dlrsOrientationCorrection = lens _dlrsOrientationCorrection (\ s a -> s{_dlrsOrientationCorrection = a})  -- | -- | The response status code. dlrsResponseStatus :: Lens' DetectLabelsResponse Int-dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});+dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a})  instance NFData DetectLabelsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Rekognition.DetectModerationLabels--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,8 +21,10 @@ -- Detects explicit or suggestive adult content in a specified JPEG or PNG format image. Use @DetectModerationLabels@ to moderate images depending on your requirements. For example, you might want to filter images that contain nudity, but not images containing suggestive content. -- ----- To filter images, use the labels returned by @DetectModerationLabels@ to determine which types of content are appropriate. For information about moderation labels, see 'image-moderation' .+-- To filter images, use the labels returned by @DetectModerationLabels@ to determine which types of content are appropriate. For information about moderation labels, see 'moderation' . --+-- You pass the input image either as base64-encoded image bytes or as a reference to an image in an Amazon S3 bucket. If you use the Amazon CLI to call Amazon Rekognition operations, passing image bytes is not supported. The image must be either a PNG or JPEG formatted file.+-- module Network.AWS.Rekognition.DetectModerationLabels     (     -- * Creating a Request@@ -60,7 +62,7 @@ -- -- * 'dmlMinConfidence' - Specifies the minimum confidence level for the labels to return. Amazon Rekognition doesn't return any labels with a confidence level lower than this specified value. If you don't specify @MinConfidence@ , the operation returns labels with confidence values greater than or equal to 50 percent. ----- * 'dmlImage' - The input image as bytes or an S3 object.+-- * 'dmlImage' - The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. detectModerationLabels     :: Image -- ^ 'dmlImage'     -> DetectModerationLabels@@ -70,11 +72,11 @@  -- | Specifies the minimum confidence level for the labels to return. Amazon Rekognition doesn't return any labels with a confidence level lower than this specified value. If you don't specify @MinConfidence@ , the operation returns labels with confidence values greater than or equal to 50 percent. dmlMinConfidence :: Lens' DetectModerationLabels (Maybe Double)-dmlMinConfidence = lens _dmlMinConfidence (\ s a -> s{_dmlMinConfidence = a});+dmlMinConfidence = lens _dmlMinConfidence (\ s a -> s{_dmlMinConfidence = a}) --- | The input image as bytes or an S3 object.+-- | The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. dmlImage :: Lens' DetectModerationLabels Image-dmlImage = lens _dmlImage (\ s a -> s{_dmlImage = a});+dmlImage = lens _dmlImage (\ s a -> s{_dmlImage = a})  instance AWSRequest DetectModerationLabels where         type Rs DetectModerationLabels =@@ -125,7 +127,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dmlrsModerationLabels' - An array of labels for explicit or suggestive adult content found in the image. The list includes the top-level label and each child label detected in the image. This is useful for filtering specific categories of content.+-- * 'dmlrsModerationLabels' - Array of detected Moderation labels and the time, in millseconds from the start of the video, they were detected. -- -- * 'dmlrsResponseStatus' - -- | The response status code. detectModerationLabelsResponse@@ -133,15 +135,15 @@     -> DetectModerationLabelsResponse detectModerationLabelsResponse pResponseStatus_ =   DetectModerationLabelsResponse'-  {_dmlrsModerationLabels = Nothing, _dmlrsResponseStatus = pResponseStatus_}+    {_dmlrsModerationLabels = Nothing, _dmlrsResponseStatus = pResponseStatus_}  --- | An array of labels for explicit or suggestive adult content found in the image. The list includes the top-level label and each child label detected in the image. This is useful for filtering specific categories of content.+-- | Array of detected Moderation labels and the time, in millseconds from the start of the video, they were detected. dmlrsModerationLabels :: Lens' DetectModerationLabelsResponse [ModerationLabel]-dmlrsModerationLabels = lens _dmlrsModerationLabels (\ s a -> s{_dmlrsModerationLabels = a}) . _Default . _Coerce;+dmlrsModerationLabels = lens _dmlrsModerationLabels (\ s a -> s{_dmlrsModerationLabels = a}) . _Default . _Coerce  -- | -- | The response status code. dmlrsResponseStatus :: Lens' DetectModerationLabelsResponse Int-dmlrsResponseStatus = lens _dmlrsResponseStatus (\ s a -> s{_dmlrsResponseStatus = a});+dmlrsResponseStatus = lens _dmlrsResponseStatus (\ s a -> s{_dmlrsResponseStatus = a})  instance NFData DetectModerationLabelsResponse where

@@ -0,0 +1,145 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.DetectText+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Detects text in the input image and converts it into machine-readable text.+--+--+-- Pass the input image as base64-encoded image bytes or as a reference to an image in an Amazon S3 bucket. If you use the AWS CLI to call Amazon Rekognition operations, you must pass it as a reference to an image in an Amazon S3 bucket. For the AWS CLI, passing image bytes is not supported. The image must be either a .png or .jpeg formatted file.+--+-- The @DetectText@ operation returns text in an array of elements, @TextDetections@ . Each @TextDetection@ element provides information about a single word or line of text that was detected in the image.+--+-- A word is one or more ISO basic latin script characters that are not separated by spaces. @DetectText@ can detect up to 50 words in an image.+--+-- A line is a string of equally spaced words. A line isn't necessarily a complete sentence. For example, a driver's license number is detected as a line. A line ends when there is no aligned text after it. Also, a line ends when there is a large gap between words, relative to the length of the words. This means, depending on the gap between words, Amazon Rekognition may detect multiple lines in text aligned in the same direction. Periods don't represent the end of a line. If a sentence spans multiple lines, the @DetectText@ operation returns multiple lines.+--+-- To determine whether a @TextDetection@ element is a line of text or a word, use the @TextDetection@ object @Type@ field.+--+-- To be detected, text must be within +/- 30 degrees orientation of the horizontal axis.+--+-- For more information, see 'text-detection' .+--+module Network.AWS.Rekognition.DetectText+    (+    -- * Creating a Request+      detectText+    , DetectText+    -- * Request Lenses+    , dtImage++    -- * Destructuring the Response+    , detectTextResponse+    , DetectTextResponse+    -- * Response Lenses+    , dtrsTextDetections+    , dtrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'detectText' smart constructor.+newtype DetectText = DetectText'+  { _dtImage :: Image+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DetectText' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtImage' - The input image as base64-encoded bytes or an Amazon S3 object. If you use the AWS CLI to call Amazon Rekognition operations, you can't pass image bytes.+detectText+    :: Image -- ^ 'dtImage'+    -> DetectText+detectText pImage_ = DetectText' {_dtImage = pImage_}+++-- | The input image as base64-encoded bytes or an Amazon S3 object. If you use the AWS CLI to call Amazon Rekognition operations, you can't pass image bytes.+dtImage :: Lens' DetectText Image+dtImage = lens _dtImage (\ s a -> s{_dtImage = a})++instance AWSRequest DetectText where+        type Rs DetectText = DetectTextResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 DetectTextResponse' <$>+                   (x .?> "TextDetections" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DetectText where++instance NFData DetectText where++instance ToHeaders DetectText where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.DetectText" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DetectText where+        toJSON DetectText'{..}+          = object (catMaybes [Just ("Image" .= _dtImage)])++instance ToPath DetectText where+        toPath = const "/"++instance ToQuery DetectText where+        toQuery = const mempty++-- | /See:/ 'detectTextResponse' smart constructor.+data DetectTextResponse = DetectTextResponse'+  { _dtrsTextDetections :: !(Maybe [TextDetection])+  , _dtrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DetectTextResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtrsTextDetections' - An array of text that was detected in the input image.+--+-- * 'dtrsResponseStatus' - -- | The response status code.+detectTextResponse+    :: Int -- ^ 'dtrsResponseStatus'+    -> DetectTextResponse+detectTextResponse pResponseStatus_ =+  DetectTextResponse'+    {_dtrsTextDetections = Nothing, _dtrsResponseStatus = pResponseStatus_}+++-- | An array of text that was detected in the input image.+dtrsTextDetections :: Lens' DetectTextResponse [TextDetection]+dtrsTextDetections = lens _dtrsTextDetections (\ s a -> s{_dtrsTextDetections = a}) . _Default . _Coerce++-- | -- | The response status code.+dtrsResponseStatus :: Lens' DetectTextResponse Int+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})++instance NFData DetectTextResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Rekognition.GetCelebrityInfo--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets the name and additional information about a celebrity based on his or her Rekognition ID. The additional information is returned as an array of URLs. If there is no additional information about the celebrity, this list is empty. For more information, see 'celebrity-recognition' .+-- Gets the name and additional information about a celebrity based on his or her Rekognition ID. The additional information is returned as an array of URLs. If there is no additional information about the celebrity, this list is empty. For more information, see 'get-celebrity-info-procedure' . -- -- -- This operation requires permissions to perform the @rekognition:GetCelebrityInfo@ action.@@ -66,7 +66,7 @@  -- | The ID for the celebrity. You get the celebrity ID from a call to the operation, which recognizes celebrities in an image. gciId :: Lens' GetCelebrityInfo Text-gciId = lens _gciId (\ s a -> s{_gciId = a});+gciId = lens _gciId (\ s a -> s{_gciId = a})  instance AWSRequest GetCelebrityInfo where         type Rs GetCelebrityInfo = GetCelebrityInfoResponse@@ -124,22 +124,22 @@     -> GetCelebrityInfoResponse getCelebrityInfoResponse pResponseStatus_ =   GetCelebrityInfoResponse'-  { _gcirsURLs = Nothing-  , _gcirsName = Nothing-  , _gcirsResponseStatus = pResponseStatus_-  }+    { _gcirsURLs = Nothing+    , _gcirsName = Nothing+    , _gcirsResponseStatus = pResponseStatus_+    }   -- | An array of URLs pointing to additional celebrity information. gcirsURLs :: Lens' GetCelebrityInfoResponse [Text]-gcirsURLs = lens _gcirsURLs (\ s a -> s{_gcirsURLs = a}) . _Default . _Coerce;+gcirsURLs = lens _gcirsURLs (\ s a -> s{_gcirsURLs = a}) . _Default . _Coerce  -- | The name of the celebrity. gcirsName :: Lens' GetCelebrityInfoResponse (Maybe Text)-gcirsName = lens _gcirsName (\ s a -> s{_gcirsName = a});+gcirsName = lens _gcirsName (\ s a -> s{_gcirsName = a})  -- | -- | The response status code. gcirsResponseStatus :: Lens' GetCelebrityInfoResponse Int-gcirsResponseStatus = lens _gcirsResponseStatus (\ s a -> s{_gcirsResponseStatus = a});+gcirsResponseStatus = lens _gcirsResponseStatus (\ s a -> s{_gcirsResponseStatus = a})  instance NFData GetCelebrityInfoResponse where

@@ -0,0 +1,221 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.GetCelebrityRecognition+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the celebrity recognition results for a Rekognition Video analysis started by .+--+--+-- Celebrity recognition in a video is an asynchronous operation. Analysis is started by a call to which returns a job identifier (@JobId@ ). When the celebrity recognition operation finishes, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic registered in the initial call to @StartCelebrityRecognition@ . To get the results of the celebrity recognition analysis, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call @GetCelebrityDetection@ and pass the job identifier (@JobId@ ) from the initial call to @StartCelebrityDetection@ . For more information, see 'video' .+--+-- @GetCelebrityRecognition@ returns detected celebrities and the time(s) they are detected in an array (@Celebrities@ ) of objects. Each @CelebrityRecognition@ contains information about the celebrity in a object and the time, @Timestamp@ , the celebrity was detected.+--+-- By default, the @Celebrities@ array is sorted by time (milliseconds from the start of the video). You can also sort the array by celebrity by specifying the value @ID@ in the @SortBy@ input parameter.+--+-- The @CelebrityDetail@ object includes the celebrity identifer and additional information urls. If you don't store the additional information urls, you can get them later by calling with the celebrity identifer.+--+-- No information is returned for faces not recognized as celebrities.+--+-- Use MaxResults parameter to limit the number of labels returned. If there are more results than specified in @MaxResults@ , the value of @NextToken@ in the operation response contains a pagination token for getting the next set of results. To get the next page of results, call @GetCelebrityDetection@ and populate the @NextToken@ request parameter with the token value returned from the previous call to @GetCelebrityRecognition@ .+--+module Network.AWS.Rekognition.GetCelebrityRecognition+    (+    -- * Creating a Request+      getCelebrityRecognition+    , GetCelebrityRecognition+    -- * Request Lenses+    , gcrNextToken+    , gcrMaxResults+    , gcrSortBy+    , gcrJobId++    -- * Destructuring the Response+    , getCelebrityRecognitionResponse+    , GetCelebrityRecognitionResponse+    -- * Response Lenses+    , gcrrsNextToken+    , gcrrsVideoMetadata+    , gcrrsStatusMessage+    , gcrrsCelebrities+    , gcrrsJobStatus+    , gcrrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getCelebrityRecognition' smart constructor.+data GetCelebrityRecognition = GetCelebrityRecognition'+  { _gcrNextToken  :: !(Maybe Text)+  , _gcrMaxResults :: !(Maybe Nat)+  , _gcrSortBy     :: !(Maybe CelebrityRecognitionSortBy)+  , _gcrJobId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetCelebrityRecognition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcrNextToken' - If the previous response was incomplete (because there is more recognized celebrities to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of celebrities.+--+-- * 'gcrMaxResults' - Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+--+-- * 'gcrSortBy' - Sort to use for celebrities returned in @Celebrities@ field. Specify @ID@ to sort by the celebrity identifier, specify @TIMESTAMP@ to sort by the time the celebrity was recognized.+--+-- * 'gcrJobId' - Job identifier for the required celebrity recognition analysis. You can get the job identifer from a call to @StartCelebrityRecognition@ .+getCelebrityRecognition+    :: Text -- ^ 'gcrJobId'+    -> GetCelebrityRecognition+getCelebrityRecognition pJobId_ =+  GetCelebrityRecognition'+    { _gcrNextToken = Nothing+    , _gcrMaxResults = Nothing+    , _gcrSortBy = Nothing+    , _gcrJobId = pJobId_+    }+++-- | If the previous response was incomplete (because there is more recognized celebrities to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of celebrities.+gcrNextToken :: Lens' GetCelebrityRecognition (Maybe Text)+gcrNextToken = lens _gcrNextToken (\ s a -> s{_gcrNextToken = a})++-- | Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+gcrMaxResults :: Lens' GetCelebrityRecognition (Maybe Natural)+gcrMaxResults = lens _gcrMaxResults (\ s a -> s{_gcrMaxResults = a}) . mapping _Nat++-- | Sort to use for celebrities returned in @Celebrities@ field. Specify @ID@ to sort by the celebrity identifier, specify @TIMESTAMP@ to sort by the time the celebrity was recognized.+gcrSortBy :: Lens' GetCelebrityRecognition (Maybe CelebrityRecognitionSortBy)+gcrSortBy = lens _gcrSortBy (\ s a -> s{_gcrSortBy = a})++-- | Job identifier for the required celebrity recognition analysis. You can get the job identifer from a call to @StartCelebrityRecognition@ .+gcrJobId :: Lens' GetCelebrityRecognition Text+gcrJobId = lens _gcrJobId (\ s a -> s{_gcrJobId = a})++instance AWSRequest GetCelebrityRecognition where+        type Rs GetCelebrityRecognition =+             GetCelebrityRecognitionResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 GetCelebrityRecognitionResponse' <$>+                   (x .?> "NextToken") <*> (x .?> "VideoMetadata") <*>+                     (x .?> "StatusMessage")+                     <*> (x .?> "Celebrities" .!@ mempty)+                     <*> (x .?> "JobStatus")+                     <*> (pure (fromEnum s)))++instance Hashable GetCelebrityRecognition where++instance NFData GetCelebrityRecognition where++instance ToHeaders GetCelebrityRecognition where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.GetCelebrityRecognition" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetCelebrityRecognition where+        toJSON GetCelebrityRecognition'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _gcrNextToken,+                  ("MaxResults" .=) <$> _gcrMaxResults,+                  ("SortBy" .=) <$> _gcrSortBy,+                  Just ("JobId" .= _gcrJobId)])++instance ToPath GetCelebrityRecognition where+        toPath = const "/"++instance ToQuery GetCelebrityRecognition where+        toQuery = const mempty++-- | /See:/ 'getCelebrityRecognitionResponse' smart constructor.+data GetCelebrityRecognitionResponse = GetCelebrityRecognitionResponse'+  { _gcrrsNextToken      :: !(Maybe Text)+  , _gcrrsVideoMetadata  :: !(Maybe VideoMetadata)+  , _gcrrsStatusMessage  :: !(Maybe Text)+  , _gcrrsCelebrities    :: !(Maybe [CelebrityRecognition])+  , _gcrrsJobStatus      :: !(Maybe VideoJobStatus)+  , _gcrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetCelebrityRecognitionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcrrsNextToken' - If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of celebrities.+--+-- * 'gcrrsVideoMetadata' - Information about a video that Rekognition Video analyzed. @Videometadata@ is returned in every page of paginated responses from a Rekognition Video operation.+--+-- * 'gcrrsStatusMessage' - If the job fails, @StatusMessage@ provides a descriptive error message.+--+-- * 'gcrrsCelebrities' - Array of celebrities recognized in the video.+--+-- * 'gcrrsJobStatus' - The current status of the celebrity recognition job.+--+-- * 'gcrrsResponseStatus' - -- | The response status code.+getCelebrityRecognitionResponse+    :: Int -- ^ 'gcrrsResponseStatus'+    -> GetCelebrityRecognitionResponse+getCelebrityRecognitionResponse pResponseStatus_ =+  GetCelebrityRecognitionResponse'+    { _gcrrsNextToken = Nothing+    , _gcrrsVideoMetadata = Nothing+    , _gcrrsStatusMessage = Nothing+    , _gcrrsCelebrities = Nothing+    , _gcrrsJobStatus = Nothing+    , _gcrrsResponseStatus = pResponseStatus_+    }+++-- | If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of celebrities.+gcrrsNextToken :: Lens' GetCelebrityRecognitionResponse (Maybe Text)+gcrrsNextToken = lens _gcrrsNextToken (\ s a -> s{_gcrrsNextToken = a})++-- | Information about a video that Rekognition Video analyzed. @Videometadata@ is returned in every page of paginated responses from a Rekognition Video operation.+gcrrsVideoMetadata :: Lens' GetCelebrityRecognitionResponse (Maybe VideoMetadata)+gcrrsVideoMetadata = lens _gcrrsVideoMetadata (\ s a -> s{_gcrrsVideoMetadata = a})++-- | If the job fails, @StatusMessage@ provides a descriptive error message.+gcrrsStatusMessage :: Lens' GetCelebrityRecognitionResponse (Maybe Text)+gcrrsStatusMessage = lens _gcrrsStatusMessage (\ s a -> s{_gcrrsStatusMessage = a})++-- | Array of celebrities recognized in the video.+gcrrsCelebrities :: Lens' GetCelebrityRecognitionResponse [CelebrityRecognition]+gcrrsCelebrities = lens _gcrrsCelebrities (\ s a -> s{_gcrrsCelebrities = a}) . _Default . _Coerce++-- | The current status of the celebrity recognition job.+gcrrsJobStatus :: Lens' GetCelebrityRecognitionResponse (Maybe VideoJobStatus)+gcrrsJobStatus = lens _gcrrsJobStatus (\ s a -> s{_gcrrsJobStatus = a})++-- | -- | The response status code.+gcrrsResponseStatus :: Lens' GetCelebrityRecognitionResponse Int+gcrrsResponseStatus = lens _gcrrsResponseStatus (\ s a -> s{_gcrrsResponseStatus = a})++instance NFData GetCelebrityRecognitionResponse where

@@ -0,0 +1,219 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.GetContentModeration+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the content moderation analysis results for a Rekognition Video analysis started by .+--+--+-- Content moderation analysis of a video is an asynchronous operation. You start analysis by calling . which returns a job identifier (@JobId@ ). When analysis finishes, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic registered in the initial call to @StartContentModeration@ . To get the results of the content moderation analysis, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call @GetCelebrityDetection@ and pass the job identifier (@JobId@ ) from the initial call to @StartCelebrityDetection@ . For more information, see 'video' .+--+-- @GetContentModeration@ returns detected content moderation labels, and the time they are detected, in an array, @ModerationLabels@ , of objects.+--+-- By default, the moderated labels are returned sorted by time, in milliseconds from the start of the video. You can also sort them by moderated label by specifying @NAME@ for the @SortBy@ input parameter.+--+-- Since video analysis can return a large number of results, use the @MaxResults@ parameter to limit the number of labels returned in a single call to @GetContentModeration@ . If there are more results than specified in @MaxResults@ , the value of @NextToken@ in the operation response contains a pagination token for getting the next set of results. To get the next page of results, call @GetContentModeration@ and populate the @NextToken@ request parameter with the value of @NextToken@ returned from the previous call to @GetContentModeration@ .+--+-- For more information, see 'moderation' .+--+module Network.AWS.Rekognition.GetContentModeration+    (+    -- * Creating a Request+      getContentModeration+    , GetContentModeration+    -- * Request Lenses+    , gcmNextToken+    , gcmMaxResults+    , gcmSortBy+    , gcmJobId++    -- * Destructuring the Response+    , getContentModerationResponse+    , GetContentModerationResponse+    -- * Response Lenses+    , gcmrsNextToken+    , gcmrsVideoMetadata+    , gcmrsStatusMessage+    , gcmrsJobStatus+    , gcmrsModerationLabels+    , gcmrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getContentModeration' smart constructor.+data GetContentModeration = GetContentModeration'+  { _gcmNextToken  :: !(Maybe Text)+  , _gcmMaxResults :: !(Maybe Nat)+  , _gcmSortBy     :: !(Maybe ContentModerationSortBy)+  , _gcmJobId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetContentModeration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcmNextToken' - If the previous response was incomplete (because there is more data to retrieve), Amazon Rekognition returns a pagination token in the response. You can use this pagination token to retrieve the next set of content moderation labels.+--+-- * 'gcmMaxResults' - Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+--+-- * 'gcmSortBy' - Sort to use for elements in the @ModerationLabelDetections@ array. Use @TIMESTAMP@ to sort array elements by the time labels are detected. Use @NAME@ to alphabetically group elements for a label together. Within each label group, the array element are sorted by detection confidence. The default sort is by @TIMESTAMP@ .+--+-- * 'gcmJobId' - The identifier for the content moderation job. Use @JobId@ to identify the job in a subsequent call to @GetContentModeration@ .+getContentModeration+    :: Text -- ^ 'gcmJobId'+    -> GetContentModeration+getContentModeration pJobId_ =+  GetContentModeration'+    { _gcmNextToken = Nothing+    , _gcmMaxResults = Nothing+    , _gcmSortBy = Nothing+    , _gcmJobId = pJobId_+    }+++-- | If the previous response was incomplete (because there is more data to retrieve), Amazon Rekognition returns a pagination token in the response. You can use this pagination token to retrieve the next set of content moderation labels.+gcmNextToken :: Lens' GetContentModeration (Maybe Text)+gcmNextToken = lens _gcmNextToken (\ s a -> s{_gcmNextToken = a})++-- | Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+gcmMaxResults :: Lens' GetContentModeration (Maybe Natural)+gcmMaxResults = lens _gcmMaxResults (\ s a -> s{_gcmMaxResults = a}) . mapping _Nat++-- | Sort to use for elements in the @ModerationLabelDetections@ array. Use @TIMESTAMP@ to sort array elements by the time labels are detected. Use @NAME@ to alphabetically group elements for a label together. Within each label group, the array element are sorted by detection confidence. The default sort is by @TIMESTAMP@ .+gcmSortBy :: Lens' GetContentModeration (Maybe ContentModerationSortBy)+gcmSortBy = lens _gcmSortBy (\ s a -> s{_gcmSortBy = a})++-- | The identifier for the content moderation job. Use @JobId@ to identify the job in a subsequent call to @GetContentModeration@ .+gcmJobId :: Lens' GetContentModeration Text+gcmJobId = lens _gcmJobId (\ s a -> s{_gcmJobId = a})++instance AWSRequest GetContentModeration where+        type Rs GetContentModeration =+             GetContentModerationResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 GetContentModerationResponse' <$>+                   (x .?> "NextToken") <*> (x .?> "VideoMetadata") <*>+                     (x .?> "StatusMessage")+                     <*> (x .?> "JobStatus")+                     <*> (x .?> "ModerationLabels" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable GetContentModeration where++instance NFData GetContentModeration where++instance ToHeaders GetContentModeration where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.GetContentModeration" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetContentModeration where+        toJSON GetContentModeration'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _gcmNextToken,+                  ("MaxResults" .=) <$> _gcmMaxResults,+                  ("SortBy" .=) <$> _gcmSortBy,+                  Just ("JobId" .= _gcmJobId)])++instance ToPath GetContentModeration where+        toPath = const "/"++instance ToQuery GetContentModeration where+        toQuery = const mempty++-- | /See:/ 'getContentModerationResponse' smart constructor.+data GetContentModerationResponse = GetContentModerationResponse'+  { _gcmrsNextToken        :: !(Maybe Text)+  , _gcmrsVideoMetadata    :: !(Maybe VideoMetadata)+  , _gcmrsStatusMessage    :: !(Maybe Text)+  , _gcmrsJobStatus        :: !(Maybe VideoJobStatus)+  , _gcmrsModerationLabels :: !(Maybe [ContentModerationDetection])+  , _gcmrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetContentModerationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcmrsNextToken' - If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of moderation labels.+--+-- * 'gcmrsVideoMetadata' - Information about a video that Amazon Rekognition analyzed. @Videometadata@ is returned in every page of paginated responses from @GetContentModeration@ .+--+-- * 'gcmrsStatusMessage' - If the job fails, @StatusMessage@ provides a descriptive error message.+--+-- * 'gcmrsJobStatus' - The current status of the content moderation job.+--+-- * 'gcmrsModerationLabels' - The detected moderation labels and the time(s) they were detected.+--+-- * 'gcmrsResponseStatus' - -- | The response status code.+getContentModerationResponse+    :: Int -- ^ 'gcmrsResponseStatus'+    -> GetContentModerationResponse+getContentModerationResponse pResponseStatus_ =+  GetContentModerationResponse'+    { _gcmrsNextToken = Nothing+    , _gcmrsVideoMetadata = Nothing+    , _gcmrsStatusMessage = Nothing+    , _gcmrsJobStatus = Nothing+    , _gcmrsModerationLabels = Nothing+    , _gcmrsResponseStatus = pResponseStatus_+    }+++-- | If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of moderation labels.+gcmrsNextToken :: Lens' GetContentModerationResponse (Maybe Text)+gcmrsNextToken = lens _gcmrsNextToken (\ s a -> s{_gcmrsNextToken = a})++-- | Information about a video that Amazon Rekognition analyzed. @Videometadata@ is returned in every page of paginated responses from @GetContentModeration@ .+gcmrsVideoMetadata :: Lens' GetContentModerationResponse (Maybe VideoMetadata)+gcmrsVideoMetadata = lens _gcmrsVideoMetadata (\ s a -> s{_gcmrsVideoMetadata = a})++-- | If the job fails, @StatusMessage@ provides a descriptive error message.+gcmrsStatusMessage :: Lens' GetContentModerationResponse (Maybe Text)+gcmrsStatusMessage = lens _gcmrsStatusMessage (\ s a -> s{_gcmrsStatusMessage = a})++-- | The current status of the content moderation job.+gcmrsJobStatus :: Lens' GetContentModerationResponse (Maybe VideoJobStatus)+gcmrsJobStatus = lens _gcmrsJobStatus (\ s a -> s{_gcmrsJobStatus = a})++-- | The detected moderation labels and the time(s) they were detected.+gcmrsModerationLabels :: Lens' GetContentModerationResponse [ContentModerationDetection]+gcmrsModerationLabels = lens _gcmrsModerationLabels (\ s a -> s{_gcmrsModerationLabels = a}) . _Default . _Coerce++-- | -- | The response status code.+gcmrsResponseStatus :: Lens' GetContentModerationResponse Int+gcmrsResponseStatus = lens _gcmrsResponseStatus (\ s a -> s{_gcmrsResponseStatus = a})++instance NFData GetContentModerationResponse where

@@ -0,0 +1,201 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.GetFaceDetection+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets face detection results for a Rekognition Video analysis started by .+--+--+-- Face detection with Rekognition Video is an asynchronous operation. You start face detection by calling which returns a job identifier (@JobId@ ). When the face detection operation finishes, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic registered in the initial call to @StartFaceDetection@ . To get the results of the face detection operation, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call and pass the job identifier (@JobId@ ) from the initial call to @StartFaceDetection@ .+--+-- @GetFaceDetection@ returns an array of detected faces (@Faces@ ) sorted by the time the faces were detected.+--+-- Use MaxResults parameter to limit the number of labels returned. If there are more results than specified in @MaxResults@ , the value of @NextToken@ in the operation response contains a pagination token for getting the next set of results. To get the next page of results, call @GetFaceDetection@ and populate the @NextToken@ request parameter with the token value returned from the previous call to @GetFaceDetection@ .+--+module Network.AWS.Rekognition.GetFaceDetection+    (+    -- * Creating a Request+      getFaceDetection+    , GetFaceDetection+    -- * Request Lenses+    , gfdNextToken+    , gfdMaxResults+    , gfdJobId++    -- * Destructuring the Response+    , getFaceDetectionResponse+    , GetFaceDetectionResponse+    -- * Response Lenses+    , gfdrsNextToken+    , gfdrsVideoMetadata+    , gfdrsStatusMessage+    , gfdrsFaces+    , gfdrsJobStatus+    , gfdrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getFaceDetection' smart constructor.+data GetFaceDetection = GetFaceDetection'+  { _gfdNextToken  :: !(Maybe Text)+  , _gfdMaxResults :: !(Maybe Nat)+  , _gfdJobId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetFaceDetection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gfdNextToken' - If the previous response was incomplete (because there are more faces to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of faces.+--+-- * 'gfdMaxResults' - Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+--+-- * 'gfdJobId' - Unique identifier for the face detection job. The @JobId@ is returned from @StartFaceDetection@ .+getFaceDetection+    :: Text -- ^ 'gfdJobId'+    -> GetFaceDetection+getFaceDetection pJobId_ =+  GetFaceDetection'+    {_gfdNextToken = Nothing, _gfdMaxResults = Nothing, _gfdJobId = pJobId_}+++-- | If the previous response was incomplete (because there are more faces to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of faces.+gfdNextToken :: Lens' GetFaceDetection (Maybe Text)+gfdNextToken = lens _gfdNextToken (\ s a -> s{_gfdNextToken = a})++-- | Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+gfdMaxResults :: Lens' GetFaceDetection (Maybe Natural)+gfdMaxResults = lens _gfdMaxResults (\ s a -> s{_gfdMaxResults = a}) . mapping _Nat++-- | Unique identifier for the face detection job. The @JobId@ is returned from @StartFaceDetection@ .+gfdJobId :: Lens' GetFaceDetection Text+gfdJobId = lens _gfdJobId (\ s a -> s{_gfdJobId = a})++instance AWSRequest GetFaceDetection where+        type Rs GetFaceDetection = GetFaceDetectionResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 GetFaceDetectionResponse' <$>+                   (x .?> "NextToken") <*> (x .?> "VideoMetadata") <*>+                     (x .?> "StatusMessage")+                     <*> (x .?> "Faces" .!@ mempty)+                     <*> (x .?> "JobStatus")+                     <*> (pure (fromEnum s)))++instance Hashable GetFaceDetection where++instance NFData GetFaceDetection where++instance ToHeaders GetFaceDetection where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.GetFaceDetection" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetFaceDetection where+        toJSON GetFaceDetection'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _gfdNextToken,+                  ("MaxResults" .=) <$> _gfdMaxResults,+                  Just ("JobId" .= _gfdJobId)])++instance ToPath GetFaceDetection where+        toPath = const "/"++instance ToQuery GetFaceDetection where+        toQuery = const mempty++-- | /See:/ 'getFaceDetectionResponse' smart constructor.+data GetFaceDetectionResponse = GetFaceDetectionResponse'+  { _gfdrsNextToken      :: !(Maybe Text)+  , _gfdrsVideoMetadata  :: !(Maybe VideoMetadata)+  , _gfdrsStatusMessage  :: !(Maybe Text)+  , _gfdrsFaces          :: !(Maybe [FaceDetection])+  , _gfdrsJobStatus      :: !(Maybe VideoJobStatus)+  , _gfdrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetFaceDetectionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gfdrsNextToken' - If the response is truncated, Amazon Rekognition returns this token that you can use in the subsequent request to retrieve the next set of faces.+--+-- * 'gfdrsVideoMetadata' - Information about a video that Rekognition Video analyzed. @Videometadata@ is returned in every page of paginated responses from a Amazon Rekognition video operation.+--+-- * 'gfdrsStatusMessage' - If the job fails, @StatusMessage@ provides a descriptive error message.+--+-- * 'gfdrsFaces' - An array of faces detected in the video. Each element contains a detected face's details and the time, in milliseconds from the start of the video, the face was detected.+--+-- * 'gfdrsJobStatus' - The current status of the face detection job.+--+-- * 'gfdrsResponseStatus' - -- | The response status code.+getFaceDetectionResponse+    :: Int -- ^ 'gfdrsResponseStatus'+    -> GetFaceDetectionResponse+getFaceDetectionResponse pResponseStatus_ =+  GetFaceDetectionResponse'+    { _gfdrsNextToken = Nothing+    , _gfdrsVideoMetadata = Nothing+    , _gfdrsStatusMessage = Nothing+    , _gfdrsFaces = Nothing+    , _gfdrsJobStatus = Nothing+    , _gfdrsResponseStatus = pResponseStatus_+    }+++-- | If the response is truncated, Amazon Rekognition returns this token that you can use in the subsequent request to retrieve the next set of faces.+gfdrsNextToken :: Lens' GetFaceDetectionResponse (Maybe Text)+gfdrsNextToken = lens _gfdrsNextToken (\ s a -> s{_gfdrsNextToken = a})++-- | Information about a video that Rekognition Video analyzed. @Videometadata@ is returned in every page of paginated responses from a Amazon Rekognition video operation.+gfdrsVideoMetadata :: Lens' GetFaceDetectionResponse (Maybe VideoMetadata)+gfdrsVideoMetadata = lens _gfdrsVideoMetadata (\ s a -> s{_gfdrsVideoMetadata = a})++-- | If the job fails, @StatusMessage@ provides a descriptive error message.+gfdrsStatusMessage :: Lens' GetFaceDetectionResponse (Maybe Text)+gfdrsStatusMessage = lens _gfdrsStatusMessage (\ s a -> s{_gfdrsStatusMessage = a})++-- | An array of faces detected in the video. Each element contains a detected face's details and the time, in milliseconds from the start of the video, the face was detected.+gfdrsFaces :: Lens' GetFaceDetectionResponse [FaceDetection]+gfdrsFaces = lens _gfdrsFaces (\ s a -> s{_gfdrsFaces = a}) . _Default . _Coerce++-- | The current status of the face detection job.+gfdrsJobStatus :: Lens' GetFaceDetectionResponse (Maybe VideoJobStatus)+gfdrsJobStatus = lens _gfdrsJobStatus (\ s a -> s{_gfdrsJobStatus = a})++-- | -- | The response status code.+gfdrsResponseStatus :: Lens' GetFaceDetectionResponse Int+gfdrsResponseStatus = lens _gfdrsResponseStatus (\ s a -> s{_gfdrsResponseStatus = a})++instance NFData GetFaceDetectionResponse where

@@ -0,0 +1,213 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.GetFaceSearch+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the face search results for Rekognition Video face search started by . The search returns faces in a collection that match the faces of persons detected in a video. It also includes the time(s) that faces are matched in the video.+--+--+-- Face search in a video is an asynchronous operation. You start face search by calling to which returns a job identifier (@JobId@ ). When the search operation finishes, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic registered in the initial call to @StartFaceSearch@ . To get the search results, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call @GetFaceSearch@ and pass the job identifier (@JobId@ ) from the initial call to @StartFaceSearch@ . For more information, see 'collections' .+--+-- The search results are retured in an array, @Persons@ , of objects. Each@PersonMatch@ element contains details about the matching faces in the input collection, person information (facial attributes, bounding boxes, and person identifer) for the matched person, and the time the person was matched in the video.+--+-- By default, the @Persons@ array is sorted by the time, in milliseconds from the start of the video, persons are matched. You can also sort by persons by specifying @INDEX@ for the @SORTBY@ input parameter.+--+module Network.AWS.Rekognition.GetFaceSearch+    (+    -- * Creating a Request+      getFaceSearch+    , GetFaceSearch+    -- * Request Lenses+    , gfsNextToken+    , gfsMaxResults+    , gfsSortBy+    , gfsJobId++    -- * Destructuring the Response+    , getFaceSearchResponse+    , GetFaceSearchResponse+    -- * Response Lenses+    , gfsrsNextToken+    , gfsrsVideoMetadata+    , gfsrsStatusMessage+    , gfsrsJobStatus+    , gfsrsPersons+    , gfsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getFaceSearch' smart constructor.+data GetFaceSearch = GetFaceSearch'+  { _gfsNextToken  :: !(Maybe Text)+  , _gfsMaxResults :: !(Maybe Nat)+  , _gfsSortBy     :: !(Maybe FaceSearchSortBy)+  , _gfsJobId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetFaceSearch' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gfsNextToken' - If the previous response was incomplete (because there is more search results to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of search results.+--+-- * 'gfsMaxResults' - Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+--+-- * 'gfsSortBy' - Sort to use for grouping faces in the response. Use @TIMESTAMP@ to group faces by the time that they are recognized. Use @INDEX@ to sort by recognized faces.+--+-- * 'gfsJobId' - The job identifer for the search request. You get the job identifier from an initial call to @StartFaceSearch@ .+getFaceSearch+    :: Text -- ^ 'gfsJobId'+    -> GetFaceSearch+getFaceSearch pJobId_ =+  GetFaceSearch'+    { _gfsNextToken = Nothing+    , _gfsMaxResults = Nothing+    , _gfsSortBy = Nothing+    , _gfsJobId = pJobId_+    }+++-- | If the previous response was incomplete (because there is more search results to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of search results.+gfsNextToken :: Lens' GetFaceSearch (Maybe Text)+gfsNextToken = lens _gfsNextToken (\ s a -> s{_gfsNextToken = a})++-- | Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+gfsMaxResults :: Lens' GetFaceSearch (Maybe Natural)+gfsMaxResults = lens _gfsMaxResults (\ s a -> s{_gfsMaxResults = a}) . mapping _Nat++-- | Sort to use for grouping faces in the response. Use @TIMESTAMP@ to group faces by the time that they are recognized. Use @INDEX@ to sort by recognized faces.+gfsSortBy :: Lens' GetFaceSearch (Maybe FaceSearchSortBy)+gfsSortBy = lens _gfsSortBy (\ s a -> s{_gfsSortBy = a})++-- | The job identifer for the search request. You get the job identifier from an initial call to @StartFaceSearch@ .+gfsJobId :: Lens' GetFaceSearch Text+gfsJobId = lens _gfsJobId (\ s a -> s{_gfsJobId = a})++instance AWSRequest GetFaceSearch where+        type Rs GetFaceSearch = GetFaceSearchResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 GetFaceSearchResponse' <$>+                   (x .?> "NextToken") <*> (x .?> "VideoMetadata") <*>+                     (x .?> "StatusMessage")+                     <*> (x .?> "JobStatus")+                     <*> (x .?> "Persons" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable GetFaceSearch where++instance NFData GetFaceSearch where++instance ToHeaders GetFaceSearch where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.GetFaceSearch" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetFaceSearch where+        toJSON GetFaceSearch'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _gfsNextToken,+                  ("MaxResults" .=) <$> _gfsMaxResults,+                  ("SortBy" .=) <$> _gfsSortBy,+                  Just ("JobId" .= _gfsJobId)])++instance ToPath GetFaceSearch where+        toPath = const "/"++instance ToQuery GetFaceSearch where+        toQuery = const mempty++-- | /See:/ 'getFaceSearchResponse' smart constructor.+data GetFaceSearchResponse = GetFaceSearchResponse'+  { _gfsrsNextToken      :: !(Maybe Text)+  , _gfsrsVideoMetadata  :: !(Maybe VideoMetadata)+  , _gfsrsStatusMessage  :: !(Maybe Text)+  , _gfsrsJobStatus      :: !(Maybe VideoJobStatus)+  , _gfsrsPersons        :: !(Maybe [PersonMatch])+  , _gfsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetFaceSearchResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gfsrsNextToken' - If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of search results.+--+-- * 'gfsrsVideoMetadata' - Information about a video that Amazon Rekognition analyzed. @Videometadata@ is returned in every page of paginated responses from a Rekognition Video operation.+--+-- * 'gfsrsStatusMessage' - If the job fails, @StatusMessage@ provides a descriptive error message.+--+-- * 'gfsrsJobStatus' - The current status of the face search job.+--+-- * 'gfsrsPersons' - An array of persons, , in the video whose face(s) match the face(s) in an Amazon Rekognition collection. It also includes time information for when persons are matched in the video. You specify the input collection in an initial call to @StartFaceSearch@ . Each @Persons@ element includes a time the person was matched, face match details (@FaceMatches@ ) for matching faces in the collection, and person information (@Person@ ) for the matched person.+--+-- * 'gfsrsResponseStatus' - -- | The response status code.+getFaceSearchResponse+    :: Int -- ^ 'gfsrsResponseStatus'+    -> GetFaceSearchResponse+getFaceSearchResponse pResponseStatus_ =+  GetFaceSearchResponse'+    { _gfsrsNextToken = Nothing+    , _gfsrsVideoMetadata = Nothing+    , _gfsrsStatusMessage = Nothing+    , _gfsrsJobStatus = Nothing+    , _gfsrsPersons = Nothing+    , _gfsrsResponseStatus = pResponseStatus_+    }+++-- | If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of search results.+gfsrsNextToken :: Lens' GetFaceSearchResponse (Maybe Text)+gfsrsNextToken = lens _gfsrsNextToken (\ s a -> s{_gfsrsNextToken = a})++-- | Information about a video that Amazon Rekognition analyzed. @Videometadata@ is returned in every page of paginated responses from a Rekognition Video operation.+gfsrsVideoMetadata :: Lens' GetFaceSearchResponse (Maybe VideoMetadata)+gfsrsVideoMetadata = lens _gfsrsVideoMetadata (\ s a -> s{_gfsrsVideoMetadata = a})++-- | If the job fails, @StatusMessage@ provides a descriptive error message.+gfsrsStatusMessage :: Lens' GetFaceSearchResponse (Maybe Text)+gfsrsStatusMessage = lens _gfsrsStatusMessage (\ s a -> s{_gfsrsStatusMessage = a})++-- | The current status of the face search job.+gfsrsJobStatus :: Lens' GetFaceSearchResponse (Maybe VideoJobStatus)+gfsrsJobStatus = lens _gfsrsJobStatus (\ s a -> s{_gfsrsJobStatus = a})++-- | An array of persons, , in the video whose face(s) match the face(s) in an Amazon Rekognition collection. It also includes time information for when persons are matched in the video. You specify the input collection in an initial call to @StartFaceSearch@ . Each @Persons@ element includes a time the person was matched, face match details (@FaceMatches@ ) for matching faces in the collection, and person information (@Person@ ) for the matched person.+gfsrsPersons :: Lens' GetFaceSearchResponse [PersonMatch]+gfsrsPersons = lens _gfsrsPersons (\ s a -> s{_gfsrsPersons = a}) . _Default . _Coerce++-- | -- | The response status code.+gfsrsResponseStatus :: Lens' GetFaceSearchResponse Int+gfsrsResponseStatus = lens _gfsrsResponseStatus (\ s a -> s{_gfsrsResponseStatus = a})++instance NFData GetFaceSearchResponse where

@@ -0,0 +1,216 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.GetLabelDetection+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the label detection results of a Rekognition Video analysis started by .+--+--+-- The label detection operation is started by a call to which returns a job identifier (@JobId@ ). When the label detection operation finishes, Amazon Rekognition publishes a completion status to the Amazon Simple Notification Service topic registered in the initial call to @StartlabelDetection@ . To get the results of the label detection operation, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call and pass the job identifier (@JobId@ ) from the initial call to @StartLabelDetection@ .+--+-- @GetLabelDetection@ returns an array of detected labels (@Labels@ ) sorted by the time the labels were detected. You can also sort by the label name by specifying @NAME@ for the @SortBy@ input parameter.+--+-- The labels returned include the label name, the percentage confidence in the accuracy of the detected label, and the time the label was detected in the video.+--+-- Use MaxResults parameter to limit the number of labels returned. If there are more results than specified in @MaxResults@ , the value of @NextToken@ in the operation response contains a pagination token for getting the next set of results. To get the next page of results, call @GetlabelDetection@ and populate the @NextToken@ request parameter with the token value returned from the previous call to @GetLabelDetection@ .+--+module Network.AWS.Rekognition.GetLabelDetection+    (+    -- * Creating a Request+      getLabelDetection+    , GetLabelDetection+    -- * Request Lenses+    , gldNextToken+    , gldMaxResults+    , gldSortBy+    , gldJobId++    -- * Destructuring the Response+    , getLabelDetectionResponse+    , GetLabelDetectionResponse+    -- * Response Lenses+    , gldrsNextToken+    , gldrsVideoMetadata+    , gldrsStatusMessage+    , gldrsLabels+    , gldrsJobStatus+    , gldrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getLabelDetection' smart constructor.+data GetLabelDetection = GetLabelDetection'+  { _gldNextToken  :: !(Maybe Text)+  , _gldMaxResults :: !(Maybe Nat)+  , _gldSortBy     :: !(Maybe LabelDetectionSortBy)+  , _gldJobId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLabelDetection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gldNextToken' - If the previous response was incomplete (because there are more labels to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of labels.+--+-- * 'gldMaxResults' - Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+--+-- * 'gldSortBy' - Sort to use for elements in the @Labels@ array. Use @TIMESTAMP@ to sort array elements by the time labels are detected. Use @NAME@ to alphabetically group elements for a label together. Within each label group, the array element are sorted by detection confidence. The default sort is by @TIMESTAMP@ .+--+-- * 'gldJobId' - Job identifier for the label detection operation for which you want results returned. You get the job identifer from an initial call to @StartlabelDetection@ .+getLabelDetection+    :: Text -- ^ 'gldJobId'+    -> GetLabelDetection+getLabelDetection pJobId_ =+  GetLabelDetection'+    { _gldNextToken = Nothing+    , _gldMaxResults = Nothing+    , _gldSortBy = Nothing+    , _gldJobId = pJobId_+    }+++-- | If the previous response was incomplete (because there are more labels to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of labels.+gldNextToken :: Lens' GetLabelDetection (Maybe Text)+gldNextToken = lens _gldNextToken (\ s a -> s{_gldNextToken = a})++-- | Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+gldMaxResults :: Lens' GetLabelDetection (Maybe Natural)+gldMaxResults = lens _gldMaxResults (\ s a -> s{_gldMaxResults = a}) . mapping _Nat++-- | Sort to use for elements in the @Labels@ array. Use @TIMESTAMP@ to sort array elements by the time labels are detected. Use @NAME@ to alphabetically group elements for a label together. Within each label group, the array element are sorted by detection confidence. The default sort is by @TIMESTAMP@ .+gldSortBy :: Lens' GetLabelDetection (Maybe LabelDetectionSortBy)+gldSortBy = lens _gldSortBy (\ s a -> s{_gldSortBy = a})++-- | Job identifier for the label detection operation for which you want results returned. You get the job identifer from an initial call to @StartlabelDetection@ .+gldJobId :: Lens' GetLabelDetection Text+gldJobId = lens _gldJobId (\ s a -> s{_gldJobId = a})++instance AWSRequest GetLabelDetection where+        type Rs GetLabelDetection = GetLabelDetectionResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 GetLabelDetectionResponse' <$>+                   (x .?> "NextToken") <*> (x .?> "VideoMetadata") <*>+                     (x .?> "StatusMessage")+                     <*> (x .?> "Labels" .!@ mempty)+                     <*> (x .?> "JobStatus")+                     <*> (pure (fromEnum s)))++instance Hashable GetLabelDetection where++instance NFData GetLabelDetection where++instance ToHeaders GetLabelDetection where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.GetLabelDetection" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetLabelDetection where+        toJSON GetLabelDetection'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _gldNextToken,+                  ("MaxResults" .=) <$> _gldMaxResults,+                  ("SortBy" .=) <$> _gldSortBy,+                  Just ("JobId" .= _gldJobId)])++instance ToPath GetLabelDetection where+        toPath = const "/"++instance ToQuery GetLabelDetection where+        toQuery = const mempty++-- | /See:/ 'getLabelDetectionResponse' smart constructor.+data GetLabelDetectionResponse = GetLabelDetectionResponse'+  { _gldrsNextToken      :: !(Maybe Text)+  , _gldrsVideoMetadata  :: !(Maybe VideoMetadata)+  , _gldrsStatusMessage  :: !(Maybe Text)+  , _gldrsLabels         :: !(Maybe [LabelDetection])+  , _gldrsJobStatus      :: !(Maybe VideoJobStatus)+  , _gldrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLabelDetectionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gldrsNextToken' - If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of labels.+--+-- * 'gldrsVideoMetadata' - Information about a video that Rekognition Video analyzed. @Videometadata@ is returned in every page of paginated responses from a Amazon Rekognition video operation.+--+-- * 'gldrsStatusMessage' - If the job fails, @StatusMessage@ provides a descriptive error message.+--+-- * 'gldrsLabels' - An array of labels detected in the video. Each element contains the detected label and the time, in milliseconds from the start of the video, that the label was detected.+--+-- * 'gldrsJobStatus' - The current status of the label detection job.+--+-- * 'gldrsResponseStatus' - -- | The response status code.+getLabelDetectionResponse+    :: Int -- ^ 'gldrsResponseStatus'+    -> GetLabelDetectionResponse+getLabelDetectionResponse pResponseStatus_ =+  GetLabelDetectionResponse'+    { _gldrsNextToken = Nothing+    , _gldrsVideoMetadata = Nothing+    , _gldrsStatusMessage = Nothing+    , _gldrsLabels = Nothing+    , _gldrsJobStatus = Nothing+    , _gldrsResponseStatus = pResponseStatus_+    }+++-- | If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of labels.+gldrsNextToken :: Lens' GetLabelDetectionResponse (Maybe Text)+gldrsNextToken = lens _gldrsNextToken (\ s a -> s{_gldrsNextToken = a})++-- | Information about a video that Rekognition Video analyzed. @Videometadata@ is returned in every page of paginated responses from a Amazon Rekognition video operation.+gldrsVideoMetadata :: Lens' GetLabelDetectionResponse (Maybe VideoMetadata)+gldrsVideoMetadata = lens _gldrsVideoMetadata (\ s a -> s{_gldrsVideoMetadata = a})++-- | If the job fails, @StatusMessage@ provides a descriptive error message.+gldrsStatusMessage :: Lens' GetLabelDetectionResponse (Maybe Text)+gldrsStatusMessage = lens _gldrsStatusMessage (\ s a -> s{_gldrsStatusMessage = a})++-- | An array of labels detected in the video. Each element contains the detected label and the time, in milliseconds from the start of the video, that the label was detected.+gldrsLabels :: Lens' GetLabelDetectionResponse [LabelDetection]+gldrsLabels = lens _gldrsLabels (\ s a -> s{_gldrsLabels = a}) . _Default . _Coerce++-- | The current status of the label detection job.+gldrsJobStatus :: Lens' GetLabelDetectionResponse (Maybe VideoJobStatus)+gldrsJobStatus = lens _gldrsJobStatus (\ s a -> s{_gldrsJobStatus = a})++-- | -- | The response status code.+gldrsResponseStatus :: Lens' GetLabelDetectionResponse Int+gldrsResponseStatus = lens _gldrsResponseStatus (\ s a -> s{_gldrsResponseStatus = a})++instance NFData GetLabelDetectionResponse where

@@ -0,0 +1,218 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.GetPersonTracking+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the person tracking results of a Rekognition Video analysis started by .+--+--+-- The person detection operation is started by a call to @StartPersonTracking@ which returns a job identifier (@JobId@ ). When the person detection operation finishes, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic registered in the initial call to @StartPersonTracking@ .+--+-- To get the results of the person tracking operation, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call and pass the job identifier (@JobId@ ) from the initial call to @StartPersonTracking@ .+--+-- @GetPersonTracking@ returns an array, @Persons@ , of tracked persons and the time(s) they were tracked in the video.+--+-- By default, the array is sorted by the time(s) a person is tracked in the video. You can sort by tracked persons by specifying @INDEX@ for the @SortBy@ input parameter.+--+-- Use the @MaxResults@ parameter to limit the number of items returned. If there are more results than specified in @MaxResults@ , the value of @NextToken@ in the operation response contains a pagination token for getting the next set of results. To get the next page of results, call @GetPersonTracking@ and populate the @NextToken@ request parameter with the token value returned from the previous call to @GetPersonTracking@ .+--+module Network.AWS.Rekognition.GetPersonTracking+    (+    -- * Creating a Request+      getPersonTracking+    , GetPersonTracking+    -- * Request Lenses+    , gptNextToken+    , gptMaxResults+    , gptSortBy+    , gptJobId++    -- * Destructuring the Response+    , getPersonTrackingResponse+    , GetPersonTrackingResponse+    -- * Response Lenses+    , gptrsNextToken+    , gptrsVideoMetadata+    , gptrsStatusMessage+    , gptrsJobStatus+    , gptrsPersons+    , gptrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getPersonTracking' smart constructor.+data GetPersonTracking = GetPersonTracking'+  { _gptNextToken  :: !(Maybe Text)+  , _gptMaxResults :: !(Maybe Nat)+  , _gptSortBy     :: !(Maybe PersonTrackingSortBy)+  , _gptJobId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetPersonTracking' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gptNextToken' - If the previous response was incomplete (because there are more persons to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of persons.+--+-- * 'gptMaxResults' - Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+--+-- * 'gptSortBy' - Sort to use for elements in the @Persons@ array. Use @TIMESTAMP@ to sort array elements by the time persons are detected. Use @INDEX@ to sort by the tracked persons. If you sort by @INDEX@ , the array elements for each person are sorted by detection confidence. The default sort is by @TIMESTAMP@ .+--+-- * 'gptJobId' - The identifier for a job that tracks persons in a video. You get the @JobId@ from a call to @StartPersonTracking@ .+getPersonTracking+    :: Text -- ^ 'gptJobId'+    -> GetPersonTracking+getPersonTracking pJobId_ =+  GetPersonTracking'+    { _gptNextToken = Nothing+    , _gptMaxResults = Nothing+    , _gptSortBy = Nothing+    , _gptJobId = pJobId_+    }+++-- | If the previous response was incomplete (because there are more persons to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of persons.+gptNextToken :: Lens' GetPersonTracking (Maybe Text)+gptNextToken = lens _gptNextToken (\ s a -> s{_gptNextToken = a})++-- | Maximum number of results to return per paginated call. The largest value you can specify is 1000. If you specify a value greater than 1000, a maximum of 1000 results is returned. The default value is 1000.+gptMaxResults :: Lens' GetPersonTracking (Maybe Natural)+gptMaxResults = lens _gptMaxResults (\ s a -> s{_gptMaxResults = a}) . mapping _Nat++-- | Sort to use for elements in the @Persons@ array. Use @TIMESTAMP@ to sort array elements by the time persons are detected. Use @INDEX@ to sort by the tracked persons. If you sort by @INDEX@ , the array elements for each person are sorted by detection confidence. The default sort is by @TIMESTAMP@ .+gptSortBy :: Lens' GetPersonTracking (Maybe PersonTrackingSortBy)+gptSortBy = lens _gptSortBy (\ s a -> s{_gptSortBy = a})++-- | The identifier for a job that tracks persons in a video. You get the @JobId@ from a call to @StartPersonTracking@ .+gptJobId :: Lens' GetPersonTracking Text+gptJobId = lens _gptJobId (\ s a -> s{_gptJobId = a})++instance AWSRequest GetPersonTracking where+        type Rs GetPersonTracking = GetPersonTrackingResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 GetPersonTrackingResponse' <$>+                   (x .?> "NextToken") <*> (x .?> "VideoMetadata") <*>+                     (x .?> "StatusMessage")+                     <*> (x .?> "JobStatus")+                     <*> (x .?> "Persons" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable GetPersonTracking where++instance NFData GetPersonTracking where++instance ToHeaders GetPersonTracking where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.GetPersonTracking" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetPersonTracking where+        toJSON GetPersonTracking'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _gptNextToken,+                  ("MaxResults" .=) <$> _gptMaxResults,+                  ("SortBy" .=) <$> _gptSortBy,+                  Just ("JobId" .= _gptJobId)])++instance ToPath GetPersonTracking where+        toPath = const "/"++instance ToQuery GetPersonTracking where+        toQuery = const mempty++-- | /See:/ 'getPersonTrackingResponse' smart constructor.+data GetPersonTrackingResponse = GetPersonTrackingResponse'+  { _gptrsNextToken      :: !(Maybe Text)+  , _gptrsVideoMetadata  :: !(Maybe VideoMetadata)+  , _gptrsStatusMessage  :: !(Maybe Text)+  , _gptrsJobStatus      :: !(Maybe VideoJobStatus)+  , _gptrsPersons        :: !(Maybe [PersonDetection])+  , _gptrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetPersonTrackingResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gptrsNextToken' - If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of persons.+--+-- * 'gptrsVideoMetadata' - Information about a video that Rekognition Video analyzed. @Videometadata@ is returned in every page of paginated responses from a Rekognition Video operation.+--+-- * 'gptrsStatusMessage' - If the job fails, @StatusMessage@ provides a descriptive error message.+--+-- * 'gptrsJobStatus' - The current status of the person tracking job.+--+-- * 'gptrsPersons' - An array of the persons detected in the video and the times they are tracked throughout the video. An array element will exist for each time the person is tracked.+--+-- * 'gptrsResponseStatus' - -- | The response status code.+getPersonTrackingResponse+    :: Int -- ^ 'gptrsResponseStatus'+    -> GetPersonTrackingResponse+getPersonTrackingResponse pResponseStatus_ =+  GetPersonTrackingResponse'+    { _gptrsNextToken = Nothing+    , _gptrsVideoMetadata = Nothing+    , _gptrsStatusMessage = Nothing+    , _gptrsJobStatus = Nothing+    , _gptrsPersons = Nothing+    , _gptrsResponseStatus = pResponseStatus_+    }+++-- | If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of persons.+gptrsNextToken :: Lens' GetPersonTrackingResponse (Maybe Text)+gptrsNextToken = lens _gptrsNextToken (\ s a -> s{_gptrsNextToken = a})++-- | Information about a video that Rekognition Video analyzed. @Videometadata@ is returned in every page of paginated responses from a Rekognition Video operation.+gptrsVideoMetadata :: Lens' GetPersonTrackingResponse (Maybe VideoMetadata)+gptrsVideoMetadata = lens _gptrsVideoMetadata (\ s a -> s{_gptrsVideoMetadata = a})++-- | If the job fails, @StatusMessage@ provides a descriptive error message.+gptrsStatusMessage :: Lens' GetPersonTrackingResponse (Maybe Text)+gptrsStatusMessage = lens _gptrsStatusMessage (\ s a -> s{_gptrsStatusMessage = a})++-- | The current status of the person tracking job.+gptrsJobStatus :: Lens' GetPersonTrackingResponse (Maybe VideoJobStatus)+gptrsJobStatus = lens _gptrsJobStatus (\ s a -> s{_gptrsJobStatus = a})++-- | An array of the persons detected in the video and the times they are tracked throughout the video. An array element will exist for each time the person is tracked.+gptrsPersons :: Lens' GetPersonTrackingResponse [PersonDetection]+gptrsPersons = lens _gptrsPersons (\ s a -> s{_gptrsPersons = a}) . _Default . _Coerce++-- | -- | The response status code.+gptrsResponseStatus :: Lens' GetPersonTrackingResponse Int+gptrsResponseStatus = lens _gptrsResponseStatus (\ s a -> s{_gptrsResponseStatus = a})++instance NFData GetPersonTrackingResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Rekognition.IndexFaces--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -23,11 +23,13 @@ -- -- Amazon Rekognition does not save the actual faces detected. Instead, the underlying detection algorithm first detects the faces in the input image, and for each face extracts facial features into a feature vector, and stores it in the back-end database. Amazon Rekognition uses feature vectors when performing face match and search operations using the and operations. ----- If you provide the optional @externalImageID@ for the input image you provided, Amazon Rekognition associates this ID with all faces that it detects. When you call the operation, the response returns the external ID. You can use this external image ID to create a client-side index to associate the faces with each image. You can then use the index to find all faces in an image.+-- If you are using version 1.0 of the face detection model, @IndexFaces@ indexes the 15 largest faces in the input image. Later versions of the face detection model index the 100 largest faces in the input image. To determine which version of the model you are using, check the the value of @FaceModelVersion@ in the response from @IndexFaces@ . For more information, see 'face-detection-model' . --+-- If you provide the optional @ExternalImageID@ for the input image you provided, Amazon Rekognition associates this ID with all faces that it detects. When you call the operation, the response returns the external ID. You can use this external image ID to create a client-side index to associate the faces with each image. You can then use the index to find all faces in an image.+-- -- In response, the operation returns an array of metadata for all detected faces. This includes, the bounding box of the detected face, confidence value (indicating the bounding box contains a face), a face ID assigned by the service for each face that is detected and stored, and an image ID assigned by the service for the input image. If you request all facial attributes (using the @detectionAttributes@ parameter, Amazon Rekognition returns detailed facial attributes such as facial landmarks (for example, location of eye and mount) and other facial attributes such gender. If you provide the same image, specify the same collection, and use the same external ID in the @IndexFaces@ operation, Amazon Rekognition doesn't save duplicate face metadata. ----- For an example, see 'example2' .+-- The input image is passed either as base64-encoded image bytes or as a reference to an image in an Amazon S3 bucket. If you use the Amazon CLI to call Amazon Rekognition operations, passing image bytes is not supported. The image must be either a PNG or JPEG formatted file. -- -- This operation requires permissions to perform the @rekognition:IndexFaces@ action. --@@ -46,6 +48,7 @@     , indexFacesResponse     , IndexFacesResponse     -- * Response Lenses+    , ifrsFaceModelVersion     , ifrsFaceRecords     , ifrsOrientationCorrection     , ifrsResponseStatus@@ -77,35 +80,35 @@ -- -- * 'ifCollectionId' - The ID of an existing collection to which you want to add the faces that are detected in the input images. ----- * 'ifImage' - The input image as bytes or an S3 object.+-- * 'ifImage' - The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. indexFaces     :: Text -- ^ 'ifCollectionId'     -> Image -- ^ 'ifImage'     -> IndexFaces indexFaces pCollectionId_ pImage_ =   IndexFaces'-  { _ifExternalImageId = Nothing-  , _ifDetectionAttributes = Nothing-  , _ifCollectionId = pCollectionId_-  , _ifImage = pImage_-  }+    { _ifExternalImageId = Nothing+    , _ifDetectionAttributes = Nothing+    , _ifCollectionId = pCollectionId_+    , _ifImage = pImage_+    }   -- | ID you want to assign to all the faces detected in the image. ifExternalImageId :: Lens' IndexFaces (Maybe Text)-ifExternalImageId = lens _ifExternalImageId (\ s a -> s{_ifExternalImageId = a});+ifExternalImageId = lens _ifExternalImageId (\ s a -> s{_ifExternalImageId = a})  -- | An array of facial attributes that you want to be returned. This can be the default list of attributes or all attributes. If you don't specify a value for @Attributes@ or if you specify @["DEFAULT"]@ , the API returns the following subset of facial attributes: @BoundingBox@ , @Confidence@ , @Pose@ , @Quality@ and @Landmarks@ . If you provide @["ALL"]@ , all facial attributes are returned but the operation will take longer to complete. If you provide both, @["ALL", "DEFAULT"]@ , the service uses a logical AND operator to determine which attributes to return (in this case, all attributes). ifDetectionAttributes :: Lens' IndexFaces [Attribute]-ifDetectionAttributes = lens _ifDetectionAttributes (\ s a -> s{_ifDetectionAttributes = a}) . _Default . _Coerce;+ifDetectionAttributes = lens _ifDetectionAttributes (\ s a -> s{_ifDetectionAttributes = a}) . _Default . _Coerce  -- | The ID of an existing collection to which you want to add the faces that are detected in the input images. ifCollectionId :: Lens' IndexFaces Text-ifCollectionId = lens _ifCollectionId (\ s a -> s{_ifCollectionId = a});+ifCollectionId = lens _ifCollectionId (\ s a -> s{_ifCollectionId = a}) --- | The input image as bytes or an S3 object.+-- | The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. ifImage :: Lens' IndexFaces Image-ifImage = lens _ifImage (\ s a -> s{_ifImage = a});+ifImage = lens _ifImage (\ s a -> s{_ifImage = a})  instance AWSRequest IndexFaces where         type Rs IndexFaces = IndexFacesResponse@@ -114,8 +117,9 @@           = receiveJSON               (\ s h x ->                  IndexFacesResponse' <$>-                   (x .?> "FaceRecords" .!@ mempty) <*>-                     (x .?> "OrientationCorrection")+                   (x .?> "FaceModelVersion") <*>+                     (x .?> "FaceRecords" .!@ mempty)+                     <*> (x .?> "OrientationCorrection")                      <*> (pure (fromEnum s)))  instance Hashable IndexFaces where@@ -149,7 +153,8 @@  -- | /See:/ 'indexFacesResponse' smart constructor. data IndexFacesResponse = IndexFacesResponse'-  { _ifrsFaceRecords           :: !(Maybe [FaceRecord])+  { _ifrsFaceModelVersion      :: !(Maybe Text)+  , _ifrsFaceRecords           :: !(Maybe [FaceRecord])   , _ifrsOrientationCorrection :: !(Maybe OrientationCorrection)   , _ifrsResponseStatus        :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)@@ -159,8 +164,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ifrsFaceRecords' - An array of faces detected and added to the collection. For more information, see 'howitworks-index-faces' .+-- * 'ifrsFaceModelVersion' - Version number of the face detection model associated with the input collection (@CollectionId@ ). --+-- * 'ifrsFaceRecords' - An array of faces detected and added to the collection. For more information, see 'collections-index-faces' .+-- -- * 'ifrsOrientationCorrection' - The orientation of the input image (counterclockwise direction). If your application displays the image, you can use this value to correct image orientation. The bounding box coordinates returned in @FaceRecords@ represent face locations before the image orientation is corrected. -- -- * 'ifrsResponseStatus' - -- | The response status code.@@ -169,22 +176,27 @@     -> IndexFacesResponse indexFacesResponse pResponseStatus_ =   IndexFacesResponse'-  { _ifrsFaceRecords = Nothing-  , _ifrsOrientationCorrection = Nothing-  , _ifrsResponseStatus = pResponseStatus_-  }+    { _ifrsFaceModelVersion = Nothing+    , _ifrsFaceRecords = Nothing+    , _ifrsOrientationCorrection = Nothing+    , _ifrsResponseStatus = pResponseStatus_+    }  --- | An array of faces detected and added to the collection. For more information, see 'howitworks-index-faces' .+-- | Version number of the face detection model associated with the input collection (@CollectionId@ ).+ifrsFaceModelVersion :: Lens' IndexFacesResponse (Maybe Text)+ifrsFaceModelVersion = lens _ifrsFaceModelVersion (\ s a -> s{_ifrsFaceModelVersion = a})++-- | An array of faces detected and added to the collection. For more information, see 'collections-index-faces' . ifrsFaceRecords :: Lens' IndexFacesResponse [FaceRecord]-ifrsFaceRecords = lens _ifrsFaceRecords (\ s a -> s{_ifrsFaceRecords = a}) . _Default . _Coerce;+ifrsFaceRecords = lens _ifrsFaceRecords (\ s a -> s{_ifrsFaceRecords = a}) . _Default . _Coerce  -- | The orientation of the input image (counterclockwise direction). If your application displays the image, you can use this value to correct image orientation. The bounding box coordinates returned in @FaceRecords@ represent face locations before the image orientation is corrected. ifrsOrientationCorrection :: Lens' IndexFacesResponse (Maybe OrientationCorrection)-ifrsOrientationCorrection = lens _ifrsOrientationCorrection (\ s a -> s{_ifrsOrientationCorrection = a});+ifrsOrientationCorrection = lens _ifrsOrientationCorrection (\ s a -> s{_ifrsOrientationCorrection = a})  -- | -- | The response status code. ifrsResponseStatus :: Lens' IndexFacesResponse Int-ifrsResponseStatus = lens _ifrsResponseStatus (\ s a -> s{_ifrsResponseStatus = a});+ifrsResponseStatus = lens _ifrsResponseStatus (\ s a -> s{_ifrsResponseStatus = a})  instance NFData IndexFacesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Rekognition.ListCollections--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Returns list of collection IDs in your account. If the result is truncated, the response also provides a @NextToken@ that you can use in the subsequent request to fetch the next set of collection IDs. -- ----- For an example, see 'example1' .+-- For an example, see 'list-collection-procedure' . -- -- This operation requires permissions to perform the @rekognition:ListCollections@ action. --@@ -42,6 +42,7 @@     -- * Response Lenses     , lcrsCollectionIds     , lcrsNextToken+    , lcrsFaceModelVersions     , lcrsResponseStatus     ) where @@ -75,16 +76,17 @@  -- | Pagination token from the previous response. lcNextToken :: Lens' ListCollections (Maybe Text)-lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a});+lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a})  -- | Maximum number of collection IDs to return. lcMaxResults :: Lens' ListCollections (Maybe Natural)-lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a}) . mapping _Nat;+lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a}) . mapping _Nat  instance AWSPager ListCollections where         page rq rs           | stop (rs ^. lcrsNextToken) = Nothing           | stop (rs ^. lcrsCollectionIds) = Nothing+          | stop (rs ^. lcrsFaceModelVersions) = Nothing           | otherwise =             Just $ rq & lcNextToken .~ rs ^. lcrsNextToken @@ -97,6 +99,7 @@                  ListCollectionsResponse' <$>                    (x .?> "CollectionIds" .!@ mempty) <*>                      (x .?> "NextToken")+                     <*> (x .?> "FaceModelVersions" .!@ mempty)                      <*> (pure (fromEnum s)))  instance Hashable ListCollections where@@ -127,9 +130,10 @@  -- | /See:/ 'listCollectionsResponse' smart constructor. data ListCollectionsResponse = ListCollectionsResponse'-  { _lcrsCollectionIds  :: !(Maybe [Text])-  , _lcrsNextToken      :: !(Maybe Text)-  , _lcrsResponseStatus :: !Int+  { _lcrsCollectionIds     :: !(Maybe [Text])+  , _lcrsNextToken         :: !(Maybe Text)+  , _lcrsFaceModelVersions :: !(Maybe [Text])+  , _lcrsResponseStatus    :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -141,28 +145,35 @@ -- -- * 'lcrsNextToken' - If the result is truncated, the response provides a @NextToken@ that you can use in the subsequent request to fetch the next set of collection IDs. --+-- * 'lcrsFaceModelVersions' - Version numbers of the face detection models associated with the collections in the array @CollectionIds@ . For example, the value of @FaceModelVersions[2]@ is the version number for the face detection model used by the collection in @CollectionId[2]@ .+-- -- * 'lcrsResponseStatus' - -- | The response status code. listCollectionsResponse     :: Int -- ^ 'lcrsResponseStatus'     -> ListCollectionsResponse listCollectionsResponse pResponseStatus_ =   ListCollectionsResponse'-  { _lcrsCollectionIds = Nothing-  , _lcrsNextToken = Nothing-  , _lcrsResponseStatus = pResponseStatus_-  }+    { _lcrsCollectionIds = Nothing+    , _lcrsNextToken = Nothing+    , _lcrsFaceModelVersions = Nothing+    , _lcrsResponseStatus = pResponseStatus_+    }   -- | An array of collection IDs. lcrsCollectionIds :: Lens' ListCollectionsResponse [Text]-lcrsCollectionIds = lens _lcrsCollectionIds (\ s a -> s{_lcrsCollectionIds = a}) . _Default . _Coerce;+lcrsCollectionIds = lens _lcrsCollectionIds (\ s a -> s{_lcrsCollectionIds = a}) . _Default . _Coerce  -- | If the result is truncated, the response provides a @NextToken@ that you can use in the subsequent request to fetch the next set of collection IDs. lcrsNextToken :: Lens' ListCollectionsResponse (Maybe Text)-lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a});+lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a}) +-- | Version numbers of the face detection models associated with the collections in the array @CollectionIds@ . For example, the value of @FaceModelVersions[2]@ is the version number for the face detection model used by the collection in @CollectionId[2]@ .+lcrsFaceModelVersions :: Lens' ListCollectionsResponse [Text]+lcrsFaceModelVersions = lens _lcrsFaceModelVersions (\ s a -> s{_lcrsFaceModelVersions = a}) . _Default . _Coerce+ -- | -- | The response status code. lcrsResponseStatus :: Lens' ListCollectionsResponse Int-lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a});+lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a})  instance NFData ListCollectionsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Rekognition.ListFaces--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns metadata for faces in the specified collection. This metadata includes information such as the bounding box coordinates, the confidence (that the bounding box contains a face), and face ID. For an example, see 'example3' .+-- Returns metadata for faces in the specified collection. This metadata includes information such as the bounding box coordinates, the confidence (that the bounding box contains a face), and face ID. For an example, see 'list-faces-in-collection-procedure' . -- -- -- This operation requires permissions to perform the @rekognition:ListFaces@ action.@@ -39,6 +39,7 @@     , listFacesResponse     , ListFacesResponse     -- * Response Lenses+    , lfrsFaceModelVersion     , lfrsNextToken     , lfrsFaces     , lfrsResponseStatus@@ -74,23 +75,23 @@     -> ListFaces listFaces pCollectionId_ =   ListFaces'-  { _lfNextToken = Nothing-  , _lfMaxResults = Nothing-  , _lfCollectionId = pCollectionId_-  }+    { _lfNextToken = Nothing+    , _lfMaxResults = Nothing+    , _lfCollectionId = pCollectionId_+    }   -- | If the previous response was incomplete (because there is more data to retrieve), Amazon Rekognition returns a pagination token in the response. You can use this pagination token to retrieve the next set of faces. lfNextToken :: Lens' ListFaces (Maybe Text)-lfNextToken = lens _lfNextToken (\ s a -> s{_lfNextToken = a});+lfNextToken = lens _lfNextToken (\ s a -> s{_lfNextToken = a})  -- | Maximum number of faces to return. lfMaxResults :: Lens' ListFaces (Maybe Natural)-lfMaxResults = lens _lfMaxResults (\ s a -> s{_lfMaxResults = a}) . mapping _Nat;+lfMaxResults = lens _lfMaxResults (\ s a -> s{_lfMaxResults = a}) . mapping _Nat  -- | ID of the collection from which to list the faces. lfCollectionId :: Lens' ListFaces Text-lfCollectionId = lens _lfCollectionId (\ s a -> s{_lfCollectionId = a});+lfCollectionId = lens _lfCollectionId (\ s a -> s{_lfCollectionId = a})  instance AWSPager ListFaces where         page rq rs@@ -106,7 +107,8 @@           = receiveJSON               (\ s h x ->                  ListFacesResponse' <$>-                   (x .?> "NextToken") <*> (x .?> "Faces" .!@ mempty)+                   (x .?> "FaceModelVersion") <*> (x .?> "NextToken")+                     <*> (x .?> "Faces" .!@ mempty)                      <*> (pure (fromEnum s)))  instance Hashable ListFaces where@@ -138,9 +140,10 @@  -- | /See:/ 'listFacesResponse' smart constructor. data ListFacesResponse = ListFacesResponse'-  { _lfrsNextToken      :: !(Maybe Text)-  , _lfrsFaces          :: !(Maybe [Face])-  , _lfrsResponseStatus :: !Int+  { _lfrsFaceModelVersion :: !(Maybe Text)+  , _lfrsNextToken        :: !(Maybe Text)+  , _lfrsFaces            :: !(Maybe [Face])+  , _lfrsResponseStatus   :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -148,6 +151,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'lfrsFaceModelVersion' - Version number of the face detection model associated with the input collection (@CollectionId@ ).+-- -- * 'lfrsNextToken' - If the response is truncated, Amazon Rekognition returns this token that you can use in the subsequent request to retrieve the next set of faces. -- -- * 'lfrsFaces' - An array of @Face@ objects.@@ -158,22 +163,27 @@     -> ListFacesResponse listFacesResponse pResponseStatus_ =   ListFacesResponse'-  { _lfrsNextToken = Nothing-  , _lfrsFaces = Nothing-  , _lfrsResponseStatus = pResponseStatus_-  }+    { _lfrsFaceModelVersion = Nothing+    , _lfrsNextToken = Nothing+    , _lfrsFaces = Nothing+    , _lfrsResponseStatus = pResponseStatus_+    }  +-- | Version number of the face detection model associated with the input collection (@CollectionId@ ).+lfrsFaceModelVersion :: Lens' ListFacesResponse (Maybe Text)+lfrsFaceModelVersion = lens _lfrsFaceModelVersion (\ s a -> s{_lfrsFaceModelVersion = a})+ -- | If the response is truncated, Amazon Rekognition returns this token that you can use in the subsequent request to retrieve the next set of faces. lfrsNextToken :: Lens' ListFacesResponse (Maybe Text)-lfrsNextToken = lens _lfrsNextToken (\ s a -> s{_lfrsNextToken = a});+lfrsNextToken = lens _lfrsNextToken (\ s a -> s{_lfrsNextToken = a})  -- | An array of @Face@ objects. lfrsFaces :: Lens' ListFacesResponse [Face]-lfrsFaces = lens _lfrsFaces (\ s a -> s{_lfrsFaces = a}) . _Default . _Coerce;+lfrsFaces = lens _lfrsFaces (\ s a -> s{_lfrsFaces = a}) . _Default . _Coerce  -- | -- | The response status code. lfrsResponseStatus :: Lens' ListFacesResponse Int-lfrsResponseStatus = lens _lfrsResponseStatus (\ s a -> s{_lfrsResponseStatus = a});+lfrsResponseStatus = lens _lfrsResponseStatus (\ s a -> s{_lfrsResponseStatus = a})  instance NFData ListFacesResponse where

@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.ListStreamProcessors+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a list of stream processors that you have created with .+--+--+--+-- This operation returns paginated results.+module Network.AWS.Rekognition.ListStreamProcessors+    (+    -- * Creating a Request+      listStreamProcessors+    , ListStreamProcessors+    -- * Request Lenses+    , lspNextToken+    , lspMaxResults++    -- * Destructuring the Response+    , listStreamProcessorsResponse+    , ListStreamProcessorsResponse+    -- * Response Lenses+    , lsprsStreamProcessors+    , lsprsNextToken+    , lsprsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'listStreamProcessors' smart constructor.+data ListStreamProcessors = ListStreamProcessors'+  { _lspNextToken  :: !(Maybe Text)+  , _lspMaxResults :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListStreamProcessors' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lspNextToken' - If the previous response was incomplete (because there are more stream processors to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of stream processors.+--+-- * 'lspMaxResults' - Maximum number of stream processors you want Rekognition Video to return in the response. The default is 1000.+listStreamProcessors+    :: ListStreamProcessors+listStreamProcessors =+  ListStreamProcessors' {_lspNextToken = Nothing, _lspMaxResults = Nothing}+++-- | If the previous response was incomplete (because there are more stream processors to retrieve), Rekognition Video returns a pagination token in the response. You can use this pagination token to retrieve the next set of stream processors.+lspNextToken :: Lens' ListStreamProcessors (Maybe Text)+lspNextToken = lens _lspNextToken (\ s a -> s{_lspNextToken = a})++-- | Maximum number of stream processors you want Rekognition Video to return in the response. The default is 1000.+lspMaxResults :: Lens' ListStreamProcessors (Maybe Natural)+lspMaxResults = lens _lspMaxResults (\ s a -> s{_lspMaxResults = a}) . mapping _Nat++instance AWSPager ListStreamProcessors where+        page rq rs+          | stop (rs ^. lsprsNextToken) = Nothing+          | stop (rs ^. lsprsStreamProcessors) = Nothing+          | otherwise =+            Just $ rq & lspNextToken .~ rs ^. lsprsNextToken++instance AWSRequest ListStreamProcessors where+        type Rs ListStreamProcessors =+             ListStreamProcessorsResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 ListStreamProcessorsResponse' <$>+                   (x .?> "StreamProcessors" .!@ mempty) <*>+                     (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable ListStreamProcessors where++instance NFData ListStreamProcessors where++instance ToHeaders ListStreamProcessors where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.ListStreamProcessors" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListStreamProcessors where+        toJSON ListStreamProcessors'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _lspNextToken,+                  ("MaxResults" .=) <$> _lspMaxResults])++instance ToPath ListStreamProcessors where+        toPath = const "/"++instance ToQuery ListStreamProcessors where+        toQuery = const mempty++-- | /See:/ 'listStreamProcessorsResponse' smart constructor.+data ListStreamProcessorsResponse = ListStreamProcessorsResponse'+  { _lsprsStreamProcessors :: !(Maybe [StreamProcessor])+  , _lsprsNextToken        :: !(Maybe Text)+  , _lsprsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListStreamProcessorsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lsprsStreamProcessors' - List of stream processors that you have created.+--+-- * 'lsprsNextToken' - If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of stream processors.+--+-- * 'lsprsResponseStatus' - -- | The response status code.+listStreamProcessorsResponse+    :: Int -- ^ 'lsprsResponseStatus'+    -> ListStreamProcessorsResponse+listStreamProcessorsResponse pResponseStatus_ =+  ListStreamProcessorsResponse'+    { _lsprsStreamProcessors = Nothing+    , _lsprsNextToken = Nothing+    , _lsprsResponseStatus = pResponseStatus_+    }+++-- | List of stream processors that you have created.+lsprsStreamProcessors :: Lens' ListStreamProcessorsResponse [StreamProcessor]+lsprsStreamProcessors = lens _lsprsStreamProcessors (\ s a -> s{_lsprsStreamProcessors = a}) . _Default . _Coerce++-- | If the response is truncated, Rekognition Video returns this token that you can use in the subsequent request to retrieve the next set of stream processors.+lsprsNextToken :: Lens' ListStreamProcessorsResponse (Maybe Text)+lsprsNextToken = lens _lsprsNextToken (\ s a -> s{_lsprsNextToken = a})++-- | -- | The response status code.+lsprsResponseStatus :: Lens' ListStreamProcessorsResponse Int+lsprsResponseStatus = lens _lsprsResponseStatus (\ s a -> s{_lsprsResponseStatus = a})++instance NFData ListStreamProcessorsResponse where

@@ -12,23 +12,25 @@  -- | -- Module      : Network.AWS.Rekognition.RecognizeCelebrities--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns an array of celebrities recognized in the input image. The image is passed either as base64-encoded image bytes or as a reference to an image in an Amazon S3 bucket. The image must be either a PNG or JPEG formatted file. For more information, see 'celebrity-recognition' .+-- Returns an array of celebrities recognized in the input image. For more information, see 'celebrities' . -- ----- @RecognizeCelebrities@ returns the 15 largest faces in the image. It lists recognized celebrities in the @CelebrityFaces@ list and unrecognized faces in the @UnrecognizedFaces@ list. The operation doesn't return celebrities whose face sizes are smaller than the largest 15 faces in the image.+-- @RecognizeCelebrities@ returns the 100 largest faces in the image. It lists recognized celebrities in the @CelebrityFaces@ array and unrecognized faces in the @UnrecognizedFaces@ array. @RecognizeCelebrities@ doesn't return celebrities whose faces are not amongst the largest 100 faces in the image. ----- For each celebrity recognized, the API returns a @Celebrity@ object. The @Celebrity@ object contains the celebrity name, ID, URL links to additional information, match confidence, and a @ComparedFace@ object that you can use to locate the celebrity's face on the image.+-- For each celebrity recognized, the @RecognizeCelebrities@ returns a @Celebrity@ object. The @Celebrity@ object contains the celebrity name, ID, URL links to additional information, match confidence, and a @ComparedFace@ object that you can use to locate the celebrity's face on the image. -- -- Rekognition does not retain information about which images a celebrity has been recognized in. Your application must store this information and use the @Celebrity@ ID property as a unique identifier for the celebrity. If you don't store the celebrity name or additional information URLs returned by @RecognizeCelebrities@ , you will need the ID to identify the celebrity in a call to the operation. ----- For an example, see 'recognize-celebrities-tutorial' .+-- You pass the imput image either as base64-encoded image bytes or as a reference to an image in an Amazon S3 bucket. If you use the Amazon CLI to call Amazon Rekognition operations, passing image bytes is not supported. The image must be either a PNG or JPEG formatted file. --+-- For an example, see 'celebrities-procedure-image' .+-- -- This operation requires permissions to perform the @rekognition:RecognizeCelebrities@ operation. -- module Network.AWS.Rekognition.RecognizeCelebrities@@ -66,16 +68,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rcImage' - The input image to use for celebrity recognition.+-- * 'rcImage' - The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. recognizeCelebrities     :: Image -- ^ 'rcImage'     -> RecognizeCelebrities recognizeCelebrities pImage_ = RecognizeCelebrities' {_rcImage = pImage_}  --- | The input image to use for celebrity recognition.+-- | The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. rcImage :: Lens' RecognizeCelebrities Image-rcImage = lens _rcImage (\ s a -> s{_rcImage = a});+rcImage = lens _rcImage (\ s a -> s{_rcImage = a})  instance AWSRequest RecognizeCelebrities where         type Rs RecognizeCelebrities =@@ -139,27 +141,27 @@     -> RecognizeCelebritiesResponse recognizeCelebritiesResponse pResponseStatus_ =   RecognizeCelebritiesResponse'-  { _rcrsCelebrityFaces = Nothing-  , _rcrsOrientationCorrection = Nothing-  , _rcrsUnrecognizedFaces = Nothing-  , _rcrsResponseStatus = pResponseStatus_-  }+    { _rcrsCelebrityFaces = Nothing+    , _rcrsOrientationCorrection = Nothing+    , _rcrsUnrecognizedFaces = Nothing+    , _rcrsResponseStatus = pResponseStatus_+    }   -- | Details about each celebrity found in the image. Amazon Rekognition can detect a maximum of 15 celebrities in an image. rcrsCelebrityFaces :: Lens' RecognizeCelebritiesResponse [Celebrity]-rcrsCelebrityFaces = lens _rcrsCelebrityFaces (\ s a -> s{_rcrsCelebrityFaces = a}) . _Default . _Coerce;+rcrsCelebrityFaces = lens _rcrsCelebrityFaces (\ s a -> s{_rcrsCelebrityFaces = a}) . _Default . _Coerce  -- | The orientation of the input image (counterclockwise direction). If your application displays the image, you can use this value to correct the orientation. The bounding box coordinates returned in @CelebrityFaces@ and @UnrecognizedFaces@ represent face locations before the image orientation is corrected. rcrsOrientationCorrection :: Lens' RecognizeCelebritiesResponse (Maybe OrientationCorrection)-rcrsOrientationCorrection = lens _rcrsOrientationCorrection (\ s a -> s{_rcrsOrientationCorrection = a});+rcrsOrientationCorrection = lens _rcrsOrientationCorrection (\ s a -> s{_rcrsOrientationCorrection = a})  -- | Details about each unrecognized face in the image. rcrsUnrecognizedFaces :: Lens' RecognizeCelebritiesResponse [ComparedFace]-rcrsUnrecognizedFaces = lens _rcrsUnrecognizedFaces (\ s a -> s{_rcrsUnrecognizedFaces = a}) . _Default . _Coerce;+rcrsUnrecognizedFaces = lens _rcrsUnrecognizedFaces (\ s a -> s{_rcrsUnrecognizedFaces = a}) . _Default . _Coerce  -- | -- | The response status code. rcrsResponseStatus :: Lens' RecognizeCelebritiesResponse Int-rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});+rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a})  instance NFData RecognizeCelebritiesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Rekognition.SearchFaces--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -23,7 +23,7 @@ -- -- The operation response returns an array of faces that match, ordered by similarity score with the highest similarity first. More specifically, it is an array of metadata for each face match that is found. Along with the metadata, the response also includes a @confidence@ value for each face match, indicating the confidence that the specific face matches the input face. ----- For an example, see 'example3' .+-- For an example, see 'search-face-with-id-procedure' . -- -- This operation requires permissions to perform the @rekognition:SearchFaces@ action. --@@ -43,6 +43,7 @@     , SearchFacesResponse     -- * Response Lenses     , sfrsFaceMatches+    , sfrsFaceModelVersion     , sfrsSearchedFaceId     , sfrsResponseStatus     ) where@@ -80,28 +81,28 @@     -> SearchFaces searchFaces pCollectionId_ pFaceId_ =   SearchFaces'-  { _sfFaceMatchThreshold = Nothing-  , _sfMaxFaces = Nothing-  , _sfCollectionId = pCollectionId_-  , _sfFaceId = pFaceId_-  }+    { _sfFaceMatchThreshold = Nothing+    , _sfMaxFaces = Nothing+    , _sfCollectionId = pCollectionId_+    , _sfFaceId = pFaceId_+    }   -- | Optional value specifying the minimum confidence in the face match to return. For example, don't return any matches where confidence in matches is less than 70%. sfFaceMatchThreshold :: Lens' SearchFaces (Maybe Double)-sfFaceMatchThreshold = lens _sfFaceMatchThreshold (\ s a -> s{_sfFaceMatchThreshold = a});+sfFaceMatchThreshold = lens _sfFaceMatchThreshold (\ s a -> s{_sfFaceMatchThreshold = a})  -- | Maximum number of faces to return. The operation returns the maximum number of faces with the highest confidence in the match. sfMaxFaces :: Lens' SearchFaces (Maybe Natural)-sfMaxFaces = lens _sfMaxFaces (\ s a -> s{_sfMaxFaces = a}) . mapping _Nat;+sfMaxFaces = lens _sfMaxFaces (\ s a -> s{_sfMaxFaces = a}) . mapping _Nat  -- | ID of the collection the face belongs to. sfCollectionId :: Lens' SearchFaces Text-sfCollectionId = lens _sfCollectionId (\ s a -> s{_sfCollectionId = a});+sfCollectionId = lens _sfCollectionId (\ s a -> s{_sfCollectionId = a})  -- | ID of a face to find matches for in the collection. sfFaceId :: Lens' SearchFaces Text-sfFaceId = lens _sfFaceId (\ s a -> s{_sfFaceId = a});+sfFaceId = lens _sfFaceId (\ s a -> s{_sfFaceId = a})  instance AWSRequest SearchFaces where         type Rs SearchFaces = SearchFacesResponse@@ -111,7 +112,8 @@               (\ s h x ->                  SearchFacesResponse' <$>                    (x .?> "FaceMatches" .!@ mempty) <*>-                     (x .?> "SearchedFaceId")+                     (x .?> "FaceModelVersion")+                     <*> (x .?> "SearchedFaceId")                      <*> (pure (fromEnum s)))  instance Hashable SearchFaces where@@ -144,9 +146,10 @@  -- | /See:/ 'searchFacesResponse' smart constructor. data SearchFacesResponse = SearchFacesResponse'-  { _sfrsFaceMatches    :: !(Maybe [FaceMatch])-  , _sfrsSearchedFaceId :: !(Maybe Text)-  , _sfrsResponseStatus :: !Int+  { _sfrsFaceMatches      :: !(Maybe [FaceMatch])+  , _sfrsFaceModelVersion :: !(Maybe Text)+  , _sfrsSearchedFaceId   :: !(Maybe Text)+  , _sfrsResponseStatus   :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -156,6 +159,8 @@ -- -- * 'sfrsFaceMatches' - An array of faces that matched the input face, along with the confidence in the match. --+-- * 'sfrsFaceModelVersion' - Version number of the face detection model associated with the input collection (@CollectionId@ ).+-- -- * 'sfrsSearchedFaceId' - ID of the face that was searched for matches in a collection. -- -- * 'sfrsResponseStatus' - -- | The response status code.@@ -164,22 +169,27 @@     -> SearchFacesResponse searchFacesResponse pResponseStatus_ =   SearchFacesResponse'-  { _sfrsFaceMatches = Nothing-  , _sfrsSearchedFaceId = Nothing-  , _sfrsResponseStatus = pResponseStatus_-  }+    { _sfrsFaceMatches = Nothing+    , _sfrsFaceModelVersion = Nothing+    , _sfrsSearchedFaceId = Nothing+    , _sfrsResponseStatus = pResponseStatus_+    }   -- | An array of faces that matched the input face, along with the confidence in the match. sfrsFaceMatches :: Lens' SearchFacesResponse [FaceMatch]-sfrsFaceMatches = lens _sfrsFaceMatches (\ s a -> s{_sfrsFaceMatches = a}) . _Default . _Coerce;+sfrsFaceMatches = lens _sfrsFaceMatches (\ s a -> s{_sfrsFaceMatches = a}) . _Default . _Coerce +-- | Version number of the face detection model associated with the input collection (@CollectionId@ ).+sfrsFaceModelVersion :: Lens' SearchFacesResponse (Maybe Text)+sfrsFaceModelVersion = lens _sfrsFaceModelVersion (\ s a -> s{_sfrsFaceModelVersion = a})+ -- | ID of the face that was searched for matches in a collection. sfrsSearchedFaceId :: Lens' SearchFacesResponse (Maybe Text)-sfrsSearchedFaceId = lens _sfrsSearchedFaceId (\ s a -> s{_sfrsSearchedFaceId = a});+sfrsSearchedFaceId = lens _sfrsSearchedFaceId (\ s a -> s{_sfrsSearchedFaceId = a})  -- | -- | The response status code. sfrsResponseStatus :: Lens' SearchFacesResponse Int-sfrsResponseStatus = lens _sfrsResponseStatus (\ s a -> s{_sfrsResponseStatus = a});+sfrsResponseStatus = lens _sfrsResponseStatus (\ s a -> s{_sfrsResponseStatus = a})  instance NFData SearchFacesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Rekognition.SearchFacesByImage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,9 +21,11 @@ -- For a given input image, first detects the largest face in the image, and then searches the specified collection for matching faces. The operation compares the features of the input face with faces in the specified collection. -- --+-- You pass the input image either as base64-encoded image bytes or as a reference to an image in an Amazon S3 bucket. If you use the Amazon CLI to call Amazon Rekognition operations, passing image bytes is not supported. The image must be either a PNG or JPEG formatted file.+-- -- The response returns an array of faces that match, ordered by similarity score with the highest similarity first. More specifically, it is an array of metadata for each face match found. Along with the metadata, the response also includes a @similarity@ indicating how similar the face is to the input face. In the response, the operation also returns the bounding box (and a confidence level that the bounding box contains a face) of the face that Amazon Rekognition used for the input image. ----- For an example, see 'example3' .+-- For an example, see 'search-face-with-image-procedure' . -- -- This operation requires permissions to perform the @rekognition:SearchFacesByImage@ action. --@@ -43,6 +45,7 @@     , SearchFacesByImageResponse     -- * Response Lenses     , sfbirsFaceMatches+    , sfbirsFaceModelVersion     , sfbirsSearchedFaceBoundingBox     , sfbirsSearchedFaceConfidence     , sfbirsResponseStatus@@ -74,35 +77,35 @@ -- -- * 'sfbiCollectionId' - ID of the collection to search. ----- * 'sfbiImage' - The input image as bytes or an S3 object.+-- * 'sfbiImage' - The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. searchFacesByImage     :: Text -- ^ 'sfbiCollectionId'     -> Image -- ^ 'sfbiImage'     -> SearchFacesByImage searchFacesByImage pCollectionId_ pImage_ =   SearchFacesByImage'-  { _sfbiFaceMatchThreshold = Nothing-  , _sfbiMaxFaces = Nothing-  , _sfbiCollectionId = pCollectionId_-  , _sfbiImage = pImage_-  }+    { _sfbiFaceMatchThreshold = Nothing+    , _sfbiMaxFaces = Nothing+    , _sfbiCollectionId = pCollectionId_+    , _sfbiImage = pImage_+    }   -- | (Optional) Specifies the minimum confidence in the face match to return. For example, don't return any matches where confidence in matches is less than 70%. sfbiFaceMatchThreshold :: Lens' SearchFacesByImage (Maybe Double)-sfbiFaceMatchThreshold = lens _sfbiFaceMatchThreshold (\ s a -> s{_sfbiFaceMatchThreshold = a});+sfbiFaceMatchThreshold = lens _sfbiFaceMatchThreshold (\ s a -> s{_sfbiFaceMatchThreshold = a})  -- | Maximum number of faces to return. The operation returns the maximum number of faces with the highest confidence in the match. sfbiMaxFaces :: Lens' SearchFacesByImage (Maybe Natural)-sfbiMaxFaces = lens _sfbiMaxFaces (\ s a -> s{_sfbiMaxFaces = a}) . mapping _Nat;+sfbiMaxFaces = lens _sfbiMaxFaces (\ s a -> s{_sfbiMaxFaces = a}) . mapping _Nat  -- | ID of the collection to search. sfbiCollectionId :: Lens' SearchFacesByImage Text-sfbiCollectionId = lens _sfbiCollectionId (\ s a -> s{_sfbiCollectionId = a});+sfbiCollectionId = lens _sfbiCollectionId (\ s a -> s{_sfbiCollectionId = a}) --- | The input image as bytes or an S3 object.+-- | The input image as base64-encoded bytes or an S3 object. If you use the AWS CLI to call Amazon Rekognition operations, passing base64-encoded image bytes is not supported. sfbiImage :: Lens' SearchFacesByImage Image-sfbiImage = lens _sfbiImage (\ s a -> s{_sfbiImage = a});+sfbiImage = lens _sfbiImage (\ s a -> s{_sfbiImage = a})  instance AWSRequest SearchFacesByImage where         type Rs SearchFacesByImage =@@ -113,7 +116,8 @@               (\ s h x ->                  SearchFacesByImageResponse' <$>                    (x .?> "FaceMatches" .!@ mempty) <*>-                     (x .?> "SearchedFaceBoundingBox")+                     (x .?> "FaceModelVersion")+                     <*> (x .?> "SearchedFaceBoundingBox")                      <*> (x .?> "SearchedFaceConfidence")                      <*> (pure (fromEnum s))) @@ -150,6 +154,7 @@ -- | /See:/ 'searchFacesByImageResponse' smart constructor. data SearchFacesByImageResponse = SearchFacesByImageResponse'   { _sfbirsFaceMatches             :: !(Maybe [FaceMatch])+  , _sfbirsFaceModelVersion        :: !(Maybe Text)   , _sfbirsSearchedFaceBoundingBox :: !(Maybe BoundingBox)   , _sfbirsSearchedFaceConfidence  :: !(Maybe Double)   , _sfbirsResponseStatus          :: !Int@@ -162,6 +167,8 @@ -- -- * 'sfbirsFaceMatches' - An array of faces that match the input face, along with the confidence in the match. --+-- * 'sfbirsFaceModelVersion' - Version number of the face detection model associated with the input collection (@CollectionId@ ).+-- -- * 'sfbirsSearchedFaceBoundingBox' - The bounding box around the face in the input image that Amazon Rekognition used for the search. -- -- * 'sfbirsSearchedFaceConfidence' - The level of confidence that the @searchedFaceBoundingBox@ , contains a face.@@ -172,27 +179,32 @@     -> SearchFacesByImageResponse searchFacesByImageResponse pResponseStatus_ =   SearchFacesByImageResponse'-  { _sfbirsFaceMatches = Nothing-  , _sfbirsSearchedFaceBoundingBox = Nothing-  , _sfbirsSearchedFaceConfidence = Nothing-  , _sfbirsResponseStatus = pResponseStatus_-  }+    { _sfbirsFaceMatches = Nothing+    , _sfbirsFaceModelVersion = Nothing+    , _sfbirsSearchedFaceBoundingBox = Nothing+    , _sfbirsSearchedFaceConfidence = Nothing+    , _sfbirsResponseStatus = pResponseStatus_+    }   -- | An array of faces that match the input face, along with the confidence in the match. sfbirsFaceMatches :: Lens' SearchFacesByImageResponse [FaceMatch]-sfbirsFaceMatches = lens _sfbirsFaceMatches (\ s a -> s{_sfbirsFaceMatches = a}) . _Default . _Coerce;+sfbirsFaceMatches = lens _sfbirsFaceMatches (\ s a -> s{_sfbirsFaceMatches = a}) . _Default . _Coerce +-- | Version number of the face detection model associated with the input collection (@CollectionId@ ).+sfbirsFaceModelVersion :: Lens' SearchFacesByImageResponse (Maybe Text)+sfbirsFaceModelVersion = lens _sfbirsFaceModelVersion (\ s a -> s{_sfbirsFaceModelVersion = a})+ -- | The bounding box around the face in the input image that Amazon Rekognition used for the search. sfbirsSearchedFaceBoundingBox :: Lens' SearchFacesByImageResponse (Maybe BoundingBox)-sfbirsSearchedFaceBoundingBox = lens _sfbirsSearchedFaceBoundingBox (\ s a -> s{_sfbirsSearchedFaceBoundingBox = a});+sfbirsSearchedFaceBoundingBox = lens _sfbirsSearchedFaceBoundingBox (\ s a -> s{_sfbirsSearchedFaceBoundingBox = a})  -- | The level of confidence that the @searchedFaceBoundingBox@ , contains a face. sfbirsSearchedFaceConfidence :: Lens' SearchFacesByImageResponse (Maybe Double)-sfbirsSearchedFaceConfidence = lens _sfbirsSearchedFaceConfidence (\ s a -> s{_sfbirsSearchedFaceConfidence = a});+sfbirsSearchedFaceConfidence = lens _sfbirsSearchedFaceConfidence (\ s a -> s{_sfbirsSearchedFaceConfidence = a})  -- | -- | The response status code. sfbirsResponseStatus :: Lens' SearchFacesByImageResponse Int-sfbirsResponseStatus = lens _sfbirsResponseStatus (\ s a -> s{_sfbirsResponseStatus = a});+sfbirsResponseStatus = lens _sfbirsResponseStatus (\ s a -> s{_sfbirsResponseStatus = a})  instance NFData SearchFacesByImageResponse where

@@ -0,0 +1,171 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.StartCelebrityRecognition+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts asynchronous recognition of celebrities in a stored video.+--+--+-- Rekognition Video can detect celebrities in a video must be stored in an Amazon S3 bucket. Use 'Video' to specify the bucket name and the filename of the video. @StartCelebrityRecognition@ returns a job identifier (@JobId@ ) which you use to get the results of the analysis. When celebrity recognition analysis is finished, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic that you specify in @NotificationChannel@ . To get the results of the celebrity recognition analysis, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call and pass the job identifier (@JobId@ ) from the initial call to @StartCelebrityRecognition@ . For more information, see 'celebrities' .+--+module Network.AWS.Rekognition.StartCelebrityRecognition+    (+    -- * Creating a Request+      startCelebrityRecognition+    , StartCelebrityRecognition+    -- * Request Lenses+    , scrJobTag+    , scrNotificationChannel+    , scrClientRequestToken+    , scrVideo++    -- * Destructuring the Response+    , startCelebrityRecognitionResponse+    , StartCelebrityRecognitionResponse+    -- * Response Lenses+    , scrrsJobId+    , scrrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'startCelebrityRecognition' smart constructor.+data StartCelebrityRecognition = StartCelebrityRecognition'+  { _scrJobTag              :: !(Maybe Text)+  , _scrNotificationChannel :: !(Maybe NotificationChannel)+  , _scrClientRequestToken  :: !(Maybe Text)+  , _scrVideo               :: !Video+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartCelebrityRecognition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scrJobTag' - Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+--+-- * 'scrNotificationChannel' - The Amazon SNS topic ARN that you want Rekognition Video to publish the completion status of the celebrity recognition analysis to.+--+-- * 'scrClientRequestToken' - Idempotent token used to identify the start request. If you use the same token with multiple @StartCelebrityRecognition@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+--+-- * 'scrVideo' - The video in which you want to recognize celebrities. The video must be stored in an Amazon S3 bucket.+startCelebrityRecognition+    :: Video -- ^ 'scrVideo'+    -> StartCelebrityRecognition+startCelebrityRecognition pVideo_ =+  StartCelebrityRecognition'+    { _scrJobTag = Nothing+    , _scrNotificationChannel = Nothing+    , _scrClientRequestToken = Nothing+    , _scrVideo = pVideo_+    }+++-- | Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+scrJobTag :: Lens' StartCelebrityRecognition (Maybe Text)+scrJobTag = lens _scrJobTag (\ s a -> s{_scrJobTag = a})++-- | The Amazon SNS topic ARN that you want Rekognition Video to publish the completion status of the celebrity recognition analysis to.+scrNotificationChannel :: Lens' StartCelebrityRecognition (Maybe NotificationChannel)+scrNotificationChannel = lens _scrNotificationChannel (\ s a -> s{_scrNotificationChannel = a})++-- | Idempotent token used to identify the start request. If you use the same token with multiple @StartCelebrityRecognition@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+scrClientRequestToken :: Lens' StartCelebrityRecognition (Maybe Text)+scrClientRequestToken = lens _scrClientRequestToken (\ s a -> s{_scrClientRequestToken = a})++-- | The video in which you want to recognize celebrities. The video must be stored in an Amazon S3 bucket.+scrVideo :: Lens' StartCelebrityRecognition Video+scrVideo = lens _scrVideo (\ s a -> s{_scrVideo = a})++instance AWSRequest StartCelebrityRecognition where+        type Rs StartCelebrityRecognition =+             StartCelebrityRecognitionResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 StartCelebrityRecognitionResponse' <$>+                   (x .?> "JobId") <*> (pure (fromEnum s)))++instance Hashable StartCelebrityRecognition where++instance NFData StartCelebrityRecognition where++instance ToHeaders StartCelebrityRecognition where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.StartCelebrityRecognition" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartCelebrityRecognition where+        toJSON StartCelebrityRecognition'{..}+          = object+              (catMaybes+                 [("JobTag" .=) <$> _scrJobTag,+                  ("NotificationChannel" .=) <$>+                    _scrNotificationChannel,+                  ("ClientRequestToken" .=) <$> _scrClientRequestToken,+                  Just ("Video" .= _scrVideo)])++instance ToPath StartCelebrityRecognition where+        toPath = const "/"++instance ToQuery StartCelebrityRecognition where+        toQuery = const mempty++-- | /See:/ 'startCelebrityRecognitionResponse' smart constructor.+data StartCelebrityRecognitionResponse = StartCelebrityRecognitionResponse'+  { _scrrsJobId          :: !(Maybe Text)+  , _scrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartCelebrityRecognitionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scrrsJobId' - The identifier for the celebrity recognition analysis job. Use @JobId@ to identify the job in a subsequent call to @GetCelebrityRecognition@ .+--+-- * 'scrrsResponseStatus' - -- | The response status code.+startCelebrityRecognitionResponse+    :: Int -- ^ 'scrrsResponseStatus'+    -> StartCelebrityRecognitionResponse+startCelebrityRecognitionResponse pResponseStatus_ =+  StartCelebrityRecognitionResponse'+    {_scrrsJobId = Nothing, _scrrsResponseStatus = pResponseStatus_}+++-- | The identifier for the celebrity recognition analysis job. Use @JobId@ to identify the job in a subsequent call to @GetCelebrityRecognition@ .+scrrsJobId :: Lens' StartCelebrityRecognitionResponse (Maybe Text)+scrrsJobId = lens _scrrsJobId (\ s a -> s{_scrrsJobId = a})++-- | -- | The response status code.+scrrsResponseStatus :: Lens' StartCelebrityRecognitionResponse Int+scrrsResponseStatus = lens _scrrsResponseStatus (\ s a -> s{_scrrsResponseStatus = a})++instance NFData StartCelebrityRecognitionResponse+         where

@@ -0,0 +1,182 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.StartContentModeration+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts asynchronous detection of explicit or suggestive adult content in a stored video.+--+--+-- Rekognition Video can moderate content in a video stored in an Amazon S3 bucket. Use 'Video' to specify the bucket name and the filename of the video. @StartContentModeration@ returns a job identifier (@JobId@ ) which you use to get the results of the analysis. When content moderation analysis is finished, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic that you specify in @NotificationChannel@ .+--+-- To get the results of the content moderation analysis, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call and pass the job identifier (@JobId@ ) from the initial call to @StartContentModeration@ . For more information, see 'moderation' .+--+module Network.AWS.Rekognition.StartContentModeration+    (+    -- * Creating a Request+      startContentModeration+    , StartContentModeration+    -- * Request Lenses+    , scmJobTag+    , scmNotificationChannel+    , scmClientRequestToken+    , scmMinConfidence+    , scmVideo++    -- * Destructuring the Response+    , startContentModerationResponse+    , StartContentModerationResponse+    -- * Response Lenses+    , scmrsJobId+    , scmrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'startContentModeration' smart constructor.+data StartContentModeration = StartContentModeration'+  { _scmJobTag              :: !(Maybe Text)+  , _scmNotificationChannel :: !(Maybe NotificationChannel)+  , _scmClientRequestToken  :: !(Maybe Text)+  , _scmMinConfidence       :: !(Maybe Double)+  , _scmVideo               :: !Video+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartContentModeration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scmJobTag' - Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+--+-- * 'scmNotificationChannel' - The Amazon SNS topic ARN that you want Rekognition Video to publish the completion status of the content moderation analysis to.+--+-- * 'scmClientRequestToken' - Idempotent token used to identify the start request. If you use the same token with multiple @StartContentModeration@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+--+-- * 'scmMinConfidence' - Specifies the minimum confidence that Amazon Rekognition must have in order to return a moderated content label. Confidence represents how certain Amazon Rekognition is that the moderated content is correctly identified. 0 is the lowest confidence. 100 is the highest confidence. Amazon Rekognition doesn't return any moderated content labels with a confidence level lower than this specified value.+--+-- * 'scmVideo' - The video in which you want to moderate content. The video must be stored in an Amazon S3 bucket.+startContentModeration+    :: Video -- ^ 'scmVideo'+    -> StartContentModeration+startContentModeration pVideo_ =+  StartContentModeration'+    { _scmJobTag = Nothing+    , _scmNotificationChannel = Nothing+    , _scmClientRequestToken = Nothing+    , _scmMinConfidence = Nothing+    , _scmVideo = pVideo_+    }+++-- | Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+scmJobTag :: Lens' StartContentModeration (Maybe Text)+scmJobTag = lens _scmJobTag (\ s a -> s{_scmJobTag = a})++-- | The Amazon SNS topic ARN that you want Rekognition Video to publish the completion status of the content moderation analysis to.+scmNotificationChannel :: Lens' StartContentModeration (Maybe NotificationChannel)+scmNotificationChannel = lens _scmNotificationChannel (\ s a -> s{_scmNotificationChannel = a})++-- | Idempotent token used to identify the start request. If you use the same token with multiple @StartContentModeration@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+scmClientRequestToken :: Lens' StartContentModeration (Maybe Text)+scmClientRequestToken = lens _scmClientRequestToken (\ s a -> s{_scmClientRequestToken = a})++-- | Specifies the minimum confidence that Amazon Rekognition must have in order to return a moderated content label. Confidence represents how certain Amazon Rekognition is that the moderated content is correctly identified. 0 is the lowest confidence. 100 is the highest confidence. Amazon Rekognition doesn't return any moderated content labels with a confidence level lower than this specified value.+scmMinConfidence :: Lens' StartContentModeration (Maybe Double)+scmMinConfidence = lens _scmMinConfidence (\ s a -> s{_scmMinConfidence = a})++-- | The video in which you want to moderate content. The video must be stored in an Amazon S3 bucket.+scmVideo :: Lens' StartContentModeration Video+scmVideo = lens _scmVideo (\ s a -> s{_scmVideo = a})++instance AWSRequest StartContentModeration where+        type Rs StartContentModeration =+             StartContentModerationResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 StartContentModerationResponse' <$>+                   (x .?> "JobId") <*> (pure (fromEnum s)))++instance Hashable StartContentModeration where++instance NFData StartContentModeration where++instance ToHeaders StartContentModeration where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.StartContentModeration" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartContentModeration where+        toJSON StartContentModeration'{..}+          = object+              (catMaybes+                 [("JobTag" .=) <$> _scmJobTag,+                  ("NotificationChannel" .=) <$>+                    _scmNotificationChannel,+                  ("ClientRequestToken" .=) <$> _scmClientRequestToken,+                  ("MinConfidence" .=) <$> _scmMinConfidence,+                  Just ("Video" .= _scmVideo)])++instance ToPath StartContentModeration where+        toPath = const "/"++instance ToQuery StartContentModeration where+        toQuery = const mempty++-- | /See:/ 'startContentModerationResponse' smart constructor.+data StartContentModerationResponse = StartContentModerationResponse'+  { _scmrsJobId          :: !(Maybe Text)+  , _scmrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartContentModerationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scmrsJobId' - The identifier for the content moderation analysis job. Use @JobId@ to identify the job in a subsequent call to @GetContentModeration@ .+--+-- * 'scmrsResponseStatus' - -- | The response status code.+startContentModerationResponse+    :: Int -- ^ 'scmrsResponseStatus'+    -> StartContentModerationResponse+startContentModerationResponse pResponseStatus_ =+  StartContentModerationResponse'+    {_scmrsJobId = Nothing, _scmrsResponseStatus = pResponseStatus_}+++-- | The identifier for the content moderation analysis job. Use @JobId@ to identify the job in a subsequent call to @GetContentModeration@ .+scmrsJobId :: Lens' StartContentModerationResponse (Maybe Text)+scmrsJobId = lens _scmrsJobId (\ s a -> s{_scmrsJobId = a})++-- | -- | The response status code.+scmrsResponseStatus :: Lens' StartContentModerationResponse Int+scmrsResponseStatus = lens _scmrsResponseStatus (\ s a -> s{_scmrsResponseStatus = a})++instance NFData StartContentModerationResponse where

@@ -0,0 +1,180 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.StartFaceDetection+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts asynchronous detection of faces in a stored video.+--+--+-- Rekognition Video can detect faces in a video stored in an Amazon S3 bucket. Use 'Video' to specify the bucket name and the filename of the video. @StartFaceDetection@ returns a job identifier (@JobId@ ) that you use to get the results of the operation. When face detection is finished, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic that you specify in @NotificationChannel@ . To get the results of the label detection operation, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call and pass the job identifier (@JobId@ ) from the initial call to @StartFaceDetection@ . For more information, see 'faces-video' .+--+module Network.AWS.Rekognition.StartFaceDetection+    (+    -- * Creating a Request+      startFaceDetection+    , StartFaceDetection+    -- * Request Lenses+    , sfdJobTag+    , sfdNotificationChannel+    , sfdClientRequestToken+    , sfdFaceAttributes+    , sfdVideo++    -- * Destructuring the Response+    , startFaceDetectionResponse+    , StartFaceDetectionResponse+    -- * Response Lenses+    , sfdrsJobId+    , sfdrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'startFaceDetection' smart constructor.+data StartFaceDetection = StartFaceDetection'+  { _sfdJobTag              :: !(Maybe Text)+  , _sfdNotificationChannel :: !(Maybe NotificationChannel)+  , _sfdClientRequestToken  :: !(Maybe Text)+  , _sfdFaceAttributes      :: !(Maybe FaceAttributes)+  , _sfdVideo               :: !Video+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartFaceDetection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sfdJobTag' - Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+--+-- * 'sfdNotificationChannel' - The ARN of the Amazon SNS topic to which you want Rekognition Video to publish the completion status of the face detection operation.+--+-- * 'sfdClientRequestToken' - Idempotent token used to identify the start request. If you use the same token with multiple @StartFaceDetection@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+--+-- * 'sfdFaceAttributes' - The face attributes you want returned. @DEFAULT@ - The following subset of facial attributes are returned: BoundingBox, Confidence, Pose, Quality and Landmarks.  @ALL@ - All facial attributes are returned.+--+-- * 'sfdVideo' - The video in which you want to detect faces. The video must be stored in an Amazon S3 bucket.+startFaceDetection+    :: Video -- ^ 'sfdVideo'+    -> StartFaceDetection+startFaceDetection pVideo_ =+  StartFaceDetection'+    { _sfdJobTag = Nothing+    , _sfdNotificationChannel = Nothing+    , _sfdClientRequestToken = Nothing+    , _sfdFaceAttributes = Nothing+    , _sfdVideo = pVideo_+    }+++-- | Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+sfdJobTag :: Lens' StartFaceDetection (Maybe Text)+sfdJobTag = lens _sfdJobTag (\ s a -> s{_sfdJobTag = a})++-- | The ARN of the Amazon SNS topic to which you want Rekognition Video to publish the completion status of the face detection operation.+sfdNotificationChannel :: Lens' StartFaceDetection (Maybe NotificationChannel)+sfdNotificationChannel = lens _sfdNotificationChannel (\ s a -> s{_sfdNotificationChannel = a})++-- | Idempotent token used to identify the start request. If you use the same token with multiple @StartFaceDetection@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+sfdClientRequestToken :: Lens' StartFaceDetection (Maybe Text)+sfdClientRequestToken = lens _sfdClientRequestToken (\ s a -> s{_sfdClientRequestToken = a})++-- | The face attributes you want returned. @DEFAULT@ - The following subset of facial attributes are returned: BoundingBox, Confidence, Pose, Quality and Landmarks.  @ALL@ - All facial attributes are returned.+sfdFaceAttributes :: Lens' StartFaceDetection (Maybe FaceAttributes)+sfdFaceAttributes = lens _sfdFaceAttributes (\ s a -> s{_sfdFaceAttributes = a})++-- | The video in which you want to detect faces. The video must be stored in an Amazon S3 bucket.+sfdVideo :: Lens' StartFaceDetection Video+sfdVideo = lens _sfdVideo (\ s a -> s{_sfdVideo = a})++instance AWSRequest StartFaceDetection where+        type Rs StartFaceDetection =+             StartFaceDetectionResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 StartFaceDetectionResponse' <$>+                   (x .?> "JobId") <*> (pure (fromEnum s)))++instance Hashable StartFaceDetection where++instance NFData StartFaceDetection where++instance ToHeaders StartFaceDetection where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.StartFaceDetection" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartFaceDetection where+        toJSON StartFaceDetection'{..}+          = object+              (catMaybes+                 [("JobTag" .=) <$> _sfdJobTag,+                  ("NotificationChannel" .=) <$>+                    _sfdNotificationChannel,+                  ("ClientRequestToken" .=) <$> _sfdClientRequestToken,+                  ("FaceAttributes" .=) <$> _sfdFaceAttributes,+                  Just ("Video" .= _sfdVideo)])++instance ToPath StartFaceDetection where+        toPath = const "/"++instance ToQuery StartFaceDetection where+        toQuery = const mempty++-- | /See:/ 'startFaceDetectionResponse' smart constructor.+data StartFaceDetectionResponse = StartFaceDetectionResponse'+  { _sfdrsJobId          :: !(Maybe Text)+  , _sfdrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartFaceDetectionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sfdrsJobId' - The identifier for the face detection job. Use @JobId@ to identify the job in a subsequent call to @GetFaceDetection@ .+--+-- * 'sfdrsResponseStatus' - -- | The response status code.+startFaceDetectionResponse+    :: Int -- ^ 'sfdrsResponseStatus'+    -> StartFaceDetectionResponse+startFaceDetectionResponse pResponseStatus_ =+  StartFaceDetectionResponse'+    {_sfdrsJobId = Nothing, _sfdrsResponseStatus = pResponseStatus_}+++-- | The identifier for the face detection job. Use @JobId@ to identify the job in a subsequent call to @GetFaceDetection@ .+sfdrsJobId :: Lens' StartFaceDetectionResponse (Maybe Text)+sfdrsJobId = lens _sfdrsJobId (\ s a -> s{_sfdrsJobId = a})++-- | -- | The response status code.+sfdrsResponseStatus :: Lens' StartFaceDetectionResponse Int+sfdrsResponseStatus = lens _sfdrsResponseStatus (\ s a -> s{_sfdrsResponseStatus = a})++instance NFData StartFaceDetectionResponse where

@@ -0,0 +1,190 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.StartFaceSearch+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts the asynchronous search for faces in a collection that match the faces of persons detected in a stored video.+--+--+-- The video must be stored in an Amazon S3 bucket. Use 'Video' to specify the bucket name and the filename of the video. @StartFaceSearch@ returns a job identifier (@JobId@ ) which you use to get the search results once the search has completed. When searching is finished, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic that you specify in @NotificationChannel@ . To get the search results, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call and pass the job identifier (@JobId@ ) from the initial call to @StartFaceSearch@ . For more information, see 'collections-search-person' .+--+module Network.AWS.Rekognition.StartFaceSearch+    (+    -- * Creating a Request+      startFaceSearch+    , StartFaceSearch+    -- * Request Lenses+    , sfsFaceMatchThreshold+    , sfsJobTag+    , sfsNotificationChannel+    , sfsClientRequestToken+    , sfsVideo+    , sfsCollectionId++    -- * Destructuring the Response+    , startFaceSearchResponse+    , StartFaceSearchResponse+    -- * Response Lenses+    , sfsrsJobId+    , sfsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'startFaceSearch' smart constructor.+data StartFaceSearch = StartFaceSearch'+  { _sfsFaceMatchThreshold  :: !(Maybe Double)+  , _sfsJobTag              :: !(Maybe Text)+  , _sfsNotificationChannel :: !(Maybe NotificationChannel)+  , _sfsClientRequestToken  :: !(Maybe Text)+  , _sfsVideo               :: !Video+  , _sfsCollectionId        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartFaceSearch' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sfsFaceMatchThreshold' - The minimum confidence in the person match to return. For example, don't return any matches where confidence in matches is less than 70%.+--+-- * 'sfsJobTag' - Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+--+-- * 'sfsNotificationChannel' - The ARN of the Amazon SNS topic to which you want Rekognition Video to publish the completion status of the search.+--+-- * 'sfsClientRequestToken' - Idempotent token used to identify the start request. If you use the same token with multiple @StartFaceSearch@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+--+-- * 'sfsVideo' - The video you want to search. The video must be stored in an Amazon S3 bucket.+--+-- * 'sfsCollectionId' - ID of the collection that contains the faces you want to search for.+startFaceSearch+    :: Video -- ^ 'sfsVideo'+    -> Text -- ^ 'sfsCollectionId'+    -> StartFaceSearch+startFaceSearch pVideo_ pCollectionId_ =+  StartFaceSearch'+    { _sfsFaceMatchThreshold = Nothing+    , _sfsJobTag = Nothing+    , _sfsNotificationChannel = Nothing+    , _sfsClientRequestToken = Nothing+    , _sfsVideo = pVideo_+    , _sfsCollectionId = pCollectionId_+    }+++-- | The minimum confidence in the person match to return. For example, don't return any matches where confidence in matches is less than 70%.+sfsFaceMatchThreshold :: Lens' StartFaceSearch (Maybe Double)+sfsFaceMatchThreshold = lens _sfsFaceMatchThreshold (\ s a -> s{_sfsFaceMatchThreshold = a})++-- | Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+sfsJobTag :: Lens' StartFaceSearch (Maybe Text)+sfsJobTag = lens _sfsJobTag (\ s a -> s{_sfsJobTag = a})++-- | The ARN of the Amazon SNS topic to which you want Rekognition Video to publish the completion status of the search.+sfsNotificationChannel :: Lens' StartFaceSearch (Maybe NotificationChannel)+sfsNotificationChannel = lens _sfsNotificationChannel (\ s a -> s{_sfsNotificationChannel = a})++-- | Idempotent token used to identify the start request. If you use the same token with multiple @StartFaceSearch@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+sfsClientRequestToken :: Lens' StartFaceSearch (Maybe Text)+sfsClientRequestToken = lens _sfsClientRequestToken (\ s a -> s{_sfsClientRequestToken = a})++-- | The video you want to search. The video must be stored in an Amazon S3 bucket.+sfsVideo :: Lens' StartFaceSearch Video+sfsVideo = lens _sfsVideo (\ s a -> s{_sfsVideo = a})++-- | ID of the collection that contains the faces you want to search for.+sfsCollectionId :: Lens' StartFaceSearch Text+sfsCollectionId = lens _sfsCollectionId (\ s a -> s{_sfsCollectionId = a})++instance AWSRequest StartFaceSearch where+        type Rs StartFaceSearch = StartFaceSearchResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 StartFaceSearchResponse' <$>+                   (x .?> "JobId") <*> (pure (fromEnum s)))++instance Hashable StartFaceSearch where++instance NFData StartFaceSearch where++instance ToHeaders StartFaceSearch where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.StartFaceSearch" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartFaceSearch where+        toJSON StartFaceSearch'{..}+          = object+              (catMaybes+                 [("FaceMatchThreshold" .=) <$>+                    _sfsFaceMatchThreshold,+                  ("JobTag" .=) <$> _sfsJobTag,+                  ("NotificationChannel" .=) <$>+                    _sfsNotificationChannel,+                  ("ClientRequestToken" .=) <$> _sfsClientRequestToken,+                  Just ("Video" .= _sfsVideo),+                  Just ("CollectionId" .= _sfsCollectionId)])++instance ToPath StartFaceSearch where+        toPath = const "/"++instance ToQuery StartFaceSearch where+        toQuery = const mempty++-- | /See:/ 'startFaceSearchResponse' smart constructor.+data StartFaceSearchResponse = StartFaceSearchResponse'+  { _sfsrsJobId          :: !(Maybe Text)+  , _sfsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartFaceSearchResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sfsrsJobId' - The identifier for the search job. Use @JobId@ to identify the job in a subsequent call to @GetFaceSearch@ .+--+-- * 'sfsrsResponseStatus' - -- | The response status code.+startFaceSearchResponse+    :: Int -- ^ 'sfsrsResponseStatus'+    -> StartFaceSearchResponse+startFaceSearchResponse pResponseStatus_ =+  StartFaceSearchResponse'+    {_sfsrsJobId = Nothing, _sfsrsResponseStatus = pResponseStatus_}+++-- | The identifier for the search job. Use @JobId@ to identify the job in a subsequent call to @GetFaceSearch@ .+sfsrsJobId :: Lens' StartFaceSearchResponse (Maybe Text)+sfsrsJobId = lens _sfsrsJobId (\ s a -> s{_sfsrsJobId = a})++-- | -- | The response status code.+sfsrsResponseStatus :: Lens' StartFaceSearchResponse Int+sfsrsResponseStatus = lens _sfsrsResponseStatus (\ s a -> s{_sfsrsResponseStatus = a})++instance NFData StartFaceSearchResponse where

@@ -0,0 +1,186 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.StartLabelDetection+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts asynchronous detection of labels in a stored video.+--+--+-- Rekognition Video can detect labels in a video. Labels are instances of real-world entities. This includes objects like flower, tree, and table; events like wedding, graduation, and birthday party; concepts like landscape, evening, and nature; and activities like a person getting out of a car or a person skiing.+--+-- The video must be stored in an Amazon S3 bucket. Use 'Video' to specify the bucket name and the filename of the video. @StartLabelDetection@ returns a job identifier (@JobId@ ) which you use to get the results of the operation. When label detection is finished, Rekognition Video publishes a completion status to the Amazon Simple Notification Service topic that you specify in @NotificationChannel@ .+--+-- To get the results of the label detection operation, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call and pass the job identifier (@JobId@ ) from the initial call to @StartLabelDetection@ .+--+--+--+module Network.AWS.Rekognition.StartLabelDetection+    (+    -- * Creating a Request+      startLabelDetection+    , StartLabelDetection+    -- * Request Lenses+    , sldJobTag+    , sldNotificationChannel+    , sldClientRequestToken+    , sldMinConfidence+    , sldVideo++    -- * Destructuring the Response+    , startLabelDetectionResponse+    , StartLabelDetectionResponse+    -- * Response Lenses+    , sldrsJobId+    , sldrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'startLabelDetection' smart constructor.+data StartLabelDetection = StartLabelDetection'+  { _sldJobTag              :: !(Maybe Text)+  , _sldNotificationChannel :: !(Maybe NotificationChannel)+  , _sldClientRequestToken  :: !(Maybe Text)+  , _sldMinConfidence       :: !(Maybe Double)+  , _sldVideo               :: !Video+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartLabelDetection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sldJobTag' - Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+--+-- * 'sldNotificationChannel' - The Amazon SNS topic ARN you want Rekognition Video to publish the completion status of the label detection operation to.+--+-- * 'sldClientRequestToken' - Idempotent token used to identify the start request. If you use the same token with multiple @StartLabelDetection@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+--+-- * 'sldMinConfidence' - Specifies the minimum confidence that Rekognition Video must have in order to return a detected label. Confidence represents how certain Amazon Rekognition is that a label is correctly identified.0 is the lowest confidence. 100 is the highest confidence. Rekognition Video doesn't return any labels with a confidence level lower than this specified value. If you don't specify @MinConfidence@ , the operation returns labels with confidence values greater than or equal to 50 percent.+--+-- * 'sldVideo' - The video in which you want to detect labels. The video must be stored in an Amazon S3 bucket.+startLabelDetection+    :: Video -- ^ 'sldVideo'+    -> StartLabelDetection+startLabelDetection pVideo_ =+  StartLabelDetection'+    { _sldJobTag = Nothing+    , _sldNotificationChannel = Nothing+    , _sldClientRequestToken = Nothing+    , _sldMinConfidence = Nothing+    , _sldVideo = pVideo_+    }+++-- | Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+sldJobTag :: Lens' StartLabelDetection (Maybe Text)+sldJobTag = lens _sldJobTag (\ s a -> s{_sldJobTag = a})++-- | The Amazon SNS topic ARN you want Rekognition Video to publish the completion status of the label detection operation to.+sldNotificationChannel :: Lens' StartLabelDetection (Maybe NotificationChannel)+sldNotificationChannel = lens _sldNotificationChannel (\ s a -> s{_sldNotificationChannel = a})++-- | Idempotent token used to identify the start request. If you use the same token with multiple @StartLabelDetection@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+sldClientRequestToken :: Lens' StartLabelDetection (Maybe Text)+sldClientRequestToken = lens _sldClientRequestToken (\ s a -> s{_sldClientRequestToken = a})++-- | Specifies the minimum confidence that Rekognition Video must have in order to return a detected label. Confidence represents how certain Amazon Rekognition is that a label is correctly identified.0 is the lowest confidence. 100 is the highest confidence. Rekognition Video doesn't return any labels with a confidence level lower than this specified value. If you don't specify @MinConfidence@ , the operation returns labels with confidence values greater than or equal to 50 percent.+sldMinConfidence :: Lens' StartLabelDetection (Maybe Double)+sldMinConfidence = lens _sldMinConfidence (\ s a -> s{_sldMinConfidence = a})++-- | The video in which you want to detect labels. The video must be stored in an Amazon S3 bucket.+sldVideo :: Lens' StartLabelDetection Video+sldVideo = lens _sldVideo (\ s a -> s{_sldVideo = a})++instance AWSRequest StartLabelDetection where+        type Rs StartLabelDetection =+             StartLabelDetectionResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 StartLabelDetectionResponse' <$>+                   (x .?> "JobId") <*> (pure (fromEnum s)))++instance Hashable StartLabelDetection where++instance NFData StartLabelDetection where++instance ToHeaders StartLabelDetection where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.StartLabelDetection" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartLabelDetection where+        toJSON StartLabelDetection'{..}+          = object+              (catMaybes+                 [("JobTag" .=) <$> _sldJobTag,+                  ("NotificationChannel" .=) <$>+                    _sldNotificationChannel,+                  ("ClientRequestToken" .=) <$> _sldClientRequestToken,+                  ("MinConfidence" .=) <$> _sldMinConfidence,+                  Just ("Video" .= _sldVideo)])++instance ToPath StartLabelDetection where+        toPath = const "/"++instance ToQuery StartLabelDetection where+        toQuery = const mempty++-- | /See:/ 'startLabelDetectionResponse' smart constructor.+data StartLabelDetectionResponse = StartLabelDetectionResponse'+  { _sldrsJobId          :: !(Maybe Text)+  , _sldrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartLabelDetectionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sldrsJobId' - The identifier for the label detection job. Use @JobId@ to identify the job in a subsequent call to @GetLabelDetection@ .+--+-- * 'sldrsResponseStatus' - -- | The response status code.+startLabelDetectionResponse+    :: Int -- ^ 'sldrsResponseStatus'+    -> StartLabelDetectionResponse+startLabelDetectionResponse pResponseStatus_ =+  StartLabelDetectionResponse'+    {_sldrsJobId = Nothing, _sldrsResponseStatus = pResponseStatus_}+++-- | The identifier for the label detection job. Use @JobId@ to identify the job in a subsequent call to @GetLabelDetection@ .+sldrsJobId :: Lens' StartLabelDetectionResponse (Maybe Text)+sldrsJobId = lens _sldrsJobId (\ s a -> s{_sldrsJobId = a})++-- | -- | The response status code.+sldrsResponseStatus :: Lens' StartLabelDetectionResponse Int+sldrsResponseStatus = lens _sldrsResponseStatus (\ s a -> s{_sldrsResponseStatus = a})++instance NFData StartLabelDetectionResponse where

@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.StartPersonTracking+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts the asynchronous tracking of persons in a stored video.+--+--+-- Rekognition Video can track persons in a video stored in an Amazon S3 bucket. Use 'Video' to specify the bucket name and the filename of the video. @StartPersonTracking@ returns a job identifier (@JobId@ ) which you use to get the results of the operation. When label detection is finished, Amazon Rekognition publishes a completion status to the Amazon Simple Notification Service topic that you specify in @NotificationChannel@ .+--+-- To get the results of the person detection operation, first check that the status value published to the Amazon SNS topic is @SUCCEEDED@ . If so, call and pass the job identifier (@JobId@ ) from the initial call to @StartPersonTracking@ .+--+module Network.AWS.Rekognition.StartPersonTracking+    (+    -- * Creating a Request+      startPersonTracking+    , StartPersonTracking+    -- * Request Lenses+    , sptJobTag+    , sptNotificationChannel+    , sptClientRequestToken+    , sptVideo++    -- * Destructuring the Response+    , startPersonTrackingResponse+    , StartPersonTrackingResponse+    -- * Response Lenses+    , sptrsJobId+    , sptrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'startPersonTracking' smart constructor.+data StartPersonTracking = StartPersonTracking'+  { _sptJobTag              :: !(Maybe Text)+  , _sptNotificationChannel :: !(Maybe NotificationChannel)+  , _sptClientRequestToken  :: !(Maybe Text)+  , _sptVideo               :: !Video+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartPersonTracking' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sptJobTag' - Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+--+-- * 'sptNotificationChannel' - The Amazon SNS topic ARN you want Rekognition Video to publish the completion status of the people detection operation to.+--+-- * 'sptClientRequestToken' - Idempotent token used to identify the start request. If you use the same token with multiple @StartPersonTracking@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+--+-- * 'sptVideo' - The video in which you want to detect people. The video must be stored in an Amazon S3 bucket.+startPersonTracking+    :: Video -- ^ 'sptVideo'+    -> StartPersonTracking+startPersonTracking pVideo_ =+  StartPersonTracking'+    { _sptJobTag = Nothing+    , _sptNotificationChannel = Nothing+    , _sptClientRequestToken = Nothing+    , _sptVideo = pVideo_+    }+++-- | Unique identifier you specify to identify the job in the completion status published to the Amazon Simple Notification Service topic.+sptJobTag :: Lens' StartPersonTracking (Maybe Text)+sptJobTag = lens _sptJobTag (\ s a -> s{_sptJobTag = a})++-- | The Amazon SNS topic ARN you want Rekognition Video to publish the completion status of the people detection operation to.+sptNotificationChannel :: Lens' StartPersonTracking (Maybe NotificationChannel)+sptNotificationChannel = lens _sptNotificationChannel (\ s a -> s{_sptNotificationChannel = a})++-- | Idempotent token used to identify the start request. If you use the same token with multiple @StartPersonTracking@ requests, the same @JobId@ is returned. Use @ClientRequestToken@ to prevent the same job from being accidently started more than once.+sptClientRequestToken :: Lens' StartPersonTracking (Maybe Text)+sptClientRequestToken = lens _sptClientRequestToken (\ s a -> s{_sptClientRequestToken = a})++-- | The video in which you want to detect people. The video must be stored in an Amazon S3 bucket.+sptVideo :: Lens' StartPersonTracking Video+sptVideo = lens _sptVideo (\ s a -> s{_sptVideo = a})++instance AWSRequest StartPersonTracking where+        type Rs StartPersonTracking =+             StartPersonTrackingResponse+        request = postJSON rekognition+        response+          = receiveJSON+              (\ s h x ->+                 StartPersonTrackingResponse' <$>+                   (x .?> "JobId") <*> (pure (fromEnum s)))++instance Hashable StartPersonTracking where++instance NFData StartPersonTracking where++instance ToHeaders StartPersonTracking where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.StartPersonTracking" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartPersonTracking where+        toJSON StartPersonTracking'{..}+          = object+              (catMaybes+                 [("JobTag" .=) <$> _sptJobTag,+                  ("NotificationChannel" .=) <$>+                    _sptNotificationChannel,+                  ("ClientRequestToken" .=) <$> _sptClientRequestToken,+                  Just ("Video" .= _sptVideo)])++instance ToPath StartPersonTracking where+        toPath = const "/"++instance ToQuery StartPersonTracking where+        toQuery = const mempty++-- | /See:/ 'startPersonTrackingResponse' smart constructor.+data StartPersonTrackingResponse = StartPersonTrackingResponse'+  { _sptrsJobId          :: !(Maybe Text)+  , _sptrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartPersonTrackingResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sptrsJobId' - The identifier for the person detection job. Use @JobId@ to identify the job in a subsequent call to @GetPersonTracking@ .+--+-- * 'sptrsResponseStatus' - -- | The response status code.+startPersonTrackingResponse+    :: Int -- ^ 'sptrsResponseStatus'+    -> StartPersonTrackingResponse+startPersonTrackingResponse pResponseStatus_ =+  StartPersonTrackingResponse'+    {_sptrsJobId = Nothing, _sptrsResponseStatus = pResponseStatus_}+++-- | The identifier for the person detection job. Use @JobId@ to identify the job in a subsequent call to @GetPersonTracking@ .+sptrsJobId :: Lens' StartPersonTrackingResponse (Maybe Text)+sptrsJobId = lens _sptrsJobId (\ s a -> s{_sptrsJobId = a})++-- | -- | The response status code.+sptrsResponseStatus :: Lens' StartPersonTrackingResponse Int+sptrsResponseStatus = lens _sptrsResponseStatus (\ s a -> s{_sptrsResponseStatus = a})++instance NFData StartPersonTrackingResponse where

@@ -0,0 +1,123 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.StartStreamProcessor+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts processing a stream processor. You create a stream processor by calling . To tell @StartStreamProcessor@ which stream processor to start, use the value of the @Name@ field specified in the call to @CreateStreamProcessor@ .+--+--+module Network.AWS.Rekognition.StartStreamProcessor+    (+    -- * Creating a Request+      startStreamProcessor+    , StartStreamProcessor+    -- * Request Lenses+    , sName++    -- * Destructuring the Response+    , startStreamProcessorResponse+    , StartStreamProcessorResponse+    -- * Response Lenses+    , srsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'startStreamProcessor' smart constructor.+newtype StartStreamProcessor = StartStreamProcessor'+  { _sName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartStreamProcessor' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sName' - The name of the stream processor to start processing.+startStreamProcessor+    :: Text -- ^ 'sName'+    -> StartStreamProcessor+startStreamProcessor pName_ = StartStreamProcessor' {_sName = pName_}+++-- | The name of the stream processor to start processing.+sName :: Lens' StartStreamProcessor Text+sName = lens _sName (\ s a -> s{_sName = a})++instance AWSRequest StartStreamProcessor where+        type Rs StartStreamProcessor =+             StartStreamProcessorResponse+        request = postJSON rekognition+        response+          = receiveEmpty+              (\ s h x ->+                 StartStreamProcessorResponse' <$>+                   (pure (fromEnum s)))++instance Hashable StartStreamProcessor where++instance NFData StartStreamProcessor where++instance ToHeaders StartStreamProcessor where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.StartStreamProcessor" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartStreamProcessor where+        toJSON StartStreamProcessor'{..}+          = object (catMaybes [Just ("Name" .= _sName)])++instance ToPath StartStreamProcessor where+        toPath = const "/"++instance ToQuery StartStreamProcessor where+        toQuery = const mempty++-- | /See:/ 'startStreamProcessorResponse' smart constructor.+newtype StartStreamProcessorResponse = StartStreamProcessorResponse'+  { _srsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartStreamProcessorResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srsResponseStatus' - -- | The response status code.+startStreamProcessorResponse+    :: Int -- ^ 'srsResponseStatus'+    -> StartStreamProcessorResponse+startStreamProcessorResponse pResponseStatus_ =+  StartStreamProcessorResponse' {_srsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+srsResponseStatus :: Lens' StartStreamProcessorResponse Int+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})++instance NFData StartStreamProcessorResponse where

@@ -0,0 +1,122 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Rekognition.StopStreamProcessor+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops a running stream processor that was created by .+--+--+module Network.AWS.Rekognition.StopStreamProcessor+    (+    -- * Creating a Request+      stopStreamProcessor+    , StopStreamProcessor+    -- * Request Lenses+    , sspName++    -- * Destructuring the Response+    , stopStreamProcessorResponse+    , StopStreamProcessorResponse+    -- * Response Lenses+    , ssprsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types+import Network.AWS.Rekognition.Types.Product+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'stopStreamProcessor' smart constructor.+newtype StopStreamProcessor = StopStreamProcessor'+  { _sspName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopStreamProcessor' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sspName' - The name of a stream processor created by .+stopStreamProcessor+    :: Text -- ^ 'sspName'+    -> StopStreamProcessor+stopStreamProcessor pName_ = StopStreamProcessor' {_sspName = pName_}+++-- | The name of a stream processor created by .+sspName :: Lens' StopStreamProcessor Text+sspName = lens _sspName (\ s a -> s{_sspName = a})++instance AWSRequest StopStreamProcessor where+        type Rs StopStreamProcessor =+             StopStreamProcessorResponse+        request = postJSON rekognition+        response+          = receiveEmpty+              (\ s h x ->+                 StopStreamProcessorResponse' <$> (pure (fromEnum s)))++instance Hashable StopStreamProcessor where++instance NFData StopStreamProcessor where++instance ToHeaders StopStreamProcessor where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("RekognitionService.StopStreamProcessor" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StopStreamProcessor where+        toJSON StopStreamProcessor'{..}+          = object (catMaybes [Just ("Name" .= _sspName)])++instance ToPath StopStreamProcessor where+        toPath = const "/"++instance ToQuery StopStreamProcessor where+        toQuery = const mempty++-- | /See:/ 'stopStreamProcessorResponse' smart constructor.+newtype StopStreamProcessorResponse = StopStreamProcessorResponse'+  { _ssprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopStreamProcessorResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ssprsResponseStatus' - -- | The response status code.+stopStreamProcessorResponse+    :: Int -- ^ 'ssprsResponseStatus'+    -> StopStreamProcessorResponse+stopStreamProcessorResponse pResponseStatus_ =+  StopStreamProcessorResponse' {_ssprsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+ssprsResponseStatus :: Lens' StopStreamProcessorResponse Int+ssprsResponseStatus = lens _ssprsResponseStatus (\ s a -> s{_ssprsResponseStatus = a})++instance NFData StopStreamProcessorResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.Rekognition.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -17,6 +17,7 @@      -- * Errors     , _AccessDeniedException+    , _VideoTooLargeException     , _InvalidParameterException     , _InvalidImageFormatException     , _ResourceAlreadyExistsException@@ -25,24 +26,54 @@     , _ImageTooLargeException     , _ThrottlingException     , _InternalServerError+    , _IdempotentParameterMismatchException     , _ResourceNotFoundException     , _InvalidPaginationTokenException+    , _LimitExceededException+    , _ResourceInUseException      -- * Attribute     , Attribute (..) +    -- * CelebrityRecognitionSortBy+    , CelebrityRecognitionSortBy (..)++    -- * ContentModerationSortBy+    , ContentModerationSortBy (..)+     -- * EmotionName     , EmotionName (..) +    -- * FaceAttributes+    , FaceAttributes (..)++    -- * FaceSearchSortBy+    , FaceSearchSortBy (..)+     -- * GenderType     , GenderType (..) +    -- * LabelDetectionSortBy+    , LabelDetectionSortBy (..)+     -- * LandmarkType     , LandmarkType (..)      -- * OrientationCorrection     , OrientationCorrection (..) +    -- * PersonTrackingSortBy+    , PersonTrackingSortBy (..)++    -- * StreamProcessorStatus+    , StreamProcessorStatus (..)++    -- * TextTypes+    , TextTypes (..)++    -- * VideoJobStatus+    , VideoJobStatus (..)+     -- * AgeRange     , AgeRange     , ageRange@@ -72,6 +103,22 @@     , cId     , cFace +    -- * CelebrityDetail+    , CelebrityDetail+    , celebrityDetail+    , cdBoundingBox+    , cdURLs+    , cdConfidence+    , cdName+    , cdId+    , cdFace++    -- * CelebrityRecognition+    , CelebrityRecognition+    , celebrityRecognition+    , crCelebrity+    , crTimestamp+     -- * CompareFacesMatch     , CompareFacesMatch     , compareFacesMatch@@ -93,6 +140,12 @@     , csifBoundingBox     , csifConfidence +    -- * ContentModerationDetection+    , ContentModerationDetection+    , contentModerationDetection+    , cmdModerationLabel+    , cmdTimestamp+     -- * Emotion     , Emotion     , emotion@@ -139,6 +192,12 @@     , fdSmile     , fdLandmarks +    -- * FaceDetection+    , FaceDetection+    , faceDetection+    , fdTimestamp+    , fdFace+     -- * FaceMatch     , FaceMatch     , faceMatch@@ -151,12 +210,24 @@     , frFaceDetail     , frFace +    -- * FaceSearchSettings+    , FaceSearchSettings+    , faceSearchSettings+    , fssFaceMatchThreshold+    , fssCollectionId+     -- * Gender     , Gender     , gender     , gValue     , gConfidence +    -- * Geometry+    , Geometry+    , geometry+    , gBoundingBox+    , gPolygon+     -- * Image     , Image     , image@@ -169,12 +240,28 @@     , iqSharpness     , iqBrightness +    -- * KinesisDataStream+    , KinesisDataStream+    , kinesisDataStream+    , kdsARN++    -- * KinesisVideoStream+    , KinesisVideoStream+    , kinesisVideoStream+    , kvsARN+     -- * Label     , Label     , label     , lConfidence     , lName +    -- * LabelDetection+    , LabelDetection+    , labelDetection+    , ldLabel+    , ldTimestamp+     -- * Landmark     , Landmark     , landmark@@ -201,6 +288,38 @@     , mValue     , mConfidence +    -- * NotificationChannel+    , NotificationChannel+    , notificationChannel+    , ncSNSTopicARN+    , ncRoleARN++    -- * PersonDetail+    , PersonDetail+    , personDetail+    , pdBoundingBox+    , pdIndex+    , pdFace++    -- * PersonDetection+    , PersonDetection+    , personDetection+    , pdPerson+    , pdTimestamp++    -- * PersonMatch+    , PersonMatch+    , personMatch+    , pmFaceMatches+    , pmPerson+    , pmTimestamp++    -- * Point+    , Point+    , point+    , pX+    , pY+     -- * Pose     , Pose     , pose@@ -221,11 +340,57 @@     , smiValue     , smiConfidence +    -- * StreamProcessor+    , StreamProcessor+    , streamProcessor+    , spStatus+    , spName++    -- * StreamProcessorInput+    , StreamProcessorInput+    , streamProcessorInput+    , spiKinesisVideoStream++    -- * StreamProcessorOutput+    , StreamProcessorOutput+    , streamProcessorOutput+    , spoKinesisDataStream++    -- * StreamProcessorSettings+    , StreamProcessorSettings+    , streamProcessorSettings+    , spsFaceSearch+     -- * Sunglasses     , Sunglasses     , sunglasses     , sValue     , sConfidence++    -- * TextDetection+    , TextDetection+    , textDetection+    , tdDetectedText+    , tdConfidence+    , tdGeometry+    , tdId+    , tdType+    , tdParentId++    -- * Video+    , Video+    , video+    , vS3Object++    -- * VideoMetadata+    , VideoMetadata+    , videoMetadata+    , vmFrameRate+    , vmFormat+    , vmCodec+    , vmFrameHeight+    , vmDurationMillis+    , vmFrameWidth     ) where  import Network.AWS.Lens@@ -238,24 +403,24 @@ rekognition :: Service rekognition =   Service-  { _svcAbbrev = "Rekognition"-  , _svcSigner = v4-  , _svcPrefix = "rekognition"-  , _svcVersion = "2016-06-27"-  , _svcEndpoint = defaultEndpoint rekognition-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "Rekognition"-  , _svcRetry = retry-  }+    { _svcAbbrev = "Rekognition"+    , _svcSigner = v4+    , _svcPrefix = "rekognition"+    , _svcVersion = "2016-06-27"+    , _svcEndpoint = defaultEndpoint rekognition+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "Rekognition"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -264,6 +429,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -278,6 +445,14 @@ _AccessDeniedException = _MatchServiceError rekognition "AccessDeniedException"  +-- | The file size or duration of the supplied media is too large. The maximum file size is 8GB. The maximum duration is 2 hours.+--+--+_VideoTooLargeException :: AsError a => Getting (First ServiceError) a ServiceError+_VideoTooLargeException =+  _MatchServiceError rekognition "VideoTooLargeException"++ -- | Input parameter violated a constraint. Validate your parameter before calling the API operation again. -- --@@ -340,9 +515,17 @@ _InternalServerError = _MatchServiceError rekognition "InternalServerError"  --- | Collection specified in the request is not found.+-- | A @ClientRequestToken@ input parameter was reused with an operation, but at least one of the other input parameters is different from the previous call to the operation. -- --+_IdempotentParameterMismatchException :: AsError a => Getting (First ServiceError) a ServiceError+_IdempotentParameterMismatchException =+  _MatchServiceError rekognition "IdempotentParameterMismatchException"+++-- | The collection specified in the request cannot be found.+--+-- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =   _MatchServiceError rekognition "ResourceNotFoundException"@@ -354,4 +537,20 @@ _InvalidPaginationTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidPaginationTokenException =   _MatchServiceError rekognition "InvalidPaginationTokenException"+++-- | An Amazon Rekognition service limit was exceeded. For example, if you start too many Rekognition Video jobs concurrently, calls to start operations (@StartLabelDetection@ , for example) will raise a @LimitExceededException@ exception (HTTP status code: 400) until the number of concurrently running jobs is below the Amazon Rekognition service limit.+--+--+_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_LimitExceededException =+  _MatchServiceError rekognition "LimitExceededException"+++-- |+--+--+_ResourceInUseException :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceInUseException =+  _MatchServiceError rekognition "ResourceInUseException" 

@@ -9,1389 +9,2429 @@  -- | -- Module      : Network.AWS.Rekognition.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.Rekognition.Types.Product where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Rekognition.Types.Sum---- | Structure containing the estimated age range, in years, for a face.--------- Rekognition estimates an age-range for faces detected in the input image. Estimated age ranges can overlap; a face of a 5 year old may have an estimated range of 4-6 whilst the face of a 6 year old may have an estimated range of 4-8.--------- /See:/ 'ageRange' smart constructor.-data AgeRange = AgeRange'-  { _arLow  :: !(Maybe Nat)-  , _arHigh :: !(Maybe Nat)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AgeRange' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'arLow' - The lowest estimated age.------ * 'arHigh' - The highest estimated age.-ageRange-    :: AgeRange-ageRange = AgeRange' {_arLow = Nothing, _arHigh = Nothing}----- | The lowest estimated age.-arLow :: Lens' AgeRange (Maybe Natural)-arLow = lens _arLow (\ s a -> s{_arLow = a}) . mapping _Nat;---- | The highest estimated age.-arHigh :: Lens' AgeRange (Maybe Natural)-arHigh = lens _arHigh (\ s a -> s{_arHigh = a}) . mapping _Nat;--instance FromJSON AgeRange where-        parseJSON-          = withObject "AgeRange"-              (\ x ->-                 AgeRange' <$> (x .:? "Low") <*> (x .:? "High"))--instance Hashable AgeRange where--instance NFData AgeRange where---- | Indicates whether or not the face has a beard, and the confidence level in the determination.------------ /See:/ 'beard' smart constructor.-data Beard = Beard'-  { _bValue      :: !(Maybe Bool)-  , _bConfidence :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Beard' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bValue' - Boolean value that indicates whether the face has beard or not.------ * 'bConfidence' - Level of confidence in the determination.-beard-    :: Beard-beard = Beard' {_bValue = Nothing, _bConfidence = Nothing}----- | Boolean value that indicates whether the face has beard or not.-bValue :: Lens' Beard (Maybe Bool)-bValue = lens _bValue (\ s a -> s{_bValue = a});---- | Level of confidence in the determination.-bConfidence :: Lens' Beard (Maybe Double)-bConfidence = lens _bConfidence (\ s a -> s{_bConfidence = a});--instance FromJSON Beard where-        parseJSON-          = withObject "Beard"-              (\ x ->-                 Beard' <$> (x .:? "Value") <*> (x .:? "Confidence"))--instance Hashable Beard where--instance NFData Beard where---- | Identifies the bounding box around the object or face. The @left@ (x-coordinate) and @top@ (y-coordinate) are coordinates representing the top and left sides of the bounding box. Note that the upper-left corner of the image is the origin (0,0).--------- The @top@ and @left@ values returned are ratios of the overall image size. For example, if the input image is 700x200 pixels, and the top-left coordinate of the bounding box is 350x50 pixels, the API returns a @left@ value of 0.5 (350/700) and a @top@ value of 0.25 (50/200).------ The @width@ and @height@ values represent the dimensions of the bounding box as a ratio of the overall image dimension. For example, if the input image is 700x200 pixels, and the bounding box width is 70 pixels, the width returned is 0.1.--------- /See:/ 'boundingBox' smart constructor.-data BoundingBox = BoundingBox'-  { _bbHeight :: !(Maybe Double)-  , _bbLeft   :: !(Maybe Double)-  , _bbWidth  :: !(Maybe Double)-  , _bbTop    :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'BoundingBox' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bbHeight' - Height of the bounding box as a ratio of the overall image height.------ * 'bbLeft' - Left coordinate of the bounding box as a ratio of overall image width.------ * 'bbWidth' - Width of the bounding box as a ratio of the overall image width.------ * 'bbTop' - Top coordinate of the bounding box as a ratio of overall image height.-boundingBox-    :: BoundingBox-boundingBox =-  BoundingBox'-  {_bbHeight = Nothing, _bbLeft = Nothing, _bbWidth = Nothing, _bbTop = Nothing}----- | Height of the bounding box as a ratio of the overall image height.-bbHeight :: Lens' BoundingBox (Maybe Double)-bbHeight = lens _bbHeight (\ s a -> s{_bbHeight = a});---- | Left coordinate of the bounding box as a ratio of overall image width.-bbLeft :: Lens' BoundingBox (Maybe Double)-bbLeft = lens _bbLeft (\ s a -> s{_bbLeft = a});---- | Width of the bounding box as a ratio of the overall image width.-bbWidth :: Lens' BoundingBox (Maybe Double)-bbWidth = lens _bbWidth (\ s a -> s{_bbWidth = a});---- | Top coordinate of the bounding box as a ratio of overall image height.-bbTop :: Lens' BoundingBox (Maybe Double)-bbTop = lens _bbTop (\ s a -> s{_bbTop = a});--instance FromJSON BoundingBox where-        parseJSON-          = withObject "BoundingBox"-              (\ x ->-                 BoundingBox' <$>-                   (x .:? "Height") <*> (x .:? "Left") <*>-                     (x .:? "Width")-                     <*> (x .:? "Top"))--instance Hashable BoundingBox where--instance NFData BoundingBox where---- | Provides information about a celebrity recognized by the operation.------------ /See:/ 'celebrity' smart constructor.-data Celebrity = Celebrity'-  { _cMatchConfidence :: !(Maybe Double)-  , _cURLs            :: !(Maybe [Text])-  , _cName            :: !(Maybe Text)-  , _cId              :: !(Maybe Text)-  , _cFace            :: !(Maybe ComparedFace)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Celebrity' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cMatchConfidence' - The confidence, in percentage, that Rekognition has that the recognized face is the celebrity.------ * 'cURLs' - An array of URLs pointing to additional information about the celebrity. If there is no additional information about the celebrity, this list is empty.------ * 'cName' - The name of the celebrity.------ * 'cId' - A unique identifier for the celebrity.------ * 'cFace' - Provides information about the celebrity's face, such as its location on the image.-celebrity-    :: Celebrity-celebrity =-  Celebrity'-  { _cMatchConfidence = Nothing-  , _cURLs = Nothing-  , _cName = Nothing-  , _cId = Nothing-  , _cFace = Nothing-  }----- | The confidence, in percentage, that Rekognition has that the recognized face is the celebrity.-cMatchConfidence :: Lens' Celebrity (Maybe Double)-cMatchConfidence = lens _cMatchConfidence (\ s a -> s{_cMatchConfidence = a});---- | An array of URLs pointing to additional information about the celebrity. If there is no additional information about the celebrity, this list is empty.-cURLs :: Lens' Celebrity [Text]-cURLs = lens _cURLs (\ s a -> s{_cURLs = a}) . _Default . _Coerce;---- | The name of the celebrity.-cName :: Lens' Celebrity (Maybe Text)-cName = lens _cName (\ s a -> s{_cName = a});---- | A unique identifier for the celebrity.-cId :: Lens' Celebrity (Maybe Text)-cId = lens _cId (\ s a -> s{_cId = a});---- | Provides information about the celebrity's face, such as its location on the image.-cFace :: Lens' Celebrity (Maybe ComparedFace)-cFace = lens _cFace (\ s a -> s{_cFace = a});--instance FromJSON Celebrity where-        parseJSON-          = withObject "Celebrity"-              (\ x ->-                 Celebrity' <$>-                   (x .:? "MatchConfidence") <*>-                     (x .:? "Urls" .!= mempty)-                     <*> (x .:? "Name")-                     <*> (x .:? "Id")-                     <*> (x .:? "Face"))--instance Hashable Celebrity where--instance NFData Celebrity where---- | Provides information about a face in a target image that matches the source image face analysed by @CompareFaces@ . The @Face@ property contains the bounding box of the face in the target image. The @Similarity@ property is the confidence that the source image face matches the face in the bounding box.------------ /See:/ 'compareFacesMatch' smart constructor.-data CompareFacesMatch = CompareFacesMatch'-  { _cfmSimilarity :: !(Maybe Double)-  , _cfmFace       :: !(Maybe ComparedFace)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CompareFacesMatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cfmSimilarity' - Level of confidence that the faces match.------ * 'cfmFace' - Provides face metadata (bounding box and confidence that the bounding box actually contains a face).-compareFacesMatch-    :: CompareFacesMatch-compareFacesMatch =-  CompareFacesMatch' {_cfmSimilarity = Nothing, _cfmFace = Nothing}----- | Level of confidence that the faces match.-cfmSimilarity :: Lens' CompareFacesMatch (Maybe Double)-cfmSimilarity = lens _cfmSimilarity (\ s a -> s{_cfmSimilarity = a});---- | Provides face metadata (bounding box and confidence that the bounding box actually contains a face).-cfmFace :: Lens' CompareFacesMatch (Maybe ComparedFace)-cfmFace = lens _cfmFace (\ s a -> s{_cfmFace = a});--instance FromJSON CompareFacesMatch where-        parseJSON-          = withObject "CompareFacesMatch"-              (\ x ->-                 CompareFacesMatch' <$>-                   (x .:? "Similarity") <*> (x .:? "Face"))--instance Hashable CompareFacesMatch where--instance NFData CompareFacesMatch where---- | Provides face metadata for target image faces that are analysed by @CompareFaces@ and @RecognizeCelebrities@ .------------ /See:/ 'comparedFace' smart constructor.-data ComparedFace = ComparedFace'-  { _cfBoundingBox :: !(Maybe BoundingBox)-  , _cfPose        :: !(Maybe Pose)-  , _cfConfidence  :: !(Maybe Double)-  , _cfQuality     :: !(Maybe ImageQuality)-  , _cfLandmarks   :: !(Maybe [Landmark])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ComparedFace' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cfBoundingBox' - Bounding box of the face.------ * 'cfPose' - Indicates the pose of the face as determined by its pitch, roll, and yaw.------ * 'cfConfidence' - Level of confidence that what the bounding box contains is a face.------ * 'cfQuality' - Identifies face image brightness and sharpness.------ * 'cfLandmarks' - An array of facial landmarks.-comparedFace-    :: ComparedFace-comparedFace =-  ComparedFace'-  { _cfBoundingBox = Nothing-  , _cfPose = Nothing-  , _cfConfidence = Nothing-  , _cfQuality = Nothing-  , _cfLandmarks = Nothing-  }----- | Bounding box of the face.-cfBoundingBox :: Lens' ComparedFace (Maybe BoundingBox)-cfBoundingBox = lens _cfBoundingBox (\ s a -> s{_cfBoundingBox = a});---- | Indicates the pose of the face as determined by its pitch, roll, and yaw.-cfPose :: Lens' ComparedFace (Maybe Pose)-cfPose = lens _cfPose (\ s a -> s{_cfPose = a});---- | Level of confidence that what the bounding box contains is a face.-cfConfidence :: Lens' ComparedFace (Maybe Double)-cfConfidence = lens _cfConfidence (\ s a -> s{_cfConfidence = a});---- | Identifies face image brightness and sharpness.-cfQuality :: Lens' ComparedFace (Maybe ImageQuality)-cfQuality = lens _cfQuality (\ s a -> s{_cfQuality = a});---- | An array of facial landmarks.-cfLandmarks :: Lens' ComparedFace [Landmark]-cfLandmarks = lens _cfLandmarks (\ s a -> s{_cfLandmarks = a}) . _Default . _Coerce;--instance FromJSON ComparedFace where-        parseJSON-          = withObject "ComparedFace"-              (\ x ->-                 ComparedFace' <$>-                   (x .:? "BoundingBox") <*> (x .:? "Pose") <*>-                     (x .:? "Confidence")-                     <*> (x .:? "Quality")-                     <*> (x .:? "Landmarks" .!= mempty))--instance Hashable ComparedFace where--instance NFData ComparedFace where---- | Type that describes the face Amazon Rekognition chose to compare with the faces in the target. This contains a bounding box for the selected face and confidence level that the bounding box contains a face. Note that Amazon Rekognition selects the largest face in the source image for this comparison.------------ /See:/ 'comparedSourceImageFace' smart constructor.-data ComparedSourceImageFace = ComparedSourceImageFace'-  { _csifBoundingBox :: !(Maybe BoundingBox)-  , _csifConfidence  :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ComparedSourceImageFace' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csifBoundingBox' - Bounding box of the face.------ * 'csifConfidence' - Confidence level that the selected bounding box contains a face.-comparedSourceImageFace-    :: ComparedSourceImageFace-comparedSourceImageFace =-  ComparedSourceImageFace'-  {_csifBoundingBox = Nothing, _csifConfidence = Nothing}----- | Bounding box of the face.-csifBoundingBox :: Lens' ComparedSourceImageFace (Maybe BoundingBox)-csifBoundingBox = lens _csifBoundingBox (\ s a -> s{_csifBoundingBox = a});---- | Confidence level that the selected bounding box contains a face.-csifConfidence :: Lens' ComparedSourceImageFace (Maybe Double)-csifConfidence = lens _csifConfidence (\ s a -> s{_csifConfidence = a});--instance FromJSON ComparedSourceImageFace where-        parseJSON-          = withObject "ComparedSourceImageFace"-              (\ x ->-                 ComparedSourceImageFace' <$>-                   (x .:? "BoundingBox") <*> (x .:? "Confidence"))--instance Hashable ComparedSourceImageFace where--instance NFData ComparedSourceImageFace where---- | The emotions detected on the face, and the confidence level in the determination. For example, HAPPY, SAD, and ANGRY.------------ /See:/ 'emotion' smart constructor.-data Emotion = Emotion'-  { _eConfidence :: !(Maybe Double)-  , _eType       :: !(Maybe EmotionName)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Emotion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eConfidence' - Level of confidence in the determination.------ * 'eType' - Type of emotion detected.-emotion-    :: Emotion-emotion = Emotion' {_eConfidence = Nothing, _eType = Nothing}----- | Level of confidence in the determination.-eConfidence :: Lens' Emotion (Maybe Double)-eConfidence = lens _eConfidence (\ s a -> s{_eConfidence = a});---- | Type of emotion detected.-eType :: Lens' Emotion (Maybe EmotionName)-eType = lens _eType (\ s a -> s{_eType = a});--instance FromJSON Emotion where-        parseJSON-          = withObject "Emotion"-              (\ x ->-                 Emotion' <$> (x .:? "Confidence") <*> (x .:? "Type"))--instance Hashable Emotion where--instance NFData Emotion where---- | Indicates whether or not the eyes on the face are open, and the confidence level in the determination.------------ /See:/ 'eyeOpen' smart constructor.-data EyeOpen = EyeOpen'-  { _eoValue      :: !(Maybe Bool)-  , _eoConfidence :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EyeOpen' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eoValue' - Boolean value that indicates whether the eyes on the face are open.------ * 'eoConfidence' - Level of confidence in the determination.-eyeOpen-    :: EyeOpen-eyeOpen = EyeOpen' {_eoValue = Nothing, _eoConfidence = Nothing}----- | Boolean value that indicates whether the eyes on the face are open.-eoValue :: Lens' EyeOpen (Maybe Bool)-eoValue = lens _eoValue (\ s a -> s{_eoValue = a});---- | Level of confidence in the determination.-eoConfidence :: Lens' EyeOpen (Maybe Double)-eoConfidence = lens _eoConfidence (\ s a -> s{_eoConfidence = a});--instance FromJSON EyeOpen where-        parseJSON-          = withObject "EyeOpen"-              (\ x ->-                 EyeOpen' <$>-                   (x .:? "Value") <*> (x .:? "Confidence"))--instance Hashable EyeOpen where--instance NFData EyeOpen where---- | Indicates whether or not the face is wearing eye glasses, and the confidence level in the determination.------------ /See:/ 'eyeglasses' smart constructor.-data Eyeglasses = Eyeglasses'-  { _eyeValue      :: !(Maybe Bool)-  , _eyeConfidence :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Eyeglasses' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eyeValue' - Boolean value that indicates whether the face is wearing eye glasses or not.------ * 'eyeConfidence' - Level of confidence in the determination.-eyeglasses-    :: Eyeglasses-eyeglasses = Eyeglasses' {_eyeValue = Nothing, _eyeConfidence = Nothing}----- | Boolean value that indicates whether the face is wearing eye glasses or not.-eyeValue :: Lens' Eyeglasses (Maybe Bool)-eyeValue = lens _eyeValue (\ s a -> s{_eyeValue = a});---- | Level of confidence in the determination.-eyeConfidence :: Lens' Eyeglasses (Maybe Double)-eyeConfidence = lens _eyeConfidence (\ s a -> s{_eyeConfidence = a});--instance FromJSON Eyeglasses where-        parseJSON-          = withObject "Eyeglasses"-              (\ x ->-                 Eyeglasses' <$>-                   (x .:? "Value") <*> (x .:? "Confidence"))--instance Hashable Eyeglasses where--instance NFData Eyeglasses where---- | Describes the face properties such as the bounding box, face ID, image ID of the input image, and external image ID that you assigned.------------ /See:/ 'face' smart constructor.-data Face = Face'-  { _fFaceId          :: !(Maybe Text)-  , _fBoundingBox     :: !(Maybe BoundingBox)-  , _fExternalImageId :: !(Maybe Text)-  , _fConfidence      :: !(Maybe Double)-  , _fImageId         :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Face' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fFaceId' - Unique identifier that Amazon Rekognition assigns to the face.------ * 'fBoundingBox' - Bounding box of the face.------ * 'fExternalImageId' - Identifier that you assign to all the faces in the input image.------ * 'fConfidence' - Confidence level that the bounding box contains a face (and not a different object such as a tree).------ * 'fImageId' - Unique identifier that Amazon Rekognition assigns to the input image.-face-    :: Face-face =-  Face'-  { _fFaceId = Nothing-  , _fBoundingBox = Nothing-  , _fExternalImageId = Nothing-  , _fConfidence = Nothing-  , _fImageId = Nothing-  }----- | Unique identifier that Amazon Rekognition assigns to the face.-fFaceId :: Lens' Face (Maybe Text)-fFaceId = lens _fFaceId (\ s a -> s{_fFaceId = a});---- | Bounding box of the face.-fBoundingBox :: Lens' Face (Maybe BoundingBox)-fBoundingBox = lens _fBoundingBox (\ s a -> s{_fBoundingBox = a});---- | Identifier that you assign to all the faces in the input image.-fExternalImageId :: Lens' Face (Maybe Text)-fExternalImageId = lens _fExternalImageId (\ s a -> s{_fExternalImageId = a});---- | Confidence level that the bounding box contains a face (and not a different object such as a tree).-fConfidence :: Lens' Face (Maybe Double)-fConfidence = lens _fConfidence (\ s a -> s{_fConfidence = a});---- | Unique identifier that Amazon Rekognition assigns to the input image.-fImageId :: Lens' Face (Maybe Text)-fImageId = lens _fImageId (\ s a -> s{_fImageId = a});--instance FromJSON Face where-        parseJSON-          = withObject "Face"-              (\ x ->-                 Face' <$>-                   (x .:? "FaceId") <*> (x .:? "BoundingBox") <*>-                     (x .:? "ExternalImageId")-                     <*> (x .:? "Confidence")-                     <*> (x .:? "ImageId"))--instance Hashable Face where--instance NFData Face where---- | Structure containing attributes of the face that the algorithm detected.------------ /See:/ 'faceDetail' smart constructor.-data FaceDetail = FaceDetail'-  { _fdAgeRange    :: !(Maybe AgeRange)-  , _fdSunglasses  :: !(Maybe Sunglasses)-  , _fdMouthOpen   :: !(Maybe MouthOpen)-  , _fdBoundingBox :: !(Maybe BoundingBox)-  , _fdEmotions    :: !(Maybe [Emotion])-  , _fdEyesOpen    :: !(Maybe EyeOpen)-  , _fdPose        :: !(Maybe Pose)-  , _fdConfidence  :: !(Maybe Double)-  , _fdGender      :: !(Maybe Gender)-  , _fdQuality     :: !(Maybe ImageQuality)-  , _fdEyeglasses  :: !(Maybe Eyeglasses)-  , _fdBeard       :: !(Maybe Beard)-  , _fdMustache    :: !(Maybe Mustache)-  , _fdSmile       :: !(Maybe Smile)-  , _fdLandmarks   :: !(Maybe [Landmark])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'FaceDetail' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fdAgeRange' - The estimated age range, in years, for the face. Low represents the lowest estimated age and High represents the highest estimated age.------ * 'fdSunglasses' - Indicates whether or not the face is wearing sunglasses, and the confidence level in the determination.------ * 'fdMouthOpen' - Indicates whether or not the mouth on the face is open, and the confidence level in the determination.------ * 'fdBoundingBox' - Bounding box of the face.------ * 'fdEmotions' - The emotions detected on the face, and the confidence level in the determination. For example, HAPPY, SAD, and ANGRY.------ * 'fdEyesOpen' - Indicates whether or not the eyes on the face are open, and the confidence level in the determination.------ * 'fdPose' - Indicates the pose of the face as determined by its pitch, roll, and yaw.------ * 'fdConfidence' - Confidence level that the bounding box contains a face (and not a different object such as a tree).------ * 'fdGender' - Gender of the face and the confidence level in the determination.------ * 'fdQuality' - Identifies image brightness and sharpness.------ * 'fdEyeglasses' - Indicates whether or not the face is wearing eye glasses, and the confidence level in the determination.------ * 'fdBeard' - Indicates whether or not the face has a beard, and the confidence level in the determination.------ * 'fdMustache' - Indicates whether or not the face has a mustache, and the confidence level in the determination.------ * 'fdSmile' - Indicates whether or not the face is smiling, and the confidence level in the determination.------ * 'fdLandmarks' - Indicates the location of landmarks on the face.-faceDetail-    :: FaceDetail-faceDetail =-  FaceDetail'-  { _fdAgeRange = Nothing-  , _fdSunglasses = Nothing-  , _fdMouthOpen = Nothing-  , _fdBoundingBox = Nothing-  , _fdEmotions = Nothing-  , _fdEyesOpen = Nothing-  , _fdPose = Nothing-  , _fdConfidence = Nothing-  , _fdGender = Nothing-  , _fdQuality = Nothing-  , _fdEyeglasses = Nothing-  , _fdBeard = Nothing-  , _fdMustache = Nothing-  , _fdSmile = Nothing-  , _fdLandmarks = Nothing-  }----- | The estimated age range, in years, for the face. Low represents the lowest estimated age and High represents the highest estimated age.-fdAgeRange :: Lens' FaceDetail (Maybe AgeRange)-fdAgeRange = lens _fdAgeRange (\ s a -> s{_fdAgeRange = a});---- | Indicates whether or not the face is wearing sunglasses, and the confidence level in the determination.-fdSunglasses :: Lens' FaceDetail (Maybe Sunglasses)-fdSunglasses = lens _fdSunglasses (\ s a -> s{_fdSunglasses = a});---- | Indicates whether or not the mouth on the face is open, and the confidence level in the determination.-fdMouthOpen :: Lens' FaceDetail (Maybe MouthOpen)-fdMouthOpen = lens _fdMouthOpen (\ s a -> s{_fdMouthOpen = a});---- | Bounding box of the face.-fdBoundingBox :: Lens' FaceDetail (Maybe BoundingBox)-fdBoundingBox = lens _fdBoundingBox (\ s a -> s{_fdBoundingBox = a});---- | The emotions detected on the face, and the confidence level in the determination. For example, HAPPY, SAD, and ANGRY.-fdEmotions :: Lens' FaceDetail [Emotion]-fdEmotions = lens _fdEmotions (\ s a -> s{_fdEmotions = a}) . _Default . _Coerce;---- | Indicates whether or not the eyes on the face are open, and the confidence level in the determination.-fdEyesOpen :: Lens' FaceDetail (Maybe EyeOpen)-fdEyesOpen = lens _fdEyesOpen (\ s a -> s{_fdEyesOpen = a});---- | Indicates the pose of the face as determined by its pitch, roll, and yaw.-fdPose :: Lens' FaceDetail (Maybe Pose)-fdPose = lens _fdPose (\ s a -> s{_fdPose = a});---- | Confidence level that the bounding box contains a face (and not a different object such as a tree).-fdConfidence :: Lens' FaceDetail (Maybe Double)-fdConfidence = lens _fdConfidence (\ s a -> s{_fdConfidence = a});---- | Gender of the face and the confidence level in the determination.-fdGender :: Lens' FaceDetail (Maybe Gender)-fdGender = lens _fdGender (\ s a -> s{_fdGender = a});---- | Identifies image brightness and sharpness.-fdQuality :: Lens' FaceDetail (Maybe ImageQuality)-fdQuality = lens _fdQuality (\ s a -> s{_fdQuality = a});---- | Indicates whether or not the face is wearing eye glasses, and the confidence level in the determination.-fdEyeglasses :: Lens' FaceDetail (Maybe Eyeglasses)-fdEyeglasses = lens _fdEyeglasses (\ s a -> s{_fdEyeglasses = a});---- | Indicates whether or not the face has a beard, and the confidence level in the determination.-fdBeard :: Lens' FaceDetail (Maybe Beard)-fdBeard = lens _fdBeard (\ s a -> s{_fdBeard = a});---- | Indicates whether or not the face has a mustache, and the confidence level in the determination.-fdMustache :: Lens' FaceDetail (Maybe Mustache)-fdMustache = lens _fdMustache (\ s a -> s{_fdMustache = a});---- | Indicates whether or not the face is smiling, and the confidence level in the determination.-fdSmile :: Lens' FaceDetail (Maybe Smile)-fdSmile = lens _fdSmile (\ s a -> s{_fdSmile = a});---- | Indicates the location of landmarks on the face.-fdLandmarks :: Lens' FaceDetail [Landmark]-fdLandmarks = lens _fdLandmarks (\ s a -> s{_fdLandmarks = a}) . _Default . _Coerce;--instance FromJSON FaceDetail where-        parseJSON-          = withObject "FaceDetail"-              (\ x ->-                 FaceDetail' <$>-                   (x .:? "AgeRange") <*> (x .:? "Sunglasses") <*>-                     (x .:? "MouthOpen")-                     <*> (x .:? "BoundingBox")-                     <*> (x .:? "Emotions" .!= mempty)-                     <*> (x .:? "EyesOpen")-                     <*> (x .:? "Pose")-                     <*> (x .:? "Confidence")-                     <*> (x .:? "Gender")-                     <*> (x .:? "Quality")-                     <*> (x .:? "Eyeglasses")-                     <*> (x .:? "Beard")-                     <*> (x .:? "Mustache")-                     <*> (x .:? "Smile")-                     <*> (x .:? "Landmarks" .!= mempty))--instance Hashable FaceDetail where--instance NFData FaceDetail where---- | Provides face metadata. In addition, it also provides the confidence in the match of this face with the input face.------------ /See:/ 'faceMatch' smart constructor.-data FaceMatch = FaceMatch'-  { _fmSimilarity :: !(Maybe Double)-  , _fmFace       :: !(Maybe Face)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'FaceMatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fmSimilarity' - Confidence in the match of this face with the input face.------ * 'fmFace' - Describes the face properties such as the bounding box, face ID, image ID of the source image, and external image ID that you assigned.-faceMatch-    :: FaceMatch-faceMatch = FaceMatch' {_fmSimilarity = Nothing, _fmFace = Nothing}----- | Confidence in the match of this face with the input face.-fmSimilarity :: Lens' FaceMatch (Maybe Double)-fmSimilarity = lens _fmSimilarity (\ s a -> s{_fmSimilarity = a});---- | Describes the face properties such as the bounding box, face ID, image ID of the source image, and external image ID that you assigned.-fmFace :: Lens' FaceMatch (Maybe Face)-fmFace = lens _fmFace (\ s a -> s{_fmFace = a});--instance FromJSON FaceMatch where-        parseJSON-          = withObject "FaceMatch"-              (\ x ->-                 FaceMatch' <$>-                   (x .:? "Similarity") <*> (x .:? "Face"))--instance Hashable FaceMatch where--instance NFData FaceMatch where---- | Object containing both the face metadata (stored in the back-end database) and facial attributes that are detected but aren't stored in the database.------------ /See:/ 'faceRecord' smart constructor.-data FaceRecord = FaceRecord'-  { _frFaceDetail :: !(Maybe FaceDetail)-  , _frFace       :: !(Maybe Face)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'FaceRecord' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'frFaceDetail' - Structure containing attributes of the face that the algorithm detected.------ * 'frFace' - Describes the face properties such as the bounding box, face ID, image ID of the input image, and external image ID that you assigned.-faceRecord-    :: FaceRecord-faceRecord = FaceRecord' {_frFaceDetail = Nothing, _frFace = Nothing}----- | Structure containing attributes of the face that the algorithm detected.-frFaceDetail :: Lens' FaceRecord (Maybe FaceDetail)-frFaceDetail = lens _frFaceDetail (\ s a -> s{_frFaceDetail = a});---- | Describes the face properties such as the bounding box, face ID, image ID of the input image, and external image ID that you assigned.-frFace :: Lens' FaceRecord (Maybe Face)-frFace = lens _frFace (\ s a -> s{_frFace = a});--instance FromJSON FaceRecord where-        parseJSON-          = withObject "FaceRecord"-              (\ x ->-                 FaceRecord' <$>-                   (x .:? "FaceDetail") <*> (x .:? "Face"))--instance Hashable FaceRecord where--instance NFData FaceRecord where---- | Gender of the face and the confidence level in the determination.------------ /See:/ 'gender' smart constructor.-data Gender = Gender'-  { _gValue      :: !(Maybe GenderType)-  , _gConfidence :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Gender' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gValue' - Gender of the face.------ * 'gConfidence' - Level of confidence in the determination.-gender-    :: Gender-gender = Gender' {_gValue = Nothing, _gConfidence = Nothing}----- | Gender of the face.-gValue :: Lens' Gender (Maybe GenderType)-gValue = lens _gValue (\ s a -> s{_gValue = a});---- | Level of confidence in the determination.-gConfidence :: Lens' Gender (Maybe Double)-gConfidence = lens _gConfidence (\ s a -> s{_gConfidence = a});--instance FromJSON Gender where-        parseJSON-          = withObject "Gender"-              (\ x ->-                 Gender' <$> (x .:? "Value") <*> (x .:? "Confidence"))--instance Hashable Gender where--instance NFData Gender where---- | Provides the input image either as bytes or an S3 object.--------- You pass image bytes to a Rekognition API operation by using the @Bytes@ property. For example, you would use the @Bytes@ property to pass an image loaded from a local file system. Image bytes passed by using the @Bytes@ property must be base64-encoded. Your code may not need to encode image bytes if you are using an AWS SDK to call Rekognition API operations. For more information, see 'example4' .------ You pass images stored in an S3 bucket to a Rekognition API operation by using the @S3Object@ property. Images stored in an S3 bucket do not need to be base64-encoded.------ The region for the S3 bucket containing the S3 object must match the region you use for Amazon Rekognition operations.------ If you use the Amazon CLI to call Amazon Rekognition operations, passing image bytes using the Bytes property is not supported. You must first upload the image to an Amazon S3 bucket and then call the operation using the S3Object property.------ For Amazon Rekognition to process an S3 object, the user must have permission to access the S3 object. For more information, see 'manage-access-resource-policies' .--------- /See:/ 'image' smart constructor.-data Image = Image'-  { _iS3Object :: !(Maybe S3Object)-  , _iBytes    :: !(Maybe Base64)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Image' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iS3Object' - Identifies an S3 object as the image source.------ * 'iBytes' - Blob of image bytes up to 5 MBs.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.-image-    :: Image-image = Image' {_iS3Object = Nothing, _iBytes = Nothing}----- | Identifies an S3 object as the image source.-iS3Object :: Lens' Image (Maybe S3Object)-iS3Object = lens _iS3Object (\ s a -> s{_iS3Object = a});---- | Blob of image bytes up to 5 MBs.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.-iBytes :: Lens' Image (Maybe ByteString)-iBytes = lens _iBytes (\ s a -> s{_iBytes = a}) . mapping _Base64;--instance Hashable Image where--instance NFData Image where--instance ToJSON Image where-        toJSON Image'{..}-          = object-              (catMaybes-                 [("S3Object" .=) <$> _iS3Object,-                  ("Bytes" .=) <$> _iBytes])---- | Identifies face image brightness and sharpness.------------ /See:/ 'imageQuality' smart constructor.-data ImageQuality = ImageQuality'-  { _iqSharpness  :: !(Maybe Double)-  , _iqBrightness :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ImageQuality' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iqSharpness' - Value representing sharpness of the face. The service returns a value between 0 and 100 (inclusive). A higher value indicates a sharper face image.------ * 'iqBrightness' - Value representing brightness of the face. The service returns a value between 0 and 100 (inclusive). A higher value indicates a brighter face image.-imageQuality-    :: ImageQuality-imageQuality = ImageQuality' {_iqSharpness = Nothing, _iqBrightness = Nothing}----- | Value representing sharpness of the face. The service returns a value between 0 and 100 (inclusive). A higher value indicates a sharper face image.-iqSharpness :: Lens' ImageQuality (Maybe Double)-iqSharpness = lens _iqSharpness (\ s a -> s{_iqSharpness = a});---- | Value representing brightness of the face. The service returns a value between 0 and 100 (inclusive). A higher value indicates a brighter face image.-iqBrightness :: Lens' ImageQuality (Maybe Double)-iqBrightness = lens _iqBrightness (\ s a -> s{_iqBrightness = a});--instance FromJSON ImageQuality where-        parseJSON-          = withObject "ImageQuality"-              (\ x ->-                 ImageQuality' <$>-                   (x .:? "Sharpness") <*> (x .:? "Brightness"))--instance Hashable ImageQuality where--instance NFData ImageQuality where---- | Structure containing details about the detected label, including name, and level of confidence.------------ /See:/ 'label' smart constructor.-data Label = Label'-  { _lConfidence :: !(Maybe Double)-  , _lName       :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Label' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lConfidence' - Level of confidence.------ * 'lName' - The name (label) of the object.-label-    :: Label-label = Label' {_lConfidence = Nothing, _lName = Nothing}----- | Level of confidence.-lConfidence :: Lens' Label (Maybe Double)-lConfidence = lens _lConfidence (\ s a -> s{_lConfidence = a});---- | The name (label) of the object.-lName :: Lens' Label (Maybe Text)-lName = lens _lName (\ s a -> s{_lName = a});--instance FromJSON Label where-        parseJSON-          = withObject "Label"-              (\ x ->-                 Label' <$> (x .:? "Confidence") <*> (x .:? "Name"))--instance Hashable Label where--instance NFData Label where---- | Indicates the location of the landmark on the face.------------ /See:/ 'landmark' smart constructor.-data Landmark = Landmark'-  { _lType :: !(Maybe LandmarkType)-  , _lX    :: !(Maybe Double)-  , _lY    :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Landmark' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lType' - Type of the landmark.------ * 'lX' - x-coordinate from the top left of the landmark expressed as the ratio of the width of the image. For example, if the images is 700x200 and the x-coordinate of the landmark is at 350 pixels, this value is 0.5.------ * 'lY' - y-coordinate from the top left of the landmark expressed as the ratio of the height of the image. For example, if the images is 700x200 and the y-coordinate of the landmark is at 100 pixels, this value is 0.5.-landmark-    :: Landmark-landmark = Landmark' {_lType = Nothing, _lX = Nothing, _lY = Nothing}----- | Type of the landmark.-lType :: Lens' Landmark (Maybe LandmarkType)-lType = lens _lType (\ s a -> s{_lType = a});---- | x-coordinate from the top left of the landmark expressed as the ratio of the width of the image. For example, if the images is 700x200 and the x-coordinate of the landmark is at 350 pixels, this value is 0.5.-lX :: Lens' Landmark (Maybe Double)-lX = lens _lX (\ s a -> s{_lX = a});---- | y-coordinate from the top left of the landmark expressed as the ratio of the height of the image. For example, if the images is 700x200 and the y-coordinate of the landmark is at 100 pixels, this value is 0.5.-lY :: Lens' Landmark (Maybe Double)-lY = lens _lY (\ s a -> s{_lY = a});--instance FromJSON Landmark where-        parseJSON-          = withObject "Landmark"-              (\ x ->-                 Landmark' <$>-                   (x .:? "Type") <*> (x .:? "X") <*> (x .:? "Y"))--instance Hashable Landmark where--instance NFData Landmark where---- | Provides information about a single type of moderated content found in an image. Each type of moderated content has a label within a hierarchical taxonomy. For more information, see 'image-moderation' .------------ /See:/ 'moderationLabel' smart constructor.-data ModerationLabel = ModerationLabel'-  { _mlConfidence :: !(Maybe Double)-  , _mlName       :: !(Maybe Text)-  , _mlParentName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ModerationLabel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mlConfidence' - Specifies the confidence that Amazon Rekognition has that the label has been correctly identified. If you don't specify the @MinConfidence@ parameter in the call to @DetectModerationLabels@ , the operation returns labels with a confidence value greater than or equal to 50 percent.------ * 'mlName' - The label name for the type of content detected in the image.------ * 'mlParentName' - The name for the parent label. Labels at the top-level of the hierarchy have the parent label @""@ .-moderationLabel-    :: ModerationLabel-moderationLabel =-  ModerationLabel'-  {_mlConfidence = Nothing, _mlName = Nothing, _mlParentName = Nothing}----- | Specifies the confidence that Amazon Rekognition has that the label has been correctly identified. If you don't specify the @MinConfidence@ parameter in the call to @DetectModerationLabels@ , the operation returns labels with a confidence value greater than or equal to 50 percent.-mlConfidence :: Lens' ModerationLabel (Maybe Double)-mlConfidence = lens _mlConfidence (\ s a -> s{_mlConfidence = a});---- | The label name for the type of content detected in the image.-mlName :: Lens' ModerationLabel (Maybe Text)-mlName = lens _mlName (\ s a -> s{_mlName = a});---- | The name for the parent label. Labels at the top-level of the hierarchy have the parent label @""@ .-mlParentName :: Lens' ModerationLabel (Maybe Text)-mlParentName = lens _mlParentName (\ s a -> s{_mlParentName = a});--instance FromJSON ModerationLabel where-        parseJSON-          = withObject "ModerationLabel"-              (\ x ->-                 ModerationLabel' <$>-                   (x .:? "Confidence") <*> (x .:? "Name") <*>-                     (x .:? "ParentName"))--instance Hashable ModerationLabel where--instance NFData ModerationLabel where---- | Indicates whether or not the mouth on the face is open, and the confidence level in the determination.------------ /See:/ 'mouthOpen' smart constructor.-data MouthOpen = MouthOpen'-  { _moValue      :: !(Maybe Bool)-  , _moConfidence :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'MouthOpen' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'moValue' - Boolean value that indicates whether the mouth on the face is open or not.------ * 'moConfidence' - Level of confidence in the determination.-mouthOpen-    :: MouthOpen-mouthOpen = MouthOpen' {_moValue = Nothing, _moConfidence = Nothing}----- | Boolean value that indicates whether the mouth on the face is open or not.-moValue :: Lens' MouthOpen (Maybe Bool)-moValue = lens _moValue (\ s a -> s{_moValue = a});---- | Level of confidence in the determination.-moConfidence :: Lens' MouthOpen (Maybe Double)-moConfidence = lens _moConfidence (\ s a -> s{_moConfidence = a});--instance FromJSON MouthOpen where-        parseJSON-          = withObject "MouthOpen"-              (\ x ->-                 MouthOpen' <$>-                   (x .:? "Value") <*> (x .:? "Confidence"))--instance Hashable MouthOpen where--instance NFData MouthOpen where---- | Indicates whether or not the face has a mustache, and the confidence level in the determination.------------ /See:/ 'mustache' smart constructor.-data Mustache = Mustache'-  { _mValue      :: !(Maybe Bool)-  , _mConfidence :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Mustache' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mValue' - Boolean value that indicates whether the face has mustache or not.------ * 'mConfidence' - Level of confidence in the determination.-mustache-    :: Mustache-mustache = Mustache' {_mValue = Nothing, _mConfidence = Nothing}----- | Boolean value that indicates whether the face has mustache or not.-mValue :: Lens' Mustache (Maybe Bool)-mValue = lens _mValue (\ s a -> s{_mValue = a});---- | Level of confidence in the determination.-mConfidence :: Lens' Mustache (Maybe Double)-mConfidence = lens _mConfidence (\ s a -> s{_mConfidence = a});--instance FromJSON Mustache where-        parseJSON-          = withObject "Mustache"-              (\ x ->-                 Mustache' <$>-                   (x .:? "Value") <*> (x .:? "Confidence"))--instance Hashable Mustache where--instance NFData Mustache where---- | Indicates the pose of the face as determined by its pitch, roll, and yaw.------------ /See:/ 'pose' smart constructor.-data Pose = Pose'-  { _pYaw   :: !(Maybe Double)-  , _pRoll  :: !(Maybe Double)-  , _pPitch :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Pose' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pYaw' - Value representing the face rotation on the yaw axis.------ * 'pRoll' - Value representing the face rotation on the roll axis.------ * 'pPitch' - Value representing the face rotation on the pitch axis.-pose-    :: Pose-pose = Pose' {_pYaw = Nothing, _pRoll = Nothing, _pPitch = Nothing}----- | Value representing the face rotation on the yaw axis.-pYaw :: Lens' Pose (Maybe Double)-pYaw = lens _pYaw (\ s a -> s{_pYaw = a});---- | Value representing the face rotation on the roll axis.-pRoll :: Lens' Pose (Maybe Double)-pRoll = lens _pRoll (\ s a -> s{_pRoll = a});---- | Value representing the face rotation on the pitch axis.-pPitch :: Lens' Pose (Maybe Double)-pPitch = lens _pPitch (\ s a -> s{_pPitch = a});--instance FromJSON Pose where-        parseJSON-          = withObject "Pose"-              (\ x ->-                 Pose' <$>-                   (x .:? "Yaw") <*> (x .:? "Roll") <*> (x .:? "Pitch"))--instance Hashable Pose where--instance NFData Pose where---- | Provides the S3 bucket name and object name.--------- The region for the S3 bucket containing the S3 object must match the region you use for Amazon Rekognition operations.------ For Amazon Rekognition to process an S3 object, the user must have permission to access the S3 object. For more information, see 'manage-access-resource-policies' .--------- /See:/ 's3Object' smart constructor.-data S3Object = S3Object'-  { _soBucket  :: !(Maybe Text)-  , _soName    :: !(Maybe Text)-  , _soVersion :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'S3Object' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'soBucket' - Name of the S3 bucket.------ * 'soName' - S3 object key name.------ * 'soVersion' - If the bucket is versioning enabled, you can specify the object version.-s3Object-    :: S3Object-s3Object =-  S3Object' {_soBucket = Nothing, _soName = Nothing, _soVersion = Nothing}----- | Name of the S3 bucket.-soBucket :: Lens' S3Object (Maybe Text)-soBucket = lens _soBucket (\ s a -> s{_soBucket = a});---- | S3 object key name.-soName :: Lens' S3Object (Maybe Text)-soName = lens _soName (\ s a -> s{_soName = a});---- | If the bucket is versioning enabled, you can specify the object version.-soVersion :: Lens' S3Object (Maybe Text)-soVersion = lens _soVersion (\ s a -> s{_soVersion = a});--instance Hashable S3Object where--instance NFData S3Object where--instance ToJSON S3Object where-        toJSON S3Object'{..}-          = object-              (catMaybes-                 [("Bucket" .=) <$> _soBucket,-                  ("Name" .=) <$> _soName,-                  ("Version" .=) <$> _soVersion])---- | Indicates whether or not the face is smiling, and the confidence level in the determination.------------ /See:/ 'smile' smart constructor.-data Smile = Smile'-  { _smiValue      :: !(Maybe Bool)-  , _smiConfidence :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Smile' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smiValue' - Boolean value that indicates whether the face is smiling or not.------ * 'smiConfidence' - Level of confidence in the determination.-smile-    :: Smile-smile = Smile' {_smiValue = Nothing, _smiConfidence = Nothing}----- | Boolean value that indicates whether the face is smiling or not.-smiValue :: Lens' Smile (Maybe Bool)-smiValue = lens _smiValue (\ s a -> s{_smiValue = a});---- | Level of confidence in the determination.-smiConfidence :: Lens' Smile (Maybe Double)-smiConfidence = lens _smiConfidence (\ s a -> s{_smiConfidence = a});--instance FromJSON Smile where-        parseJSON-          = withObject "Smile"-              (\ x ->-                 Smile' <$> (x .:? "Value") <*> (x .:? "Confidence"))--instance Hashable Smile where--instance NFData Smile where---- | Indicates whether or not the face is wearing sunglasses, and the confidence level in the determination.------------ /See:/ 'sunglasses' smart constructor.-data Sunglasses = Sunglasses'-  { _sValue      :: !(Maybe Bool)-  , _sConfidence :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Sunglasses' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sValue' - Boolean value that indicates whether the face is wearing sunglasses or not.------ * 'sConfidence' - Level of confidence in the determination.-sunglasses-    :: Sunglasses-sunglasses = Sunglasses' {_sValue = Nothing, _sConfidence = Nothing}----- | Boolean value that indicates whether the face is wearing sunglasses or not.-sValue :: Lens' Sunglasses (Maybe Bool)-sValue = lens _sValue (\ s a -> s{_sValue = a});---- | Level of confidence in the determination.-sConfidence :: Lens' Sunglasses (Maybe Double)-sConfidence = lens _sConfidence (\ s a -> s{_sConfidence = a});--instance FromJSON Sunglasses where-        parseJSON-          = withObject "Sunglasses"-              (\ x ->-                 Sunglasses' <$>-                   (x .:? "Value") <*> (x .:? "Confidence"))--instance Hashable Sunglasses where--instance NFData Sunglasses where+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.Rekognition.Types.Product where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Rekognition.Types.Sum++-- | Structure containing the estimated age range, in years, for a face.+--+--+-- Rekognition estimates an age-range for faces detected in the input image. Estimated age ranges can overlap; a face of a 5 year old may have an estimated range of 4-6 whilst the face of a 6 year old may have an estimated range of 4-8.+--+--+-- /See:/ 'ageRange' smart constructor.+data AgeRange = AgeRange'+  { _arLow  :: !(Maybe Nat)+  , _arHigh :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AgeRange' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'arLow' - The lowest estimated age.+--+-- * 'arHigh' - The highest estimated age.+ageRange+    :: AgeRange+ageRange = AgeRange' {_arLow = Nothing, _arHigh = Nothing}+++-- | The lowest estimated age.+arLow :: Lens' AgeRange (Maybe Natural)+arLow = lens _arLow (\ s a -> s{_arLow = a}) . mapping _Nat++-- | The highest estimated age.+arHigh :: Lens' AgeRange (Maybe Natural)+arHigh = lens _arHigh (\ s a -> s{_arHigh = a}) . mapping _Nat++instance FromJSON AgeRange where+        parseJSON+          = withObject "AgeRange"+              (\ x ->+                 AgeRange' <$> (x .:? "Low") <*> (x .:? "High"))++instance Hashable AgeRange where++instance NFData AgeRange where++-- | Indicates whether or not the face has a beard, and the confidence level in the determination.+--+--+--+-- /See:/ 'beard' smart constructor.+data Beard = Beard'+  { _bValue      :: !(Maybe Bool)+  , _bConfidence :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Beard' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bValue' - Boolean value that indicates whether the face has beard or not.+--+-- * 'bConfidence' - Level of confidence in the determination.+beard+    :: Beard+beard = Beard' {_bValue = Nothing, _bConfidence = Nothing}+++-- | Boolean value that indicates whether the face has beard or not.+bValue :: Lens' Beard (Maybe Bool)+bValue = lens _bValue (\ s a -> s{_bValue = a})++-- | Level of confidence in the determination.+bConfidence :: Lens' Beard (Maybe Double)+bConfidence = lens _bConfidence (\ s a -> s{_bConfidence = a})++instance FromJSON Beard where+        parseJSON+          = withObject "Beard"+              (\ x ->+                 Beard' <$> (x .:? "Value") <*> (x .:? "Confidence"))++instance Hashable Beard where++instance NFData Beard where++-- | Identifies the bounding box around the object, face or text. The @left@ (x-coordinate) and @top@ (y-coordinate) are coordinates representing the top and left sides of the bounding box. Note that the upper-left corner of the image is the origin (0,0).+--+--+-- The @top@ and @left@ values returned are ratios of the overall image size. For example, if the input image is 700x200 pixels, and the top-left coordinate of the bounding box is 350x50 pixels, the API returns a @left@ value of 0.5 (350/700) and a @top@ value of 0.25 (50/200).+--+-- The @width@ and @height@ values represent the dimensions of the bounding box as a ratio of the overall image dimension. For example, if the input image is 700x200 pixels, and the bounding box width is 70 pixels, the width returned is 0.1.+--+--+-- /See:/ 'boundingBox' smart constructor.+data BoundingBox = BoundingBox'+  { _bbHeight :: !(Maybe Double)+  , _bbLeft   :: !(Maybe Double)+  , _bbWidth  :: !(Maybe Double)+  , _bbTop    :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BoundingBox' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bbHeight' - Height of the bounding box as a ratio of the overall image height.+--+-- * 'bbLeft' - Left coordinate of the bounding box as a ratio of overall image width.+--+-- * 'bbWidth' - Width of the bounding box as a ratio of the overall image width.+--+-- * 'bbTop' - Top coordinate of the bounding box as a ratio of overall image height.+boundingBox+    :: BoundingBox+boundingBox =+  BoundingBox'+    { _bbHeight = Nothing+    , _bbLeft = Nothing+    , _bbWidth = Nothing+    , _bbTop = Nothing+    }+++-- | Height of the bounding box as a ratio of the overall image height.+bbHeight :: Lens' BoundingBox (Maybe Double)+bbHeight = lens _bbHeight (\ s a -> s{_bbHeight = a})++-- | Left coordinate of the bounding box as a ratio of overall image width.+bbLeft :: Lens' BoundingBox (Maybe Double)+bbLeft = lens _bbLeft (\ s a -> s{_bbLeft = a})++-- | Width of the bounding box as a ratio of the overall image width.+bbWidth :: Lens' BoundingBox (Maybe Double)+bbWidth = lens _bbWidth (\ s a -> s{_bbWidth = a})++-- | Top coordinate of the bounding box as a ratio of overall image height.+bbTop :: Lens' BoundingBox (Maybe Double)+bbTop = lens _bbTop (\ s a -> s{_bbTop = a})++instance FromJSON BoundingBox where+        parseJSON+          = withObject "BoundingBox"+              (\ x ->+                 BoundingBox' <$>+                   (x .:? "Height") <*> (x .:? "Left") <*>+                     (x .:? "Width")+                     <*> (x .:? "Top"))++instance Hashable BoundingBox where++instance NFData BoundingBox where++-- | Provides information about a celebrity recognized by the operation.+--+--+--+-- /See:/ 'celebrity' smart constructor.+data Celebrity = Celebrity'+  { _cMatchConfidence :: !(Maybe Double)+  , _cURLs            :: !(Maybe [Text])+  , _cName            :: !(Maybe Text)+  , _cId              :: !(Maybe Text)+  , _cFace            :: !(Maybe ComparedFace)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Celebrity' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cMatchConfidence' - The confidence, in percentage, that Rekognition has that the recognized face is the celebrity.+--+-- * 'cURLs' - An array of URLs pointing to additional information about the celebrity. If there is no additional information about the celebrity, this list is empty.+--+-- * 'cName' - The name of the celebrity.+--+-- * 'cId' - A unique identifier for the celebrity.+--+-- * 'cFace' - Provides information about the celebrity's face, such as its location on the image.+celebrity+    :: Celebrity+celebrity =+  Celebrity'+    { _cMatchConfidence = Nothing+    , _cURLs = Nothing+    , _cName = Nothing+    , _cId = Nothing+    , _cFace = Nothing+    }+++-- | The confidence, in percentage, that Rekognition has that the recognized face is the celebrity.+cMatchConfidence :: Lens' Celebrity (Maybe Double)+cMatchConfidence = lens _cMatchConfidence (\ s a -> s{_cMatchConfidence = a})++-- | An array of URLs pointing to additional information about the celebrity. If there is no additional information about the celebrity, this list is empty.+cURLs :: Lens' Celebrity [Text]+cURLs = lens _cURLs (\ s a -> s{_cURLs = a}) . _Default . _Coerce++-- | The name of the celebrity.+cName :: Lens' Celebrity (Maybe Text)+cName = lens _cName (\ s a -> s{_cName = a})++-- | A unique identifier for the celebrity.+cId :: Lens' Celebrity (Maybe Text)+cId = lens _cId (\ s a -> s{_cId = a})++-- | Provides information about the celebrity's face, such as its location on the image.+cFace :: Lens' Celebrity (Maybe ComparedFace)+cFace = lens _cFace (\ s a -> s{_cFace = a})++instance FromJSON Celebrity where+        parseJSON+          = withObject "Celebrity"+              (\ x ->+                 Celebrity' <$>+                   (x .:? "MatchConfidence") <*>+                     (x .:? "Urls" .!= mempty)+                     <*> (x .:? "Name")+                     <*> (x .:? "Id")+                     <*> (x .:? "Face"))++instance Hashable Celebrity where++instance NFData Celebrity where++-- | Information about a recognized celebrity.+--+--+--+-- /See:/ 'celebrityDetail' smart constructor.+data CelebrityDetail = CelebrityDetail'+  { _cdBoundingBox :: !(Maybe BoundingBox)+  , _cdURLs        :: !(Maybe [Text])+  , _cdConfidence  :: !(Maybe Double)+  , _cdName        :: !(Maybe Text)+  , _cdId          :: !(Maybe Text)+  , _cdFace        :: !(Maybe FaceDetail)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CelebrityDetail' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdBoundingBox' - Bounding box around the body of a celebrity.+--+-- * 'cdURLs' - An array of URLs pointing to additional celebrity information.+--+-- * 'cdConfidence' - The confidence, in percentage, that Amazon Rekognition has that the recognized face is the celebrity.+--+-- * 'cdName' - The name of the celebrity.+--+-- * 'cdId' - The unique identifier for the celebrity.+--+-- * 'cdFace' - Face details for the recognized celebrity.+celebrityDetail+    :: CelebrityDetail+celebrityDetail =+  CelebrityDetail'+    { _cdBoundingBox = Nothing+    , _cdURLs = Nothing+    , _cdConfidence = Nothing+    , _cdName = Nothing+    , _cdId = Nothing+    , _cdFace = Nothing+    }+++-- | Bounding box around the body of a celebrity.+cdBoundingBox :: Lens' CelebrityDetail (Maybe BoundingBox)+cdBoundingBox = lens _cdBoundingBox (\ s a -> s{_cdBoundingBox = a})++-- | An array of URLs pointing to additional celebrity information.+cdURLs :: Lens' CelebrityDetail [Text]+cdURLs = lens _cdURLs (\ s a -> s{_cdURLs = a}) . _Default . _Coerce++-- | The confidence, in percentage, that Amazon Rekognition has that the recognized face is the celebrity.+cdConfidence :: Lens' CelebrityDetail (Maybe Double)+cdConfidence = lens _cdConfidence (\ s a -> s{_cdConfidence = a})++-- | The name of the celebrity.+cdName :: Lens' CelebrityDetail (Maybe Text)+cdName = lens _cdName (\ s a -> s{_cdName = a})++-- | The unique identifier for the celebrity.+cdId :: Lens' CelebrityDetail (Maybe Text)+cdId = lens _cdId (\ s a -> s{_cdId = a})++-- | Face details for the recognized celebrity.+cdFace :: Lens' CelebrityDetail (Maybe FaceDetail)+cdFace = lens _cdFace (\ s a -> s{_cdFace = a})++instance FromJSON CelebrityDetail where+        parseJSON+          = withObject "CelebrityDetail"+              (\ x ->+                 CelebrityDetail' <$>+                   (x .:? "BoundingBox") <*> (x .:? "Urls" .!= mempty)+                     <*> (x .:? "Confidence")+                     <*> (x .:? "Name")+                     <*> (x .:? "Id")+                     <*> (x .:? "Face"))++instance Hashable CelebrityDetail where++instance NFData CelebrityDetail where++-- | Information about a detected celebrity and the time the celebrity was detected in a stored video. For more information, see .+--+--+--+-- /See:/ 'celebrityRecognition' smart constructor.+data CelebrityRecognition = CelebrityRecognition'+  { _crCelebrity :: !(Maybe CelebrityDetail)+  , _crTimestamp :: !(Maybe Integer)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CelebrityRecognition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crCelebrity' - Information about a recognized celebrity.+--+-- * 'crTimestamp' - The time, in milliseconds from the start of the video, that the celebrity was recognized.+celebrityRecognition+    :: CelebrityRecognition+celebrityRecognition =+  CelebrityRecognition' {_crCelebrity = Nothing, _crTimestamp = Nothing}+++-- | Information about a recognized celebrity.+crCelebrity :: Lens' CelebrityRecognition (Maybe CelebrityDetail)+crCelebrity = lens _crCelebrity (\ s a -> s{_crCelebrity = a})++-- | The time, in milliseconds from the start of the video, that the celebrity was recognized.+crTimestamp :: Lens' CelebrityRecognition (Maybe Integer)+crTimestamp = lens _crTimestamp (\ s a -> s{_crTimestamp = a})++instance FromJSON CelebrityRecognition where+        parseJSON+          = withObject "CelebrityRecognition"+              (\ x ->+                 CelebrityRecognition' <$>+                   (x .:? "Celebrity") <*> (x .:? "Timestamp"))++instance Hashable CelebrityRecognition where++instance NFData CelebrityRecognition where++-- | Provides information about a face in a target image that matches the source image face analysed by @CompareFaces@ . The @Face@ property contains the bounding box of the face in the target image. The @Similarity@ property is the confidence that the source image face matches the face in the bounding box.+--+--+--+-- /See:/ 'compareFacesMatch' smart constructor.+data CompareFacesMatch = CompareFacesMatch'+  { _cfmSimilarity :: !(Maybe Double)+  , _cfmFace       :: !(Maybe ComparedFace)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CompareFacesMatch' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cfmSimilarity' - Level of confidence that the faces match.+--+-- * 'cfmFace' - Provides face metadata (bounding box and confidence that the bounding box actually contains a face).+compareFacesMatch+    :: CompareFacesMatch+compareFacesMatch =+  CompareFacesMatch' {_cfmSimilarity = Nothing, _cfmFace = Nothing}+++-- | Level of confidence that the faces match.+cfmSimilarity :: Lens' CompareFacesMatch (Maybe Double)+cfmSimilarity = lens _cfmSimilarity (\ s a -> s{_cfmSimilarity = a})++-- | Provides face metadata (bounding box and confidence that the bounding box actually contains a face).+cfmFace :: Lens' CompareFacesMatch (Maybe ComparedFace)+cfmFace = lens _cfmFace (\ s a -> s{_cfmFace = a})++instance FromJSON CompareFacesMatch where+        parseJSON+          = withObject "CompareFacesMatch"+              (\ x ->+                 CompareFacesMatch' <$>+                   (x .:? "Similarity") <*> (x .:? "Face"))++instance Hashable CompareFacesMatch where++instance NFData CompareFacesMatch where++-- | Provides face metadata for target image faces that are analysed by @CompareFaces@ and @RecognizeCelebrities@ .+--+--+--+-- /See:/ 'comparedFace' smart constructor.+data ComparedFace = ComparedFace'+  { _cfBoundingBox :: !(Maybe BoundingBox)+  , _cfPose        :: !(Maybe Pose)+  , _cfConfidence  :: !(Maybe Double)+  , _cfQuality     :: !(Maybe ImageQuality)+  , _cfLandmarks   :: !(Maybe [Landmark])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ComparedFace' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cfBoundingBox' - Bounding box of the face.+--+-- * 'cfPose' - Indicates the pose of the face as determined by its pitch, roll, and yaw.+--+-- * 'cfConfidence' - Level of confidence that what the bounding box contains is a face.+--+-- * 'cfQuality' - Identifies face image brightness and sharpness.+--+-- * 'cfLandmarks' - An array of facial landmarks.+comparedFace+    :: ComparedFace+comparedFace =+  ComparedFace'+    { _cfBoundingBox = Nothing+    , _cfPose = Nothing+    , _cfConfidence = Nothing+    , _cfQuality = Nothing+    , _cfLandmarks = Nothing+    }+++-- | Bounding box of the face.+cfBoundingBox :: Lens' ComparedFace (Maybe BoundingBox)+cfBoundingBox = lens _cfBoundingBox (\ s a -> s{_cfBoundingBox = a})++-- | Indicates the pose of the face as determined by its pitch, roll, and yaw.+cfPose :: Lens' ComparedFace (Maybe Pose)+cfPose = lens _cfPose (\ s a -> s{_cfPose = a})++-- | Level of confidence that what the bounding box contains is a face.+cfConfidence :: Lens' ComparedFace (Maybe Double)+cfConfidence = lens _cfConfidence (\ s a -> s{_cfConfidence = a})++-- | Identifies face image brightness and sharpness.+cfQuality :: Lens' ComparedFace (Maybe ImageQuality)+cfQuality = lens _cfQuality (\ s a -> s{_cfQuality = a})++-- | An array of facial landmarks.+cfLandmarks :: Lens' ComparedFace [Landmark]+cfLandmarks = lens _cfLandmarks (\ s a -> s{_cfLandmarks = a}) . _Default . _Coerce++instance FromJSON ComparedFace where+        parseJSON+          = withObject "ComparedFace"+              (\ x ->+                 ComparedFace' <$>+                   (x .:? "BoundingBox") <*> (x .:? "Pose") <*>+                     (x .:? "Confidence")+                     <*> (x .:? "Quality")+                     <*> (x .:? "Landmarks" .!= mempty))++instance Hashable ComparedFace where++instance NFData ComparedFace where++-- | Type that describes the face Amazon Rekognition chose to compare with the faces in the target. This contains a bounding box for the selected face and confidence level that the bounding box contains a face. Note that Amazon Rekognition selects the largest face in the source image for this comparison.+--+--+--+-- /See:/ 'comparedSourceImageFace' smart constructor.+data ComparedSourceImageFace = ComparedSourceImageFace'+  { _csifBoundingBox :: !(Maybe BoundingBox)+  , _csifConfidence  :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ComparedSourceImageFace' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csifBoundingBox' - Bounding box of the face.+--+-- * 'csifConfidence' - Confidence level that the selected bounding box contains a face.+comparedSourceImageFace+    :: ComparedSourceImageFace+comparedSourceImageFace =+  ComparedSourceImageFace'+    {_csifBoundingBox = Nothing, _csifConfidence = Nothing}+++-- | Bounding box of the face.+csifBoundingBox :: Lens' ComparedSourceImageFace (Maybe BoundingBox)+csifBoundingBox = lens _csifBoundingBox (\ s a -> s{_csifBoundingBox = a})++-- | Confidence level that the selected bounding box contains a face.+csifConfidence :: Lens' ComparedSourceImageFace (Maybe Double)+csifConfidence = lens _csifConfidence (\ s a -> s{_csifConfidence = a})++instance FromJSON ComparedSourceImageFace where+        parseJSON+          = withObject "ComparedSourceImageFace"+              (\ x ->+                 ComparedSourceImageFace' <$>+                   (x .:? "BoundingBox") <*> (x .:? "Confidence"))++instance Hashable ComparedSourceImageFace where++instance NFData ComparedSourceImageFace where++-- | Information about a moderation label detection in a stored video.+--+--+--+-- /See:/ 'contentModerationDetection' smart constructor.+data ContentModerationDetection = ContentModerationDetection'+  { _cmdModerationLabel :: !(Maybe ModerationLabel)+  , _cmdTimestamp       :: !(Maybe Integer)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ContentModerationDetection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cmdModerationLabel' - The moderation label detected by in the stored video.+--+-- * 'cmdTimestamp' - Time, in milliseconds from the beginning of the video, that the moderation label was detected.+contentModerationDetection+    :: ContentModerationDetection+contentModerationDetection =+  ContentModerationDetection'+    {_cmdModerationLabel = Nothing, _cmdTimestamp = Nothing}+++-- | The moderation label detected by in the stored video.+cmdModerationLabel :: Lens' ContentModerationDetection (Maybe ModerationLabel)+cmdModerationLabel = lens _cmdModerationLabel (\ s a -> s{_cmdModerationLabel = a})++-- | Time, in milliseconds from the beginning of the video, that the moderation label was detected.+cmdTimestamp :: Lens' ContentModerationDetection (Maybe Integer)+cmdTimestamp = lens _cmdTimestamp (\ s a -> s{_cmdTimestamp = a})++instance FromJSON ContentModerationDetection where+        parseJSON+          = withObject "ContentModerationDetection"+              (\ x ->+                 ContentModerationDetection' <$>+                   (x .:? "ModerationLabel") <*> (x .:? "Timestamp"))++instance Hashable ContentModerationDetection where++instance NFData ContentModerationDetection where++-- | The emotions detected on the face, and the confidence level in the determination. For example, HAPPY, SAD, and ANGRY.+--+--+--+-- /See:/ 'emotion' smart constructor.+data Emotion = Emotion'+  { _eConfidence :: !(Maybe Double)+  , _eType       :: !(Maybe EmotionName)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Emotion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eConfidence' - Level of confidence in the determination.+--+-- * 'eType' - Type of emotion detected.+emotion+    :: Emotion+emotion = Emotion' {_eConfidence = Nothing, _eType = Nothing}+++-- | Level of confidence in the determination.+eConfidence :: Lens' Emotion (Maybe Double)+eConfidence = lens _eConfidence (\ s a -> s{_eConfidence = a})++-- | Type of emotion detected.+eType :: Lens' Emotion (Maybe EmotionName)+eType = lens _eType (\ s a -> s{_eType = a})++instance FromJSON Emotion where+        parseJSON+          = withObject "Emotion"+              (\ x ->+                 Emotion' <$> (x .:? "Confidence") <*> (x .:? "Type"))++instance Hashable Emotion where++instance NFData Emotion where++-- | Indicates whether or not the eyes on the face are open, and the confidence level in the determination.+--+--+--+-- /See:/ 'eyeOpen' smart constructor.+data EyeOpen = EyeOpen'+  { _eoValue      :: !(Maybe Bool)+  , _eoConfidence :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EyeOpen' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eoValue' - Boolean value that indicates whether the eyes on the face are open.+--+-- * 'eoConfidence' - Level of confidence in the determination.+eyeOpen+    :: EyeOpen+eyeOpen = EyeOpen' {_eoValue = Nothing, _eoConfidence = Nothing}+++-- | Boolean value that indicates whether the eyes on the face are open.+eoValue :: Lens' EyeOpen (Maybe Bool)+eoValue = lens _eoValue (\ s a -> s{_eoValue = a})++-- | Level of confidence in the determination.+eoConfidence :: Lens' EyeOpen (Maybe Double)+eoConfidence = lens _eoConfidence (\ s a -> s{_eoConfidence = a})++instance FromJSON EyeOpen where+        parseJSON+          = withObject "EyeOpen"+              (\ x ->+                 EyeOpen' <$>+                   (x .:? "Value") <*> (x .:? "Confidence"))++instance Hashable EyeOpen where++instance NFData EyeOpen where++-- | Indicates whether or not the face is wearing eye glasses, and the confidence level in the determination.+--+--+--+-- /See:/ 'eyeglasses' smart constructor.+data Eyeglasses = Eyeglasses'+  { _eyeValue      :: !(Maybe Bool)+  , _eyeConfidence :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Eyeglasses' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eyeValue' - Boolean value that indicates whether the face is wearing eye glasses or not.+--+-- * 'eyeConfidence' - Level of confidence in the determination.+eyeglasses+    :: Eyeglasses+eyeglasses = Eyeglasses' {_eyeValue = Nothing, _eyeConfidence = Nothing}+++-- | Boolean value that indicates whether the face is wearing eye glasses or not.+eyeValue :: Lens' Eyeglasses (Maybe Bool)+eyeValue = lens _eyeValue (\ s a -> s{_eyeValue = a})++-- | Level of confidence in the determination.+eyeConfidence :: Lens' Eyeglasses (Maybe Double)+eyeConfidence = lens _eyeConfidence (\ s a -> s{_eyeConfidence = a})++instance FromJSON Eyeglasses where+        parseJSON+          = withObject "Eyeglasses"+              (\ x ->+                 Eyeglasses' <$>+                   (x .:? "Value") <*> (x .:? "Confidence"))++instance Hashable Eyeglasses where++instance NFData Eyeglasses where++-- | Describes the face properties such as the bounding box, face ID, image ID of the input image, and external image ID that you assigned.+--+--+--+-- /See:/ 'face' smart constructor.+data Face = Face'+  { _fFaceId          :: !(Maybe Text)+  , _fBoundingBox     :: !(Maybe BoundingBox)+  , _fExternalImageId :: !(Maybe Text)+  , _fConfidence      :: !(Maybe Double)+  , _fImageId         :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Face' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fFaceId' - Unique identifier that Amazon Rekognition assigns to the face.+--+-- * 'fBoundingBox' - Bounding box of the face.+--+-- * 'fExternalImageId' - Identifier that you assign to all the faces in the input image.+--+-- * 'fConfidence' - Confidence level that the bounding box contains a face (and not a different object such as a tree).+--+-- * 'fImageId' - Unique identifier that Amazon Rekognition assigns to the input image.+face+    :: Face+face =+  Face'+    { _fFaceId = Nothing+    , _fBoundingBox = Nothing+    , _fExternalImageId = Nothing+    , _fConfidence = Nothing+    , _fImageId = Nothing+    }+++-- | Unique identifier that Amazon Rekognition assigns to the face.+fFaceId :: Lens' Face (Maybe Text)+fFaceId = lens _fFaceId (\ s a -> s{_fFaceId = a})++-- | Bounding box of the face.+fBoundingBox :: Lens' Face (Maybe BoundingBox)+fBoundingBox = lens _fBoundingBox (\ s a -> s{_fBoundingBox = a})++-- | Identifier that you assign to all the faces in the input image.+fExternalImageId :: Lens' Face (Maybe Text)+fExternalImageId = lens _fExternalImageId (\ s a -> s{_fExternalImageId = a})++-- | Confidence level that the bounding box contains a face (and not a different object such as a tree).+fConfidence :: Lens' Face (Maybe Double)+fConfidence = lens _fConfidence (\ s a -> s{_fConfidence = a})++-- | Unique identifier that Amazon Rekognition assigns to the input image.+fImageId :: Lens' Face (Maybe Text)+fImageId = lens _fImageId (\ s a -> s{_fImageId = a})++instance FromJSON Face where+        parseJSON+          = withObject "Face"+              (\ x ->+                 Face' <$>+                   (x .:? "FaceId") <*> (x .:? "BoundingBox") <*>+                     (x .:? "ExternalImageId")+                     <*> (x .:? "Confidence")+                     <*> (x .:? "ImageId"))++instance Hashable Face where++instance NFData Face where++-- | Structure containing attributes of the face that the algorithm detected.+--+--+-- A @FaceDetail@ object contains either the default facial attributes or all facial attributes. The default attributes are @BoundingBox@ , @Confidence@ , @Landmarks@ , @Pose@ , and @Quality@ .+--+-- is the only Rekognition Video stored video operation that can return a @FaceDetail@ object with all attributes. To specify which attributes to return, use the @FaceAttributes@ input parameter for . The following Rekognition Video operations return only the default attributes. The corresponding Start operations don't have a @FaceAttributes@ input parameter.+--+--     * GetCelebrityRecognition+--+--     * GetPersonTracking+--+--     * GetFaceSearch+--+--+--+-- The Rekognition Image and operations can return all facial attributes. To specify which attributes to return, use the @Attributes@ input parameter for @DetectFaces@ . For @IndexFaces@ , use the @DetectAttributes@ input parameter.+--+--+-- /See:/ 'faceDetail' smart constructor.+data FaceDetail = FaceDetail'+  { _fdAgeRange    :: !(Maybe AgeRange)+  , _fdSunglasses  :: !(Maybe Sunglasses)+  , _fdMouthOpen   :: !(Maybe MouthOpen)+  , _fdBoundingBox :: !(Maybe BoundingBox)+  , _fdEmotions    :: !(Maybe [Emotion])+  , _fdEyesOpen    :: !(Maybe EyeOpen)+  , _fdPose        :: !(Maybe Pose)+  , _fdConfidence  :: !(Maybe Double)+  , _fdGender      :: !(Maybe Gender)+  , _fdQuality     :: !(Maybe ImageQuality)+  , _fdEyeglasses  :: !(Maybe Eyeglasses)+  , _fdBeard       :: !(Maybe Beard)+  , _fdMustache    :: !(Maybe Mustache)+  , _fdSmile       :: !(Maybe Smile)+  , _fdLandmarks   :: !(Maybe [Landmark])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FaceDetail' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fdAgeRange' - The estimated age range, in years, for the face. Low represents the lowest estimated age and High represents the highest estimated age.+--+-- * 'fdSunglasses' - Indicates whether or not the face is wearing sunglasses, and the confidence level in the determination.+--+-- * 'fdMouthOpen' - Indicates whether or not the mouth on the face is open, and the confidence level in the determination.+--+-- * 'fdBoundingBox' - Bounding box of the face. Default attribute.+--+-- * 'fdEmotions' - The emotions detected on the face, and the confidence level in the determination. For example, HAPPY, SAD, and ANGRY.+--+-- * 'fdEyesOpen' - Indicates whether or not the eyes on the face are open, and the confidence level in the determination.+--+-- * 'fdPose' - Indicates the pose of the face as determined by its pitch, roll, and yaw. Default attribute.+--+-- * 'fdConfidence' - Confidence level that the bounding box contains a face (and not a different object such as a tree). Default attribute.+--+-- * 'fdGender' - Gender of the face and the confidence level in the determination.+--+-- * 'fdQuality' - Identifies image brightness and sharpness. Default attribute.+--+-- * 'fdEyeglasses' - Indicates whether or not the face is wearing eye glasses, and the confidence level in the determination.+--+-- * 'fdBeard' - Indicates whether or not the face has a beard, and the confidence level in the determination.+--+-- * 'fdMustache' - Indicates whether or not the face has a mustache, and the confidence level in the determination.+--+-- * 'fdSmile' - Indicates whether or not the face is smiling, and the confidence level in the determination.+--+-- * 'fdLandmarks' - Indicates the location of landmarks on the face. Default attribute.+faceDetail+    :: FaceDetail+faceDetail =+  FaceDetail'+    { _fdAgeRange = Nothing+    , _fdSunglasses = Nothing+    , _fdMouthOpen = Nothing+    , _fdBoundingBox = Nothing+    , _fdEmotions = Nothing+    , _fdEyesOpen = Nothing+    , _fdPose = Nothing+    , _fdConfidence = Nothing+    , _fdGender = Nothing+    , _fdQuality = Nothing+    , _fdEyeglasses = Nothing+    , _fdBeard = Nothing+    , _fdMustache = Nothing+    , _fdSmile = Nothing+    , _fdLandmarks = Nothing+    }+++-- | The estimated age range, in years, for the face. Low represents the lowest estimated age and High represents the highest estimated age.+fdAgeRange :: Lens' FaceDetail (Maybe AgeRange)+fdAgeRange = lens _fdAgeRange (\ s a -> s{_fdAgeRange = a})++-- | Indicates whether or not the face is wearing sunglasses, and the confidence level in the determination.+fdSunglasses :: Lens' FaceDetail (Maybe Sunglasses)+fdSunglasses = lens _fdSunglasses (\ s a -> s{_fdSunglasses = a})++-- | Indicates whether or not the mouth on the face is open, and the confidence level in the determination.+fdMouthOpen :: Lens' FaceDetail (Maybe MouthOpen)+fdMouthOpen = lens _fdMouthOpen (\ s a -> s{_fdMouthOpen = a})++-- | Bounding box of the face. Default attribute.+fdBoundingBox :: Lens' FaceDetail (Maybe BoundingBox)+fdBoundingBox = lens _fdBoundingBox (\ s a -> s{_fdBoundingBox = a})++-- | The emotions detected on the face, and the confidence level in the determination. For example, HAPPY, SAD, and ANGRY.+fdEmotions :: Lens' FaceDetail [Emotion]+fdEmotions = lens _fdEmotions (\ s a -> s{_fdEmotions = a}) . _Default . _Coerce++-- | Indicates whether or not the eyes on the face are open, and the confidence level in the determination.+fdEyesOpen :: Lens' FaceDetail (Maybe EyeOpen)+fdEyesOpen = lens _fdEyesOpen (\ s a -> s{_fdEyesOpen = a})++-- | Indicates the pose of the face as determined by its pitch, roll, and yaw. Default attribute.+fdPose :: Lens' FaceDetail (Maybe Pose)+fdPose = lens _fdPose (\ s a -> s{_fdPose = a})++-- | Confidence level that the bounding box contains a face (and not a different object such as a tree). Default attribute.+fdConfidence :: Lens' FaceDetail (Maybe Double)+fdConfidence = lens _fdConfidence (\ s a -> s{_fdConfidence = a})++-- | Gender of the face and the confidence level in the determination.+fdGender :: Lens' FaceDetail (Maybe Gender)+fdGender = lens _fdGender (\ s a -> s{_fdGender = a})++-- | Identifies image brightness and sharpness. Default attribute.+fdQuality :: Lens' FaceDetail (Maybe ImageQuality)+fdQuality = lens _fdQuality (\ s a -> s{_fdQuality = a})++-- | Indicates whether or not the face is wearing eye glasses, and the confidence level in the determination.+fdEyeglasses :: Lens' FaceDetail (Maybe Eyeglasses)+fdEyeglasses = lens _fdEyeglasses (\ s a -> s{_fdEyeglasses = a})++-- | Indicates whether or not the face has a beard, and the confidence level in the determination.+fdBeard :: Lens' FaceDetail (Maybe Beard)+fdBeard = lens _fdBeard (\ s a -> s{_fdBeard = a})++-- | Indicates whether or not the face has a mustache, and the confidence level in the determination.+fdMustache :: Lens' FaceDetail (Maybe Mustache)+fdMustache = lens _fdMustache (\ s a -> s{_fdMustache = a})++-- | Indicates whether or not the face is smiling, and the confidence level in the determination.+fdSmile :: Lens' FaceDetail (Maybe Smile)+fdSmile = lens _fdSmile (\ s a -> s{_fdSmile = a})++-- | Indicates the location of landmarks on the face. Default attribute.+fdLandmarks :: Lens' FaceDetail [Landmark]+fdLandmarks = lens _fdLandmarks (\ s a -> s{_fdLandmarks = a}) . _Default . _Coerce++instance FromJSON FaceDetail where+        parseJSON+          = withObject "FaceDetail"+              (\ x ->+                 FaceDetail' <$>+                   (x .:? "AgeRange") <*> (x .:? "Sunglasses") <*>+                     (x .:? "MouthOpen")+                     <*> (x .:? "BoundingBox")+                     <*> (x .:? "Emotions" .!= mempty)+                     <*> (x .:? "EyesOpen")+                     <*> (x .:? "Pose")+                     <*> (x .:? "Confidence")+                     <*> (x .:? "Gender")+                     <*> (x .:? "Quality")+                     <*> (x .:? "Eyeglasses")+                     <*> (x .:? "Beard")+                     <*> (x .:? "Mustache")+                     <*> (x .:? "Smile")+                     <*> (x .:? "Landmarks" .!= mempty))++instance Hashable FaceDetail where++instance NFData FaceDetail where++-- | Information about a face detected in a video analysis request and the time the face was detected in the video.+--+--+--+-- /See:/ 'faceDetection' smart constructor.+data FaceDetection = FaceDetection'+  { _fdTimestamp :: !(Maybe Integer)+  , _fdFace      :: !(Maybe FaceDetail)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FaceDetection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fdTimestamp' - Time, in milliseconds from the start of the video, that the face was detected.+--+-- * 'fdFace' - The face properties for the detected face.+faceDetection+    :: FaceDetection+faceDetection = FaceDetection' {_fdTimestamp = Nothing, _fdFace = Nothing}+++-- | Time, in milliseconds from the start of the video, that the face was detected.+fdTimestamp :: Lens' FaceDetection (Maybe Integer)+fdTimestamp = lens _fdTimestamp (\ s a -> s{_fdTimestamp = a})++-- | The face properties for the detected face.+fdFace :: Lens' FaceDetection (Maybe FaceDetail)+fdFace = lens _fdFace (\ s a -> s{_fdFace = a})++instance FromJSON FaceDetection where+        parseJSON+          = withObject "FaceDetection"+              (\ x ->+                 FaceDetection' <$>+                   (x .:? "Timestamp") <*> (x .:? "Face"))++instance Hashable FaceDetection where++instance NFData FaceDetection where++-- | Provides face metadata. In addition, it also provides the confidence in the match of this face with the input face.+--+--+--+-- /See:/ 'faceMatch' smart constructor.+data FaceMatch = FaceMatch'+  { _fmSimilarity :: !(Maybe Double)+  , _fmFace       :: !(Maybe Face)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FaceMatch' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fmSimilarity' - Confidence in the match of this face with the input face.+--+-- * 'fmFace' - Describes the face properties such as the bounding box, face ID, image ID of the source image, and external image ID that you assigned.+faceMatch+    :: FaceMatch+faceMatch = FaceMatch' {_fmSimilarity = Nothing, _fmFace = Nothing}+++-- | Confidence in the match of this face with the input face.+fmSimilarity :: Lens' FaceMatch (Maybe Double)+fmSimilarity = lens _fmSimilarity (\ s a -> s{_fmSimilarity = a})++-- | Describes the face properties such as the bounding box, face ID, image ID of the source image, and external image ID that you assigned.+fmFace :: Lens' FaceMatch (Maybe Face)+fmFace = lens _fmFace (\ s a -> s{_fmFace = a})++instance FromJSON FaceMatch where+        parseJSON+          = withObject "FaceMatch"+              (\ x ->+                 FaceMatch' <$>+                   (x .:? "Similarity") <*> (x .:? "Face"))++instance Hashable FaceMatch where++instance NFData FaceMatch where++-- | Object containing both the face metadata (stored in the back-end database) and facial attributes that are detected but aren't stored in the database.+--+--+--+-- /See:/ 'faceRecord' smart constructor.+data FaceRecord = FaceRecord'+  { _frFaceDetail :: !(Maybe FaceDetail)+  , _frFace       :: !(Maybe Face)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FaceRecord' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'frFaceDetail' - Structure containing attributes of the face that the algorithm detected.+--+-- * 'frFace' - Describes the face properties such as the bounding box, face ID, image ID of the input image, and external image ID that you assigned.+faceRecord+    :: FaceRecord+faceRecord = FaceRecord' {_frFaceDetail = Nothing, _frFace = Nothing}+++-- | Structure containing attributes of the face that the algorithm detected.+frFaceDetail :: Lens' FaceRecord (Maybe FaceDetail)+frFaceDetail = lens _frFaceDetail (\ s a -> s{_frFaceDetail = a})++-- | Describes the face properties such as the bounding box, face ID, image ID of the input image, and external image ID that you assigned.+frFace :: Lens' FaceRecord (Maybe Face)+frFace = lens _frFace (\ s a -> s{_frFace = a})++instance FromJSON FaceRecord where+        parseJSON+          = withObject "FaceRecord"+              (\ x ->+                 FaceRecord' <$>+                   (x .:? "FaceDetail") <*> (x .:? "Face"))++instance Hashable FaceRecord where++instance NFData FaceRecord where++-- | Input face recognition parameters for an Amazon Rekognition stream processor. @FaceRecognitionSettings@ is a request parameter for .+--+--+--+-- /See:/ 'faceSearchSettings' smart constructor.+data FaceSearchSettings = FaceSearchSettings'+  { _fssFaceMatchThreshold :: !(Maybe Double)+  , _fssCollectionId       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FaceSearchSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fssFaceMatchThreshold' - Minimum face match confidence score that must be met to return a result for a recognized face. Default is 70. 0 is the lowest confidence. 100 is the highest confidence.+--+-- * 'fssCollectionId' - The ID of a collection that contains faces that you want to search for.+faceSearchSettings+    :: FaceSearchSettings+faceSearchSettings =+  FaceSearchSettings'+    {_fssFaceMatchThreshold = Nothing, _fssCollectionId = Nothing}+++-- | Minimum face match confidence score that must be met to return a result for a recognized face. Default is 70. 0 is the lowest confidence. 100 is the highest confidence.+fssFaceMatchThreshold :: Lens' FaceSearchSettings (Maybe Double)+fssFaceMatchThreshold = lens _fssFaceMatchThreshold (\ s a -> s{_fssFaceMatchThreshold = a})++-- | The ID of a collection that contains faces that you want to search for.+fssCollectionId :: Lens' FaceSearchSettings (Maybe Text)+fssCollectionId = lens _fssCollectionId (\ s a -> s{_fssCollectionId = a})++instance FromJSON FaceSearchSettings where+        parseJSON+          = withObject "FaceSearchSettings"+              (\ x ->+                 FaceSearchSettings' <$>+                   (x .:? "FaceMatchThreshold") <*>+                     (x .:? "CollectionId"))++instance Hashable FaceSearchSettings where++instance NFData FaceSearchSettings where++instance ToJSON FaceSearchSettings where+        toJSON FaceSearchSettings'{..}+          = object+              (catMaybes+                 [("FaceMatchThreshold" .=) <$>+                    _fssFaceMatchThreshold,+                  ("CollectionId" .=) <$> _fssCollectionId])++-- | Gender of the face and the confidence level in the determination.+--+--+--+-- /See:/ 'gender' smart constructor.+data Gender = Gender'+  { _gValue      :: !(Maybe GenderType)+  , _gConfidence :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Gender' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gValue' - Gender of the face.+--+-- * 'gConfidence' - Level of confidence in the determination.+gender+    :: Gender+gender = Gender' {_gValue = Nothing, _gConfidence = Nothing}+++-- | Gender of the face.+gValue :: Lens' Gender (Maybe GenderType)+gValue = lens _gValue (\ s a -> s{_gValue = a})++-- | Level of confidence in the determination.+gConfidence :: Lens' Gender (Maybe Double)+gConfidence = lens _gConfidence (\ s a -> s{_gConfidence = a})++instance FromJSON Gender where+        parseJSON+          = withObject "Gender"+              (\ x ->+                 Gender' <$> (x .:? "Value") <*> (x .:? "Confidence"))++instance Hashable Gender where++instance NFData Gender where++-- | Information about where text detected by is located on an image.+--+--+--+-- /See:/ 'geometry' smart constructor.+data Geometry = Geometry'+  { _gBoundingBox :: !(Maybe BoundingBox)+  , _gPolygon     :: !(Maybe [Point])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Geometry' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gBoundingBox' - An axis-aligned coarse representation of the detected text's location on the image.+--+-- * 'gPolygon' - Within the bounding box, a fine-grained polygon around the detected text.+geometry+    :: Geometry+geometry = Geometry' {_gBoundingBox = Nothing, _gPolygon = Nothing}+++-- | An axis-aligned coarse representation of the detected text's location on the image.+gBoundingBox :: Lens' Geometry (Maybe BoundingBox)+gBoundingBox = lens _gBoundingBox (\ s a -> s{_gBoundingBox = a})++-- | Within the bounding box, a fine-grained polygon around the detected text.+gPolygon :: Lens' Geometry [Point]+gPolygon = lens _gPolygon (\ s a -> s{_gPolygon = a}) . _Default . _Coerce++instance FromJSON Geometry where+        parseJSON+          = withObject "Geometry"+              (\ x ->+                 Geometry' <$>+                   (x .:? "BoundingBox") <*>+                     (x .:? "Polygon" .!= mempty))++instance Hashable Geometry where++instance NFData Geometry where++-- | Provides the input image either as bytes or an S3 object.+--+--+-- You pass image bytes to a Rekognition API operation by using the @Bytes@ property. For example, you would use the @Bytes@ property to pass an image loaded from a local file system. Image bytes passed by using the @Bytes@ property must be base64-encoded. Your code may not need to encode image bytes if you are using an AWS SDK to call Rekognition API operations. For more information, see 'images-bytes' .+--+-- You pass images stored in an S3 bucket to a Rekognition API operation by using the @S3Object@ property. Images stored in an S3 bucket do not need to be base64-encoded.+--+-- The region for the S3 bucket containing the S3 object must match the region you use for Amazon Rekognition operations.+--+-- If you use the Amazon CLI to call Amazon Rekognition operations, passing image bytes using the Bytes property is not supported. You must first upload the image to an Amazon S3 bucket and then call the operation using the S3Object property.+--+-- For Amazon Rekognition to process an S3 object, the user must have permission to access the S3 object. For more information, see 'manage-access-resource-policies' .+--+--+-- /See:/ 'image' smart constructor.+data Image = Image'+  { _iS3Object :: !(Maybe S3Object)+  , _iBytes    :: !(Maybe Base64)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Image' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iS3Object' - Identifies an S3 object as the image source.+--+-- * 'iBytes' - Blob of image bytes up to 5 MBs.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+image+    :: Image+image = Image' {_iS3Object = Nothing, _iBytes = Nothing}+++-- | Identifies an S3 object as the image source.+iS3Object :: Lens' Image (Maybe S3Object)+iS3Object = lens _iS3Object (\ s a -> s{_iS3Object = a})++-- | Blob of image bytes up to 5 MBs.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+iBytes :: Lens' Image (Maybe ByteString)+iBytes = lens _iBytes (\ s a -> s{_iBytes = a}) . mapping _Base64++instance Hashable Image where++instance NFData Image where++instance ToJSON Image where+        toJSON Image'{..}+          = object+              (catMaybes+                 [("S3Object" .=) <$> _iS3Object,+                  ("Bytes" .=) <$> _iBytes])++-- | Identifies face image brightness and sharpness.+--+--+--+-- /See:/ 'imageQuality' smart constructor.+data ImageQuality = ImageQuality'+  { _iqSharpness  :: !(Maybe Double)+  , _iqBrightness :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ImageQuality' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iqSharpness' - Value representing sharpness of the face. The service returns a value between 0 and 100 (inclusive). A higher value indicates a sharper face image.+--+-- * 'iqBrightness' - Value representing brightness of the face. The service returns a value between 0 and 100 (inclusive). A higher value indicates a brighter face image.+imageQuality+    :: ImageQuality+imageQuality = ImageQuality' {_iqSharpness = Nothing, _iqBrightness = Nothing}+++-- | Value representing sharpness of the face. The service returns a value between 0 and 100 (inclusive). A higher value indicates a sharper face image.+iqSharpness :: Lens' ImageQuality (Maybe Double)+iqSharpness = lens _iqSharpness (\ s a -> s{_iqSharpness = a})++-- | Value representing brightness of the face. The service returns a value between 0 and 100 (inclusive). A higher value indicates a brighter face image.+iqBrightness :: Lens' ImageQuality (Maybe Double)+iqBrightness = lens _iqBrightness (\ s a -> s{_iqBrightness = a})++instance FromJSON ImageQuality where+        parseJSON+          = withObject "ImageQuality"+              (\ x ->+                 ImageQuality' <$>+                   (x .:? "Sharpness") <*> (x .:? "Brightness"))++instance Hashable ImageQuality where++instance NFData ImageQuality where++-- | The Kinesis data stream Amazon Rekognition to which the analysis results of a Amazon Rekognition stream processor are streamed. For more information, see .+--+--+--+-- /See:/ 'kinesisDataStream' smart constructor.+newtype KinesisDataStream = KinesisDataStream'+  { _kdsARN :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'KinesisDataStream' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'kdsARN' - ARN of the output Amazon Kinesis Data Streams stream.+kinesisDataStream+    :: KinesisDataStream+kinesisDataStream = KinesisDataStream' {_kdsARN = Nothing}+++-- | ARN of the output Amazon Kinesis Data Streams stream.+kdsARN :: Lens' KinesisDataStream (Maybe Text)+kdsARN = lens _kdsARN (\ s a -> s{_kdsARN = a})++instance FromJSON KinesisDataStream where+        parseJSON+          = withObject "KinesisDataStream"+              (\ x -> KinesisDataStream' <$> (x .:? "Arn"))++instance Hashable KinesisDataStream where++instance NFData KinesisDataStream where++instance ToJSON KinesisDataStream where+        toJSON KinesisDataStream'{..}+          = object (catMaybes [("Arn" .=) <$> _kdsARN])++-- | Kinesis video stream stream that provides the source streaming video for a Rekognition Video stream processor. For more information, see .+--+--+--+-- /See:/ 'kinesisVideoStream' smart constructor.+newtype KinesisVideoStream = KinesisVideoStream'+  { _kvsARN :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'KinesisVideoStream' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'kvsARN' - ARN of the Kinesis video stream stream that streams the source video.+kinesisVideoStream+    :: KinesisVideoStream+kinesisVideoStream = KinesisVideoStream' {_kvsARN = Nothing}+++-- | ARN of the Kinesis video stream stream that streams the source video.+kvsARN :: Lens' KinesisVideoStream (Maybe Text)+kvsARN = lens _kvsARN (\ s a -> s{_kvsARN = a})++instance FromJSON KinesisVideoStream where+        parseJSON+          = withObject "KinesisVideoStream"+              (\ x -> KinesisVideoStream' <$> (x .:? "Arn"))++instance Hashable KinesisVideoStream where++instance NFData KinesisVideoStream where++instance ToJSON KinesisVideoStream where+        toJSON KinesisVideoStream'{..}+          = object (catMaybes [("Arn" .=) <$> _kvsARN])++-- | Structure containing details about the detected label, including name, and level of confidence.+--+--+--+-- /See:/ 'label' smart constructor.+data Label = Label'+  { _lConfidence :: !(Maybe Double)+  , _lName       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Label' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lConfidence' - Level of confidence.+--+-- * 'lName' - The name (label) of the object.+label+    :: Label+label = Label' {_lConfidence = Nothing, _lName = Nothing}+++-- | Level of confidence.+lConfidence :: Lens' Label (Maybe Double)+lConfidence = lens _lConfidence (\ s a -> s{_lConfidence = a})++-- | The name (label) of the object.+lName :: Lens' Label (Maybe Text)+lName = lens _lName (\ s a -> s{_lName = a})++instance FromJSON Label where+        parseJSON+          = withObject "Label"+              (\ x ->+                 Label' <$> (x .:? "Confidence") <*> (x .:? "Name"))++instance Hashable Label where++instance NFData Label where++-- | Information about a label detected in a video analysis request and the time the label was detected in the video.+--+--+--+-- /See:/ 'labelDetection' smart constructor.+data LabelDetection = LabelDetection'+  { _ldLabel     :: !(Maybe Label)+  , _ldTimestamp :: !(Maybe Integer)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LabelDetection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ldLabel' - Details about the detected label.+--+-- * 'ldTimestamp' - Time, in milliseconds from the start of the video, that the label was detected.+labelDetection+    :: LabelDetection+labelDetection = LabelDetection' {_ldLabel = Nothing, _ldTimestamp = Nothing}+++-- | Details about the detected label.+ldLabel :: Lens' LabelDetection (Maybe Label)+ldLabel = lens _ldLabel (\ s a -> s{_ldLabel = a})++-- | Time, in milliseconds from the start of the video, that the label was detected.+ldTimestamp :: Lens' LabelDetection (Maybe Integer)+ldTimestamp = lens _ldTimestamp (\ s a -> s{_ldTimestamp = a})++instance FromJSON LabelDetection where+        parseJSON+          = withObject "LabelDetection"+              (\ x ->+                 LabelDetection' <$>+                   (x .:? "Label") <*> (x .:? "Timestamp"))++instance Hashable LabelDetection where++instance NFData LabelDetection where++-- | Indicates the location of the landmark on the face.+--+--+--+-- /See:/ 'landmark' smart constructor.+data Landmark = Landmark'+  { _lType :: !(Maybe LandmarkType)+  , _lX    :: !(Maybe Double)+  , _lY    :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Landmark' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lType' - Type of the landmark.+--+-- * 'lX' - x-coordinate from the top left of the landmark expressed as the ratio of the width of the image. For example, if the images is 700x200 and the x-coordinate of the landmark is at 350 pixels, this value is 0.5.+--+-- * 'lY' - y-coordinate from the top left of the landmark expressed as the ratio of the height of the image. For example, if the images is 700x200 and the y-coordinate of the landmark is at 100 pixels, this value is 0.5.+landmark+    :: Landmark+landmark = Landmark' {_lType = Nothing, _lX = Nothing, _lY = Nothing}+++-- | Type of the landmark.+lType :: Lens' Landmark (Maybe LandmarkType)+lType = lens _lType (\ s a -> s{_lType = a})++-- | x-coordinate from the top left of the landmark expressed as the ratio of the width of the image. For example, if the images is 700x200 and the x-coordinate of the landmark is at 350 pixels, this value is 0.5.+lX :: Lens' Landmark (Maybe Double)+lX = lens _lX (\ s a -> s{_lX = a})++-- | y-coordinate from the top left of the landmark expressed as the ratio of the height of the image. For example, if the images is 700x200 and the y-coordinate of the landmark is at 100 pixels, this value is 0.5.+lY :: Lens' Landmark (Maybe Double)+lY = lens _lY (\ s a -> s{_lY = a})++instance FromJSON Landmark where+        parseJSON+          = withObject "Landmark"+              (\ x ->+                 Landmark' <$>+                   (x .:? "Type") <*> (x .:? "X") <*> (x .:? "Y"))++instance Hashable Landmark where++instance NFData Landmark where++-- | Provides information about a single type of moderated content found in an image or video. Each type of moderated content has a label within a hierarchical taxonomy. For more information, see 'moderation' .+--+--+--+-- /See:/ 'moderationLabel' smart constructor.+data ModerationLabel = ModerationLabel'+  { _mlConfidence :: !(Maybe Double)+  , _mlName       :: !(Maybe Text)+  , _mlParentName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ModerationLabel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mlConfidence' - Specifies the confidence that Amazon Rekognition has that the label has been correctly identified. If you don't specify the @MinConfidence@ parameter in the call to @DetectModerationLabels@ , the operation returns labels with a confidence value greater than or equal to 50 percent.+--+-- * 'mlName' - The label name for the type of content detected in the image.+--+-- * 'mlParentName' - The name for the parent label. Labels at the top-level of the hierarchy have the parent label @""@ .+moderationLabel+    :: ModerationLabel+moderationLabel =+  ModerationLabel'+    {_mlConfidence = Nothing, _mlName = Nothing, _mlParentName = Nothing}+++-- | Specifies the confidence that Amazon Rekognition has that the label has been correctly identified. If you don't specify the @MinConfidence@ parameter in the call to @DetectModerationLabels@ , the operation returns labels with a confidence value greater than or equal to 50 percent.+mlConfidence :: Lens' ModerationLabel (Maybe Double)+mlConfidence = lens _mlConfidence (\ s a -> s{_mlConfidence = a})++-- | The label name for the type of content detected in the image.+mlName :: Lens' ModerationLabel (Maybe Text)+mlName = lens _mlName (\ s a -> s{_mlName = a})++-- | The name for the parent label. Labels at the top-level of the hierarchy have the parent label @""@ .+mlParentName :: Lens' ModerationLabel (Maybe Text)+mlParentName = lens _mlParentName (\ s a -> s{_mlParentName = a})++instance FromJSON ModerationLabel where+        parseJSON+          = withObject "ModerationLabel"+              (\ x ->+                 ModerationLabel' <$>+                   (x .:? "Confidence") <*> (x .:? "Name") <*>+                     (x .:? "ParentName"))++instance Hashable ModerationLabel where++instance NFData ModerationLabel where++-- | Indicates whether or not the mouth on the face is open, and the confidence level in the determination.+--+--+--+-- /See:/ 'mouthOpen' smart constructor.+data MouthOpen = MouthOpen'+  { _moValue      :: !(Maybe Bool)+  , _moConfidence :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'MouthOpen' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'moValue' - Boolean value that indicates whether the mouth on the face is open or not.+--+-- * 'moConfidence' - Level of confidence in the determination.+mouthOpen+    :: MouthOpen+mouthOpen = MouthOpen' {_moValue = Nothing, _moConfidence = Nothing}+++-- | Boolean value that indicates whether the mouth on the face is open or not.+moValue :: Lens' MouthOpen (Maybe Bool)+moValue = lens _moValue (\ s a -> s{_moValue = a})++-- | Level of confidence in the determination.+moConfidence :: Lens' MouthOpen (Maybe Double)+moConfidence = lens _moConfidence (\ s a -> s{_moConfidence = a})++instance FromJSON MouthOpen where+        parseJSON+          = withObject "MouthOpen"+              (\ x ->+                 MouthOpen' <$>+                   (x .:? "Value") <*> (x .:? "Confidence"))++instance Hashable MouthOpen where++instance NFData MouthOpen where++-- | Indicates whether or not the face has a mustache, and the confidence level in the determination.+--+--+--+-- /See:/ 'mustache' smart constructor.+data Mustache = Mustache'+  { _mValue      :: !(Maybe Bool)+  , _mConfidence :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Mustache' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mValue' - Boolean value that indicates whether the face has mustache or not.+--+-- * 'mConfidence' - Level of confidence in the determination.+mustache+    :: Mustache+mustache = Mustache' {_mValue = Nothing, _mConfidence = Nothing}+++-- | Boolean value that indicates whether the face has mustache or not.+mValue :: Lens' Mustache (Maybe Bool)+mValue = lens _mValue (\ s a -> s{_mValue = a})++-- | Level of confidence in the determination.+mConfidence :: Lens' Mustache (Maybe Double)+mConfidence = lens _mConfidence (\ s a -> s{_mConfidence = a})++instance FromJSON Mustache where+        parseJSON+          = withObject "Mustache"+              (\ x ->+                 Mustache' <$>+                   (x .:? "Value") <*> (x .:? "Confidence"))++instance Hashable Mustache where++instance NFData Mustache where++-- | The Amazon Simple Notification Service topic to which Amazon Rekognition publishes the completion status of a video analysis operation. For more information, see 'api-video' .+--+--+--+-- /See:/ 'notificationChannel' smart constructor.+data NotificationChannel = NotificationChannel'+  { _ncSNSTopicARN :: !Text+  , _ncRoleARN     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NotificationChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ncSNSTopicARN' - The Amazon SNS topic to which Amazon Rekognition to posts the completion status.+--+-- * 'ncRoleARN' - The ARN of an IAM role that gives Amazon Rekognition publishing permissions to the Amazon SNS topic.+notificationChannel+    :: Text -- ^ 'ncSNSTopicARN'+    -> Text -- ^ 'ncRoleARN'+    -> NotificationChannel+notificationChannel pSNSTopicARN_ pRoleARN_ =+  NotificationChannel' {_ncSNSTopicARN = pSNSTopicARN_, _ncRoleARN = pRoleARN_}+++-- | The Amazon SNS topic to which Amazon Rekognition to posts the completion status.+ncSNSTopicARN :: Lens' NotificationChannel Text+ncSNSTopicARN = lens _ncSNSTopicARN (\ s a -> s{_ncSNSTopicARN = a})++-- | The ARN of an IAM role that gives Amazon Rekognition publishing permissions to the Amazon SNS topic.+ncRoleARN :: Lens' NotificationChannel Text+ncRoleARN = lens _ncRoleARN (\ s a -> s{_ncRoleARN = a})++instance Hashable NotificationChannel where++instance NFData NotificationChannel where++instance ToJSON NotificationChannel where+        toJSON NotificationChannel'{..}+          = object+              (catMaybes+                 [Just ("SNSTopicArn" .= _ncSNSTopicARN),+                  Just ("RoleArn" .= _ncRoleARN)])++-- | Details about a person detected in a video analysis request.+--+--+--+-- /See:/ 'personDetail' smart constructor.+data PersonDetail = PersonDetail'+  { _pdBoundingBox :: !(Maybe BoundingBox)+  , _pdIndex       :: !(Maybe Integer)+  , _pdFace        :: !(Maybe FaceDetail)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PersonDetail' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pdBoundingBox' - Bounding box around the detected person.+--+-- * 'pdIndex' - Identifier for the person detected person within a video. Use to keep track of the person throughout the video. The identifier is not stored by Amazon Rekognition.+--+-- * 'pdFace' - Face details for the detected person.+personDetail+    :: PersonDetail+personDetail =+  PersonDetail'+    {_pdBoundingBox = Nothing, _pdIndex = Nothing, _pdFace = Nothing}+++-- | Bounding box around the detected person.+pdBoundingBox :: Lens' PersonDetail (Maybe BoundingBox)+pdBoundingBox = lens _pdBoundingBox (\ s a -> s{_pdBoundingBox = a})++-- | Identifier for the person detected person within a video. Use to keep track of the person throughout the video. The identifier is not stored by Amazon Rekognition.+pdIndex :: Lens' PersonDetail (Maybe Integer)+pdIndex = lens _pdIndex (\ s a -> s{_pdIndex = a})++-- | Face details for the detected person.+pdFace :: Lens' PersonDetail (Maybe FaceDetail)+pdFace = lens _pdFace (\ s a -> s{_pdFace = a})++instance FromJSON PersonDetail where+        parseJSON+          = withObject "PersonDetail"+              (\ x ->+                 PersonDetail' <$>+                   (x .:? "BoundingBox") <*> (x .:? "Index") <*>+                     (x .:? "Face"))++instance Hashable PersonDetail where++instance NFData PersonDetail where++-- | Details and tracking information for a single time a person is tracked in a video. Amazon Rekognition operations that track persons return an array of @PersonDetection@ objects with elements for each time a person is tracked in a video. For more information, see .+--+--+--+-- /See:/ 'personDetection' smart constructor.+data PersonDetection = PersonDetection'+  { _pdPerson    :: !(Maybe PersonDetail)+  , _pdTimestamp :: !(Maybe Integer)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PersonDetection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pdPerson' - Details about a person tracked in a video.+--+-- * 'pdTimestamp' - The time, in milliseconds from the start of the video, that the person was tracked.+personDetection+    :: PersonDetection+personDetection = PersonDetection' {_pdPerson = Nothing, _pdTimestamp = Nothing}+++-- | Details about a person tracked in a video.+pdPerson :: Lens' PersonDetection (Maybe PersonDetail)+pdPerson = lens _pdPerson (\ s a -> s{_pdPerson = a})++-- | The time, in milliseconds from the start of the video, that the person was tracked.+pdTimestamp :: Lens' PersonDetection (Maybe Integer)+pdTimestamp = lens _pdTimestamp (\ s a -> s{_pdTimestamp = a})++instance FromJSON PersonDetection where+        parseJSON+          = withObject "PersonDetection"+              (\ x ->+                 PersonDetection' <$>+                   (x .:? "Person") <*> (x .:? "Timestamp"))++instance Hashable PersonDetection where++instance NFData PersonDetection where++-- | Information about a person whose face matches a face(s) in a Amazon Rekognition collection. Includes information about the faces in the Amazon Rekognition collection (, information about the person ('PersonDetail' ) and the timestamp for when the person was detected in a video. An array of @PersonMatch@ objects is returned by .+--+--+--+-- /See:/ 'personMatch' smart constructor.+data PersonMatch = PersonMatch'+  { _pmFaceMatches :: !(Maybe [FaceMatch])+  , _pmPerson      :: !(Maybe PersonDetail)+  , _pmTimestamp   :: !(Maybe Integer)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PersonMatch' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pmFaceMatches' - Information about the faces in the input collection that match the face of a person in the video.+--+-- * 'pmPerson' - Information about the matched person.+--+-- * 'pmTimestamp' - The time, in milliseconds from the beginning of the video, that the person was matched in the video.+personMatch+    :: PersonMatch+personMatch =+  PersonMatch'+    {_pmFaceMatches = Nothing, _pmPerson = Nothing, _pmTimestamp = Nothing}+++-- | Information about the faces in the input collection that match the face of a person in the video.+pmFaceMatches :: Lens' PersonMatch [FaceMatch]+pmFaceMatches = lens _pmFaceMatches (\ s a -> s{_pmFaceMatches = a}) . _Default . _Coerce++-- | Information about the matched person.+pmPerson :: Lens' PersonMatch (Maybe PersonDetail)+pmPerson = lens _pmPerson (\ s a -> s{_pmPerson = a})++-- | The time, in milliseconds from the beginning of the video, that the person was matched in the video.+pmTimestamp :: Lens' PersonMatch (Maybe Integer)+pmTimestamp = lens _pmTimestamp (\ s a -> s{_pmTimestamp = a})++instance FromJSON PersonMatch where+        parseJSON+          = withObject "PersonMatch"+              (\ x ->+                 PersonMatch' <$>+                   (x .:? "FaceMatches" .!= mempty) <*> (x .:? "Person")+                     <*> (x .:? "Timestamp"))++instance Hashable PersonMatch where++instance NFData PersonMatch where++-- | The X and Y coordinates of a point on an image. The X and Y values returned are ratios of the overall image size. For example, if the input image is 700x200 and the operation returns X=0.5 and Y=0.25, then the point is at the (350,50) pixel coordinate on the image.+--+--+-- An array of @Point@ objects, @Polygon@ , is returned by . @Polygon@ represents a fine-grained polygon around detected text. For more information, see .+--+--+-- /See:/ 'point' smart constructor.+data Point = Point'+  { _pX :: !(Maybe Double)+  , _pY :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Point' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pX' - The value of the X coordinate for a point on a @Polygon@ .+--+-- * 'pY' - The value of the Y coordinate for a point on a @Polygon@ .+point+    :: Point+point = Point' {_pX = Nothing, _pY = Nothing}+++-- | The value of the X coordinate for a point on a @Polygon@ .+pX :: Lens' Point (Maybe Double)+pX = lens _pX (\ s a -> s{_pX = a})++-- | The value of the Y coordinate for a point on a @Polygon@ .+pY :: Lens' Point (Maybe Double)+pY = lens _pY (\ s a -> s{_pY = a})++instance FromJSON Point where+        parseJSON+          = withObject "Point"+              (\ x -> Point' <$> (x .:? "X") <*> (x .:? "Y"))++instance Hashable Point where++instance NFData Point where++-- | Indicates the pose of the face as determined by its pitch, roll, and yaw.+--+--+--+-- /See:/ 'pose' smart constructor.+data Pose = Pose'+  { _pYaw   :: !(Maybe Double)+  , _pRoll  :: !(Maybe Double)+  , _pPitch :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Pose' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pYaw' - Value representing the face rotation on the yaw axis.+--+-- * 'pRoll' - Value representing the face rotation on the roll axis.+--+-- * 'pPitch' - Value representing the face rotation on the pitch axis.+pose+    :: Pose+pose = Pose' {_pYaw = Nothing, _pRoll = Nothing, _pPitch = Nothing}+++-- | Value representing the face rotation on the yaw axis.+pYaw :: Lens' Pose (Maybe Double)+pYaw = lens _pYaw (\ s a -> s{_pYaw = a})++-- | Value representing the face rotation on the roll axis.+pRoll :: Lens' Pose (Maybe Double)+pRoll = lens _pRoll (\ s a -> s{_pRoll = a})++-- | Value representing the face rotation on the pitch axis.+pPitch :: Lens' Pose (Maybe Double)+pPitch = lens _pPitch (\ s a -> s{_pPitch = a})++instance FromJSON Pose where+        parseJSON+          = withObject "Pose"+              (\ x ->+                 Pose' <$>+                   (x .:? "Yaw") <*> (x .:? "Roll") <*> (x .:? "Pitch"))++instance Hashable Pose where++instance NFData Pose where++-- | Provides the S3 bucket name and object name.+--+--+-- The region for the S3 bucket containing the S3 object must match the region you use for Amazon Rekognition operations.+--+-- For Amazon Rekognition to process an S3 object, the user must have permission to access the S3 object. For more information, see 'manage-access-resource-policies' .+--+--+-- /See:/ 's3Object' smart constructor.+data S3Object = S3Object'+  { _soBucket  :: !(Maybe Text)+  , _soName    :: !(Maybe Text)+  , _soVersion :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'S3Object' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'soBucket' - Name of the S3 bucket.+--+-- * 'soName' - S3 object key name.+--+-- * 'soVersion' - If the bucket is versioning enabled, you can specify the object version.+s3Object+    :: S3Object+s3Object =+  S3Object' {_soBucket = Nothing, _soName = Nothing, _soVersion = Nothing}+++-- | Name of the S3 bucket.+soBucket :: Lens' S3Object (Maybe Text)+soBucket = lens _soBucket (\ s a -> s{_soBucket = a})++-- | S3 object key name.+soName :: Lens' S3Object (Maybe Text)+soName = lens _soName (\ s a -> s{_soName = a})++-- | If the bucket is versioning enabled, you can specify the object version.+soVersion :: Lens' S3Object (Maybe Text)+soVersion = lens _soVersion (\ s a -> s{_soVersion = a})++instance Hashable S3Object where++instance NFData S3Object where++instance ToJSON S3Object where+        toJSON S3Object'{..}+          = object+              (catMaybes+                 [("Bucket" .=) <$> _soBucket,+                  ("Name" .=) <$> _soName,+                  ("Version" .=) <$> _soVersion])++-- | Indicates whether or not the face is smiling, and the confidence level in the determination.+--+--+--+-- /See:/ 'smile' smart constructor.+data Smile = Smile'+  { _smiValue      :: !(Maybe Bool)+  , _smiConfidence :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Smile' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'smiValue' - Boolean value that indicates whether the face is smiling or not.+--+-- * 'smiConfidence' - Level of confidence in the determination.+smile+    :: Smile+smile = Smile' {_smiValue = Nothing, _smiConfidence = Nothing}+++-- | Boolean value that indicates whether the face is smiling or not.+smiValue :: Lens' Smile (Maybe Bool)+smiValue = lens _smiValue (\ s a -> s{_smiValue = a})++-- | Level of confidence in the determination.+smiConfidence :: Lens' Smile (Maybe Double)+smiConfidence = lens _smiConfidence (\ s a -> s{_smiConfidence = a})++instance FromJSON Smile where+        parseJSON+          = withObject "Smile"+              (\ x ->+                 Smile' <$> (x .:? "Value") <*> (x .:? "Confidence"))++instance Hashable Smile where++instance NFData Smile where++-- | An object that recognizes faces in a streaming video. An Amazon Rekognition stream processor is created by a call to . The request parameters for @CreateStreamProcessor@ describe the Kinesis video stream source for the streaming video, face recognition parameters, and where to stream the analysis resullts.+--+--+--+-- /See:/ 'streamProcessor' smart constructor.+data StreamProcessor = StreamProcessor'+  { _spStatus :: !(Maybe StreamProcessorStatus)+  , _spName   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StreamProcessor' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'spStatus' - Current status of the Amazon Rekognition stream processor.+--+-- * 'spName' - Name of the Amazon Rekognition stream processor.+streamProcessor+    :: StreamProcessor+streamProcessor = StreamProcessor' {_spStatus = Nothing, _spName = Nothing}+++-- | Current status of the Amazon Rekognition stream processor.+spStatus :: Lens' StreamProcessor (Maybe StreamProcessorStatus)+spStatus = lens _spStatus (\ s a -> s{_spStatus = a})++-- | Name of the Amazon Rekognition stream processor.+spName :: Lens' StreamProcessor (Maybe Text)+spName = lens _spName (\ s a -> s{_spName = a})++instance FromJSON StreamProcessor where+        parseJSON+          = withObject "StreamProcessor"+              (\ x ->+                 StreamProcessor' <$>+                   (x .:? "Status") <*> (x .:? "Name"))++instance Hashable StreamProcessor where++instance NFData StreamProcessor where++-- | Information about the source streaming video.+--+--+--+-- /See:/ 'streamProcessorInput' smart constructor.+newtype StreamProcessorInput = StreamProcessorInput'+  { _spiKinesisVideoStream :: Maybe KinesisVideoStream+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StreamProcessorInput' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'spiKinesisVideoStream' - The Kinesis video stream input stream for the source streaming video.+streamProcessorInput+    :: StreamProcessorInput+streamProcessorInput = StreamProcessorInput' {_spiKinesisVideoStream = Nothing}+++-- | The Kinesis video stream input stream for the source streaming video.+spiKinesisVideoStream :: Lens' StreamProcessorInput (Maybe KinesisVideoStream)+spiKinesisVideoStream = lens _spiKinesisVideoStream (\ s a -> s{_spiKinesisVideoStream = a})++instance FromJSON StreamProcessorInput where+        parseJSON+          = withObject "StreamProcessorInput"+              (\ x ->+                 StreamProcessorInput' <$>+                   (x .:? "KinesisVideoStream"))++instance Hashable StreamProcessorInput where++instance NFData StreamProcessorInput where++instance ToJSON StreamProcessorInput where+        toJSON StreamProcessorInput'{..}+          = object+              (catMaybes+                 [("KinesisVideoStream" .=) <$>+                    _spiKinesisVideoStream])++-- | Information about the Amazon Kinesis Data Streams stream to which a Rekognition Video stream processor streams the results of a video analysis. For more information, see .+--+--+--+-- /See:/ 'streamProcessorOutput' smart constructor.+newtype StreamProcessorOutput = StreamProcessorOutput'+  { _spoKinesisDataStream :: Maybe KinesisDataStream+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StreamProcessorOutput' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'spoKinesisDataStream' - The Amazon Kinesis Data Streams stream to which the Amazon Rekognition stream processor streams the analysis results.+streamProcessorOutput+    :: StreamProcessorOutput+streamProcessorOutput = StreamProcessorOutput' {_spoKinesisDataStream = Nothing}+++-- | The Amazon Kinesis Data Streams stream to which the Amazon Rekognition stream processor streams the analysis results.+spoKinesisDataStream :: Lens' StreamProcessorOutput (Maybe KinesisDataStream)+spoKinesisDataStream = lens _spoKinesisDataStream (\ s a -> s{_spoKinesisDataStream = a})++instance FromJSON StreamProcessorOutput where+        parseJSON+          = withObject "StreamProcessorOutput"+              (\ x ->+                 StreamProcessorOutput' <$>+                   (x .:? "KinesisDataStream"))++instance Hashable StreamProcessorOutput where++instance NFData StreamProcessorOutput where++instance ToJSON StreamProcessorOutput where+        toJSON StreamProcessorOutput'{..}+          = object+              (catMaybes+                 [("KinesisDataStream" .=) <$> _spoKinesisDataStream])++-- | Input parameters used to recognize faces in a streaming video analyzed by a Amazon Rekognition stream processor.+--+--+--+-- /See:/ 'streamProcessorSettings' smart constructor.+newtype StreamProcessorSettings = StreamProcessorSettings'+  { _spsFaceSearch :: Maybe FaceSearchSettings+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StreamProcessorSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'spsFaceSearch' - Face search settings to use on a streaming video.+streamProcessorSettings+    :: StreamProcessorSettings+streamProcessorSettings = StreamProcessorSettings' {_spsFaceSearch = Nothing}+++-- | Face search settings to use on a streaming video.+spsFaceSearch :: Lens' StreamProcessorSettings (Maybe FaceSearchSettings)+spsFaceSearch = lens _spsFaceSearch (\ s a -> s{_spsFaceSearch = a})++instance FromJSON StreamProcessorSettings where+        parseJSON+          = withObject "StreamProcessorSettings"+              (\ x ->+                 StreamProcessorSettings' <$> (x .:? "FaceSearch"))++instance Hashable StreamProcessorSettings where++instance NFData StreamProcessorSettings where++instance ToJSON StreamProcessorSettings where+        toJSON StreamProcessorSettings'{..}+          = object+              (catMaybes [("FaceSearch" .=) <$> _spsFaceSearch])++-- | Indicates whether or not the face is wearing sunglasses, and the confidence level in the determination.+--+--+--+-- /See:/ 'sunglasses' smart constructor.+data Sunglasses = Sunglasses'+  { _sValue      :: !(Maybe Bool)+  , _sConfidence :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Sunglasses' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sValue' - Boolean value that indicates whether the face is wearing sunglasses or not.+--+-- * 'sConfidence' - Level of confidence in the determination.+sunglasses+    :: Sunglasses+sunglasses = Sunglasses' {_sValue = Nothing, _sConfidence = Nothing}+++-- | Boolean value that indicates whether the face is wearing sunglasses or not.+sValue :: Lens' Sunglasses (Maybe Bool)+sValue = lens _sValue (\ s a -> s{_sValue = a})++-- | Level of confidence in the determination.+sConfidence :: Lens' Sunglasses (Maybe Double)+sConfidence = lens _sConfidence (\ s a -> s{_sConfidence = a})++instance FromJSON Sunglasses where+        parseJSON+          = withObject "Sunglasses"+              (\ x ->+                 Sunglasses' <$>+                   (x .:? "Value") <*> (x .:? "Confidence"))++instance Hashable Sunglasses where++instance NFData Sunglasses where++-- | Information about a word or line of text detected by .+--+--+-- The @DetectedText@ field contains the text that Amazon Rekognition detected in the image.+--+-- Every word and line has an identifier (@Id@ ). Each word belongs to a line and has a parent identifier (@ParentId@ ) that identifies the line of text in which the word appears. The word @Id@ is also an index for the word within a line of words.+--+-- For more information, see 'text-detection' .+--+--+-- /See:/ 'textDetection' smart constructor.+data TextDetection = TextDetection'+  { _tdDetectedText :: !(Maybe Text)+  , _tdConfidence   :: !(Maybe Double)+  , _tdGeometry     :: !(Maybe Geometry)+  , _tdId           :: !(Maybe Nat)+  , _tdType         :: !(Maybe TextTypes)+  , _tdParentId     :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TextDetection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tdDetectedText' - The word or line of text recognized by Amazon Rekognition.+--+-- * 'tdConfidence' - The confidence that Amazon Rekognition has in the accuracy of the detected text and the accuracy of the geometry points around the detected text.+--+-- * 'tdGeometry' - The location of the detected text on the image. Includes an axis aligned coarse bounding box surrounding the text and a finer grain polygon for more accurate spatial information.+--+-- * 'tdId' - The identifier for the detected text. The identifier is only unique for a single call to @DetectText@ .+--+-- * 'tdType' - The type of text that was detected.+--+-- * 'tdParentId' - The Parent identifier for the detected text identified by the value of @ID@ . If the type of detected text is @LINE@ , the value of @ParentId@ is @Null@ .+textDetection+    :: TextDetection+textDetection =+  TextDetection'+    { _tdDetectedText = Nothing+    , _tdConfidence = Nothing+    , _tdGeometry = Nothing+    , _tdId = Nothing+    , _tdType = Nothing+    , _tdParentId = Nothing+    }+++-- | The word or line of text recognized by Amazon Rekognition.+tdDetectedText :: Lens' TextDetection (Maybe Text)+tdDetectedText = lens _tdDetectedText (\ s a -> s{_tdDetectedText = a})++-- | The confidence that Amazon Rekognition has in the accuracy of the detected text and the accuracy of the geometry points around the detected text.+tdConfidence :: Lens' TextDetection (Maybe Double)+tdConfidence = lens _tdConfidence (\ s a -> s{_tdConfidence = a})++-- | The location of the detected text on the image. Includes an axis aligned coarse bounding box surrounding the text and a finer grain polygon for more accurate spatial information.+tdGeometry :: Lens' TextDetection (Maybe Geometry)+tdGeometry = lens _tdGeometry (\ s a -> s{_tdGeometry = a})++-- | The identifier for the detected text. The identifier is only unique for a single call to @DetectText@ .+tdId :: Lens' TextDetection (Maybe Natural)+tdId = lens _tdId (\ s a -> s{_tdId = a}) . mapping _Nat++-- | The type of text that was detected.+tdType :: Lens' TextDetection (Maybe TextTypes)+tdType = lens _tdType (\ s a -> s{_tdType = a})++-- | The Parent identifier for the detected text identified by the value of @ID@ . If the type of detected text is @LINE@ , the value of @ParentId@ is @Null@ .+tdParentId :: Lens' TextDetection (Maybe Natural)+tdParentId = lens _tdParentId (\ s a -> s{_tdParentId = a}) . mapping _Nat++instance FromJSON TextDetection where+        parseJSON+          = withObject "TextDetection"+              (\ x ->+                 TextDetection' <$>+                   (x .:? "DetectedText") <*> (x .:? "Confidence") <*>+                     (x .:? "Geometry")+                     <*> (x .:? "Id")+                     <*> (x .:? "Type")+                     <*> (x .:? "ParentId"))++instance Hashable TextDetection where++instance NFData TextDetection where++-- | Video file stored in an Amazon S3 bucket. Amazon Rekognition video start operations such as use @Video@ to specify a video for analysis. The supported file formats are .mp4, .mov and .avi.+--+--+--+-- /See:/ 'video' smart constructor.+newtype Video = Video'+  { _vS3Object :: Maybe S3Object+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Video' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vS3Object' - The Amazon S3 bucket name and file name for the video.+video+    :: Video+video = Video' {_vS3Object = Nothing}+++-- | The Amazon S3 bucket name and file name for the video.+vS3Object :: Lens' Video (Maybe S3Object)+vS3Object = lens _vS3Object (\ s a -> s{_vS3Object = a})++instance Hashable Video where++instance NFData Video where++instance ToJSON Video where+        toJSON Video'{..}+          = object (catMaybes [("S3Object" .=) <$> _vS3Object])++-- | Information about a video that Amazon Rekognition analyzed. @Videometadata@ is returned in every page of paginated responses from a Amazon Rekognition video operation.+--+--+--+-- /See:/ 'videoMetadata' smart constructor.+data VideoMetadata = VideoMetadata'+  { _vmFrameRate      :: !(Maybe Double)+  , _vmFormat         :: !(Maybe Text)+  , _vmCodec          :: !(Maybe Text)+  , _vmFrameHeight    :: !(Maybe Nat)+  , _vmDurationMillis :: !(Maybe Nat)+  , _vmFrameWidth     :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VideoMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vmFrameRate' - Number of frames per second in the video.+--+-- * 'vmFormat' - Format of the analyzed video. Possible values are MP4, MOV and AVI.+--+-- * 'vmCodec' - Type of compression used in the analyzed video.+--+-- * 'vmFrameHeight' - Vertical pixel dimension of the video.+--+-- * 'vmDurationMillis' - Length of the video in milliseconds.+--+-- * 'vmFrameWidth' - Horizontal pixel dimension of the video.+videoMetadata+    :: VideoMetadata+videoMetadata =+  VideoMetadata'+    { _vmFrameRate = Nothing+    , _vmFormat = Nothing+    , _vmCodec = Nothing+    , _vmFrameHeight = Nothing+    , _vmDurationMillis = Nothing+    , _vmFrameWidth = Nothing+    }+++-- | Number of frames per second in the video.+vmFrameRate :: Lens' VideoMetadata (Maybe Double)+vmFrameRate = lens _vmFrameRate (\ s a -> s{_vmFrameRate = a})++-- | Format of the analyzed video. Possible values are MP4, MOV and AVI.+vmFormat :: Lens' VideoMetadata (Maybe Text)+vmFormat = lens _vmFormat (\ s a -> s{_vmFormat = a})++-- | Type of compression used in the analyzed video.+vmCodec :: Lens' VideoMetadata (Maybe Text)+vmCodec = lens _vmCodec (\ s a -> s{_vmCodec = a})++-- | Vertical pixel dimension of the video.+vmFrameHeight :: Lens' VideoMetadata (Maybe Natural)+vmFrameHeight = lens _vmFrameHeight (\ s a -> s{_vmFrameHeight = a}) . mapping _Nat++-- | Length of the video in milliseconds.+vmDurationMillis :: Lens' VideoMetadata (Maybe Natural)+vmDurationMillis = lens _vmDurationMillis (\ s a -> s{_vmDurationMillis = a}) . mapping _Nat++-- | Horizontal pixel dimension of the video.+vmFrameWidth :: Lens' VideoMetadata (Maybe Natural)+vmFrameWidth = lens _vmFrameWidth (\ s a -> s{_vmFrameWidth = a}) . mapping _Nat++instance FromJSON VideoMetadata where+        parseJSON+          = withObject "VideoMetadata"+              (\ x ->+                 VideoMetadata' <$>+                   (x .:? "FrameRate") <*> (x .:? "Format") <*>+                     (x .:? "Codec")+                     <*> (x .:? "FrameHeight")+                     <*> (x .:? "DurationMillis")+                     <*> (x .:? "FrameWidth"))++instance Hashable VideoMetadata where++instance NFData VideoMetadata where