{-# 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.DeregisterDBProxyTargets
(
DeregisterDBProxyTargets (..),
newDeregisterDBProxyTargets,
deregisterDBProxyTargets_dbClusterIdentifiers,
deregisterDBProxyTargets_dbInstanceIdentifiers,
deregisterDBProxyTargets_targetGroupName,
deregisterDBProxyTargets_dbProxyName,
DeregisterDBProxyTargetsResponse (..),
newDeregisterDBProxyTargetsResponse,
deregisterDBProxyTargetsResponse_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 DeregisterDBProxyTargets = DeregisterDBProxyTargets'
{
DeregisterDBProxyTargets -> Maybe [Text]
dbClusterIdentifiers :: Prelude.Maybe [Prelude.Text],
DeregisterDBProxyTargets -> Maybe [Text]
dbInstanceIdentifiers :: Prelude.Maybe [Prelude.Text],
DeregisterDBProxyTargets -> Maybe Text
targetGroupName :: Prelude.Maybe Prelude.Text,
DeregisterDBProxyTargets -> Text
dbProxyName :: Prelude.Text
}
deriving (DeregisterDBProxyTargets -> DeregisterDBProxyTargets -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterDBProxyTargets -> DeregisterDBProxyTargets -> Bool
$c/= :: DeregisterDBProxyTargets -> DeregisterDBProxyTargets -> Bool
== :: DeregisterDBProxyTargets -> DeregisterDBProxyTargets -> Bool
$c== :: DeregisterDBProxyTargets -> DeregisterDBProxyTargets -> Bool
Prelude.Eq, ReadPrec [DeregisterDBProxyTargets]
ReadPrec DeregisterDBProxyTargets
Int -> ReadS DeregisterDBProxyTargets
ReadS [DeregisterDBProxyTargets]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterDBProxyTargets]
$creadListPrec :: ReadPrec [DeregisterDBProxyTargets]
readPrec :: ReadPrec DeregisterDBProxyTargets
$creadPrec :: ReadPrec DeregisterDBProxyTargets
readList :: ReadS [DeregisterDBProxyTargets]
$creadList :: ReadS [DeregisterDBProxyTargets]
readsPrec :: Int -> ReadS DeregisterDBProxyTargets
$creadsPrec :: Int -> ReadS DeregisterDBProxyTargets
Prelude.Read, Int -> DeregisterDBProxyTargets -> ShowS
[DeregisterDBProxyTargets] -> ShowS
DeregisterDBProxyTargets -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterDBProxyTargets] -> ShowS
$cshowList :: [DeregisterDBProxyTargets] -> ShowS
show :: DeregisterDBProxyTargets -> String
$cshow :: DeregisterDBProxyTargets -> String
showsPrec :: Int -> DeregisterDBProxyTargets -> ShowS
$cshowsPrec :: Int -> DeregisterDBProxyTargets -> ShowS
Prelude.Show, forall x.
Rep DeregisterDBProxyTargets x -> DeregisterDBProxyTargets
forall x.
DeregisterDBProxyTargets -> Rep DeregisterDBProxyTargets x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeregisterDBProxyTargets x -> DeregisterDBProxyTargets
$cfrom :: forall x.
DeregisterDBProxyTargets -> Rep DeregisterDBProxyTargets x
Prelude.Generic)
newDeregisterDBProxyTargets ::
Prelude.Text ->
DeregisterDBProxyTargets
newDeregisterDBProxyTargets :: Text -> DeregisterDBProxyTargets
newDeregisterDBProxyTargets Text
pDBProxyName_ =
DeregisterDBProxyTargets'
{ $sel:dbClusterIdentifiers:DeregisterDBProxyTargets' :: Maybe [Text]
dbClusterIdentifiers =
forall a. Maybe a
Prelude.Nothing,
$sel:dbInstanceIdentifiers:DeregisterDBProxyTargets' :: Maybe [Text]
dbInstanceIdentifiers = forall a. Maybe a
Prelude.Nothing,
$sel:targetGroupName:DeregisterDBProxyTargets' :: Maybe Text
targetGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:dbProxyName:DeregisterDBProxyTargets' :: Text
dbProxyName = Text
pDBProxyName_
}
deregisterDBProxyTargets_dbClusterIdentifiers :: Lens.Lens' DeregisterDBProxyTargets (Prelude.Maybe [Prelude.Text])
deregisterDBProxyTargets_dbClusterIdentifiers :: Lens' DeregisterDBProxyTargets (Maybe [Text])
deregisterDBProxyTargets_dbClusterIdentifiers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterDBProxyTargets' {Maybe [Text]
dbClusterIdentifiers :: Maybe [Text]
$sel:dbClusterIdentifiers:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe [Text]
dbClusterIdentifiers} -> Maybe [Text]
dbClusterIdentifiers) (\s :: DeregisterDBProxyTargets
s@DeregisterDBProxyTargets' {} Maybe [Text]
a -> DeregisterDBProxyTargets
s {$sel:dbClusterIdentifiers:DeregisterDBProxyTargets' :: Maybe [Text]
dbClusterIdentifiers = Maybe [Text]
a} :: DeregisterDBProxyTargets) 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
deregisterDBProxyTargets_dbInstanceIdentifiers :: Lens.Lens' DeregisterDBProxyTargets (Prelude.Maybe [Prelude.Text])
deregisterDBProxyTargets_dbInstanceIdentifiers :: Lens' DeregisterDBProxyTargets (Maybe [Text])
deregisterDBProxyTargets_dbInstanceIdentifiers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterDBProxyTargets' {Maybe [Text]
dbInstanceIdentifiers :: Maybe [Text]
$sel:dbInstanceIdentifiers:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe [Text]
dbInstanceIdentifiers} -> Maybe [Text]
dbInstanceIdentifiers) (\s :: DeregisterDBProxyTargets
s@DeregisterDBProxyTargets' {} Maybe [Text]
a -> DeregisterDBProxyTargets
s {$sel:dbInstanceIdentifiers:DeregisterDBProxyTargets' :: Maybe [Text]
dbInstanceIdentifiers = Maybe [Text]
a} :: DeregisterDBProxyTargets) 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
deregisterDBProxyTargets_targetGroupName :: Lens.Lens' DeregisterDBProxyTargets (Prelude.Maybe Prelude.Text)
deregisterDBProxyTargets_targetGroupName :: Lens' DeregisterDBProxyTargets (Maybe Text)
deregisterDBProxyTargets_targetGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterDBProxyTargets' {Maybe Text
targetGroupName :: Maybe Text
$sel:targetGroupName:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe Text
targetGroupName} -> Maybe Text
targetGroupName) (\s :: DeregisterDBProxyTargets
s@DeregisterDBProxyTargets' {} Maybe Text
a -> DeregisterDBProxyTargets
s {$sel:targetGroupName:DeregisterDBProxyTargets' :: Maybe Text
targetGroupName = Maybe Text
a} :: DeregisterDBProxyTargets)
deregisterDBProxyTargets_dbProxyName :: Lens.Lens' DeregisterDBProxyTargets Prelude.Text
deregisterDBProxyTargets_dbProxyName :: Lens' DeregisterDBProxyTargets Text
deregisterDBProxyTargets_dbProxyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterDBProxyTargets' {Text
dbProxyName :: Text
$sel:dbProxyName:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Text
dbProxyName} -> Text
dbProxyName) (\s :: DeregisterDBProxyTargets
s@DeregisterDBProxyTargets' {} Text
a -> DeregisterDBProxyTargets
s {$sel:dbProxyName:DeregisterDBProxyTargets' :: Text
dbProxyName = Text
a} :: DeregisterDBProxyTargets)
instance Core.AWSRequest DeregisterDBProxyTargets where
type
AWSResponse DeregisterDBProxyTargets =
DeregisterDBProxyTargetsResponse
request :: (Service -> Service)
-> DeregisterDBProxyTargets -> Request DeregisterDBProxyTargets
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 DeregisterDBProxyTargets
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeregisterDBProxyTargets)))
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
"DeregisterDBProxyTargetsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> DeregisterDBProxyTargetsResponse
DeregisterDBProxyTargetsResponse'
forall (f :: * -> *) a b. Functor 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 DeregisterDBProxyTargets where
hashWithSalt :: Int -> DeregisterDBProxyTargets -> Int
hashWithSalt Int
_salt DeregisterDBProxyTargets' {Maybe [Text]
Maybe Text
Text
dbProxyName :: Text
targetGroupName :: Maybe Text
dbInstanceIdentifiers :: Maybe [Text]
dbClusterIdentifiers :: Maybe [Text]
$sel:dbProxyName:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Text
$sel:targetGroupName:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe Text
$sel:dbInstanceIdentifiers:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe [Text]
$sel:dbClusterIdentifiers:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
dbClusterIdentifiers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
dbInstanceIdentifiers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
targetGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dbProxyName
instance Prelude.NFData DeregisterDBProxyTargets where
rnf :: DeregisterDBProxyTargets -> ()
rnf DeregisterDBProxyTargets' {Maybe [Text]
Maybe Text
Text
dbProxyName :: Text
targetGroupName :: Maybe Text
dbInstanceIdentifiers :: Maybe [Text]
dbClusterIdentifiers :: Maybe [Text]
$sel:dbProxyName:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Text
$sel:targetGroupName:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe Text
$sel:dbInstanceIdentifiers:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe [Text]
$sel:dbClusterIdentifiers:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
dbClusterIdentifiers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
dbInstanceIdentifiers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
targetGroupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dbProxyName
instance Data.ToHeaders DeregisterDBProxyTargets where
toHeaders :: DeregisterDBProxyTargets -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeregisterDBProxyTargets where
toPath :: DeregisterDBProxyTargets -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeregisterDBProxyTargets where
toQuery :: DeregisterDBProxyTargets -> QueryString
toQuery DeregisterDBProxyTargets' {Maybe [Text]
Maybe Text
Text
dbProxyName :: Text
targetGroupName :: Maybe Text
dbInstanceIdentifiers :: Maybe [Text]
dbClusterIdentifiers :: Maybe [Text]
$sel:dbProxyName:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Text
$sel:targetGroupName:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe Text
$sel:dbInstanceIdentifiers:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe [Text]
$sel:dbClusterIdentifiers:DeregisterDBProxyTargets' :: DeregisterDBProxyTargets -> Maybe [Text]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DeregisterDBProxyTargets" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"DBClusterIdentifiers"
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]
dbClusterIdentifiers
),
ByteString
"DBInstanceIdentifiers"
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]
dbInstanceIdentifiers
),
ByteString
"TargetGroupName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
targetGroupName,
ByteString
"DBProxyName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
dbProxyName
]
data DeregisterDBProxyTargetsResponse = DeregisterDBProxyTargetsResponse'
{
DeregisterDBProxyTargetsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeregisterDBProxyTargetsResponse
-> DeregisterDBProxyTargetsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterDBProxyTargetsResponse
-> DeregisterDBProxyTargetsResponse -> Bool
$c/= :: DeregisterDBProxyTargetsResponse
-> DeregisterDBProxyTargetsResponse -> Bool
== :: DeregisterDBProxyTargetsResponse
-> DeregisterDBProxyTargetsResponse -> Bool
$c== :: DeregisterDBProxyTargetsResponse
-> DeregisterDBProxyTargetsResponse -> Bool
Prelude.Eq, ReadPrec [DeregisterDBProxyTargetsResponse]
ReadPrec DeregisterDBProxyTargetsResponse
Int -> ReadS DeregisterDBProxyTargetsResponse
ReadS [DeregisterDBProxyTargetsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterDBProxyTargetsResponse]
$creadListPrec :: ReadPrec [DeregisterDBProxyTargetsResponse]
readPrec :: ReadPrec DeregisterDBProxyTargetsResponse
$creadPrec :: ReadPrec DeregisterDBProxyTargetsResponse
readList :: ReadS [DeregisterDBProxyTargetsResponse]
$creadList :: ReadS [DeregisterDBProxyTargetsResponse]
readsPrec :: Int -> ReadS DeregisterDBProxyTargetsResponse
$creadsPrec :: Int -> ReadS DeregisterDBProxyTargetsResponse
Prelude.Read, Int -> DeregisterDBProxyTargetsResponse -> ShowS
[DeregisterDBProxyTargetsResponse] -> ShowS
DeregisterDBProxyTargetsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterDBProxyTargetsResponse] -> ShowS
$cshowList :: [DeregisterDBProxyTargetsResponse] -> ShowS
show :: DeregisterDBProxyTargetsResponse -> String
$cshow :: DeregisterDBProxyTargetsResponse -> String
showsPrec :: Int -> DeregisterDBProxyTargetsResponse -> ShowS
$cshowsPrec :: Int -> DeregisterDBProxyTargetsResponse -> ShowS
Prelude.Show, forall x.
Rep DeregisterDBProxyTargetsResponse x
-> DeregisterDBProxyTargetsResponse
forall x.
DeregisterDBProxyTargetsResponse
-> Rep DeregisterDBProxyTargetsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeregisterDBProxyTargetsResponse x
-> DeregisterDBProxyTargetsResponse
$cfrom :: forall x.
DeregisterDBProxyTargetsResponse
-> Rep DeregisterDBProxyTargetsResponse x
Prelude.Generic)
newDeregisterDBProxyTargetsResponse ::
Prelude.Int ->
DeregisterDBProxyTargetsResponse
newDeregisterDBProxyTargetsResponse :: Int -> DeregisterDBProxyTargetsResponse
newDeregisterDBProxyTargetsResponse Int
pHttpStatus_ =
DeregisterDBProxyTargetsResponse'
{ $sel:httpStatus:DeregisterDBProxyTargetsResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deregisterDBProxyTargetsResponse_httpStatus :: Lens.Lens' DeregisterDBProxyTargetsResponse Prelude.Int
deregisterDBProxyTargetsResponse_httpStatus :: Lens' DeregisterDBProxyTargetsResponse Int
deregisterDBProxyTargetsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterDBProxyTargetsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeregisterDBProxyTargetsResponse' :: DeregisterDBProxyTargetsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeregisterDBProxyTargetsResponse
s@DeregisterDBProxyTargetsResponse' {} Int
a -> DeregisterDBProxyTargetsResponse
s {$sel:httpStatus:DeregisterDBProxyTargetsResponse' :: Int
httpStatus = Int
a} :: DeregisterDBProxyTargetsResponse)
instance
Prelude.NFData
DeregisterDBProxyTargetsResponse
where
rnf :: DeregisterDBProxyTargetsResponse -> ()
rnf DeregisterDBProxyTargetsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeregisterDBProxyTargetsResponse' :: DeregisterDBProxyTargetsResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus