module Stratosphere.DocDBElastic.Cluster (
        Cluster(..), mkCluster
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Cluster
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html>
    Cluster {Cluster -> ()
haddock_workaround_ :: (),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-adminusername>
             Cluster -> Value Text
adminUserName :: (Value Prelude.Text),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-adminuserpassword>
             Cluster -> Maybe (Value Text)
adminUserPassword :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-authtype>
             Cluster -> Value Text
authType :: (Value Prelude.Text),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-backupretentionperiod>
             Cluster -> Maybe (Value Integer)
backupRetentionPeriod :: (Prelude.Maybe (Value Prelude.Integer)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-clustername>
             Cluster -> Value Text
clusterName :: (Value Prelude.Text),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-kmskeyid>
             Cluster -> Maybe (Value Text)
kmsKeyId :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-preferredbackupwindow>
             Cluster -> Maybe (Value Text)
preferredBackupWindow :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-preferredmaintenancewindow>
             Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-shardcapacity>
             Cluster -> Value Integer
shardCapacity :: (Value Prelude.Integer),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-shardcount>
             Cluster -> Value Integer
shardCount :: (Value Prelude.Integer),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-shardinstancecount>
             Cluster -> Maybe (Value Integer)
shardInstanceCount :: (Prelude.Maybe (Value Prelude.Integer)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-subnetids>
             Cluster -> Maybe (ValueList Text)
subnetIds :: (Prelude.Maybe (ValueList Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-tags>
             Cluster -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag]),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-vpcsecuritygroupids>
             Cluster -> Maybe (ValueList Text)
vpcSecurityGroupIds :: (Prelude.Maybe (ValueList Prelude.Text))}
  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 ::
  Value Prelude.Text
  -> Value Prelude.Text
     -> Value Prelude.Text
        -> Value Prelude.Integer -> Value Prelude.Integer -> Cluster
mkCluster :: Value Text
-> Value Text
-> Value Text
-> Value Integer
-> Value Integer
-> Cluster
mkCluster
  Value Text
adminUserName
  Value Text
authType
  Value Text
clusterName
  Value Integer
shardCapacity
  Value Integer
shardCount
  = Cluster
      {haddock_workaround_ :: ()
haddock_workaround_ = (), adminUserName :: Value Text
adminUserName = Value Text
adminUserName,
       authType :: Value Text
authType = Value Text
authType, clusterName :: Value Text
clusterName = Value Text
clusterName,
       shardCapacity :: Value Integer
shardCapacity = Value Integer
shardCapacity, shardCount :: Value Integer
shardCount = Value Integer
shardCount,
       adminUserPassword :: Maybe (Value Text)
adminUserPassword = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       backupRetentionPeriod :: Maybe (Value Integer)
backupRetentionPeriod = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       kmsKeyId :: Maybe (Value Text)
kmsKeyId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       preferredBackupWindow :: Maybe (Value Text)
preferredBackupWindow = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       preferredMaintenanceWindow :: Maybe (Value Text)
preferredMaintenanceWindow = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       shardInstanceCount :: Maybe (Value Integer)
shardInstanceCount = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing, subnetIds :: Maybe (ValueList Text)
subnetIds = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
       tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing, vpcSecurityGroupIds :: Maybe (ValueList Text)
vpcSecurityGroupIds = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Cluster where
  toResourceProperties :: Cluster -> ResourceProperties
toResourceProperties Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::DocDBElastic::Cluster",
         supportsTags :: Bool
supportsTags = Bool
Prelude.True,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"AdminUserName" 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..= Value Text
adminUserName,
                            Key
"AuthType" 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..= Value Text
authType, Key
"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..= Value Text
clusterName,
                            Key
"ShardCapacity" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
shardCapacity,
                            Key
"ShardCount" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
shardCount]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [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
"AdminUserPassword" (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)
adminUserPassword,
                               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BackupRetentionPeriod"
                                 (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
backupRetentionPeriod,
                               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
"KmsKeyId" (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)
kmsKeyId,
                               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
"PreferredBackupWindow"
                                 (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)
preferredBackupWindow,
                               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
"PreferredMaintenanceWindow"
                                 (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)
preferredMaintenanceWindow,
                               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ShardInstanceCount" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
shardInstanceCount,
                               Key -> ValueList 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
"SubnetIds" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
subnetIds,
                               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 -> ValueList 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
"VpcSecurityGroupIds" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
vpcSecurityGroupIds]))}
instance JSON.ToJSON Cluster where
  toJSON :: Cluster -> Value
toJSON Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"AdminUserName" 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..= Value Text
adminUserName,
               Key
"AuthType" 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..= Value Text
authType, Key
"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..= Value Text
clusterName,
               Key
"ShardCapacity" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
shardCapacity,
               Key
"ShardCount" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
shardCount]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [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
"AdminUserPassword" (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)
adminUserPassword,
                  Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BackupRetentionPeriod"
                    (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
backupRetentionPeriod,
                  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
"KmsKeyId" (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)
kmsKeyId,
                  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
"PreferredBackupWindow"
                    (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)
preferredBackupWindow,
                  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
"PreferredMaintenanceWindow"
                    (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)
preferredMaintenanceWindow,
                  Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ShardInstanceCount" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
shardInstanceCount,
                  Key -> ValueList 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
"SubnetIds" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
subnetIds,
                  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 -> ValueList 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
"VpcSecurityGroupIds" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
vpcSecurityGroupIds])))
instance Property "AdminUserName" Cluster where
  type PropertyType "AdminUserName" Cluster = Value Prelude.Text
  set :: PropertyType "AdminUserName" Cluster -> Cluster -> Cluster
set PropertyType "AdminUserName" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..} = Cluster {adminUserName :: Value Text
adminUserName = PropertyType "AdminUserName" Cluster
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "AdminUserPassword" Cluster where
  type PropertyType "AdminUserPassword" Cluster = Value Prelude.Text
  set :: PropertyType "AdminUserPassword" Cluster -> Cluster -> Cluster
set PropertyType "AdminUserPassword" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = Cluster {adminUserPassword :: Maybe (Value Text)
adminUserPassword = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AdminUserPassword" Cluster
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "AuthType" Cluster where
  type PropertyType "AuthType" Cluster = Value Prelude.Text
  set :: PropertyType "AuthType" Cluster -> Cluster -> Cluster
set PropertyType "AuthType" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..} = Cluster {authType :: Value Text
authType = PropertyType "AuthType" Cluster
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "BackupRetentionPeriod" Cluster where
  type PropertyType "BackupRetentionPeriod" Cluster = Value Prelude.Integer
  set :: PropertyType "BackupRetentionPeriod" Cluster -> Cluster -> Cluster
set PropertyType "BackupRetentionPeriod" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = Cluster {backupRetentionPeriod :: Maybe (Value Integer)
backupRetentionPeriod = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BackupRetentionPeriod" Cluster
Value Integer
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
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 (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..} = Cluster {clusterName :: Value Text
clusterName = PropertyType "ClusterName" Cluster
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "KmsKeyId" Cluster where
  type PropertyType "KmsKeyId" Cluster = Value Prelude.Text
  set :: PropertyType "KmsKeyId" Cluster -> Cluster -> Cluster
set PropertyType "KmsKeyId" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = Cluster {kmsKeyId :: Maybe (Value Text)
kmsKeyId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "KmsKeyId" Cluster
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "PreferredBackupWindow" Cluster where
  type PropertyType "PreferredBackupWindow" Cluster = Value Prelude.Text
  set :: PropertyType "PreferredBackupWindow" Cluster -> Cluster -> Cluster
set PropertyType "PreferredBackupWindow" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = Cluster {preferredBackupWindow :: Maybe (Value Text)
preferredBackupWindow = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PreferredBackupWindow" Cluster
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "PreferredMaintenanceWindow" Cluster where
  type PropertyType "PreferredMaintenanceWindow" Cluster = Value Prelude.Text
  set :: PropertyType "PreferredMaintenanceWindow" Cluster
-> Cluster -> Cluster
set PropertyType "PreferredMaintenanceWindow" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = Cluster {preferredMaintenanceWindow :: Maybe (Value Text)
preferredMaintenanceWindow = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PreferredMaintenanceWindow" Cluster
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "ShardCapacity" Cluster where
  type PropertyType "ShardCapacity" Cluster = Value Prelude.Integer
  set :: PropertyType "ShardCapacity" Cluster -> Cluster -> Cluster
set PropertyType "ShardCapacity" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..} = Cluster {shardCapacity :: Value Integer
shardCapacity = PropertyType "ShardCapacity" Cluster
Value Integer
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "ShardCount" Cluster where
  type PropertyType "ShardCount" Cluster = Value Prelude.Integer
  set :: PropertyType "ShardCount" Cluster -> Cluster -> Cluster
set PropertyType "ShardCount" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..} = Cluster {shardCount :: Value Integer
shardCount = PropertyType "ShardCount" Cluster
Value Integer
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "ShardInstanceCount" Cluster where
  type PropertyType "ShardInstanceCount" Cluster = Value Prelude.Integer
  set :: PropertyType "ShardInstanceCount" Cluster -> Cluster -> Cluster
set PropertyType "ShardInstanceCount" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = Cluster {shardInstanceCount :: Maybe (Value Integer)
shardInstanceCount = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ShardInstanceCount" Cluster
Value Integer
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "SubnetIds" Cluster where
  type PropertyType "SubnetIds" Cluster = ValueList Prelude.Text
  set :: PropertyType "SubnetIds" Cluster -> Cluster -> Cluster
set PropertyType "SubnetIds" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = Cluster {subnetIds :: Maybe (ValueList Text)
subnetIds = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SubnetIds" Cluster
ValueList Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
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 (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = 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 (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "VpcSecurityGroupIds" Cluster where
  type PropertyType "VpcSecurityGroupIds" Cluster = ValueList Prelude.Text
  set :: PropertyType "VpcSecurityGroupIds" Cluster -> Cluster -> Cluster
set PropertyType "VpcSecurityGroupIds" Cluster
newValue Cluster {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: Cluster -> ()
adminUserName :: Cluster -> Value Text
adminUserPassword :: Cluster -> Maybe (Value Text)
authType :: Cluster -> Value Text
backupRetentionPeriod :: Cluster -> Maybe (Value Integer)
clusterName :: Cluster -> Value Text
kmsKeyId :: Cluster -> Maybe (Value Text)
preferredBackupWindow :: Cluster -> Maybe (Value Text)
preferredMaintenanceWindow :: Cluster -> Maybe (Value Text)
shardCapacity :: Cluster -> Value Integer
shardCount :: Cluster -> Value Integer
shardInstanceCount :: Cluster -> Maybe (Value Integer)
subnetIds :: Cluster -> Maybe (ValueList Text)
tags :: Cluster -> Maybe [Tag]
vpcSecurityGroupIds :: Cluster -> Maybe (ValueList Text)
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = Cluster {vpcSecurityGroupIds :: Maybe (ValueList Text)
vpcSecurityGroupIds = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "VpcSecurityGroupIds" Cluster
ValueList Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
adminUserName :: Value Text
adminUserPassword :: Maybe (Value Text)
authType :: Value Text
backupRetentionPeriod :: Maybe (Value Integer)
clusterName :: Value Text
kmsKeyId :: Maybe (Value Text)
preferredBackupWindow :: Maybe (Value Text)
preferredMaintenanceWindow :: Maybe (Value Text)
shardCapacity :: Value Integer
shardCount :: Value Integer
shardInstanceCount :: Maybe (Value Integer)
subnetIds :: Maybe (ValueList Text)
tags :: Maybe [Tag]
..}