ZonalConfigProperty.hs

module Stratosphere.CodeDeploy.DeploymentConfig.ZonalConfigProperty (
        module Exports, ZonalConfigProperty(..), mkZonalConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CodeDeploy.DeploymentConfig.MinimumHealthyHostsPerZoneProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ZonalConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentconfig-zonalconfig.html>
    ZonalConfigProperty {haddock_workaround_ :: (),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentconfig-zonalconfig.html#cfn-codedeploy-deploymentconfig-zonalconfig-firstzonemonitordurationinseconds>
                         firstZoneMonitorDurationInSeconds :: (Prelude.Maybe (Value Prelude.Integer)),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentconfig-zonalconfig.html#cfn-codedeploy-deploymentconfig-zonalconfig-minimumhealthyhostsperzone>
                         minimumHealthyHostsPerZone :: (Prelude.Maybe MinimumHealthyHostsPerZoneProperty),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentconfig-zonalconfig.html#cfn-codedeploy-deploymentconfig-zonalconfig-monitordurationinseconds>
                         monitorDurationInSeconds :: (Prelude.Maybe (Value Prelude.Integer))}
  deriving stock (Prelude.Eq, Prelude.Show)
mkZonalConfigProperty :: ZonalConfigProperty
mkZonalConfigProperty
  = ZonalConfigProperty
      {haddock_workaround_ = (),
       firstZoneMonitorDurationInSeconds = Prelude.Nothing,
       minimumHealthyHostsPerZone = Prelude.Nothing,
       monitorDurationInSeconds = Prelude.Nothing}
instance ToResourceProperties ZonalConfigProperty where
  toResourceProperties ZonalConfigProperty {..}
    = ResourceProperties
        {awsType = "AWS::CodeDeploy::DeploymentConfig.ZonalConfig",
         supportsTags = Prelude.False,
         properties = Prelude.fromList
                        (Prelude.catMaybes
                           [(JSON..=) "FirstZoneMonitorDurationInSeconds"
                              Prelude.<$> firstZoneMonitorDurationInSeconds,
                            (JSON..=) "MinimumHealthyHostsPerZone"
                              Prelude.<$> minimumHealthyHostsPerZone,
                            (JSON..=) "MonitorDurationInSeconds"
                              Prelude.<$> monitorDurationInSeconds])}
instance JSON.ToJSON ZonalConfigProperty where
  toJSON ZonalConfigProperty {..}
    = JSON.object
        (Prelude.fromList
           (Prelude.catMaybes
              [(JSON..=) "FirstZoneMonitorDurationInSeconds"
                 Prelude.<$> firstZoneMonitorDurationInSeconds,
               (JSON..=) "MinimumHealthyHostsPerZone"
                 Prelude.<$> minimumHealthyHostsPerZone,
               (JSON..=) "MonitorDurationInSeconds"
                 Prelude.<$> monitorDurationInSeconds]))
instance Property "FirstZoneMonitorDurationInSeconds" ZonalConfigProperty where
  type PropertyType "FirstZoneMonitorDurationInSeconds" ZonalConfigProperty = Value Prelude.Integer
  set newValue ZonalConfigProperty {..}
    = ZonalConfigProperty
        {firstZoneMonitorDurationInSeconds = Prelude.pure newValue, ..}
instance Property "MinimumHealthyHostsPerZone" ZonalConfigProperty where
  type PropertyType "MinimumHealthyHostsPerZone" ZonalConfigProperty = MinimumHealthyHostsPerZoneProperty
  set newValue ZonalConfigProperty {..}
    = ZonalConfigProperty
        {minimumHealthyHostsPerZone = Prelude.pure newValue, ..}
instance Property "MonitorDurationInSeconds" ZonalConfigProperty where
  type PropertyType "MonitorDurationInSeconds" ZonalConfigProperty = Value Prelude.Integer
  set newValue ZonalConfigProperty {..}
    = ZonalConfigProperty
        {monitorDurationInSeconds = Prelude.pure newValue, ..}