module Stratosphere.CloudFront.ContinuousDeploymentPolicy ( module Exports, ContinuousDeploymentPolicy(..), mkContinuousDeploymentPolicy ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import {-# SOURCE #-} Stratosphere.CloudFront.ContinuousDeploymentPolicy.ContinuousDeploymentPolicyConfigProperty as Exports import Stratosphere.ResourceProperties data ContinuousDeploymentPolicy = -- | See: ContinuousDeploymentPolicy {haddock_workaround_ :: (), -- | See: continuousDeploymentPolicyConfig :: ContinuousDeploymentPolicyConfigProperty} deriving stock (Prelude.Eq, Prelude.Show) mkContinuousDeploymentPolicy :: ContinuousDeploymentPolicyConfigProperty -> ContinuousDeploymentPolicy mkContinuousDeploymentPolicy continuousDeploymentPolicyConfig = ContinuousDeploymentPolicy {haddock_workaround_ = (), continuousDeploymentPolicyConfig = continuousDeploymentPolicyConfig} instance ToResourceProperties ContinuousDeploymentPolicy where toResourceProperties ContinuousDeploymentPolicy {..} = ResourceProperties {awsType = "AWS::CloudFront::ContinuousDeploymentPolicy", supportsTags = Prelude.False, properties = ["ContinuousDeploymentPolicyConfig" JSON..= continuousDeploymentPolicyConfig]} instance JSON.ToJSON ContinuousDeploymentPolicy where toJSON ContinuousDeploymentPolicy {..} = JSON.object ["ContinuousDeploymentPolicyConfig" JSON..= continuousDeploymentPolicyConfig] instance Property "ContinuousDeploymentPolicyConfig" ContinuousDeploymentPolicy where type PropertyType "ContinuousDeploymentPolicyConfig" ContinuousDeploymentPolicy = ContinuousDeploymentPolicyConfigProperty set newValue ContinuousDeploymentPolicy {..} = ContinuousDeploymentPolicy {continuousDeploymentPolicyConfig = newValue, ..}