{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.Route53.Types
(
route53
, _HealthCheckVersionMismatch
, _NoSuchQueryLoggingConfig
, _HostedZoneNotPrivate
, _InvalidInput
, _HostedZoneNotEmpty
, _InvalidArgument
, _TrafficPolicyInstanceAlreadyExists
, _ConflictingTypes
, _QueryLoggingConfigAlreadyExists
, _ConcurrentModification
, _DelegationSetAlreadyReusable
, _NotAuthorizedException
, _InsufficientCloudWatchLogsResourcePolicy
, _NoSuchCloudWatchLogsLogGroup
, _PriorRequestNotComplete
, _InvalidChangeBatch
, _TooManyVPCAssociationAuthorizations
, _TrafficPolicyAlreadyExists
, _InvalidTrafficPolicyDocument
, _InvalidPaginationToken
, _DelegationSetNotReusable
, _InvalidDomainName
, _NoSuchTrafficPolicy
, _HostedZoneNotFound
, _DelegationSetInUse
, _NoSuchDelegationSet
, _HealthCheckAlreadyExists
, _TooManyTrafficPolicies
, _VPCAssociationAuthorizationNotFound
, _NoSuchGeoLocation
, _DelegationSetNotAvailable
, _VPCAssociationNotFound
, _ThrottlingException
, _NoSuchChange
, _LimitsExceeded
, _TooManyTrafficPolicyInstances
, _NoSuchTrafficPolicyInstance
, _IncompatibleVersion
, _PublicZoneVPCAssociation
, _NoSuchHostedZone
, _TooManyHostedZones
, _HealthCheckInUse
, _DelegationSetAlreadyCreated
, _ConflictingDomainExists
, _LastVPCAssociation
, _TooManyHealthChecks
, _NoSuchHealthCheck
, _TrafficPolicyInUse
, _InvalidVPCId
, _HostedZoneAlreadyExists
, _TooManyTrafficPolicyVersionsForCurrentPolicy
, module Network.AWS.Route53.Internal
, AccountLimitType (..)
, ChangeAction (..)
, ChangeStatus (..)
, CloudWatchRegion (..)
, ComparisonOperator (..)
, Failover (..)
, HealthCheckRegion (..)
, HealthCheckType (..)
, HostedZoneLimitType (..)
, InsufficientDataHealthStatus (..)
, RecordType (..)
, ResettableElementName (..)
, ReusableDelegationSetLimitType (..)
, Statistic (..)
, TagResourceType (..)
, VPCRegion (..)
, AccountLimit
, accountLimit
, alType
, alValue
, AlarmIdentifier
, alarmIdentifier
, aiRegion
, aiName
, AliasTarget
, aliasTarget
, atHostedZoneId
, atDNSName
, atEvaluateTargetHealth
, Change
, change
, cAction
, cResourceRecordSet
, ChangeBatch
, changeBatch
, cbComment
, cbChanges
, ChangeInfo
, changeInfo
, ciComment
, ciId
, ciStatus
, ciSubmittedAt
, CloudWatchAlarmConfiguration
, cloudWatchAlarmConfiguration
, cwacDimensions
, cwacEvaluationPeriods
, cwacThreshold
, cwacComparisonOperator
, cwacPeriod
, cwacMetricName
, cwacNamespace
, cwacStatistic
, DelegationSet
, delegationSet
, dsId
, dsCallerReference
, dsNameServers
, Dimension
, dimension
, dName
, dValue
, GeoLocation
, geoLocation
, glSubdivisionCode
, glCountryCode
, glContinentCode
, GeoLocationDetails
, geoLocationDetails
, gldSubdivisionName
, gldSubdivisionCode
, gldCountryName
, gldCountryCode
, gldContinentCode
, gldContinentName
, HealthCheck
, healthCheck
, hcLinkedService
, hcCloudWatchAlarmConfiguration
, hcId
, hcCallerReference
, hcHealthCheckConfig
, hcHealthCheckVersion
, HealthCheckConfig
, healthCheckConfig
, hccFailureThreshold
, hccIPAddress
, hccEnableSNI
, hccSearchString
, hccHealthThreshold
, hccRegions
, hccResourcePath
, hccInsufficientDataHealthStatus
, hccAlarmIdentifier
, hccMeasureLatency
, hccInverted
, hccFullyQualifiedDomainName
, hccChildHealthChecks
, hccRequestInterval
, hccPort
, hccType
, HealthCheckObservation
, healthCheckObservation
, hcoIPAddress
, hcoStatusReport
, hcoRegion
, HostedZone
, hostedZone
, hzLinkedService
, hzConfig
, hzResourceRecordSetCount
, hzId
, hzName
, hzCallerReference
, HostedZoneConfig
, hostedZoneConfig
, hzcPrivateZone
, hzcComment
, HostedZoneLimit
, hostedZoneLimit
, hzlType
, hzlValue
, LinkedService
, linkedService
, lsServicePrincipal
, lsDescription
, QueryLoggingConfig
, queryLoggingConfig
, qlcId
, qlcHostedZoneId
, qlcCloudWatchLogsLogGroupARN
, ResourceRecord
, resourceRecord
, rrValue
, ResourceRecordSet
, resourceRecordSet
, rrsTTL
, rrsResourceRecords
, rrsAliasTarget
, rrsWeight
, rrsTrafficPolicyInstanceId
, rrsSetIdentifier
, rrsFailover
, rrsHealthCheckId
, rrsRegion
, rrsGeoLocation
, rrsMultiValueAnswer
, rrsName
, rrsType
, ResourceTagSet
, resourceTagSet
, rtsResourceId
, rtsResourceType
, rtsTags
, ReusableDelegationSetLimit
, reusableDelegationSetLimit
, rdslType
, rdslValue
, StatusReport
, statusReport
, srStatus
, srCheckedTime
, Tag
, tag
, tagValue
, tagKey
, TrafficPolicy
, trafficPolicy
, tpComment
, tpId
, tpVersion
, tpName
, tpType
, tpDocument
, TrafficPolicyInstance
, trafficPolicyInstance
, tpiId
, tpiHostedZoneId
, tpiName
, tpiTTL
, tpiState
, tpiMessage
, tpiTrafficPolicyId
, tpiTrafficPolicyVersion
, tpiTrafficPolicyType
, TrafficPolicySummary
, trafficPolicySummary
, tpsId
, tpsName
, tpsType
, tpsLatestVersion
, tpsTrafficPolicyCount
, VPC
, vpc
, vpcVPCRegion
, vpcVPCId
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Route53.Internal
import Network.AWS.Route53.Types.Product
import Network.AWS.Route53.Types.Sum
import Network.AWS.Sign.V4
route53 :: Service
route53 =
Service
{ _svcAbbrev = "Route53"
, _svcSigner = v4
, _svcPrefix = "route53"
, _svcVersion = "2013-04-01"
, _svcEndpoint = defaultEndpoint route53
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseXMLError "Route53"
, _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 (hasCode "Throttling" . hasStatus 400) e =
Just "request_limit_exceeded"
| 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 "PriorRequestNotComplete" . hasStatus 400) e =
Just "still_processing"
| 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
_HealthCheckVersionMismatch :: AsError a => Getting (First ServiceError) a ServiceError
_HealthCheckVersionMismatch =
_MatchServiceError route53 "HealthCheckVersionMismatch" . hasStatus 409
_NoSuchQueryLoggingConfig :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchQueryLoggingConfig =
_MatchServiceError route53 "NoSuchQueryLoggingConfig" . hasStatus 404
_HostedZoneNotPrivate :: AsError a => Getting (First ServiceError) a ServiceError
_HostedZoneNotPrivate = _MatchServiceError route53 "HostedZoneNotPrivate"
_InvalidInput :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidInput = _MatchServiceError route53 "InvalidInput" . hasStatus 400
_HostedZoneNotEmpty :: AsError a => Getting (First ServiceError) a ServiceError
_HostedZoneNotEmpty =
_MatchServiceError route53 "HostedZoneNotEmpty" . hasStatus 400
_InvalidArgument :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidArgument = _MatchServiceError route53 "InvalidArgument"
_TrafficPolicyInstanceAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_TrafficPolicyInstanceAlreadyExists =
_MatchServiceError route53 "TrafficPolicyInstanceAlreadyExists" .
hasStatus 409
_ConflictingTypes :: AsError a => Getting (First ServiceError) a ServiceError
_ConflictingTypes =
_MatchServiceError route53 "ConflictingTypes" . hasStatus 400
_QueryLoggingConfigAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_QueryLoggingConfigAlreadyExists =
_MatchServiceError route53 "QueryLoggingConfigAlreadyExists" . hasStatus 409
_ConcurrentModification :: AsError a => Getting (First ServiceError) a ServiceError
_ConcurrentModification =
_MatchServiceError route53 "ConcurrentModification" . hasStatus 400
_DelegationSetAlreadyReusable :: AsError a => Getting (First ServiceError) a ServiceError
_DelegationSetAlreadyReusable =
_MatchServiceError route53 "DelegationSetAlreadyReusable"
_NotAuthorizedException :: AsError a => Getting (First ServiceError) a ServiceError
_NotAuthorizedException =
_MatchServiceError route53 "NotAuthorizedException" . hasStatus 401
_InsufficientCloudWatchLogsResourcePolicy :: AsError a => Getting (First ServiceError) a ServiceError
_InsufficientCloudWatchLogsResourcePolicy =
_MatchServiceError route53 "InsufficientCloudWatchLogsResourcePolicy" .
hasStatus 400
_NoSuchCloudWatchLogsLogGroup :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchCloudWatchLogsLogGroup =
_MatchServiceError route53 "NoSuchCloudWatchLogsLogGroup" . hasStatus 404
_PriorRequestNotComplete :: AsError a => Getting (First ServiceError) a ServiceError
_PriorRequestNotComplete =
_MatchServiceError route53 "PriorRequestNotComplete" . hasStatus 400
_InvalidChangeBatch :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidChangeBatch = _MatchServiceError route53 "InvalidChangeBatch"
_TooManyVPCAssociationAuthorizations :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyVPCAssociationAuthorizations =
_MatchServiceError route53 "TooManyVPCAssociationAuthorizations" .
hasStatus 400
_TrafficPolicyAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_TrafficPolicyAlreadyExists =
_MatchServiceError route53 "TrafficPolicyAlreadyExists" . hasStatus 409
_InvalidTrafficPolicyDocument :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidTrafficPolicyDocument =
_MatchServiceError route53 "InvalidTrafficPolicyDocument" . hasStatus 400
_InvalidPaginationToken :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidPaginationToken =
_MatchServiceError route53 "InvalidPaginationToken" . hasStatus 400
_DelegationSetNotReusable :: AsError a => Getting (First ServiceError) a ServiceError
_DelegationSetNotReusable =
_MatchServiceError route53 "DelegationSetNotReusable"
_InvalidDomainName :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDomainName =
_MatchServiceError route53 "InvalidDomainName" . hasStatus 400
_NoSuchTrafficPolicy :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchTrafficPolicy =
_MatchServiceError route53 "NoSuchTrafficPolicy" . hasStatus 404
_HostedZoneNotFound :: AsError a => Getting (First ServiceError) a ServiceError
_HostedZoneNotFound = _MatchServiceError route53 "HostedZoneNotFound"
_DelegationSetInUse :: AsError a => Getting (First ServiceError) a ServiceError
_DelegationSetInUse = _MatchServiceError route53 "DelegationSetInUse"
_NoSuchDelegationSet :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchDelegationSet = _MatchServiceError route53 "NoSuchDelegationSet"
_HealthCheckAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_HealthCheckAlreadyExists =
_MatchServiceError route53 "HealthCheckAlreadyExists" . hasStatus 409
_TooManyTrafficPolicies :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyTrafficPolicies =
_MatchServiceError route53 "TooManyTrafficPolicies" . hasStatus 400
_VPCAssociationAuthorizationNotFound :: AsError a => Getting (First ServiceError) a ServiceError
_VPCAssociationAuthorizationNotFound =
_MatchServiceError route53 "VPCAssociationAuthorizationNotFound" .
hasStatus 404
_NoSuchGeoLocation :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchGeoLocation =
_MatchServiceError route53 "NoSuchGeoLocation" . hasStatus 404
_DelegationSetNotAvailable :: AsError a => Getting (First ServiceError) a ServiceError
_DelegationSetNotAvailable =
_MatchServiceError route53 "DelegationSetNotAvailable"
_VPCAssociationNotFound :: AsError a => Getting (First ServiceError) a ServiceError
_VPCAssociationNotFound =
_MatchServiceError route53 "VPCAssociationNotFound" . hasStatus 404
_ThrottlingException :: AsError a => Getting (First ServiceError) a ServiceError
_ThrottlingException =
_MatchServiceError route53 "ThrottlingException" . hasStatus 400
_NoSuchChange :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchChange = _MatchServiceError route53 "NoSuchChange" . hasStatus 404
_LimitsExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_LimitsExceeded = _MatchServiceError route53 "LimitsExceeded"
_TooManyTrafficPolicyInstances :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyTrafficPolicyInstances =
_MatchServiceError route53 "TooManyTrafficPolicyInstances" . hasStatus 400
_NoSuchTrafficPolicyInstance :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchTrafficPolicyInstance =
_MatchServiceError route53 "NoSuchTrafficPolicyInstance" . hasStatus 404
_IncompatibleVersion :: AsError a => Getting (First ServiceError) a ServiceError
_IncompatibleVersion =
_MatchServiceError route53 "IncompatibleVersion" . hasStatus 400
_PublicZoneVPCAssociation :: AsError a => Getting (First ServiceError) a ServiceError
_PublicZoneVPCAssociation =
_MatchServiceError route53 "PublicZoneVPCAssociation" . hasStatus 400
_NoSuchHostedZone :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchHostedZone =
_MatchServiceError route53 "NoSuchHostedZone" . hasStatus 404
_TooManyHostedZones :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyHostedZones =
_MatchServiceError route53 "TooManyHostedZones" . hasStatus 400
_HealthCheckInUse :: AsError a => Getting (First ServiceError) a ServiceError
_HealthCheckInUse =
_MatchServiceError route53 "HealthCheckInUse" . hasStatus 400
_DelegationSetAlreadyCreated :: AsError a => Getting (First ServiceError) a ServiceError
_DelegationSetAlreadyCreated =
_MatchServiceError route53 "DelegationSetAlreadyCreated"
_ConflictingDomainExists :: AsError a => Getting (First ServiceError) a ServiceError
_ConflictingDomainExists = _MatchServiceError route53 "ConflictingDomainExists"
_LastVPCAssociation :: AsError a => Getting (First ServiceError) a ServiceError
_LastVPCAssociation =
_MatchServiceError route53 "LastVPCAssociation" . hasStatus 400
_TooManyHealthChecks :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyHealthChecks = _MatchServiceError route53 "TooManyHealthChecks"
_NoSuchHealthCheck :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchHealthCheck =
_MatchServiceError route53 "NoSuchHealthCheck" . hasStatus 404
_TrafficPolicyInUse :: AsError a => Getting (First ServiceError) a ServiceError
_TrafficPolicyInUse =
_MatchServiceError route53 "TrafficPolicyInUse" . hasStatus 400
_InvalidVPCId :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidVPCId = _MatchServiceError route53 "InvalidVPCId" . hasStatus 400
_HostedZoneAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_HostedZoneAlreadyExists =
_MatchServiceError route53 "HostedZoneAlreadyExists" . hasStatus 409
_TooManyTrafficPolicyVersionsForCurrentPolicy :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyTrafficPolicyVersionsForCurrentPolicy =
_MatchServiceError route53 "TooManyTrafficPolicyVersionsForCurrentPolicy" .
hasStatus 400