module Stratosphere.ACMPCA.Certificate.QualifierProperty (
        QualifierProperty(..), mkQualifierProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data QualifierProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificate-qualifier.html>
    QualifierProperty {QualifierProperty -> ()
haddock_workaround_ :: (),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificate-qualifier.html#cfn-acmpca-certificate-qualifier-cpsuri>
                       QualifierProperty -> Value Text
cpsUri :: (Value Prelude.Text)}
  deriving stock (QualifierProperty -> QualifierProperty -> Bool
(QualifierProperty -> QualifierProperty -> Bool)
-> (QualifierProperty -> QualifierProperty -> Bool)
-> Eq QualifierProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: QualifierProperty -> QualifierProperty -> Bool
== :: QualifierProperty -> QualifierProperty -> Bool
$c/= :: QualifierProperty -> QualifierProperty -> Bool
/= :: QualifierProperty -> QualifierProperty -> Bool
Prelude.Eq, Int -> QualifierProperty -> ShowS
[QualifierProperty] -> ShowS
QualifierProperty -> String
(Int -> QualifierProperty -> ShowS)
-> (QualifierProperty -> String)
-> ([QualifierProperty] -> ShowS)
-> Show QualifierProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> QualifierProperty -> ShowS
showsPrec :: Int -> QualifierProperty -> ShowS
$cshow :: QualifierProperty -> String
show :: QualifierProperty -> String
$cshowList :: [QualifierProperty] -> ShowS
showList :: [QualifierProperty] -> ShowS
Prelude.Show)
mkQualifierProperty :: Value Prelude.Text -> QualifierProperty
mkQualifierProperty :: Value Text -> QualifierProperty
mkQualifierProperty Value Text
cpsUri
  = QualifierProperty {haddock_workaround_ :: ()
haddock_workaround_ = (), cpsUri :: Value Text
cpsUri = Value Text
cpsUri}
instance ToResourceProperties QualifierProperty where
  toResourceProperties :: QualifierProperty -> ResourceProperties
toResourceProperties QualifierProperty {()
Value Text
haddock_workaround_ :: QualifierProperty -> ()
cpsUri :: QualifierProperty -> Value Text
haddock_workaround_ :: ()
cpsUri :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ACMPCA::Certificate.Qualifier",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"CpsUri" 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..= Value Text
cpsUri]}
instance JSON.ToJSON QualifierProperty where
  toJSON :: QualifierProperty -> Value
toJSON QualifierProperty {()
Value Text
haddock_workaround_ :: QualifierProperty -> ()
cpsUri :: QualifierProperty -> Value Text
haddock_workaround_ :: ()
cpsUri :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"CpsUri" 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..= Value Text
cpsUri]
instance Property "CpsUri" QualifierProperty where
  type PropertyType "CpsUri" QualifierProperty = Value Prelude.Text
  set :: PropertyType "CpsUri" QualifierProperty
-> QualifierProperty -> QualifierProperty
set PropertyType "CpsUri" QualifierProperty
newValue QualifierProperty {()
Value Text
haddock_workaround_ :: QualifierProperty -> ()
cpsUri :: QualifierProperty -> Value Text
haddock_workaround_ :: ()
cpsUri :: Value Text
..}
    = QualifierProperty {cpsUri :: Value Text
cpsUri = PropertyType "CpsUri" QualifierProperty
Value Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}