module Stratosphere.SageMaker.Cluster (
        module Exports, Cluster(..), mkCluster
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.SageMaker.Cluster.ClusterAutoScalingConfigProperty as Exports
import {-# SOURCE #-} Stratosphere.SageMaker.Cluster.ClusterInstanceGroupProperty as Exports
import {-# SOURCE #-} Stratosphere.SageMaker.Cluster.ClusterRestrictedInstanceGroupProperty as Exports
import {-# SOURCE #-} Stratosphere.SageMaker.Cluster.OrchestratorProperty as Exports
import {-# SOURCE #-} Stratosphere.SageMaker.Cluster.TieredStorageConfigProperty as Exports
import {-# SOURCE #-} Stratosphere.SageMaker.Cluster.VpcConfigProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Cluster
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html>
    Cluster {Cluster -> ()
haddock_workaround_ :: (),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-autoscaling>
             Cluster -> Maybe ClusterAutoScalingConfigProperty
autoScaling :: (Prelude.Maybe ClusterAutoScalingConfigProperty),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-clustername>
             Cluster -> Maybe (Value Text)
clusterName :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-clusterrole>
             Cluster -> Maybe (Value Text)
clusterRole :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-instancegroups>
             Cluster -> Maybe [ClusterInstanceGroupProperty]
instanceGroups :: (Prelude.Maybe [ClusterInstanceGroupProperty]),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-nodeprovisioningmode>
             Cluster -> Maybe (Value Text)
nodeProvisioningMode :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-noderecovery>
             Cluster -> Maybe (Value Text)
nodeRecovery :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-orchestrator>
             Cluster -> Maybe OrchestratorProperty
orchestrator :: (Prelude.Maybe OrchestratorProperty),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-restrictedinstancegroups>
             Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
restrictedInstanceGroups :: (Prelude.Maybe [ClusterRestrictedInstanceGroupProperty]),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-tags>
             Cluster -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag]),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-tieredstorageconfig>
             Cluster -> Maybe TieredStorageConfigProperty
tieredStorageConfig :: (Prelude.Maybe TieredStorageConfigProperty),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-cluster.html#cfn-sagemaker-cluster-vpcconfig>
             Cluster -> Maybe VpcConfigProperty
vpcConfig :: (Prelude.Maybe VpcConfigProperty)}
  deriving stock (Cluster -> Cluster -> Bool
(Cluster -> Cluster -> Bool)
-> (Cluster -> Cluster -> Bool) -> Eq Cluster
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Cluster -> Cluster -> Bool
== :: Cluster -> Cluster -> Bool
$c/= :: Cluster -> Cluster -> Bool
/= :: Cluster -> Cluster -> Bool
Prelude.Eq, Int -> Cluster -> ShowS
[Cluster] -> ShowS
Cluster -> String
(Int -> Cluster -> ShowS)
-> (Cluster -> String) -> ([Cluster] -> ShowS) -> Show Cluster
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Cluster -> ShowS
showsPrec :: Int -> Cluster -> ShowS
$cshow :: Cluster -> String
show :: Cluster -> String
$cshowList :: [Cluster] -> ShowS
showList :: [Cluster] -> ShowS
Prelude.Show)
mkCluster :: Cluster
mkCluster :: Cluster
mkCluster
  = Cluster
      {haddock_workaround_ :: ()
haddock_workaround_ = (), autoScaling :: Maybe ClusterAutoScalingConfigProperty
autoScaling = Maybe ClusterAutoScalingConfigProperty
forall a. Maybe a
Prelude.Nothing,
       clusterName :: Maybe (Value Text)
clusterName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, clusterRole :: Maybe (Value Text)
clusterRole = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       instanceGroups :: Maybe [ClusterInstanceGroupProperty]
instanceGroups = Maybe [ClusterInstanceGroupProperty]
forall a. Maybe a
Prelude.Nothing,
       nodeProvisioningMode :: Maybe (Value Text)
nodeProvisioningMode = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       nodeRecovery :: Maybe (Value Text)
nodeRecovery = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, orchestrator :: Maybe OrchestratorProperty
orchestrator = Maybe OrchestratorProperty
forall a. Maybe a
Prelude.Nothing,
       restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
restrictedInstanceGroups = Maybe [ClusterRestrictedInstanceGroupProperty]
forall a. Maybe a
Prelude.Nothing, tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing,
       tieredStorageConfig :: Maybe TieredStorageConfigProperty
tieredStorageConfig = Maybe TieredStorageConfigProperty
forall a. Maybe a
Prelude.Nothing, vpcConfig :: Maybe VpcConfigProperty
vpcConfig = Maybe VpcConfigProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Cluster where
  toResourceProperties :: Cluster -> ResourceProperties
toResourceProperties Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::SageMaker::Cluster", supportsTags :: Bool
supportsTags = Bool
Prelude.True,
         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 -> ClusterAutoScalingConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AutoScaling" (ClusterAutoScalingConfigProperty -> (Key, Value))
-> Maybe ClusterAutoScalingConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ClusterAutoScalingConfigProperty
autoScaling,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ClusterName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
clusterName,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ClusterRole" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
clusterRole,
                            Key -> [ClusterInstanceGroupProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InstanceGroups" ([ClusterInstanceGroupProperty] -> (Key, Value))
-> Maybe [ClusterInstanceGroupProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ClusterInstanceGroupProperty]
instanceGroups,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NodeProvisioningMode" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
nodeProvisioningMode,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NodeRecovery" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
nodeRecovery,
                            Key -> OrchestratorProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Orchestrator" (OrchestratorProperty -> (Key, Value))
-> Maybe OrchestratorProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OrchestratorProperty
orchestrator,
                            Key -> [ClusterRestrictedInstanceGroupProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RestrictedInstanceGroups"
                              ([ClusterRestrictedInstanceGroupProperty] -> (Key, Value))
-> Maybe [ClusterRestrictedInstanceGroupProperty]
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ClusterRestrictedInstanceGroupProperty]
restrictedInstanceGroups,
                            Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
                            Key -> TieredStorageConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TieredStorageConfig" (TieredStorageConfigProperty -> (Key, Value))
-> Maybe TieredStorageConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TieredStorageConfigProperty
tieredStorageConfig,
                            Key -> VpcConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcConfig" (VpcConfigProperty -> (Key, Value))
-> Maybe VpcConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VpcConfigProperty
vpcConfig])}
instance JSON.ToJSON Cluster where
  toJSON :: Cluster -> Value
toJSON Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = [(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 -> ClusterAutoScalingConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AutoScaling" (ClusterAutoScalingConfigProperty -> (Key, Value))
-> Maybe ClusterAutoScalingConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ClusterAutoScalingConfigProperty
autoScaling,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ClusterName" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
clusterName,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ClusterRole" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
clusterRole,
               Key -> [ClusterInstanceGroupProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InstanceGroups" ([ClusterInstanceGroupProperty] -> (Key, Value))
-> Maybe [ClusterInstanceGroupProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ClusterInstanceGroupProperty]
instanceGroups,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NodeProvisioningMode" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
nodeProvisioningMode,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NodeRecovery" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
nodeRecovery,
               Key -> OrchestratorProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Orchestrator" (OrchestratorProperty -> (Key, Value))
-> Maybe OrchestratorProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OrchestratorProperty
orchestrator,
               Key -> [ClusterRestrictedInstanceGroupProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"RestrictedInstanceGroups"
                 ([ClusterRestrictedInstanceGroupProperty] -> (Key, Value))
-> Maybe [ClusterRestrictedInstanceGroupProperty]
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ClusterRestrictedInstanceGroupProperty]
restrictedInstanceGroups,
               Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
               Key -> TieredStorageConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TieredStorageConfig" (TieredStorageConfigProperty -> (Key, Value))
-> Maybe TieredStorageConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TieredStorageConfigProperty
tieredStorageConfig,
               Key -> VpcConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcConfig" (VpcConfigProperty -> (Key, Value))
-> Maybe VpcConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VpcConfigProperty
vpcConfig]))
instance Property "AutoScaling" Cluster where
  type PropertyType "AutoScaling" Cluster = ClusterAutoScalingConfigProperty
  set :: PropertyType "AutoScaling" Cluster -> Cluster -> Cluster
set PropertyType "AutoScaling" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {autoScaling :: Maybe ClusterAutoScalingConfigProperty
autoScaling = ClusterAutoScalingConfigProperty
-> Maybe ClusterAutoScalingConfigProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AutoScaling" Cluster
ClusterAutoScalingConfigProperty
newValue, Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "ClusterName" Cluster where
  type PropertyType "ClusterName" Cluster = Value Prelude.Text
  set :: PropertyType "ClusterName" Cluster -> Cluster -> Cluster
set PropertyType "ClusterName" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {clusterName :: Maybe (Value Text)
clusterName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ClusterName" Cluster
Value Text
newValue, Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "ClusterRole" Cluster where
  type PropertyType "ClusterRole" Cluster = Value Prelude.Text
  set :: PropertyType "ClusterRole" Cluster -> Cluster -> Cluster
set PropertyType "ClusterRole" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {clusterRole :: Maybe (Value Text)
clusterRole = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ClusterRole" Cluster
Value Text
newValue, Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "InstanceGroups" Cluster where
  type PropertyType "InstanceGroups" Cluster = [ClusterInstanceGroupProperty]
  set :: PropertyType "InstanceGroups" Cluster -> Cluster -> Cluster
set PropertyType "InstanceGroups" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {instanceGroups :: Maybe [ClusterInstanceGroupProperty]
instanceGroups = [ClusterInstanceGroupProperty]
-> Maybe [ClusterInstanceGroupProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [ClusterInstanceGroupProperty]
PropertyType "InstanceGroups" Cluster
newValue, Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "NodeProvisioningMode" Cluster where
  type PropertyType "NodeProvisioningMode" Cluster = Value Prelude.Text
  set :: PropertyType "NodeProvisioningMode" Cluster -> Cluster -> Cluster
set PropertyType "NodeProvisioningMode" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {nodeProvisioningMode :: Maybe (Value Text)
nodeProvisioningMode = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "NodeProvisioningMode" Cluster
Value Text
newValue, Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "NodeRecovery" Cluster where
  type PropertyType "NodeRecovery" Cluster = Value Prelude.Text
  set :: PropertyType "NodeRecovery" Cluster -> Cluster -> Cluster
set PropertyType "NodeRecovery" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {nodeRecovery :: Maybe (Value Text)
nodeRecovery = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "NodeRecovery" Cluster
Value Text
newValue, Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "Orchestrator" Cluster where
  type PropertyType "Orchestrator" Cluster = OrchestratorProperty
  set :: PropertyType "Orchestrator" Cluster -> Cluster -> Cluster
set PropertyType "Orchestrator" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {orchestrator :: Maybe OrchestratorProperty
orchestrator = OrchestratorProperty -> Maybe OrchestratorProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Orchestrator" Cluster
OrchestratorProperty
newValue, Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "RestrictedInstanceGroups" Cluster where
  type PropertyType "RestrictedInstanceGroups" Cluster = [ClusterRestrictedInstanceGroupProperty]
  set :: PropertyType "RestrictedInstanceGroups" Cluster
-> Cluster -> Cluster
set PropertyType "RestrictedInstanceGroups" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
restrictedInstanceGroups = [ClusterRestrictedInstanceGroupProperty]
-> Maybe [ClusterRestrictedInstanceGroupProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [ClusterRestrictedInstanceGroupProperty]
PropertyType "RestrictedInstanceGroups" Cluster
newValue, Maybe [Tag]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "Tags" Cluster where
  type PropertyType "Tags" Cluster = [Tag]
  set :: PropertyType "Tags" Cluster -> Cluster -> Cluster
set PropertyType "Tags" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {tags :: Maybe [Tag]
tags = [Tag] -> Maybe [Tag]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [Tag]
PropertyType "Tags" Cluster
newValue, Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "TieredStorageConfig" Cluster where
  type PropertyType "TieredStorageConfig" Cluster = TieredStorageConfigProperty
  set :: PropertyType "TieredStorageConfig" Cluster -> Cluster -> Cluster
set PropertyType "TieredStorageConfig" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {tieredStorageConfig :: Maybe TieredStorageConfigProperty
tieredStorageConfig = TieredStorageConfigProperty -> Maybe TieredStorageConfigProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TieredStorageConfig" Cluster
TieredStorageConfigProperty
newValue, Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
vpcConfig :: Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
vpcConfig :: Maybe VpcConfigProperty
..}
instance Property "VpcConfig" Cluster where
  type PropertyType "VpcConfig" Cluster = VpcConfigProperty
  set :: PropertyType "VpcConfig" Cluster -> Cluster -> Cluster
set PropertyType "VpcConfig" Cluster
newValue Cluster {Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
Maybe VpcConfigProperty
()
haddock_workaround_ :: Cluster -> ()
autoScaling :: Cluster -> Maybe ClusterAutoScalingConfigProperty
clusterName :: Cluster -> Maybe (Value Text)
clusterRole :: Cluster -> Maybe (Value Text)
instanceGroups :: Cluster -> Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Cluster -> Maybe (Value Text)
nodeRecovery :: Cluster -> Maybe (Value Text)
orchestrator :: Cluster -> Maybe OrchestratorProperty
restrictedInstanceGroups :: Cluster -> Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Cluster -> Maybe [Tag]
tieredStorageConfig :: Cluster -> Maybe TieredStorageConfigProperty
vpcConfig :: Cluster -> Maybe VpcConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
vpcConfig :: Maybe VpcConfigProperty
..}
    = Cluster {vpcConfig :: Maybe VpcConfigProperty
vpcConfig = VpcConfigProperty -> Maybe VpcConfigProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "VpcConfig" Cluster
VpcConfigProperty
newValue, Maybe [Tag]
Maybe [ClusterRestrictedInstanceGroupProperty]
Maybe [ClusterInstanceGroupProperty]
Maybe (Value Text)
Maybe ClusterAutoScalingConfigProperty
Maybe OrchestratorProperty
Maybe TieredStorageConfigProperty
()
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
haddock_workaround_ :: ()
autoScaling :: Maybe ClusterAutoScalingConfigProperty
clusterName :: Maybe (Value Text)
clusterRole :: Maybe (Value Text)
instanceGroups :: Maybe [ClusterInstanceGroupProperty]
nodeProvisioningMode :: Maybe (Value Text)
nodeRecovery :: Maybe (Value Text)
orchestrator :: Maybe OrchestratorProperty
restrictedInstanceGroups :: Maybe [ClusterRestrictedInstanceGroupProperty]
tags :: Maybe [Tag]
tieredStorageConfig :: Maybe TieredStorageConfigProperty
..}