module Stratosphere.ACMPCA.CertificateAuthority.GeneralNameProperty (
        module Exports, GeneralNameProperty(..), mkGeneralNameProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.ACMPCA.CertificateAuthority.EdiPartyNameProperty as Exports
import {-# SOURCE #-} Stratosphere.ACMPCA.CertificateAuthority.OtherNameProperty as Exports
import {-# SOURCE #-} Stratosphere.ACMPCA.CertificateAuthority.SubjectProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data GeneralNameProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-generalname.html>
    GeneralNameProperty {GeneralNameProperty -> ()
haddock_workaround_ :: (),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-generalname.html#cfn-acmpca-certificateauthority-generalname-directoryname>
                         GeneralNameProperty -> Maybe SubjectProperty
directoryName :: (Prelude.Maybe SubjectProperty),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-generalname.html#cfn-acmpca-certificateauthority-generalname-dnsname>
                         GeneralNameProperty -> Maybe (Value Text)
dnsName :: (Prelude.Maybe (Value Prelude.Text)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-generalname.html#cfn-acmpca-certificateauthority-generalname-edipartyname>
                         GeneralNameProperty -> Maybe EdiPartyNameProperty
ediPartyName :: (Prelude.Maybe EdiPartyNameProperty),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-generalname.html#cfn-acmpca-certificateauthority-generalname-ipaddress>
                         GeneralNameProperty -> Maybe (Value Text)
ipAddress :: (Prelude.Maybe (Value Prelude.Text)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-generalname.html#cfn-acmpca-certificateauthority-generalname-othername>
                         GeneralNameProperty -> Maybe OtherNameProperty
otherName :: (Prelude.Maybe OtherNameProperty),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-generalname.html#cfn-acmpca-certificateauthority-generalname-registeredid>
                         GeneralNameProperty -> Maybe (Value Text)
registeredId :: (Prelude.Maybe (Value Prelude.Text)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-generalname.html#cfn-acmpca-certificateauthority-generalname-rfc822name>
                         GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: (Prelude.Maybe (Value Prelude.Text)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-generalname.html#cfn-acmpca-certificateauthority-generalname-uniformresourceidentifier>
                         GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (GeneralNameProperty -> GeneralNameProperty -> Bool
(GeneralNameProperty -> GeneralNameProperty -> Bool)
-> (GeneralNameProperty -> GeneralNameProperty -> Bool)
-> Eq GeneralNameProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GeneralNameProperty -> GeneralNameProperty -> Bool
== :: GeneralNameProperty -> GeneralNameProperty -> Bool
$c/= :: GeneralNameProperty -> GeneralNameProperty -> Bool
/= :: GeneralNameProperty -> GeneralNameProperty -> Bool
Prelude.Eq, Int -> GeneralNameProperty -> ShowS
[GeneralNameProperty] -> ShowS
GeneralNameProperty -> String
(Int -> GeneralNameProperty -> ShowS)
-> (GeneralNameProperty -> String)
-> ([GeneralNameProperty] -> ShowS)
-> Show GeneralNameProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GeneralNameProperty -> ShowS
showsPrec :: Int -> GeneralNameProperty -> ShowS
$cshow :: GeneralNameProperty -> String
show :: GeneralNameProperty -> String
$cshowList :: [GeneralNameProperty] -> ShowS
showList :: [GeneralNameProperty] -> ShowS
Prelude.Show)
mkGeneralNameProperty :: GeneralNameProperty
mkGeneralNameProperty :: GeneralNameProperty
mkGeneralNameProperty
  = GeneralNameProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), directoryName :: Maybe SubjectProperty
directoryName = Maybe SubjectProperty
forall a. Maybe a
Prelude.Nothing,
       dnsName :: Maybe (Value Text)
dnsName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, ediPartyName :: Maybe EdiPartyNameProperty
ediPartyName = Maybe EdiPartyNameProperty
forall a. Maybe a
Prelude.Nothing,
       ipAddress :: Maybe (Value Text)
ipAddress = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, otherName :: Maybe OtherNameProperty
otherName = Maybe OtherNameProperty
forall a. Maybe a
Prelude.Nothing,
       registeredId :: Maybe (Value Text)
registeredId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, rfc822Name :: Maybe (Value Text)
rfc822Name = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       uniformResourceIdentifier :: Maybe (Value Text)
uniformResourceIdentifier = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties GeneralNameProperty where
  toResourceProperties :: GeneralNameProperty -> ResourceProperties
toResourceProperties GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ACMPCA::CertificateAuthority.GeneralName",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> SubjectProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DirectoryName" (SubjectProperty -> (Key, Value))
-> Maybe SubjectProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SubjectProperty
directoryName,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DnsName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
dnsName,
                            Key -> EdiPartyNameProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EdiPartyName" (EdiPartyNameProperty -> (Key, Value))
-> Maybe EdiPartyNameProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EdiPartyNameProperty
ediPartyName,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IpAddress" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
ipAddress,
                            Key -> OtherNameProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OtherName" (OtherNameProperty -> (Key, Value))
-> Maybe OtherNameProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OtherNameProperty
otherName,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RegisteredId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
registeredId,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Rfc822Name" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
rfc822Name,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UniformResourceIdentifier"
                              (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
uniformResourceIdentifier])}
instance JSON.ToJSON GeneralNameProperty where
  toJSON :: GeneralNameProperty -> Value
toJSON GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> SubjectProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DirectoryName" (SubjectProperty -> (Key, Value))
-> Maybe SubjectProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SubjectProperty
directoryName,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DnsName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
dnsName,
               Key -> EdiPartyNameProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EdiPartyName" (EdiPartyNameProperty -> (Key, Value))
-> Maybe EdiPartyNameProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EdiPartyNameProperty
ediPartyName,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IpAddress" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
ipAddress,
               Key -> OtherNameProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OtherName" (OtherNameProperty -> (Key, Value))
-> Maybe OtherNameProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OtherNameProperty
otherName,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RegisteredId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
registeredId,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Rfc822Name" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
rfc822Name,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UniformResourceIdentifier"
                 (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
uniformResourceIdentifier]))
instance Property "DirectoryName" GeneralNameProperty where
  type PropertyType "DirectoryName" GeneralNameProperty = SubjectProperty
  set :: PropertyType "DirectoryName" GeneralNameProperty
-> GeneralNameProperty -> GeneralNameProperty
set PropertyType "DirectoryName" GeneralNameProperty
newValue GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = GeneralNameProperty {directoryName :: Maybe SubjectProperty
directoryName = SubjectProperty -> Maybe SubjectProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DirectoryName" GeneralNameProperty
SubjectProperty
newValue, Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
()
haddock_workaround_ :: ()
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
haddock_workaround_ :: ()
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
instance Property "DnsName" GeneralNameProperty where
  type PropertyType "DnsName" GeneralNameProperty = Value Prelude.Text
  set :: PropertyType "DnsName" GeneralNameProperty
-> GeneralNameProperty -> GeneralNameProperty
set PropertyType "DnsName" GeneralNameProperty
newValue GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = GeneralNameProperty {dnsName :: Maybe (Value Text)
dnsName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DnsName" GeneralNameProperty
Value Text
newValue, Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
instance Property "EdiPartyName" GeneralNameProperty where
  type PropertyType "EdiPartyName" GeneralNameProperty = EdiPartyNameProperty
  set :: PropertyType "EdiPartyName" GeneralNameProperty
-> GeneralNameProperty -> GeneralNameProperty
set PropertyType "EdiPartyName" GeneralNameProperty
newValue GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = GeneralNameProperty {ediPartyName :: Maybe EdiPartyNameProperty
ediPartyName = EdiPartyNameProperty -> Maybe EdiPartyNameProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "EdiPartyName" GeneralNameProperty
EdiPartyNameProperty
newValue, Maybe (Value Text)
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
instance Property "IpAddress" GeneralNameProperty where
  type PropertyType "IpAddress" GeneralNameProperty = Value Prelude.Text
  set :: PropertyType "IpAddress" GeneralNameProperty
-> GeneralNameProperty -> GeneralNameProperty
set PropertyType "IpAddress" GeneralNameProperty
newValue GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = GeneralNameProperty {ipAddress :: Maybe (Value Text)
ipAddress = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "IpAddress" GeneralNameProperty
Value Text
newValue, Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
instance Property "OtherName" GeneralNameProperty where
  type PropertyType "OtherName" GeneralNameProperty = OtherNameProperty
  set :: PropertyType "OtherName" GeneralNameProperty
-> GeneralNameProperty -> GeneralNameProperty
set PropertyType "OtherName" GeneralNameProperty
newValue GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = GeneralNameProperty {otherName :: Maybe OtherNameProperty
otherName = OtherNameProperty -> Maybe OtherNameProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "OtherName" GeneralNameProperty
OtherNameProperty
newValue, Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
instance Property "RegisteredId" GeneralNameProperty where
  type PropertyType "RegisteredId" GeneralNameProperty = Value Prelude.Text
  set :: PropertyType "RegisteredId" GeneralNameProperty
-> GeneralNameProperty -> GeneralNameProperty
set PropertyType "RegisteredId" GeneralNameProperty
newValue GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = GeneralNameProperty {registeredId :: Maybe (Value Text)
registeredId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RegisteredId" GeneralNameProperty
Value Text
newValue, Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
instance Property "Rfc822Name" GeneralNameProperty where
  type PropertyType "Rfc822Name" GeneralNameProperty = Value Prelude.Text
  set :: PropertyType "Rfc822Name" GeneralNameProperty
-> GeneralNameProperty -> GeneralNameProperty
set PropertyType "Rfc822Name" GeneralNameProperty
newValue GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = GeneralNameProperty {rfc822Name :: Maybe (Value Text)
rfc822Name = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Rfc822Name" GeneralNameProperty
Value Text
newValue, Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
instance Property "UniformResourceIdentifier" GeneralNameProperty where
  type PropertyType "UniformResourceIdentifier" GeneralNameProperty = Value Prelude.Text
  set :: PropertyType "UniformResourceIdentifier" GeneralNameProperty
-> GeneralNameProperty -> GeneralNameProperty
set PropertyType "UniformResourceIdentifier" GeneralNameProperty
newValue GeneralNameProperty {Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: GeneralNameProperty -> ()
directoryName :: GeneralNameProperty -> Maybe SubjectProperty
dnsName :: GeneralNameProperty -> Maybe (Value Text)
ediPartyName :: GeneralNameProperty -> Maybe EdiPartyNameProperty
ipAddress :: GeneralNameProperty -> Maybe (Value Text)
otherName :: GeneralNameProperty -> Maybe OtherNameProperty
registeredId :: GeneralNameProperty -> Maybe (Value Text)
rfc822Name :: GeneralNameProperty -> Maybe (Value Text)
uniformResourceIdentifier :: GeneralNameProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
uniformResourceIdentifier :: Maybe (Value Text)
..}
    = GeneralNameProperty
        {uniformResourceIdentifier :: Maybe (Value Text)
uniformResourceIdentifier = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "UniformResourceIdentifier" GeneralNameProperty
Value Text
newValue, Maybe (Value Text)
Maybe EdiPartyNameProperty
Maybe OtherNameProperty
Maybe SubjectProperty
()
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
haddock_workaround_ :: ()
directoryName :: Maybe SubjectProperty
dnsName :: Maybe (Value Text)
ediPartyName :: Maybe EdiPartyNameProperty
ipAddress :: Maybe (Value Text)
otherName :: Maybe OtherNameProperty
registeredId :: Maybe (Value Text)
rfc822Name :: Maybe (Value Text)
..}