{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.WAFRegional.Types
(
wAFRegional
, _WAFInvalidAccountException
, _WAFSubscriptionNotFoundException
, _WAFReferencedItemException
, _WAFInvalidRegexPatternException
, _WAFInvalidOperationException
, _WAFNonexistentItemException
, _WAFInvalidParameterException
, _WAFLimitsExceededException
, _WAFInvalidPermissionPolicyException
, _WAFStaleDataException
, _WAFInternalErrorException
, _WAFNonexistentContainerException
, _WAFUnavailableEntityException
, _WAFDisallowedNameException
, _WAFNonEmptyEntityException
, ChangeAction (..)
, ChangeTokenStatus (..)
, ComparisonOperator (..)
, GeoMatchConstraintType (..)
, GeoMatchConstraintValue (..)
, IPSetDescriptorType (..)
, MatchFieldType (..)
, PositionalConstraint (..)
, PredicateType (..)
, RateKey (..)
, TextTransformation (..)
, WafActionType (..)
, WafOverrideActionType (..)
, WafRuleType (..)
, ActivatedRule
, activatedRule
, arOverrideAction
, arAction
, arType
, arPriority
, arRuleId
, ByteMatchSet
, byteMatchSet
, bmsName
, bmsByteMatchSetId
, bmsByteMatchTuples
, ByteMatchSetSummary
, byteMatchSetSummary
, bmssByteMatchSetId
, bmssName
, ByteMatchSetUpdate
, byteMatchSetUpdate
, bmsuAction
, bmsuByteMatchTuple
, ByteMatchTuple
, byteMatchTuple
, bmtFieldToMatch
, bmtTargetString
, bmtTextTransformation
, bmtPositionalConstraint
, FieldToMatch
, fieldToMatch
, ftmData
, ftmType
, GeoMatchConstraint
, geoMatchConstraint
, gmcType
, gmcValue
, GeoMatchSet
, geoMatchSet
, gmsName
, gmsGeoMatchSetId
, gmsGeoMatchConstraints
, GeoMatchSetSummary
, geoMatchSetSummary
, gmssGeoMatchSetId
, gmssName
, GeoMatchSetUpdate
, geoMatchSetUpdate
, gmsuAction
, gmsuGeoMatchConstraint
, 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
, RateBasedRule
, rateBasedRule
, rbrMetricName
, rbrName
, rbrRuleId
, rbrMatchPredicates
, rbrRateKey
, rbrRateLimit
, RegexMatchSet
, regexMatchSet
, rmsName
, rmsRegexMatchTuples
, rmsRegexMatchSetId
, RegexMatchSetSummary
, regexMatchSetSummary
, rmssRegexMatchSetId
, rmssName
, RegexMatchSetUpdate
, regexMatchSetUpdate
, rmsuAction
, rmsuRegexMatchTuple
, RegexMatchTuple
, regexMatchTuple
, rmtFieldToMatch
, rmtTextTransformation
, rmtRegexPatternSetId
, RegexPatternSet
, regexPatternSet
, rpsName
, rpsRegexPatternSetId
, rpsRegexPatternStrings
, RegexPatternSetSummary
, regexPatternSetSummary
, rpssRegexPatternSetId
, rpssName
, RegexPatternSetUpdate
, regexPatternSetUpdate
, rpsuAction
, rpsuRegexPatternString
, Rule
, rule
, rMetricName
, rName
, rRuleId
, rPredicates
, RuleGroup
, ruleGroup
, rgMetricName
, rgName
, rgRuleGroupId
, RuleGroupSummary
, ruleGroupSummary
, rgsRuleGroupId
, rgsName
, RuleGroupUpdate
, ruleGroupUpdate
, rguAction
, rguActivatedRule
, RuleSummary
, ruleSummary
, rsRuleId
, rsName
, RuleUpdate
, ruleUpdate
, ruAction
, ruPredicate
, SampledHTTPRequest
, sampledHTTPRequest
, shttprRuleWithinRuleGroup
, shttprAction
, shttprTimestamp
, shttprRequest
, shttprWeight
, SizeConstraint
, sizeConstraint
, scFieldToMatch
, scTextTransformation
, scComparisonOperator
, scSize
, SizeConstraintSet
, sizeConstraintSet
, scsName
, scsSizeConstraintSetId
, scsSizeConstraints
, SizeConstraintSetSummary
, sizeConstraintSetSummary
, scssSizeConstraintSetId
, scssName
, SizeConstraintSetUpdate
, sizeConstraintSetUpdate
, scsuAction
, scsuSizeConstraint
, SqlInjectionMatchSet
, sqlInjectionMatchSet
, simsName
, simsSqlInjectionMatchSetId
, simsSqlInjectionMatchTuples
, SqlInjectionMatchSetSummary
, sqlInjectionMatchSetSummary
, simssSqlInjectionMatchSetId
, simssName
, SqlInjectionMatchSetUpdate
, sqlInjectionMatchSetUpdate
, simsuAction
, simsuSqlInjectionMatchTuple
, SqlInjectionMatchTuple
, sqlInjectionMatchTuple
, simtFieldToMatch
, simtTextTransformation
, SubscribedRuleGroupSummary
, subscribedRuleGroupSummary
, srgsRuleGroupId
, srgsName
, srgsMetricName
, TimeWindow
, timeWindow
, twStartTime
, twEndTime
, WafAction
, wafAction
, waType
, WafOverrideAction
, wafOverrideAction
, woaType
, WebACL
, webACL
, waMetricName
, waName
, waWebACLId
, waDefaultAction
, waRules
, WebACLSummary
, webACLSummary
, wasWebACLId
, wasName
, WebACLUpdate
, webACLUpdate
, wauAction
, wauActivatedRule
, XSSMatchSet
, xssMatchSet
, xmsName
, xmsXSSMatchSetId
, xmsXSSMatchTuples
, XSSMatchSetSummary
, xssMatchSetSummary
, xmssXSSMatchSetId
, xmssName
, XSSMatchSetUpdate
, xssMatchSetUpdate
, xmsuAction
, xmsuXSSMatchTuple
, XSSMatchTuple
, xssMatchTuple
, xmtFieldToMatch
, xmtTextTransformation
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
import Network.AWS.WAFRegional.Types.Product
import Network.AWS.WAFRegional.Types.Sum
wAFRegional :: Service
wAFRegional =
Service
{ _svcAbbrev = "WAFRegional"
, _svcSigner = v4
, _svcPrefix = "waf-regional"
, _svcVersion = "2016-11-28"
, _svcEndpoint = defaultEndpoint wAFRegional
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError "WAFRegional"
, _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
_WAFInvalidAccountException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInvalidAccountException =
_MatchServiceError wAFRegional "WAFInvalidAccountException"
_WAFSubscriptionNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFSubscriptionNotFoundException =
_MatchServiceError wAFRegional "WAFSubscriptionNotFoundException"
_WAFReferencedItemException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFReferencedItemException =
_MatchServiceError wAFRegional "WAFReferencedItemException"
_WAFInvalidRegexPatternException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInvalidRegexPatternException =
_MatchServiceError wAFRegional "WAFInvalidRegexPatternException"
_WAFInvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInvalidOperationException =
_MatchServiceError wAFRegional "WAFInvalidOperationException"
_WAFNonexistentItemException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFNonexistentItemException =
_MatchServiceError wAFRegional "WAFNonexistentItemException"
_WAFInvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInvalidParameterException =
_MatchServiceError wAFRegional "WAFInvalidParameterException"
_WAFLimitsExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFLimitsExceededException =
_MatchServiceError wAFRegional "WAFLimitsExceededException"
_WAFInvalidPermissionPolicyException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInvalidPermissionPolicyException =
_MatchServiceError wAFRegional "WAFInvalidPermissionPolicyException"
_WAFStaleDataException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFStaleDataException = _MatchServiceError wAFRegional "WAFStaleDataException"
_WAFInternalErrorException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFInternalErrorException =
_MatchServiceError wAFRegional "WAFInternalErrorException"
_WAFNonexistentContainerException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFNonexistentContainerException =
_MatchServiceError wAFRegional "WAFNonexistentContainerException"
_WAFUnavailableEntityException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFUnavailableEntityException =
_MatchServiceError wAFRegional "WAFUnavailableEntityException"
_WAFDisallowedNameException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFDisallowedNameException =
_MatchServiceError wAFRegional "WAFDisallowedNameException"
_WAFNonEmptyEntityException :: AsError a => Getting (First ServiceError) a ServiceError
_WAFNonEmptyEntityException =
_MatchServiceError wAFRegional "WAFNonEmptyEntityException"