{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Lightsail.Types.Certificate where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Lightsail.Types.CertificateStatus
import Amazonka.Lightsail.Types.DomainValidationRecord
import Amazonka.Lightsail.Types.RenewalSummary
import Amazonka.Lightsail.Types.Tag
import qualified Amazonka.Prelude as Prelude
data Certificate = Certificate'
{
Certificate -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe POSIX
createdAt :: Prelude.Maybe Data.POSIX,
Certificate -> Maybe Text
domainName :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe [DomainValidationRecord]
domainValidationRecords :: Prelude.Maybe [DomainValidationRecord],
Certificate -> Maybe Text
eligibleToRenew :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe Int
inUseResourceCount :: Prelude.Maybe Prelude.Int,
Certificate -> Maybe POSIX
issuedAt :: Prelude.Maybe Data.POSIX,
Certificate -> Maybe Text
issuerCA :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe Text
keyAlgorithm :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe POSIX
notAfter :: Prelude.Maybe Data.POSIX,
Certificate -> Maybe POSIX
notBefore :: Prelude.Maybe Data.POSIX,
Certificate -> Maybe RenewalSummary
renewalSummary :: Prelude.Maybe RenewalSummary,
Certificate -> Maybe Text
requestFailureReason :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe Text
revocationReason :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe POSIX
revokedAt :: Prelude.Maybe Data.POSIX,
Certificate -> Maybe Text
serialNumber :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe CertificateStatus
status :: Prelude.Maybe CertificateStatus,
Certificate -> Maybe [Text]
subjectAlternativeNames :: Prelude.Maybe [Prelude.Text],
Certificate -> Maybe Text
supportCode :: Prelude.Maybe Prelude.Text,
Certificate -> Maybe [Tag]
tags :: Prelude.Maybe [Tag]
}
deriving (Certificate -> Certificate -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Certificate -> Certificate -> Bool
$c/= :: Certificate -> Certificate -> Bool
== :: Certificate -> Certificate -> Bool
$c== :: Certificate -> Certificate -> Bool
Prelude.Eq, ReadPrec [Certificate]
ReadPrec Certificate
Int -> ReadS Certificate
ReadS [Certificate]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Certificate]
$creadListPrec :: ReadPrec [Certificate]
readPrec :: ReadPrec Certificate
$creadPrec :: ReadPrec Certificate
readList :: ReadS [Certificate]
$creadList :: ReadS [Certificate]
readsPrec :: Int -> ReadS Certificate
$creadsPrec :: Int -> ReadS Certificate
Prelude.Read, Int -> Certificate -> ShowS
[Certificate] -> ShowS
Certificate -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Certificate] -> ShowS
$cshowList :: [Certificate] -> ShowS
show :: Certificate -> String
$cshow :: Certificate -> String
showsPrec :: Int -> Certificate -> ShowS
$cshowsPrec :: Int -> Certificate -> ShowS
Prelude.Show, forall x. Rep Certificate x -> Certificate
forall x. Certificate -> Rep Certificate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Certificate x -> Certificate
$cfrom :: forall x. Certificate -> Rep Certificate x
Prelude.Generic)
newCertificate ::
Certificate
newCertificate :: Certificate
newCertificate =
Certificate'
{ $sel:arn:Certificate' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:createdAt:Certificate' :: Maybe POSIX
createdAt = forall a. Maybe a
Prelude.Nothing,
$sel:domainName:Certificate' :: Maybe Text
domainName = forall a. Maybe a
Prelude.Nothing,
$sel:domainValidationRecords:Certificate' :: Maybe [DomainValidationRecord]
domainValidationRecords = forall a. Maybe a
Prelude.Nothing,
$sel:eligibleToRenew:Certificate' :: Maybe Text
eligibleToRenew = forall a. Maybe a
Prelude.Nothing,
$sel:inUseResourceCount:Certificate' :: Maybe Int
inUseResourceCount = forall a. Maybe a
Prelude.Nothing,
$sel:issuedAt:Certificate' :: Maybe POSIX
issuedAt = forall a. Maybe a
Prelude.Nothing,
$sel:issuerCA:Certificate' :: Maybe Text
issuerCA = forall a. Maybe a
Prelude.Nothing,
$sel:keyAlgorithm:Certificate' :: Maybe Text
keyAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:name:Certificate' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:notAfter:Certificate' :: Maybe POSIX
notAfter = forall a. Maybe a
Prelude.Nothing,
$sel:notBefore:Certificate' :: Maybe POSIX
notBefore = forall a. Maybe a
Prelude.Nothing,
$sel:renewalSummary:Certificate' :: Maybe RenewalSummary
renewalSummary = forall a. Maybe a
Prelude.Nothing,
$sel:requestFailureReason:Certificate' :: Maybe Text
requestFailureReason = forall a. Maybe a
Prelude.Nothing,
$sel:revocationReason:Certificate' :: Maybe Text
revocationReason = forall a. Maybe a
Prelude.Nothing,
$sel:revokedAt:Certificate' :: Maybe POSIX
revokedAt = forall a. Maybe a
Prelude.Nothing,
$sel:serialNumber:Certificate' :: Maybe Text
serialNumber = forall a. Maybe a
Prelude.Nothing,
$sel:status:Certificate' :: Maybe CertificateStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:subjectAlternativeNames:Certificate' :: Maybe [Text]
subjectAlternativeNames = forall a. Maybe a
Prelude.Nothing,
$sel:supportCode:Certificate' :: Maybe Text
supportCode = forall a. Maybe a
Prelude.Nothing,
$sel:tags:Certificate' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing
}
certificate_arn :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_arn :: Lens' Certificate (Maybe Text)
certificate_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
arn :: Maybe Text
$sel:arn:Certificate' :: Certificate -> Maybe Text
arn} -> Maybe Text
arn) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:arn:Certificate' :: Maybe Text
arn = Maybe Text
a} :: Certificate)
certificate_createdAt :: Lens.Lens' Certificate (Prelude.Maybe Prelude.UTCTime)
certificate_createdAt :: Lens' Certificate (Maybe UTCTime)
certificate_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe POSIX
createdAt :: Maybe POSIX
$sel:createdAt:Certificate' :: Certificate -> Maybe POSIX
createdAt} -> Maybe POSIX
createdAt) (\s :: Certificate
s@Certificate' {} Maybe POSIX
a -> Certificate
s {$sel:createdAt:Certificate' :: Maybe POSIX
createdAt = Maybe POSIX
a} :: Certificate) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
certificate_domainName :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_domainName :: Lens' Certificate (Maybe Text)
certificate_domainName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
domainName :: Maybe Text
$sel:domainName:Certificate' :: Certificate -> Maybe Text
domainName} -> Maybe Text
domainName) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:domainName:Certificate' :: Maybe Text
domainName = Maybe Text
a} :: Certificate)
certificate_domainValidationRecords :: Lens.Lens' Certificate (Prelude.Maybe [DomainValidationRecord])
certificate_domainValidationRecords :: Lens' Certificate (Maybe [DomainValidationRecord])
certificate_domainValidationRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe [DomainValidationRecord]
domainValidationRecords :: Maybe [DomainValidationRecord]
$sel:domainValidationRecords:Certificate' :: Certificate -> Maybe [DomainValidationRecord]
domainValidationRecords} -> Maybe [DomainValidationRecord]
domainValidationRecords) (\s :: Certificate
s@Certificate' {} Maybe [DomainValidationRecord]
a -> Certificate
s {$sel:domainValidationRecords:Certificate' :: Maybe [DomainValidationRecord]
domainValidationRecords = Maybe [DomainValidationRecord]
a} :: Certificate) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
certificate_eligibleToRenew :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_eligibleToRenew :: Lens' Certificate (Maybe Text)
certificate_eligibleToRenew = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
eligibleToRenew :: Maybe Text
$sel:eligibleToRenew:Certificate' :: Certificate -> Maybe Text
eligibleToRenew} -> Maybe Text
eligibleToRenew) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:eligibleToRenew:Certificate' :: Maybe Text
eligibleToRenew = Maybe Text
a} :: Certificate)
certificate_inUseResourceCount :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Int)
certificate_inUseResourceCount :: Lens' Certificate (Maybe Int)
certificate_inUseResourceCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Int
inUseResourceCount :: Maybe Int
$sel:inUseResourceCount:Certificate' :: Certificate -> Maybe Int
inUseResourceCount} -> Maybe Int
inUseResourceCount) (\s :: Certificate
s@Certificate' {} Maybe Int
a -> Certificate
s {$sel:inUseResourceCount:Certificate' :: Maybe Int
inUseResourceCount = Maybe Int
a} :: Certificate)
certificate_issuedAt :: Lens.Lens' Certificate (Prelude.Maybe Prelude.UTCTime)
certificate_issuedAt :: Lens' Certificate (Maybe UTCTime)
certificate_issuedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe POSIX
issuedAt :: Maybe POSIX
$sel:issuedAt:Certificate' :: Certificate -> Maybe POSIX
issuedAt} -> Maybe POSIX
issuedAt) (\s :: Certificate
s@Certificate' {} Maybe POSIX
a -> Certificate
s {$sel:issuedAt:Certificate' :: Maybe POSIX
issuedAt = Maybe POSIX
a} :: Certificate) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
certificate_issuerCA :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_issuerCA :: Lens' Certificate (Maybe Text)
certificate_issuerCA = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
issuerCA :: Maybe Text
$sel:issuerCA:Certificate' :: Certificate -> Maybe Text
issuerCA} -> Maybe Text
issuerCA) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:issuerCA:Certificate' :: Maybe Text
issuerCA = Maybe Text
a} :: Certificate)
certificate_keyAlgorithm :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_keyAlgorithm :: Lens' Certificate (Maybe Text)
certificate_keyAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
keyAlgorithm :: Maybe Text
$sel:keyAlgorithm:Certificate' :: Certificate -> Maybe Text
keyAlgorithm} -> Maybe Text
keyAlgorithm) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:keyAlgorithm:Certificate' :: Maybe Text
keyAlgorithm = Maybe Text
a} :: Certificate)
certificate_name :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_name :: Lens' Certificate (Maybe Text)
certificate_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
name :: Maybe Text
$sel:name:Certificate' :: Certificate -> Maybe Text
name} -> Maybe Text
name) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:name:Certificate' :: Maybe Text
name = Maybe Text
a} :: Certificate)
certificate_notAfter :: Lens.Lens' Certificate (Prelude.Maybe Prelude.UTCTime)
certificate_notAfter :: Lens' Certificate (Maybe UTCTime)
certificate_notAfter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe POSIX
notAfter :: Maybe POSIX
$sel:notAfter:Certificate' :: Certificate -> Maybe POSIX
notAfter} -> Maybe POSIX
notAfter) (\s :: Certificate
s@Certificate' {} Maybe POSIX
a -> Certificate
s {$sel:notAfter:Certificate' :: Maybe POSIX
notAfter = Maybe POSIX
a} :: Certificate) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
certificate_notBefore :: Lens.Lens' Certificate (Prelude.Maybe Prelude.UTCTime)
certificate_notBefore :: Lens' Certificate (Maybe UTCTime)
certificate_notBefore = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe POSIX
notBefore :: Maybe POSIX
$sel:notBefore:Certificate' :: Certificate -> Maybe POSIX
notBefore} -> Maybe POSIX
notBefore) (\s :: Certificate
s@Certificate' {} Maybe POSIX
a -> Certificate
s {$sel:notBefore:Certificate' :: Maybe POSIX
notBefore = Maybe POSIX
a} :: Certificate) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
certificate_renewalSummary :: Lens.Lens' Certificate (Prelude.Maybe RenewalSummary)
certificate_renewalSummary :: Lens' Certificate (Maybe RenewalSummary)
certificate_renewalSummary = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe RenewalSummary
renewalSummary :: Maybe RenewalSummary
$sel:renewalSummary:Certificate' :: Certificate -> Maybe RenewalSummary
renewalSummary} -> Maybe RenewalSummary
renewalSummary) (\s :: Certificate
s@Certificate' {} Maybe RenewalSummary
a -> Certificate
s {$sel:renewalSummary:Certificate' :: Maybe RenewalSummary
renewalSummary = Maybe RenewalSummary
a} :: Certificate)
certificate_requestFailureReason :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_requestFailureReason :: Lens' Certificate (Maybe Text)
certificate_requestFailureReason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
requestFailureReason :: Maybe Text
$sel:requestFailureReason:Certificate' :: Certificate -> Maybe Text
requestFailureReason} -> Maybe Text
requestFailureReason) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:requestFailureReason:Certificate' :: Maybe Text
requestFailureReason = Maybe Text
a} :: Certificate)
certificate_revocationReason :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_revocationReason :: Lens' Certificate (Maybe Text)
certificate_revocationReason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
revocationReason :: Maybe Text
$sel:revocationReason:Certificate' :: Certificate -> Maybe Text
revocationReason} -> Maybe Text
revocationReason) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:revocationReason:Certificate' :: Maybe Text
revocationReason = Maybe Text
a} :: Certificate)
certificate_revokedAt :: Lens.Lens' Certificate (Prelude.Maybe Prelude.UTCTime)
certificate_revokedAt :: Lens' Certificate (Maybe UTCTime)
certificate_revokedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe POSIX
revokedAt :: Maybe POSIX
$sel:revokedAt:Certificate' :: Certificate -> Maybe POSIX
revokedAt} -> Maybe POSIX
revokedAt) (\s :: Certificate
s@Certificate' {} Maybe POSIX
a -> Certificate
s {$sel:revokedAt:Certificate' :: Maybe POSIX
revokedAt = Maybe POSIX
a} :: Certificate) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
certificate_serialNumber :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_serialNumber :: Lens' Certificate (Maybe Text)
certificate_serialNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
serialNumber :: Maybe Text
$sel:serialNumber:Certificate' :: Certificate -> Maybe Text
serialNumber} -> Maybe Text
serialNumber) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:serialNumber:Certificate' :: Maybe Text
serialNumber = Maybe Text
a} :: Certificate)
certificate_status :: Lens.Lens' Certificate (Prelude.Maybe CertificateStatus)
certificate_status :: Lens' Certificate (Maybe CertificateStatus)
certificate_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe CertificateStatus
status :: Maybe CertificateStatus
$sel:status:Certificate' :: Certificate -> Maybe CertificateStatus
status} -> Maybe CertificateStatus
status) (\s :: Certificate
s@Certificate' {} Maybe CertificateStatus
a -> Certificate
s {$sel:status:Certificate' :: Maybe CertificateStatus
status = Maybe CertificateStatus
a} :: Certificate)
certificate_subjectAlternativeNames :: Lens.Lens' Certificate (Prelude.Maybe [Prelude.Text])
certificate_subjectAlternativeNames :: Lens' Certificate (Maybe [Text])
certificate_subjectAlternativeNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe [Text]
subjectAlternativeNames :: Maybe [Text]
$sel:subjectAlternativeNames:Certificate' :: Certificate -> Maybe [Text]
subjectAlternativeNames} -> Maybe [Text]
subjectAlternativeNames) (\s :: Certificate
s@Certificate' {} Maybe [Text]
a -> Certificate
s {$sel:subjectAlternativeNames:Certificate' :: Maybe [Text]
subjectAlternativeNames = Maybe [Text]
a} :: Certificate) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
certificate_supportCode :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)
certificate_supportCode :: Lens' Certificate (Maybe Text)
certificate_supportCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe Text
supportCode :: Maybe Text
$sel:supportCode:Certificate' :: Certificate -> Maybe Text
supportCode} -> Maybe Text
supportCode) (\s :: Certificate
s@Certificate' {} Maybe Text
a -> Certificate
s {$sel:supportCode:Certificate' :: Maybe Text
supportCode = Maybe Text
a} :: Certificate)
certificate_tags :: Lens.Lens' Certificate (Prelude.Maybe [Tag])
certificate_tags :: Lens' Certificate (Maybe [Tag])
certificate_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Certificate' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:Certificate' :: Certificate -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: Certificate
s@Certificate' {} Maybe [Tag]
a -> Certificate
s {$sel:tags:Certificate' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: Certificate) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Data.FromJSON Certificate where
parseJSON :: Value -> Parser Certificate
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Certificate"
( \Object
x ->
Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe [DomainValidationRecord]
-> Maybe Text
-> Maybe Int
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> Maybe RenewalSummary
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe CertificateStatus
-> Maybe [Text]
-> Maybe Text
-> Maybe [Tag]
-> Certificate
Certificate'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"arn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"createdAt")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"domainName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"domainValidationRecords"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"eligibleToRenew")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"inUseResourceCount")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"issuedAt")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"issuerCA")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"keyAlgorithm")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"notAfter")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"notBefore")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"renewalSummary")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"requestFailureReason")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"revocationReason")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"revokedAt")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"serialNumber")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"status")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"subjectAlternativeNames"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"supportCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"tags" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
)
instance Prelude.Hashable Certificate where
hashWithSalt :: Int -> Certificate -> Int
hashWithSalt Int
_salt Certificate' {Maybe Int
Maybe [Text]
Maybe [DomainValidationRecord]
Maybe [Tag]
Maybe Text
Maybe POSIX
Maybe CertificateStatus
Maybe RenewalSummary
tags :: Maybe [Tag]
supportCode :: Maybe Text
subjectAlternativeNames :: Maybe [Text]
status :: Maybe CertificateStatus
serialNumber :: Maybe Text
revokedAt :: Maybe POSIX
revocationReason :: Maybe Text
requestFailureReason :: Maybe Text
renewalSummary :: Maybe RenewalSummary
notBefore :: Maybe POSIX
notAfter :: Maybe POSIX
name :: Maybe Text
keyAlgorithm :: Maybe Text
issuerCA :: Maybe Text
issuedAt :: Maybe POSIX
inUseResourceCount :: Maybe Int
eligibleToRenew :: Maybe Text
domainValidationRecords :: Maybe [DomainValidationRecord]
domainName :: Maybe Text
createdAt :: Maybe POSIX
arn :: Maybe Text
$sel:tags:Certificate' :: Certificate -> Maybe [Tag]
$sel:supportCode:Certificate' :: Certificate -> Maybe Text
$sel:subjectAlternativeNames:Certificate' :: Certificate -> Maybe [Text]
$sel:status:Certificate' :: Certificate -> Maybe CertificateStatus
$sel:serialNumber:Certificate' :: Certificate -> Maybe Text
$sel:revokedAt:Certificate' :: Certificate -> Maybe POSIX
$sel:revocationReason:Certificate' :: Certificate -> Maybe Text
$sel:requestFailureReason:Certificate' :: Certificate -> Maybe Text
$sel:renewalSummary:Certificate' :: Certificate -> Maybe RenewalSummary
$sel:notBefore:Certificate' :: Certificate -> Maybe POSIX
$sel:notAfter:Certificate' :: Certificate -> Maybe POSIX
$sel:name:Certificate' :: Certificate -> Maybe Text
$sel:keyAlgorithm:Certificate' :: Certificate -> Maybe Text
$sel:issuerCA:Certificate' :: Certificate -> Maybe Text
$sel:issuedAt:Certificate' :: Certificate -> Maybe POSIX
$sel:inUseResourceCount:Certificate' :: Certificate -> Maybe Int
$sel:eligibleToRenew:Certificate' :: Certificate -> Maybe Text
$sel:domainValidationRecords:Certificate' :: Certificate -> Maybe [DomainValidationRecord]
$sel:domainName:Certificate' :: Certificate -> Maybe Text
$sel:createdAt:Certificate' :: Certificate -> Maybe POSIX
$sel:arn:Certificate' :: Certificate -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
arn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
createdAt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
domainName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [DomainValidationRecord]
domainValidationRecords
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
eligibleToRenew
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
inUseResourceCount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
issuedAt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
issuerCA
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
keyAlgorithm
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
notAfter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
notBefore
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RenewalSummary
renewalSummary
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
requestFailureReason
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
revocationReason
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
revokedAt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serialNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CertificateStatus
status
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
subjectAlternativeNames
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
supportCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
instance Prelude.NFData Certificate where
rnf :: Certificate -> ()
rnf Certificate' {Maybe Int
Maybe [Text]
Maybe [DomainValidationRecord]
Maybe [Tag]
Maybe Text
Maybe POSIX
Maybe CertificateStatus
Maybe RenewalSummary
tags :: Maybe [Tag]
supportCode :: Maybe Text
subjectAlternativeNames :: Maybe [Text]
status :: Maybe CertificateStatus
serialNumber :: Maybe Text
revokedAt :: Maybe POSIX
revocationReason :: Maybe Text
requestFailureReason :: Maybe Text
renewalSummary :: Maybe RenewalSummary
notBefore :: Maybe POSIX
notAfter :: Maybe POSIX
name :: Maybe Text
keyAlgorithm :: Maybe Text
issuerCA :: Maybe Text
issuedAt :: Maybe POSIX
inUseResourceCount :: Maybe Int
eligibleToRenew :: Maybe Text
domainValidationRecords :: Maybe [DomainValidationRecord]
domainName :: Maybe Text
createdAt :: Maybe POSIX
arn :: Maybe Text
$sel:tags:Certificate' :: Certificate -> Maybe [Tag]
$sel:supportCode:Certificate' :: Certificate -> Maybe Text
$sel:subjectAlternativeNames:Certificate' :: Certificate -> Maybe [Text]
$sel:status:Certificate' :: Certificate -> Maybe CertificateStatus
$sel:serialNumber:Certificate' :: Certificate -> Maybe Text
$sel:revokedAt:Certificate' :: Certificate -> Maybe POSIX
$sel:revocationReason:Certificate' :: Certificate -> Maybe Text
$sel:requestFailureReason:Certificate' :: Certificate -> Maybe Text
$sel:renewalSummary:Certificate' :: Certificate -> Maybe RenewalSummary
$sel:notBefore:Certificate' :: Certificate -> Maybe POSIX
$sel:notAfter:Certificate' :: Certificate -> Maybe POSIX
$sel:name:Certificate' :: Certificate -> Maybe Text
$sel:keyAlgorithm:Certificate' :: Certificate -> Maybe Text
$sel:issuerCA:Certificate' :: Certificate -> Maybe Text
$sel:issuedAt:Certificate' :: Certificate -> Maybe POSIX
$sel:inUseResourceCount:Certificate' :: Certificate -> Maybe Int
$sel:eligibleToRenew:Certificate' :: Certificate -> Maybe Text
$sel:domainValidationRecords:Certificate' :: Certificate -> Maybe [DomainValidationRecord]
$sel:domainName:Certificate' :: Certificate -> Maybe Text
$sel:createdAt:Certificate' :: Certificate -> Maybe POSIX
$sel:arn:Certificate' :: Certificate -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
domainName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [DomainValidationRecord]
domainValidationRecords
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eligibleToRenew
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
inUseResourceCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
issuedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
issuerCA
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
keyAlgorithm
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
notAfter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
notBefore
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RenewalSummary
renewalSummary
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requestFailureReason
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
revocationReason
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
revokedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
serialNumber
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CertificateStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [Text]
subjectAlternativeNames
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
supportCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags