{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Rekognition.Types
(
defaultService,
_AccessDeniedException,
_VideoTooLargeException,
_InvalidParameterException,
_InvalidImageFormatException,
_ResourceAlreadyExistsException,
_InvalidS3ObjectException,
_ProvisionedThroughputExceededException,
_ImageTooLargeException,
_ServiceQuotaExceededException,
_ThrottlingException,
_InternalServerError,
_IdempotentParameterMismatchException,
_ResourceNotReadyException,
_ResourceNotFoundException,
_HumanLoopQuotaExceededException,
_InvalidPaginationTokenException,
_LimitExceededException,
_ResourceInUseException,
Attribute (..),
BodyPart (..),
CelebrityRecognitionSortBy (..),
ContentClassifier (..),
ContentModerationSortBy (..),
EmotionName (..),
FaceAttributes (..),
FaceSearchSortBy (..),
GenderType (..),
KnownGenderType (..),
LabelDetectionSortBy (..),
LandmarkType (..),
OrientationCorrection (..),
PersonTrackingSortBy (..),
ProjectStatus (..),
ProjectVersionStatus (..),
ProtectiveEquipmentType (..),
QualityFilter (..),
Reason (..),
SegmentType (..),
StreamProcessorStatus (..),
TechnicalCueType (..),
TextTypes (..),
VideoColorRange (..),
VideoJobStatus (..),
AgeRange (..),
newAgeRange,
ageRange_low,
ageRange_high,
Asset (..),
newAsset,
asset_groundTruthManifest,
AudioMetadata (..),
newAudioMetadata,
audioMetadata_codec,
audioMetadata_sampleRate,
audioMetadata_numberOfChannels,
audioMetadata_durationMillis,
Beard (..),
newBeard,
beard_value,
beard_confidence,
BlackFrame (..),
newBlackFrame,
blackFrame_maxPixelThreshold,
blackFrame_minCoveragePercentage,
BoundingBox (..),
newBoundingBox,
boundingBox_height,
boundingBox_left,
boundingBox_width,
boundingBox_top,
Celebrity (..),
newCelebrity,
celebrity_matchConfidence,
celebrity_urls,
celebrity_knownGender,
celebrity_name,
celebrity_id,
celebrity_face,
CelebrityDetail (..),
newCelebrityDetail,
celebrityDetail_boundingBox,
celebrityDetail_urls,
celebrityDetail_confidence,
celebrityDetail_name,
celebrityDetail_id,
celebrityDetail_face,
CelebrityRecognition (..),
newCelebrityRecognition,
celebrityRecognition_celebrity,
celebrityRecognition_timestamp,
CompareFacesMatch (..),
newCompareFacesMatch,
compareFacesMatch_similarity,
compareFacesMatch_face,
ComparedFace (..),
newComparedFace,
comparedFace_boundingBox,
comparedFace_emotions,
comparedFace_pose,
comparedFace_confidence,
comparedFace_quality,
comparedFace_smile,
comparedFace_landmarks,
ComparedSourceImageFace (..),
newComparedSourceImageFace,
comparedSourceImageFace_boundingBox,
comparedSourceImageFace_confidence,
ContentModerationDetection (..),
newContentModerationDetection,
contentModerationDetection_moderationLabel,
contentModerationDetection_timestamp,
CoversBodyPart (..),
newCoversBodyPart,
coversBodyPart_value,
coversBodyPart_confidence,
CustomLabel (..),
newCustomLabel,
customLabel_confidence,
customLabel_name,
customLabel_geometry,
DetectTextFilters (..),
newDetectTextFilters,
detectTextFilters_regionsOfInterest,
detectTextFilters_wordFilter,
DetectionFilter (..),
newDetectionFilter,
detectionFilter_minBoundingBoxHeight,
detectionFilter_minBoundingBoxWidth,
detectionFilter_minConfidence,
Emotion (..),
newEmotion,
emotion_confidence,
emotion_type,
EquipmentDetection (..),
newEquipmentDetection,
equipmentDetection_boundingBox,
equipmentDetection_coversBodyPart,
equipmentDetection_confidence,
equipmentDetection_type,
EvaluationResult (..),
newEvaluationResult,
evaluationResult_summary,
evaluationResult_f1Score,
EyeOpen (..),
newEyeOpen,
eyeOpen_value,
eyeOpen_confidence,
Eyeglasses (..),
newEyeglasses,
eyeglasses_value,
eyeglasses_confidence,
Face (..),
newFace,
face_faceId,
face_boundingBox,
face_externalImageId,
face_confidence,
face_imageId,
FaceDetail (..),
newFaceDetail,
faceDetail_ageRange,
faceDetail_sunglasses,
faceDetail_mouthOpen,
faceDetail_boundingBox,
faceDetail_emotions,
faceDetail_eyesOpen,
faceDetail_pose,
faceDetail_confidence,
faceDetail_gender,
faceDetail_quality,
faceDetail_eyeglasses,
faceDetail_beard,
faceDetail_mustache,
faceDetail_smile,
faceDetail_landmarks,
FaceDetection (..),
newFaceDetection,
faceDetection_timestamp,
faceDetection_face,
FaceMatch (..),
newFaceMatch,
faceMatch_similarity,
faceMatch_face,
FaceRecord (..),
newFaceRecord,
faceRecord_faceDetail,
faceRecord_face,
FaceSearchSettings (..),
newFaceSearchSettings,
faceSearchSettings_faceMatchThreshold,
faceSearchSettings_collectionId,
Gender (..),
newGender,
gender_value,
gender_confidence,
Geometry (..),
newGeometry,
geometry_boundingBox,
geometry_polygon,
GroundTruthManifest (..),
newGroundTruthManifest,
groundTruthManifest_s3Object,
HumanLoopActivationOutput (..),
newHumanLoopActivationOutput,
humanLoopActivationOutput_humanLoopActivationReasons,
humanLoopActivationOutput_humanLoopArn,
humanLoopActivationOutput_humanLoopActivationConditionsEvaluationResults,
HumanLoopConfig (..),
newHumanLoopConfig,
humanLoopConfig_dataAttributes,
humanLoopConfig_humanLoopName,
humanLoopConfig_flowDefinitionArn,
HumanLoopDataAttributes (..),
newHumanLoopDataAttributes,
humanLoopDataAttributes_contentClassifiers,
Image (..),
newImage,
image_s3Object,
image_bytes,
ImageQuality (..),
newImageQuality,
imageQuality_sharpness,
imageQuality_brightness,
Instance (..),
newInstance,
instance_boundingBox,
instance_confidence,
KinesisDataStream (..),
newKinesisDataStream,
kinesisDataStream_arn,
KinesisVideoStream (..),
newKinesisVideoStream,
kinesisVideoStream_arn,
KnownGender (..),
newKnownGender,
knownGender_type,
Label (..),
newLabel,
label_confidence,
label_parents,
label_name,
label_instances,
LabelDetection (..),
newLabelDetection,
labelDetection_label,
labelDetection_timestamp,
Landmark (..),
newLandmark,
landmark_type,
landmark_x,
landmark_y,
ModerationLabel (..),
newModerationLabel,
moderationLabel_confidence,
moderationLabel_name,
moderationLabel_parentName,
MouthOpen (..),
newMouthOpen,
mouthOpen_value,
mouthOpen_confidence,
Mustache (..),
newMustache,
mustache_value,
mustache_confidence,
NotificationChannel (..),
newNotificationChannel,
notificationChannel_sNSTopicArn,
notificationChannel_roleArn,
OutputConfig (..),
newOutputConfig,
outputConfig_s3KeyPrefix,
outputConfig_s3Bucket,
Parent (..),
newParent,
parent_name,
PersonDetail (..),
newPersonDetail,
personDetail_boundingBox,
personDetail_index,
personDetail_face,
PersonDetection (..),
newPersonDetection,
personDetection_person,
personDetection_timestamp,
PersonMatch (..),
newPersonMatch,
personMatch_faceMatches,
personMatch_person,
personMatch_timestamp,
Point (..),
newPoint,
point_x,
point_y,
Pose (..),
newPose,
pose_yaw,
pose_roll,
pose_pitch,
ProjectDescription (..),
newProjectDescription,
projectDescription_status,
projectDescription_creationTimestamp,
projectDescription_projectArn,
ProjectVersionDescription (..),
newProjectVersionDescription,
projectVersionDescription_minInferenceUnits,
projectVersionDescription_status,
projectVersionDescription_evaluationResult,
projectVersionDescription_manifestSummary,
projectVersionDescription_kmsKeyId,
projectVersionDescription_testingDataResult,
projectVersionDescription_statusMessage,
projectVersionDescription_creationTimestamp,
projectVersionDescription_projectVersionArn,
projectVersionDescription_outputConfig,
projectVersionDescription_billableTrainingTimeInSeconds,
projectVersionDescription_trainingEndTimestamp,
projectVersionDescription_trainingDataResult,
ProtectiveEquipmentBodyPart (..),
newProtectiveEquipmentBodyPart,
protectiveEquipmentBodyPart_equipmentDetections,
protectiveEquipmentBodyPart_confidence,
protectiveEquipmentBodyPart_name,
ProtectiveEquipmentPerson (..),
newProtectiveEquipmentPerson,
protectiveEquipmentPerson_bodyParts,
protectiveEquipmentPerson_boundingBox,
protectiveEquipmentPerson_confidence,
protectiveEquipmentPerson_id,
ProtectiveEquipmentSummarizationAttributes (..),
newProtectiveEquipmentSummarizationAttributes,
protectiveEquipmentSummarizationAttributes_minConfidence,
protectiveEquipmentSummarizationAttributes_requiredEquipmentTypes,
ProtectiveEquipmentSummary (..),
newProtectiveEquipmentSummary,
protectiveEquipmentSummary_personsWithRequiredEquipment,
protectiveEquipmentSummary_personsWithoutRequiredEquipment,
protectiveEquipmentSummary_personsIndeterminate,
RegionOfInterest (..),
newRegionOfInterest,
regionOfInterest_boundingBox,
S3Object (..),
newS3Object,
s3Object_bucket,
s3Object_name,
s3Object_version,
SegmentDetection (..),
newSegmentDetection,
segmentDetection_technicalCueSegment,
segmentDetection_endFrameNumber,
segmentDetection_durationSMPTE,
segmentDetection_endTimestampMillis,
segmentDetection_startTimecodeSMPTE,
segmentDetection_endTimecodeSMPTE,
segmentDetection_durationMillis,
segmentDetection_durationFrames,
segmentDetection_startTimestampMillis,
segmentDetection_type,
segmentDetection_shotSegment,
segmentDetection_startFrameNumber,
SegmentTypeInfo (..),
newSegmentTypeInfo,
segmentTypeInfo_modelVersion,
segmentTypeInfo_type,
ShotSegment (..),
newShotSegment,
shotSegment_confidence,
shotSegment_index,
Smile (..),
newSmile,
smile_value,
smile_confidence,
StartSegmentDetectionFilters (..),
newStartSegmentDetectionFilters,
startSegmentDetectionFilters_technicalCueFilter,
startSegmentDetectionFilters_shotFilter,
StartShotDetectionFilter (..),
newStartShotDetectionFilter,
startShotDetectionFilter_minSegmentConfidence,
StartTechnicalCueDetectionFilter (..),
newStartTechnicalCueDetectionFilter,
startTechnicalCueDetectionFilter_blackFrame,
startTechnicalCueDetectionFilter_minSegmentConfidence,
StartTextDetectionFilters (..),
newStartTextDetectionFilters,
startTextDetectionFilters_regionsOfInterest,
startTextDetectionFilters_wordFilter,
StreamProcessor (..),
newStreamProcessor,
streamProcessor_status,
streamProcessor_name,
StreamProcessorInput (..),
newStreamProcessorInput,
streamProcessorInput_kinesisVideoStream,
StreamProcessorOutput (..),
newStreamProcessorOutput,
streamProcessorOutput_kinesisDataStream,
StreamProcessorSettings (..),
newStreamProcessorSettings,
streamProcessorSettings_faceSearch,
Summary (..),
newSummary,
summary_s3Object,
Sunglasses (..),
newSunglasses,
sunglasses_value,
sunglasses_confidence,
TechnicalCueSegment (..),
newTechnicalCueSegment,
technicalCueSegment_confidence,
technicalCueSegment_type,
TestingData (..),
newTestingData,
testingData_assets,
testingData_autoCreate,
TestingDataResult (..),
newTestingDataResult,
testingDataResult_input,
testingDataResult_output,
testingDataResult_validation,
TextDetection (..),
newTextDetection,
textDetection_detectedText,
textDetection_confidence,
textDetection_geometry,
textDetection_id,
textDetection_type,
textDetection_parentId,
TextDetectionResult (..),
newTextDetectionResult,
textDetectionResult_textDetection,
textDetectionResult_timestamp,
TrainingData (..),
newTrainingData,
trainingData_assets,
TrainingDataResult (..),
newTrainingDataResult,
trainingDataResult_input,
trainingDataResult_output,
trainingDataResult_validation,
UnindexedFace (..),
newUnindexedFace,
unindexedFace_reasons,
unindexedFace_faceDetail,
ValidationData (..),
newValidationData,
validationData_assets,
Video (..),
newVideo,
video_s3Object,
VideoMetadata (..),
newVideoMetadata,
videoMetadata_frameRate,
videoMetadata_colorRange,
videoMetadata_format,
videoMetadata_codec,
videoMetadata_frameHeight,
videoMetadata_durationMillis,
videoMetadata_frameWidth,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import Amazonka.Rekognition.Types.AgeRange
import Amazonka.Rekognition.Types.Asset
import Amazonka.Rekognition.Types.Attribute
import Amazonka.Rekognition.Types.AudioMetadata
import Amazonka.Rekognition.Types.Beard
import Amazonka.Rekognition.Types.BlackFrame
import Amazonka.Rekognition.Types.BodyPart
import Amazonka.Rekognition.Types.BoundingBox
import Amazonka.Rekognition.Types.Celebrity
import Amazonka.Rekognition.Types.CelebrityDetail
import Amazonka.Rekognition.Types.CelebrityRecognition
import Amazonka.Rekognition.Types.CelebrityRecognitionSortBy
import Amazonka.Rekognition.Types.CompareFacesMatch
import Amazonka.Rekognition.Types.ComparedFace
import Amazonka.Rekognition.Types.ComparedSourceImageFace
import Amazonka.Rekognition.Types.ContentClassifier
import Amazonka.Rekognition.Types.ContentModerationDetection
import Amazonka.Rekognition.Types.ContentModerationSortBy
import Amazonka.Rekognition.Types.CoversBodyPart
import Amazonka.Rekognition.Types.CustomLabel
import Amazonka.Rekognition.Types.DetectTextFilters
import Amazonka.Rekognition.Types.DetectionFilter
import Amazonka.Rekognition.Types.Emotion
import Amazonka.Rekognition.Types.EmotionName
import Amazonka.Rekognition.Types.EquipmentDetection
import Amazonka.Rekognition.Types.EvaluationResult
import Amazonka.Rekognition.Types.EyeOpen
import Amazonka.Rekognition.Types.Eyeglasses
import Amazonka.Rekognition.Types.Face
import Amazonka.Rekognition.Types.FaceAttributes
import Amazonka.Rekognition.Types.FaceDetail
import Amazonka.Rekognition.Types.FaceDetection
import Amazonka.Rekognition.Types.FaceMatch
import Amazonka.Rekognition.Types.FaceRecord
import Amazonka.Rekognition.Types.FaceSearchSettings
import Amazonka.Rekognition.Types.FaceSearchSortBy
import Amazonka.Rekognition.Types.Gender
import Amazonka.Rekognition.Types.GenderType
import Amazonka.Rekognition.Types.Geometry
import Amazonka.Rekognition.Types.GroundTruthManifest
import Amazonka.Rekognition.Types.HumanLoopActivationOutput
import Amazonka.Rekognition.Types.HumanLoopConfig
import Amazonka.Rekognition.Types.HumanLoopDataAttributes
import Amazonka.Rekognition.Types.Image
import Amazonka.Rekognition.Types.ImageQuality
import Amazonka.Rekognition.Types.Instance
import Amazonka.Rekognition.Types.KinesisDataStream
import Amazonka.Rekognition.Types.KinesisVideoStream
import Amazonka.Rekognition.Types.KnownGender
import Amazonka.Rekognition.Types.KnownGenderType
import Amazonka.Rekognition.Types.Label
import Amazonka.Rekognition.Types.LabelDetection
import Amazonka.Rekognition.Types.LabelDetectionSortBy
import Amazonka.Rekognition.Types.Landmark
import Amazonka.Rekognition.Types.LandmarkType
import Amazonka.Rekognition.Types.ModerationLabel
import Amazonka.Rekognition.Types.MouthOpen
import Amazonka.Rekognition.Types.Mustache
import Amazonka.Rekognition.Types.NotificationChannel
import Amazonka.Rekognition.Types.OrientationCorrection
import Amazonka.Rekognition.Types.OutputConfig
import Amazonka.Rekognition.Types.Parent
import Amazonka.Rekognition.Types.PersonDetail
import Amazonka.Rekognition.Types.PersonDetection
import Amazonka.Rekognition.Types.PersonMatch
import Amazonka.Rekognition.Types.PersonTrackingSortBy
import Amazonka.Rekognition.Types.Point
import Amazonka.Rekognition.Types.Pose
import Amazonka.Rekognition.Types.ProjectDescription
import Amazonka.Rekognition.Types.ProjectStatus
import Amazonka.Rekognition.Types.ProjectVersionDescription
import Amazonka.Rekognition.Types.ProjectVersionStatus
import Amazonka.Rekognition.Types.ProtectiveEquipmentBodyPart
import Amazonka.Rekognition.Types.ProtectiveEquipmentPerson
import Amazonka.Rekognition.Types.ProtectiveEquipmentSummarizationAttributes
import Amazonka.Rekognition.Types.ProtectiveEquipmentSummary
import Amazonka.Rekognition.Types.ProtectiveEquipmentType
import Amazonka.Rekognition.Types.QualityFilter
import Amazonka.Rekognition.Types.Reason
import Amazonka.Rekognition.Types.RegionOfInterest
import Amazonka.Rekognition.Types.S3Object
import Amazonka.Rekognition.Types.SegmentDetection
import Amazonka.Rekognition.Types.SegmentType
import Amazonka.Rekognition.Types.SegmentTypeInfo
import Amazonka.Rekognition.Types.ShotSegment
import Amazonka.Rekognition.Types.Smile
import Amazonka.Rekognition.Types.StartSegmentDetectionFilters
import Amazonka.Rekognition.Types.StartShotDetectionFilter
import Amazonka.Rekognition.Types.StartTechnicalCueDetectionFilter
import Amazonka.Rekognition.Types.StartTextDetectionFilters
import Amazonka.Rekognition.Types.StreamProcessor
import Amazonka.Rekognition.Types.StreamProcessorInput
import Amazonka.Rekognition.Types.StreamProcessorOutput
import Amazonka.Rekognition.Types.StreamProcessorSettings
import Amazonka.Rekognition.Types.StreamProcessorStatus
import Amazonka.Rekognition.Types.Summary
import Amazonka.Rekognition.Types.Sunglasses
import Amazonka.Rekognition.Types.TechnicalCueSegment
import Amazonka.Rekognition.Types.TechnicalCueType
import Amazonka.Rekognition.Types.TestingData
import Amazonka.Rekognition.Types.TestingDataResult
import Amazonka.Rekognition.Types.TextDetection
import Amazonka.Rekognition.Types.TextDetectionResult
import Amazonka.Rekognition.Types.TextTypes
import Amazonka.Rekognition.Types.TrainingData
import Amazonka.Rekognition.Types.TrainingDataResult
import Amazonka.Rekognition.Types.UnindexedFace
import Amazonka.Rekognition.Types.ValidationData
import Amazonka.Rekognition.Types.Video
import Amazonka.Rekognition.Types.VideoColorRange
import Amazonka.Rekognition.Types.VideoJobStatus
import Amazonka.Rekognition.Types.VideoMetadata
import qualified Amazonka.Sign.V4 as Sign
defaultService :: Core.Service
defaultService :: Service
defaultService =
Service :: Abbrev
-> Signer
-> ByteString
-> ByteString
-> ByteString
-> (Region -> Endpoint)
-> Maybe Seconds
-> (Status -> Bool)
-> (Status -> [Header] -> ByteStringLazy -> Error)
-> Retry
-> Service
Core.Service
{ $sel:_serviceAbbrev:Service :: Abbrev
Core._serviceAbbrev = Abbrev
"Rekognition",
$sel:_serviceSigner:Service :: Signer
Core._serviceSigner = Signer
Sign.v4,
$sel:_serviceEndpointPrefix:Service :: ByteString
Core._serviceEndpointPrefix = ByteString
"rekognition",
$sel:_serviceSigningName:Service :: ByteString
Core._serviceSigningName = ByteString
"rekognition",
$sel:_serviceVersion:Service :: ByteString
Core._serviceVersion = ByteString
"2016-06-27",
$sel:_serviceEndpoint:Service :: Region -> Endpoint
Core._serviceEndpoint =
Service -> Region -> Endpoint
Core.defaultEndpoint Service
defaultService,
$sel:_serviceTimeout:Service :: Maybe Seconds
Core._serviceTimeout = Seconds -> Maybe Seconds
forall a. a -> Maybe a
Prelude.Just Seconds
70,
$sel:_serviceCheck:Service :: Status -> Bool
Core._serviceCheck = Status -> Bool
Core.statusSuccess,
$sel:_serviceError:Service :: Status -> [Header] -> ByteStringLazy -> Error
Core._serviceError =
Abbrev -> Status -> [Header] -> ByteStringLazy -> Error
Core.parseJSONError Abbrev
"Rekognition",
$sel:_serviceRetry:Service :: Retry
Core._serviceRetry = Retry
retry
}
where
retry :: Retry
retry =
Exponential :: Double -> Int -> Int -> (ServiceError -> Maybe Text) -> Retry
Core.Exponential
{ $sel:_retryBase:Exponential :: Double
Core._retryBase = Double
5.0e-2,
$sel:_retryGrowth:Exponential :: Int
Core._retryGrowth = Int
2,
$sel:_retryAttempts:Exponential :: Int
Core._retryAttempts = Int
5,
$sel:_retryCheck:Exponential :: ServiceError -> Maybe Text
Core._retryCheck = ServiceError -> Maybe Text
forall a. IsString a => ServiceError -> Maybe a
check
}
check :: ServiceError -> Maybe a
check ServiceError
e
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has
( ErrorCode -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"ThrottledException"
Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"throttled_exception"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has (Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
429) ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"too_many_requests"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has
( ErrorCode -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"ThrottlingException"
Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"throttling_exception"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has
( ErrorCode -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"Throttling"
Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"throttling"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has
( ErrorCode -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode
ErrorCode
"ProvisionedThroughputExceededException"
Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"throughput_exceeded"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has (Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
504) ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"gateway_timeout"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has
( ErrorCode -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"RequestThrottledException"
Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
-> Getting Any ServiceError ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"request_throttled_exception"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has (Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
502) ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"bad_gateway"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has (Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
503) ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"service_unavailable"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has (Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
500) ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"general_server_error"
| Getting Any ServiceError ServiceError -> ServiceError -> Bool
forall s a. Getting Any s a -> s -> Bool
Lens.has (Int -> Getting Any ServiceError ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
509) ServiceError
e =
a -> Maybe a
forall a. a -> Maybe a
Prelude.Just a
"limit_exceeded"
| Bool
Prelude.otherwise = Maybe a
forall a. Maybe a
Prelude.Nothing
_AccessDeniedException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_AccessDeniedException :: Getting (First ServiceError) a ServiceError
_AccessDeniedException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"AccessDeniedException"
_VideoTooLargeException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_VideoTooLargeException :: Getting (First ServiceError) a ServiceError
_VideoTooLargeException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"VideoTooLargeException"
_InvalidParameterException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_InvalidParameterException :: Getting (First ServiceError) a ServiceError
_InvalidParameterException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidParameterException"
_InvalidImageFormatException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_InvalidImageFormatException :: Getting (First ServiceError) a ServiceError
_InvalidImageFormatException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidImageFormatException"
_ResourceAlreadyExistsException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ResourceAlreadyExistsException :: Getting (First ServiceError) a ServiceError
_ResourceAlreadyExistsException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ResourceAlreadyExistsException"
_InvalidS3ObjectException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_InvalidS3ObjectException :: Getting (First ServiceError) a ServiceError
_InvalidS3ObjectException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidS3ObjectException"
_ProvisionedThroughputExceededException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ProvisionedThroughputExceededException :: Getting (First ServiceError) a ServiceError
_ProvisionedThroughputExceededException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ProvisionedThroughputExceededException"
_ImageTooLargeException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ImageTooLargeException :: Getting (First ServiceError) a ServiceError
_ImageTooLargeException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ImageTooLargeException"
_ServiceQuotaExceededException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ServiceQuotaExceededException :: Getting (First ServiceError) a ServiceError
_ServiceQuotaExceededException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ServiceQuotaExceededException"
_ThrottlingException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ThrottlingException :: Getting (First ServiceError) a ServiceError
_ThrottlingException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ThrottlingException"
_InternalServerError :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_InternalServerError :: Getting (First ServiceError) a ServiceError
_InternalServerError =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InternalServerError"
_IdempotentParameterMismatchException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_IdempotentParameterMismatchException :: Getting (First ServiceError) a ServiceError
_IdempotentParameterMismatchException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"IdempotentParameterMismatchException"
_ResourceNotReadyException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ResourceNotReadyException :: Getting (First ServiceError) a ServiceError
_ResourceNotReadyException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ResourceNotReadyException"
_ResourceNotFoundException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ResourceNotFoundException :: Getting (First ServiceError) a ServiceError
_ResourceNotFoundException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ResourceNotFoundException"
_HumanLoopQuotaExceededException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_HumanLoopQuotaExceededException :: Getting (First ServiceError) a ServiceError
_HumanLoopQuotaExceededException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"HumanLoopQuotaExceededException"
_InvalidPaginationTokenException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
=
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidPaginationTokenException"
_LimitExceededException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_LimitExceededException :: Getting (First ServiceError) a ServiceError
_LimitExceededException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"LimitExceededException"
_ResourceInUseException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ResourceInUseException :: Getting (First ServiceError) a ServiceError
_ResourceInUseException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ResourceInUseException"