stratosphere-cloudfront-1.0.0: gen/Stratosphere/CloudFront/MonitoringSubscription.hs

module Stratosphere.CloudFront.MonitoringSubscription (
        module Exports, MonitoringSubscription(..),
        mkMonitoringSubscription
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CloudFront.MonitoringSubscription.MonitoringSubscriptionProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data MonitoringSubscription
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-monitoringsubscription.html>
    MonitoringSubscription {haddock_workaround_ :: (),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-monitoringsubscription.html#cfn-cloudfront-monitoringsubscription-distributionid>
                            distributionId :: (Value Prelude.Text),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-monitoringsubscription.html#cfn-cloudfront-monitoringsubscription-monitoringsubscription>
                            monitoringSubscription :: MonitoringSubscriptionProperty}
  deriving stock (Prelude.Eq, Prelude.Show)
mkMonitoringSubscription ::
  Value Prelude.Text
  -> MonitoringSubscriptionProperty -> MonitoringSubscription
mkMonitoringSubscription distributionId monitoringSubscription
  = MonitoringSubscription
      {haddock_workaround_ = (), distributionId = distributionId,
       monitoringSubscription = monitoringSubscription}
instance ToResourceProperties MonitoringSubscription where
  toResourceProperties MonitoringSubscription {..}
    = ResourceProperties
        {awsType = "AWS::CloudFront::MonitoringSubscription",
         supportsTags = Prelude.False,
         properties = ["DistributionId" JSON..= distributionId,
                       "MonitoringSubscription" JSON..= monitoringSubscription]}
instance JSON.ToJSON MonitoringSubscription where
  toJSON MonitoringSubscription {..}
    = JSON.object
        ["DistributionId" JSON..= distributionId,
         "MonitoringSubscription" JSON..= monitoringSubscription]
instance Property "DistributionId" MonitoringSubscription where
  type PropertyType "DistributionId" MonitoringSubscription = Value Prelude.Text
  set newValue MonitoringSubscription {..}
    = MonitoringSubscription {distributionId = newValue, ..}
instance Property "MonitoringSubscription" MonitoringSubscription where
  type PropertyType "MonitoringSubscription" MonitoringSubscription = MonitoringSubscriptionProperty
  set newValue MonitoringSubscription {..}
    = MonitoringSubscription {monitoringSubscription = newValue, ..}