{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Redshift.ModifyCluster
(
ModifyCluster (..),
newModifyCluster,
modifyCluster_allowVersionUpgrade,
modifyCluster_automatedSnapshotRetentionPeriod,
modifyCluster_availabilityZone,
modifyCluster_availabilityZoneRelocation,
modifyCluster_clusterParameterGroupName,
modifyCluster_clusterSecurityGroups,
modifyCluster_clusterType,
modifyCluster_clusterVersion,
modifyCluster_elasticIp,
modifyCluster_encrypted,
modifyCluster_enhancedVpcRouting,
modifyCluster_hsmClientCertificateIdentifier,
modifyCluster_hsmConfigurationIdentifier,
modifyCluster_kmsKeyId,
modifyCluster_maintenanceTrackName,
modifyCluster_manualSnapshotRetentionPeriod,
modifyCluster_masterUserPassword,
modifyCluster_newClusterIdentifier,
modifyCluster_nodeType,
modifyCluster_numberOfNodes,
modifyCluster_port,
modifyCluster_preferredMaintenanceWindow,
modifyCluster_publiclyAccessible,
modifyCluster_vpcSecurityGroupIds,
modifyCluster_clusterIdentifier,
ModifyClusterResponse (..),
newModifyClusterResponse,
modifyClusterResponse_cluster,
modifyClusterResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.Redshift.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ModifyCluster = ModifyCluster'
{
ModifyCluster -> Maybe Bool
allowVersionUpgrade :: Prelude.Maybe Prelude.Bool,
ModifyCluster -> Maybe Int
automatedSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,
ModifyCluster -> Maybe Text
availabilityZone :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Bool
availabilityZoneRelocation :: Prelude.Maybe Prelude.Bool,
ModifyCluster -> Maybe Text
clusterParameterGroupName :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe [Text]
clusterSecurityGroups :: Prelude.Maybe [Prelude.Text],
ModifyCluster -> Maybe Text
clusterType :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Text
clusterVersion :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Text
elasticIp :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Bool
encrypted :: Prelude.Maybe Prelude.Bool,
ModifyCluster -> Maybe Bool
enhancedVpcRouting :: Prelude.Maybe Prelude.Bool,
ModifyCluster -> Maybe Text
hsmClientCertificateIdentifier :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Text
hsmConfigurationIdentifier :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Text
maintenanceTrackName :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Int
manualSnapshotRetentionPeriod :: Prelude.Maybe Prelude.Int,
ModifyCluster -> Maybe Text
masterUserPassword :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Text
newClusterIdentifier' :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Text
nodeType :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Int
numberOfNodes :: Prelude.Maybe Prelude.Int,
ModifyCluster -> Maybe Int
port :: Prelude.Maybe Prelude.Int,
ModifyCluster -> Maybe Text
preferredMaintenanceWindow :: Prelude.Maybe Prelude.Text,
ModifyCluster -> Maybe Bool
publiclyAccessible :: Prelude.Maybe Prelude.Bool,
ModifyCluster -> Maybe [Text]
vpcSecurityGroupIds :: Prelude.Maybe [Prelude.Text],
ModifyCluster -> Text
clusterIdentifier :: Prelude.Text
}
deriving (ModifyCluster -> ModifyCluster -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyCluster -> ModifyCluster -> Bool
$c/= :: ModifyCluster -> ModifyCluster -> Bool
== :: ModifyCluster -> ModifyCluster -> Bool
$c== :: ModifyCluster -> ModifyCluster -> Bool
Prelude.Eq, ReadPrec [ModifyCluster]
ReadPrec ModifyCluster
Int -> ReadS ModifyCluster
ReadS [ModifyCluster]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyCluster]
$creadListPrec :: ReadPrec [ModifyCluster]
readPrec :: ReadPrec ModifyCluster
$creadPrec :: ReadPrec ModifyCluster
readList :: ReadS [ModifyCluster]
$creadList :: ReadS [ModifyCluster]
readsPrec :: Int -> ReadS ModifyCluster
$creadsPrec :: Int -> ReadS ModifyCluster
Prelude.Read, Int -> ModifyCluster -> ShowS
[ModifyCluster] -> ShowS
ModifyCluster -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyCluster] -> ShowS
$cshowList :: [ModifyCluster] -> ShowS
show :: ModifyCluster -> String
$cshow :: ModifyCluster -> String
showsPrec :: Int -> ModifyCluster -> ShowS
$cshowsPrec :: Int -> ModifyCluster -> ShowS
Prelude.Show, forall x. Rep ModifyCluster x -> ModifyCluster
forall x. ModifyCluster -> Rep ModifyCluster x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ModifyCluster x -> ModifyCluster
$cfrom :: forall x. ModifyCluster -> Rep ModifyCluster x
Prelude.Generic)
newModifyCluster ::
Prelude.Text ->
ModifyCluster
newModifyCluster :: Text -> ModifyCluster
newModifyCluster Text
pClusterIdentifier_ =
ModifyCluster'
{ $sel:allowVersionUpgrade:ModifyCluster' :: Maybe Bool
allowVersionUpgrade =
forall a. Maybe a
Prelude.Nothing,
$sel:automatedSnapshotRetentionPeriod:ModifyCluster' :: Maybe Int
automatedSnapshotRetentionPeriod = forall a. Maybe a
Prelude.Nothing,
$sel:availabilityZone:ModifyCluster' :: Maybe Text
availabilityZone = forall a. Maybe a
Prelude.Nothing,
$sel:availabilityZoneRelocation:ModifyCluster' :: Maybe Bool
availabilityZoneRelocation = forall a. Maybe a
Prelude.Nothing,
$sel:clusterParameterGroupName:ModifyCluster' :: Maybe Text
clusterParameterGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:clusterSecurityGroups:ModifyCluster' :: Maybe [Text]
clusterSecurityGroups = forall a. Maybe a
Prelude.Nothing,
$sel:clusterType:ModifyCluster' :: Maybe Text
clusterType = forall a. Maybe a
Prelude.Nothing,
$sel:clusterVersion:ModifyCluster' :: Maybe Text
clusterVersion = forall a. Maybe a
Prelude.Nothing,
$sel:elasticIp:ModifyCluster' :: Maybe Text
elasticIp = forall a. Maybe a
Prelude.Nothing,
$sel:encrypted:ModifyCluster' :: Maybe Bool
encrypted = forall a. Maybe a
Prelude.Nothing,
$sel:enhancedVpcRouting:ModifyCluster' :: Maybe Bool
enhancedVpcRouting = forall a. Maybe a
Prelude.Nothing,
$sel:hsmClientCertificateIdentifier:ModifyCluster' :: Maybe Text
hsmClientCertificateIdentifier = forall a. Maybe a
Prelude.Nothing,
$sel:hsmConfigurationIdentifier:ModifyCluster' :: Maybe Text
hsmConfigurationIdentifier = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyId:ModifyCluster' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:maintenanceTrackName:ModifyCluster' :: Maybe Text
maintenanceTrackName = forall a. Maybe a
Prelude.Nothing,
$sel:manualSnapshotRetentionPeriod:ModifyCluster' :: Maybe Int
manualSnapshotRetentionPeriod = forall a. Maybe a
Prelude.Nothing,
$sel:masterUserPassword:ModifyCluster' :: Maybe Text
masterUserPassword = forall a. Maybe a
Prelude.Nothing,
$sel:newClusterIdentifier':ModifyCluster' :: Maybe Text
newClusterIdentifier' = forall a. Maybe a
Prelude.Nothing,
$sel:nodeType:ModifyCluster' :: Maybe Text
nodeType = forall a. Maybe a
Prelude.Nothing,
$sel:numberOfNodes:ModifyCluster' :: Maybe Int
numberOfNodes = forall a. Maybe a
Prelude.Nothing,
$sel:port:ModifyCluster' :: Maybe Int
port = forall a. Maybe a
Prelude.Nothing,
$sel:preferredMaintenanceWindow:ModifyCluster' :: Maybe Text
preferredMaintenanceWindow = forall a. Maybe a
Prelude.Nothing,
$sel:publiclyAccessible:ModifyCluster' :: Maybe Bool
publiclyAccessible = forall a. Maybe a
Prelude.Nothing,
$sel:vpcSecurityGroupIds:ModifyCluster' :: Maybe [Text]
vpcSecurityGroupIds = forall a. Maybe a
Prelude.Nothing,
$sel:clusterIdentifier:ModifyCluster' :: Text
clusterIdentifier = Text
pClusterIdentifier_
}
modifyCluster_allowVersionUpgrade :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)
modifyCluster_allowVersionUpgrade :: Lens' ModifyCluster (Maybe Bool)
modifyCluster_allowVersionUpgrade = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Bool
allowVersionUpgrade :: Maybe Bool
$sel:allowVersionUpgrade:ModifyCluster' :: ModifyCluster -> Maybe Bool
allowVersionUpgrade} -> Maybe Bool
allowVersionUpgrade) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Bool
a -> ModifyCluster
s {$sel:allowVersionUpgrade:ModifyCluster' :: Maybe Bool
allowVersionUpgrade = Maybe Bool
a} :: ModifyCluster)
modifyCluster_automatedSnapshotRetentionPeriod :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Int)
modifyCluster_automatedSnapshotRetentionPeriod :: Lens' ModifyCluster (Maybe Int)
modifyCluster_automatedSnapshotRetentionPeriod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Int
automatedSnapshotRetentionPeriod :: Maybe Int
$sel:automatedSnapshotRetentionPeriod:ModifyCluster' :: ModifyCluster -> Maybe Int
automatedSnapshotRetentionPeriod} -> Maybe Int
automatedSnapshotRetentionPeriod) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Int
a -> ModifyCluster
s {$sel:automatedSnapshotRetentionPeriod:ModifyCluster' :: Maybe Int
automatedSnapshotRetentionPeriod = Maybe Int
a} :: ModifyCluster)
modifyCluster_availabilityZone :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_availabilityZone :: Lens' ModifyCluster (Maybe Text)
modifyCluster_availabilityZone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
availabilityZone :: Maybe Text
$sel:availabilityZone:ModifyCluster' :: ModifyCluster -> Maybe Text
availabilityZone} -> Maybe Text
availabilityZone) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:availabilityZone:ModifyCluster' :: Maybe Text
availabilityZone = Maybe Text
a} :: ModifyCluster)
modifyCluster_availabilityZoneRelocation :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)
modifyCluster_availabilityZoneRelocation :: Lens' ModifyCluster (Maybe Bool)
modifyCluster_availabilityZoneRelocation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Bool
availabilityZoneRelocation :: Maybe Bool
$sel:availabilityZoneRelocation:ModifyCluster' :: ModifyCluster -> Maybe Bool
availabilityZoneRelocation} -> Maybe Bool
availabilityZoneRelocation) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Bool
a -> ModifyCluster
s {$sel:availabilityZoneRelocation:ModifyCluster' :: Maybe Bool
availabilityZoneRelocation = Maybe Bool
a} :: ModifyCluster)
modifyCluster_clusterParameterGroupName :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_clusterParameterGroupName :: Lens' ModifyCluster (Maybe Text)
modifyCluster_clusterParameterGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
clusterParameterGroupName :: Maybe Text
$sel:clusterParameterGroupName:ModifyCluster' :: ModifyCluster -> Maybe Text
clusterParameterGroupName} -> Maybe Text
clusterParameterGroupName) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:clusterParameterGroupName:ModifyCluster' :: Maybe Text
clusterParameterGroupName = Maybe Text
a} :: ModifyCluster)
modifyCluster_clusterSecurityGroups :: Lens.Lens' ModifyCluster (Prelude.Maybe [Prelude.Text])
modifyCluster_clusterSecurityGroups :: Lens' ModifyCluster (Maybe [Text])
modifyCluster_clusterSecurityGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe [Text]
clusterSecurityGroups :: Maybe [Text]
$sel:clusterSecurityGroups:ModifyCluster' :: ModifyCluster -> Maybe [Text]
clusterSecurityGroups} -> Maybe [Text]
clusterSecurityGroups) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe [Text]
a -> ModifyCluster
s {$sel:clusterSecurityGroups:ModifyCluster' :: Maybe [Text]
clusterSecurityGroups = Maybe [Text]
a} :: ModifyCluster) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
modifyCluster_clusterType :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_clusterType :: Lens' ModifyCluster (Maybe Text)
modifyCluster_clusterType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
clusterType :: Maybe Text
$sel:clusterType:ModifyCluster' :: ModifyCluster -> Maybe Text
clusterType} -> Maybe Text
clusterType) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:clusterType:ModifyCluster' :: Maybe Text
clusterType = Maybe Text
a} :: ModifyCluster)
modifyCluster_clusterVersion :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_clusterVersion :: Lens' ModifyCluster (Maybe Text)
modifyCluster_clusterVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
clusterVersion :: Maybe Text
$sel:clusterVersion:ModifyCluster' :: ModifyCluster -> Maybe Text
clusterVersion} -> Maybe Text
clusterVersion) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:clusterVersion:ModifyCluster' :: Maybe Text
clusterVersion = Maybe Text
a} :: ModifyCluster)
modifyCluster_elasticIp :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_elasticIp :: Lens' ModifyCluster (Maybe Text)
modifyCluster_elasticIp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
elasticIp :: Maybe Text
$sel:elasticIp:ModifyCluster' :: ModifyCluster -> Maybe Text
elasticIp} -> Maybe Text
elasticIp) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:elasticIp:ModifyCluster' :: Maybe Text
elasticIp = Maybe Text
a} :: ModifyCluster)
modifyCluster_encrypted :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)
modifyCluster_encrypted :: Lens' ModifyCluster (Maybe Bool)
modifyCluster_encrypted = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Bool
encrypted :: Maybe Bool
$sel:encrypted:ModifyCluster' :: ModifyCluster -> Maybe Bool
encrypted} -> Maybe Bool
encrypted) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Bool
a -> ModifyCluster
s {$sel:encrypted:ModifyCluster' :: Maybe Bool
encrypted = Maybe Bool
a} :: ModifyCluster)
modifyCluster_enhancedVpcRouting :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)
modifyCluster_enhancedVpcRouting :: Lens' ModifyCluster (Maybe Bool)
modifyCluster_enhancedVpcRouting = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Bool
enhancedVpcRouting :: Maybe Bool
$sel:enhancedVpcRouting:ModifyCluster' :: ModifyCluster -> Maybe Bool
enhancedVpcRouting} -> Maybe Bool
enhancedVpcRouting) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Bool
a -> ModifyCluster
s {$sel:enhancedVpcRouting:ModifyCluster' :: Maybe Bool
enhancedVpcRouting = Maybe Bool
a} :: ModifyCluster)
modifyCluster_hsmClientCertificateIdentifier :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_hsmClientCertificateIdentifier :: Lens' ModifyCluster (Maybe Text)
modifyCluster_hsmClientCertificateIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
hsmClientCertificateIdentifier :: Maybe Text
$sel:hsmClientCertificateIdentifier:ModifyCluster' :: ModifyCluster -> Maybe Text
hsmClientCertificateIdentifier} -> Maybe Text
hsmClientCertificateIdentifier) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:hsmClientCertificateIdentifier:ModifyCluster' :: Maybe Text
hsmClientCertificateIdentifier = Maybe Text
a} :: ModifyCluster)
modifyCluster_hsmConfigurationIdentifier :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_hsmConfigurationIdentifier :: Lens' ModifyCluster (Maybe Text)
modifyCluster_hsmConfigurationIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
hsmConfigurationIdentifier :: Maybe Text
$sel:hsmConfigurationIdentifier:ModifyCluster' :: ModifyCluster -> Maybe Text
hsmConfigurationIdentifier} -> Maybe Text
hsmConfigurationIdentifier) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:hsmConfigurationIdentifier:ModifyCluster' :: Maybe Text
hsmConfigurationIdentifier = Maybe Text
a} :: ModifyCluster)
modifyCluster_kmsKeyId :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_kmsKeyId :: Lens' ModifyCluster (Maybe Text)
modifyCluster_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:ModifyCluster' :: ModifyCluster -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:kmsKeyId:ModifyCluster' :: Maybe Text
kmsKeyId = Maybe Text
a} :: ModifyCluster)
modifyCluster_maintenanceTrackName :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_maintenanceTrackName :: Lens' ModifyCluster (Maybe Text)
modifyCluster_maintenanceTrackName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
maintenanceTrackName :: Maybe Text
$sel:maintenanceTrackName:ModifyCluster' :: ModifyCluster -> Maybe Text
maintenanceTrackName} -> Maybe Text
maintenanceTrackName) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:maintenanceTrackName:ModifyCluster' :: Maybe Text
maintenanceTrackName = Maybe Text
a} :: ModifyCluster)
modifyCluster_manualSnapshotRetentionPeriod :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Int)
modifyCluster_manualSnapshotRetentionPeriod :: Lens' ModifyCluster (Maybe Int)
modifyCluster_manualSnapshotRetentionPeriod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Int
manualSnapshotRetentionPeriod :: Maybe Int
$sel:manualSnapshotRetentionPeriod:ModifyCluster' :: ModifyCluster -> Maybe Int
manualSnapshotRetentionPeriod} -> Maybe Int
manualSnapshotRetentionPeriod) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Int
a -> ModifyCluster
s {$sel:manualSnapshotRetentionPeriod:ModifyCluster' :: Maybe Int
manualSnapshotRetentionPeriod = Maybe Int
a} :: ModifyCluster)
modifyCluster_masterUserPassword :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_masterUserPassword :: Lens' ModifyCluster (Maybe Text)
modifyCluster_masterUserPassword = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
masterUserPassword :: Maybe Text
$sel:masterUserPassword:ModifyCluster' :: ModifyCluster -> Maybe Text
masterUserPassword} -> Maybe Text
masterUserPassword) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:masterUserPassword:ModifyCluster' :: Maybe Text
masterUserPassword = Maybe Text
a} :: ModifyCluster)
modifyCluster_newClusterIdentifier :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_newClusterIdentifier :: Lens' ModifyCluster (Maybe Text)
modifyCluster_newClusterIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
newClusterIdentifier' :: Maybe Text
$sel:newClusterIdentifier':ModifyCluster' :: ModifyCluster -> Maybe Text
newClusterIdentifier'} -> Maybe Text
newClusterIdentifier') (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:newClusterIdentifier':ModifyCluster' :: Maybe Text
newClusterIdentifier' = Maybe Text
a} :: ModifyCluster)
modifyCluster_nodeType :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_nodeType :: Lens' ModifyCluster (Maybe Text)
modifyCluster_nodeType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
nodeType :: Maybe Text
$sel:nodeType:ModifyCluster' :: ModifyCluster -> Maybe Text
nodeType} -> Maybe Text
nodeType) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:nodeType:ModifyCluster' :: Maybe Text
nodeType = Maybe Text
a} :: ModifyCluster)
modifyCluster_numberOfNodes :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Int)
modifyCluster_numberOfNodes :: Lens' ModifyCluster (Maybe Int)
modifyCluster_numberOfNodes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Int
numberOfNodes :: Maybe Int
$sel:numberOfNodes:ModifyCluster' :: ModifyCluster -> Maybe Int
numberOfNodes} -> Maybe Int
numberOfNodes) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Int
a -> ModifyCluster
s {$sel:numberOfNodes:ModifyCluster' :: Maybe Int
numberOfNodes = Maybe Int
a} :: ModifyCluster)
modifyCluster_port :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Int)
modifyCluster_port :: Lens' ModifyCluster (Maybe Int)
modifyCluster_port = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Int
port :: Maybe Int
$sel:port:ModifyCluster' :: ModifyCluster -> Maybe Int
port} -> Maybe Int
port) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Int
a -> ModifyCluster
s {$sel:port:ModifyCluster' :: Maybe Int
port = Maybe Int
a} :: ModifyCluster)
modifyCluster_preferredMaintenanceWindow :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Text)
modifyCluster_preferredMaintenanceWindow :: Lens' ModifyCluster (Maybe Text)
modifyCluster_preferredMaintenanceWindow = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Text
preferredMaintenanceWindow :: Maybe Text
$sel:preferredMaintenanceWindow:ModifyCluster' :: ModifyCluster -> Maybe Text
preferredMaintenanceWindow} -> Maybe Text
preferredMaintenanceWindow) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Text
a -> ModifyCluster
s {$sel:preferredMaintenanceWindow:ModifyCluster' :: Maybe Text
preferredMaintenanceWindow = Maybe Text
a} :: ModifyCluster)
modifyCluster_publiclyAccessible :: Lens.Lens' ModifyCluster (Prelude.Maybe Prelude.Bool)
modifyCluster_publiclyAccessible :: Lens' ModifyCluster (Maybe Bool)
modifyCluster_publiclyAccessible = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe Bool
publiclyAccessible :: Maybe Bool
$sel:publiclyAccessible:ModifyCluster' :: ModifyCluster -> Maybe Bool
publiclyAccessible} -> Maybe Bool
publiclyAccessible) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe Bool
a -> ModifyCluster
s {$sel:publiclyAccessible:ModifyCluster' :: Maybe Bool
publiclyAccessible = Maybe Bool
a} :: ModifyCluster)
modifyCluster_vpcSecurityGroupIds :: Lens.Lens' ModifyCluster (Prelude.Maybe [Prelude.Text])
modifyCluster_vpcSecurityGroupIds :: Lens' ModifyCluster (Maybe [Text])
modifyCluster_vpcSecurityGroupIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Maybe [Text]
vpcSecurityGroupIds :: Maybe [Text]
$sel:vpcSecurityGroupIds:ModifyCluster' :: ModifyCluster -> Maybe [Text]
vpcSecurityGroupIds} -> Maybe [Text]
vpcSecurityGroupIds) (\s :: ModifyCluster
s@ModifyCluster' {} Maybe [Text]
a -> ModifyCluster
s {$sel:vpcSecurityGroupIds:ModifyCluster' :: Maybe [Text]
vpcSecurityGroupIds = Maybe [Text]
a} :: ModifyCluster) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
modifyCluster_clusterIdentifier :: Lens.Lens' ModifyCluster Prelude.Text
modifyCluster_clusterIdentifier :: Lens' ModifyCluster Text
modifyCluster_clusterIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCluster' {Text
clusterIdentifier :: Text
$sel:clusterIdentifier:ModifyCluster' :: ModifyCluster -> Text
clusterIdentifier} -> Text
clusterIdentifier) (\s :: ModifyCluster
s@ModifyCluster' {} Text
a -> ModifyCluster
s {$sel:clusterIdentifier:ModifyCluster' :: Text
clusterIdentifier = Text
a} :: ModifyCluster)
instance Core.AWSRequest ModifyCluster where
type
AWSResponse ModifyCluster =
ModifyClusterResponse
request :: (Service -> Service) -> ModifyCluster -> Request ModifyCluster
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ModifyCluster
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ModifyCluster)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"ModifyClusterResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Cluster -> Int -> ModifyClusterResponse
ModifyClusterResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Cluster")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable ModifyCluster where
hashWithSalt :: Int -> ModifyCluster -> Int
hashWithSalt Int
_salt ModifyCluster' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe Text
Text
clusterIdentifier :: Text
vpcSecurityGroupIds :: Maybe [Text]
publiclyAccessible :: Maybe Bool
preferredMaintenanceWindow :: Maybe Text
port :: Maybe Int
numberOfNodes :: Maybe Int
nodeType :: Maybe Text
newClusterIdentifier' :: Maybe Text
masterUserPassword :: Maybe Text
manualSnapshotRetentionPeriod :: Maybe Int
maintenanceTrackName :: Maybe Text
kmsKeyId :: Maybe Text
hsmConfigurationIdentifier :: Maybe Text
hsmClientCertificateIdentifier :: Maybe Text
enhancedVpcRouting :: Maybe Bool
encrypted :: Maybe Bool
elasticIp :: Maybe Text
clusterVersion :: Maybe Text
clusterType :: Maybe Text
clusterSecurityGroups :: Maybe [Text]
clusterParameterGroupName :: Maybe Text
availabilityZoneRelocation :: Maybe Bool
availabilityZone :: Maybe Text
automatedSnapshotRetentionPeriod :: Maybe Int
allowVersionUpgrade :: Maybe Bool
$sel:clusterIdentifier:ModifyCluster' :: ModifyCluster -> Text
$sel:vpcSecurityGroupIds:ModifyCluster' :: ModifyCluster -> Maybe [Text]
$sel:publiclyAccessible:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:preferredMaintenanceWindow:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:port:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:numberOfNodes:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:nodeType:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:newClusterIdentifier':ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:masterUserPassword:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:manualSnapshotRetentionPeriod:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:maintenanceTrackName:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:kmsKeyId:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:hsmConfigurationIdentifier:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:hsmClientCertificateIdentifier:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:enhancedVpcRouting:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:encrypted:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:elasticIp:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:clusterVersion:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:clusterType:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:clusterSecurityGroups:ModifyCluster' :: ModifyCluster -> Maybe [Text]
$sel:clusterParameterGroupName:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:availabilityZoneRelocation:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:availabilityZone:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:automatedSnapshotRetentionPeriod:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:allowVersionUpgrade:ModifyCluster' :: ModifyCluster -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
allowVersionUpgrade
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
automatedSnapshotRetentionPeriod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
availabilityZone
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
availabilityZoneRelocation
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clusterParameterGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
clusterSecurityGroups
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clusterType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clusterVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
elasticIp
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
encrypted
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enhancedVpcRouting
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
hsmClientCertificateIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
hsmConfigurationIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
maintenanceTrackName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
manualSnapshotRetentionPeriod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
masterUserPassword
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
newClusterIdentifier'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nodeType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
numberOfNodes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
port
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
preferredMaintenanceWindow
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
publiclyAccessible
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
vpcSecurityGroupIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
clusterIdentifier
instance Prelude.NFData ModifyCluster where
rnf :: ModifyCluster -> ()
rnf ModifyCluster' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe Text
Text
clusterIdentifier :: Text
vpcSecurityGroupIds :: Maybe [Text]
publiclyAccessible :: Maybe Bool
preferredMaintenanceWindow :: Maybe Text
port :: Maybe Int
numberOfNodes :: Maybe Int
nodeType :: Maybe Text
newClusterIdentifier' :: Maybe Text
masterUserPassword :: Maybe Text
manualSnapshotRetentionPeriod :: Maybe Int
maintenanceTrackName :: Maybe Text
kmsKeyId :: Maybe Text
hsmConfigurationIdentifier :: Maybe Text
hsmClientCertificateIdentifier :: Maybe Text
enhancedVpcRouting :: Maybe Bool
encrypted :: Maybe Bool
elasticIp :: Maybe Text
clusterVersion :: Maybe Text
clusterType :: Maybe Text
clusterSecurityGroups :: Maybe [Text]
clusterParameterGroupName :: Maybe Text
availabilityZoneRelocation :: Maybe Bool
availabilityZone :: Maybe Text
automatedSnapshotRetentionPeriod :: Maybe Int
allowVersionUpgrade :: Maybe Bool
$sel:clusterIdentifier:ModifyCluster' :: ModifyCluster -> Text
$sel:vpcSecurityGroupIds:ModifyCluster' :: ModifyCluster -> Maybe [Text]
$sel:publiclyAccessible:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:preferredMaintenanceWindow:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:port:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:numberOfNodes:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:nodeType:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:newClusterIdentifier':ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:masterUserPassword:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:manualSnapshotRetentionPeriod:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:maintenanceTrackName:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:kmsKeyId:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:hsmConfigurationIdentifier:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:hsmClientCertificateIdentifier:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:enhancedVpcRouting:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:encrypted:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:elasticIp:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:clusterVersion:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:clusterType:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:clusterSecurityGroups:ModifyCluster' :: ModifyCluster -> Maybe [Text]
$sel:clusterParameterGroupName:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:availabilityZoneRelocation:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:availabilityZone:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:automatedSnapshotRetentionPeriod:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:allowVersionUpgrade:ModifyCluster' :: ModifyCluster -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
allowVersionUpgrade
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
automatedSnapshotRetentionPeriod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
availabilityZone
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
availabilityZoneRelocation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clusterParameterGroupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
clusterSecurityGroups
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clusterType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clusterVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
elasticIp
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
encrypted
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enhancedVpcRouting
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
hsmClientCertificateIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
hsmConfigurationIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
maintenanceTrackName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Int
manualSnapshotRetentionPeriod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
masterUserPassword
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
newClusterIdentifier'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nodeType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
numberOfNodes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
port
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
preferredMaintenanceWindow
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Bool
publiclyAccessible
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [Text]
vpcSecurityGroupIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Text
clusterIdentifier
instance Data.ToHeaders ModifyCluster where
toHeaders :: ModifyCluster -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ModifyCluster where
toPath :: ModifyCluster -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ModifyCluster where
toQuery :: ModifyCluster -> QueryString
toQuery ModifyCluster' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe Text
Text
clusterIdentifier :: Text
vpcSecurityGroupIds :: Maybe [Text]
publiclyAccessible :: Maybe Bool
preferredMaintenanceWindow :: Maybe Text
port :: Maybe Int
numberOfNodes :: Maybe Int
nodeType :: Maybe Text
newClusterIdentifier' :: Maybe Text
masterUserPassword :: Maybe Text
manualSnapshotRetentionPeriod :: Maybe Int
maintenanceTrackName :: Maybe Text
kmsKeyId :: Maybe Text
hsmConfigurationIdentifier :: Maybe Text
hsmClientCertificateIdentifier :: Maybe Text
enhancedVpcRouting :: Maybe Bool
encrypted :: Maybe Bool
elasticIp :: Maybe Text
clusterVersion :: Maybe Text
clusterType :: Maybe Text
clusterSecurityGroups :: Maybe [Text]
clusterParameterGroupName :: Maybe Text
availabilityZoneRelocation :: Maybe Bool
availabilityZone :: Maybe Text
automatedSnapshotRetentionPeriod :: Maybe Int
allowVersionUpgrade :: Maybe Bool
$sel:clusterIdentifier:ModifyCluster' :: ModifyCluster -> Text
$sel:vpcSecurityGroupIds:ModifyCluster' :: ModifyCluster -> Maybe [Text]
$sel:publiclyAccessible:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:preferredMaintenanceWindow:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:port:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:numberOfNodes:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:nodeType:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:newClusterIdentifier':ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:masterUserPassword:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:manualSnapshotRetentionPeriod:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:maintenanceTrackName:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:kmsKeyId:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:hsmConfigurationIdentifier:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:hsmClientCertificateIdentifier:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:enhancedVpcRouting:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:encrypted:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:elasticIp:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:clusterVersion:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:clusterType:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:clusterSecurityGroups:ModifyCluster' :: ModifyCluster -> Maybe [Text]
$sel:clusterParameterGroupName:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:availabilityZoneRelocation:ModifyCluster' :: ModifyCluster -> Maybe Bool
$sel:availabilityZone:ModifyCluster' :: ModifyCluster -> Maybe Text
$sel:automatedSnapshotRetentionPeriod:ModifyCluster' :: ModifyCluster -> Maybe Int
$sel:allowVersionUpgrade:ModifyCluster' :: ModifyCluster -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"ModifyCluster" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2012-12-01" :: Prelude.ByteString),
ByteString
"AllowVersionUpgrade" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
allowVersionUpgrade,
ByteString
"AutomatedSnapshotRetentionPeriod"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
automatedSnapshotRetentionPeriod,
ByteString
"AvailabilityZone" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
availabilityZone,
ByteString
"AvailabilityZoneRelocation"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
availabilityZoneRelocation,
ByteString
"ClusterParameterGroupName"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
clusterParameterGroupName,
ByteString
"ClusterSecurityGroups"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"ClusterSecurityGroupName"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
clusterSecurityGroups
),
ByteString
"ClusterType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
clusterType,
ByteString
"ClusterVersion" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
clusterVersion,
ByteString
"ElasticIp" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
elasticIp,
ByteString
"Encrypted" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
encrypted,
ByteString
"EnhancedVpcRouting" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
enhancedVpcRouting,
ByteString
"HsmClientCertificateIdentifier"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
hsmClientCertificateIdentifier,
ByteString
"HsmConfigurationIdentifier"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
hsmConfigurationIdentifier,
ByteString
"KmsKeyId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
kmsKeyId,
ByteString
"MaintenanceTrackName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
maintenanceTrackName,
ByteString
"ManualSnapshotRetentionPeriod"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
manualSnapshotRetentionPeriod,
ByteString
"MasterUserPassword" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
masterUserPassword,
ByteString
"NewClusterIdentifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
newClusterIdentifier',
ByteString
"NodeType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nodeType,
ByteString
"NumberOfNodes" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
numberOfNodes,
ByteString
"Port" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
port,
ByteString
"PreferredMaintenanceWindow"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
preferredMaintenanceWindow,
ByteString
"PubliclyAccessible" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
publiclyAccessible,
ByteString
"VpcSecurityGroupIds"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"VpcSecurityGroupId"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
vpcSecurityGroupIds
),
ByteString
"ClusterIdentifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
clusterIdentifier
]
data ModifyClusterResponse = ModifyClusterResponse'
{ ModifyClusterResponse -> Maybe Cluster
cluster :: Prelude.Maybe Cluster,
ModifyClusterResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ModifyClusterResponse -> ModifyClusterResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyClusterResponse -> ModifyClusterResponse -> Bool
$c/= :: ModifyClusterResponse -> ModifyClusterResponse -> Bool
== :: ModifyClusterResponse -> ModifyClusterResponse -> Bool
$c== :: ModifyClusterResponse -> ModifyClusterResponse -> Bool
Prelude.Eq, ReadPrec [ModifyClusterResponse]
ReadPrec ModifyClusterResponse
Int -> ReadS ModifyClusterResponse
ReadS [ModifyClusterResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyClusterResponse]
$creadListPrec :: ReadPrec [ModifyClusterResponse]
readPrec :: ReadPrec ModifyClusterResponse
$creadPrec :: ReadPrec ModifyClusterResponse
readList :: ReadS [ModifyClusterResponse]
$creadList :: ReadS [ModifyClusterResponse]
readsPrec :: Int -> ReadS ModifyClusterResponse
$creadsPrec :: Int -> ReadS ModifyClusterResponse
Prelude.Read, Int -> ModifyClusterResponse -> ShowS
[ModifyClusterResponse] -> ShowS
ModifyClusterResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyClusterResponse] -> ShowS
$cshowList :: [ModifyClusterResponse] -> ShowS
show :: ModifyClusterResponse -> String
$cshow :: ModifyClusterResponse -> String
showsPrec :: Int -> ModifyClusterResponse -> ShowS
$cshowsPrec :: Int -> ModifyClusterResponse -> ShowS
Prelude.Show, forall x. Rep ModifyClusterResponse x -> ModifyClusterResponse
forall x. ModifyClusterResponse -> Rep ModifyClusterResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ModifyClusterResponse x -> ModifyClusterResponse
$cfrom :: forall x. ModifyClusterResponse -> Rep ModifyClusterResponse x
Prelude.Generic)
newModifyClusterResponse ::
Prelude.Int ->
ModifyClusterResponse
newModifyClusterResponse :: Int -> ModifyClusterResponse
newModifyClusterResponse Int
pHttpStatus_ =
ModifyClusterResponse'
{ $sel:cluster:ModifyClusterResponse' :: Maybe Cluster
cluster = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ModifyClusterResponse' :: Int
httpStatus = Int
pHttpStatus_
}
modifyClusterResponse_cluster :: Lens.Lens' ModifyClusterResponse (Prelude.Maybe Cluster)
modifyClusterResponse_cluster :: Lens' ModifyClusterResponse (Maybe Cluster)
modifyClusterResponse_cluster = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyClusterResponse' {Maybe Cluster
cluster :: Maybe Cluster
$sel:cluster:ModifyClusterResponse' :: ModifyClusterResponse -> Maybe Cluster
cluster} -> Maybe Cluster
cluster) (\s :: ModifyClusterResponse
s@ModifyClusterResponse' {} Maybe Cluster
a -> ModifyClusterResponse
s {$sel:cluster:ModifyClusterResponse' :: Maybe Cluster
cluster = Maybe Cluster
a} :: ModifyClusterResponse)
modifyClusterResponse_httpStatus :: Lens.Lens' ModifyClusterResponse Prelude.Int
modifyClusterResponse_httpStatus :: Lens' ModifyClusterResponse Int
modifyClusterResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyClusterResponse' {Int
httpStatus :: Int
$sel:httpStatus:ModifyClusterResponse' :: ModifyClusterResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ModifyClusterResponse
s@ModifyClusterResponse' {} Int
a -> ModifyClusterResponse
s {$sel:httpStatus:ModifyClusterResponse' :: Int
httpStatus = Int
a} :: ModifyClusterResponse)
instance Prelude.NFData ModifyClusterResponse where
rnf :: ModifyClusterResponse -> ()
rnf ModifyClusterResponse' {Int
Maybe Cluster
httpStatus :: Int
cluster :: Maybe Cluster
$sel:httpStatus:ModifyClusterResponse' :: ModifyClusterResponse -> Int
$sel:cluster:ModifyClusterResponse' :: ModifyClusterResponse -> Maybe Cluster
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Cluster
cluster
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus