{-# 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.RDS.ModifyCurrentDBClusterCapacity
(
ModifyCurrentDBClusterCapacity (..),
newModifyCurrentDBClusterCapacity,
modifyCurrentDBClusterCapacity_capacity,
modifyCurrentDBClusterCapacity_secondsBeforeTimeout,
modifyCurrentDBClusterCapacity_timeoutAction,
modifyCurrentDBClusterCapacity_dbClusterIdentifier,
ModifyCurrentDBClusterCapacityResponse (..),
newModifyCurrentDBClusterCapacityResponse,
modifyCurrentDBClusterCapacityResponse_currentCapacity,
modifyCurrentDBClusterCapacityResponse_dbClusterIdentifier,
modifyCurrentDBClusterCapacityResponse_pendingCapacity,
modifyCurrentDBClusterCapacityResponse_secondsBeforeTimeout,
modifyCurrentDBClusterCapacityResponse_timeoutAction,
modifyCurrentDBClusterCapacityResponse_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.RDS.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ModifyCurrentDBClusterCapacity = ModifyCurrentDBClusterCapacity'
{
ModifyCurrentDBClusterCapacity -> Maybe Int
capacity :: Prelude.Maybe Prelude.Int,
ModifyCurrentDBClusterCapacity -> Maybe Int
secondsBeforeTimeout :: Prelude.Maybe Prelude.Int,
ModifyCurrentDBClusterCapacity -> Maybe Text
timeoutAction :: Prelude.Maybe Prelude.Text,
ModifyCurrentDBClusterCapacity -> Text
dbClusterIdentifier :: Prelude.Text
}
deriving (ModifyCurrentDBClusterCapacity
-> ModifyCurrentDBClusterCapacity -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyCurrentDBClusterCapacity
-> ModifyCurrentDBClusterCapacity -> Bool
$c/= :: ModifyCurrentDBClusterCapacity
-> ModifyCurrentDBClusterCapacity -> Bool
== :: ModifyCurrentDBClusterCapacity
-> ModifyCurrentDBClusterCapacity -> Bool
$c== :: ModifyCurrentDBClusterCapacity
-> ModifyCurrentDBClusterCapacity -> Bool
Prelude.Eq, ReadPrec [ModifyCurrentDBClusterCapacity]
ReadPrec ModifyCurrentDBClusterCapacity
Int -> ReadS ModifyCurrentDBClusterCapacity
ReadS [ModifyCurrentDBClusterCapacity]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyCurrentDBClusterCapacity]
$creadListPrec :: ReadPrec [ModifyCurrentDBClusterCapacity]
readPrec :: ReadPrec ModifyCurrentDBClusterCapacity
$creadPrec :: ReadPrec ModifyCurrentDBClusterCapacity
readList :: ReadS [ModifyCurrentDBClusterCapacity]
$creadList :: ReadS [ModifyCurrentDBClusterCapacity]
readsPrec :: Int -> ReadS ModifyCurrentDBClusterCapacity
$creadsPrec :: Int -> ReadS ModifyCurrentDBClusterCapacity
Prelude.Read, Int -> ModifyCurrentDBClusterCapacity -> ShowS
[ModifyCurrentDBClusterCapacity] -> ShowS
ModifyCurrentDBClusterCapacity -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyCurrentDBClusterCapacity] -> ShowS
$cshowList :: [ModifyCurrentDBClusterCapacity] -> ShowS
show :: ModifyCurrentDBClusterCapacity -> String
$cshow :: ModifyCurrentDBClusterCapacity -> String
showsPrec :: Int -> ModifyCurrentDBClusterCapacity -> ShowS
$cshowsPrec :: Int -> ModifyCurrentDBClusterCapacity -> ShowS
Prelude.Show, forall x.
Rep ModifyCurrentDBClusterCapacity x
-> ModifyCurrentDBClusterCapacity
forall x.
ModifyCurrentDBClusterCapacity
-> Rep ModifyCurrentDBClusterCapacity x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ModifyCurrentDBClusterCapacity x
-> ModifyCurrentDBClusterCapacity
$cfrom :: forall x.
ModifyCurrentDBClusterCapacity
-> Rep ModifyCurrentDBClusterCapacity x
Prelude.Generic)
newModifyCurrentDBClusterCapacity ::
Prelude.Text ->
ModifyCurrentDBClusterCapacity
newModifyCurrentDBClusterCapacity :: Text -> ModifyCurrentDBClusterCapacity
newModifyCurrentDBClusterCapacity
Text
pDBClusterIdentifier_ =
ModifyCurrentDBClusterCapacity'
{ $sel:capacity:ModifyCurrentDBClusterCapacity' :: Maybe Int
capacity =
forall a. Maybe a
Prelude.Nothing,
$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacity' :: Maybe Int
secondsBeforeTimeout = forall a. Maybe a
Prelude.Nothing,
$sel:timeoutAction:ModifyCurrentDBClusterCapacity' :: Maybe Text
timeoutAction = forall a. Maybe a
Prelude.Nothing,
$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacity' :: Text
dbClusterIdentifier = Text
pDBClusterIdentifier_
}
modifyCurrentDBClusterCapacity_capacity :: Lens.Lens' ModifyCurrentDBClusterCapacity (Prelude.Maybe Prelude.Int)
modifyCurrentDBClusterCapacity_capacity :: Lens' ModifyCurrentDBClusterCapacity (Maybe Int)
modifyCurrentDBClusterCapacity_capacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacity' {Maybe Int
capacity :: Maybe Int
$sel:capacity:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Int
capacity} -> Maybe Int
capacity) (\s :: ModifyCurrentDBClusterCapacity
s@ModifyCurrentDBClusterCapacity' {} Maybe Int
a -> ModifyCurrentDBClusterCapacity
s {$sel:capacity:ModifyCurrentDBClusterCapacity' :: Maybe Int
capacity = Maybe Int
a} :: ModifyCurrentDBClusterCapacity)
modifyCurrentDBClusterCapacity_secondsBeforeTimeout :: Lens.Lens' ModifyCurrentDBClusterCapacity (Prelude.Maybe Prelude.Int)
modifyCurrentDBClusterCapacity_secondsBeforeTimeout :: Lens' ModifyCurrentDBClusterCapacity (Maybe Int)
modifyCurrentDBClusterCapacity_secondsBeforeTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacity' {Maybe Int
secondsBeforeTimeout :: Maybe Int
$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Int
secondsBeforeTimeout} -> Maybe Int
secondsBeforeTimeout) (\s :: ModifyCurrentDBClusterCapacity
s@ModifyCurrentDBClusterCapacity' {} Maybe Int
a -> ModifyCurrentDBClusterCapacity
s {$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacity' :: Maybe Int
secondsBeforeTimeout = Maybe Int
a} :: ModifyCurrentDBClusterCapacity)
modifyCurrentDBClusterCapacity_timeoutAction :: Lens.Lens' ModifyCurrentDBClusterCapacity (Prelude.Maybe Prelude.Text)
modifyCurrentDBClusterCapacity_timeoutAction :: Lens' ModifyCurrentDBClusterCapacity (Maybe Text)
modifyCurrentDBClusterCapacity_timeoutAction = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacity' {Maybe Text
timeoutAction :: Maybe Text
$sel:timeoutAction:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Text
timeoutAction} -> Maybe Text
timeoutAction) (\s :: ModifyCurrentDBClusterCapacity
s@ModifyCurrentDBClusterCapacity' {} Maybe Text
a -> ModifyCurrentDBClusterCapacity
s {$sel:timeoutAction:ModifyCurrentDBClusterCapacity' :: Maybe Text
timeoutAction = Maybe Text
a} :: ModifyCurrentDBClusterCapacity)
modifyCurrentDBClusterCapacity_dbClusterIdentifier :: Lens.Lens' ModifyCurrentDBClusterCapacity Prelude.Text
modifyCurrentDBClusterCapacity_dbClusterIdentifier :: Lens' ModifyCurrentDBClusterCapacity Text
modifyCurrentDBClusterCapacity_dbClusterIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacity' {Text
dbClusterIdentifier :: Text
$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Text
dbClusterIdentifier} -> Text
dbClusterIdentifier) (\s :: ModifyCurrentDBClusterCapacity
s@ModifyCurrentDBClusterCapacity' {} Text
a -> ModifyCurrentDBClusterCapacity
s {$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacity' :: Text
dbClusterIdentifier = Text
a} :: ModifyCurrentDBClusterCapacity)
instance
Core.AWSRequest
ModifyCurrentDBClusterCapacity
where
type
AWSResponse ModifyCurrentDBClusterCapacity =
ModifyCurrentDBClusterCapacityResponse
request :: (Service -> Service)
-> ModifyCurrentDBClusterCapacity
-> Request ModifyCurrentDBClusterCapacity
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 ModifyCurrentDBClusterCapacity
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse ModifyCurrentDBClusterCapacity)))
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
"ModifyCurrentDBClusterCapacityResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Int
-> Maybe Text
-> Maybe Int
-> Maybe Int
-> Maybe Text
-> Int
-> ModifyCurrentDBClusterCapacityResponse
ModifyCurrentDBClusterCapacityResponse'
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
"CurrentCapacity")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"DBClusterIdentifier")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"PendingCapacity")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"SecondsBeforeTimeout")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"TimeoutAction")
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
ModifyCurrentDBClusterCapacity
where
hashWithSalt :: Int -> ModifyCurrentDBClusterCapacity -> Int
hashWithSalt
Int
_salt
ModifyCurrentDBClusterCapacity' {Maybe Int
Maybe Text
Text
dbClusterIdentifier :: Text
timeoutAction :: Maybe Text
secondsBeforeTimeout :: Maybe Int
capacity :: Maybe Int
$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Text
$sel:timeoutAction:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Text
$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Int
$sel:capacity:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Int
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
capacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
secondsBeforeTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
timeoutAction
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dbClusterIdentifier
instance
Prelude.NFData
ModifyCurrentDBClusterCapacity
where
rnf :: ModifyCurrentDBClusterCapacity -> ()
rnf ModifyCurrentDBClusterCapacity' {Maybe Int
Maybe Text
Text
dbClusterIdentifier :: Text
timeoutAction :: Maybe Text
secondsBeforeTimeout :: Maybe Int
capacity :: Maybe Int
$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Text
$sel:timeoutAction:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Text
$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Int
$sel:capacity:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
capacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
secondsBeforeTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
timeoutAction
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dbClusterIdentifier
instance
Data.ToHeaders
ModifyCurrentDBClusterCapacity
where
toHeaders :: ModifyCurrentDBClusterCapacity -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ModifyCurrentDBClusterCapacity where
toPath :: ModifyCurrentDBClusterCapacity -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ModifyCurrentDBClusterCapacity where
toQuery :: ModifyCurrentDBClusterCapacity -> QueryString
toQuery ModifyCurrentDBClusterCapacity' {Maybe Int
Maybe Text
Text
dbClusterIdentifier :: Text
timeoutAction :: Maybe Text
secondsBeforeTimeout :: Maybe Int
capacity :: Maybe Int
$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Text
$sel:timeoutAction:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Text
$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Int
$sel:capacity:ModifyCurrentDBClusterCapacity' :: ModifyCurrentDBClusterCapacity -> Maybe Int
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"ModifyCurrentDBClusterCapacity" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"Capacity" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
capacity,
ByteString
"SecondsBeforeTimeout" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
secondsBeforeTimeout,
ByteString
"TimeoutAction" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
timeoutAction,
ByteString
"DBClusterIdentifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
dbClusterIdentifier
]
data ModifyCurrentDBClusterCapacityResponse = ModifyCurrentDBClusterCapacityResponse'
{
ModifyCurrentDBClusterCapacityResponse -> Maybe Int
currentCapacity :: Prelude.Maybe Prelude.Int,
ModifyCurrentDBClusterCapacityResponse -> Maybe Text
dbClusterIdentifier :: Prelude.Maybe Prelude.Text,
ModifyCurrentDBClusterCapacityResponse -> Maybe Int
pendingCapacity :: Prelude.Maybe Prelude.Int,
ModifyCurrentDBClusterCapacityResponse -> Maybe Int
secondsBeforeTimeout :: Prelude.Maybe Prelude.Int,
ModifyCurrentDBClusterCapacityResponse -> Maybe Text
timeoutAction :: Prelude.Maybe Prelude.Text,
ModifyCurrentDBClusterCapacityResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ModifyCurrentDBClusterCapacityResponse
-> ModifyCurrentDBClusterCapacityResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyCurrentDBClusterCapacityResponse
-> ModifyCurrentDBClusterCapacityResponse -> Bool
$c/= :: ModifyCurrentDBClusterCapacityResponse
-> ModifyCurrentDBClusterCapacityResponse -> Bool
== :: ModifyCurrentDBClusterCapacityResponse
-> ModifyCurrentDBClusterCapacityResponse -> Bool
$c== :: ModifyCurrentDBClusterCapacityResponse
-> ModifyCurrentDBClusterCapacityResponse -> Bool
Prelude.Eq, ReadPrec [ModifyCurrentDBClusterCapacityResponse]
ReadPrec ModifyCurrentDBClusterCapacityResponse
Int -> ReadS ModifyCurrentDBClusterCapacityResponse
ReadS [ModifyCurrentDBClusterCapacityResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyCurrentDBClusterCapacityResponse]
$creadListPrec :: ReadPrec [ModifyCurrentDBClusterCapacityResponse]
readPrec :: ReadPrec ModifyCurrentDBClusterCapacityResponse
$creadPrec :: ReadPrec ModifyCurrentDBClusterCapacityResponse
readList :: ReadS [ModifyCurrentDBClusterCapacityResponse]
$creadList :: ReadS [ModifyCurrentDBClusterCapacityResponse]
readsPrec :: Int -> ReadS ModifyCurrentDBClusterCapacityResponse
$creadsPrec :: Int -> ReadS ModifyCurrentDBClusterCapacityResponse
Prelude.Read, Int -> ModifyCurrentDBClusterCapacityResponse -> ShowS
[ModifyCurrentDBClusterCapacityResponse] -> ShowS
ModifyCurrentDBClusterCapacityResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyCurrentDBClusterCapacityResponse] -> ShowS
$cshowList :: [ModifyCurrentDBClusterCapacityResponse] -> ShowS
show :: ModifyCurrentDBClusterCapacityResponse -> String
$cshow :: ModifyCurrentDBClusterCapacityResponse -> String
showsPrec :: Int -> ModifyCurrentDBClusterCapacityResponse -> ShowS
$cshowsPrec :: Int -> ModifyCurrentDBClusterCapacityResponse -> ShowS
Prelude.Show, forall x.
Rep ModifyCurrentDBClusterCapacityResponse x
-> ModifyCurrentDBClusterCapacityResponse
forall x.
ModifyCurrentDBClusterCapacityResponse
-> Rep ModifyCurrentDBClusterCapacityResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ModifyCurrentDBClusterCapacityResponse x
-> ModifyCurrentDBClusterCapacityResponse
$cfrom :: forall x.
ModifyCurrentDBClusterCapacityResponse
-> Rep ModifyCurrentDBClusterCapacityResponse x
Prelude.Generic)
newModifyCurrentDBClusterCapacityResponse ::
Prelude.Int ->
ModifyCurrentDBClusterCapacityResponse
newModifyCurrentDBClusterCapacityResponse :: Int -> ModifyCurrentDBClusterCapacityResponse
newModifyCurrentDBClusterCapacityResponse
Int
pHttpStatus_ =
ModifyCurrentDBClusterCapacityResponse'
{ $sel:currentCapacity:ModifyCurrentDBClusterCapacityResponse' :: Maybe Int
currentCapacity =
forall a. Maybe a
Prelude.Nothing,
$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacityResponse' :: Maybe Text
dbClusterIdentifier =
forall a. Maybe a
Prelude.Nothing,
$sel:pendingCapacity:ModifyCurrentDBClusterCapacityResponse' :: Maybe Int
pendingCapacity = forall a. Maybe a
Prelude.Nothing,
$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacityResponse' :: Maybe Int
secondsBeforeTimeout =
forall a. Maybe a
Prelude.Nothing,
$sel:timeoutAction:ModifyCurrentDBClusterCapacityResponse' :: Maybe Text
timeoutAction = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ModifyCurrentDBClusterCapacityResponse' :: Int
httpStatus = Int
pHttpStatus_
}
modifyCurrentDBClusterCapacityResponse_currentCapacity :: Lens.Lens' ModifyCurrentDBClusterCapacityResponse (Prelude.Maybe Prelude.Int)
modifyCurrentDBClusterCapacityResponse_currentCapacity :: Lens' ModifyCurrentDBClusterCapacityResponse (Maybe Int)
modifyCurrentDBClusterCapacityResponse_currentCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacityResponse' {Maybe Int
currentCapacity :: Maybe Int
$sel:currentCapacity:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Int
currentCapacity} -> Maybe Int
currentCapacity) (\s :: ModifyCurrentDBClusterCapacityResponse
s@ModifyCurrentDBClusterCapacityResponse' {} Maybe Int
a -> ModifyCurrentDBClusterCapacityResponse
s {$sel:currentCapacity:ModifyCurrentDBClusterCapacityResponse' :: Maybe Int
currentCapacity = Maybe Int
a} :: ModifyCurrentDBClusterCapacityResponse)
modifyCurrentDBClusterCapacityResponse_dbClusterIdentifier :: Lens.Lens' ModifyCurrentDBClusterCapacityResponse (Prelude.Maybe Prelude.Text)
modifyCurrentDBClusterCapacityResponse_dbClusterIdentifier :: Lens' ModifyCurrentDBClusterCapacityResponse (Maybe Text)
modifyCurrentDBClusterCapacityResponse_dbClusterIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacityResponse' {Maybe Text
dbClusterIdentifier :: Maybe Text
$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Text
dbClusterIdentifier} -> Maybe Text
dbClusterIdentifier) (\s :: ModifyCurrentDBClusterCapacityResponse
s@ModifyCurrentDBClusterCapacityResponse' {} Maybe Text
a -> ModifyCurrentDBClusterCapacityResponse
s {$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacityResponse' :: Maybe Text
dbClusterIdentifier = Maybe Text
a} :: ModifyCurrentDBClusterCapacityResponse)
modifyCurrentDBClusterCapacityResponse_pendingCapacity :: Lens.Lens' ModifyCurrentDBClusterCapacityResponse (Prelude.Maybe Prelude.Int)
modifyCurrentDBClusterCapacityResponse_pendingCapacity :: Lens' ModifyCurrentDBClusterCapacityResponse (Maybe Int)
modifyCurrentDBClusterCapacityResponse_pendingCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacityResponse' {Maybe Int
pendingCapacity :: Maybe Int
$sel:pendingCapacity:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Int
pendingCapacity} -> Maybe Int
pendingCapacity) (\s :: ModifyCurrentDBClusterCapacityResponse
s@ModifyCurrentDBClusterCapacityResponse' {} Maybe Int
a -> ModifyCurrentDBClusterCapacityResponse
s {$sel:pendingCapacity:ModifyCurrentDBClusterCapacityResponse' :: Maybe Int
pendingCapacity = Maybe Int
a} :: ModifyCurrentDBClusterCapacityResponse)
modifyCurrentDBClusterCapacityResponse_secondsBeforeTimeout :: Lens.Lens' ModifyCurrentDBClusterCapacityResponse (Prelude.Maybe Prelude.Int)
modifyCurrentDBClusterCapacityResponse_secondsBeforeTimeout :: Lens' ModifyCurrentDBClusterCapacityResponse (Maybe Int)
modifyCurrentDBClusterCapacityResponse_secondsBeforeTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacityResponse' {Maybe Int
secondsBeforeTimeout :: Maybe Int
$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Int
secondsBeforeTimeout} -> Maybe Int
secondsBeforeTimeout) (\s :: ModifyCurrentDBClusterCapacityResponse
s@ModifyCurrentDBClusterCapacityResponse' {} Maybe Int
a -> ModifyCurrentDBClusterCapacityResponse
s {$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacityResponse' :: Maybe Int
secondsBeforeTimeout = Maybe Int
a} :: ModifyCurrentDBClusterCapacityResponse)
modifyCurrentDBClusterCapacityResponse_timeoutAction :: Lens.Lens' ModifyCurrentDBClusterCapacityResponse (Prelude.Maybe Prelude.Text)
modifyCurrentDBClusterCapacityResponse_timeoutAction :: Lens' ModifyCurrentDBClusterCapacityResponse (Maybe Text)
modifyCurrentDBClusterCapacityResponse_timeoutAction = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacityResponse' {Maybe Text
timeoutAction :: Maybe Text
$sel:timeoutAction:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Text
timeoutAction} -> Maybe Text
timeoutAction) (\s :: ModifyCurrentDBClusterCapacityResponse
s@ModifyCurrentDBClusterCapacityResponse' {} Maybe Text
a -> ModifyCurrentDBClusterCapacityResponse
s {$sel:timeoutAction:ModifyCurrentDBClusterCapacityResponse' :: Maybe Text
timeoutAction = Maybe Text
a} :: ModifyCurrentDBClusterCapacityResponse)
modifyCurrentDBClusterCapacityResponse_httpStatus :: Lens.Lens' ModifyCurrentDBClusterCapacityResponse Prelude.Int
modifyCurrentDBClusterCapacityResponse_httpStatus :: Lens' ModifyCurrentDBClusterCapacityResponse Int
modifyCurrentDBClusterCapacityResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyCurrentDBClusterCapacityResponse' {Int
httpStatus :: Int
$sel:httpStatus:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ModifyCurrentDBClusterCapacityResponse
s@ModifyCurrentDBClusterCapacityResponse' {} Int
a -> ModifyCurrentDBClusterCapacityResponse
s {$sel:httpStatus:ModifyCurrentDBClusterCapacityResponse' :: Int
httpStatus = Int
a} :: ModifyCurrentDBClusterCapacityResponse)
instance
Prelude.NFData
ModifyCurrentDBClusterCapacityResponse
where
rnf :: ModifyCurrentDBClusterCapacityResponse -> ()
rnf ModifyCurrentDBClusterCapacityResponse' {Int
Maybe Int
Maybe Text
httpStatus :: Int
timeoutAction :: Maybe Text
secondsBeforeTimeout :: Maybe Int
pendingCapacity :: Maybe Int
dbClusterIdentifier :: Maybe Text
currentCapacity :: Maybe Int
$sel:httpStatus:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Int
$sel:timeoutAction:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Text
$sel:secondsBeforeTimeout:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Int
$sel:pendingCapacity:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Int
$sel:dbClusterIdentifier:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Text
$sel:currentCapacity:ModifyCurrentDBClusterCapacityResponse' :: ModifyCurrentDBClusterCapacityResponse -> Maybe Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
currentCapacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbClusterIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
pendingCapacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
secondsBeforeTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
timeoutAction
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus