module Network.AWS.ELB.Types
(
eLB
, _PolicyNotFoundException
, _AccessPointNotFoundException
, _DuplicatePolicyNameException
, _InvalidConfigurationRequestException
, _SubnetNotFoundException
, _LoadBalancerAttributeNotFoundException
, _InvalidSubnetException
, _DuplicateTagKeysException
, _DuplicateListenerException
, _TooManyTagsException
, _PolicyTypeNotFoundException
, _DuplicateAccessPointNameException
, _InvalidSecurityGroupException
, _ListenerNotFoundException
, _InvalidEndPointException
, _InvalidSchemeException
, _TooManyAccessPointsException
, _TooManyPoliciesException
, _CertificateNotFoundException
, AccessLog
, accessLog
, alEmitInterval
, alS3BucketPrefix
, alS3BucketName
, alEnabled
, AdditionalAttribute
, additionalAttribute
, aaValue
, aaKey
, AppCookieStickinessPolicy
, appCookieStickinessPolicy
, acspPolicyName
, acspCookieName
, BackendServerDescription
, backendServerDescription
, bsdPolicyNames
, bsdInstancePort
, ConnectionDraining
, connectionDraining
, cdTimeout
, cdEnabled
, ConnectionSettings
, connectionSettings
, csIdleTimeout
, CrossZoneLoadBalancing
, crossZoneLoadBalancing
, czlbEnabled
, HealthCheck
, healthCheck
, hcTarget
, hcInterval
, hcTimeout
, hcUnhealthyThreshold
, hcHealthyThreshold
, Instance
, instance'
, iInstanceId
, InstanceState
, instanceState
, isInstanceId
, isState
, isReasonCode
, isDescription
, LBCookieStickinessPolicy
, lBCookieStickinessPolicy
, lbcspPolicyName
, lbcspCookieExpirationPeriod
, Listener
, listener
, lInstanceProtocol
, lSSLCertificateId
, lProtocol
, lLoadBalancerPort
, lInstancePort
, ListenerDescription
, listenerDescription
, ldPolicyNames
, ldListener
, LoadBalancerAttributes
, loadBalancerAttributes
, lbaCrossZoneLoadBalancing
, lbaAccessLog
, lbaAdditionalAttributes
, lbaConnectionSettings
, lbaConnectionDraining
, LoadBalancerDescription
, loadBalancerDescription
, lbdSourceSecurityGroup
, lbdCanonicalHostedZoneName
, lbdSecurityGroups
, lbdHealthCheck
, lbdLoadBalancerName
, lbdCreatedTime
, lbdVPCId
, lbdSubnets
, lbdAvailabilityZones
, lbdBackendServerDescriptions
, lbdCanonicalHostedZoneNameId
, lbdInstances
, lbdScheme
, lbdListenerDescriptions
, lbdDNSName
, lbdPolicies
, Policies
, policies
, pOtherPolicies
, pLBCookieStickinessPolicies
, pAppCookieStickinessPolicies
, PolicyAttribute
, policyAttribute
, paAttributeValue
, paAttributeName
, PolicyAttributeDescription
, policyAttributeDescription
, padAttributeValue
, padAttributeName
, PolicyAttributeTypeDescription
, policyAttributeTypeDescription
, patdAttributeType
, patdCardinality
, patdDefaultValue
, patdAttributeName
, patdDescription
, PolicyDescription
, policyDescription
, pdPolicyName
, pdPolicyAttributeDescriptions
, pdPolicyTypeName
, PolicyTypeDescription
, policyTypeDescription
, ptdPolicyTypeName
, ptdDescription
, ptdPolicyAttributeTypeDescriptions
, SourceSecurityGroup
, sourceSecurityGroup
, ssgOwnerAlias
, ssgGroupName
, Tag
, tag
, tagValue
, tagKey
, TagDescription
, tagDescription
, tdLoadBalancerName
, tdTags
, TagKeyOnly
, tagKeyOnly
, tkoKey
) where
import Network.AWS.ELB.Types.Product
import Network.AWS.ELB.Types.Sum
import Network.AWS.Prelude
import Network.AWS.Sign.V4
eLB :: Service
eLB =
Service
{ _svcAbbrev = "ELB"
, _svcSigner = v4
, _svcPrefix = "elasticloadbalancing"
, _svcVersion = "2012-06-01"
, _svcEndpoint = defaultEndpoint eLB
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseXMLError
, _svcRetry = retry
}
where
retry =
Exponential
{ _retryBase = 5.0e-2
, _retryGrowth = 2
, _retryAttempts = 5
, _retryCheck = check
}
check e
| has (hasCode "ThrottlingException" . hasStatus 400) e =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
_PolicyNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_PolicyNotFoundException =
_ServiceError . hasStatus 400 . hasCode "PolicyNotFound"
_AccessPointNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_AccessPointNotFoundException =
_ServiceError . hasStatus 400 . hasCode "LoadBalancerNotFound"
_DuplicatePolicyNameException :: AsError a => Getting (First ServiceError) a ServiceError
_DuplicatePolicyNameException =
_ServiceError . hasStatus 400 . hasCode "DuplicatePolicyName"
_InvalidConfigurationRequestException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidConfigurationRequestException =
_ServiceError . hasStatus 409 . hasCode "InvalidConfigurationRequest"
_SubnetNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetNotFoundException =
_ServiceError . hasStatus 400 . hasCode "SubnetNotFound"
_LoadBalancerAttributeNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_LoadBalancerAttributeNotFoundException =
_ServiceError . hasStatus 400 . hasCode "LoadBalancerAttributeNotFound"
_InvalidSubnetException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSubnetException =
_ServiceError . hasStatus 400 . hasCode "InvalidSubnet"
_DuplicateTagKeysException :: AsError a => Getting (First ServiceError) a ServiceError
_DuplicateTagKeysException =
_ServiceError . hasStatus 400 . hasCode "DuplicateTagKeys"
_DuplicateListenerException :: AsError a => Getting (First ServiceError) a ServiceError
_DuplicateListenerException =
_ServiceError . hasStatus 400 . hasCode "DuplicateListener"
_TooManyTagsException :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyTagsException = _ServiceError . hasStatus 400 . hasCode "TooManyTags"
_PolicyTypeNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_PolicyTypeNotFoundException =
_ServiceError . hasStatus 400 . hasCode "PolicyTypeNotFound"
_DuplicateAccessPointNameException :: AsError a => Getting (First ServiceError) a ServiceError
_DuplicateAccessPointNameException =
_ServiceError . hasStatus 400 . hasCode "DuplicateLoadBalancerName"
_InvalidSecurityGroupException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSecurityGroupException =
_ServiceError . hasStatus 400 . hasCode "InvalidSecurityGroup"
_ListenerNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ListenerNotFoundException =
_ServiceError . hasStatus 400 . hasCode "ListenerNotFound"
_InvalidEndPointException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidEndPointException =
_ServiceError . hasStatus 400 . hasCode "InvalidInstance"
_InvalidSchemeException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSchemeException =
_ServiceError . hasStatus 400 . hasCode "InvalidScheme"
_TooManyAccessPointsException :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyAccessPointsException =
_ServiceError . hasStatus 400 . hasCode "TooManyLoadBalancers"
_TooManyPoliciesException :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyPoliciesException =
_ServiceError . hasStatus 400 . hasCode "TooManyPolicies"
_CertificateNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_CertificateNotFoundException =
_ServiceError . hasStatus 400 . hasCode "CertificateNotFound"