{-# 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.Neptune.ModifyDBCluster
(
ModifyDBCluster (..),
newModifyDBCluster,
modifyDBCluster_allowMajorVersionUpgrade,
modifyDBCluster_applyImmediately,
modifyDBCluster_backupRetentionPeriod,
modifyDBCluster_cloudwatchLogsExportConfiguration,
modifyDBCluster_copyTagsToSnapshot,
modifyDBCluster_dbClusterParameterGroupName,
modifyDBCluster_dbInstanceParameterGroupName,
modifyDBCluster_deletionProtection,
modifyDBCluster_enableIAMDatabaseAuthentication,
modifyDBCluster_engineVersion,
modifyDBCluster_masterUserPassword,
modifyDBCluster_newDBClusterIdentifier,
modifyDBCluster_optionGroupName,
modifyDBCluster_port,
modifyDBCluster_preferredBackupWindow,
modifyDBCluster_preferredMaintenanceWindow,
modifyDBCluster_serverlessV2ScalingConfiguration,
modifyDBCluster_vpcSecurityGroupIds,
modifyDBCluster_dbClusterIdentifier,
ModifyDBClusterResponse (..),
newModifyDBClusterResponse,
modifyDBClusterResponse_dbCluster,
modifyDBClusterResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Neptune.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ModifyDBCluster = ModifyDBCluster'
{
ModifyDBCluster -> Maybe Bool
allowMajorVersionUpgrade :: Prelude.Maybe Prelude.Bool,
ModifyDBCluster -> Maybe Bool
applyImmediately :: Prelude.Maybe Prelude.Bool,
ModifyDBCluster -> Maybe Int
backupRetentionPeriod :: Prelude.Maybe Prelude.Int,
ModifyDBCluster -> Maybe CloudwatchLogsExportConfiguration
cloudwatchLogsExportConfiguration :: Prelude.Maybe CloudwatchLogsExportConfiguration,
ModifyDBCluster -> Maybe Bool
copyTagsToSnapshot :: Prelude.Maybe Prelude.Bool,
ModifyDBCluster -> Maybe Text
dbClusterParameterGroupName :: Prelude.Maybe Prelude.Text,
ModifyDBCluster -> Maybe Text
dbInstanceParameterGroupName :: Prelude.Maybe Prelude.Text,
ModifyDBCluster -> Maybe Bool
deletionProtection :: Prelude.Maybe Prelude.Bool,
ModifyDBCluster -> Maybe Bool
enableIAMDatabaseAuthentication :: Prelude.Maybe Prelude.Bool,
ModifyDBCluster -> Maybe Text
engineVersion :: Prelude.Maybe Prelude.Text,
ModifyDBCluster -> Maybe Text
masterUserPassword :: Prelude.Maybe Prelude.Text,
ModifyDBCluster -> Maybe Text
newDBClusterIdentifier' :: Prelude.Maybe Prelude.Text,
ModifyDBCluster -> Maybe Text
optionGroupName :: Prelude.Maybe Prelude.Text,
ModifyDBCluster -> Maybe Int
port :: Prelude.Maybe Prelude.Int,
ModifyDBCluster -> Maybe Text
preferredBackupWindow :: Prelude.Maybe Prelude.Text,
ModifyDBCluster -> Maybe Text
preferredMaintenanceWindow :: Prelude.Maybe Prelude.Text,
ModifyDBCluster -> Maybe ServerlessV2ScalingConfiguration
serverlessV2ScalingConfiguration :: Prelude.Maybe ServerlessV2ScalingConfiguration,
ModifyDBCluster -> Maybe [Text]
vpcSecurityGroupIds :: Prelude.Maybe [Prelude.Text],
ModifyDBCluster -> Text
dbClusterIdentifier :: Prelude.Text
}
deriving (ModifyDBCluster -> ModifyDBCluster -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyDBCluster -> ModifyDBCluster -> Bool
$c/= :: ModifyDBCluster -> ModifyDBCluster -> Bool
== :: ModifyDBCluster -> ModifyDBCluster -> Bool
$c== :: ModifyDBCluster -> ModifyDBCluster -> Bool
Prelude.Eq, ReadPrec [ModifyDBCluster]
ReadPrec ModifyDBCluster
Int -> ReadS ModifyDBCluster
ReadS [ModifyDBCluster]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyDBCluster]
$creadListPrec :: ReadPrec [ModifyDBCluster]
readPrec :: ReadPrec ModifyDBCluster
$creadPrec :: ReadPrec ModifyDBCluster
readList :: ReadS [ModifyDBCluster]
$creadList :: ReadS [ModifyDBCluster]
readsPrec :: Int -> ReadS ModifyDBCluster
$creadsPrec :: Int -> ReadS ModifyDBCluster
Prelude.Read, Int -> ModifyDBCluster -> ShowS
[ModifyDBCluster] -> ShowS
ModifyDBCluster -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyDBCluster] -> ShowS
$cshowList :: [ModifyDBCluster] -> ShowS
show :: ModifyDBCluster -> String
$cshow :: ModifyDBCluster -> String
showsPrec :: Int -> ModifyDBCluster -> ShowS
$cshowsPrec :: Int -> ModifyDBCluster -> ShowS
Prelude.Show, forall x. Rep ModifyDBCluster x -> ModifyDBCluster
forall x. ModifyDBCluster -> Rep ModifyDBCluster x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ModifyDBCluster x -> ModifyDBCluster
$cfrom :: forall x. ModifyDBCluster -> Rep ModifyDBCluster x
Prelude.Generic)
newModifyDBCluster ::
Prelude.Text ->
ModifyDBCluster
newModifyDBCluster :: Text -> ModifyDBCluster
newModifyDBCluster Text
pDBClusterIdentifier_ =
ModifyDBCluster'
{ $sel:allowMajorVersionUpgrade:ModifyDBCluster' :: Maybe Bool
allowMajorVersionUpgrade =
forall a. Maybe a
Prelude.Nothing,
$sel:applyImmediately:ModifyDBCluster' :: Maybe Bool
applyImmediately = forall a. Maybe a
Prelude.Nothing,
$sel:backupRetentionPeriod:ModifyDBCluster' :: Maybe Int
backupRetentionPeriod = forall a. Maybe a
Prelude.Nothing,
$sel:cloudwatchLogsExportConfiguration:ModifyDBCluster' :: Maybe CloudwatchLogsExportConfiguration
cloudwatchLogsExportConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:copyTagsToSnapshot:ModifyDBCluster' :: Maybe Bool
copyTagsToSnapshot = forall a. Maybe a
Prelude.Nothing,
$sel:dbClusterParameterGroupName:ModifyDBCluster' :: Maybe Text
dbClusterParameterGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:dbInstanceParameterGroupName:ModifyDBCluster' :: Maybe Text
dbInstanceParameterGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:deletionProtection:ModifyDBCluster' :: Maybe Bool
deletionProtection = forall a. Maybe a
Prelude.Nothing,
$sel:enableIAMDatabaseAuthentication:ModifyDBCluster' :: Maybe Bool
enableIAMDatabaseAuthentication = forall a. Maybe a
Prelude.Nothing,
$sel:engineVersion:ModifyDBCluster' :: Maybe Text
engineVersion = forall a. Maybe a
Prelude.Nothing,
$sel:masterUserPassword:ModifyDBCluster' :: Maybe Text
masterUserPassword = forall a. Maybe a
Prelude.Nothing,
$sel:newDBClusterIdentifier':ModifyDBCluster' :: Maybe Text
newDBClusterIdentifier' = forall a. Maybe a
Prelude.Nothing,
$sel:optionGroupName:ModifyDBCluster' :: Maybe Text
optionGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:port:ModifyDBCluster' :: Maybe Int
port = forall a. Maybe a
Prelude.Nothing,
$sel:preferredBackupWindow:ModifyDBCluster' :: Maybe Text
preferredBackupWindow = forall a. Maybe a
Prelude.Nothing,
$sel:preferredMaintenanceWindow:ModifyDBCluster' :: Maybe Text
preferredMaintenanceWindow = forall a. Maybe a
Prelude.Nothing,
$sel:serverlessV2ScalingConfiguration:ModifyDBCluster' :: Maybe ServerlessV2ScalingConfiguration
serverlessV2ScalingConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:vpcSecurityGroupIds:ModifyDBCluster' :: Maybe [Text]
vpcSecurityGroupIds = forall a. Maybe a
Prelude.Nothing,
$sel:dbClusterIdentifier:ModifyDBCluster' :: Text
dbClusterIdentifier = Text
pDBClusterIdentifier_
}
modifyDBCluster_allowMajorVersionUpgrade :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Bool)
modifyDBCluster_allowMajorVersionUpgrade :: Lens' ModifyDBCluster (Maybe Bool)
modifyDBCluster_allowMajorVersionUpgrade = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Bool
allowMajorVersionUpgrade :: Maybe Bool
$sel:allowMajorVersionUpgrade:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
allowMajorVersionUpgrade} -> Maybe Bool
allowMajorVersionUpgrade) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Bool
a -> ModifyDBCluster
s {$sel:allowMajorVersionUpgrade:ModifyDBCluster' :: Maybe Bool
allowMajorVersionUpgrade = Maybe Bool
a} :: ModifyDBCluster)
modifyDBCluster_applyImmediately :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Bool)
modifyDBCluster_applyImmediately :: Lens' ModifyDBCluster (Maybe Bool)
modifyDBCluster_applyImmediately = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Bool
applyImmediately :: Maybe Bool
$sel:applyImmediately:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
applyImmediately} -> Maybe Bool
applyImmediately) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Bool
a -> ModifyDBCluster
s {$sel:applyImmediately:ModifyDBCluster' :: Maybe Bool
applyImmediately = Maybe Bool
a} :: ModifyDBCluster)
modifyDBCluster_backupRetentionPeriod :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Int)
modifyDBCluster_backupRetentionPeriod :: Lens' ModifyDBCluster (Maybe Int)
modifyDBCluster_backupRetentionPeriod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Int
backupRetentionPeriod :: Maybe Int
$sel:backupRetentionPeriod:ModifyDBCluster' :: ModifyDBCluster -> Maybe Int
backupRetentionPeriod} -> Maybe Int
backupRetentionPeriod) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Int
a -> ModifyDBCluster
s {$sel:backupRetentionPeriod:ModifyDBCluster' :: Maybe Int
backupRetentionPeriod = Maybe Int
a} :: ModifyDBCluster)
modifyDBCluster_cloudwatchLogsExportConfiguration :: Lens.Lens' ModifyDBCluster (Prelude.Maybe CloudwatchLogsExportConfiguration)
modifyDBCluster_cloudwatchLogsExportConfiguration :: Lens' ModifyDBCluster (Maybe CloudwatchLogsExportConfiguration)
modifyDBCluster_cloudwatchLogsExportConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe CloudwatchLogsExportConfiguration
cloudwatchLogsExportConfiguration :: Maybe CloudwatchLogsExportConfiguration
$sel:cloudwatchLogsExportConfiguration:ModifyDBCluster' :: ModifyDBCluster -> Maybe CloudwatchLogsExportConfiguration
cloudwatchLogsExportConfiguration} -> Maybe CloudwatchLogsExportConfiguration
cloudwatchLogsExportConfiguration) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe CloudwatchLogsExportConfiguration
a -> ModifyDBCluster
s {$sel:cloudwatchLogsExportConfiguration:ModifyDBCluster' :: Maybe CloudwatchLogsExportConfiguration
cloudwatchLogsExportConfiguration = Maybe CloudwatchLogsExportConfiguration
a} :: ModifyDBCluster)
modifyDBCluster_copyTagsToSnapshot :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Bool)
modifyDBCluster_copyTagsToSnapshot :: Lens' ModifyDBCluster (Maybe Bool)
modifyDBCluster_copyTagsToSnapshot = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Bool
copyTagsToSnapshot :: Maybe Bool
$sel:copyTagsToSnapshot:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
copyTagsToSnapshot} -> Maybe Bool
copyTagsToSnapshot) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Bool
a -> ModifyDBCluster
s {$sel:copyTagsToSnapshot:ModifyDBCluster' :: Maybe Bool
copyTagsToSnapshot = Maybe Bool
a} :: ModifyDBCluster)
modifyDBCluster_dbClusterParameterGroupName :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Text)
modifyDBCluster_dbClusterParameterGroupName :: Lens' ModifyDBCluster (Maybe Text)
modifyDBCluster_dbClusterParameterGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Text
dbClusterParameterGroupName :: Maybe Text
$sel:dbClusterParameterGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
dbClusterParameterGroupName} -> Maybe Text
dbClusterParameterGroupName) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Text
a -> ModifyDBCluster
s {$sel:dbClusterParameterGroupName:ModifyDBCluster' :: Maybe Text
dbClusterParameterGroupName = Maybe Text
a} :: ModifyDBCluster)
modifyDBCluster_dbInstanceParameterGroupName :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Text)
modifyDBCluster_dbInstanceParameterGroupName :: Lens' ModifyDBCluster (Maybe Text)
modifyDBCluster_dbInstanceParameterGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Text
dbInstanceParameterGroupName :: Maybe Text
$sel:dbInstanceParameterGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
dbInstanceParameterGroupName} -> Maybe Text
dbInstanceParameterGroupName) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Text
a -> ModifyDBCluster
s {$sel:dbInstanceParameterGroupName:ModifyDBCluster' :: Maybe Text
dbInstanceParameterGroupName = Maybe Text
a} :: ModifyDBCluster)
modifyDBCluster_deletionProtection :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Bool)
modifyDBCluster_deletionProtection :: Lens' ModifyDBCluster (Maybe Bool)
modifyDBCluster_deletionProtection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Bool
deletionProtection :: Maybe Bool
$sel:deletionProtection:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
deletionProtection} -> Maybe Bool
deletionProtection) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Bool
a -> ModifyDBCluster
s {$sel:deletionProtection:ModifyDBCluster' :: Maybe Bool
deletionProtection = Maybe Bool
a} :: ModifyDBCluster)
modifyDBCluster_enableIAMDatabaseAuthentication :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Bool)
modifyDBCluster_enableIAMDatabaseAuthentication :: Lens' ModifyDBCluster (Maybe Bool)
modifyDBCluster_enableIAMDatabaseAuthentication = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Bool
enableIAMDatabaseAuthentication :: Maybe Bool
$sel:enableIAMDatabaseAuthentication:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
enableIAMDatabaseAuthentication} -> Maybe Bool
enableIAMDatabaseAuthentication) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Bool
a -> ModifyDBCluster
s {$sel:enableIAMDatabaseAuthentication:ModifyDBCluster' :: Maybe Bool
enableIAMDatabaseAuthentication = Maybe Bool
a} :: ModifyDBCluster)
modifyDBCluster_engineVersion :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Text)
modifyDBCluster_engineVersion :: Lens' ModifyDBCluster (Maybe Text)
modifyDBCluster_engineVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Text
engineVersion :: Maybe Text
$sel:engineVersion:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
engineVersion} -> Maybe Text
engineVersion) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Text
a -> ModifyDBCluster
s {$sel:engineVersion:ModifyDBCluster' :: Maybe Text
engineVersion = Maybe Text
a} :: ModifyDBCluster)
modifyDBCluster_masterUserPassword :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Text)
modifyDBCluster_masterUserPassword :: Lens' ModifyDBCluster (Maybe Text)
modifyDBCluster_masterUserPassword = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Text
masterUserPassword :: Maybe Text
$sel:masterUserPassword:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
masterUserPassword} -> Maybe Text
masterUserPassword) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Text
a -> ModifyDBCluster
s {$sel:masterUserPassword:ModifyDBCluster' :: Maybe Text
masterUserPassword = Maybe Text
a} :: ModifyDBCluster)
modifyDBCluster_newDBClusterIdentifier :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Text)
modifyDBCluster_newDBClusterIdentifier :: Lens' ModifyDBCluster (Maybe Text)
modifyDBCluster_newDBClusterIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Text
newDBClusterIdentifier' :: Maybe Text
$sel:newDBClusterIdentifier':ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
newDBClusterIdentifier'} -> Maybe Text
newDBClusterIdentifier') (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Text
a -> ModifyDBCluster
s {$sel:newDBClusterIdentifier':ModifyDBCluster' :: Maybe Text
newDBClusterIdentifier' = Maybe Text
a} :: ModifyDBCluster)
modifyDBCluster_optionGroupName :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Text)
modifyDBCluster_optionGroupName :: Lens' ModifyDBCluster (Maybe Text)
modifyDBCluster_optionGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Text
optionGroupName :: Maybe Text
$sel:optionGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
optionGroupName} -> Maybe Text
optionGroupName) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Text
a -> ModifyDBCluster
s {$sel:optionGroupName:ModifyDBCluster' :: Maybe Text
optionGroupName = Maybe Text
a} :: ModifyDBCluster)
modifyDBCluster_port :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Int)
modifyDBCluster_port :: Lens' ModifyDBCluster (Maybe Int)
modifyDBCluster_port = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Int
port :: Maybe Int
$sel:port:ModifyDBCluster' :: ModifyDBCluster -> Maybe Int
port} -> Maybe Int
port) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Int
a -> ModifyDBCluster
s {$sel:port:ModifyDBCluster' :: Maybe Int
port = Maybe Int
a} :: ModifyDBCluster)
modifyDBCluster_preferredBackupWindow :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Text)
modifyDBCluster_preferredBackupWindow :: Lens' ModifyDBCluster (Maybe Text)
modifyDBCluster_preferredBackupWindow = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Text
preferredBackupWindow :: Maybe Text
$sel:preferredBackupWindow:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
preferredBackupWindow} -> Maybe Text
preferredBackupWindow) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Text
a -> ModifyDBCluster
s {$sel:preferredBackupWindow:ModifyDBCluster' :: Maybe Text
preferredBackupWindow = Maybe Text
a} :: ModifyDBCluster)
modifyDBCluster_preferredMaintenanceWindow :: Lens.Lens' ModifyDBCluster (Prelude.Maybe Prelude.Text)
modifyDBCluster_preferredMaintenanceWindow :: Lens' ModifyDBCluster (Maybe Text)
modifyDBCluster_preferredMaintenanceWindow = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe Text
preferredMaintenanceWindow :: Maybe Text
$sel:preferredMaintenanceWindow:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
preferredMaintenanceWindow} -> Maybe Text
preferredMaintenanceWindow) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe Text
a -> ModifyDBCluster
s {$sel:preferredMaintenanceWindow:ModifyDBCluster' :: Maybe Text
preferredMaintenanceWindow = Maybe Text
a} :: ModifyDBCluster)
modifyDBCluster_serverlessV2ScalingConfiguration :: Lens.Lens' ModifyDBCluster (Prelude.Maybe ServerlessV2ScalingConfiguration)
modifyDBCluster_serverlessV2ScalingConfiguration :: Lens' ModifyDBCluster (Maybe ServerlessV2ScalingConfiguration)
modifyDBCluster_serverlessV2ScalingConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe ServerlessV2ScalingConfiguration
serverlessV2ScalingConfiguration :: Maybe ServerlessV2ScalingConfiguration
$sel:serverlessV2ScalingConfiguration:ModifyDBCluster' :: ModifyDBCluster -> Maybe ServerlessV2ScalingConfiguration
serverlessV2ScalingConfiguration} -> Maybe ServerlessV2ScalingConfiguration
serverlessV2ScalingConfiguration) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe ServerlessV2ScalingConfiguration
a -> ModifyDBCluster
s {$sel:serverlessV2ScalingConfiguration:ModifyDBCluster' :: Maybe ServerlessV2ScalingConfiguration
serverlessV2ScalingConfiguration = Maybe ServerlessV2ScalingConfiguration
a} :: ModifyDBCluster)
modifyDBCluster_vpcSecurityGroupIds :: Lens.Lens' ModifyDBCluster (Prelude.Maybe [Prelude.Text])
modifyDBCluster_vpcSecurityGroupIds :: Lens' ModifyDBCluster (Maybe [Text])
modifyDBCluster_vpcSecurityGroupIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Maybe [Text]
vpcSecurityGroupIds :: Maybe [Text]
$sel:vpcSecurityGroupIds:ModifyDBCluster' :: ModifyDBCluster -> Maybe [Text]
vpcSecurityGroupIds} -> Maybe [Text]
vpcSecurityGroupIds) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Maybe [Text]
a -> ModifyDBCluster
s {$sel:vpcSecurityGroupIds:ModifyDBCluster' :: Maybe [Text]
vpcSecurityGroupIds = Maybe [Text]
a} :: ModifyDBCluster) 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
modifyDBCluster_dbClusterIdentifier :: Lens.Lens' ModifyDBCluster Prelude.Text
modifyDBCluster_dbClusterIdentifier :: Lens' ModifyDBCluster Text
modifyDBCluster_dbClusterIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBCluster' {Text
dbClusterIdentifier :: Text
$sel:dbClusterIdentifier:ModifyDBCluster' :: ModifyDBCluster -> Text
dbClusterIdentifier} -> Text
dbClusterIdentifier) (\s :: ModifyDBCluster
s@ModifyDBCluster' {} Text
a -> ModifyDBCluster
s {$sel:dbClusterIdentifier:ModifyDBCluster' :: Text
dbClusterIdentifier = Text
a} :: ModifyDBCluster)
instance Core.AWSRequest ModifyDBCluster where
type
AWSResponse ModifyDBCluster =
ModifyDBClusterResponse
request :: (Service -> Service) -> ModifyDBCluster -> Request ModifyDBCluster
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 ModifyDBCluster
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ModifyDBCluster)))
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
"ModifyDBClusterResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe DBCluster -> Int -> ModifyDBClusterResponse
ModifyDBClusterResponse'
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
"DBCluster")
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 ModifyDBCluster where
hashWithSalt :: Int -> ModifyDBCluster -> Int
hashWithSalt Int
_salt ModifyDBCluster' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe Text
Maybe CloudwatchLogsExportConfiguration
Maybe ServerlessV2ScalingConfiguration
Text
dbClusterIdentifier :: Text
vpcSecurityGroupIds :: Maybe [Text]
serverlessV2ScalingConfiguration :: Maybe ServerlessV2ScalingConfiguration
preferredMaintenanceWindow :: Maybe Text
preferredBackupWindow :: Maybe Text
port :: Maybe Int
optionGroupName :: Maybe Text
newDBClusterIdentifier' :: Maybe Text
masterUserPassword :: Maybe Text
engineVersion :: Maybe Text
enableIAMDatabaseAuthentication :: Maybe Bool
deletionProtection :: Maybe Bool
dbInstanceParameterGroupName :: Maybe Text
dbClusterParameterGroupName :: Maybe Text
copyTagsToSnapshot :: Maybe Bool
cloudwatchLogsExportConfiguration :: Maybe CloudwatchLogsExportConfiguration
backupRetentionPeriod :: Maybe Int
applyImmediately :: Maybe Bool
allowMajorVersionUpgrade :: Maybe Bool
$sel:dbClusterIdentifier:ModifyDBCluster' :: ModifyDBCluster -> Text
$sel:vpcSecurityGroupIds:ModifyDBCluster' :: ModifyDBCluster -> Maybe [Text]
$sel:serverlessV2ScalingConfiguration:ModifyDBCluster' :: ModifyDBCluster -> Maybe ServerlessV2ScalingConfiguration
$sel:preferredMaintenanceWindow:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:preferredBackupWindow:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:port:ModifyDBCluster' :: ModifyDBCluster -> Maybe Int
$sel:optionGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:newDBClusterIdentifier':ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:masterUserPassword:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:engineVersion:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:enableIAMDatabaseAuthentication:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:deletionProtection:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:dbInstanceParameterGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:dbClusterParameterGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:copyTagsToSnapshot:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:cloudwatchLogsExportConfiguration:ModifyDBCluster' :: ModifyDBCluster -> Maybe CloudwatchLogsExportConfiguration
$sel:backupRetentionPeriod:ModifyDBCluster' :: ModifyDBCluster -> Maybe Int
$sel:applyImmediately:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:allowMajorVersionUpgrade:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
allowMajorVersionUpgrade
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
applyImmediately
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
backupRetentionPeriod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CloudwatchLogsExportConfiguration
cloudwatchLogsExportConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
copyTagsToSnapshot
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dbClusterParameterGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dbInstanceParameterGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
deletionProtection
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enableIAMDatabaseAuthentication
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
engineVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
masterUserPassword
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
newDBClusterIdentifier'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
optionGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
port
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
preferredBackupWindow
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
preferredMaintenanceWindow
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ServerlessV2ScalingConfiguration
serverlessV2ScalingConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
vpcSecurityGroupIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dbClusterIdentifier
instance Prelude.NFData ModifyDBCluster where
rnf :: ModifyDBCluster -> ()
rnf ModifyDBCluster' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe Text
Maybe CloudwatchLogsExportConfiguration
Maybe ServerlessV2ScalingConfiguration
Text
dbClusterIdentifier :: Text
vpcSecurityGroupIds :: Maybe [Text]
serverlessV2ScalingConfiguration :: Maybe ServerlessV2ScalingConfiguration
preferredMaintenanceWindow :: Maybe Text
preferredBackupWindow :: Maybe Text
port :: Maybe Int
optionGroupName :: Maybe Text
newDBClusterIdentifier' :: Maybe Text
masterUserPassword :: Maybe Text
engineVersion :: Maybe Text
enableIAMDatabaseAuthentication :: Maybe Bool
deletionProtection :: Maybe Bool
dbInstanceParameterGroupName :: Maybe Text
dbClusterParameterGroupName :: Maybe Text
copyTagsToSnapshot :: Maybe Bool
cloudwatchLogsExportConfiguration :: Maybe CloudwatchLogsExportConfiguration
backupRetentionPeriod :: Maybe Int
applyImmediately :: Maybe Bool
allowMajorVersionUpgrade :: Maybe Bool
$sel:dbClusterIdentifier:ModifyDBCluster' :: ModifyDBCluster -> Text
$sel:vpcSecurityGroupIds:ModifyDBCluster' :: ModifyDBCluster -> Maybe [Text]
$sel:serverlessV2ScalingConfiguration:ModifyDBCluster' :: ModifyDBCluster -> Maybe ServerlessV2ScalingConfiguration
$sel:preferredMaintenanceWindow:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:preferredBackupWindow:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:port:ModifyDBCluster' :: ModifyDBCluster -> Maybe Int
$sel:optionGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:newDBClusterIdentifier':ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:masterUserPassword:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:engineVersion:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:enableIAMDatabaseAuthentication:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:deletionProtection:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:dbInstanceParameterGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:dbClusterParameterGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:copyTagsToSnapshot:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:cloudwatchLogsExportConfiguration:ModifyDBCluster' :: ModifyDBCluster -> Maybe CloudwatchLogsExportConfiguration
$sel:backupRetentionPeriod:ModifyDBCluster' :: ModifyDBCluster -> Maybe Int
$sel:applyImmediately:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:allowMajorVersionUpgrade:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
allowMajorVersionUpgrade
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
applyImmediately
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
backupRetentionPeriod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CloudwatchLogsExportConfiguration
cloudwatchLogsExportConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
copyTagsToSnapshot
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbClusterParameterGroupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbInstanceParameterGroupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
deletionProtection
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableIAMDatabaseAuthentication
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
engineVersion
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
newDBClusterIdentifier'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
optionGroupName
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
preferredBackupWindow
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 ServerlessV2ScalingConfiguration
serverlessV2ScalingConfiguration
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
dbClusterIdentifier
instance Data.ToHeaders ModifyDBCluster where
toHeaders :: ModifyDBCluster -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ModifyDBCluster where
toPath :: ModifyDBCluster -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ModifyDBCluster where
toQuery :: ModifyDBCluster -> QueryString
toQuery ModifyDBCluster' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe Text
Maybe CloudwatchLogsExportConfiguration
Maybe ServerlessV2ScalingConfiguration
Text
dbClusterIdentifier :: Text
vpcSecurityGroupIds :: Maybe [Text]
serverlessV2ScalingConfiguration :: Maybe ServerlessV2ScalingConfiguration
preferredMaintenanceWindow :: Maybe Text
preferredBackupWindow :: Maybe Text
port :: Maybe Int
optionGroupName :: Maybe Text
newDBClusterIdentifier' :: Maybe Text
masterUserPassword :: Maybe Text
engineVersion :: Maybe Text
enableIAMDatabaseAuthentication :: Maybe Bool
deletionProtection :: Maybe Bool
dbInstanceParameterGroupName :: Maybe Text
dbClusterParameterGroupName :: Maybe Text
copyTagsToSnapshot :: Maybe Bool
cloudwatchLogsExportConfiguration :: Maybe CloudwatchLogsExportConfiguration
backupRetentionPeriod :: Maybe Int
applyImmediately :: Maybe Bool
allowMajorVersionUpgrade :: Maybe Bool
$sel:dbClusterIdentifier:ModifyDBCluster' :: ModifyDBCluster -> Text
$sel:vpcSecurityGroupIds:ModifyDBCluster' :: ModifyDBCluster -> Maybe [Text]
$sel:serverlessV2ScalingConfiguration:ModifyDBCluster' :: ModifyDBCluster -> Maybe ServerlessV2ScalingConfiguration
$sel:preferredMaintenanceWindow:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:preferredBackupWindow:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:port:ModifyDBCluster' :: ModifyDBCluster -> Maybe Int
$sel:optionGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:newDBClusterIdentifier':ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:masterUserPassword:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:engineVersion:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:enableIAMDatabaseAuthentication:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:deletionProtection:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:dbInstanceParameterGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:dbClusterParameterGroupName:ModifyDBCluster' :: ModifyDBCluster -> Maybe Text
$sel:copyTagsToSnapshot:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:cloudwatchLogsExportConfiguration:ModifyDBCluster' :: ModifyDBCluster -> Maybe CloudwatchLogsExportConfiguration
$sel:backupRetentionPeriod:ModifyDBCluster' :: ModifyDBCluster -> Maybe Int
$sel:applyImmediately:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
$sel:allowMajorVersionUpgrade:ModifyDBCluster' :: ModifyDBCluster -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"ModifyDBCluster" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"AllowMajorVersionUpgrade"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
allowMajorVersionUpgrade,
ByteString
"ApplyImmediately" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
applyImmediately,
ByteString
"BackupRetentionPeriod"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
backupRetentionPeriod,
ByteString
"CloudwatchLogsExportConfiguration"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe CloudwatchLogsExportConfiguration
cloudwatchLogsExportConfiguration,
ByteString
"CopyTagsToSnapshot" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
copyTagsToSnapshot,
ByteString
"DBClusterParameterGroupName"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
dbClusterParameterGroupName,
ByteString
"DBInstanceParameterGroupName"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
dbInstanceParameterGroupName,
ByteString
"DeletionProtection" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
deletionProtection,
ByteString
"EnableIAMDatabaseAuthentication"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
enableIAMDatabaseAuthentication,
ByteString
"EngineVersion" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
engineVersion,
ByteString
"MasterUserPassword" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
masterUserPassword,
ByteString
"NewDBClusterIdentifier"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
newDBClusterIdentifier',
ByteString
"OptionGroupName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
optionGroupName,
ByteString
"Port" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
port,
ByteString
"PreferredBackupWindow"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
preferredBackupWindow,
ByteString
"PreferredMaintenanceWindow"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
preferredMaintenanceWindow,
ByteString
"ServerlessV2ScalingConfiguration"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ServerlessV2ScalingConfiguration
serverlessV2ScalingConfiguration,
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
"DBClusterIdentifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
dbClusterIdentifier
]
data ModifyDBClusterResponse = ModifyDBClusterResponse'
{ ModifyDBClusterResponse -> Maybe DBCluster
dbCluster :: Prelude.Maybe DBCluster,
ModifyDBClusterResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ModifyDBClusterResponse -> ModifyDBClusterResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyDBClusterResponse -> ModifyDBClusterResponse -> Bool
$c/= :: ModifyDBClusterResponse -> ModifyDBClusterResponse -> Bool
== :: ModifyDBClusterResponse -> ModifyDBClusterResponse -> Bool
$c== :: ModifyDBClusterResponse -> ModifyDBClusterResponse -> Bool
Prelude.Eq, ReadPrec [ModifyDBClusterResponse]
ReadPrec ModifyDBClusterResponse
Int -> ReadS ModifyDBClusterResponse
ReadS [ModifyDBClusterResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyDBClusterResponse]
$creadListPrec :: ReadPrec [ModifyDBClusterResponse]
readPrec :: ReadPrec ModifyDBClusterResponse
$creadPrec :: ReadPrec ModifyDBClusterResponse
readList :: ReadS [ModifyDBClusterResponse]
$creadList :: ReadS [ModifyDBClusterResponse]
readsPrec :: Int -> ReadS ModifyDBClusterResponse
$creadsPrec :: Int -> ReadS ModifyDBClusterResponse
Prelude.Read, Int -> ModifyDBClusterResponse -> ShowS
[ModifyDBClusterResponse] -> ShowS
ModifyDBClusterResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyDBClusterResponse] -> ShowS
$cshowList :: [ModifyDBClusterResponse] -> ShowS
show :: ModifyDBClusterResponse -> String
$cshow :: ModifyDBClusterResponse -> String
showsPrec :: Int -> ModifyDBClusterResponse -> ShowS
$cshowsPrec :: Int -> ModifyDBClusterResponse -> ShowS
Prelude.Show, forall x. Rep ModifyDBClusterResponse x -> ModifyDBClusterResponse
forall x. ModifyDBClusterResponse -> Rep ModifyDBClusterResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ModifyDBClusterResponse x -> ModifyDBClusterResponse
$cfrom :: forall x. ModifyDBClusterResponse -> Rep ModifyDBClusterResponse x
Prelude.Generic)
newModifyDBClusterResponse ::
Prelude.Int ->
ModifyDBClusterResponse
newModifyDBClusterResponse :: Int -> ModifyDBClusterResponse
newModifyDBClusterResponse Int
pHttpStatus_ =
ModifyDBClusterResponse'
{ $sel:dbCluster:ModifyDBClusterResponse' :: Maybe DBCluster
dbCluster =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ModifyDBClusterResponse' :: Int
httpStatus = Int
pHttpStatus_
}
modifyDBClusterResponse_dbCluster :: Lens.Lens' ModifyDBClusterResponse (Prelude.Maybe DBCluster)
modifyDBClusterResponse_dbCluster :: Lens' ModifyDBClusterResponse (Maybe DBCluster)
modifyDBClusterResponse_dbCluster = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterResponse' {Maybe DBCluster
dbCluster :: Maybe DBCluster
$sel:dbCluster:ModifyDBClusterResponse' :: ModifyDBClusterResponse -> Maybe DBCluster
dbCluster} -> Maybe DBCluster
dbCluster) (\s :: ModifyDBClusterResponse
s@ModifyDBClusterResponse' {} Maybe DBCluster
a -> ModifyDBClusterResponse
s {$sel:dbCluster:ModifyDBClusterResponse' :: Maybe DBCluster
dbCluster = Maybe DBCluster
a} :: ModifyDBClusterResponse)
modifyDBClusterResponse_httpStatus :: Lens.Lens' ModifyDBClusterResponse Prelude.Int
modifyDBClusterResponse_httpStatus :: Lens' ModifyDBClusterResponse Int
modifyDBClusterResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterResponse' {Int
httpStatus :: Int
$sel:httpStatus:ModifyDBClusterResponse' :: ModifyDBClusterResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ModifyDBClusterResponse
s@ModifyDBClusterResponse' {} Int
a -> ModifyDBClusterResponse
s {$sel:httpStatus:ModifyDBClusterResponse' :: Int
httpStatus = Int
a} :: ModifyDBClusterResponse)
instance Prelude.NFData ModifyDBClusterResponse where
rnf :: ModifyDBClusterResponse -> ()
rnf ModifyDBClusterResponse' {Int
Maybe DBCluster
httpStatus :: Int
dbCluster :: Maybe DBCluster
$sel:httpStatus:ModifyDBClusterResponse' :: ModifyDBClusterResponse -> Int
$sel:dbCluster:ModifyDBClusterResponse' :: ModifyDBClusterResponse -> Maybe DBCluster
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DBCluster
dbCluster
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus