module Stratosphere.S3.Bucket.NotificationFilterProperty (
module Exports, NotificationFilterProperty(..),
mkNotificationFilterProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.S3.Bucket.S3KeyFilterProperty as Exports
import Stratosphere.ResourceProperties
data NotificationFilterProperty
=
NotificationFilterProperty {NotificationFilterProperty -> ()
haddock_workaround_ :: (),
NotificationFilterProperty -> S3KeyFilterProperty
s3Key :: S3KeyFilterProperty}
deriving stock (NotificationFilterProperty -> NotificationFilterProperty -> Bool
(NotificationFilterProperty -> NotificationFilterProperty -> Bool)
-> (NotificationFilterProperty
-> NotificationFilterProperty -> Bool)
-> Eq NotificationFilterProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NotificationFilterProperty -> NotificationFilterProperty -> Bool
== :: NotificationFilterProperty -> NotificationFilterProperty -> Bool
$c/= :: NotificationFilterProperty -> NotificationFilterProperty -> Bool
/= :: NotificationFilterProperty -> NotificationFilterProperty -> Bool
Prelude.Eq, Int -> NotificationFilterProperty -> ShowS
[NotificationFilterProperty] -> ShowS
NotificationFilterProperty -> String
(Int -> NotificationFilterProperty -> ShowS)
-> (NotificationFilterProperty -> String)
-> ([NotificationFilterProperty] -> ShowS)
-> Show NotificationFilterProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NotificationFilterProperty -> ShowS
showsPrec :: Int -> NotificationFilterProperty -> ShowS
$cshow :: NotificationFilterProperty -> String
show :: NotificationFilterProperty -> String
$cshowList :: [NotificationFilterProperty] -> ShowS
showList :: [NotificationFilterProperty] -> ShowS
Prelude.Show)
mkNotificationFilterProperty ::
S3KeyFilterProperty -> NotificationFilterProperty
mkNotificationFilterProperty :: S3KeyFilterProperty -> NotificationFilterProperty
mkNotificationFilterProperty S3KeyFilterProperty
s3Key
= NotificationFilterProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), s3Key :: S3KeyFilterProperty
s3Key = S3KeyFilterProperty
s3Key}
instance ToResourceProperties NotificationFilterProperty where
toResourceProperties :: NotificationFilterProperty -> ResourceProperties
toResourceProperties NotificationFilterProperty {()
S3KeyFilterProperty
haddock_workaround_ :: NotificationFilterProperty -> ()
s3Key :: NotificationFilterProperty -> S3KeyFilterProperty
haddock_workaround_ :: ()
s3Key :: S3KeyFilterProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::S3::Bucket.NotificationFilter",
supportsTags :: Bool
supportsTags = Bool
Prelude.False, properties :: Object
properties = [Key
"S3Key" Key -> S3KeyFilterProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= S3KeyFilterProperty
s3Key]}
instance JSON.ToJSON NotificationFilterProperty where
toJSON :: NotificationFilterProperty -> Value
toJSON NotificationFilterProperty {()
S3KeyFilterProperty
haddock_workaround_ :: NotificationFilterProperty -> ()
s3Key :: NotificationFilterProperty -> S3KeyFilterProperty
haddock_workaround_ :: ()
s3Key :: S3KeyFilterProperty
..}
= [(Key, Value)] -> Value
JSON.object [Key
"S3Key" Key -> S3KeyFilterProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= S3KeyFilterProperty
s3Key]
instance Property "S3Key" NotificationFilterProperty where
type PropertyType "S3Key" NotificationFilterProperty = S3KeyFilterProperty
set :: PropertyType "S3Key" NotificationFilterProperty
-> NotificationFilterProperty -> NotificationFilterProperty
set PropertyType "S3Key" NotificationFilterProperty
newValue NotificationFilterProperty {()
S3KeyFilterProperty
haddock_workaround_ :: NotificationFilterProperty -> ()
s3Key :: NotificationFilterProperty -> S3KeyFilterProperty
haddock_workaround_ :: ()
s3Key :: S3KeyFilterProperty
..}
= NotificationFilterProperty {s3Key :: S3KeyFilterProperty
s3Key = PropertyType "S3Key" NotificationFilterProperty
S3KeyFilterProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}