ResponseHeadersPolicy.hs

module Stratosphere.CloudFront.ResponseHeadersPolicy (
        module Exports, ResponseHeadersPolicy(..), mkResponseHeadersPolicy
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CloudFront.ResponseHeadersPolicy.ResponseHeadersPolicyConfigProperty as Exports
import Stratosphere.ResourceProperties
data ResponseHeadersPolicy
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-responseheaderspolicy.html>
    ResponseHeadersPolicy {haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-responseheaderspolicy.html#cfn-cloudfront-responseheaderspolicy-responseheaderspolicyconfig>
                           responseHeadersPolicyConfig :: ResponseHeadersPolicyConfigProperty}
  deriving stock (Prelude.Eq, Prelude.Show)
mkResponseHeadersPolicy ::
  ResponseHeadersPolicyConfigProperty -> ResponseHeadersPolicy
mkResponseHeadersPolicy responseHeadersPolicyConfig
  = ResponseHeadersPolicy
      {haddock_workaround_ = (),
       responseHeadersPolicyConfig = responseHeadersPolicyConfig}
instance ToResourceProperties ResponseHeadersPolicy where
  toResourceProperties ResponseHeadersPolicy {..}
    = ResourceProperties
        {awsType = "AWS::CloudFront::ResponseHeadersPolicy",
         supportsTags = Prelude.False,
         properties = ["ResponseHeadersPolicyConfig"
                         JSON..= responseHeadersPolicyConfig]}
instance JSON.ToJSON ResponseHeadersPolicy where
  toJSON ResponseHeadersPolicy {..}
    = JSON.object
        ["ResponseHeadersPolicyConfig" JSON..= responseHeadersPolicyConfig]
instance Property "ResponseHeadersPolicyConfig" ResponseHeadersPolicy where
  type PropertyType "ResponseHeadersPolicyConfig" ResponseHeadersPolicy = ResponseHeadersPolicyConfigProperty
  set newValue ResponseHeadersPolicy {..}
    = ResponseHeadersPolicy
        {responseHeadersPolicyConfig = newValue, ..}