{-# 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.ModifyDBClusterEndpoint
(
ModifyDBClusterEndpoint (..),
newModifyDBClusterEndpoint,
modifyDBClusterEndpoint_endpointType,
modifyDBClusterEndpoint_excludedMembers,
modifyDBClusterEndpoint_staticMembers,
modifyDBClusterEndpoint_dbClusterEndpointIdentifier,
ModifyDBClusterEndpointResponse (..),
newModifyDBClusterEndpointResponse,
modifyDBClusterEndpointResponse_customEndpointType,
modifyDBClusterEndpointResponse_dbClusterEndpointArn,
modifyDBClusterEndpointResponse_dbClusterEndpointIdentifier,
modifyDBClusterEndpointResponse_dbClusterEndpointResourceIdentifier,
modifyDBClusterEndpointResponse_dbClusterIdentifier,
modifyDBClusterEndpointResponse_endpoint,
modifyDBClusterEndpointResponse_endpointType,
modifyDBClusterEndpointResponse_excludedMembers,
modifyDBClusterEndpointResponse_staticMembers,
modifyDBClusterEndpointResponse_status,
modifyDBClusterEndpointResponse_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 ModifyDBClusterEndpoint = ModifyDBClusterEndpoint'
{
ModifyDBClusterEndpoint -> Maybe Text
endpointType :: Prelude.Maybe Prelude.Text,
ModifyDBClusterEndpoint -> Maybe [Text]
excludedMembers :: Prelude.Maybe [Prelude.Text],
ModifyDBClusterEndpoint -> Maybe [Text]
staticMembers :: Prelude.Maybe [Prelude.Text],
ModifyDBClusterEndpoint -> Text
dbClusterEndpointIdentifier :: Prelude.Text
}
deriving (ModifyDBClusterEndpoint -> ModifyDBClusterEndpoint -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyDBClusterEndpoint -> ModifyDBClusterEndpoint -> Bool
$c/= :: ModifyDBClusterEndpoint -> ModifyDBClusterEndpoint -> Bool
== :: ModifyDBClusterEndpoint -> ModifyDBClusterEndpoint -> Bool
$c== :: ModifyDBClusterEndpoint -> ModifyDBClusterEndpoint -> Bool
Prelude.Eq, ReadPrec [ModifyDBClusterEndpoint]
ReadPrec ModifyDBClusterEndpoint
Int -> ReadS ModifyDBClusterEndpoint
ReadS [ModifyDBClusterEndpoint]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyDBClusterEndpoint]
$creadListPrec :: ReadPrec [ModifyDBClusterEndpoint]
readPrec :: ReadPrec ModifyDBClusterEndpoint
$creadPrec :: ReadPrec ModifyDBClusterEndpoint
readList :: ReadS [ModifyDBClusterEndpoint]
$creadList :: ReadS [ModifyDBClusterEndpoint]
readsPrec :: Int -> ReadS ModifyDBClusterEndpoint
$creadsPrec :: Int -> ReadS ModifyDBClusterEndpoint
Prelude.Read, Int -> ModifyDBClusterEndpoint -> ShowS
[ModifyDBClusterEndpoint] -> ShowS
ModifyDBClusterEndpoint -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyDBClusterEndpoint] -> ShowS
$cshowList :: [ModifyDBClusterEndpoint] -> ShowS
show :: ModifyDBClusterEndpoint -> String
$cshow :: ModifyDBClusterEndpoint -> String
showsPrec :: Int -> ModifyDBClusterEndpoint -> ShowS
$cshowsPrec :: Int -> ModifyDBClusterEndpoint -> ShowS
Prelude.Show, forall x. Rep ModifyDBClusterEndpoint x -> ModifyDBClusterEndpoint
forall x. ModifyDBClusterEndpoint -> Rep ModifyDBClusterEndpoint x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ModifyDBClusterEndpoint x -> ModifyDBClusterEndpoint
$cfrom :: forall x. ModifyDBClusterEndpoint -> Rep ModifyDBClusterEndpoint x
Prelude.Generic)
newModifyDBClusterEndpoint ::
Prelude.Text ->
ModifyDBClusterEndpoint
newModifyDBClusterEndpoint :: Text -> ModifyDBClusterEndpoint
newModifyDBClusterEndpoint
Text
pDBClusterEndpointIdentifier_ =
ModifyDBClusterEndpoint'
{ $sel:endpointType:ModifyDBClusterEndpoint' :: Maybe Text
endpointType =
forall a. Maybe a
Prelude.Nothing,
$sel:excludedMembers:ModifyDBClusterEndpoint' :: Maybe [Text]
excludedMembers = forall a. Maybe a
Prelude.Nothing,
$sel:staticMembers:ModifyDBClusterEndpoint' :: Maybe [Text]
staticMembers = forall a. Maybe a
Prelude.Nothing,
$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpoint' :: Text
dbClusterEndpointIdentifier =
Text
pDBClusterEndpointIdentifier_
}
modifyDBClusterEndpoint_endpointType :: Lens.Lens' ModifyDBClusterEndpoint (Prelude.Maybe Prelude.Text)
modifyDBClusterEndpoint_endpointType :: Lens' ModifyDBClusterEndpoint (Maybe Text)
modifyDBClusterEndpoint_endpointType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpoint' {Maybe Text
endpointType :: Maybe Text
$sel:endpointType:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe Text
endpointType} -> Maybe Text
endpointType) (\s :: ModifyDBClusterEndpoint
s@ModifyDBClusterEndpoint' {} Maybe Text
a -> ModifyDBClusterEndpoint
s {$sel:endpointType:ModifyDBClusterEndpoint' :: Maybe Text
endpointType = Maybe Text
a} :: ModifyDBClusterEndpoint)
modifyDBClusterEndpoint_excludedMembers :: Lens.Lens' ModifyDBClusterEndpoint (Prelude.Maybe [Prelude.Text])
modifyDBClusterEndpoint_excludedMembers :: Lens' ModifyDBClusterEndpoint (Maybe [Text])
modifyDBClusterEndpoint_excludedMembers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpoint' {Maybe [Text]
excludedMembers :: Maybe [Text]
$sel:excludedMembers:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe [Text]
excludedMembers} -> Maybe [Text]
excludedMembers) (\s :: ModifyDBClusterEndpoint
s@ModifyDBClusterEndpoint' {} Maybe [Text]
a -> ModifyDBClusterEndpoint
s {$sel:excludedMembers:ModifyDBClusterEndpoint' :: Maybe [Text]
excludedMembers = Maybe [Text]
a} :: ModifyDBClusterEndpoint) 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
modifyDBClusterEndpoint_staticMembers :: Lens.Lens' ModifyDBClusterEndpoint (Prelude.Maybe [Prelude.Text])
modifyDBClusterEndpoint_staticMembers :: Lens' ModifyDBClusterEndpoint (Maybe [Text])
modifyDBClusterEndpoint_staticMembers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpoint' {Maybe [Text]
staticMembers :: Maybe [Text]
$sel:staticMembers:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe [Text]
staticMembers} -> Maybe [Text]
staticMembers) (\s :: ModifyDBClusterEndpoint
s@ModifyDBClusterEndpoint' {} Maybe [Text]
a -> ModifyDBClusterEndpoint
s {$sel:staticMembers:ModifyDBClusterEndpoint' :: Maybe [Text]
staticMembers = Maybe [Text]
a} :: ModifyDBClusterEndpoint) 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
modifyDBClusterEndpoint_dbClusterEndpointIdentifier :: Lens.Lens' ModifyDBClusterEndpoint Prelude.Text
modifyDBClusterEndpoint_dbClusterEndpointIdentifier :: Lens' ModifyDBClusterEndpoint Text
modifyDBClusterEndpoint_dbClusterEndpointIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpoint' {Text
dbClusterEndpointIdentifier :: Text
$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Text
dbClusterEndpointIdentifier} -> Text
dbClusterEndpointIdentifier) (\s :: ModifyDBClusterEndpoint
s@ModifyDBClusterEndpoint' {} Text
a -> ModifyDBClusterEndpoint
s {$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpoint' :: Text
dbClusterEndpointIdentifier = Text
a} :: ModifyDBClusterEndpoint)
instance Core.AWSRequest ModifyDBClusterEndpoint where
type
AWSResponse ModifyDBClusterEndpoint =
ModifyDBClusterEndpointResponse
request :: (Service -> Service)
-> ModifyDBClusterEndpoint -> Request ModifyDBClusterEndpoint
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 ModifyDBClusterEndpoint
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ModifyDBClusterEndpoint)))
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
"ModifyDBClusterEndpointResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe [Text]
-> Maybe [Text]
-> Maybe Text
-> Int
-> ModifyDBClusterEndpointResponse
ModifyDBClusterEndpointResponse'
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
"CustomEndpointType")
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
"DBClusterEndpointArn")
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
"DBClusterEndpointIdentifier")
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
"DBClusterEndpointResourceIdentifier")
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
"Endpoint")
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
"EndpointType")
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
"ExcludedMembers"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
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
"StaticMembers"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
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
"Status")
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 ModifyDBClusterEndpoint where
hashWithSalt :: Int -> ModifyDBClusterEndpoint -> Int
hashWithSalt Int
_salt ModifyDBClusterEndpoint' {Maybe [Text]
Maybe Text
Text
dbClusterEndpointIdentifier :: Text
staticMembers :: Maybe [Text]
excludedMembers :: Maybe [Text]
endpointType :: Maybe Text
$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Text
$sel:staticMembers:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe [Text]
$sel:excludedMembers:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe [Text]
$sel:endpointType:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
endpointType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
excludedMembers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
staticMembers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dbClusterEndpointIdentifier
instance Prelude.NFData ModifyDBClusterEndpoint where
rnf :: ModifyDBClusterEndpoint -> ()
rnf ModifyDBClusterEndpoint' {Maybe [Text]
Maybe Text
Text
dbClusterEndpointIdentifier :: Text
staticMembers :: Maybe [Text]
excludedMembers :: Maybe [Text]
endpointType :: Maybe Text
$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Text
$sel:staticMembers:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe [Text]
$sel:excludedMembers:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe [Text]
$sel:endpointType:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
endpointType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
excludedMembers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
staticMembers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dbClusterEndpointIdentifier
instance Data.ToHeaders ModifyDBClusterEndpoint where
toHeaders :: ModifyDBClusterEndpoint -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ModifyDBClusterEndpoint where
toPath :: ModifyDBClusterEndpoint -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ModifyDBClusterEndpoint where
toQuery :: ModifyDBClusterEndpoint -> QueryString
toQuery ModifyDBClusterEndpoint' {Maybe [Text]
Maybe Text
Text
dbClusterEndpointIdentifier :: Text
staticMembers :: Maybe [Text]
excludedMembers :: Maybe [Text]
endpointType :: Maybe Text
$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Text
$sel:staticMembers:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe [Text]
$sel:excludedMembers:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe [Text]
$sel:endpointType:ModifyDBClusterEndpoint' :: ModifyDBClusterEndpoint -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"ModifyDBClusterEndpoint" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"EndpointType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
endpointType,
ByteString
"ExcludedMembers"
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
"member"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
excludedMembers
),
ByteString
"StaticMembers"
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
"member"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
staticMembers
),
ByteString
"DBClusterEndpointIdentifier"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
dbClusterEndpointIdentifier
]
data ModifyDBClusterEndpointResponse = ModifyDBClusterEndpointResponse'
{
ModifyDBClusterEndpointResponse -> Maybe Text
customEndpointType :: Prelude.Maybe Prelude.Text,
ModifyDBClusterEndpointResponse -> Maybe Text
dbClusterEndpointArn :: Prelude.Maybe Prelude.Text,
ModifyDBClusterEndpointResponse -> Maybe Text
dbClusterEndpointIdentifier :: Prelude.Maybe Prelude.Text,
ModifyDBClusterEndpointResponse -> Maybe Text
dbClusterEndpointResourceIdentifier :: Prelude.Maybe Prelude.Text,
ModifyDBClusterEndpointResponse -> Maybe Text
dbClusterIdentifier :: Prelude.Maybe Prelude.Text,
ModifyDBClusterEndpointResponse -> Maybe Text
endpoint :: Prelude.Maybe Prelude.Text,
ModifyDBClusterEndpointResponse -> Maybe Text
endpointType :: Prelude.Maybe Prelude.Text,
ModifyDBClusterEndpointResponse -> Maybe [Text]
excludedMembers :: Prelude.Maybe [Prelude.Text],
ModifyDBClusterEndpointResponse -> Maybe [Text]
staticMembers :: Prelude.Maybe [Prelude.Text],
ModifyDBClusterEndpointResponse -> Maybe Text
status :: Prelude.Maybe Prelude.Text,
ModifyDBClusterEndpointResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ModifyDBClusterEndpointResponse
-> ModifyDBClusterEndpointResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ModifyDBClusterEndpointResponse
-> ModifyDBClusterEndpointResponse -> Bool
$c/= :: ModifyDBClusterEndpointResponse
-> ModifyDBClusterEndpointResponse -> Bool
== :: ModifyDBClusterEndpointResponse
-> ModifyDBClusterEndpointResponse -> Bool
$c== :: ModifyDBClusterEndpointResponse
-> ModifyDBClusterEndpointResponse -> Bool
Prelude.Eq, ReadPrec [ModifyDBClusterEndpointResponse]
ReadPrec ModifyDBClusterEndpointResponse
Int -> ReadS ModifyDBClusterEndpointResponse
ReadS [ModifyDBClusterEndpointResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ModifyDBClusterEndpointResponse]
$creadListPrec :: ReadPrec [ModifyDBClusterEndpointResponse]
readPrec :: ReadPrec ModifyDBClusterEndpointResponse
$creadPrec :: ReadPrec ModifyDBClusterEndpointResponse
readList :: ReadS [ModifyDBClusterEndpointResponse]
$creadList :: ReadS [ModifyDBClusterEndpointResponse]
readsPrec :: Int -> ReadS ModifyDBClusterEndpointResponse
$creadsPrec :: Int -> ReadS ModifyDBClusterEndpointResponse
Prelude.Read, Int -> ModifyDBClusterEndpointResponse -> ShowS
[ModifyDBClusterEndpointResponse] -> ShowS
ModifyDBClusterEndpointResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ModifyDBClusterEndpointResponse] -> ShowS
$cshowList :: [ModifyDBClusterEndpointResponse] -> ShowS
show :: ModifyDBClusterEndpointResponse -> String
$cshow :: ModifyDBClusterEndpointResponse -> String
showsPrec :: Int -> ModifyDBClusterEndpointResponse -> ShowS
$cshowsPrec :: Int -> ModifyDBClusterEndpointResponse -> ShowS
Prelude.Show, forall x.
Rep ModifyDBClusterEndpointResponse x
-> ModifyDBClusterEndpointResponse
forall x.
ModifyDBClusterEndpointResponse
-> Rep ModifyDBClusterEndpointResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ModifyDBClusterEndpointResponse x
-> ModifyDBClusterEndpointResponse
$cfrom :: forall x.
ModifyDBClusterEndpointResponse
-> Rep ModifyDBClusterEndpointResponse x
Prelude.Generic)
newModifyDBClusterEndpointResponse ::
Prelude.Int ->
ModifyDBClusterEndpointResponse
newModifyDBClusterEndpointResponse :: Int -> ModifyDBClusterEndpointResponse
newModifyDBClusterEndpointResponse Int
pHttpStatus_ =
ModifyDBClusterEndpointResponse'
{ $sel:customEndpointType:ModifyDBClusterEndpointResponse' :: Maybe Text
customEndpointType =
forall a. Maybe a
Prelude.Nothing,
$sel:dbClusterEndpointArn:ModifyDBClusterEndpointResponse' :: Maybe Text
dbClusterEndpointArn = forall a. Maybe a
Prelude.Nothing,
$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpointResponse' :: Maybe Text
dbClusterEndpointIdentifier =
forall a. Maybe a
Prelude.Nothing,
$sel:dbClusterEndpointResourceIdentifier:ModifyDBClusterEndpointResponse' :: Maybe Text
dbClusterEndpointResourceIdentifier =
forall a. Maybe a
Prelude.Nothing,
$sel:dbClusterIdentifier:ModifyDBClusterEndpointResponse' :: Maybe Text
dbClusterIdentifier = forall a. Maybe a
Prelude.Nothing,
$sel:endpoint:ModifyDBClusterEndpointResponse' :: Maybe Text
endpoint = forall a. Maybe a
Prelude.Nothing,
$sel:endpointType:ModifyDBClusterEndpointResponse' :: Maybe Text
endpointType = forall a. Maybe a
Prelude.Nothing,
$sel:excludedMembers:ModifyDBClusterEndpointResponse' :: Maybe [Text]
excludedMembers = forall a. Maybe a
Prelude.Nothing,
$sel:staticMembers:ModifyDBClusterEndpointResponse' :: Maybe [Text]
staticMembers = forall a. Maybe a
Prelude.Nothing,
$sel:status:ModifyDBClusterEndpointResponse' :: Maybe Text
status = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ModifyDBClusterEndpointResponse' :: Int
httpStatus = Int
pHttpStatus_
}
modifyDBClusterEndpointResponse_customEndpointType :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe Prelude.Text)
modifyDBClusterEndpointResponse_customEndpointType :: Lens' ModifyDBClusterEndpointResponse (Maybe Text)
modifyDBClusterEndpointResponse_customEndpointType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe Text
customEndpointType :: Maybe Text
$sel:customEndpointType:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
customEndpointType} -> Maybe Text
customEndpointType) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe Text
a -> ModifyDBClusterEndpointResponse
s {$sel:customEndpointType:ModifyDBClusterEndpointResponse' :: Maybe Text
customEndpointType = Maybe Text
a} :: ModifyDBClusterEndpointResponse)
modifyDBClusterEndpointResponse_dbClusterEndpointArn :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe Prelude.Text)
modifyDBClusterEndpointResponse_dbClusterEndpointArn :: Lens' ModifyDBClusterEndpointResponse (Maybe Text)
modifyDBClusterEndpointResponse_dbClusterEndpointArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe Text
dbClusterEndpointArn :: Maybe Text
$sel:dbClusterEndpointArn:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
dbClusterEndpointArn} -> Maybe Text
dbClusterEndpointArn) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe Text
a -> ModifyDBClusterEndpointResponse
s {$sel:dbClusterEndpointArn:ModifyDBClusterEndpointResponse' :: Maybe Text
dbClusterEndpointArn = Maybe Text
a} :: ModifyDBClusterEndpointResponse)
modifyDBClusterEndpointResponse_dbClusterEndpointIdentifier :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe Prelude.Text)
modifyDBClusterEndpointResponse_dbClusterEndpointIdentifier :: Lens' ModifyDBClusterEndpointResponse (Maybe Text)
modifyDBClusterEndpointResponse_dbClusterEndpointIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe Text
dbClusterEndpointIdentifier :: Maybe Text
$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
dbClusterEndpointIdentifier} -> Maybe Text
dbClusterEndpointIdentifier) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe Text
a -> ModifyDBClusterEndpointResponse
s {$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpointResponse' :: Maybe Text
dbClusterEndpointIdentifier = Maybe Text
a} :: ModifyDBClusterEndpointResponse)
modifyDBClusterEndpointResponse_dbClusterEndpointResourceIdentifier :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe Prelude.Text)
modifyDBClusterEndpointResponse_dbClusterEndpointResourceIdentifier :: Lens' ModifyDBClusterEndpointResponse (Maybe Text)
modifyDBClusterEndpointResponse_dbClusterEndpointResourceIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe Text
dbClusterEndpointResourceIdentifier :: Maybe Text
$sel:dbClusterEndpointResourceIdentifier:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
dbClusterEndpointResourceIdentifier} -> Maybe Text
dbClusterEndpointResourceIdentifier) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe Text
a -> ModifyDBClusterEndpointResponse
s {$sel:dbClusterEndpointResourceIdentifier:ModifyDBClusterEndpointResponse' :: Maybe Text
dbClusterEndpointResourceIdentifier = Maybe Text
a} :: ModifyDBClusterEndpointResponse)
modifyDBClusterEndpointResponse_dbClusterIdentifier :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe Prelude.Text)
modifyDBClusterEndpointResponse_dbClusterIdentifier :: Lens' ModifyDBClusterEndpointResponse (Maybe Text)
modifyDBClusterEndpointResponse_dbClusterIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe Text
dbClusterIdentifier :: Maybe Text
$sel:dbClusterIdentifier:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
dbClusterIdentifier} -> Maybe Text
dbClusterIdentifier) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe Text
a -> ModifyDBClusterEndpointResponse
s {$sel:dbClusterIdentifier:ModifyDBClusterEndpointResponse' :: Maybe Text
dbClusterIdentifier = Maybe Text
a} :: ModifyDBClusterEndpointResponse)
modifyDBClusterEndpointResponse_endpoint :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe Prelude.Text)
modifyDBClusterEndpointResponse_endpoint :: Lens' ModifyDBClusterEndpointResponse (Maybe Text)
modifyDBClusterEndpointResponse_endpoint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe Text
endpoint :: Maybe Text
$sel:endpoint:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
endpoint} -> Maybe Text
endpoint) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe Text
a -> ModifyDBClusterEndpointResponse
s {$sel:endpoint:ModifyDBClusterEndpointResponse' :: Maybe Text
endpoint = Maybe Text
a} :: ModifyDBClusterEndpointResponse)
modifyDBClusterEndpointResponse_endpointType :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe Prelude.Text)
modifyDBClusterEndpointResponse_endpointType :: Lens' ModifyDBClusterEndpointResponse (Maybe Text)
modifyDBClusterEndpointResponse_endpointType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe Text
endpointType :: Maybe Text
$sel:endpointType:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
endpointType} -> Maybe Text
endpointType) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe Text
a -> ModifyDBClusterEndpointResponse
s {$sel:endpointType:ModifyDBClusterEndpointResponse' :: Maybe Text
endpointType = Maybe Text
a} :: ModifyDBClusterEndpointResponse)
modifyDBClusterEndpointResponse_excludedMembers :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe [Prelude.Text])
modifyDBClusterEndpointResponse_excludedMembers :: Lens' ModifyDBClusterEndpointResponse (Maybe [Text])
modifyDBClusterEndpointResponse_excludedMembers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe [Text]
excludedMembers :: Maybe [Text]
$sel:excludedMembers:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe [Text]
excludedMembers} -> Maybe [Text]
excludedMembers) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe [Text]
a -> ModifyDBClusterEndpointResponse
s {$sel:excludedMembers:ModifyDBClusterEndpointResponse' :: Maybe [Text]
excludedMembers = Maybe [Text]
a} :: ModifyDBClusterEndpointResponse) 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
modifyDBClusterEndpointResponse_staticMembers :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe [Prelude.Text])
modifyDBClusterEndpointResponse_staticMembers :: Lens' ModifyDBClusterEndpointResponse (Maybe [Text])
modifyDBClusterEndpointResponse_staticMembers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe [Text]
staticMembers :: Maybe [Text]
$sel:staticMembers:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe [Text]
staticMembers} -> Maybe [Text]
staticMembers) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe [Text]
a -> ModifyDBClusterEndpointResponse
s {$sel:staticMembers:ModifyDBClusterEndpointResponse' :: Maybe [Text]
staticMembers = Maybe [Text]
a} :: ModifyDBClusterEndpointResponse) 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
modifyDBClusterEndpointResponse_status :: Lens.Lens' ModifyDBClusterEndpointResponse (Prelude.Maybe Prelude.Text)
modifyDBClusterEndpointResponse_status :: Lens' ModifyDBClusterEndpointResponse (Maybe Text)
modifyDBClusterEndpointResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Maybe Text
status :: Maybe Text
$sel:status:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
status} -> Maybe Text
status) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Maybe Text
a -> ModifyDBClusterEndpointResponse
s {$sel:status:ModifyDBClusterEndpointResponse' :: Maybe Text
status = Maybe Text
a} :: ModifyDBClusterEndpointResponse)
modifyDBClusterEndpointResponse_httpStatus :: Lens.Lens' ModifyDBClusterEndpointResponse Prelude.Int
modifyDBClusterEndpointResponse_httpStatus :: Lens' ModifyDBClusterEndpointResponse Int
modifyDBClusterEndpointResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ModifyDBClusterEndpointResponse' {Int
httpStatus :: Int
$sel:httpStatus:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ModifyDBClusterEndpointResponse
s@ModifyDBClusterEndpointResponse' {} Int
a -> ModifyDBClusterEndpointResponse
s {$sel:httpStatus:ModifyDBClusterEndpointResponse' :: Int
httpStatus = Int
a} :: ModifyDBClusterEndpointResponse)
instance
Prelude.NFData
ModifyDBClusterEndpointResponse
where
rnf :: ModifyDBClusterEndpointResponse -> ()
rnf ModifyDBClusterEndpointResponse' {Int
Maybe [Text]
Maybe Text
httpStatus :: Int
status :: Maybe Text
staticMembers :: Maybe [Text]
excludedMembers :: Maybe [Text]
endpointType :: Maybe Text
endpoint :: Maybe Text
dbClusterIdentifier :: Maybe Text
dbClusterEndpointResourceIdentifier :: Maybe Text
dbClusterEndpointIdentifier :: Maybe Text
dbClusterEndpointArn :: Maybe Text
customEndpointType :: Maybe Text
$sel:httpStatus:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Int
$sel:status:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
$sel:staticMembers:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe [Text]
$sel:excludedMembers:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe [Text]
$sel:endpointType:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
$sel:endpoint:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
$sel:dbClusterIdentifier:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
$sel:dbClusterEndpointResourceIdentifier:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
$sel:dbClusterEndpointIdentifier:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
$sel:dbClusterEndpointArn:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
$sel:customEndpointType:ModifyDBClusterEndpointResponse' :: ModifyDBClusterEndpointResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customEndpointType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbClusterEndpointArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbClusterEndpointIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbClusterEndpointResourceIdentifier
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 Text
endpoint
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
endpointType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
excludedMembers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
staticMembers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus