module Stratosphere.Notifications.ChannelAssociation (
        ChannelAssociation(..), mkChannelAssociation
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ChannelAssociation
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-notifications-channelassociation.html>
    ChannelAssociation {ChannelAssociation -> ()
haddock_workaround_ :: (),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-notifications-channelassociation.html#cfn-notifications-channelassociation-arn>
                        ChannelAssociation -> Value Text
arn :: (Value Prelude.Text),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-notifications-channelassociation.html#cfn-notifications-channelassociation-notificationconfigurationarn>
                        ChannelAssociation -> Value Text
notificationConfigurationArn :: (Value Prelude.Text)}
  deriving stock (ChannelAssociation -> ChannelAssociation -> Bool
(ChannelAssociation -> ChannelAssociation -> Bool)
-> (ChannelAssociation -> ChannelAssociation -> Bool)
-> Eq ChannelAssociation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ChannelAssociation -> ChannelAssociation -> Bool
== :: ChannelAssociation -> ChannelAssociation -> Bool
$c/= :: ChannelAssociation -> ChannelAssociation -> Bool
/= :: ChannelAssociation -> ChannelAssociation -> Bool
Prelude.Eq, Int -> ChannelAssociation -> ShowS
[ChannelAssociation] -> ShowS
ChannelAssociation -> String
(Int -> ChannelAssociation -> ShowS)
-> (ChannelAssociation -> String)
-> ([ChannelAssociation] -> ShowS)
-> Show ChannelAssociation
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ChannelAssociation -> ShowS
showsPrec :: Int -> ChannelAssociation -> ShowS
$cshow :: ChannelAssociation -> String
show :: ChannelAssociation -> String
$cshowList :: [ChannelAssociation] -> ShowS
showList :: [ChannelAssociation] -> ShowS
Prelude.Show)
mkChannelAssociation ::
  Value Prelude.Text -> Value Prelude.Text -> ChannelAssociation
mkChannelAssociation :: Value Text -> Value Text -> ChannelAssociation
mkChannelAssociation Value Text
arn Value Text
notificationConfigurationArn
  = ChannelAssociation
      {haddock_workaround_ :: ()
haddock_workaround_ = (), arn :: Value Text
arn = Value Text
arn,
       notificationConfigurationArn :: Value Text
notificationConfigurationArn = Value Text
notificationConfigurationArn}
instance ToResourceProperties ChannelAssociation where
  toResourceProperties :: ChannelAssociation -> ResourceProperties
toResourceProperties ChannelAssociation {()
Value Text
haddock_workaround_ :: ChannelAssociation -> ()
arn :: ChannelAssociation -> Value Text
notificationConfigurationArn :: ChannelAssociation -> Value Text
haddock_workaround_ :: ()
arn :: Value Text
notificationConfigurationArn :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Notifications::ChannelAssociation",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Arn" 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
arn,
                       Key
"NotificationConfigurationArn"
                         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
notificationConfigurationArn]}
instance JSON.ToJSON ChannelAssociation where
  toJSON :: ChannelAssociation -> Value
toJSON ChannelAssociation {()
Value Text
haddock_workaround_ :: ChannelAssociation -> ()
arn :: ChannelAssociation -> Value Text
notificationConfigurationArn :: ChannelAssociation -> Value Text
haddock_workaround_ :: ()
arn :: Value Text
notificationConfigurationArn :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"Arn" 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
arn,
         Key
"NotificationConfigurationArn"
           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
notificationConfigurationArn]
instance Property "Arn" ChannelAssociation where
  type PropertyType "Arn" ChannelAssociation = Value Prelude.Text
  set :: PropertyType "Arn" ChannelAssociation
-> ChannelAssociation -> ChannelAssociation
set PropertyType "Arn" ChannelAssociation
newValue ChannelAssociation {()
Value Text
haddock_workaround_ :: ChannelAssociation -> ()
arn :: ChannelAssociation -> Value Text
notificationConfigurationArn :: ChannelAssociation -> Value Text
haddock_workaround_ :: ()
arn :: Value Text
notificationConfigurationArn :: Value Text
..}
    = ChannelAssociation {arn :: Value Text
arn = PropertyType "Arn" ChannelAssociation
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
notificationConfigurationArn :: Value Text
haddock_workaround_ :: ()
notificationConfigurationArn :: Value Text
..}
instance Property "NotificationConfigurationArn" ChannelAssociation where
  type PropertyType "NotificationConfigurationArn" ChannelAssociation = Value Prelude.Text
  set :: PropertyType "NotificationConfigurationArn" ChannelAssociation
-> ChannelAssociation -> ChannelAssociation
set PropertyType "NotificationConfigurationArn" ChannelAssociation
newValue ChannelAssociation {()
Value Text
haddock_workaround_ :: ChannelAssociation -> ()
arn :: ChannelAssociation -> Value Text
notificationConfigurationArn :: ChannelAssociation -> Value Text
haddock_workaround_ :: ()
arn :: Value Text
notificationConfigurationArn :: Value Text
..}
    = ChannelAssociation {notificationConfigurationArn :: Value Text
notificationConfigurationArn = PropertyType "NotificationConfigurationArn" ChannelAssociation
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
arn :: Value Text
haddock_workaround_ :: ()
arn :: Value Text
..}