module Stratosphere.SES.ReceiptRule.BounceActionProperty (
        BounceActionProperty(..), mkBounceActionProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data BounceActionProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html>
    BounceActionProperty {BounceActionProperty -> ()
haddock_workaround_ :: (),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-message>
                          BounceActionProperty -> Value Text
message :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-sender>
                          BounceActionProperty -> Value Text
sender :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-smtpreplycode>
                          BounceActionProperty -> Value Text
smtpReplyCode :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-statuscode>
                          BounceActionProperty -> Maybe (Value Text)
statusCode :: (Prelude.Maybe (Value Prelude.Text)),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-topicarn>
                          BounceActionProperty -> Maybe (Value Text)
topicArn :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (BounceActionProperty -> BounceActionProperty -> Bool
(BounceActionProperty -> BounceActionProperty -> Bool)
-> (BounceActionProperty -> BounceActionProperty -> Bool)
-> Eq BounceActionProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BounceActionProperty -> BounceActionProperty -> Bool
== :: BounceActionProperty -> BounceActionProperty -> Bool
$c/= :: BounceActionProperty -> BounceActionProperty -> Bool
/= :: BounceActionProperty -> BounceActionProperty -> Bool
Prelude.Eq, Int -> BounceActionProperty -> ShowS
[BounceActionProperty] -> ShowS
BounceActionProperty -> String
(Int -> BounceActionProperty -> ShowS)
-> (BounceActionProperty -> String)
-> ([BounceActionProperty] -> ShowS)
-> Show BounceActionProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> BounceActionProperty -> ShowS
showsPrec :: Int -> BounceActionProperty -> ShowS
$cshow :: BounceActionProperty -> String
show :: BounceActionProperty -> String
$cshowList :: [BounceActionProperty] -> ShowS
showList :: [BounceActionProperty] -> ShowS
Prelude.Show)
mkBounceActionProperty ::
  Value Prelude.Text
  -> Value Prelude.Text -> Value Prelude.Text -> BounceActionProperty
mkBounceActionProperty :: Value Text -> Value Text -> Value Text -> BounceActionProperty
mkBounceActionProperty Value Text
message Value Text
sender Value Text
smtpReplyCode
  = BounceActionProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), message :: Value Text
message = Value Text
message, sender :: Value Text
sender = Value Text
sender,
       smtpReplyCode :: Value Text
smtpReplyCode = Value Text
smtpReplyCode, statusCode :: Maybe (Value Text)
statusCode = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       topicArn :: Maybe (Value Text)
topicArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties BounceActionProperty where
  toResourceProperties :: BounceActionProperty -> ResourceProperties
toResourceProperties BounceActionProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: BounceActionProperty -> ()
message :: BounceActionProperty -> Value Text
sender :: BounceActionProperty -> Value Text
smtpReplyCode :: BounceActionProperty -> Value Text
statusCode :: BounceActionProperty -> Maybe (Value Text)
topicArn :: BounceActionProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::SES::ReceiptRule.BounceAction",
         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
"Message" 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
message, Key
"Sender" 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
sender,
                            Key
"SmtpReplyCode" 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
smtpReplyCode]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [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
"StatusCode" (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)
statusCode,
                               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
"TopicArn" (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)
topicArn]))}
instance JSON.ToJSON BounceActionProperty where
  toJSON :: BounceActionProperty -> Value
toJSON BounceActionProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: BounceActionProperty -> ()
message :: BounceActionProperty -> Value Text
sender :: BounceActionProperty -> Value Text
smtpReplyCode :: BounceActionProperty -> Value Text
statusCode :: BounceActionProperty -> Maybe (Value Text)
topicArn :: BounceActionProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: 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
"Message" 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
message, Key
"Sender" 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
sender,
               Key
"SmtpReplyCode" 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
smtpReplyCode]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [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
"StatusCode" (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)
statusCode,
                  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
"TopicArn" (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)
topicArn])))
instance Property "Message" BounceActionProperty where
  type PropertyType "Message" BounceActionProperty = Value Prelude.Text
  set :: PropertyType "Message" BounceActionProperty
-> BounceActionProperty -> BounceActionProperty
set PropertyType "Message" BounceActionProperty
newValue BounceActionProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: BounceActionProperty -> ()
message :: BounceActionProperty -> Value Text
sender :: BounceActionProperty -> Value Text
smtpReplyCode :: BounceActionProperty -> Value Text
statusCode :: BounceActionProperty -> Maybe (Value Text)
topicArn :: BounceActionProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
..}
    = BounceActionProperty {message :: Value Text
message = PropertyType "Message" BounceActionProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
haddock_workaround_ :: ()
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
..}
instance Property "Sender" BounceActionProperty where
  type PropertyType "Sender" BounceActionProperty = Value Prelude.Text
  set :: PropertyType "Sender" BounceActionProperty
-> BounceActionProperty -> BounceActionProperty
set PropertyType "Sender" BounceActionProperty
newValue BounceActionProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: BounceActionProperty -> ()
message :: BounceActionProperty -> Value Text
sender :: BounceActionProperty -> Value Text
smtpReplyCode :: BounceActionProperty -> Value Text
statusCode :: BounceActionProperty -> Maybe (Value Text)
topicArn :: BounceActionProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
..}
    = BounceActionProperty {sender :: Value Text
sender = PropertyType "Sender" BounceActionProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
message :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
..}
instance Property "SmtpReplyCode" BounceActionProperty where
  type PropertyType "SmtpReplyCode" BounceActionProperty = Value Prelude.Text
  set :: PropertyType "SmtpReplyCode" BounceActionProperty
-> BounceActionProperty -> BounceActionProperty
set PropertyType "SmtpReplyCode" BounceActionProperty
newValue BounceActionProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: BounceActionProperty -> ()
message :: BounceActionProperty -> Value Text
sender :: BounceActionProperty -> Value Text
smtpReplyCode :: BounceActionProperty -> Value Text
statusCode :: BounceActionProperty -> Maybe (Value Text)
topicArn :: BounceActionProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
..}
    = BounceActionProperty {smtpReplyCode :: Value Text
smtpReplyCode = PropertyType "SmtpReplyCode" BounceActionProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
..}
instance Property "StatusCode" BounceActionProperty where
  type PropertyType "StatusCode" BounceActionProperty = Value Prelude.Text
  set :: PropertyType "StatusCode" BounceActionProperty
-> BounceActionProperty -> BounceActionProperty
set PropertyType "StatusCode" BounceActionProperty
newValue BounceActionProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: BounceActionProperty -> ()
message :: BounceActionProperty -> Value Text
sender :: BounceActionProperty -> Value Text
smtpReplyCode :: BounceActionProperty -> Value Text
statusCode :: BounceActionProperty -> Maybe (Value Text)
topicArn :: BounceActionProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
..}
    = BounceActionProperty {statusCode :: Maybe (Value Text)
statusCode = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "StatusCode" BounceActionProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
topicArn :: Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
topicArn :: Maybe (Value Text)
..}
instance Property "TopicArn" BounceActionProperty where
  type PropertyType "TopicArn" BounceActionProperty = Value Prelude.Text
  set :: PropertyType "TopicArn" BounceActionProperty
-> BounceActionProperty -> BounceActionProperty
set PropertyType "TopicArn" BounceActionProperty
newValue BounceActionProperty {Maybe (Value Text)
()
Value Text
haddock_workaround_ :: BounceActionProperty -> ()
message :: BounceActionProperty -> Value Text
sender :: BounceActionProperty -> Value Text
smtpReplyCode :: BounceActionProperty -> Value Text
statusCode :: BounceActionProperty -> Maybe (Value Text)
topicArn :: BounceActionProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
topicArn :: Maybe (Value Text)
..}
    = BounceActionProperty {topicArn :: Maybe (Value Text)
topicArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TopicArn" BounceActionProperty
Value Text
newValue, Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
haddock_workaround_ :: ()
message :: Value Text
sender :: Value Text
smtpReplyCode :: Value Text
statusCode :: Maybe (Value Text)
..}