module Network.AWS.WAF.Types
(
wAF
, _WAFInvalidAccountException
, _WAFReferencedItemException
, _WAFInvalidOperationException
, _WAFNonexistentItemException
, _WAFInvalidParameterException
, _WAFLimitsExceededException
, _WAFStaleDataException
, _WAFInternalErrorException
, _WAFNonexistentContainerException
, _WAFDisallowedNameException
, _WAFNonEmptyEntityException
, ChangeAction (..)
, ChangeTokenStatus (..)
, IPSetDescriptorType (..)
, MatchFieldType (..)
, PositionalConstraint (..)
, PredicateType (..)
, TextTransformation (..)
, WafActionType (..)
, ActivatedRule
, activatedRule
, arPriority
, arRuleId
, arAction
, ByteMatchSet
, byteMatchSet
, bmsName
, bmsByteMatchSetId
, bmsByteMatchTuples
, ByteMatchSetSummary
, byteMatchSetSummary
, bmssByteMatchSetId
, bmssName
, ByteMatchSetUpdate
, byteMatchSetUpdate
, bmsuAction
, bmsuByteMatchTuple
, ByteMatchTuple
, byteMatchTuple
, bmtFieldToMatch
, bmtTargetString
, bmtTextTransformation
, bmtPositionalConstraint
, FieldToMatch
, fieldToMatch
, ftmData
, ftmType
, HTTPHeader
, hTTPHeader
, httphValue
, httphName
, HTTPRequest
, hTTPRequest
, httprHTTPVersion
, httprCountry
, httprURI
, httprHeaders
, httprMethod
, httprClientIP
, IPSet
, ipSet
, isName
, isIPSetId
, isIPSetDescriptors
, IPSetDescriptor
, ipSetDescriptor
, isdType
, isdValue
, IPSetSummary
, ipSetSummary
, issIPSetId
, issName
, IPSetUpdate
, ipSetUpdate
, isuAction
, isuIPSetDescriptor
, Predicate
, predicate
, pNegated
, pType
, pDataId
, Rule
, rule
, rMetricName
, rName
, rRuleId
, rPredicates
, RuleSummary
, ruleSummary
, rsRuleId
, rsName
, RuleUpdate
, ruleUpdate
, ruAction
, ruPredicate
, SampledHTTPRequest
, sampledHTTPRequest
, shttprAction
, shttprTimestamp
, shttprRequest
, shttprWeight
, SqlInjectionMatchSet
, sqlInjectionMatchSet
, simsName
, simsSqlInjectionMatchSetId
, simsSqlInjectionMatchTuples
, SqlInjectionMatchSetSummary
, sqlInjectionMatchSetSummary
, simssSqlInjectionMatchSetId
, simssName
, SqlInjectionMatchSetUpdate
, sqlInjectionMatchSetUpdate
, simsuAction
, simsuSqlInjectionMatchTuple
, SqlInjectionMatchTuple
, sqlInjectionMatchTuple
, simtFieldToMatch
, simtTextTransformation
, TimeWindow
, timeWindow
, twStartTime
, twEndTime
, WafAction
, wafAction
, waType
, WebACL
, webACL
, waMetricName
, waName
, waWebACLId
, waDefaultAction
, waRules
, WebACLSummary
, webACLSummary
, wasWebACLId
, wasName
, WebACLUpdate
, webACLUpdate
, wauAction
, wauActivatedRule
) where
import Network.AWS.Prelude
import Network.AWS.Sign.V4
import Network.AWS.WAF.Types.Product
import Network.AWS.WAF.Types.Sum
wAF :: Service
wAF =
Service
{ _svcAbbrev = "WAF"
, _svcSigner = v4
, _svcPrefix = "waf"
, _svcVersion = "2015-08-24"
, _svcEndpoint = defaultEndpoint wAF
, _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 (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
_WAFInvalidAccountException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInvalidAccountException =
_ServiceError . hasCode "WAFInvalidAccountException"
_WAFReferencedItemException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFReferencedItemException =
_ServiceError . hasCode "WAFReferencedItemException"
_WAFInvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInvalidOperationException =
_ServiceError . hasCode "WAFInvalidOperationException"
_WAFNonexistentItemException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFNonexistentItemException =
_ServiceError . hasCode "WAFNonexistentItemException"
_WAFInvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInvalidParameterException =
_ServiceError . hasCode "WAFInvalidParameterException"
_WAFLimitsExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFLimitsExceededException =
_ServiceError . hasCode "WAFLimitsExceededException"
_WAFStaleDataException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFStaleDataException = _ServiceError . hasCode "WAFStaleDataException"
_WAFInternalErrorException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInternalErrorException =
_ServiceError . hasCode "WAFInternalErrorException"
_WAFNonexistentContainerException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFNonexistentContainerException =
_ServiceError . hasCode "WAFNonexistentContainerException"
_WAFDisallowedNameException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFDisallowedNameException =
_ServiceError . hasCode "WAFDisallowedNameException"
_WAFNonEmptyEntityException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFNonEmptyEntityException =
_ServiceError . hasCode "WAFNonEmptyEntityException"