module Stratosphere.ARCRegionSwitch.Plan.ExecutionBlockConfigurationProperty (
        module Exports, ExecutionBlockConfigurationProperty(..),
        mkExecutionBlockConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.ArcRoutingControlConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.CustomActionLambdaConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.Ec2AsgCapacityIncreaseConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.EcsCapacityIncreaseConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.EksResourceScalingConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.ExecutionApprovalConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.GlobalAuroraConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.ParallelExecutionBlockConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.RegionSwitchPlanConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.Route53HealthCheckConfigurationProperty as Exports
import Stratosphere.ResourceProperties
data ExecutionBlockConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html>
    ExecutionBlockConfigurationProperty {ExecutionBlockConfigurationProperty -> ()
haddock_workaround_ :: (),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-arcroutingcontrolconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
arcRoutingControlConfig :: (Prelude.Maybe ArcRoutingControlConfigurationProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-customactionlambdaconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
customActionLambdaConfig :: (Prelude.Maybe CustomActionLambdaConfigurationProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-ec2asgcapacityincreaseconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ec2AsgCapacityIncreaseConfig :: (Prelude.Maybe Ec2AsgCapacityIncreaseConfigurationProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-ecscapacityincreaseconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: (Prelude.Maybe EcsCapacityIncreaseConfigurationProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-eksresourcescalingconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
eksResourceScalingConfig :: (Prelude.Maybe EksResourceScalingConfigurationProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-executionapprovalconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
executionApprovalConfig :: (Prelude.Maybe ExecutionApprovalConfigurationProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-globalauroraconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
globalAuroraConfig :: (Prelude.Maybe GlobalAuroraConfigurationProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-parallelconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
parallelConfig :: (Prelude.Maybe ParallelExecutionBlockConfigurationProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-regionswitchplanconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
regionSwitchPlanConfig :: (Prelude.Maybe RegionSwitchPlanConfigurationProperty),
                                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-executionblockconfiguration.html#cfn-arcregionswitch-plan-executionblockconfiguration-route53healthcheckconfig>
                                         ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
route53HealthCheckConfig :: (Prelude.Maybe Route53HealthCheckConfigurationProperty)}
  deriving stock (ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty -> Bool
(ExecutionBlockConfigurationProperty
 -> ExecutionBlockConfigurationProperty -> Bool)
-> (ExecutionBlockConfigurationProperty
    -> ExecutionBlockConfigurationProperty -> Bool)
-> Eq ExecutionBlockConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty -> Bool
== :: ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty -> Bool
$c/= :: ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty -> Bool
/= :: ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty -> Bool
Prelude.Eq, Int -> ExecutionBlockConfigurationProperty -> ShowS
[ExecutionBlockConfigurationProperty] -> ShowS
ExecutionBlockConfigurationProperty -> String
(Int -> ExecutionBlockConfigurationProperty -> ShowS)
-> (ExecutionBlockConfigurationProperty -> String)
-> ([ExecutionBlockConfigurationProperty] -> ShowS)
-> Show ExecutionBlockConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ExecutionBlockConfigurationProperty -> ShowS
showsPrec :: Int -> ExecutionBlockConfigurationProperty -> ShowS
$cshow :: ExecutionBlockConfigurationProperty -> String
show :: ExecutionBlockConfigurationProperty -> String
$cshowList :: [ExecutionBlockConfigurationProperty] -> ShowS
showList :: [ExecutionBlockConfigurationProperty] -> ShowS
Prelude.Show)
mkExecutionBlockConfigurationProperty ::
  ExecutionBlockConfigurationProperty
mkExecutionBlockConfigurationProperty :: ExecutionBlockConfigurationProperty
mkExecutionBlockConfigurationProperty
  = ExecutionBlockConfigurationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
arcRoutingControlConfig = Maybe ArcRoutingControlConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
customActionLambdaConfig = Maybe CustomActionLambdaConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ec2AsgCapacityIncreaseConfig = Maybe Ec2AsgCapacityIncreaseConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig = Maybe EcsCapacityIncreaseConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
eksResourceScalingConfig = Maybe EksResourceScalingConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
executionApprovalConfig = Maybe ExecutionApprovalConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
globalAuroraConfig = Maybe GlobalAuroraConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
parallelConfig = Maybe ParallelExecutionBlockConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
regionSwitchPlanConfig = Maybe RegionSwitchPlanConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
route53HealthCheckConfig = Maybe Route53HealthCheckConfigurationProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ExecutionBlockConfigurationProperty where
  toResourceProperties :: ExecutionBlockConfigurationProperty -> ResourceProperties
toResourceProperties ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ARCRegionSwitch::Plan.ExecutionBlockConfiguration",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> ArcRoutingControlConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ArcRoutingControlConfig"
                              (ArcRoutingControlConfigurationProperty -> (Key, Value))
-> Maybe ArcRoutingControlConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ArcRoutingControlConfigurationProperty
arcRoutingControlConfig,
                            Key -> CustomActionLambdaConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CustomActionLambdaConfig"
                              (CustomActionLambdaConfigurationProperty -> (Key, Value))
-> Maybe CustomActionLambdaConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CustomActionLambdaConfigurationProperty
customActionLambdaConfig,
                            Key -> Ec2AsgCapacityIncreaseConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Ec2AsgCapacityIncreaseConfig"
                              (Ec2AsgCapacityIncreaseConfigurationProperty -> (Key, Value))
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ec2AsgCapacityIncreaseConfig,
                            Key -> EcsCapacityIncreaseConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EcsCapacityIncreaseConfig"
                              (EcsCapacityIncreaseConfigurationProperty -> (Key, Value))
-> Maybe EcsCapacityIncreaseConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EcsCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig,
                            Key -> EksResourceScalingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EksResourceScalingConfig"
                              (EksResourceScalingConfigurationProperty -> (Key, Value))
-> Maybe EksResourceScalingConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EksResourceScalingConfigurationProperty
eksResourceScalingConfig,
                            Key -> ExecutionApprovalConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ExecutionApprovalConfig"
                              (ExecutionApprovalConfigurationProperty -> (Key, Value))
-> Maybe ExecutionApprovalConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ExecutionApprovalConfigurationProperty
executionApprovalConfig,
                            Key -> GlobalAuroraConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"GlobalAuroraConfig" (GlobalAuroraConfigurationProperty -> (Key, Value))
-> Maybe GlobalAuroraConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GlobalAuroraConfigurationProperty
globalAuroraConfig,
                            Key -> ParallelExecutionBlockConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ParallelConfig" (ParallelExecutionBlockConfigurationProperty -> (Key, Value))
-> Maybe ParallelExecutionBlockConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParallelExecutionBlockConfigurationProperty
parallelConfig,
                            Key -> RegionSwitchPlanConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RegionSwitchPlanConfig"
                              (RegionSwitchPlanConfigurationProperty -> (Key, Value))
-> Maybe RegionSwitchPlanConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegionSwitchPlanConfigurationProperty
regionSwitchPlanConfig,
                            Key -> Route53HealthCheckConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Route53HealthCheckConfig"
                              (Route53HealthCheckConfigurationProperty -> (Key, Value))
-> Maybe Route53HealthCheckConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Route53HealthCheckConfigurationProperty
route53HealthCheckConfig])}
instance JSON.ToJSON ExecutionBlockConfigurationProperty where
  toJSON :: ExecutionBlockConfigurationProperty -> Value
toJSON ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> ArcRoutingControlConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ArcRoutingControlConfig"
                 (ArcRoutingControlConfigurationProperty -> (Key, Value))
-> Maybe ArcRoutingControlConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ArcRoutingControlConfigurationProperty
arcRoutingControlConfig,
               Key -> CustomActionLambdaConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CustomActionLambdaConfig"
                 (CustomActionLambdaConfigurationProperty -> (Key, Value))
-> Maybe CustomActionLambdaConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CustomActionLambdaConfigurationProperty
customActionLambdaConfig,
               Key -> Ec2AsgCapacityIncreaseConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Ec2AsgCapacityIncreaseConfig"
                 (Ec2AsgCapacityIncreaseConfigurationProperty -> (Key, Value))
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ec2AsgCapacityIncreaseConfig,
               Key -> EcsCapacityIncreaseConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EcsCapacityIncreaseConfig"
                 (EcsCapacityIncreaseConfigurationProperty -> (Key, Value))
-> Maybe EcsCapacityIncreaseConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EcsCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig,
               Key -> EksResourceScalingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EksResourceScalingConfig"
                 (EksResourceScalingConfigurationProperty -> (Key, Value))
-> Maybe EksResourceScalingConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EksResourceScalingConfigurationProperty
eksResourceScalingConfig,
               Key -> ExecutionApprovalConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ExecutionApprovalConfig"
                 (ExecutionApprovalConfigurationProperty -> (Key, Value))
-> Maybe ExecutionApprovalConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ExecutionApprovalConfigurationProperty
executionApprovalConfig,
               Key -> GlobalAuroraConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"GlobalAuroraConfig" (GlobalAuroraConfigurationProperty -> (Key, Value))
-> Maybe GlobalAuroraConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GlobalAuroraConfigurationProperty
globalAuroraConfig,
               Key -> ParallelExecutionBlockConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ParallelConfig" (ParallelExecutionBlockConfigurationProperty -> (Key, Value))
-> Maybe ParallelExecutionBlockConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ParallelExecutionBlockConfigurationProperty
parallelConfig,
               Key -> RegionSwitchPlanConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RegionSwitchPlanConfig"
                 (RegionSwitchPlanConfigurationProperty -> (Key, Value))
-> Maybe RegionSwitchPlanConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegionSwitchPlanConfigurationProperty
regionSwitchPlanConfig,
               Key -> Route53HealthCheckConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Route53HealthCheckConfig"
                 (Route53HealthCheckConfigurationProperty -> (Key, Value))
-> Maybe Route53HealthCheckConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Route53HealthCheckConfigurationProperty
route53HealthCheckConfig]))
instance Property "ArcRoutingControlConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "ArcRoutingControlConfig" ExecutionBlockConfigurationProperty = ArcRoutingControlConfigurationProperty
  set :: PropertyType
  "ArcRoutingControlConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType
  "ArcRoutingControlConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
arcRoutingControlConfig = ArcRoutingControlConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "ArcRoutingControlConfig" ExecutionBlockConfigurationProperty
ArcRoutingControlConfigurationProperty
newValue, Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ()
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
instance Property "CustomActionLambdaConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "CustomActionLambdaConfig" ExecutionBlockConfigurationProperty = CustomActionLambdaConfigurationProperty
  set :: PropertyType
  "CustomActionLambdaConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType
  "CustomActionLambdaConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
customActionLambdaConfig = CustomActionLambdaConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "CustomActionLambdaConfig" ExecutionBlockConfigurationProperty
CustomActionLambdaConfigurationProperty
newValue, Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
instance Property "Ec2AsgCapacityIncreaseConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "Ec2AsgCapacityIncreaseConfig" ExecutionBlockConfigurationProperty = Ec2AsgCapacityIncreaseConfigurationProperty
  set :: PropertyType
  "Ec2AsgCapacityIncreaseConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType
  "Ec2AsgCapacityIncreaseConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ec2AsgCapacityIncreaseConfig = Ec2AsgCapacityIncreaseConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "Ec2AsgCapacityIncreaseConfig" ExecutionBlockConfigurationProperty
Ec2AsgCapacityIncreaseConfigurationProperty
newValue, Maybe ArcRoutingControlConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
instance Property "EcsCapacityIncreaseConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "EcsCapacityIncreaseConfig" ExecutionBlockConfigurationProperty = EcsCapacityIncreaseConfigurationProperty
  set :: PropertyType
  "EcsCapacityIncreaseConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType
  "EcsCapacityIncreaseConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig = EcsCapacityIncreaseConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "EcsCapacityIncreaseConfig" ExecutionBlockConfigurationProperty
EcsCapacityIncreaseConfigurationProperty
newValue, Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
instance Property "EksResourceScalingConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "EksResourceScalingConfig" ExecutionBlockConfigurationProperty = EksResourceScalingConfigurationProperty
  set :: PropertyType
  "EksResourceScalingConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType
  "EksResourceScalingConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
eksResourceScalingConfig = EksResourceScalingConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "EksResourceScalingConfig" ExecutionBlockConfigurationProperty
EksResourceScalingConfigurationProperty
newValue, Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
instance Property "ExecutionApprovalConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "ExecutionApprovalConfig" ExecutionBlockConfigurationProperty = ExecutionApprovalConfigurationProperty
  set :: PropertyType
  "ExecutionApprovalConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType
  "ExecutionApprovalConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
executionApprovalConfig = ExecutionApprovalConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "ExecutionApprovalConfig" ExecutionBlockConfigurationProperty
ExecutionApprovalConfigurationProperty
newValue, Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
instance Property "GlobalAuroraConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "GlobalAuroraConfig" ExecutionBlockConfigurationProperty = GlobalAuroraConfigurationProperty
  set :: PropertyType
  "GlobalAuroraConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType
  "GlobalAuroraConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
globalAuroraConfig = GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "GlobalAuroraConfig" ExecutionBlockConfigurationProperty
GlobalAuroraConfigurationProperty
newValue, Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
instance Property "ParallelConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "ParallelConfig" ExecutionBlockConfigurationProperty = ParallelExecutionBlockConfigurationProperty
  set :: PropertyType "ParallelConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType "ParallelConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
parallelConfig = ParallelExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ParallelConfig" ExecutionBlockConfigurationProperty
ParallelExecutionBlockConfigurationProperty
newValue, Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
()
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
instance Property "RegionSwitchPlanConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "RegionSwitchPlanConfig" ExecutionBlockConfigurationProperty = RegionSwitchPlanConfigurationProperty
  set :: PropertyType
  "RegionSwitchPlanConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType
  "RegionSwitchPlanConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
regionSwitchPlanConfig = RegionSwitchPlanConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "RegionSwitchPlanConfig" ExecutionBlockConfigurationProperty
RegionSwitchPlanConfigurationProperty
newValue, Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
instance Property "Route53HealthCheckConfig" ExecutionBlockConfigurationProperty where
  type PropertyType "Route53HealthCheckConfig" ExecutionBlockConfigurationProperty = Route53HealthCheckConfigurationProperty
  set :: PropertyType
  "Route53HealthCheckConfig" ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
-> ExecutionBlockConfigurationProperty
set PropertyType
  "Route53HealthCheckConfig" ExecutionBlockConfigurationProperty
newValue ExecutionBlockConfigurationProperty {Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe Route53HealthCheckConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ExecutionBlockConfigurationProperty -> ()
arcRoutingControlConfig :: ExecutionBlockConfigurationProperty
-> Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: ExecutionBlockConfigurationProperty
-> Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: ExecutionBlockConfigurationProperty
-> Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: ExecutionBlockConfigurationProperty
-> Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: ExecutionBlockConfigurationProperty
-> Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: ExecutionBlockConfigurationProperty
-> Maybe GlobalAuroraConfigurationProperty
parallelConfig :: ExecutionBlockConfigurationProperty
-> Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: ExecutionBlockConfigurationProperty
-> Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: ExecutionBlockConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
..}
    = ExecutionBlockConfigurationProperty
        {route53HealthCheckConfig :: Maybe Route53HealthCheckConfigurationProperty
route53HealthCheckConfig = Route53HealthCheckConfigurationProperty
-> Maybe Route53HealthCheckConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "Route53HealthCheckConfig" ExecutionBlockConfigurationProperty
Route53HealthCheckConfigurationProperty
newValue, Maybe ArcRoutingControlConfigurationProperty
Maybe Ec2AsgCapacityIncreaseConfigurationProperty
Maybe ExecutionApprovalConfigurationProperty
Maybe GlobalAuroraConfigurationProperty
Maybe EksResourceScalingConfigurationProperty
Maybe CustomActionLambdaConfigurationProperty
Maybe RegionSwitchPlanConfigurationProperty
Maybe EcsCapacityIncreaseConfigurationProperty
Maybe ParallelExecutionBlockConfigurationProperty
()
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
haddock_workaround_ :: ()
arcRoutingControlConfig :: Maybe ArcRoutingControlConfigurationProperty
customActionLambdaConfig :: Maybe CustomActionLambdaConfigurationProperty
ec2AsgCapacityIncreaseConfig :: Maybe Ec2AsgCapacityIncreaseConfigurationProperty
ecsCapacityIncreaseConfig :: Maybe EcsCapacityIncreaseConfigurationProperty
eksResourceScalingConfig :: Maybe EksResourceScalingConfigurationProperty
executionApprovalConfig :: Maybe ExecutionApprovalConfigurationProperty
globalAuroraConfig :: Maybe GlobalAuroraConfigurationProperty
parallelConfig :: Maybe ParallelExecutionBlockConfigurationProperty
regionSwitchPlanConfig :: Maybe RegionSwitchPlanConfigurationProperty
..}