ReferrerPolicyProperty.hs

module Stratosphere.CloudFront.ResponseHeadersPolicy.ReferrerPolicyProperty (
        ReferrerPolicyProperty(..), mkReferrerPolicyProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ReferrerPolicyProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-referrerpolicy.html>
    ReferrerPolicyProperty {haddock_workaround_ :: (),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-referrerpolicy.html#cfn-cloudfront-responseheaderspolicy-referrerpolicy-override>
                            override :: (Value Prelude.Bool),
                            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-referrerpolicy.html#cfn-cloudfront-responseheaderspolicy-referrerpolicy-referrerpolicy>
                            referrerPolicy :: (Value Prelude.Text)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkReferrerPolicyProperty ::
  Value Prelude.Bool -> Value Prelude.Text -> ReferrerPolicyProperty
mkReferrerPolicyProperty override referrerPolicy
  = ReferrerPolicyProperty
      {haddock_workaround_ = (), override = override,
       referrerPolicy = referrerPolicy}
instance ToResourceProperties ReferrerPolicyProperty where
  toResourceProperties ReferrerPolicyProperty {..}
    = ResourceProperties
        {awsType = "AWS::CloudFront::ResponseHeadersPolicy.ReferrerPolicy",
         supportsTags = Prelude.False,
         properties = ["Override" JSON..= override,
                       "ReferrerPolicy" JSON..= referrerPolicy]}
instance JSON.ToJSON ReferrerPolicyProperty where
  toJSON ReferrerPolicyProperty {..}
    = JSON.object
        ["Override" JSON..= override,
         "ReferrerPolicy" JSON..= referrerPolicy]
instance Property "Override" ReferrerPolicyProperty where
  type PropertyType "Override" ReferrerPolicyProperty = Value Prelude.Bool
  set newValue ReferrerPolicyProperty {..}
    = ReferrerPolicyProperty {override = newValue, ..}
instance Property "ReferrerPolicy" ReferrerPolicyProperty where
  type PropertyType "ReferrerPolicy" ReferrerPolicyProperty = Value Prelude.Text
  set newValue ReferrerPolicyProperty {..}
    = ReferrerPolicyProperty {referrerPolicy = newValue, ..}