module Stratosphere.PCAConnectorAD.Template.CertificateValidityProperty (
        module Exports, CertificateValidityProperty(..),
        mkCertificateValidityProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.PCAConnectorAD.Template.ValidityPeriodProperty as Exports
import Stratosphere.ResourceProperties
data CertificateValidityProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pcaconnectorad-template-certificatevalidity.html>
    CertificateValidityProperty {CertificateValidityProperty -> ()
haddock_workaround_ :: (),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pcaconnectorad-template-certificatevalidity.html#cfn-pcaconnectorad-template-certificatevalidity-renewalperiod>
                                 CertificateValidityProperty -> ValidityPeriodProperty
renewalPeriod :: ValidityPeriodProperty,
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pcaconnectorad-template-certificatevalidity.html#cfn-pcaconnectorad-template-certificatevalidity-validityperiod>
                                 CertificateValidityProperty -> ValidityPeriodProperty
validityPeriod :: ValidityPeriodProperty}
  deriving stock (CertificateValidityProperty -> CertificateValidityProperty -> Bool
(CertificateValidityProperty
 -> CertificateValidityProperty -> Bool)
-> (CertificateValidityProperty
    -> CertificateValidityProperty -> Bool)
-> Eq CertificateValidityProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CertificateValidityProperty -> CertificateValidityProperty -> Bool
== :: CertificateValidityProperty -> CertificateValidityProperty -> Bool
$c/= :: CertificateValidityProperty -> CertificateValidityProperty -> Bool
/= :: CertificateValidityProperty -> CertificateValidityProperty -> Bool
Prelude.Eq, Int -> CertificateValidityProperty -> ShowS
[CertificateValidityProperty] -> ShowS
CertificateValidityProperty -> String
(Int -> CertificateValidityProperty -> ShowS)
-> (CertificateValidityProperty -> String)
-> ([CertificateValidityProperty] -> ShowS)
-> Show CertificateValidityProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CertificateValidityProperty -> ShowS
showsPrec :: Int -> CertificateValidityProperty -> ShowS
$cshow :: CertificateValidityProperty -> String
show :: CertificateValidityProperty -> String
$cshowList :: [CertificateValidityProperty] -> ShowS
showList :: [CertificateValidityProperty] -> ShowS
Prelude.Show)
mkCertificateValidityProperty ::
  ValidityPeriodProperty
  -> ValidityPeriodProperty -> CertificateValidityProperty
mkCertificateValidityProperty :: ValidityPeriodProperty
-> ValidityPeriodProperty -> CertificateValidityProperty
mkCertificateValidityProperty ValidityPeriodProperty
renewalPeriod ValidityPeriodProperty
validityPeriod
  = CertificateValidityProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), renewalPeriod :: ValidityPeriodProperty
renewalPeriod = ValidityPeriodProperty
renewalPeriod,
       validityPeriod :: ValidityPeriodProperty
validityPeriod = ValidityPeriodProperty
validityPeriod}
instance ToResourceProperties CertificateValidityProperty where
  toResourceProperties :: CertificateValidityProperty -> ResourceProperties
toResourceProperties CertificateValidityProperty {()
ValidityPeriodProperty
haddock_workaround_ :: CertificateValidityProperty -> ()
renewalPeriod :: CertificateValidityProperty -> ValidityPeriodProperty
validityPeriod :: CertificateValidityProperty -> ValidityPeriodProperty
haddock_workaround_ :: ()
renewalPeriod :: ValidityPeriodProperty
validityPeriod :: ValidityPeriodProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::PCAConnectorAD::Template.CertificateValidity",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"RenewalPeriod" Key -> ValidityPeriodProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValidityPeriodProperty
renewalPeriod,
                       Key
"ValidityPeriod" Key -> ValidityPeriodProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValidityPeriodProperty
validityPeriod]}
instance JSON.ToJSON CertificateValidityProperty where
  toJSON :: CertificateValidityProperty -> Value
toJSON CertificateValidityProperty {()
ValidityPeriodProperty
haddock_workaround_ :: CertificateValidityProperty -> ()
renewalPeriod :: CertificateValidityProperty -> ValidityPeriodProperty
validityPeriod :: CertificateValidityProperty -> ValidityPeriodProperty
haddock_workaround_ :: ()
renewalPeriod :: ValidityPeriodProperty
validityPeriod :: ValidityPeriodProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"RenewalPeriod" Key -> ValidityPeriodProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValidityPeriodProperty
renewalPeriod,
         Key
"ValidityPeriod" Key -> ValidityPeriodProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValidityPeriodProperty
validityPeriod]
instance Property "RenewalPeriod" CertificateValidityProperty where
  type PropertyType "RenewalPeriod" CertificateValidityProperty = ValidityPeriodProperty
  set :: PropertyType "RenewalPeriod" CertificateValidityProperty
-> CertificateValidityProperty -> CertificateValidityProperty
set PropertyType "RenewalPeriod" CertificateValidityProperty
newValue CertificateValidityProperty {()
ValidityPeriodProperty
haddock_workaround_ :: CertificateValidityProperty -> ()
renewalPeriod :: CertificateValidityProperty -> ValidityPeriodProperty
validityPeriod :: CertificateValidityProperty -> ValidityPeriodProperty
haddock_workaround_ :: ()
renewalPeriod :: ValidityPeriodProperty
validityPeriod :: ValidityPeriodProperty
..}
    = CertificateValidityProperty {renewalPeriod :: ValidityPeriodProperty
renewalPeriod = PropertyType "RenewalPeriod" CertificateValidityProperty
ValidityPeriodProperty
newValue, ()
ValidityPeriodProperty
haddock_workaround_ :: ()
validityPeriod :: ValidityPeriodProperty
haddock_workaround_ :: ()
validityPeriod :: ValidityPeriodProperty
..}
instance Property "ValidityPeriod" CertificateValidityProperty where
  type PropertyType "ValidityPeriod" CertificateValidityProperty = ValidityPeriodProperty
  set :: PropertyType "ValidityPeriod" CertificateValidityProperty
-> CertificateValidityProperty -> CertificateValidityProperty
set PropertyType "ValidityPeriod" CertificateValidityProperty
newValue CertificateValidityProperty {()
ValidityPeriodProperty
haddock_workaround_ :: CertificateValidityProperty -> ()
renewalPeriod :: CertificateValidityProperty -> ValidityPeriodProperty
validityPeriod :: CertificateValidityProperty -> ValidityPeriodProperty
haddock_workaround_ :: ()
renewalPeriod :: ValidityPeriodProperty
validityPeriod :: ValidityPeriodProperty
..}
    = CertificateValidityProperty {validityPeriod :: ValidityPeriodProperty
validityPeriod = PropertyType "ValidityPeriod" CertificateValidityProperty
ValidityPeriodProperty
newValue, ()
ValidityPeriodProperty
haddock_workaround_ :: ()
renewalPeriod :: ValidityPeriodProperty
haddock_workaround_ :: ()
renewalPeriod :: ValidityPeriodProperty
..}