{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.DMS.Types
(
dms
, _InvalidSubnet
, _KMSKeyNotAccessibleFault
, _ReplicationSubnetGroupDoesNotCoverEnoughAZs
, _InvalidResourceStateFault
, _InvalidCertificateFault
, _SNSNoAuthorizationFault
, _ResourceAlreadyExistsFault
, _InsufficientResourceCapacityFault
, _SNSInvalidTopicFault
, _ResourceQuotaExceededFault
, _UpgradeDependencyFailureFault
, _ResourceNotFoundFault
, _StorageQuotaExceededFault
, _AccessDeniedFault
, _SubnetAlreadyInUse
, AuthMechanismValue (..)
, AuthTypeValue (..)
, CompressionTypeValue (..)
, DmsSSLModeValue (..)
, MigrationTypeValue (..)
, NestingLevelValue (..)
, RefreshSchemasStatusTypeValue (..)
, ReplicationEndpointTypeValue (..)
, SourceType (..)
, StartReplicationTaskTypeValue (..)
, AccountQuota
, accountQuota
, aqMax
, aqUsed
, aqAccountQuotaName
, AvailabilityZone
, availabilityZone
, azName
, Certificate
, certificate
, cCertificateOwner
, cSigningAlgorithm
, cValidFromDate
, cCertificatePem
, cCertificateARN
, cCertificateCreationDate
, cCertificateIdentifier
, cCertificateWallet
, cKeyLength
, cValidToDate
, Connection
, connection
, cStatus
, cReplicationInstanceARN
, cEndpointIdentifier
, cReplicationInstanceIdentifier
, cEndpointARN
, cLastFailureMessage
, DynamoDBSettings
, dynamoDBSettings
, ddsServiceAccessRoleARN
, Endpoint
, endpoint
, eStatus
, eServerName
, eCertificateARN
, eServiceAccessRoleARN
, eEngineDisplayName
, eExtraConnectionAttributes
, eEndpointType
, eUsername
, eExternalTableDefinition
, eEngineName
, eKMSKeyId
, eMongoDBSettings
, eSSLMode
, eDatabaseName
, eS3Settings
, eEndpointIdentifier
, eExternalId
, eDynamoDBSettings
, eEndpointARN
, ePort
, Event
, event
, eSourceType
, eSourceIdentifier
, eDate
, eEventCategories
, eMessage
, EventCategoryGroup
, eventCategoryGroup
, ecgSourceType
, ecgEventCategories
, EventSubscription
, eventSubscription
, esStatus
, esCustomerAWSId
, esCustSubscriptionId
, esSNSTopicARN
, esEnabled
, esSourceType
, esSubscriptionCreationTime
, esEventCategoriesList
, esSourceIdsList
, Filter
, filter'
, fName
, fValues
, MongoDBSettings
, mongoDBSettings
, mdsServerName
, mdsAuthMechanism
, mdsUsername
, mdsKMSKeyId
, mdsPassword
, mdsNestingLevel
, mdsDatabaseName
, mdsDocsToInvestigate
, mdsAuthSource
, mdsExtractDocId
, mdsAuthType
, mdsPort
, OrderableReplicationInstance
, orderableReplicationInstance
, oriEngineVersion
, oriMinAllocatedStorage
, oriIncludedAllocatedStorage
, oriMaxAllocatedStorage
, oriReplicationInstanceClass
, oriDefaultAllocatedStorage
, oriStorageType
, RefreshSchemasStatus
, refreshSchemasStatus
, rssStatus
, rssLastRefreshDate
, rssReplicationInstanceARN
, rssEndpointARN
, rssLastFailureMessage
, ReplicationInstance
, replicationInstance
, riEngineVersion
, riPubliclyAccessible
, riAutoMinorVersionUpgrade
, riReplicationInstancePublicIPAddresses
, riReplicationSubnetGroup
, riInstanceCreateTime
, riFreeUntil
, riReplicationInstanceStatus
, riReplicationInstancePrivateIPAddresses
, riPreferredMaintenanceWindow
, riReplicationInstancePrivateIPAddress
, riKMSKeyId
, riAvailabilityZone
, riVPCSecurityGroups
, riMultiAZ
, riSecondaryAvailabilityZone
, riReplicationInstanceARN
, riAllocatedStorage
, riReplicationInstancePublicIPAddress
, riReplicationInstanceClass
, riReplicationInstanceIdentifier
, riPendingModifiedValues
, ReplicationInstanceTaskLog
, replicationInstanceTaskLog
, ritlReplicationTaskName
, ritlReplicationTaskARN
, ritlReplicationInstanceTaskLogSize
, ReplicationPendingModifiedValues
, replicationPendingModifiedValues
, rpmvEngineVersion
, rpmvMultiAZ
, rpmvAllocatedStorage
, rpmvReplicationInstanceClass
, ReplicationSubnetGroup
, replicationSubnetGroup
, rsgVPCId
, rsgSubnets
, rsgReplicationSubnetGroupIdentifier
, rsgSubnetGroupStatus
, rsgReplicationSubnetGroupDescription
, ReplicationTask
, replicationTask
, rReplicationTaskSettings
, rStatus
, rStopReason
, rTargetEndpointARN
, rReplicationTaskIdentifier
, rCdcStartPosition
, rReplicationTaskStartDate
, rSourceEndpointARN
, rRecoveryCheckpoint
, rTableMappings
, rReplicationTaskCreationDate
, rMigrationType
, rReplicationTaskARN
, rCdcStopPosition
, rReplicationTaskStats
, rReplicationInstanceARN
, rLastFailureMessage
, ReplicationTaskAssessmentResult
, replicationTaskAssessmentResult
, rtarAssessmentResults
, rtarAssessmentResultsFile
, rtarReplicationTaskIdentifier
, rtarAssessmentStatus
, rtarS3ObjectURL
, rtarReplicationTaskLastAssessmentDate
, rtarReplicationTaskARN
, ReplicationTaskStats
, replicationTaskStats
, rtsFullLoadProgressPercent
, rtsElapsedTimeMillis
, rtsTablesErrored
, rtsTablesLoaded
, rtsTablesQueued
, rtsTablesLoading
, S3Settings
, s3Settings
, ssCSVDelimiter
, ssServiceAccessRoleARN
, ssBucketFolder
, ssExternalTableDefinition
, ssBucketName
, ssCSVRowDelimiter
, ssCompressionType
, Subnet
, subnet
, sSubnetStatus
, sSubnetIdentifier
, sSubnetAvailabilityZone
, SupportedEndpointType
, supportedEndpointType
, setEngineDisplayName
, setEndpointType
, setEngineName
, setSupportsCDC
, TableStatistics
, tableStatistics
, tsValidationState
, tsFullLoadRows
, tsInserts
, tsFullLoadCondtnlChkFailedRows
, tsValidationFailedRecords
, tsValidationSuspendedRecords
, tsSchemaName
, tsTableState
, tsFullLoadErrorRows
, tsDdls
, tsDeletes
, tsUpdates
, tsValidationPendingRecords
, tsLastUpdateTime
, tsTableName
, TableToReload
, tableToReload
, ttrSchemaName
, ttrTableName
, Tag
, tag
, tagValue
, tagKey
, VPCSecurityGroupMembership
, vpcSecurityGroupMembership
, vsgmStatus
, vsgmVPCSecurityGroupId
) where
import Network.AWS.DMS.Types.Product
import Network.AWS.DMS.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
dms :: Service
dms =
Service
{ _svcAbbrev = "DMS"
, _svcSigner = v4
, _svcPrefix = "dms"
, _svcVersion = "2016-01-01"
, _svcEndpoint = defaultEndpoint dms
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError "DMS"
, _svcRetry = retry
}
where
retry =
Exponential
{ _retryBase = 5.0e-2
, _retryGrowth = 2
, _retryAttempts = 5
, _retryCheck = check
}
check e
| has (hasCode "ThrottledException" . hasStatus 400) e =
Just "throttled_exception"
| has (hasStatus 429) e = Just "too_many_requests"
| has (hasCode "ThrottlingException" . hasStatus 400) e =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
| has (hasCode "RequestThrottledException" . hasStatus 400) e =
Just "request_throttled_exception"
| has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
_InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSubnet = _MatchServiceError dms "InvalidSubnet"
_KMSKeyNotAccessibleFault :: AsError a => Getting (First ServiceError) a ServiceError
_KMSKeyNotAccessibleFault = _MatchServiceError dms "KMSKeyNotAccessibleFault"
_ReplicationSubnetGroupDoesNotCoverEnoughAZs :: AsError a => Getting (First ServiceError) a ServiceError
_ReplicationSubnetGroupDoesNotCoverEnoughAZs =
_MatchServiceError dms "ReplicationSubnetGroupDoesNotCoverEnoughAZs"
_InvalidResourceStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidResourceStateFault = _MatchServiceError dms "InvalidResourceStateFault"
_InvalidCertificateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCertificateFault = _MatchServiceError dms "InvalidCertificateFault"
_SNSNoAuthorizationFault :: AsError a => Getting (First ServiceError) a ServiceError
_SNSNoAuthorizationFault = _MatchServiceError dms "SNSNoAuthorizationFault"
_ResourceAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceAlreadyExistsFault =
_MatchServiceError dms "ResourceAlreadyExistsFault"
_InsufficientResourceCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError
_InsufficientResourceCapacityFault =
_MatchServiceError dms "InsufficientResourceCapacityFault"
_SNSInvalidTopicFault :: AsError a => Getting (First ServiceError) a ServiceError
_SNSInvalidTopicFault = _MatchServiceError dms "SNSInvalidTopicFault"
_ResourceQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceQuotaExceededFault =
_MatchServiceError dms "ResourceQuotaExceededFault"
_UpgradeDependencyFailureFault :: AsError a => Getting (First ServiceError) a ServiceError
_UpgradeDependencyFailureFault =
_MatchServiceError dms "UpgradeDependencyFailureFault"
_ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundFault = _MatchServiceError dms "ResourceNotFoundFault"
_StorageQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_StorageQuotaExceededFault = _MatchServiceError dms "StorageQuotaExceededFault"
_AccessDeniedFault :: AsError a => Getting (First ServiceError) a ServiceError
_AccessDeniedFault = _MatchServiceError dms "AccessDeniedFault"
_SubnetAlreadyInUse :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetAlreadyInUse = _MatchServiceError dms "SubnetAlreadyInUse"