module Stratosphere.Config.DeliveryChannel (
        module Exports, DeliveryChannel(..), mkDeliveryChannel
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Config.DeliveryChannel.ConfigSnapshotDeliveryPropertiesProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data DeliveryChannel
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html>
    DeliveryChannel {DeliveryChannel -> ()
haddock_workaround_ :: (),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-configsnapshotdeliveryproperties>
                     DeliveryChannel -> Maybe ConfigSnapshotDeliveryPropertiesProperty
configSnapshotDeliveryProperties :: (Prelude.Maybe ConfigSnapshotDeliveryPropertiesProperty),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-name>
                     DeliveryChannel -> Maybe (Value Text)
name :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-s3bucketname>
                     DeliveryChannel -> Value Text
s3BucketName :: (Value Prelude.Text),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-s3keyprefix>
                     DeliveryChannel -> Maybe (Value Text)
s3KeyPrefix :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-s3kmskeyarn>
                     DeliveryChannel -> Maybe (Value Text)
s3KmsKeyArn :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-snstopicarn>
                     DeliveryChannel -> Maybe (Value Text)
snsTopicARN :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (DeliveryChannel -> DeliveryChannel -> Bool
(DeliveryChannel -> DeliveryChannel -> Bool)
-> (DeliveryChannel -> DeliveryChannel -> Bool)
-> Eq DeliveryChannel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeliveryChannel -> DeliveryChannel -> Bool
== :: DeliveryChannel -> DeliveryChannel -> Bool
$c/= :: DeliveryChannel -> DeliveryChannel -> Bool
/= :: DeliveryChannel -> DeliveryChannel -> Bool
Prelude.Eq, Int -> DeliveryChannel -> ShowS
[DeliveryChannel] -> ShowS
DeliveryChannel -> String
(Int -> DeliveryChannel -> ShowS)
-> (DeliveryChannel -> String)
-> ([DeliveryChannel] -> ShowS)
-> Show DeliveryChannel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DeliveryChannel -> ShowS
showsPrec :: Int -> DeliveryChannel -> ShowS
$cshow :: DeliveryChannel -> String
show :: DeliveryChannel -> String
$cshowList :: [DeliveryChannel] -> ShowS
showList :: [DeliveryChannel] -> ShowS
Prelude.Show)
mkDeliveryChannel :: Value Prelude.Text -> DeliveryChannel
mkDeliveryChannel :: Value Text -> DeliveryChannel
mkDeliveryChannel Value Text
s3BucketName
  = DeliveryChannel
      {haddock_workaround_ :: ()
haddock_workaround_ = (), s3BucketName :: Value Text
s3BucketName = Value Text
s3BucketName,
       configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
configSnapshotDeliveryProperties = Maybe ConfigSnapshotDeliveryPropertiesProperty
forall a. Maybe a
Prelude.Nothing,
       name :: Maybe (Value Text)
name = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, s3KeyPrefix :: Maybe (Value Text)
s3KeyPrefix = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       s3KmsKeyArn :: Maybe (Value Text)
s3KmsKeyArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, snsTopicARN :: Maybe (Value Text)
snsTopicARN = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties DeliveryChannel where
  toResourceProperties :: DeliveryChannel -> ResourceProperties
toResourceProperties DeliveryChannel {Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: DeliveryChannel -> ()
configSnapshotDeliveryProperties :: DeliveryChannel -> Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: DeliveryChannel -> Maybe (Value Text)
s3BucketName :: DeliveryChannel -> Value Text
s3KeyPrefix :: DeliveryChannel -> Maybe (Value Text)
s3KmsKeyArn :: DeliveryChannel -> Maybe (Value Text)
snsTopicARN :: DeliveryChannel -> Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Config::DeliveryChannel",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"S3BucketName" 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
s3BucketName]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> ConfigSnapshotDeliveryPropertiesProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ConfigSnapshotDeliveryProperties"
                                 (ConfigSnapshotDeliveryPropertiesProperty -> (Key, Value))
-> Maybe ConfigSnapshotDeliveryPropertiesProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ConfigSnapshotDeliveryPropertiesProperty
configSnapshotDeliveryProperties,
                               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
"Name" (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)
name,
                               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
"S3KeyPrefix" (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)
s3KeyPrefix,
                               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
"S3KmsKeyArn" (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)
s3KmsKeyArn,
                               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
"SnsTopicARN" (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)
snsTopicARN]))}
instance JSON.ToJSON DeliveryChannel where
  toJSON :: DeliveryChannel -> Value
toJSON DeliveryChannel {Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: DeliveryChannel -> ()
configSnapshotDeliveryProperties :: DeliveryChannel -> Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: DeliveryChannel -> Maybe (Value Text)
s3BucketName :: DeliveryChannel -> Value Text
s3KeyPrefix :: DeliveryChannel -> Maybe (Value Text)
s3KmsKeyArn :: DeliveryChannel -> Maybe (Value Text)
snsTopicARN :: DeliveryChannel -> Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"S3BucketName" 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
s3BucketName]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> ConfigSnapshotDeliveryPropertiesProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ConfigSnapshotDeliveryProperties"
                    (ConfigSnapshotDeliveryPropertiesProperty -> (Key, Value))
-> Maybe ConfigSnapshotDeliveryPropertiesProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ConfigSnapshotDeliveryPropertiesProperty
configSnapshotDeliveryProperties,
                  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
"Name" (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)
name,
                  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
"S3KeyPrefix" (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)
s3KeyPrefix,
                  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
"S3KmsKeyArn" (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)
s3KmsKeyArn,
                  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
"SnsTopicARN" (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)
snsTopicARN])))
instance Property "ConfigSnapshotDeliveryProperties" DeliveryChannel where
  type PropertyType "ConfigSnapshotDeliveryProperties" DeliveryChannel = ConfigSnapshotDeliveryPropertiesProperty
  set :: PropertyType "ConfigSnapshotDeliveryProperties" DeliveryChannel
-> DeliveryChannel -> DeliveryChannel
set PropertyType "ConfigSnapshotDeliveryProperties" DeliveryChannel
newValue DeliveryChannel {Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: DeliveryChannel -> ()
configSnapshotDeliveryProperties :: DeliveryChannel -> Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: DeliveryChannel -> Maybe (Value Text)
s3BucketName :: DeliveryChannel -> Value Text
s3KeyPrefix :: DeliveryChannel -> Maybe (Value Text)
s3KmsKeyArn :: DeliveryChannel -> Maybe (Value Text)
snsTopicARN :: DeliveryChannel -> Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
    = DeliveryChannel
        {configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
configSnapshotDeliveryProperties = ConfigSnapshotDeliveryPropertiesProperty
-> Maybe ConfigSnapshotDeliveryPropertiesProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ConfigSnapshotDeliveryProperties" DeliveryChannel
ConfigSnapshotDeliveryPropertiesProperty
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
haddock_workaround_ :: ()
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
instance Property "Name" DeliveryChannel where
  type PropertyType "Name" DeliveryChannel = Value Prelude.Text
  set :: PropertyType "Name" DeliveryChannel
-> DeliveryChannel -> DeliveryChannel
set PropertyType "Name" DeliveryChannel
newValue DeliveryChannel {Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: DeliveryChannel -> ()
configSnapshotDeliveryProperties :: DeliveryChannel -> Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: DeliveryChannel -> Maybe (Value Text)
s3BucketName :: DeliveryChannel -> Value Text
s3KeyPrefix :: DeliveryChannel -> Maybe (Value Text)
s3KmsKeyArn :: DeliveryChannel -> Maybe (Value Text)
snsTopicARN :: DeliveryChannel -> Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
    = DeliveryChannel {name :: Maybe (Value Text)
name = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Name" DeliveryChannel
Value Text
newValue, Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
instance Property "S3BucketName" DeliveryChannel where
  type PropertyType "S3BucketName" DeliveryChannel = Value Prelude.Text
  set :: PropertyType "S3BucketName" DeliveryChannel
-> DeliveryChannel -> DeliveryChannel
set PropertyType "S3BucketName" DeliveryChannel
newValue DeliveryChannel {Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: DeliveryChannel -> ()
configSnapshotDeliveryProperties :: DeliveryChannel -> Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: DeliveryChannel -> Maybe (Value Text)
s3BucketName :: DeliveryChannel -> Value Text
s3KeyPrefix :: DeliveryChannel -> Maybe (Value Text)
s3KmsKeyArn :: DeliveryChannel -> Maybe (Value Text)
snsTopicARN :: DeliveryChannel -> Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
    = DeliveryChannel {s3BucketName :: Value Text
s3BucketName = PropertyType "S3BucketName" DeliveryChannel
Value Text
newValue, Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
instance Property "S3KeyPrefix" DeliveryChannel where
  type PropertyType "S3KeyPrefix" DeliveryChannel = Value Prelude.Text
  set :: PropertyType "S3KeyPrefix" DeliveryChannel
-> DeliveryChannel -> DeliveryChannel
set PropertyType "S3KeyPrefix" DeliveryChannel
newValue DeliveryChannel {Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: DeliveryChannel -> ()
configSnapshotDeliveryProperties :: DeliveryChannel -> Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: DeliveryChannel -> Maybe (Value Text)
s3BucketName :: DeliveryChannel -> Value Text
s3KeyPrefix :: DeliveryChannel -> Maybe (Value Text)
s3KmsKeyArn :: DeliveryChannel -> Maybe (Value Text)
snsTopicARN :: DeliveryChannel -> Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
    = DeliveryChannel {s3KeyPrefix :: Maybe (Value Text)
s3KeyPrefix = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "S3KeyPrefix" DeliveryChannel
Value Text
newValue, Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
instance Property "S3KmsKeyArn" DeliveryChannel where
  type PropertyType "S3KmsKeyArn" DeliveryChannel = Value Prelude.Text
  set :: PropertyType "S3KmsKeyArn" DeliveryChannel
-> DeliveryChannel -> DeliveryChannel
set PropertyType "S3KmsKeyArn" DeliveryChannel
newValue DeliveryChannel {Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: DeliveryChannel -> ()
configSnapshotDeliveryProperties :: DeliveryChannel -> Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: DeliveryChannel -> Maybe (Value Text)
s3BucketName :: DeliveryChannel -> Value Text
s3KeyPrefix :: DeliveryChannel -> Maybe (Value Text)
s3KmsKeyArn :: DeliveryChannel -> Maybe (Value Text)
snsTopicARN :: DeliveryChannel -> Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
    = DeliveryChannel {s3KmsKeyArn :: Maybe (Value Text)
s3KmsKeyArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "S3KmsKeyArn" DeliveryChannel
Value Text
newValue, Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
instance Property "SnsTopicARN" DeliveryChannel where
  type PropertyType "SnsTopicARN" DeliveryChannel = Value Prelude.Text
  set :: PropertyType "SnsTopicARN" DeliveryChannel
-> DeliveryChannel -> DeliveryChannel
set PropertyType "SnsTopicARN" DeliveryChannel
newValue DeliveryChannel {Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: DeliveryChannel -> ()
configSnapshotDeliveryProperties :: DeliveryChannel -> Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: DeliveryChannel -> Maybe (Value Text)
s3BucketName :: DeliveryChannel -> Value Text
s3KeyPrefix :: DeliveryChannel -> Maybe (Value Text)
s3KmsKeyArn :: DeliveryChannel -> Maybe (Value Text)
snsTopicARN :: DeliveryChannel -> Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
snsTopicARN :: Maybe (Value Text)
..}
    = DeliveryChannel {snsTopicARN :: Maybe (Value Text)
snsTopicARN = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SnsTopicARN" DeliveryChannel
Value Text
newValue, Maybe (Value Text)
Maybe ConfigSnapshotDeliveryPropertiesProperty
()
Value Text
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
haddock_workaround_ :: ()
configSnapshotDeliveryProperties :: Maybe ConfigSnapshotDeliveryPropertiesProperty
name :: Maybe (Value Text)
s3BucketName :: Value Text
s3KeyPrefix :: Maybe (Value Text)
s3KmsKeyArn :: Maybe (Value Text)
..}