module Stratosphere.KinesisFirehose.DeliveryStream.KMSEncryptionConfigProperty (
KMSEncryptionConfigProperty(..), mkKMSEncryptionConfigProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data KMSEncryptionConfigProperty
=
KMSEncryptionConfigProperty {KMSEncryptionConfigProperty -> ()
haddock_workaround_ :: (),
KMSEncryptionConfigProperty -> Value Text
aWSKMSKeyARN :: (Value Prelude.Text)}
deriving stock (KMSEncryptionConfigProperty -> KMSEncryptionConfigProperty -> Bool
(KMSEncryptionConfigProperty
-> KMSEncryptionConfigProperty -> Bool)
-> (KMSEncryptionConfigProperty
-> KMSEncryptionConfigProperty -> Bool)
-> Eq KMSEncryptionConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: KMSEncryptionConfigProperty -> KMSEncryptionConfigProperty -> Bool
== :: KMSEncryptionConfigProperty -> KMSEncryptionConfigProperty -> Bool
$c/= :: KMSEncryptionConfigProperty -> KMSEncryptionConfigProperty -> Bool
/= :: KMSEncryptionConfigProperty -> KMSEncryptionConfigProperty -> Bool
Prelude.Eq, Int -> KMSEncryptionConfigProperty -> ShowS
[KMSEncryptionConfigProperty] -> ShowS
KMSEncryptionConfigProperty -> String
(Int -> KMSEncryptionConfigProperty -> ShowS)
-> (KMSEncryptionConfigProperty -> String)
-> ([KMSEncryptionConfigProperty] -> ShowS)
-> Show KMSEncryptionConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> KMSEncryptionConfigProperty -> ShowS
showsPrec :: Int -> KMSEncryptionConfigProperty -> ShowS
$cshow :: KMSEncryptionConfigProperty -> String
show :: KMSEncryptionConfigProperty -> String
$cshowList :: [KMSEncryptionConfigProperty] -> ShowS
showList :: [KMSEncryptionConfigProperty] -> ShowS
Prelude.Show)
mkKMSEncryptionConfigProperty ::
Value Prelude.Text -> KMSEncryptionConfigProperty
mkKMSEncryptionConfigProperty :: Value Text -> KMSEncryptionConfigProperty
mkKMSEncryptionConfigProperty Value Text
aWSKMSKeyARN
= KMSEncryptionConfigProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), aWSKMSKeyARN :: Value Text
aWSKMSKeyARN = Value Text
aWSKMSKeyARN}
instance ToResourceProperties KMSEncryptionConfigProperty where
toResourceProperties :: KMSEncryptionConfigProperty -> ResourceProperties
toResourceProperties KMSEncryptionConfigProperty {()
Value Text
haddock_workaround_ :: KMSEncryptionConfigProperty -> ()
aWSKMSKeyARN :: KMSEncryptionConfigProperty -> Value Text
haddock_workaround_ :: ()
aWSKMSKeyARN :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::KinesisFirehose::DeliveryStream.KMSEncryptionConfig",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"AWSKMSKeyARN" 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
aWSKMSKeyARN]}
instance JSON.ToJSON KMSEncryptionConfigProperty where
toJSON :: KMSEncryptionConfigProperty -> Value
toJSON KMSEncryptionConfigProperty {()
Value Text
haddock_workaround_ :: KMSEncryptionConfigProperty -> ()
aWSKMSKeyARN :: KMSEncryptionConfigProperty -> Value Text
haddock_workaround_ :: ()
aWSKMSKeyARN :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object [Key
"AWSKMSKeyARN" 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
aWSKMSKeyARN]
instance Property "AWSKMSKeyARN" KMSEncryptionConfigProperty where
type PropertyType "AWSKMSKeyARN" KMSEncryptionConfigProperty = Value Prelude.Text
set :: PropertyType "AWSKMSKeyARN" KMSEncryptionConfigProperty
-> KMSEncryptionConfigProperty -> KMSEncryptionConfigProperty
set PropertyType "AWSKMSKeyARN" KMSEncryptionConfigProperty
newValue KMSEncryptionConfigProperty {()
Value Text
haddock_workaround_ :: KMSEncryptionConfigProperty -> ()
aWSKMSKeyARN :: KMSEncryptionConfigProperty -> Value Text
haddock_workaround_ :: ()
aWSKMSKeyARN :: Value Text
..}
= KMSEncryptionConfigProperty {aWSKMSKeyARN :: Value Text
aWSKMSKeyARN = PropertyType "AWSKMSKeyARN" KMSEncryptionConfigProperty
Value Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}