{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.CertificateManagerPCA.Types
(
certificateManagerPCA
, _InvalidTagException
, _MalformedCSRException
, _RequestAlreadyProcessedException
, _MalformedCertificateException
, _RequestFailedException
, _CertificateMismatchException
, _TooManyTagsException
, _InvalidArgsException
, _RequestInProgressException
, _ConcurrentModificationException
, _InvalidNextTokenException
, _InvalidARNException
, _InvalidPolicyException
, _ResourceNotFoundException
, _InvalidStateException
, _LimitExceededException
, AuditReportResponseFormat (..)
, AuditReportStatus (..)
, CertificateAuthorityStatus (..)
, CertificateAuthorityType (..)
, FailureReason (..)
, KeyAlgorithm (..)
, RevocationReason (..)
, SigningAlgorithm (..)
, ValidityPeriodType (..)
, ASN1Subject
, asn1Subject
, asGivenName
, asState
, asCommonName
, asOrganizationalUnit
, asCountry
, asGenerationQualifier
, asLocality
, asPseudonym
, asInitials
, asTitle
, asOrganization
, asSerialNumber
, asSurname
, asDistinguishedNameQualifier
, CertificateAuthority
, certificateAuthority
, caStatus
, caFailureReason
, caCertificateAuthorityConfiguration
, caARN
, caCreatedAt
, caSerial
, caNotBefore
, caType
, caRevocationConfiguration
, caLastStateChangeAt
, caNotAfter
, CertificateAuthorityConfiguration
, certificateAuthorityConfiguration
, cacKeyAlgorithm
, cacSigningAlgorithm
, cacSubject
, CrlConfiguration
, crlConfiguration
, ccCustomCname
, ccExpirationInDays
, ccS3BucketName
, ccEnabled
, RevocationConfiguration
, revocationConfiguration
, rcCrlConfiguration
, Tag
, tag
, tagValue
, tagKey
, Validity
, validity
, vValue
, vType
) where
import Network.AWS.CertificateManagerPCA.Types.Product
import Network.AWS.CertificateManagerPCA.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
certificateManagerPCA :: Service
certificateManagerPCA =
Service
{ _svcAbbrev = "CertificateManagerPCA"
, _svcSigner = v4
, _svcPrefix = "acm-pca"
, _svcVersion = "2017-08-22"
, _svcEndpoint = defaultEndpoint certificateManagerPCA
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError "CertificateManagerPCA"
, _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
_InvalidTagException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidTagException =
_MatchServiceError certificateManagerPCA "InvalidTagException"
_MalformedCSRException :: AsError a => Getting (First ServiceError) a ServiceError
_MalformedCSRException =
_MatchServiceError certificateManagerPCA "MalformedCSRException"
_RequestAlreadyProcessedException :: AsError a => Getting (First ServiceError) a ServiceError
_RequestAlreadyProcessedException =
_MatchServiceError certificateManagerPCA "RequestAlreadyProcessedException"
_MalformedCertificateException :: AsError a => Getting (First ServiceError) a ServiceError
_MalformedCertificateException =
_MatchServiceError certificateManagerPCA "MalformedCertificateException"
_RequestFailedException :: AsError a => Getting (First ServiceError) a ServiceError
_RequestFailedException =
_MatchServiceError certificateManagerPCA "RequestFailedException"
_CertificateMismatchException :: AsError a => Getting (First ServiceError) a ServiceError
_CertificateMismatchException =
_MatchServiceError certificateManagerPCA "CertificateMismatchException"
_TooManyTagsException :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyTagsException =
_MatchServiceError certificateManagerPCA "TooManyTagsException"
_InvalidArgsException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidArgsException =
_MatchServiceError certificateManagerPCA "InvalidArgsException"
_RequestInProgressException :: AsError a => Getting (First ServiceError) a ServiceError
_RequestInProgressException =
_MatchServiceError certificateManagerPCA "RequestInProgressException"
_ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError
_ConcurrentModificationException =
_MatchServiceError certificateManagerPCA "ConcurrentModificationException"
_InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidNextTokenException =
_MatchServiceError certificateManagerPCA "InvalidNextTokenException"
_InvalidARNException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidARNException =
_MatchServiceError certificateManagerPCA "InvalidArnException"
_InvalidPolicyException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidPolicyException =
_MatchServiceError certificateManagerPCA "InvalidPolicyException"
_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundException =
_MatchServiceError certificateManagerPCA "ResourceNotFoundException"
_InvalidStateException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidStateException =
_MatchServiceError certificateManagerPCA "InvalidStateException"
_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_LimitExceededException =
_MatchServiceError certificateManagerPCA "LimitExceededException"