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