module Network.AWS.CloudFront.Types
(
cloudFront
, _InvalidErrorCode
, _TooManyCacheBehaviors
, _TooManyCloudFrontOriginAccessIdentities
, _InvalidOriginAccessIdentity
, _DistributionNotDisabled
, _NoSuchStreamingDistribution
, _InconsistentQuantities
, _InvalidArgument
, _TooManyInvalidationsInProgress
, _TooManyDistributionCNAMEs
, _NoSuchCloudFrontOriginAccessIdentity
, _CloudFrontOriginAccessIdentityInUse
, _TooManyStreamingDistributions
, _BatchTooLarge
, _TooManyCookieNamesInWhiteList
, _InvalidForwardCookies
, _TooManyTrustedSigners
, _InvalidOrigin
, _NoSuchInvalidation
, _NoSuchOrigin
, _InvalidTTLOrder
, _StreamingDistributionNotDisabled
, _TooManyHeadersInForwardedValues
, _TooManyStreamingDistributionCNAMEs
, _InvalidRequiredProtocol
, _TooManyDistributions
, _TooManyCertificates
, _DistributionAlreadyExists
, _MissingBody
, _IllegalUpdate
, _InvalidIfMatchVersion
, _PreconditionFailed
, _InvalidResponseCode
, _InvalidHeadersForS3Origin
, _CNAMEAlreadyExists
, _TrustedSignerDoesNotExist
, _InvalidProtocolSettings
, _CloudFrontOriginAccessIdentityAlreadyExists
, _TooManyOrigins
, _InvalidRelativePath
, _StreamingDistributionAlreadyExists
, _InvalidMinimumProtocolVersion
, _AccessDenied
, _InvalidViewerCertificate
, _NoSuchDistribution
, _InvalidDefaultRootObject
, _InvalidGeoRestrictionParameter
, _InvalidLocationCode
, GeoRestrictionType (..)
, ItemSelection (..)
, Method (..)
, MinimumProtocolVersion (..)
, OriginProtocolPolicy (..)
, PriceClass (..)
, SSLSupportMethod (..)
, ViewerProtocolPolicy (..)
, ActiveTrustedSigners
, activeTrustedSigners
, atsItems
, atsEnabled
, atsQuantity
, Aliases
, aliases
, aItems
, aQuantity
, AllowedMethods
, allowedMethods
, amCachedMethods
, amQuantity
, amItems
, CacheBehavior
, cacheBehavior
, cbAllowedMethods
, cbMaxTTL
, cbSmoothStreaming
, cbDefaultTTL
, cbPathPattern
, cbTargetOriginId
, cbForwardedValues
, cbTrustedSigners
, cbViewerProtocolPolicy
, cbMinTTL
, CacheBehaviors
, cacheBehaviors
, cbItems
, cbQuantity
, CachedMethods
, cachedMethods
, cmQuantity
, cmItems
, CloudFrontOriginAccessIdentity
, cloudFrontOriginAccessIdentity
, cfoaiCloudFrontOriginAccessIdentityConfig
, cfoaiId
, cfoaiS3CanonicalUserId
, CloudFrontOriginAccessIdentityConfig
, cloudFrontOriginAccessIdentityConfig
, cfoaicCallerReference
, cfoaicComment
, CloudFrontOriginAccessIdentityList
, cloudFrontOriginAccessIdentityList
, cfoailItems
, cfoailNextMarker
, cfoailMarker
, cfoailMaxItems
, cfoailIsTruncated
, cfoailQuantity
, CloudFrontOriginAccessIdentitySummary
, cloudFrontOriginAccessIdentitySummary
, cfoaisId
, cfoaisS3CanonicalUserId
, cfoaisComment
, CookieNames
, cookieNames
, cnItems
, cnQuantity
, CookiePreference
, cookiePreference
, cpWhitelistedNames
, cpForward
, CustomErrorResponse
, customErrorResponse
, ceResponsePagePath
, ceResponseCode
, ceErrorCachingMinTTL
, ceErrorCode
, CustomErrorResponses
, customErrorResponses
, cerItems
, cerQuantity
, CustomOriginConfig
, customOriginConfig
, cocHTTPPort
, cocHTTPSPort
, cocOriginProtocolPolicy
, DefaultCacheBehavior
, defaultCacheBehavior
, dcbAllowedMethods
, dcbMaxTTL
, dcbSmoothStreaming
, dcbDefaultTTL
, dcbTargetOriginId
, dcbForwardedValues
, dcbTrustedSigners
, dcbViewerProtocolPolicy
, dcbMinTTL
, Distribution
, distribution
, dId
, dStatus
, dLastModifiedTime
, dInProgressInvalidationBatches
, dDomainName
, dActiveTrustedSigners
, dDistributionConfig
, DistributionConfig
, distributionConfig
, dcAliases
, dcDefaultRootObject
, dcPriceClass
, dcCustomErrorResponses
, dcViewerCertificate
, dcRestrictions
, dcLogging
, dcCacheBehaviors
, dcCallerReference
, dcOrigins
, dcDefaultCacheBehavior
, dcComment
, dcEnabled
, DistributionList
, distributionList
, dlItems
, dlNextMarker
, dlMarker
, dlMaxItems
, dlIsTruncated
, dlQuantity
, DistributionSummary
, distributionSummary
, dsId
, dsStatus
, dsLastModifiedTime
, dsDomainName
, dsAliases
, dsOrigins
, dsDefaultCacheBehavior
, dsCacheBehaviors
, dsCustomErrorResponses
, dsComment
, dsPriceClass
, dsEnabled
, dsViewerCertificate
, dsRestrictions
, ForwardedValues
, forwardedValues
, fvHeaders
, fvQueryString
, fvCookies
, GeoRestriction
, geoRestriction
, grItems
, grRestrictionType
, grQuantity
, Headers
, headers
, hItems
, hQuantity
, Invalidation
, invalidation
, iId
, iStatus
, iCreateTime
, iInvalidationBatch
, InvalidationBatch
, invalidationBatch
, ibPaths
, ibCallerReference
, InvalidationList
, invalidationList
, ilItems
, ilNextMarker
, ilMarker
, ilMaxItems
, ilIsTruncated
, ilQuantity
, InvalidationSummary
, invalidationSummary
, isId
, isCreateTime
, isStatus
, KeyPairIds
, keyPairIds
, kpiItems
, kpiQuantity
, LoggingConfig
, loggingConfig
, lcEnabled
, lcIncludeCookies
, lcBucket
, lcPrefix
, Origin
, origin
, oCustomOriginConfig
, oS3OriginConfig
, oOriginPath
, oId
, oDomainName
, Origins
, origins
, oItems
, oQuantity
, Paths
, paths
, pItems
, pQuantity
, Restrictions
, restrictions
, rGeoRestriction
, S3Origin
, s3Origin
, soDomainName
, soOriginAccessIdentity
, S3OriginConfig
, s3OriginConfig
, socOriginAccessIdentity
, Signer
, signer
, sAWSAccountNumber
, sKeyPairIds
, StreamingDistribution
, streamingDistribution
, sdLastModifiedTime
, sdId
, sdStatus
, sdDomainName
, sdActiveTrustedSigners
, sdStreamingDistributionConfig
, StreamingDistributionConfig
, streamingDistributionConfig
, sdcAliases
, sdcPriceClass
, sdcLogging
, sdcCallerReference
, sdcS3Origin
, sdcComment
, sdcTrustedSigners
, sdcEnabled
, StreamingDistributionList
, streamingDistributionList
, sdlItems
, sdlNextMarker
, sdlMarker
, sdlMaxItems
, sdlIsTruncated
, sdlQuantity
, StreamingDistributionSummary
, streamingDistributionSummary
, sdsId
, sdsStatus
, sdsLastModifiedTime
, sdsDomainName
, sdsS3Origin
, sdsAliases
, sdsTrustedSigners
, sdsComment
, sdsPriceClass
, sdsEnabled
, StreamingLoggingConfig
, streamingLoggingConfig
, slcEnabled
, slcBucket
, slcPrefix
, TrustedSigners
, trustedSigners
, tsItems
, tsEnabled
, tsQuantity
, ViewerCertificate
, viewerCertificate
, vcSSLSupportMethod
, vcMinimumProtocolVersion
, vcIAMCertificateId
, vcCloudFrontDefaultCertificate
) where
import Network.AWS.CloudFront.Types.Product
import Network.AWS.CloudFront.Types.Sum
import Network.AWS.Prelude
import Network.AWS.Sign.V4
cloudFront :: Service
cloudFront =
Service
{ _svcAbbrev = "CloudFront"
, _svcSigner = v4
, _svcPrefix = "cloudfront"
, _svcVersion = "2015-04-17"
, _svcEndpoint = defaultEndpoint cloudFront
, _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
_InvalidErrorCode :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidErrorCode = _ServiceError . hasStatus 400 . hasCode "InvalidErrorCode"
_TooManyCacheBehaviors :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyCacheBehaviors =
_ServiceError . hasStatus 400 . hasCode "TooManyCacheBehaviors"
_TooManyCloudFrontOriginAccessIdentities :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyCloudFrontOriginAccessIdentities =
_ServiceError .
hasStatus 400 . hasCode "TooManyCloudFrontOriginAccessIdentities"
_InvalidOriginAccessIdentity :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidOriginAccessIdentity =
_ServiceError . hasStatus 400 . hasCode "InvalidOriginAccessIdentity"
_DistributionNotDisabled :: AsError a => Getting (First ServiceError) a ServiceError
_DistributionNotDisabled =
_ServiceError . hasStatus 409 . hasCode "DistributionNotDisabled"
_NoSuchStreamingDistribution :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchStreamingDistribution =
_ServiceError . hasStatus 404 . hasCode "NoSuchStreamingDistribution"
_InconsistentQuantities :: AsError a => Getting (First ServiceError) a ServiceError
_InconsistentQuantities =
_ServiceError . hasStatus 400 . hasCode "InconsistentQuantities"
_InvalidArgument :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidArgument = _ServiceError . hasStatus 400 . hasCode "InvalidArgument"
_TooManyInvalidationsInProgress :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyInvalidationsInProgress =
_ServiceError . hasStatus 400 . hasCode "TooManyInvalidationsInProgress"
_TooManyDistributionCNAMEs :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyDistributionCNAMEs =
_ServiceError . hasStatus 400 . hasCode "TooManyDistributionCNAMEs"
_NoSuchCloudFrontOriginAccessIdentity :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchCloudFrontOriginAccessIdentity =
_ServiceError .
hasStatus 404 . hasCode "NoSuchCloudFrontOriginAccessIdentity"
_CloudFrontOriginAccessIdentityInUse :: AsError a => Getting (First ServiceError) a ServiceError
_CloudFrontOriginAccessIdentityInUse =
_ServiceError .
hasStatus 409 . hasCode "CloudFrontOriginAccessIdentityInUse"
_TooManyStreamingDistributions :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyStreamingDistributions =
_ServiceError . hasStatus 400 . hasCode "TooManyStreamingDistributions"
_BatchTooLarge :: AsError a => Getting (First ServiceError) a ServiceError
_BatchTooLarge = _ServiceError . hasStatus 413 . hasCode "BatchTooLarge"
_TooManyCookieNamesInWhiteList :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyCookieNamesInWhiteList =
_ServiceError . hasStatus 400 . hasCode "TooManyCookieNamesInWhiteList"
_InvalidForwardCookies :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidForwardCookies =
_ServiceError . hasStatus 400 . hasCode "InvalidForwardCookies"
_TooManyTrustedSigners :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyTrustedSigners =
_ServiceError . hasStatus 400 . hasCode "TooManyTrustedSigners"
_InvalidOrigin :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidOrigin = _ServiceError . hasStatus 400 . hasCode "InvalidOrigin"
_NoSuchInvalidation :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchInvalidation =
_ServiceError . hasStatus 404 . hasCode "NoSuchInvalidation"
_NoSuchOrigin :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchOrigin = _ServiceError . hasStatus 404 . hasCode "NoSuchOrigin"
_InvalidTTLOrder :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidTTLOrder = _ServiceError . hasStatus 400 . hasCode "InvalidTTLOrder"
_StreamingDistributionNotDisabled :: AsError a => Getting (First ServiceError) a ServiceError
_StreamingDistributionNotDisabled =
_ServiceError . hasStatus 409 . hasCode "StreamingDistributionNotDisabled"
_TooManyHeadersInForwardedValues :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyHeadersInForwardedValues =
_ServiceError . hasStatus 400 . hasCode "TooManyHeadersInForwardedValues"
_TooManyStreamingDistributionCNAMEs :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyStreamingDistributionCNAMEs =
_ServiceError .
hasStatus 400 . hasCode "TooManyStreamingDistributionCNAMEs"
_InvalidRequiredProtocol :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidRequiredProtocol =
_ServiceError . hasStatus 400 . hasCode "InvalidRequiredProtocol"
_TooManyDistributions :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyDistributions =
_ServiceError . hasStatus 400 . hasCode "TooManyDistributions"
_TooManyCertificates :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyCertificates =
_ServiceError . hasStatus 400 . hasCode "TooManyCertificates"
_DistributionAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_DistributionAlreadyExists =
_ServiceError . hasStatus 409 . hasCode "DistributionAlreadyExists"
_MissingBody :: AsError a => Getting (First ServiceError) a ServiceError
_MissingBody = _ServiceError . hasStatus 400 . hasCode "MissingBody"
_IllegalUpdate :: AsError a => Getting (First ServiceError) a ServiceError
_IllegalUpdate = _ServiceError . hasStatus 400 . hasCode "IllegalUpdate"
_InvalidIfMatchVersion :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidIfMatchVersion =
_ServiceError . hasStatus 400 . hasCode "InvalidIfMatchVersion"
_PreconditionFailed :: AsError a => Getting (First ServiceError) a ServiceError
_PreconditionFailed =
_ServiceError . hasStatus 412 . hasCode "PreconditionFailed"
_InvalidResponseCode :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidResponseCode =
_ServiceError . hasStatus 400 . hasCode "InvalidResponseCode"
_InvalidHeadersForS3Origin :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidHeadersForS3Origin =
_ServiceError . hasStatus 400 . hasCode "InvalidHeadersForS3Origin"
_CNAMEAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_CNAMEAlreadyExists =
_ServiceError . hasStatus 409 . hasCode "CNAMEAlreadyExists"
_TrustedSignerDoesNotExist :: AsError a => Getting (First ServiceError) a ServiceError
_TrustedSignerDoesNotExist =
_ServiceError . hasStatus 400 . hasCode "TrustedSignerDoesNotExist"
_InvalidProtocolSettings :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidProtocolSettings =
_ServiceError . hasStatus 400 . hasCode "InvalidProtocolSettings"
_CloudFrontOriginAccessIdentityAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_CloudFrontOriginAccessIdentityAlreadyExists =
_ServiceError .
hasStatus 409 . hasCode "CloudFrontOriginAccessIdentityAlreadyExists"
_TooManyOrigins :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyOrigins = _ServiceError . hasStatus 400 . hasCode "TooManyOrigins"
_InvalidRelativePath :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidRelativePath =
_ServiceError . hasStatus 400 . hasCode "InvalidRelativePath"
_StreamingDistributionAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_StreamingDistributionAlreadyExists =
_ServiceError .
hasStatus 409 . hasCode "StreamingDistributionAlreadyExists"
_InvalidMinimumProtocolVersion :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidMinimumProtocolVersion =
_ServiceError . hasStatus 400 . hasCode "InvalidMinimumProtocolVersion"
_AccessDenied :: AsError a => Getting (First ServiceError) a ServiceError
_AccessDenied = _ServiceError . hasStatus 403 . hasCode "AccessDenied"
_InvalidViewerCertificate :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidViewerCertificate =
_ServiceError . hasStatus 400 . hasCode "InvalidViewerCertificate"
_NoSuchDistribution :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchDistribution =
_ServiceError . hasStatus 404 . hasCode "NoSuchDistribution"
_InvalidDefaultRootObject :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDefaultRootObject =
_ServiceError . hasStatus 400 . hasCode "InvalidDefaultRootObject"
_InvalidGeoRestrictionParameter :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidGeoRestrictionParameter =
_ServiceError . hasStatus 400 . hasCode "InvalidGeoRestrictionParameter"
_InvalidLocationCode :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidLocationCode =
_ServiceError . hasStatus 400 . hasCode "InvalidLocationCode"