module Network.AWS.DMS.Types
(
dms
, _InvalidSubnet
, _KMSKeyNotAccessibleFault
, _ReplicationSubnetGroupDoesNotCoverEnoughAZs
, _InvalidResourceStateFault
, _ResourceAlreadyExistsFault
, _InsufficientResourceCapacityFault
, _ResourceQuotaExceededFault
, _UpgradeDependencyFailureFault
, _ResourceNotFoundFault
, _StorageQuotaExceededFault
, _AccessDeniedFault
, _SubnetAlreadyInUse
, MigrationTypeValue (..)
, RefreshSchemasStatusTypeValue (..)
, ReplicationEndpointTypeValue (..)
, StartReplicationTaskTypeValue (..)
, AccountQuota
, accountQuota
, aqMax
, aqUsed
, aqAccountQuotaName
, AvailabilityZone
, availabilityZone
, azName
, Connection
, connection
, cStatus
, cReplicationInstanceARN
, cEndpointIdentifier
, cReplicationInstanceIdentifier
, cEndpointARN
, cLastFailureMessage
, Endpoint
, endpoint
, eStatus
, eServerName
, eExtraConnectionAttributes
, eEndpointType
, eUsername
, eEngineName
, eKMSKeyId
, eDatabaseName
, eEndpointIdentifier
, eEndpointARN
, ePort
, Filter
, filter'
, fName
, fValues
, OrderableReplicationInstance
, orderableReplicationInstance
, oriEngineVersion
, oriMinAllocatedStorage
, oriIncludedAllocatedStorage
, oriMaxAllocatedStorage
, oriReplicationInstanceClass
, oriDefaultAllocatedStorage
, oriStorageType
, RefreshSchemasStatus
, refreshSchemasStatus
, rssStatus
, rssLastRefreshDate
, rssReplicationInstanceARN
, rssEndpointARN
, rssLastFailureMessage
, ReplicationInstance
, replicationInstance
, riEngineVersion
, riPubliclyAccessible
, riAutoMinorVersionUpgrade
, riReplicationSubnetGroup
, riInstanceCreateTime
, riReplicationInstanceStatus
, riPreferredMaintenanceWindow
, riReplicationInstancePrivateIPAddress
, riKMSKeyId
, riAvailabilityZone
, riReplicationInstanceARN
, riAllocatedStorage
, riReplicationInstancePublicIPAddress
, riReplicationInstanceClass
, riReplicationInstanceIdentifier
, riPendingModifiedValues
, ReplicationPendingModifiedValues
, replicationPendingModifiedValues
, rpmvEngineVersion
, rpmvAllocatedStorage
, rpmvReplicationInstanceClass
, ReplicationSubnetGroup
, replicationSubnetGroup
, rsgVPCId
, rsgSubnets
, rsgReplicationSubnetGroupIdentifier
, rsgSubnetGroupStatus
, rsgReplicationSubnetGroupDescription
, ReplicationTask
, replicationTask
, rtReplicationTaskSettings
, rtStatus
, rtTargetEndpointARN
, rtReplicationTaskIdentifier
, rtReplicationTaskStartDate
, rtSourceEndpointARN
, rtTableMappings
, rtReplicationTaskCreationDate
, rtMigrationType
, rtReplicationTaskARN
, rtReplicationTaskStats
, rtReplicationInstanceARN
, rtLastFailureMessage
, ReplicationTaskStats
, replicationTaskStats
, rtsFullLoadProgressPercent
, rtsElapsedTimeMillis
, rtsTablesErrored
, rtsTablesLoaded
, rtsTablesQueued
, rtsTablesLoading
, Subnet
, subnet
, sSubnetStatus
, sSubnetIdentifier
, sSubnetAvailabilityZone
, SupportedEndpointType
, supportedEndpointType
, setEndpointType
, setEngineName
, setSupportsCDC
, TableStatistics
, tableStatistics
, tsFullLoadRows
, tsInserts
, tsSchemaName
, tsTableState
, tsDdls
, tsDeletes
, tsUpdates
, tsLastUpdateTime
, tsTableName
, Tag
, tag
, tagValue
, tagKey
) 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
, _svcRetry = retry
}
where
retry =
Exponential
{ _retryBase = 5.0e-2
, _retryGrowth = 2
, _retryAttempts = 5
, _retryCheck = check
}
check e
| 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 (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 = _ServiceError . hasCode "InvalidSubnet"
_KMSKeyNotAccessibleFault :: AsError a => Getting (First ServiceError) a ServiceError
_KMSKeyNotAccessibleFault = _ServiceError . hasCode "KMSKeyNotAccessibleFault"
_ReplicationSubnetGroupDoesNotCoverEnoughAZs :: AsError a => Getting (First ServiceError) a ServiceError
_ReplicationSubnetGroupDoesNotCoverEnoughAZs =
_ServiceError . hasCode "ReplicationSubnetGroupDoesNotCoverEnoughAZs"
_InvalidResourceStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidResourceStateFault =
_ServiceError . hasCode "InvalidResourceStateFault"
_ResourceAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceAlreadyExistsFault =
_ServiceError . hasCode "ResourceAlreadyExistsFault"
_InsufficientResourceCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError
_InsufficientResourceCapacityFault =
_ServiceError . hasCode "InsufficientResourceCapacityFault"
_ResourceQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceQuotaExceededFault =
_ServiceError . hasCode "ResourceQuotaExceededFault"
_UpgradeDependencyFailureFault :: AsError a => Getting (First ServiceError) a ServiceError
_UpgradeDependencyFailureFault =
_ServiceError . hasCode "UpgradeDependencyFailureFault"
_ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundFault = _ServiceError . hasCode "ResourceNotFoundFault"
_StorageQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_StorageQuotaExceededFault =
_ServiceError . hasCode "StorageQuotaExceededFault"
_AccessDeniedFault :: AsError a => Getting (First ServiceError) a ServiceError
_AccessDeniedFault = _ServiceError . hasCode "AccessDeniedFault"
_SubnetAlreadyInUse :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetAlreadyInUse = _ServiceError . hasCode "SubnetAlreadyInUse"