{-# 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.ElastiCache.RebalanceSlotsInGlobalReplicationGroup
(
RebalanceSlotsInGlobalReplicationGroup (..),
newRebalanceSlotsInGlobalReplicationGroup,
rebalanceSlotsInGlobalReplicationGroup_globalReplicationGroupId,
rebalanceSlotsInGlobalReplicationGroup_applyImmediately,
RebalanceSlotsInGlobalReplicationGroupResponse (..),
newRebalanceSlotsInGlobalReplicationGroupResponse,
rebalanceSlotsInGlobalReplicationGroupResponse_globalReplicationGroup,
rebalanceSlotsInGlobalReplicationGroupResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ElastiCache.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data RebalanceSlotsInGlobalReplicationGroup = RebalanceSlotsInGlobalReplicationGroup'
{
RebalanceSlotsInGlobalReplicationGroup -> Text
globalReplicationGroupId :: Prelude.Text,
RebalanceSlotsInGlobalReplicationGroup -> Bool
applyImmediately :: Prelude.Bool
}
deriving (RebalanceSlotsInGlobalReplicationGroup
-> RebalanceSlotsInGlobalReplicationGroup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RebalanceSlotsInGlobalReplicationGroup
-> RebalanceSlotsInGlobalReplicationGroup -> Bool
$c/= :: RebalanceSlotsInGlobalReplicationGroup
-> RebalanceSlotsInGlobalReplicationGroup -> Bool
== :: RebalanceSlotsInGlobalReplicationGroup
-> RebalanceSlotsInGlobalReplicationGroup -> Bool
$c== :: RebalanceSlotsInGlobalReplicationGroup
-> RebalanceSlotsInGlobalReplicationGroup -> Bool
Prelude.Eq, ReadPrec [RebalanceSlotsInGlobalReplicationGroup]
ReadPrec RebalanceSlotsInGlobalReplicationGroup
Int -> ReadS RebalanceSlotsInGlobalReplicationGroup
ReadS [RebalanceSlotsInGlobalReplicationGroup]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RebalanceSlotsInGlobalReplicationGroup]
$creadListPrec :: ReadPrec [RebalanceSlotsInGlobalReplicationGroup]
readPrec :: ReadPrec RebalanceSlotsInGlobalReplicationGroup
$creadPrec :: ReadPrec RebalanceSlotsInGlobalReplicationGroup
readList :: ReadS [RebalanceSlotsInGlobalReplicationGroup]
$creadList :: ReadS [RebalanceSlotsInGlobalReplicationGroup]
readsPrec :: Int -> ReadS RebalanceSlotsInGlobalReplicationGroup
$creadsPrec :: Int -> ReadS RebalanceSlotsInGlobalReplicationGroup
Prelude.Read, Int -> RebalanceSlotsInGlobalReplicationGroup -> ShowS
[RebalanceSlotsInGlobalReplicationGroup] -> ShowS
RebalanceSlotsInGlobalReplicationGroup -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RebalanceSlotsInGlobalReplicationGroup] -> ShowS
$cshowList :: [RebalanceSlotsInGlobalReplicationGroup] -> ShowS
show :: RebalanceSlotsInGlobalReplicationGroup -> String
$cshow :: RebalanceSlotsInGlobalReplicationGroup -> String
showsPrec :: Int -> RebalanceSlotsInGlobalReplicationGroup -> ShowS
$cshowsPrec :: Int -> RebalanceSlotsInGlobalReplicationGroup -> ShowS
Prelude.Show, forall x.
Rep RebalanceSlotsInGlobalReplicationGroup x
-> RebalanceSlotsInGlobalReplicationGroup
forall x.
RebalanceSlotsInGlobalReplicationGroup
-> Rep RebalanceSlotsInGlobalReplicationGroup x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RebalanceSlotsInGlobalReplicationGroup x
-> RebalanceSlotsInGlobalReplicationGroup
$cfrom :: forall x.
RebalanceSlotsInGlobalReplicationGroup
-> Rep RebalanceSlotsInGlobalReplicationGroup x
Prelude.Generic)
newRebalanceSlotsInGlobalReplicationGroup ::
Prelude.Text ->
Prelude.Bool ->
RebalanceSlotsInGlobalReplicationGroup
newRebalanceSlotsInGlobalReplicationGroup :: Text -> Bool -> RebalanceSlotsInGlobalReplicationGroup
newRebalanceSlotsInGlobalReplicationGroup
Text
pGlobalReplicationGroupId_
Bool
pApplyImmediately_ =
RebalanceSlotsInGlobalReplicationGroup'
{ $sel:globalReplicationGroupId:RebalanceSlotsInGlobalReplicationGroup' :: Text
globalReplicationGroupId =
Text
pGlobalReplicationGroupId_,
$sel:applyImmediately:RebalanceSlotsInGlobalReplicationGroup' :: Bool
applyImmediately =
Bool
pApplyImmediately_
}
rebalanceSlotsInGlobalReplicationGroup_globalReplicationGroupId :: Lens.Lens' RebalanceSlotsInGlobalReplicationGroup Prelude.Text
rebalanceSlotsInGlobalReplicationGroup_globalReplicationGroupId :: Lens' RebalanceSlotsInGlobalReplicationGroup Text
rebalanceSlotsInGlobalReplicationGroup_globalReplicationGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RebalanceSlotsInGlobalReplicationGroup' {Text
globalReplicationGroupId :: Text
$sel:globalReplicationGroupId:RebalanceSlotsInGlobalReplicationGroup' :: RebalanceSlotsInGlobalReplicationGroup -> Text
globalReplicationGroupId} -> Text
globalReplicationGroupId) (\s :: RebalanceSlotsInGlobalReplicationGroup
s@RebalanceSlotsInGlobalReplicationGroup' {} Text
a -> RebalanceSlotsInGlobalReplicationGroup
s {$sel:globalReplicationGroupId:RebalanceSlotsInGlobalReplicationGroup' :: Text
globalReplicationGroupId = Text
a} :: RebalanceSlotsInGlobalReplicationGroup)
rebalanceSlotsInGlobalReplicationGroup_applyImmediately :: Lens.Lens' RebalanceSlotsInGlobalReplicationGroup Prelude.Bool
rebalanceSlotsInGlobalReplicationGroup_applyImmediately :: Lens' RebalanceSlotsInGlobalReplicationGroup Bool
rebalanceSlotsInGlobalReplicationGroup_applyImmediately = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RebalanceSlotsInGlobalReplicationGroup' {Bool
applyImmediately :: Bool
$sel:applyImmediately:RebalanceSlotsInGlobalReplicationGroup' :: RebalanceSlotsInGlobalReplicationGroup -> Bool
applyImmediately} -> Bool
applyImmediately) (\s :: RebalanceSlotsInGlobalReplicationGroup
s@RebalanceSlotsInGlobalReplicationGroup' {} Bool
a -> RebalanceSlotsInGlobalReplicationGroup
s {$sel:applyImmediately:RebalanceSlotsInGlobalReplicationGroup' :: Bool
applyImmediately = Bool
a} :: RebalanceSlotsInGlobalReplicationGroup)
instance
Core.AWSRequest
RebalanceSlotsInGlobalReplicationGroup
where
type
AWSResponse
RebalanceSlotsInGlobalReplicationGroup =
RebalanceSlotsInGlobalReplicationGroupResponse
request :: (Service -> Service)
-> RebalanceSlotsInGlobalReplicationGroup
-> Request RebalanceSlotsInGlobalReplicationGroup
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 RebalanceSlotsInGlobalReplicationGroup
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse RebalanceSlotsInGlobalReplicationGroup)))
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
"RebalanceSlotsInGlobalReplicationGroupResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe GlobalReplicationGroup
-> Int -> RebalanceSlotsInGlobalReplicationGroupResponse
RebalanceSlotsInGlobalReplicationGroupResponse'
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
"GlobalReplicationGroup")
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
RebalanceSlotsInGlobalReplicationGroup
where
hashWithSalt :: Int -> RebalanceSlotsInGlobalReplicationGroup -> Int
hashWithSalt
Int
_salt
RebalanceSlotsInGlobalReplicationGroup' {Bool
Text
applyImmediately :: Bool
globalReplicationGroupId :: Text
$sel:applyImmediately:RebalanceSlotsInGlobalReplicationGroup' :: RebalanceSlotsInGlobalReplicationGroup -> Bool
$sel:globalReplicationGroupId:RebalanceSlotsInGlobalReplicationGroup' :: RebalanceSlotsInGlobalReplicationGroup -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
globalReplicationGroupId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
applyImmediately
instance
Prelude.NFData
RebalanceSlotsInGlobalReplicationGroup
where
rnf :: RebalanceSlotsInGlobalReplicationGroup -> ()
rnf RebalanceSlotsInGlobalReplicationGroup' {Bool
Text
applyImmediately :: Bool
globalReplicationGroupId :: Text
$sel:applyImmediately:RebalanceSlotsInGlobalReplicationGroup' :: RebalanceSlotsInGlobalReplicationGroup -> Bool
$sel:globalReplicationGroupId:RebalanceSlotsInGlobalReplicationGroup' :: RebalanceSlotsInGlobalReplicationGroup -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
globalReplicationGroupId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
applyImmediately
instance
Data.ToHeaders
RebalanceSlotsInGlobalReplicationGroup
where
toHeaders :: RebalanceSlotsInGlobalReplicationGroup -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
RebalanceSlotsInGlobalReplicationGroup
where
toPath :: RebalanceSlotsInGlobalReplicationGroup -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
RebalanceSlotsInGlobalReplicationGroup
where
toQuery :: RebalanceSlotsInGlobalReplicationGroup -> QueryString
toQuery RebalanceSlotsInGlobalReplicationGroup' {Bool
Text
applyImmediately :: Bool
globalReplicationGroupId :: Text
$sel:applyImmediately:RebalanceSlotsInGlobalReplicationGroup' :: RebalanceSlotsInGlobalReplicationGroup -> Bool
$sel:globalReplicationGroupId:RebalanceSlotsInGlobalReplicationGroup' :: RebalanceSlotsInGlobalReplicationGroup -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"RebalanceSlotsInGlobalReplicationGroup" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2015-02-02" :: Prelude.ByteString),
ByteString
"GlobalReplicationGroupId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
globalReplicationGroupId,
ByteString
"ApplyImmediately" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Bool
applyImmediately
]
data RebalanceSlotsInGlobalReplicationGroupResponse = RebalanceSlotsInGlobalReplicationGroupResponse'
{ RebalanceSlotsInGlobalReplicationGroupResponse
-> Maybe GlobalReplicationGroup
globalReplicationGroup :: Prelude.Maybe GlobalReplicationGroup,
RebalanceSlotsInGlobalReplicationGroupResponse -> Int
httpStatus :: Prelude.Int
}
deriving (RebalanceSlotsInGlobalReplicationGroupResponse
-> RebalanceSlotsInGlobalReplicationGroupResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RebalanceSlotsInGlobalReplicationGroupResponse
-> RebalanceSlotsInGlobalReplicationGroupResponse -> Bool
$c/= :: RebalanceSlotsInGlobalReplicationGroupResponse
-> RebalanceSlotsInGlobalReplicationGroupResponse -> Bool
== :: RebalanceSlotsInGlobalReplicationGroupResponse
-> RebalanceSlotsInGlobalReplicationGroupResponse -> Bool
$c== :: RebalanceSlotsInGlobalReplicationGroupResponse
-> RebalanceSlotsInGlobalReplicationGroupResponse -> Bool
Prelude.Eq, ReadPrec [RebalanceSlotsInGlobalReplicationGroupResponse]
ReadPrec RebalanceSlotsInGlobalReplicationGroupResponse
Int -> ReadS RebalanceSlotsInGlobalReplicationGroupResponse
ReadS [RebalanceSlotsInGlobalReplicationGroupResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RebalanceSlotsInGlobalReplicationGroupResponse]
$creadListPrec :: ReadPrec [RebalanceSlotsInGlobalReplicationGroupResponse]
readPrec :: ReadPrec RebalanceSlotsInGlobalReplicationGroupResponse
$creadPrec :: ReadPrec RebalanceSlotsInGlobalReplicationGroupResponse
readList :: ReadS [RebalanceSlotsInGlobalReplicationGroupResponse]
$creadList :: ReadS [RebalanceSlotsInGlobalReplicationGroupResponse]
readsPrec :: Int -> ReadS RebalanceSlotsInGlobalReplicationGroupResponse
$creadsPrec :: Int -> ReadS RebalanceSlotsInGlobalReplicationGroupResponse
Prelude.Read, Int -> RebalanceSlotsInGlobalReplicationGroupResponse -> ShowS
[RebalanceSlotsInGlobalReplicationGroupResponse] -> ShowS
RebalanceSlotsInGlobalReplicationGroupResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RebalanceSlotsInGlobalReplicationGroupResponse] -> ShowS
$cshowList :: [RebalanceSlotsInGlobalReplicationGroupResponse] -> ShowS
show :: RebalanceSlotsInGlobalReplicationGroupResponse -> String
$cshow :: RebalanceSlotsInGlobalReplicationGroupResponse -> String
showsPrec :: Int -> RebalanceSlotsInGlobalReplicationGroupResponse -> ShowS
$cshowsPrec :: Int -> RebalanceSlotsInGlobalReplicationGroupResponse -> ShowS
Prelude.Show, forall x.
Rep RebalanceSlotsInGlobalReplicationGroupResponse x
-> RebalanceSlotsInGlobalReplicationGroupResponse
forall x.
RebalanceSlotsInGlobalReplicationGroupResponse
-> Rep RebalanceSlotsInGlobalReplicationGroupResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RebalanceSlotsInGlobalReplicationGroupResponse x
-> RebalanceSlotsInGlobalReplicationGroupResponse
$cfrom :: forall x.
RebalanceSlotsInGlobalReplicationGroupResponse
-> Rep RebalanceSlotsInGlobalReplicationGroupResponse x
Prelude.Generic)
newRebalanceSlotsInGlobalReplicationGroupResponse ::
Prelude.Int ->
RebalanceSlotsInGlobalReplicationGroupResponse
newRebalanceSlotsInGlobalReplicationGroupResponse :: Int -> RebalanceSlotsInGlobalReplicationGroupResponse
newRebalanceSlotsInGlobalReplicationGroupResponse
Int
pHttpStatus_ =
RebalanceSlotsInGlobalReplicationGroupResponse'
{ $sel:globalReplicationGroup:RebalanceSlotsInGlobalReplicationGroupResponse' :: Maybe GlobalReplicationGroup
globalReplicationGroup =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:RebalanceSlotsInGlobalReplicationGroupResponse' :: Int
httpStatus = Int
pHttpStatus_
}
rebalanceSlotsInGlobalReplicationGroupResponse_globalReplicationGroup :: Lens.Lens' RebalanceSlotsInGlobalReplicationGroupResponse (Prelude.Maybe GlobalReplicationGroup)
rebalanceSlotsInGlobalReplicationGroupResponse_globalReplicationGroup :: Lens'
RebalanceSlotsInGlobalReplicationGroupResponse
(Maybe GlobalReplicationGroup)
rebalanceSlotsInGlobalReplicationGroupResponse_globalReplicationGroup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RebalanceSlotsInGlobalReplicationGroupResponse' {Maybe GlobalReplicationGroup
globalReplicationGroup :: Maybe GlobalReplicationGroup
$sel:globalReplicationGroup:RebalanceSlotsInGlobalReplicationGroupResponse' :: RebalanceSlotsInGlobalReplicationGroupResponse
-> Maybe GlobalReplicationGroup
globalReplicationGroup} -> Maybe GlobalReplicationGroup
globalReplicationGroup) (\s :: RebalanceSlotsInGlobalReplicationGroupResponse
s@RebalanceSlotsInGlobalReplicationGroupResponse' {} Maybe GlobalReplicationGroup
a -> RebalanceSlotsInGlobalReplicationGroupResponse
s {$sel:globalReplicationGroup:RebalanceSlotsInGlobalReplicationGroupResponse' :: Maybe GlobalReplicationGroup
globalReplicationGroup = Maybe GlobalReplicationGroup
a} :: RebalanceSlotsInGlobalReplicationGroupResponse)
rebalanceSlotsInGlobalReplicationGroupResponse_httpStatus :: Lens.Lens' RebalanceSlotsInGlobalReplicationGroupResponse Prelude.Int
rebalanceSlotsInGlobalReplicationGroupResponse_httpStatus :: Lens' RebalanceSlotsInGlobalReplicationGroupResponse Int
rebalanceSlotsInGlobalReplicationGroupResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RebalanceSlotsInGlobalReplicationGroupResponse' {Int
httpStatus :: Int
$sel:httpStatus:RebalanceSlotsInGlobalReplicationGroupResponse' :: RebalanceSlotsInGlobalReplicationGroupResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RebalanceSlotsInGlobalReplicationGroupResponse
s@RebalanceSlotsInGlobalReplicationGroupResponse' {} Int
a -> RebalanceSlotsInGlobalReplicationGroupResponse
s {$sel:httpStatus:RebalanceSlotsInGlobalReplicationGroupResponse' :: Int
httpStatus = Int
a} :: RebalanceSlotsInGlobalReplicationGroupResponse)
instance
Prelude.NFData
RebalanceSlotsInGlobalReplicationGroupResponse
where
rnf :: RebalanceSlotsInGlobalReplicationGroupResponse -> ()
rnf
RebalanceSlotsInGlobalReplicationGroupResponse' {Int
Maybe GlobalReplicationGroup
httpStatus :: Int
globalReplicationGroup :: Maybe GlobalReplicationGroup
$sel:httpStatus:RebalanceSlotsInGlobalReplicationGroupResponse' :: RebalanceSlotsInGlobalReplicationGroupResponse -> Int
$sel:globalReplicationGroup:RebalanceSlotsInGlobalReplicationGroupResponse' :: RebalanceSlotsInGlobalReplicationGroupResponse
-> Maybe GlobalReplicationGroup
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe GlobalReplicationGroup
globalReplicationGroup
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus