stratosphere-codedeploy-1.0.0: gen/Stratosphere/CodeDeploy/DeploymentGroup/AlarmConfigurationProperty.hs
module Stratosphere.CodeDeploy.DeploymentGroup.AlarmConfigurationProperty (
module Exports, AlarmConfigurationProperty(..),
mkAlarmConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CodeDeploy.DeploymentGroup.AlarmProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data AlarmConfigurationProperty
= -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarmconfiguration.html>
AlarmConfigurationProperty {haddock_workaround_ :: (),
-- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarmconfiguration.html#cfn-codedeploy-deploymentgroup-alarmconfiguration-alarms>
alarms :: (Prelude.Maybe [AlarmProperty]),
-- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarmconfiguration.html#cfn-codedeploy-deploymentgroup-alarmconfiguration-enabled>
enabled :: (Prelude.Maybe (Value Prelude.Bool)),
-- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarmconfiguration.html#cfn-codedeploy-deploymentgroup-alarmconfiguration-ignorepollalarmfailure>
ignorePollAlarmFailure :: (Prelude.Maybe (Value Prelude.Bool))}
deriving stock (Prelude.Eq, Prelude.Show)
mkAlarmConfigurationProperty :: AlarmConfigurationProperty
mkAlarmConfigurationProperty
= AlarmConfigurationProperty
{haddock_workaround_ = (), alarms = Prelude.Nothing,
enabled = Prelude.Nothing,
ignorePollAlarmFailure = Prelude.Nothing}
instance ToResourceProperties AlarmConfigurationProperty where
toResourceProperties AlarmConfigurationProperty {..}
= ResourceProperties
{awsType = "AWS::CodeDeploy::DeploymentGroup.AlarmConfiguration",
supportsTags = Prelude.False,
properties = Prelude.fromList
(Prelude.catMaybes
[(JSON..=) "Alarms" Prelude.<$> alarms,
(JSON..=) "Enabled" Prelude.<$> enabled,
(JSON..=) "IgnorePollAlarmFailure"
Prelude.<$> ignorePollAlarmFailure])}
instance JSON.ToJSON AlarmConfigurationProperty where
toJSON AlarmConfigurationProperty {..}
= JSON.object
(Prelude.fromList
(Prelude.catMaybes
[(JSON..=) "Alarms" Prelude.<$> alarms,
(JSON..=) "Enabled" Prelude.<$> enabled,
(JSON..=) "IgnorePollAlarmFailure"
Prelude.<$> ignorePollAlarmFailure]))
instance Property "Alarms" AlarmConfigurationProperty where
type PropertyType "Alarms" AlarmConfigurationProperty = [AlarmProperty]
set newValue AlarmConfigurationProperty {..}
= AlarmConfigurationProperty {alarms = Prelude.pure newValue, ..}
instance Property "Enabled" AlarmConfigurationProperty where
type PropertyType "Enabled" AlarmConfigurationProperty = Value Prelude.Bool
set newValue AlarmConfigurationProperty {..}
= AlarmConfigurationProperty {enabled = Prelude.pure newValue, ..}
instance Property "IgnorePollAlarmFailure" AlarmConfigurationProperty where
type PropertyType "IgnorePollAlarmFailure" AlarmConfigurationProperty = Value Prelude.Bool
set newValue AlarmConfigurationProperty {..}
= AlarmConfigurationProperty
{ignorePollAlarmFailure = Prelude.pure newValue, ..}