amazonka-certificatemanager 1.4.3 → 1.4.4

raw patch · 16 files changed

+110/−131 lines, 16 filesdep ~amazonka-certificatemanagerdep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-certificatemanager, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-certificatemanager.cabal +6/−6
• gen/Network/AWS/CertificateManager.hs +5/−1
• gen/Network/AWS/CertificateManager/AddTagsToCertificate.hs +1/−3
• gen/Network/AWS/CertificateManager/DeleteCertificate.hs +1/−3
• gen/Network/AWS/CertificateManager/DescribeCertificate.hs +2/−6
• gen/Network/AWS/CertificateManager/GetCertificate.hs +2/−6
• gen/Network/AWS/CertificateManager/ListCertificates.hs +18/−27
• gen/Network/AWS/CertificateManager/ListTagsForCertificate.hs +2/−6
• gen/Network/AWS/CertificateManager/RemoveTagsFromCertificate.hs +1/−3
• gen/Network/AWS/CertificateManager/RequestCertificate.hs +2/−6
• gen/Network/AWS/CertificateManager/ResendValidationEmail.hs +1/−3
• gen/Network/AWS/CertificateManager/Types.hs +4/−0
• gen/Network/AWS/CertificateManager/Types/Product.hs +26/−57
• gen/Network/AWS/CertificateManager/Types/Sum.hs +38/−3
• src/.gitkeep +0/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-certificatemanager-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Certificate Manager SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     AWS Certificate Manager @@ -60,7 +60,7 @@         , Network.AWS.CertificateManager.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-certificatemanager-test@@ -80,9 +80,9 @@         , Test.AWS.CertificateManager.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-certificatemanager == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-certificatemanager == 1.4.4.*         , base         , bytestring         , tasty

@@ -70,7 +70,7 @@     -- ** RequestCertificate     , module Network.AWS.CertificateManager.RequestCertificate -    -- ** ListCertificates+    -- ** ListCertificates (Paginated)     , module Network.AWS.CertificateManager.ListCertificates      -- ** DeleteCertificate@@ -87,6 +87,9 @@     -- ** CertificateStatus     , CertificateStatus (..) +    -- ** FailureReason+    , FailureReason (..)+     -- ** KeyAlgorithm     , KeyAlgorithm (..) @@ -98,6 +101,7 @@     , certificateDetail     , cdSubject     , cdStatus+    , cdFailureReason     , cdSubjectAlternativeNames     , cdInUseBy     , cdCreatedAt

@@ -44,9 +44,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |------ /See:/ 'addTagsToCertificate' smart constructor.+-- | /See:/ 'addTagsToCertificate' smart constructor. data AddTagsToCertificate = AddTagsToCertificate'     { _attcCertificateARN :: !Text     , _attcTags           :: !(List1 Tag)

@@ -41,9 +41,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |------ /See:/ 'deleteCertificate' smart constructor.+-- | /See:/ 'deleteCertificate' smart constructor. newtype DeleteCertificate = DeleteCertificate'     { _dcCertificateARN :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -42,9 +42,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |------ /See:/ 'describeCertificate' smart constructor.+-- | /See:/ 'describeCertificate' smart constructor. newtype DescribeCertificate = DescribeCertificate'     { _dCertificateARN :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -106,9 +104,7 @@ instance ToQuery DescribeCertificate where         toQuery = const mempty --- |------ /See:/ 'describeCertificateResponse' smart constructor.+-- | /See:/ 'describeCertificateResponse' smart constructor. data DescribeCertificateResponse = DescribeCertificateResponse'     { _dcrsCertificate    :: !(Maybe CertificateDetail)     , _dcrsResponseStatus :: !Int

@@ -45,9 +45,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |------ /See:/ 'getCertificate' smart constructor.+-- | /See:/ 'getCertificate' smart constructor. newtype GetCertificate = GetCertificate'     { _gcCertificateARN :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -108,9 +106,7 @@ instance ToQuery GetCertificate where         toQuery = const mempty --- |------ /See:/ 'getCertificateResponse' smart constructor.+-- | /See:/ 'getCertificateResponse' smart constructor. data GetCertificateResponse = GetCertificateResponse'     { _gcrsCertificate      :: !(Maybe Text)     , _gcrsCertificateChain :: !(Maybe Text)

@@ -18,7 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves a list of the ACM Certificate ARNs, and the domain name for each ARN, owned by the calling account. You can filter the list based on the 'CertificateStatuses' parameter, and you can display up to 'MaxItems' certificates at one time. If you have more than 'MaxItems' certificates, use the 'NextToken' marker from the response object in your next call to the 'ListCertificates' action to retrieve the next set of certificate ARNs.+-- Retrieves a list of ACM Certificates and the domain name for each. You can optionally filter the list to return only the certificates that match the specified status.+--+-- This operation returns paginated results. module Network.AWS.CertificateManager.ListCertificates     (     -- * Creating a Request@@ -41,13 +43,12 @@ import           Network.AWS.CertificateManager.Types import           Network.AWS.CertificateManager.Types.Product import           Network.AWS.Lens+import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response --- |------ /See:/ 'listCertificates' smart constructor.+-- | /See:/ 'listCertificates' smart constructor. data ListCertificates = ListCertificates'     { _lcCertificateStatuses :: !(Maybe [CertificateStatus])     , _lcNextToken           :: !(Maybe Text)@@ -72,33 +73,25 @@     , _lcMaxItems = Nothing     } --- | Identifies the statuses of the ACM Certificates for which you want to retrieve the ARNs. This can be one or more of the following values:------ -   'PENDING_VALIDATION'------ -   'ISSUED'------ -   'INACTIVE'------ -   'EXPIRED'------ -   'VALIDATION_TIMED_OUT'------ -   'REVOKED'------ -   'FAILED'---+-- | The status or statuses on which to filter the list of ACM Certificates. lcCertificateStatuses :: Lens' ListCertificates [CertificateStatus] lcCertificateStatuses = lens _lcCertificateStatuses (\ s a -> s{_lcCertificateStatuses = a}) . _Default . _Coerce; --- | String that contains an opaque marker of the next ACM Certificate ARN to be displayed. Use this parameter when paginating results, and only in a subsequent request after you\'ve received a response where the results have been truncated. Set it to an empty string the first time you call this action, and set it to the value of the 'NextToken' element you receive in the response object for subsequent calls.+-- | Use this parameter only when paginating results and only in a subsequent request after you receive a response with truncated results. Set it to the value of 'NextToken' from the response you just received. lcNextToken :: Lens' ListCertificates (Maybe Text) lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a}); --- | Specify this parameter when paginating results to indicate the maximum number of ACM Certificates that you want to display for each response. If there are additional certificates beyond the maximum you specify, use the 'NextToken' value in your next call to the 'ListCertificates' action.+-- | Use this parameter when paginating results to specify the maximum number of items to return in the response. If additional items exist beyond the number you specify, the 'NextToken' element is sent in the response. Use this 'NextToken' value in a subsequent request to retrieve additional items. lcMaxItems :: Lens' ListCertificates (Maybe Natural) lcMaxItems = lens _lcMaxItems (\ s a -> s{_lcMaxItems = a}) . mapping _Nat; +instance AWSPager ListCertificates where+        page rq rs+          | stop (rs ^. lcrsNextToken) = Nothing+          | stop (rs ^. lcrsCertificateSummaryList) = Nothing+          | otherwise =+            Just $ rq & lcNextToken .~ rs ^. lcrsNextToken+ instance AWSRequest ListCertificates where         type Rs ListCertificates = ListCertificatesResponse         request = postJSON certificateManager@@ -139,9 +132,7 @@ instance ToQuery ListCertificates where         toQuery = const mempty --- |------ /See:/ 'listCertificatesResponse' smart constructor.+-- | /See:/ 'listCertificatesResponse' smart constructor. data ListCertificatesResponse = ListCertificatesResponse'     { _lcrsCertificateSummaryList :: !(Maybe [CertificateSummary])     , _lcrsNextToken              :: !(Maybe Text)@@ -167,11 +158,11 @@     , _lcrsResponseStatus = pResponseStatus_     } --- | A list of the certificate ARNs.+-- | A list of ACM Certificates. lcrsCertificateSummaryList :: Lens' ListCertificatesResponse [CertificateSummary] lcrsCertificateSummaryList = lens _lcrsCertificateSummaryList (\ s a -> s{_lcrsCertificateSummaryList = a}) . _Default . _Coerce; --- | If the list has been truncated, this value is present and should be used for the 'NextToken' input parameter on your next call to 'ListCertificates'.+-- | When the list is truncated, this value is present and contains the value to use for the 'NextToken' parameter in a subsequent pagination request. lcrsNextToken :: Lens' ListCertificatesResponse (Maybe Text) lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a}); 

@@ -42,9 +42,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |------ /See:/ 'listTagsForCertificate' smart constructor.+-- | /See:/ 'listTagsForCertificate' smart constructor. newtype ListTagsForCertificate = ListTagsForCertificate'     { _ltfcCertificateARN :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -106,9 +104,7 @@ instance ToQuery ListTagsForCertificate where         toQuery = const mempty --- |------ /See:/ 'listTagsForCertificateResponse' smart constructor.+-- | /See:/ 'listTagsForCertificateResponse' smart constructor. data ListTagsForCertificateResponse = ListTagsForCertificateResponse'     { _ltfcrsTags           :: !(Maybe (List1 Tag))     , _ltfcrsResponseStatus :: !Int

@@ -42,9 +42,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |------ /See:/ 'removeTagsFromCertificate' smart constructor.+-- | /See:/ 'removeTagsFromCertificate' smart constructor. data RemoveTagsFromCertificate = RemoveTagsFromCertificate'     { _rtfcCertificateARN :: !Text     , _rtfcTags           :: !(List1 Tag)

@@ -45,9 +45,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |------ /See:/ 'requestCertificate' smart constructor.+-- | /See:/ 'requestCertificate' smart constructor. data RequestCertificate = RequestCertificate'     { _rcIdempotencyToken        :: !(Maybe Text)     , _rcSubjectAlternativeNames :: !(Maybe (List1 Text))@@ -145,9 +143,7 @@ instance ToQuery RequestCertificate where         toQuery = const mempty --- |------ /See:/ 'requestCertificateResponse' smart constructor.+-- | /See:/ 'requestCertificateResponse' smart constructor. data RequestCertificateResponse = RequestCertificateResponse'     { _rcrsCertificateARN :: !(Maybe Text)     , _rcrsResponseStatus :: !Int

@@ -41,9 +41,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- |------ /See:/ 'resendValidationEmail' smart constructor.+-- | /See:/ 'resendValidationEmail' smart constructor. data ResendValidationEmail = ResendValidationEmail'     { _rveCertificateARN   :: !Text     , _rveDomain           :: !Text

@@ -29,6 +29,9 @@     -- * CertificateStatus     , CertificateStatus (..) +    -- * FailureReason+    , FailureReason (..)+     -- * KeyAlgorithm     , KeyAlgorithm (..) @@ -40,6 +43,7 @@     , certificateDetail     , cdSubject     , cdStatus+    , cdFailureReason     , cdSubjectAlternativeNames     , cdInUseBy     , cdCreatedAt

@@ -21,12 +21,13 @@ import           Network.AWS.Lens import           Network.AWS.Prelude --- | This structure is returned in the response object of the < DescribeCertificate> action.+-- | Contains detailed metadata about an ACM Certificate. This structure is returned in the response to a < DescribeCertificate> request. -- -- /See:/ 'certificateDetail' smart constructor. data CertificateDetail = CertificateDetail'     { _cdSubject                 :: !(Maybe Text)     , _cdStatus                  :: !(Maybe CertificateStatus)+    , _cdFailureReason           :: !(Maybe FailureReason)     , _cdSubjectAlternativeNames :: !(Maybe (List1 Text))     , _cdInUseBy                 :: !(Maybe [Text])     , _cdCreatedAt               :: !(Maybe POSIX)@@ -52,6 +53,8 @@ -- -- * 'cdStatus' --+-- * 'cdFailureReason'+-- -- * 'cdSubjectAlternativeNames' -- -- * 'cdInUseBy'@@ -87,6 +90,7 @@     CertificateDetail'     { _cdSubject = Nothing     , _cdStatus = Nothing+    , _cdFailureReason = Nothing     , _cdSubjectAlternativeNames = Nothing     , _cdInUseBy = Nothing     , _cdCreatedAt = Nothing@@ -108,99 +112,63 @@ cdSubject :: Lens' CertificateDetail (Maybe Text) cdSubject = lens _cdSubject (\ s a -> s{_cdSubject = a}); --- | A 'CertificateStatus' enumeration value that can contain one of the following:------ -   PENDING_VALIDATION------ -   ISSUED------ -   INACTIVE------ -   EXPIRED------ -   REVOKED------ -   FAILED------ -   VALIDATION_TIMED_OUT---+-- | The status of the certificate. cdStatus :: Lens' CertificateDetail (Maybe CertificateStatus) cdStatus = lens _cdStatus (\ s a -> s{_cdStatus = a}); +-- | The reason the certificate request failed. This value exists only when the structure\'s 'Status' is 'FAILED'. For more information, see <http://docs.aws.amazon.com/acm/latest/userguide/troubleshooting.html#troubleshooting-failed Certificate Request Failed> in the /AWS Certificate Manager User Guide/.+cdFailureReason :: Lens' CertificateDetail (Maybe FailureReason)+cdFailureReason = lens _cdFailureReason (\ s a -> s{_cdFailureReason = a});+ -- | One or more domain names (subject alternative names) included in the certificate request. After the certificate is issued, this list includes the domain names bound to the public key contained in the certificate. The subject alternative names include the canonical domain name (CN) of the certificate and additional domain names that can be used to connect to the website. cdSubjectAlternativeNames :: Lens' CertificateDetail (Maybe (NonEmpty Text)) cdSubjectAlternativeNames = lens _cdSubjectAlternativeNames (\ s a -> s{_cdSubjectAlternativeNames = a}) . mapping _List1; --- | List that identifies ARNs that are using the certificate. A single ACM Certificate can be used by multiple AWS resources.+-- | A list of ARNs for the resources that are using the certificate. An ACM Certificate can be used by multiple AWS resources. cdInUseBy :: Lens' CertificateDetail [Text] cdInUseBy = lens _cdInUseBy (\ s a -> s{_cdInUseBy = a}) . _Default . _Coerce; --- | Time at which the certificate was requested.+-- | The time at which the certificate was requested. cdCreatedAt :: Lens' CertificateDetail (Maybe UTCTime) cdCreatedAt = lens _cdCreatedAt (\ s a -> s{_cdCreatedAt = a}) . mapping _Time; --- | Amazon Resource Name (ARN) of the certificate. This is of the form:------ 'arn:aws:acm:region:123456789012:certificate\/12345678-1234-1234-1234-123456789012'------ For more information about ARNs, see <http://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs) and AWS Service Namespaces>.+-- | The Amazon Resource Name (ARN) of the certificate. For more information about ARNs, see <http://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs) and AWS Service Namespaces>. cdCertificateARN :: Lens' CertificateDetail (Maybe Text) cdCertificateARN = lens _cdCertificateARN (\ s a -> s{_cdCertificateARN = a}); --- | String that contains the serial number of the certificate.+-- | The serial number of the certificate. cdSerial :: Lens' CertificateDetail (Maybe Text) cdSerial = lens _cdSerial (\ s a -> s{_cdSerial = a}); --- | The time, if any, at which the certificate was revoked. This value exists only if the certificate has been revoked.+-- | The time at which the certificate was revoked. This value exists only when the certificate status is 'REVOKED'. cdRevokedAt :: Lens' CertificateDetail (Maybe UTCTime) cdRevokedAt = lens _cdRevokedAt (\ s a -> s{_cdRevokedAt = a}) . mapping _Time; --- | Time before which the certificate is not valid.+-- | The time before which the certificate is not valid. cdNotBefore :: Lens' CertificateDetail (Maybe UTCTime) cdNotBefore = lens _cdNotBefore (\ s a -> s{_cdNotBefore = a}) . mapping _Time; --- | A 'RevocationReason' enumeration value that indicates why the certificate was revoked. This value exists only if the certificate has been revoked. This can be one of the following vales:------ -   UNSPECIFIED------ -   KEY_COMPROMISE------ -   CA_COMPROMISE------ -   AFFILIATION_CHANGED------ -   SUPERCEDED------ -   CESSATION_OF_OPERATION------ -   CERTIFICATE_HOLD------ -   REMOVE_FROM_CRL------ -   PRIVILEGE_WITHDRAWN------ -   A_A_COMPROMISE---+-- | The reason the certificate was revoked. This value exists only when the certificate status is 'REVOKED'. cdRevocationReason :: Lens' CertificateDetail (Maybe RevocationReason) cdRevocationReason = lens _cdRevocationReason (\ s a -> s{_cdRevocationReason = a}); --- | Fully qualified domain name (FQDN), such as www.example.com or example.com, for the certificate.+-- | The fully qualified domain name (FQDN) for the certificate, such as www.example.com or example.com. cdDomainName :: Lens' CertificateDetail (Maybe Text) cdDomainName = lens _cdDomainName (\ s a -> s{_cdDomainName = a}); --- | Asymmetric algorithm used to generate the public and private key pair. Currently the only supported value is 'RSA_2048'.+-- | The algorithm used to generate the key pair (the public and private key). Currently the only supported value is 'RSA_2048'. cdKeyAlgorithm :: Lens' CertificateDetail (Maybe KeyAlgorithm) cdKeyAlgorithm = lens _cdKeyAlgorithm (\ s a -> s{_cdKeyAlgorithm = a}); --- | Time at which the certificate was issued.+-- | The time at which the certificate was issued. cdIssuedAt :: Lens' CertificateDetail (Maybe UTCTime) cdIssuedAt = lens _cdIssuedAt (\ s a -> s{_cdIssuedAt = a}) . mapping _Time; --- | Algorithm used to generate a signature. Currently the only supported value is 'SHA256WITHRSA'.+-- | The algorithm used to generate a signature. Currently the only supported value is 'SHA256WITHRSA'. cdSignatureAlgorithm :: Lens' CertificateDetail (Maybe Text) cdSignatureAlgorithm = lens _cdSignatureAlgorithm (\ s a -> s{_cdSignatureAlgorithm = a}); --- | References a < DomainValidation> structure that contains the domain name in the certificate and the email address that can be used for validation.+-- | Contains information about the email address or addresses used for domain validation. cdDomainValidationOptions :: Lens' CertificateDetail (Maybe (NonEmpty DomainValidation)) cdDomainValidationOptions = lens _cdDomainValidationOptions (\ s a -> s{_cdDomainValidationOptions = a}) . mapping _List1; @@ -208,7 +176,7 @@ cdIssuer :: Lens' CertificateDetail (Maybe Text) cdIssuer = lens _cdIssuer (\ s a -> s{_cdIssuer = a}); --- | Time after which the certificate is not valid.+-- | The time after which the certificate is not valid. cdNotAfter :: Lens' CertificateDetail (Maybe UTCTime) cdNotAfter = lens _cdNotAfter (\ s a -> s{_cdNotAfter = a}) . mapping _Time; @@ -218,7 +186,8 @@               (\ x ->                  CertificateDetail' <$>                    (x .:? "Subject") <*> (x .:? "Status") <*>-                     (x .:? "SubjectAlternativeNames")+                     (x .:? "FailureReason")+                     <*> (x .:? "SubjectAlternativeNames")                      <*> (x .:? "InUseBy" .!= mempty)                      <*> (x .:? "CreatedAt")                      <*> (x .:? "CertificateArn")@@ -320,7 +289,7 @@ dvValidationDomain :: Lens' DomainValidation (Maybe Text) dvValidationDomain = lens _dvValidationDomain (\ s a -> s{_dvValidationDomain = a}); --- | Fully Qualified Domain Name (FQDN) of the form 'www.example.com or ''example.com'+-- | Fully Qualified Domain Name (FQDN) of the form 'www.example.com or ' 'example.com'. dvDomainName :: Lens' DomainValidation Text dvDomainName = lens _dvDomainName (\ s a -> s{_dvDomainName = a}); 

@@ -39,7 +39,7 @@         "revoked" -> pure Revoked         "validation_timed_out" -> pure ValidationTimedOut         e -> fromTextError $ "Failure parsing CertificateStatus from value: '" <> e-           <> "'. Accepted values: EXPIRED, FAILED, INACTIVE, ISSUED, PENDING_VALIDATION, REVOKED, VALIDATION_TIMED_OUT"+           <> "'. Accepted values: expired, failed, inactive, issued, pending_validation, revoked, validation_timed_out"  instance ToText CertificateStatus where     toText = \case@@ -63,6 +63,41 @@ instance FromJSON CertificateStatus where     parseJSON = parseJSONText "CertificateStatus" +data FailureReason+    = AdditionalVerificationRequired+    | DomainNotAllowed+    | InvalidPublicDomain+    | NoAvailableContacts+    | Other+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText FailureReason where+    parser = takeLowerText >>= \case+        "additional_verification_required" -> pure AdditionalVerificationRequired+        "domain_not_allowed" -> pure DomainNotAllowed+        "invalid_public_domain" -> pure InvalidPublicDomain+        "no_available_contacts" -> pure NoAvailableContacts+        "other" -> pure Other+        e -> fromTextError $ "Failure parsing FailureReason from value: '" <> e+           <> "'. Accepted values: additional_verification_required, domain_not_allowed, invalid_public_domain, no_available_contacts, other"++instance ToText FailureReason where+    toText = \case+        AdditionalVerificationRequired -> "ADDITIONAL_VERIFICATION_REQUIRED"+        DomainNotAllowed -> "DOMAIN_NOT_ALLOWED"+        InvalidPublicDomain -> "INVALID_PUBLIC_DOMAIN"+        NoAvailableContacts -> "NO_AVAILABLE_CONTACTS"+        Other -> "OTHER"++instance Hashable     FailureReason+instance NFData       FailureReason+instance ToByteString FailureReason+instance ToQuery      FailureReason+instance ToHeader     FailureReason++instance FromJSON FailureReason where+    parseJSON = parseJSONText "FailureReason"+ data KeyAlgorithm     = EcPRIME256V1     | Rsa2048@@ -73,7 +108,7 @@         "ec_prime256v1" -> pure EcPRIME256V1         "rsa_2048" -> pure Rsa2048         e -> fromTextError $ "Failure parsing KeyAlgorithm from value: '" <> e-           <> "'. Accepted values: EC_prime256v1, RSA_2048"+           <> "'. Accepted values: ec_prime256v1, rsa_2048"  instance ToText KeyAlgorithm where     toText = \case@@ -115,7 +150,7 @@         "superceded" -> pure Superceded         "unspecified" -> pure Unspecified         e -> fromTextError $ "Failure parsing RevocationReason from value: '" <> e-           <> "'. Accepted values: A_A_COMPROMISE, AFFILIATION_CHANGED, CA_COMPROMISE, CERTIFICATE_HOLD, CESSATION_OF_OPERATION, KEY_COMPROMISE, PRIVILEGE_WITHDRAWN, REMOVE_FROM_CRL, SUPERCEDED, UNSPECIFIED"+           <> "'. Accepted values: a_a_compromise, affiliation_changed, ca_compromise, certificate_hold, cessation_of_operation, key_compromise, privilege_withdrawn, remove_from_crl, superceded, unspecified"  instance ToText RevocationReason where     toText = \case