{-# 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.ModifyGlobalReplicationGroup
(
ModifyGlobalReplicationGroup (..),
newModifyGlobalReplicationGroup,
modifyGlobalReplicationGroup_automaticFailoverEnabled,
modifyGlobalReplicationGroup_cacheNodeType,
modifyGlobalReplicationGroup_cacheParameterGroupName,
modifyGlobalReplicationGroup_engineVersion,
modifyGlobalReplicationGroup_globalReplicationGroupDescription,
modifyGlobalReplicationGroup_globalReplicationGroupId,
modifyGlobalReplicationGroup_applyImmediately,
ModifyGlobalReplicationGroupResponse (..),
newModifyGlobalReplicationGroupResponse,
modifyGlobalReplicationGroupResponse_globalReplicationGroup,
modifyGlobalReplicationGroupResponse_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 ModifyGlobalReplicationGroup = ModifyGlobalReplicationGroup'
{
ModifyGlobalReplicationGroup -> Maybe Bool
automaticFailoverEnabled :: Prelude.Maybe Prelude.Bool,
ModifyGlobalReplicationGroup -> Maybe Text
cacheNodeType :: Prelude.Maybe Prelude.Text,
ModifyGlobalReplicationGroup -> Maybe Text
cacheParameterGroupName :: Prelude.Maybe Prelude.Text,
ModifyGlobalReplicationGroup -> Maybe Text
engineVersion :: Prelude.Maybe Prelude.Text,
ModifyGlobalReplicationGroup -> Maybe Text
globalReplicationGroupDescription :: Prelude.Maybe Prelude.Text,
ModifyGlobalReplicationGroup -> Text
globalReplicationGroupId :: Prelude.Text,
ModifyGlobalReplicationGroup -> Bool
applyImmediately :: Prelude.Bool
}
deriving (ModifyGlobalReplicationGroup
-> ModifyGlobalReplicationGroup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyGlobalReplicationGroup
-> ModifyGlobalReplicationGroup -> Bool
$c/= :: ModifyGlobalReplicationGroup
-> ModifyGlobalReplicationGroup -> Bool
== :: ModifyGlobalReplicationGroup
-> ModifyGlobalReplicationGroup -> Bool
$c== :: ModifyGlobalReplicationGroup
-> ModifyGlobalReplicationGroup -> Bool
Prelude.Eq, ReadPrec [ModifyGlobalReplicationGroup]
ReadPrec ModifyGlobalReplicationGroup
Int -> ReadS ModifyGlobalReplicationGroup
ReadS [ModifyGlobalReplicationGroup]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyGlobalReplicationGroup]
$creadListPrec :: ReadPrec [ModifyGlobalReplicationGroup]
readPrec :: ReadPrec ModifyGlobalReplicationGroup
$creadPrec :: ReadPrec ModifyGlobalReplicationGroup
readList :: ReadS [ModifyGlobalReplicationGroup]
$creadList :: ReadS [ModifyGlobalReplicationGroup]
readsPrec :: Int -> ReadS ModifyGlobalReplicationGroup
$creadsPrec :: Int -> ReadS ModifyGlobalReplicationGroup
Prelude.Read, Int -> ModifyGlobalReplicationGroup -> ShowS
[ModifyGlobalReplicationGroup] -> ShowS
ModifyGlobalReplicationGroup -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyGlobalReplicationGroup] -> ShowS
$cshowList :: [ModifyGlobalReplicationGroup] -> ShowS
show :: ModifyGlobalReplicationGroup -> String
$cshow :: ModifyGlobalReplicationGroup -> String
showsPrec :: Int -> ModifyGlobalReplicationGroup -> ShowS
$cshowsPrec :: Int -> ModifyGlobalReplicationGroup -> ShowS
Prelude.Show, forall x.
Rep ModifyGlobalReplicationGroup x -> ModifyGlobalReplicationGroup
forall x.
ModifyGlobalReplicationGroup -> Rep ModifyGlobalReplicationGroup x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ModifyGlobalReplicationGroup x -> ModifyGlobalReplicationGroup
$cfrom :: forall x.
ModifyGlobalReplicationGroup -> Rep ModifyGlobalReplicationGroup x
Prelude.Generic)
newModifyGlobalReplicationGroup ::
Prelude.Text ->
Prelude.Bool ->
ModifyGlobalReplicationGroup
newModifyGlobalReplicationGroup :: Text -> Bool -> ModifyGlobalReplicationGroup
newModifyGlobalReplicationGroup
Text
pGlobalReplicationGroupId_
Bool
pApplyImmediately_ =
ModifyGlobalReplicationGroup'
{ $sel:automaticFailoverEnabled:ModifyGlobalReplicationGroup' :: Maybe Bool
automaticFailoverEnabled =
forall a. Maybe a
Prelude.Nothing,
$sel:cacheNodeType:ModifyGlobalReplicationGroup' :: Maybe Text
cacheNodeType = forall a. Maybe a
Prelude.Nothing,
$sel:cacheParameterGroupName:ModifyGlobalReplicationGroup' :: Maybe Text
cacheParameterGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:engineVersion:ModifyGlobalReplicationGroup' :: Maybe Text
engineVersion = forall a. Maybe a
Prelude.Nothing,
$sel:globalReplicationGroupDescription:ModifyGlobalReplicationGroup' :: Maybe Text
globalReplicationGroupDescription =
forall a. Maybe a
Prelude.Nothing,
$sel:globalReplicationGroupId:ModifyGlobalReplicationGroup' :: Text
globalReplicationGroupId =
Text
pGlobalReplicationGroupId_,
$sel:applyImmediately:ModifyGlobalReplicationGroup' :: Bool
applyImmediately = Bool
pApplyImmediately_
}
modifyGlobalReplicationGroup_automaticFailoverEnabled :: Lens.Lens' ModifyGlobalReplicationGroup (Prelude.Maybe Prelude.Bool)
modifyGlobalReplicationGroup_automaticFailoverEnabled :: Lens' ModifyGlobalReplicationGroup (Maybe Bool)
modifyGlobalReplicationGroup_automaticFailoverEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyGlobalReplicationGroup' {Maybe Bool
automaticFailoverEnabled :: Maybe Bool
$sel:automaticFailoverEnabled:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Bool
automaticFailoverEnabled} -> Maybe Bool
automaticFailoverEnabled) (\s :: ModifyGlobalReplicationGroup
s@ModifyGlobalReplicationGroup' {} Maybe Bool
a -> ModifyGlobalReplicationGroup
s {$sel:automaticFailoverEnabled:ModifyGlobalReplicationGroup' :: Maybe Bool
automaticFailoverEnabled = Maybe Bool
a} :: ModifyGlobalReplicationGroup)
modifyGlobalReplicationGroup_cacheNodeType :: Lens.Lens' ModifyGlobalReplicationGroup (Prelude.Maybe Prelude.Text)
modifyGlobalReplicationGroup_cacheNodeType :: Lens' ModifyGlobalReplicationGroup (Maybe Text)
modifyGlobalReplicationGroup_cacheNodeType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyGlobalReplicationGroup' {Maybe Text
cacheNodeType :: Maybe Text
$sel:cacheNodeType:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
cacheNodeType} -> Maybe Text
cacheNodeType) (\s :: ModifyGlobalReplicationGroup
s@ModifyGlobalReplicationGroup' {} Maybe Text
a -> ModifyGlobalReplicationGroup
s {$sel:cacheNodeType:ModifyGlobalReplicationGroup' :: Maybe Text
cacheNodeType = Maybe Text
a} :: ModifyGlobalReplicationGroup)
modifyGlobalReplicationGroup_cacheParameterGroupName :: Lens.Lens' ModifyGlobalReplicationGroup (Prelude.Maybe Prelude.Text)
modifyGlobalReplicationGroup_cacheParameterGroupName :: Lens' ModifyGlobalReplicationGroup (Maybe Text)
modifyGlobalReplicationGroup_cacheParameterGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyGlobalReplicationGroup' {Maybe Text
cacheParameterGroupName :: Maybe Text
$sel:cacheParameterGroupName:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
cacheParameterGroupName} -> Maybe Text
cacheParameterGroupName) (\s :: ModifyGlobalReplicationGroup
s@ModifyGlobalReplicationGroup' {} Maybe Text
a -> ModifyGlobalReplicationGroup
s {$sel:cacheParameterGroupName:ModifyGlobalReplicationGroup' :: Maybe Text
cacheParameterGroupName = Maybe Text
a} :: ModifyGlobalReplicationGroup)
modifyGlobalReplicationGroup_engineVersion :: Lens.Lens' ModifyGlobalReplicationGroup (Prelude.Maybe Prelude.Text)
modifyGlobalReplicationGroup_engineVersion :: Lens' ModifyGlobalReplicationGroup (Maybe Text)
modifyGlobalReplicationGroup_engineVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyGlobalReplicationGroup' {Maybe Text
engineVersion :: Maybe Text
$sel:engineVersion:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
engineVersion} -> Maybe Text
engineVersion) (\s :: ModifyGlobalReplicationGroup
s@ModifyGlobalReplicationGroup' {} Maybe Text
a -> ModifyGlobalReplicationGroup
s {$sel:engineVersion:ModifyGlobalReplicationGroup' :: Maybe Text
engineVersion = Maybe Text
a} :: ModifyGlobalReplicationGroup)
modifyGlobalReplicationGroup_globalReplicationGroupDescription :: Lens.Lens' ModifyGlobalReplicationGroup (Prelude.Maybe Prelude.Text)
modifyGlobalReplicationGroup_globalReplicationGroupDescription :: Lens' ModifyGlobalReplicationGroup (Maybe Text)
modifyGlobalReplicationGroup_globalReplicationGroupDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyGlobalReplicationGroup' {Maybe Text
globalReplicationGroupDescription :: Maybe Text
$sel:globalReplicationGroupDescription:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
globalReplicationGroupDescription} -> Maybe Text
globalReplicationGroupDescription) (\s :: ModifyGlobalReplicationGroup
s@ModifyGlobalReplicationGroup' {} Maybe Text
a -> ModifyGlobalReplicationGroup
s {$sel:globalReplicationGroupDescription:ModifyGlobalReplicationGroup' :: Maybe Text
globalReplicationGroupDescription = Maybe Text
a} :: ModifyGlobalReplicationGroup)
modifyGlobalReplicationGroup_globalReplicationGroupId :: Lens.Lens' ModifyGlobalReplicationGroup Prelude.Text
modifyGlobalReplicationGroup_globalReplicationGroupId :: Lens' ModifyGlobalReplicationGroup Text
modifyGlobalReplicationGroup_globalReplicationGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyGlobalReplicationGroup' {Text
globalReplicationGroupId :: Text
$sel:globalReplicationGroupId:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Text
globalReplicationGroupId} -> Text
globalReplicationGroupId) (\s :: ModifyGlobalReplicationGroup
s@ModifyGlobalReplicationGroup' {} Text
a -> ModifyGlobalReplicationGroup
s {$sel:globalReplicationGroupId:ModifyGlobalReplicationGroup' :: Text
globalReplicationGroupId = Text
a} :: ModifyGlobalReplicationGroup)
modifyGlobalReplicationGroup_applyImmediately :: Lens.Lens' ModifyGlobalReplicationGroup Prelude.Bool
modifyGlobalReplicationGroup_applyImmediately :: Lens' ModifyGlobalReplicationGroup Bool
modifyGlobalReplicationGroup_applyImmediately = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyGlobalReplicationGroup' {Bool
applyImmediately :: Bool
$sel:applyImmediately:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Bool
applyImmediately} -> Bool
applyImmediately) (\s :: ModifyGlobalReplicationGroup
s@ModifyGlobalReplicationGroup' {} Bool
a -> ModifyGlobalReplicationGroup
s {$sel:applyImmediately:ModifyGlobalReplicationGroup' :: Bool
applyImmediately = Bool
a} :: ModifyGlobalReplicationGroup)
instance Core.AWSRequest ModifyGlobalReplicationGroup where
type
AWSResponse ModifyGlobalReplicationGroup =
ModifyGlobalReplicationGroupResponse
request :: (Service -> Service)
-> ModifyGlobalReplicationGroup
-> Request ModifyGlobalReplicationGroup
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 ModifyGlobalReplicationGroup
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ModifyGlobalReplicationGroup)))
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
"ModifyGlobalReplicationGroupResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe GlobalReplicationGroup
-> Int -> ModifyGlobalReplicationGroupResponse
ModifyGlobalReplicationGroupResponse'
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
ModifyGlobalReplicationGroup
where
hashWithSalt :: Int -> ModifyGlobalReplicationGroup -> Int
hashWithSalt Int
_salt ModifyGlobalReplicationGroup' {Bool
Maybe Bool
Maybe Text
Text
applyImmediately :: Bool
globalReplicationGroupId :: Text
globalReplicationGroupDescription :: Maybe Text
engineVersion :: Maybe Text
cacheParameterGroupName :: Maybe Text
cacheNodeType :: Maybe Text
automaticFailoverEnabled :: Maybe Bool
$sel:applyImmediately:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Bool
$sel:globalReplicationGroupId:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Text
$sel:globalReplicationGroupDescription:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:engineVersion:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:cacheParameterGroupName:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:cacheNodeType:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:automaticFailoverEnabled:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
automaticFailoverEnabled
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cacheNodeType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cacheParameterGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
engineVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
globalReplicationGroupDescription
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 ModifyGlobalReplicationGroup where
rnf :: ModifyGlobalReplicationGroup -> ()
rnf ModifyGlobalReplicationGroup' {Bool
Maybe Bool
Maybe Text
Text
applyImmediately :: Bool
globalReplicationGroupId :: Text
globalReplicationGroupDescription :: Maybe Text
engineVersion :: Maybe Text
cacheParameterGroupName :: Maybe Text
cacheNodeType :: Maybe Text
automaticFailoverEnabled :: Maybe Bool
$sel:applyImmediately:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Bool
$sel:globalReplicationGroupId:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Text
$sel:globalReplicationGroupDescription:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:engineVersion:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:cacheParameterGroupName:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:cacheNodeType:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:automaticFailoverEnabled:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
automaticFailoverEnabled
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cacheNodeType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cacheParameterGroupName
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
globalReplicationGroupDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 ModifyGlobalReplicationGroup where
toHeaders :: ModifyGlobalReplicationGroup -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ModifyGlobalReplicationGroup where
toPath :: ModifyGlobalReplicationGroup -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ModifyGlobalReplicationGroup where
toQuery :: ModifyGlobalReplicationGroup -> QueryString
toQuery ModifyGlobalReplicationGroup' {Bool
Maybe Bool
Maybe Text
Text
applyImmediately :: Bool
globalReplicationGroupId :: Text
globalReplicationGroupDescription :: Maybe Text
engineVersion :: Maybe Text
cacheParameterGroupName :: Maybe Text
cacheNodeType :: Maybe Text
automaticFailoverEnabled :: Maybe Bool
$sel:applyImmediately:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Bool
$sel:globalReplicationGroupId:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Text
$sel:globalReplicationGroupDescription:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:engineVersion:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:cacheParameterGroupName:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:cacheNodeType:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Text
$sel:automaticFailoverEnabled:ModifyGlobalReplicationGroup' :: ModifyGlobalReplicationGroup -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"ModifyGlobalReplicationGroup" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2015-02-02" :: Prelude.ByteString),
ByteString
"AutomaticFailoverEnabled"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
automaticFailoverEnabled,
ByteString
"CacheNodeType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
cacheNodeType,
ByteString
"CacheParameterGroupName"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
cacheParameterGroupName,
ByteString
"EngineVersion" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
engineVersion,
ByteString
"GlobalReplicationGroupDescription"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
globalReplicationGroupDescription,
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 ModifyGlobalReplicationGroupResponse = ModifyGlobalReplicationGroupResponse'
{ ModifyGlobalReplicationGroupResponse
-> Maybe GlobalReplicationGroup
globalReplicationGroup :: Prelude.Maybe GlobalReplicationGroup,
ModifyGlobalReplicationGroupResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ModifyGlobalReplicationGroupResponse
-> ModifyGlobalReplicationGroupResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyGlobalReplicationGroupResponse
-> ModifyGlobalReplicationGroupResponse -> Bool
$c/= :: ModifyGlobalReplicationGroupResponse
-> ModifyGlobalReplicationGroupResponse -> Bool
== :: ModifyGlobalReplicationGroupResponse
-> ModifyGlobalReplicationGroupResponse -> Bool
$c== :: ModifyGlobalReplicationGroupResponse
-> ModifyGlobalReplicationGroupResponse -> Bool
Prelude.Eq, ReadPrec [ModifyGlobalReplicationGroupResponse]
ReadPrec ModifyGlobalReplicationGroupResponse
Int -> ReadS ModifyGlobalReplicationGroupResponse
ReadS [ModifyGlobalReplicationGroupResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyGlobalReplicationGroupResponse]
$creadListPrec :: ReadPrec [ModifyGlobalReplicationGroupResponse]
readPrec :: ReadPrec ModifyGlobalReplicationGroupResponse
$creadPrec :: ReadPrec ModifyGlobalReplicationGroupResponse
readList :: ReadS [ModifyGlobalReplicationGroupResponse]
$creadList :: ReadS [ModifyGlobalReplicationGroupResponse]
readsPrec :: Int -> ReadS ModifyGlobalReplicationGroupResponse
$creadsPrec :: Int -> ReadS ModifyGlobalReplicationGroupResponse
Prelude.Read, Int -> ModifyGlobalReplicationGroupResponse -> ShowS
[ModifyGlobalReplicationGroupResponse] -> ShowS
ModifyGlobalReplicationGroupResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyGlobalReplicationGroupResponse] -> ShowS
$cshowList :: [ModifyGlobalReplicationGroupResponse] -> ShowS
show :: ModifyGlobalReplicationGroupResponse -> String
$cshow :: ModifyGlobalReplicationGroupResponse -> String
showsPrec :: Int -> ModifyGlobalReplicationGroupResponse -> ShowS
$cshowsPrec :: Int -> ModifyGlobalReplicationGroupResponse -> ShowS
Prelude.Show, forall x.
Rep ModifyGlobalReplicationGroupResponse x
-> ModifyGlobalReplicationGroupResponse
forall x.
ModifyGlobalReplicationGroupResponse
-> Rep ModifyGlobalReplicationGroupResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ModifyGlobalReplicationGroupResponse x
-> ModifyGlobalReplicationGroupResponse
$cfrom :: forall x.
ModifyGlobalReplicationGroupResponse
-> Rep ModifyGlobalReplicationGroupResponse x
Prelude.Generic)
newModifyGlobalReplicationGroupResponse ::
Prelude.Int ->
ModifyGlobalReplicationGroupResponse
newModifyGlobalReplicationGroupResponse :: Int -> ModifyGlobalReplicationGroupResponse
newModifyGlobalReplicationGroupResponse Int
pHttpStatus_ =
ModifyGlobalReplicationGroupResponse'
{ $sel:globalReplicationGroup:ModifyGlobalReplicationGroupResponse' :: Maybe GlobalReplicationGroup
globalReplicationGroup =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ModifyGlobalReplicationGroupResponse' :: Int
httpStatus = Int
pHttpStatus_
}
modifyGlobalReplicationGroupResponse_globalReplicationGroup :: Lens.Lens' ModifyGlobalReplicationGroupResponse (Prelude.Maybe GlobalReplicationGroup)
modifyGlobalReplicationGroupResponse_globalReplicationGroup :: Lens'
ModifyGlobalReplicationGroupResponse (Maybe GlobalReplicationGroup)
modifyGlobalReplicationGroupResponse_globalReplicationGroup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyGlobalReplicationGroupResponse' {Maybe GlobalReplicationGroup
globalReplicationGroup :: Maybe GlobalReplicationGroup
$sel:globalReplicationGroup:ModifyGlobalReplicationGroupResponse' :: ModifyGlobalReplicationGroupResponse
-> Maybe GlobalReplicationGroup
globalReplicationGroup} -> Maybe GlobalReplicationGroup
globalReplicationGroup) (\s :: ModifyGlobalReplicationGroupResponse
s@ModifyGlobalReplicationGroupResponse' {} Maybe GlobalReplicationGroup
a -> ModifyGlobalReplicationGroupResponse
s {$sel:globalReplicationGroup:ModifyGlobalReplicationGroupResponse' :: Maybe GlobalReplicationGroup
globalReplicationGroup = Maybe GlobalReplicationGroup
a} :: ModifyGlobalReplicationGroupResponse)
modifyGlobalReplicationGroupResponse_httpStatus :: Lens.Lens' ModifyGlobalReplicationGroupResponse Prelude.Int
modifyGlobalReplicationGroupResponse_httpStatus :: Lens' ModifyGlobalReplicationGroupResponse Int
modifyGlobalReplicationGroupResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyGlobalReplicationGroupResponse' {Int
httpStatus :: Int
$sel:httpStatus:ModifyGlobalReplicationGroupResponse' :: ModifyGlobalReplicationGroupResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ModifyGlobalReplicationGroupResponse
s@ModifyGlobalReplicationGroupResponse' {} Int
a -> ModifyGlobalReplicationGroupResponse
s {$sel:httpStatus:ModifyGlobalReplicationGroupResponse' :: Int
httpStatus = Int
a} :: ModifyGlobalReplicationGroupResponse)
instance
Prelude.NFData
ModifyGlobalReplicationGroupResponse
where
rnf :: ModifyGlobalReplicationGroupResponse -> ()
rnf ModifyGlobalReplicationGroupResponse' {Int
Maybe GlobalReplicationGroup
httpStatus :: Int
globalReplicationGroup :: Maybe GlobalReplicationGroup
$sel:httpStatus:ModifyGlobalReplicationGroupResponse' :: ModifyGlobalReplicationGroupResponse -> Int
$sel:globalReplicationGroup:ModifyGlobalReplicationGroupResponse' :: ModifyGlobalReplicationGroupResponse
-> 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