{-# 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.CertificateManagerPCA.Types.ASN1Subject where
import Amazonka.CertificateManagerPCA.Types.CustomAttribute
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
data ASN1Subject = ASN1Subject'
{
ASN1Subject -> Maybe Text
commonName :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
country :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe (NonEmpty CustomAttribute)
customAttributes :: Prelude.Maybe (Prelude.NonEmpty CustomAttribute),
ASN1Subject -> Maybe Text
distinguishedNameQualifier :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
generationQualifier :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
givenName :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
initials :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
locality :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
organization :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
organizationalUnit :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
pseudonym :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
serialNumber :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
state :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
surname :: Prelude.Maybe Prelude.Text,
ASN1Subject -> Maybe Text
title :: Prelude.Maybe Prelude.Text
}
deriving (ASN1Subject -> ASN1Subject -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ASN1Subject -> ASN1Subject -> Bool
$c/= :: ASN1Subject -> ASN1Subject -> Bool
== :: ASN1Subject -> ASN1Subject -> Bool
$c== :: ASN1Subject -> ASN1Subject -> Bool
Prelude.Eq, ReadPrec [ASN1Subject]
ReadPrec ASN1Subject
Int -> ReadS ASN1Subject
ReadS [ASN1Subject]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ASN1Subject]
$creadListPrec :: ReadPrec [ASN1Subject]
readPrec :: ReadPrec ASN1Subject
$creadPrec :: ReadPrec ASN1Subject
readList :: ReadS [ASN1Subject]
$creadList :: ReadS [ASN1Subject]
readsPrec :: Int -> ReadS ASN1Subject
$creadsPrec :: Int -> ReadS ASN1Subject
Prelude.Read, Int -> ASN1Subject -> ShowS
[ASN1Subject] -> ShowS
ASN1Subject -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ASN1Subject] -> ShowS
$cshowList :: [ASN1Subject] -> ShowS
show :: ASN1Subject -> String
$cshow :: ASN1Subject -> String
showsPrec :: Int -> ASN1Subject -> ShowS
$cshowsPrec :: Int -> ASN1Subject -> ShowS
Prelude.Show, forall x. Rep ASN1Subject x -> ASN1Subject
forall x. ASN1Subject -> Rep ASN1Subject x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ASN1Subject x -> ASN1Subject
$cfrom :: forall x. ASN1Subject -> Rep ASN1Subject x
Prelude.Generic)
newASN1Subject ::
ASN1Subject
newASN1Subject :: ASN1Subject
newASN1Subject =
ASN1Subject'
{ $sel:commonName:ASN1Subject' :: Maybe Text
commonName = forall a. Maybe a
Prelude.Nothing,
$sel:country:ASN1Subject' :: Maybe Text
country = forall a. Maybe a
Prelude.Nothing,
$sel:customAttributes:ASN1Subject' :: Maybe (NonEmpty CustomAttribute)
customAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:distinguishedNameQualifier:ASN1Subject' :: Maybe Text
distinguishedNameQualifier = forall a. Maybe a
Prelude.Nothing,
$sel:generationQualifier:ASN1Subject' :: Maybe Text
generationQualifier = forall a. Maybe a
Prelude.Nothing,
$sel:givenName:ASN1Subject' :: Maybe Text
givenName = forall a. Maybe a
Prelude.Nothing,
$sel:initials:ASN1Subject' :: Maybe Text
initials = forall a. Maybe a
Prelude.Nothing,
$sel:locality:ASN1Subject' :: Maybe Text
locality = forall a. Maybe a
Prelude.Nothing,
$sel:organization:ASN1Subject' :: Maybe Text
organization = forall a. Maybe a
Prelude.Nothing,
$sel:organizationalUnit:ASN1Subject' :: Maybe Text
organizationalUnit = forall a. Maybe a
Prelude.Nothing,
$sel:pseudonym:ASN1Subject' :: Maybe Text
pseudonym = forall a. Maybe a
Prelude.Nothing,
$sel:serialNumber:ASN1Subject' :: Maybe Text
serialNumber = forall a. Maybe a
Prelude.Nothing,
$sel:state:ASN1Subject' :: Maybe Text
state = forall a. Maybe a
Prelude.Nothing,
$sel:surname:ASN1Subject' :: Maybe Text
surname = forall a. Maybe a
Prelude.Nothing,
$sel:title:ASN1Subject' :: Maybe Text
title = forall a. Maybe a
Prelude.Nothing
}
aSN1Subject_commonName :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_commonName :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_commonName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
commonName :: Maybe Text
$sel:commonName:ASN1Subject' :: ASN1Subject -> Maybe Text
commonName} -> Maybe Text
commonName) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:commonName:ASN1Subject' :: Maybe Text
commonName = Maybe Text
a} :: ASN1Subject)
aSN1Subject_country :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_country :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_country = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
country :: Maybe Text
$sel:country:ASN1Subject' :: ASN1Subject -> Maybe Text
country} -> Maybe Text
country) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:country:ASN1Subject' :: Maybe Text
country = Maybe Text
a} :: ASN1Subject)
aSN1Subject_customAttributes :: Lens.Lens' ASN1Subject (Prelude.Maybe (Prelude.NonEmpty CustomAttribute))
aSN1Subject_customAttributes :: Lens' ASN1Subject (Maybe (NonEmpty CustomAttribute))
aSN1Subject_customAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe (NonEmpty CustomAttribute)
customAttributes :: Maybe (NonEmpty CustomAttribute)
$sel:customAttributes:ASN1Subject' :: ASN1Subject -> Maybe (NonEmpty CustomAttribute)
customAttributes} -> Maybe (NonEmpty CustomAttribute)
customAttributes) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe (NonEmpty CustomAttribute)
a -> ASN1Subject
s {$sel:customAttributes:ASN1Subject' :: Maybe (NonEmpty CustomAttribute)
customAttributes = Maybe (NonEmpty CustomAttribute)
a} :: ASN1Subject) 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
aSN1Subject_distinguishedNameQualifier :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_distinguishedNameQualifier :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_distinguishedNameQualifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
distinguishedNameQualifier :: Maybe Text
$sel:distinguishedNameQualifier:ASN1Subject' :: ASN1Subject -> Maybe Text
distinguishedNameQualifier} -> Maybe Text
distinguishedNameQualifier) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:distinguishedNameQualifier:ASN1Subject' :: Maybe Text
distinguishedNameQualifier = Maybe Text
a} :: ASN1Subject)
aSN1Subject_generationQualifier :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_generationQualifier :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_generationQualifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
generationQualifier :: Maybe Text
$sel:generationQualifier:ASN1Subject' :: ASN1Subject -> Maybe Text
generationQualifier} -> Maybe Text
generationQualifier) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:generationQualifier:ASN1Subject' :: Maybe Text
generationQualifier = Maybe Text
a} :: ASN1Subject)
aSN1Subject_givenName :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_givenName :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_givenName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
givenName :: Maybe Text
$sel:givenName:ASN1Subject' :: ASN1Subject -> Maybe Text
givenName} -> Maybe Text
givenName) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:givenName:ASN1Subject' :: Maybe Text
givenName = Maybe Text
a} :: ASN1Subject)
aSN1Subject_initials :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_initials :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_initials = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
initials :: Maybe Text
$sel:initials:ASN1Subject' :: ASN1Subject -> Maybe Text
initials} -> Maybe Text
initials) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:initials:ASN1Subject' :: Maybe Text
initials = Maybe Text
a} :: ASN1Subject)
aSN1Subject_locality :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_locality :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_locality = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
locality :: Maybe Text
$sel:locality:ASN1Subject' :: ASN1Subject -> Maybe Text
locality} -> Maybe Text
locality) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:locality:ASN1Subject' :: Maybe Text
locality = Maybe Text
a} :: ASN1Subject)
aSN1Subject_organization :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_organization :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_organization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
organization :: Maybe Text
$sel:organization:ASN1Subject' :: ASN1Subject -> Maybe Text
organization} -> Maybe Text
organization) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:organization:ASN1Subject' :: Maybe Text
organization = Maybe Text
a} :: ASN1Subject)
aSN1Subject_organizationalUnit :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_organizationalUnit :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_organizationalUnit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
organizationalUnit :: Maybe Text
$sel:organizationalUnit:ASN1Subject' :: ASN1Subject -> Maybe Text
organizationalUnit} -> Maybe Text
organizationalUnit) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:organizationalUnit:ASN1Subject' :: Maybe Text
organizationalUnit = Maybe Text
a} :: ASN1Subject)
aSN1Subject_pseudonym :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_pseudonym :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_pseudonym = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
pseudonym :: Maybe Text
$sel:pseudonym:ASN1Subject' :: ASN1Subject -> Maybe Text
pseudonym} -> Maybe Text
pseudonym) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:pseudonym:ASN1Subject' :: Maybe Text
pseudonym = Maybe Text
a} :: ASN1Subject)
aSN1Subject_serialNumber :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_serialNumber :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_serialNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
serialNumber :: Maybe Text
$sel:serialNumber:ASN1Subject' :: ASN1Subject -> Maybe Text
serialNumber} -> Maybe Text
serialNumber) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:serialNumber:ASN1Subject' :: Maybe Text
serialNumber = Maybe Text
a} :: ASN1Subject)
aSN1Subject_state :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_state :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
state :: Maybe Text
$sel:state:ASN1Subject' :: ASN1Subject -> Maybe Text
state} -> Maybe Text
state) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:state:ASN1Subject' :: Maybe Text
state = Maybe Text
a} :: ASN1Subject)
aSN1Subject_surname :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_surname :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_surname = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
surname :: Maybe Text
$sel:surname:ASN1Subject' :: ASN1Subject -> Maybe Text
surname} -> Maybe Text
surname) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:surname:ASN1Subject' :: Maybe Text
surname = Maybe Text
a} :: ASN1Subject)
aSN1Subject_title :: Lens.Lens' ASN1Subject (Prelude.Maybe Prelude.Text)
aSN1Subject_title :: Lens' ASN1Subject (Maybe Text)
aSN1Subject_title = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ASN1Subject' {Maybe Text
title :: Maybe Text
$sel:title:ASN1Subject' :: ASN1Subject -> Maybe Text
title} -> Maybe Text
title) (\s :: ASN1Subject
s@ASN1Subject' {} Maybe Text
a -> ASN1Subject
s {$sel:title:ASN1Subject' :: Maybe Text
title = Maybe Text
a} :: ASN1Subject)
instance Data.FromJSON ASN1Subject where
parseJSON :: Value -> Parser ASN1Subject
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"ASN1Subject"
( \Object
x ->
Maybe Text
-> Maybe Text
-> Maybe (NonEmpty CustomAttribute)
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> ASN1Subject
ASN1Subject'
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
"CommonName")
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
"Country")
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
"CustomAttributes")
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
"DistinguishedNameQualifier")
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
"GenerationQualifier")
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
"GivenName")
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
"Initials")
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
"Locality")
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
"Organization")
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
"OrganizationalUnit")
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
"Pseudonym")
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
"State")
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
"Surname")
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
"Title")
)
instance Prelude.Hashable ASN1Subject where
hashWithSalt :: Int -> ASN1Subject -> Int
hashWithSalt Int
_salt ASN1Subject' {Maybe (NonEmpty CustomAttribute)
Maybe Text
title :: Maybe Text
surname :: Maybe Text
state :: Maybe Text
serialNumber :: Maybe Text
pseudonym :: Maybe Text
organizationalUnit :: Maybe Text
organization :: Maybe Text
locality :: Maybe Text
initials :: Maybe Text
givenName :: Maybe Text
generationQualifier :: Maybe Text
distinguishedNameQualifier :: Maybe Text
customAttributes :: Maybe (NonEmpty CustomAttribute)
country :: Maybe Text
commonName :: Maybe Text
$sel:title:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:surname:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:state:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:serialNumber:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:pseudonym:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:organizationalUnit:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:organization:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:locality:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:initials:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:givenName:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:generationQualifier:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:distinguishedNameQualifier:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:customAttributes:ASN1Subject' :: ASN1Subject -> Maybe (NonEmpty CustomAttribute)
$sel:country:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:commonName:ASN1Subject' :: ASN1Subject -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
commonName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
country
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty CustomAttribute)
customAttributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
distinguishedNameQualifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
generationQualifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
givenName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
initials
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
locality
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
organization
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
organizationalUnit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
pseudonym
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serialNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
state
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
surname
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
title
instance Prelude.NFData ASN1Subject where
rnf :: ASN1Subject -> ()
rnf ASN1Subject' {Maybe (NonEmpty CustomAttribute)
Maybe Text
title :: Maybe Text
surname :: Maybe Text
state :: Maybe Text
serialNumber :: Maybe Text
pseudonym :: Maybe Text
organizationalUnit :: Maybe Text
organization :: Maybe Text
locality :: Maybe Text
initials :: Maybe Text
givenName :: Maybe Text
generationQualifier :: Maybe Text
distinguishedNameQualifier :: Maybe Text
customAttributes :: Maybe (NonEmpty CustomAttribute)
country :: Maybe Text
commonName :: Maybe Text
$sel:title:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:surname:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:state:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:serialNumber:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:pseudonym:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:organizationalUnit:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:organization:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:locality:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:initials:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:givenName:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:generationQualifier:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:distinguishedNameQualifier:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:customAttributes:ASN1Subject' :: ASN1Subject -> Maybe (NonEmpty CustomAttribute)
$sel:country:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:commonName:ASN1Subject' :: ASN1Subject -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
commonName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
country
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty CustomAttribute)
customAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
distinguishedNameQualifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
generationQualifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
givenName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
initials
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
locality
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
organization
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
organizationalUnit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
pseudonym
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 Text
state
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
surname
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
title
instance Data.ToJSON ASN1Subject where
toJSON :: ASN1Subject -> Value
toJSON ASN1Subject' {Maybe (NonEmpty CustomAttribute)
Maybe Text
title :: Maybe Text
surname :: Maybe Text
state :: Maybe Text
serialNumber :: Maybe Text
pseudonym :: Maybe Text
organizationalUnit :: Maybe Text
organization :: Maybe Text
locality :: Maybe Text
initials :: Maybe Text
givenName :: Maybe Text
generationQualifier :: Maybe Text
distinguishedNameQualifier :: Maybe Text
customAttributes :: Maybe (NonEmpty CustomAttribute)
country :: Maybe Text
commonName :: Maybe Text
$sel:title:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:surname:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:state:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:serialNumber:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:pseudonym:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:organizationalUnit:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:organization:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:locality:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:initials:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:givenName:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:generationQualifier:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:distinguishedNameQualifier:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:customAttributes:ASN1Subject' :: ASN1Subject -> Maybe (NonEmpty CustomAttribute)
$sel:country:ASN1Subject' :: ASN1Subject -> Maybe Text
$sel:commonName:ASN1Subject' :: ASN1Subject -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CommonName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
commonName,
(Key
"Country" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
country,
(Key
"CustomAttributes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (NonEmpty CustomAttribute)
customAttributes,
(Key
"DistinguishedNameQualifier" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
distinguishedNameQualifier,
(Key
"GenerationQualifier" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
generationQualifier,
(Key
"GivenName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
givenName,
(Key
"Initials" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
initials,
(Key
"Locality" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
locality,
(Key
"Organization" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
organization,
(Key
"OrganizationalUnit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
organizationalUnit,
(Key
"Pseudonym" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
pseudonym,
(Key
"SerialNumber" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
serialNumber,
(Key
"State" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
state,
(Key
"Surname" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
surname,
(Key
"Title" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
title
]
)