{-# LANGUAGE DisambiguateRecordFields #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SES.Types
(
defaultService,
_AccountSendingPausedException,
_AlreadyExistsException,
_CannotDeleteException,
_ConfigurationSetAlreadyExistsException,
_ConfigurationSetDoesNotExistException,
_ConfigurationSetSendingPausedException,
_CustomVerificationEmailInvalidContentException,
_CustomVerificationEmailTemplateAlreadyExistsException,
_CustomVerificationEmailTemplateDoesNotExistException,
_EventDestinationAlreadyExistsException,
_EventDestinationDoesNotExistException,
_FromEmailAddressNotVerifiedException,
_InvalidCloudWatchDestinationException,
_InvalidConfigurationSetException,
_InvalidDeliveryOptionsException,
_InvalidFirehoseDestinationException,
_InvalidLambdaFunctionException,
_InvalidPolicyException,
_InvalidRenderingParameterException,
_InvalidS3ConfigurationException,
_InvalidSNSDestinationException,
_InvalidSnsTopicException,
_InvalidTemplateException,
_InvalidTrackingOptionsException,
_LimitExceededException,
_MailFromDomainNotVerifiedException,
_MessageRejected,
_MissingRenderingAttributeException,
_ProductionAccessNotGrantedException,
_RuleDoesNotExistException,
_RuleSetDoesNotExistException,
_TemplateDoesNotExistException,
_TrackingOptionsAlreadyExistsException,
_TrackingOptionsDoesNotExistException,
BehaviorOnMXFailure (..),
BounceType (..),
BulkEmailStatus (..),
ConfigurationSetAttribute (..),
CustomMailFromStatus (..),
DimensionValueSource (..),
DsnAction (..),
EventType (..),
IdentityType (..),
InvocationType (..),
NotificationType (..),
ReceiptFilterPolicy (..),
SNSActionEncoding (..),
StopScope (..),
TlsPolicy (..),
VerificationStatus (..),
AddHeaderAction (..),
newAddHeaderAction,
addHeaderAction_headerName,
addHeaderAction_headerValue,
Body (..),
newBody,
body_html,
body_text,
BounceAction (..),
newBounceAction,
bounceAction_statusCode,
bounceAction_topicArn,
bounceAction_smtpReplyCode,
bounceAction_message,
bounceAction_sender,
BouncedRecipientInfo (..),
newBouncedRecipientInfo,
bouncedRecipientInfo_bounceType,
bouncedRecipientInfo_recipientArn,
bouncedRecipientInfo_recipientDsnFields,
bouncedRecipientInfo_recipient,
BulkEmailDestination (..),
newBulkEmailDestination,
bulkEmailDestination_replacementTags,
bulkEmailDestination_replacementTemplateData,
bulkEmailDestination_destination,
BulkEmailDestinationStatus (..),
newBulkEmailDestinationStatus,
bulkEmailDestinationStatus_error,
bulkEmailDestinationStatus_messageId,
bulkEmailDestinationStatus_status,
CloudWatchDestination (..),
newCloudWatchDestination,
cloudWatchDestination_dimensionConfigurations,
CloudWatchDimensionConfiguration (..),
newCloudWatchDimensionConfiguration,
cloudWatchDimensionConfiguration_dimensionName,
cloudWatchDimensionConfiguration_dimensionValueSource,
cloudWatchDimensionConfiguration_defaultDimensionValue,
ConfigurationSet (..),
newConfigurationSet,
configurationSet_name,
Content (..),
newContent,
content_charset,
content_data,
CustomVerificationEmailTemplate (..),
newCustomVerificationEmailTemplate,
customVerificationEmailTemplate_failureRedirectionURL,
customVerificationEmailTemplate_fromEmailAddress,
customVerificationEmailTemplate_successRedirectionURL,
customVerificationEmailTemplate_templateName,
customVerificationEmailTemplate_templateSubject,
DeliveryOptions (..),
newDeliveryOptions,
deliveryOptions_tlsPolicy,
Destination (..),
newDestination,
destination_bccAddresses,
destination_ccAddresses,
destination_toAddresses,
EventDestination (..),
newEventDestination,
eventDestination_cloudWatchDestination,
eventDestination_enabled,
eventDestination_kinesisFirehoseDestination,
eventDestination_sNSDestination,
eventDestination_name,
eventDestination_matchingEventTypes,
ExtensionField (..),
newExtensionField,
extensionField_name,
extensionField_value,
IdentityDkimAttributes (..),
newIdentityDkimAttributes,
identityDkimAttributes_dkimTokens,
identityDkimAttributes_dkimEnabled,
identityDkimAttributes_dkimVerificationStatus,
IdentityMailFromDomainAttributes (..),
newIdentityMailFromDomainAttributes,
identityMailFromDomainAttributes_mailFromDomain,
identityMailFromDomainAttributes_mailFromDomainStatus,
identityMailFromDomainAttributes_behaviorOnMXFailure,
IdentityNotificationAttributes (..),
newIdentityNotificationAttributes,
identityNotificationAttributes_headersInBounceNotificationsEnabled,
identityNotificationAttributes_headersInComplaintNotificationsEnabled,
identityNotificationAttributes_headersInDeliveryNotificationsEnabled,
identityNotificationAttributes_bounceTopic,
identityNotificationAttributes_complaintTopic,
identityNotificationAttributes_deliveryTopic,
identityNotificationAttributes_forwardingEnabled,
IdentityVerificationAttributes (..),
newIdentityVerificationAttributes,
identityVerificationAttributes_verificationToken,
identityVerificationAttributes_verificationStatus,
KinesisFirehoseDestination (..),
newKinesisFirehoseDestination,
kinesisFirehoseDestination_iAMRoleARN,
kinesisFirehoseDestination_deliveryStreamARN,
LambdaAction (..),
newLambdaAction,
lambdaAction_invocationType,
lambdaAction_topicArn,
lambdaAction_functionArn,
Message (..),
newMessage,
message_subject,
message_body,
MessageDsn (..),
newMessageDsn,
messageDsn_arrivalDate,
messageDsn_extensionFields,
messageDsn_reportingMta,
MessageTag (..),
newMessageTag,
messageTag_name,
messageTag_value,
RawMessage (..),
newRawMessage,
rawMessage_data,
ReceiptAction (..),
newReceiptAction,
receiptAction_addHeaderAction,
receiptAction_bounceAction,
receiptAction_lambdaAction,
receiptAction_s3Action,
receiptAction_sNSAction,
receiptAction_stopAction,
receiptAction_workmailAction,
ReceiptFilter (..),
newReceiptFilter,
receiptFilter_name,
receiptFilter_ipFilter,
ReceiptIpFilter (..),
newReceiptIpFilter,
receiptIpFilter_policy,
receiptIpFilter_cidr,
ReceiptRule (..),
newReceiptRule,
receiptRule_actions,
receiptRule_enabled,
receiptRule_recipients,
receiptRule_scanEnabled,
receiptRule_tlsPolicy,
receiptRule_name,
ReceiptRuleSetMetadata (..),
newReceiptRuleSetMetadata,
receiptRuleSetMetadata_createdTimestamp,
receiptRuleSetMetadata_name,
RecipientDsnFields (..),
newRecipientDsnFields,
recipientDsnFields_diagnosticCode,
recipientDsnFields_extensionFields,
recipientDsnFields_finalRecipient,
recipientDsnFields_lastAttemptDate,
recipientDsnFields_remoteMta,
recipientDsnFields_action,
recipientDsnFields_status,
ReputationOptions (..),
newReputationOptions,
reputationOptions_lastFreshStart,
reputationOptions_reputationMetricsEnabled,
reputationOptions_sendingEnabled,
S3Action (..),
newS3Action,
s3Action_kmsKeyArn,
s3Action_objectKeyPrefix,
s3Action_topicArn,
s3Action_bucketName,
SNSAction (..),
newSNSAction,
sNSAction_encoding,
sNSAction_topicArn,
SNSDestination (..),
newSNSDestination,
sNSDestination_topicARN,
SendDataPoint (..),
newSendDataPoint,
sendDataPoint_bounces,
sendDataPoint_complaints,
sendDataPoint_deliveryAttempts,
sendDataPoint_rejects,
sendDataPoint_timestamp,
StopAction (..),
newStopAction,
stopAction_topicArn,
stopAction_scope,
Template (..),
newTemplate,
template_htmlPart,
template_subjectPart,
template_textPart,
template_templateName,
TemplateMetadata (..),
newTemplateMetadata,
templateMetadata_createdTimestamp,
templateMetadata_name,
TrackingOptions (..),
newTrackingOptions,
trackingOptions_customRedirectDomain,
WorkmailAction (..),
newWorkmailAction,
workmailAction_topicArn,
workmailAction_organizationArn,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Prelude as Prelude
import Amazonka.SES.Types.AddHeaderAction
import Amazonka.SES.Types.BehaviorOnMXFailure
import Amazonka.SES.Types.Body
import Amazonka.SES.Types.BounceAction
import Amazonka.SES.Types.BounceType
import Amazonka.SES.Types.BouncedRecipientInfo
import Amazonka.SES.Types.BulkEmailDestination
import Amazonka.SES.Types.BulkEmailDestinationStatus
import Amazonka.SES.Types.BulkEmailStatus
import Amazonka.SES.Types.CloudWatchDestination
import Amazonka.SES.Types.CloudWatchDimensionConfiguration
import Amazonka.SES.Types.ConfigurationSet
import Amazonka.SES.Types.ConfigurationSetAttribute
import Amazonka.SES.Types.Content
import Amazonka.SES.Types.CustomMailFromStatus
import Amazonka.SES.Types.CustomVerificationEmailTemplate
import Amazonka.SES.Types.DeliveryOptions
import Amazonka.SES.Types.Destination
import Amazonka.SES.Types.DimensionValueSource
import Amazonka.SES.Types.DsnAction
import Amazonka.SES.Types.EventDestination
import Amazonka.SES.Types.EventType
import Amazonka.SES.Types.ExtensionField
import Amazonka.SES.Types.IdentityDkimAttributes
import Amazonka.SES.Types.IdentityMailFromDomainAttributes
import Amazonka.SES.Types.IdentityNotificationAttributes
import Amazonka.SES.Types.IdentityType
import Amazonka.SES.Types.IdentityVerificationAttributes
import Amazonka.SES.Types.InvocationType
import Amazonka.SES.Types.KinesisFirehoseDestination
import Amazonka.SES.Types.LambdaAction
import Amazonka.SES.Types.Message
import Amazonka.SES.Types.MessageDsn
import Amazonka.SES.Types.MessageTag
import Amazonka.SES.Types.NotificationType
import Amazonka.SES.Types.RawMessage
import Amazonka.SES.Types.ReceiptAction
import Amazonka.SES.Types.ReceiptFilter
import Amazonka.SES.Types.ReceiptFilterPolicy
import Amazonka.SES.Types.ReceiptIpFilter
import Amazonka.SES.Types.ReceiptRule
import Amazonka.SES.Types.ReceiptRuleSetMetadata
import Amazonka.SES.Types.RecipientDsnFields
import Amazonka.SES.Types.ReputationOptions
import Amazonka.SES.Types.S3Action
import Amazonka.SES.Types.SNSAction
import Amazonka.SES.Types.SNSActionEncoding
import Amazonka.SES.Types.SNSDestination
import Amazonka.SES.Types.SendDataPoint
import Amazonka.SES.Types.StopAction
import Amazonka.SES.Types.StopScope
import Amazonka.SES.Types.Template
import Amazonka.SES.Types.TemplateMetadata
import Amazonka.SES.Types.TlsPolicy
import Amazonka.SES.Types.TrackingOptions
import Amazonka.SES.Types.VerificationStatus
import Amazonka.SES.Types.WorkmailAction
import qualified Amazonka.Sign.V4 as Sign
defaultService :: Core.Service
defaultService :: Service
defaultService =
Core.Service
{ $sel:abbrev:Service :: Abbrev
Core.abbrev = Abbrev
"SES",
$sel:signer:Service :: Signer
Core.signer = Signer
Sign.v4,
$sel:endpointPrefix:Service :: ByteString
Core.endpointPrefix = ByteString
"email",
$sel:signingName:Service :: ByteString
Core.signingName = ByteString
"ses",
$sel:version:Service :: ByteString
Core.version = ByteString
"2010-12-01",
$sel:s3AddressingStyle:Service :: S3AddressingStyle
Core.s3AddressingStyle = S3AddressingStyle
Core.S3AddressingStyleAuto,
$sel:endpoint:Service :: Region -> Endpoint
Core.endpoint = Service -> Region -> Endpoint
Core.defaultEndpoint Service
defaultService,
$sel:timeout:Service :: Maybe Seconds
Core.timeout = forall a. a -> Maybe a
Prelude.Just Seconds
70,
$sel:check:Service :: Status -> Bool
Core.check = Status -> Bool
Core.statusSuccess,
$sel:error:Service :: Status -> [Header] -> ByteStringLazy -> Error
Core.error = Abbrev -> Status -> [Header] -> ByteStringLazy -> Error
Core.parseXMLError Abbrev
"SES",
$sel:retry:Service :: Retry
Core.retry = Retry
retry
}
where
retry :: Retry
retry =
Core.Exponential
{ $sel:base:Exponential :: Double
Core.base = Double
5.0e-2,
$sel:growth:Exponential :: Int
Core.growth = Int
2,
$sel:attempts:Exponential :: Int
Core.attempts = Int
5,
$sel:check:Exponential :: ServiceError -> Maybe Text
Core.check = forall {a}. IsString a => ServiceError -> Maybe a
check
}
check :: ServiceError -> Maybe a
check ServiceError
e
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
502) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"bad_gateway"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
504) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"gateway_timeout"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
500) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"general_server_error"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
509) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"limit_exceeded"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"RequestThrottledException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"request_throttled_exception"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
503) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"service_unavailable"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"ThrottledException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"throttled_exception"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"Throttling"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"throttling"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"ThrottlingException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"throttling_exception"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode
ErrorCode
"ProvisionedThroughputExceededException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"throughput_exceeded"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
429) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"too_many_requests"
| Bool
Prelude.otherwise = forall a. Maybe a
Prelude.Nothing
_AccountSendingPausedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_AccountSendingPausedException :: forall a. AsError a => Fold a ServiceError
_AccountSendingPausedException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"AccountSendingPausedException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_AlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_AlreadyExistsException :: forall a. AsError a => Fold a ServiceError
_AlreadyExistsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"AlreadyExists"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_CannotDeleteException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_CannotDeleteException :: forall a. AsError a => Fold a ServiceError
_CannotDeleteException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"CannotDelete"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_ConfigurationSetAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ConfigurationSetAlreadyExistsException :: forall a. AsError a => Fold a ServiceError
_ConfigurationSetAlreadyExistsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ConfigurationSetAlreadyExists"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_ConfigurationSetDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ConfigurationSetDoesNotExistException :: forall a. AsError a => Fold a ServiceError
_ConfigurationSetDoesNotExistException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ConfigurationSetDoesNotExist"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_ConfigurationSetSendingPausedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ConfigurationSetSendingPausedException :: forall a. AsError a => Fold a ServiceError
_ConfigurationSetSendingPausedException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ConfigurationSetSendingPausedException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_CustomVerificationEmailInvalidContentException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_CustomVerificationEmailInvalidContentException :: forall a. AsError a => Fold a ServiceError
_CustomVerificationEmailInvalidContentException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"CustomVerificationEmailInvalidContent"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_CustomVerificationEmailTemplateAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_CustomVerificationEmailTemplateAlreadyExistsException :: forall a. AsError a => Fold a ServiceError
_CustomVerificationEmailTemplateAlreadyExistsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"CustomVerificationEmailTemplateAlreadyExists"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_CustomVerificationEmailTemplateDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_CustomVerificationEmailTemplateDoesNotExistException :: forall a. AsError a => Fold a ServiceError
_CustomVerificationEmailTemplateDoesNotExistException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"CustomVerificationEmailTemplateDoesNotExist"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_EventDestinationAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_EventDestinationAlreadyExistsException :: forall a. AsError a => Fold a ServiceError
_EventDestinationAlreadyExistsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"EventDestinationAlreadyExists"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_EventDestinationDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_EventDestinationDoesNotExistException :: forall a. AsError a => Fold a ServiceError
_EventDestinationDoesNotExistException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"EventDestinationDoesNotExist"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_FromEmailAddressNotVerifiedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_FromEmailAddressNotVerifiedException :: forall a. AsError a => Fold a ServiceError
_FromEmailAddressNotVerifiedException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"FromEmailAddressNotVerified"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidCloudWatchDestinationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidCloudWatchDestinationException :: forall a. AsError a => Fold a ServiceError
_InvalidCloudWatchDestinationException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidCloudWatchDestination"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidConfigurationSetException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidConfigurationSetException :: forall a. AsError a => Fold a ServiceError
_InvalidConfigurationSetException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidConfigurationSet"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidDeliveryOptionsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidDeliveryOptionsException :: forall a. AsError a => Fold a ServiceError
_InvalidDeliveryOptionsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidDeliveryOptions"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidFirehoseDestinationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidFirehoseDestinationException :: forall a. AsError a => Fold a ServiceError
_InvalidFirehoseDestinationException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidFirehoseDestination"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidLambdaFunctionException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidLambdaFunctionException :: forall a. AsError a => Fold a ServiceError
_InvalidLambdaFunctionException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidLambdaFunction"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidPolicyException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidPolicyException :: forall a. AsError a => Fold a ServiceError
_InvalidPolicyException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidPolicy"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidRenderingParameterException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidRenderingParameterException :: forall a. AsError a => Fold a ServiceError
_InvalidRenderingParameterException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidRenderingParameter"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidS3ConfigurationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidS3ConfigurationException :: forall a. AsError a => Fold a ServiceError
_InvalidS3ConfigurationException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidS3Configuration"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidSNSDestinationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidSNSDestinationException :: forall a. AsError a => Fold a ServiceError
_InvalidSNSDestinationException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidSNSDestination"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidSnsTopicException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidSnsTopicException :: forall a. AsError a => Fold a ServiceError
_InvalidSnsTopicException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidSnsTopic"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidTemplateException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidTemplateException :: forall a. AsError a => Fold a ServiceError
_InvalidTemplateException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidTemplate"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_InvalidTrackingOptionsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidTrackingOptionsException :: forall a. AsError a => Fold a ServiceError
_InvalidTrackingOptionsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidTrackingOptions"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_LimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_LimitExceededException :: forall a. AsError a => Fold a ServiceError
_LimitExceededException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"LimitExceeded"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_MailFromDomainNotVerifiedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_MailFromDomainNotVerifiedException :: forall a. AsError a => Fold a ServiceError
_MailFromDomainNotVerifiedException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"MailFromDomainNotVerifiedException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_MessageRejected :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_MessageRejected :: forall a. AsError a => Fold a ServiceError
_MessageRejected =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"MessageRejected"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_MissingRenderingAttributeException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_MissingRenderingAttributeException :: forall a. AsError a => Fold a ServiceError
_MissingRenderingAttributeException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"MissingRenderingAttribute"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_ProductionAccessNotGrantedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ProductionAccessNotGrantedException :: forall a. AsError a => Fold a ServiceError
_ProductionAccessNotGrantedException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ProductionAccessNotGranted"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_RuleDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_RuleDoesNotExistException :: forall a. AsError a => Fold a ServiceError
_RuleDoesNotExistException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"RuleDoesNotExist"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_RuleSetDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_RuleSetDoesNotExistException :: forall a. AsError a => Fold a ServiceError
_RuleSetDoesNotExistException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"RuleSetDoesNotExist"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_TemplateDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TemplateDoesNotExistException :: forall a. AsError a => Fold a ServiceError
_TemplateDoesNotExistException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TemplateDoesNotExist"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_TrackingOptionsAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TrackingOptionsAlreadyExistsException :: forall a. AsError a => Fold a ServiceError
_TrackingOptionsAlreadyExistsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TrackingOptionsAlreadyExistsException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_TrackingOptionsDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TrackingOptionsDoesNotExistException :: forall a. AsError a => Fold a ServiceError
_TrackingOptionsDoesNotExistException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TrackingOptionsDoesNotExistException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400