{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Connect.Types
(
defaultService,
_InvalidContactFlowException,
_OutboundContactNotPermittedException,
_InvalidParameterException,
_InvalidRequestException,
_DuplicateResourceException,
_UserNotFoundException,
_ContactFlowNotPublishedException,
_DestinationNotAllowedException,
_ContactNotFoundException,
_ServiceQuotaExceededException,
_ThrottlingException,
_InternalServiceException,
_ResourceConflictException,
_ResourceNotFoundException,
_LimitExceededException,
_ResourceInUseException,
AgentStatusState (..),
AgentStatusType (..),
Channel (..),
Comparison (..),
ContactFlowType (..),
CurrentMetricName (..),
DirectoryType (..),
EncryptionType (..),
Grouping (..),
HistoricalMetricName (..),
HoursOfOperationDays (..),
InstanceAttributeType (..),
InstanceStatus (..),
InstanceStorageResourceType (..),
IntegrationType (..),
LexVersion (..),
PhoneNumberCountryCode (..),
PhoneNumberType (..),
PhoneType (..),
QueueStatus (..),
QueueType (..),
QuickConnectType (..),
ReferenceType (..),
SourceType (..),
Statistic (..),
StorageType (..),
TrafficType (..),
Unit (..),
UseCaseType (..),
VoiceRecordingTrack (..),
AgentStatus (..),
newAgentStatus,
agentStatus_displayOrder,
agentStatus_state,
agentStatus_name,
agentStatus_agentStatusId,
agentStatus_type,
agentStatus_agentStatusARN,
agentStatus_description,
agentStatus_tags,
AgentStatusSummary (..),
newAgentStatusSummary,
agentStatusSummary_arn,
agentStatusSummary_name,
agentStatusSummary_id,
agentStatusSummary_type,
AnswerMachineDetectionConfig (..),
newAnswerMachineDetectionConfig,
answerMachineDetectionConfig_enableAnswerMachineDetection,
answerMachineDetectionConfig_awaitAnswerMachinePrompt,
Attribute (..),
newAttribute,
attribute_value,
attribute_attributeType,
ChatMessage (..),
newChatMessage,
chatMessage_contentType,
chatMessage_content,
ContactFlow (..),
newContactFlow,
contactFlow_arn,
contactFlow_content,
contactFlow_name,
contactFlow_id,
contactFlow_type,
contactFlow_description,
contactFlow_tags,
ContactFlowSummary (..),
newContactFlowSummary,
contactFlowSummary_arn,
contactFlowSummary_name,
contactFlowSummary_contactFlowType,
contactFlowSummary_id,
Credentials (..),
newCredentials,
credentials_accessTokenExpiration,
credentials_accessToken,
credentials_refreshToken,
credentials_refreshTokenExpiration,
CurrentMetric (..),
newCurrentMetric,
currentMetric_name,
currentMetric_unit,
CurrentMetricData (..),
newCurrentMetricData,
currentMetricData_value,
currentMetricData_metric,
CurrentMetricResult (..),
newCurrentMetricResult,
currentMetricResult_collections,
currentMetricResult_dimensions,
Dimensions (..),
newDimensions,
dimensions_channel,
dimensions_queue,
EncryptionConfig (..),
newEncryptionConfig,
encryptionConfig_encryptionType,
encryptionConfig_keyId,
Filters (..),
newFilters,
filters_queues,
filters_channels,
HierarchyGroup (..),
newHierarchyGroup,
hierarchyGroup_arn,
hierarchyGroup_name,
hierarchyGroup_hierarchyPath,
hierarchyGroup_id,
hierarchyGroup_levelId,
HierarchyGroupSummary (..),
newHierarchyGroupSummary,
hierarchyGroupSummary_arn,
hierarchyGroupSummary_name,
hierarchyGroupSummary_id,
HierarchyLevel (..),
newHierarchyLevel,
hierarchyLevel_arn,
hierarchyLevel_name,
hierarchyLevel_id,
HierarchyLevelUpdate (..),
newHierarchyLevelUpdate,
hierarchyLevelUpdate_name,
HierarchyPath (..),
newHierarchyPath,
hierarchyPath_levelFive,
hierarchyPath_levelThree,
hierarchyPath_levelFour,
hierarchyPath_levelTwo,
hierarchyPath_levelOne,
HierarchyStructure (..),
newHierarchyStructure,
hierarchyStructure_levelFive,
hierarchyStructure_levelThree,
hierarchyStructure_levelFour,
hierarchyStructure_levelTwo,
hierarchyStructure_levelOne,
HierarchyStructureUpdate (..),
newHierarchyStructureUpdate,
hierarchyStructureUpdate_levelFive,
hierarchyStructureUpdate_levelThree,
hierarchyStructureUpdate_levelFour,
hierarchyStructureUpdate_levelTwo,
hierarchyStructureUpdate_levelOne,
HistoricalMetric (..),
newHistoricalMetric,
historicalMetric_name,
historicalMetric_threshold,
historicalMetric_unit,
historicalMetric_statistic,
HistoricalMetricData (..),
newHistoricalMetricData,
historicalMetricData_value,
historicalMetricData_metric,
HistoricalMetricResult (..),
newHistoricalMetricResult,
historicalMetricResult_collections,
historicalMetricResult_dimensions,
HoursOfOperation (..),
newHoursOfOperation,
hoursOfOperation_config,
hoursOfOperation_name,
hoursOfOperation_hoursOfOperationArn,
hoursOfOperation_hoursOfOperationId,
hoursOfOperation_timeZone,
hoursOfOperation_description,
hoursOfOperation_tags,
HoursOfOperationConfig (..),
newHoursOfOperationConfig,
hoursOfOperationConfig_day,
hoursOfOperationConfig_startTime,
hoursOfOperationConfig_endTime,
HoursOfOperationSummary (..),
newHoursOfOperationSummary,
hoursOfOperationSummary_arn,
hoursOfOperationSummary_name,
hoursOfOperationSummary_id,
HoursOfOperationTimeSlice (..),
newHoursOfOperationTimeSlice,
hoursOfOperationTimeSlice_hours,
hoursOfOperationTimeSlice_minutes,
Instance (..),
newInstance,
instance_arn,
instance_createdTime,
instance_outboundCallsEnabled,
instance_inboundCallsEnabled,
instance_instanceAlias,
instance_id,
instance_instanceStatus,
instance_identityManagementType,
instance_statusReason,
instance_serviceRole,
InstanceStatusReason (..),
newInstanceStatusReason,
instanceStatusReason_message,
InstanceStorageConfig (..),
newInstanceStorageConfig,
instanceStorageConfig_associationId,
instanceStorageConfig_kinesisStreamConfig,
instanceStorageConfig_kinesisVideoStreamConfig,
instanceStorageConfig_s3Config,
instanceStorageConfig_kinesisFirehoseConfig,
instanceStorageConfig_storageType,
InstanceSummary (..),
newInstanceSummary,
instanceSummary_arn,
instanceSummary_createdTime,
instanceSummary_outboundCallsEnabled,
instanceSummary_inboundCallsEnabled,
instanceSummary_instanceAlias,
instanceSummary_id,
instanceSummary_instanceStatus,
instanceSummary_identityManagementType,
instanceSummary_serviceRole,
IntegrationAssociationSummary (..),
newIntegrationAssociationSummary,
integrationAssociationSummary_instanceId,
integrationAssociationSummary_sourceType,
integrationAssociationSummary_sourceApplicationUrl,
integrationAssociationSummary_integrationAssociationId,
integrationAssociationSummary_integrationAssociationArn,
integrationAssociationSummary_sourceApplicationName,
integrationAssociationSummary_integrationArn,
integrationAssociationSummary_integrationType,
KinesisFirehoseConfig (..),
newKinesisFirehoseConfig,
kinesisFirehoseConfig_firehoseArn,
KinesisStreamConfig (..),
newKinesisStreamConfig,
kinesisStreamConfig_streamArn,
KinesisVideoStreamConfig (..),
newKinesisVideoStreamConfig,
kinesisVideoStreamConfig_prefix,
kinesisVideoStreamConfig_retentionPeriodHours,
kinesisVideoStreamConfig_encryptionConfig,
LexBot (..),
newLexBot,
lexBot_lexRegion,
lexBot_name,
LexBotConfig (..),
newLexBotConfig,
lexBotConfig_lexBot,
lexBotConfig_lexV2Bot,
LexV2Bot (..),
newLexV2Bot,
lexV2Bot_aliasArn,
MediaConcurrency (..),
newMediaConcurrency,
mediaConcurrency_channel,
mediaConcurrency_concurrency,
OutboundCallerConfig (..),
newOutboundCallerConfig,
outboundCallerConfig_outboundCallerIdNumberId,
outboundCallerConfig_outboundCallerIdName,
outboundCallerConfig_outboundFlowId,
ParticipantDetails (..),
newParticipantDetails,
participantDetails_displayName,
PhoneNumberQuickConnectConfig (..),
newPhoneNumberQuickConnectConfig,
phoneNumberQuickConnectConfig_phoneNumber,
PhoneNumberSummary (..),
newPhoneNumberSummary,
phoneNumberSummary_phoneNumberType,
phoneNumberSummary_arn,
phoneNumberSummary_phoneNumber,
phoneNumberSummary_phoneNumberCountryCode,
phoneNumberSummary_id,
PromptSummary (..),
newPromptSummary,
promptSummary_arn,
promptSummary_name,
promptSummary_id,
Queue (..),
newQueue,
queue_status,
queue_queueArn,
queue_queueId,
queue_maxContacts,
queue_name,
queue_hoursOfOperationId,
queue_outboundCallerConfig,
queue_description,
queue_tags,
QueueQuickConnectConfig (..),
newQueueQuickConnectConfig,
queueQuickConnectConfig_queueId,
queueQuickConnectConfig_contactFlowId,
QueueReference (..),
newQueueReference,
queueReference_arn,
queueReference_id,
QueueSummary (..),
newQueueSummary,
queueSummary_arn,
queueSummary_name,
queueSummary_id,
queueSummary_queueType,
QuickConnect (..),
newQuickConnect,
quickConnect_name,
quickConnect_quickConnectId,
quickConnect_description,
quickConnect_quickConnectARN,
quickConnect_tags,
quickConnect_quickConnectConfig,
QuickConnectConfig (..),
newQuickConnectConfig,
quickConnectConfig_queueConfig,
quickConnectConfig_userConfig,
quickConnectConfig_phoneConfig,
quickConnectConfig_quickConnectType,
QuickConnectSummary (..),
newQuickConnectSummary,
quickConnectSummary_arn,
quickConnectSummary_quickConnectType,
quickConnectSummary_name,
quickConnectSummary_id,
Reference (..),
newReference,
reference_value,
reference_type,
RoutingProfile (..),
newRoutingProfile,
routingProfile_instanceId,
routingProfile_routingProfileArn,
routingProfile_routingProfileId,
routingProfile_defaultOutboundQueueId,
routingProfile_name,
routingProfile_mediaConcurrencies,
routingProfile_description,
routingProfile_tags,
RoutingProfileQueueConfig (..),
newRoutingProfileQueueConfig,
routingProfileQueueConfig_queueReference,
routingProfileQueueConfig_priority,
routingProfileQueueConfig_delay,
RoutingProfileQueueConfigSummary (..),
newRoutingProfileQueueConfigSummary,
routingProfileQueueConfigSummary_queueId,
routingProfileQueueConfigSummary_queueArn,
routingProfileQueueConfigSummary_queueName,
routingProfileQueueConfigSummary_priority,
routingProfileQueueConfigSummary_delay,
routingProfileQueueConfigSummary_channel,
RoutingProfileQueueReference (..),
newRoutingProfileQueueReference,
routingProfileQueueReference_queueId,
routingProfileQueueReference_channel,
RoutingProfileSummary (..),
newRoutingProfileSummary,
routingProfileSummary_arn,
routingProfileSummary_name,
routingProfileSummary_id,
S3Config (..),
newS3Config,
s3Config_encryptionConfig,
s3Config_bucketName,
s3Config_bucketPrefix,
SecurityKey (..),
newSecurityKey,
securityKey_creationTime,
securityKey_associationId,
securityKey_key,
SecurityProfileSummary (..),
newSecurityProfileSummary,
securityProfileSummary_arn,
securityProfileSummary_name,
securityProfileSummary_id,
Threshold (..),
newThreshold,
threshold_thresholdValue,
threshold_comparison,
UseCase (..),
newUseCase,
useCase_useCaseType,
useCase_useCaseArn,
useCase_useCaseId,
User (..),
newUser,
user_routingProfileId,
user_directoryUserId,
user_arn,
user_identityInfo,
user_securityProfileIds,
user_username,
user_id,
user_hierarchyGroupId,
user_phoneConfig,
user_tags,
UserIdentityInfo (..),
newUserIdentityInfo,
userIdentityInfo_email,
userIdentityInfo_lastName,
userIdentityInfo_firstName,
UserPhoneConfig (..),
newUserPhoneConfig,
userPhoneConfig_autoAccept,
userPhoneConfig_afterContactWorkTimeLimit,
userPhoneConfig_deskPhoneNumber,
userPhoneConfig_phoneType,
UserQuickConnectConfig (..),
newUserQuickConnectConfig,
userQuickConnectConfig_userId,
userQuickConnectConfig_contactFlowId,
UserSummary (..),
newUserSummary,
userSummary_arn,
userSummary_username,
userSummary_id,
VoiceRecordingConfiguration (..),
newVoiceRecordingConfiguration,
voiceRecordingConfiguration_voiceRecordingTrack,
)
where
import Amazonka.Connect.Types.AgentStatus
import Amazonka.Connect.Types.AgentStatusState
import Amazonka.Connect.Types.AgentStatusSummary
import Amazonka.Connect.Types.AgentStatusType
import Amazonka.Connect.Types.AnswerMachineDetectionConfig
import Amazonka.Connect.Types.Attribute
import Amazonka.Connect.Types.Channel
import Amazonka.Connect.Types.ChatMessage
import Amazonka.Connect.Types.Comparison
import Amazonka.Connect.Types.ContactFlow
import Amazonka.Connect.Types.ContactFlowSummary
import Amazonka.Connect.Types.ContactFlowType
import Amazonka.Connect.Types.Credentials
import Amazonka.Connect.Types.CurrentMetric
import Amazonka.Connect.Types.CurrentMetricData
import Amazonka.Connect.Types.CurrentMetricName
import Amazonka.Connect.Types.CurrentMetricResult
import Amazonka.Connect.Types.Dimensions
import Amazonka.Connect.Types.DirectoryType
import Amazonka.Connect.Types.EncryptionConfig
import Amazonka.Connect.Types.EncryptionType
import Amazonka.Connect.Types.Filters
import Amazonka.Connect.Types.Grouping
import Amazonka.Connect.Types.HierarchyGroup
import Amazonka.Connect.Types.HierarchyGroupSummary
import Amazonka.Connect.Types.HierarchyLevel
import Amazonka.Connect.Types.HierarchyLevelUpdate
import Amazonka.Connect.Types.HierarchyPath
import Amazonka.Connect.Types.HierarchyStructure
import Amazonka.Connect.Types.HierarchyStructureUpdate
import Amazonka.Connect.Types.HistoricalMetric
import Amazonka.Connect.Types.HistoricalMetricData
import Amazonka.Connect.Types.HistoricalMetricName
import Amazonka.Connect.Types.HistoricalMetricResult
import Amazonka.Connect.Types.HoursOfOperation
import Amazonka.Connect.Types.HoursOfOperationConfig
import Amazonka.Connect.Types.HoursOfOperationDays
import Amazonka.Connect.Types.HoursOfOperationSummary
import Amazonka.Connect.Types.HoursOfOperationTimeSlice
import Amazonka.Connect.Types.Instance
import Amazonka.Connect.Types.InstanceAttributeType
import Amazonka.Connect.Types.InstanceStatus
import Amazonka.Connect.Types.InstanceStatusReason
import Amazonka.Connect.Types.InstanceStorageConfig
import Amazonka.Connect.Types.InstanceStorageResourceType
import Amazonka.Connect.Types.InstanceSummary
import Amazonka.Connect.Types.IntegrationAssociationSummary
import Amazonka.Connect.Types.IntegrationType
import Amazonka.Connect.Types.KinesisFirehoseConfig
import Amazonka.Connect.Types.KinesisStreamConfig
import Amazonka.Connect.Types.KinesisVideoStreamConfig
import Amazonka.Connect.Types.LexBot
import Amazonka.Connect.Types.LexBotConfig
import Amazonka.Connect.Types.LexV2Bot
import Amazonka.Connect.Types.LexVersion
import Amazonka.Connect.Types.MediaConcurrency
import Amazonka.Connect.Types.OutboundCallerConfig
import Amazonka.Connect.Types.ParticipantDetails
import Amazonka.Connect.Types.PhoneNumberCountryCode
import Amazonka.Connect.Types.PhoneNumberQuickConnectConfig
import Amazonka.Connect.Types.PhoneNumberSummary
import Amazonka.Connect.Types.PhoneNumberType
import Amazonka.Connect.Types.PhoneType
import Amazonka.Connect.Types.PromptSummary
import Amazonka.Connect.Types.Queue
import Amazonka.Connect.Types.QueueQuickConnectConfig
import Amazonka.Connect.Types.QueueReference
import Amazonka.Connect.Types.QueueStatus
import Amazonka.Connect.Types.QueueSummary
import Amazonka.Connect.Types.QueueType
import Amazonka.Connect.Types.QuickConnect
import Amazonka.Connect.Types.QuickConnectConfig
import Amazonka.Connect.Types.QuickConnectSummary
import Amazonka.Connect.Types.QuickConnectType
import Amazonka.Connect.Types.Reference
import Amazonka.Connect.Types.ReferenceType
import Amazonka.Connect.Types.RoutingProfile
import Amazonka.Connect.Types.RoutingProfileQueueConfig
import Amazonka.Connect.Types.RoutingProfileQueueConfigSummary
import Amazonka.Connect.Types.RoutingProfileQueueReference
import Amazonka.Connect.Types.RoutingProfileSummary
import Amazonka.Connect.Types.S3Config
import Amazonka.Connect.Types.SecurityKey
import Amazonka.Connect.Types.SecurityProfileSummary
import Amazonka.Connect.Types.SourceType
import Amazonka.Connect.Types.Statistic
import Amazonka.Connect.Types.StorageType
import Amazonka.Connect.Types.Threshold
import Amazonka.Connect.Types.TrafficType
import Amazonka.Connect.Types.Unit
import Amazonka.Connect.Types.UseCase
import Amazonka.Connect.Types.UseCaseType
import Amazonka.Connect.Types.User
import Amazonka.Connect.Types.UserIdentityInfo
import Amazonka.Connect.Types.UserPhoneConfig
import Amazonka.Connect.Types.UserQuickConnectConfig
import Amazonka.Connect.Types.UserSummary
import Amazonka.Connect.Types.VoiceRecordingConfiguration
import Amazonka.Connect.Types.VoiceRecordingTrack
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
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
"Connect",
$sel:_serviceSigner:Service :: Signer
Core._serviceSigner = Signer
Sign.v4,
$sel:_serviceEndpointPrefix:Service :: ByteString
Core._serviceEndpointPrefix = ByteString
"connect",
$sel:_serviceSigningName:Service :: ByteString
Core._serviceSigningName = ByteString
"connect",
$sel:_serviceVersion:Service :: ByteString
Core._serviceVersion = ByteString
"2017-08-08",
$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
"Connect",
$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
_InvalidContactFlowException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_InvalidContactFlowException :: Getting (First ServiceError) a ServiceError
_InvalidContactFlowException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidContactFlowException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_OutboundContactNotPermittedException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_OutboundContactNotPermittedException :: Getting (First ServiceError) a ServiceError
_OutboundContactNotPermittedException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"OutboundContactNotPermittedException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
403
_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"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidRequestException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_InvalidRequestException :: Getting (First ServiceError) a ServiceError
_InvalidRequestException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidRequestException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_DuplicateResourceException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_DuplicateResourceException :: Getting (First ServiceError) a ServiceError
_DuplicateResourceException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"DuplicateResourceException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
409
_UserNotFoundException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_UserNotFoundException :: Getting (First ServiceError) a ServiceError
_UserNotFoundException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"UserNotFoundException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
404
_ContactFlowNotPublishedException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ContactFlowNotPublishedException :: Getting (First ServiceError) a ServiceError
_ContactFlowNotPublishedException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ContactFlowNotPublishedException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
404
_DestinationNotAllowedException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_DestinationNotAllowedException :: Getting (First ServiceError) a ServiceError
_DestinationNotAllowedException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"DestinationNotAllowedException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
403
_ContactNotFoundException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ContactNotFoundException :: Getting (First ServiceError) a ServiceError
_ContactNotFoundException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ContactNotFoundException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
410
_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"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
402
_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"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
429
_InternalServiceException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_InternalServiceException :: Getting (First ServiceError) a ServiceError
_InternalServiceException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InternalServiceException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
500
_ResourceConflictException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ResourceConflictException :: Getting (First ServiceError) a ServiceError
_ResourceConflictException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ResourceConflictException"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
409
_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"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
404
_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"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
429
_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"
Getting (First ServiceError) a ServiceError
-> ((ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError -> Const (First ServiceError) ServiceError)
-> Getting (First ServiceError) a ServiceError
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Int
-> (ServiceError -> Const (First ServiceError) ServiceError)
-> ServiceError
-> Const (First ServiceError) ServiceError
forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
409