{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.RDS.Types.ScalingConfiguration 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
data ScalingConfiguration = ScalingConfiguration'
{
ScalingConfiguration -> Maybe Bool
autoPause :: Prelude.Maybe Prelude.Bool,
ScalingConfiguration -> Maybe Int
maxCapacity :: Prelude.Maybe Prelude.Int,
ScalingConfiguration -> Maybe Int
minCapacity :: Prelude.Maybe Prelude.Int,
ScalingConfiguration -> Maybe Int
secondsBeforeTimeout :: Prelude.Maybe Prelude.Int,
ScalingConfiguration -> Maybe Int
secondsUntilAutoPause :: Prelude.Maybe Prelude.Int,
ScalingConfiguration -> Maybe Text
timeoutAction :: Prelude.Maybe Prelude.Text
}
deriving (ScalingConfiguration -> ScalingConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ScalingConfiguration -> ScalingConfiguration -> Bool
$c/= :: ScalingConfiguration -> ScalingConfiguration -> Bool
== :: ScalingConfiguration -> ScalingConfiguration -> Bool
$c== :: ScalingConfiguration -> ScalingConfiguration -> Bool
Prelude.Eq, ReadPrec [ScalingConfiguration]
ReadPrec ScalingConfiguration
Int -> ReadS ScalingConfiguration
ReadS [ScalingConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ScalingConfiguration]
$creadListPrec :: ReadPrec [ScalingConfiguration]
readPrec :: ReadPrec ScalingConfiguration
$creadPrec :: ReadPrec ScalingConfiguration
readList :: ReadS [ScalingConfiguration]
$creadList :: ReadS [ScalingConfiguration]
readsPrec :: Int -> ReadS ScalingConfiguration
$creadsPrec :: Int -> ReadS ScalingConfiguration
Prelude.Read, Int -> ScalingConfiguration -> ShowS
[ScalingConfiguration] -> ShowS
ScalingConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ScalingConfiguration] -> ShowS
$cshowList :: [ScalingConfiguration] -> ShowS
show :: ScalingConfiguration -> String
$cshow :: ScalingConfiguration -> String
showsPrec :: Int -> ScalingConfiguration -> ShowS
$cshowsPrec :: Int -> ScalingConfiguration -> ShowS
Prelude.Show, forall x. Rep ScalingConfiguration x -> ScalingConfiguration
forall x. ScalingConfiguration -> Rep ScalingConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ScalingConfiguration x -> ScalingConfiguration
$cfrom :: forall x. ScalingConfiguration -> Rep ScalingConfiguration x
Prelude.Generic)
newScalingConfiguration ::
ScalingConfiguration
newScalingConfiguration :: ScalingConfiguration
newScalingConfiguration =
ScalingConfiguration'
{ $sel:autoPause:ScalingConfiguration' :: Maybe Bool
autoPause = forall a. Maybe a
Prelude.Nothing,
$sel:maxCapacity:ScalingConfiguration' :: Maybe Int
maxCapacity = forall a. Maybe a
Prelude.Nothing,
$sel:minCapacity:ScalingConfiguration' :: Maybe Int
minCapacity = forall a. Maybe a
Prelude.Nothing,
$sel:secondsBeforeTimeout:ScalingConfiguration' :: Maybe Int
secondsBeforeTimeout = forall a. Maybe a
Prelude.Nothing,
$sel:secondsUntilAutoPause:ScalingConfiguration' :: Maybe Int
secondsUntilAutoPause = forall a. Maybe a
Prelude.Nothing,
$sel:timeoutAction:ScalingConfiguration' :: Maybe Text
timeoutAction = forall a. Maybe a
Prelude.Nothing
}
scalingConfiguration_autoPause :: Lens.Lens' ScalingConfiguration (Prelude.Maybe Prelude.Bool)
scalingConfiguration_autoPause :: Lens' ScalingConfiguration (Maybe Bool)
scalingConfiguration_autoPause = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ScalingConfiguration' {Maybe Bool
autoPause :: Maybe Bool
$sel:autoPause:ScalingConfiguration' :: ScalingConfiguration -> Maybe Bool
autoPause} -> Maybe Bool
autoPause) (\s :: ScalingConfiguration
s@ScalingConfiguration' {} Maybe Bool
a -> ScalingConfiguration
s {$sel:autoPause:ScalingConfiguration' :: Maybe Bool
autoPause = Maybe Bool
a} :: ScalingConfiguration)
scalingConfiguration_maxCapacity :: Lens.Lens' ScalingConfiguration (Prelude.Maybe Prelude.Int)
scalingConfiguration_maxCapacity :: Lens' ScalingConfiguration (Maybe Int)
scalingConfiguration_maxCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ScalingConfiguration' {Maybe Int
maxCapacity :: Maybe Int
$sel:maxCapacity:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
maxCapacity} -> Maybe Int
maxCapacity) (\s :: ScalingConfiguration
s@ScalingConfiguration' {} Maybe Int
a -> ScalingConfiguration
s {$sel:maxCapacity:ScalingConfiguration' :: Maybe Int
maxCapacity = Maybe Int
a} :: ScalingConfiguration)
scalingConfiguration_minCapacity :: Lens.Lens' ScalingConfiguration (Prelude.Maybe Prelude.Int)
scalingConfiguration_minCapacity :: Lens' ScalingConfiguration (Maybe Int)
scalingConfiguration_minCapacity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ScalingConfiguration' {Maybe Int
minCapacity :: Maybe Int
$sel:minCapacity:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
minCapacity} -> Maybe Int
minCapacity) (\s :: ScalingConfiguration
s@ScalingConfiguration' {} Maybe Int
a -> ScalingConfiguration
s {$sel:minCapacity:ScalingConfiguration' :: Maybe Int
minCapacity = Maybe Int
a} :: ScalingConfiguration)
scalingConfiguration_secondsBeforeTimeout :: Lens.Lens' ScalingConfiguration (Prelude.Maybe Prelude.Int)
scalingConfiguration_secondsBeforeTimeout :: Lens' ScalingConfiguration (Maybe Int)
scalingConfiguration_secondsBeforeTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ScalingConfiguration' {Maybe Int
secondsBeforeTimeout :: Maybe Int
$sel:secondsBeforeTimeout:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
secondsBeforeTimeout} -> Maybe Int
secondsBeforeTimeout) (\s :: ScalingConfiguration
s@ScalingConfiguration' {} Maybe Int
a -> ScalingConfiguration
s {$sel:secondsBeforeTimeout:ScalingConfiguration' :: Maybe Int
secondsBeforeTimeout = Maybe Int
a} :: ScalingConfiguration)
scalingConfiguration_secondsUntilAutoPause :: Lens.Lens' ScalingConfiguration (Prelude.Maybe Prelude.Int)
scalingConfiguration_secondsUntilAutoPause :: Lens' ScalingConfiguration (Maybe Int)
scalingConfiguration_secondsUntilAutoPause = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ScalingConfiguration' {Maybe Int
secondsUntilAutoPause :: Maybe Int
$sel:secondsUntilAutoPause:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
secondsUntilAutoPause} -> Maybe Int
secondsUntilAutoPause) (\s :: ScalingConfiguration
s@ScalingConfiguration' {} Maybe Int
a -> ScalingConfiguration
s {$sel:secondsUntilAutoPause:ScalingConfiguration' :: Maybe Int
secondsUntilAutoPause = Maybe Int
a} :: ScalingConfiguration)
scalingConfiguration_timeoutAction :: Lens.Lens' ScalingConfiguration (Prelude.Maybe Prelude.Text)
scalingConfiguration_timeoutAction :: Lens' ScalingConfiguration (Maybe Text)
scalingConfiguration_timeoutAction = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ScalingConfiguration' {Maybe Text
timeoutAction :: Maybe Text
$sel:timeoutAction:ScalingConfiguration' :: ScalingConfiguration -> Maybe Text
timeoutAction} -> Maybe Text
timeoutAction) (\s :: ScalingConfiguration
s@ScalingConfiguration' {} Maybe Text
a -> ScalingConfiguration
s {$sel:timeoutAction:ScalingConfiguration' :: Maybe Text
timeoutAction = Maybe Text
a} :: ScalingConfiguration)
instance Prelude.Hashable ScalingConfiguration where
hashWithSalt :: Int -> ScalingConfiguration -> Int
hashWithSalt Int
_salt ScalingConfiguration' {Maybe Bool
Maybe Int
Maybe Text
timeoutAction :: Maybe Text
secondsUntilAutoPause :: Maybe Int
secondsBeforeTimeout :: Maybe Int
minCapacity :: Maybe Int
maxCapacity :: Maybe Int
autoPause :: Maybe Bool
$sel:timeoutAction:ScalingConfiguration' :: ScalingConfiguration -> Maybe Text
$sel:secondsUntilAutoPause:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:secondsBeforeTimeout:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:minCapacity:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:maxCapacity:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:autoPause:ScalingConfiguration' :: ScalingConfiguration -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
autoPause
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxCapacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
minCapacity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
secondsBeforeTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
secondsUntilAutoPause
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
timeoutAction
instance Prelude.NFData ScalingConfiguration where
rnf :: ScalingConfiguration -> ()
rnf ScalingConfiguration' {Maybe Bool
Maybe Int
Maybe Text
timeoutAction :: Maybe Text
secondsUntilAutoPause :: Maybe Int
secondsBeforeTimeout :: Maybe Int
minCapacity :: Maybe Int
maxCapacity :: Maybe Int
autoPause :: Maybe Bool
$sel:timeoutAction:ScalingConfiguration' :: ScalingConfiguration -> Maybe Text
$sel:secondsUntilAutoPause:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:secondsBeforeTimeout:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:minCapacity:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:maxCapacity:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:autoPause:ScalingConfiguration' :: ScalingConfiguration -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
autoPause
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxCapacity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
minCapacity
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 Int
secondsUntilAutoPause
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
timeoutAction
instance Data.ToQuery ScalingConfiguration where
toQuery :: ScalingConfiguration -> QueryString
toQuery ScalingConfiguration' {Maybe Bool
Maybe Int
Maybe Text
timeoutAction :: Maybe Text
secondsUntilAutoPause :: Maybe Int
secondsBeforeTimeout :: Maybe Int
minCapacity :: Maybe Int
maxCapacity :: Maybe Int
autoPause :: Maybe Bool
$sel:timeoutAction:ScalingConfiguration' :: ScalingConfiguration -> Maybe Text
$sel:secondsUntilAutoPause:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:secondsBeforeTimeout:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:minCapacity:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:maxCapacity:ScalingConfiguration' :: ScalingConfiguration -> Maybe Int
$sel:autoPause:ScalingConfiguration' :: ScalingConfiguration -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"AutoPause" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
autoPause,
ByteString
"MaxCapacity" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
maxCapacity,
ByteString
"MinCapacity" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
minCapacity,
ByteString
"SecondsBeforeTimeout" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
secondsBeforeTimeout,
ByteString
"SecondsUntilAutoPause"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
secondsUntilAutoPause,
ByteString
"TimeoutAction" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
timeoutAction
]