{-# 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.OpsWorks.DeregisterRdsDbInstance
(
DeregisterRdsDbInstance (..),
newDeregisterRdsDbInstance,
deregisterRdsDbInstance_rdsDbInstanceArn,
DeregisterRdsDbInstanceResponse (..),
newDeregisterRdsDbInstanceResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.OpsWorks.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeregisterRdsDbInstance = DeregisterRdsDbInstance'
{
DeregisterRdsDbInstance -> Text
rdsDbInstanceArn :: Prelude.Text
}
deriving (DeregisterRdsDbInstance -> DeregisterRdsDbInstance -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterRdsDbInstance -> DeregisterRdsDbInstance -> Bool
$c/= :: DeregisterRdsDbInstance -> DeregisterRdsDbInstance -> Bool
== :: DeregisterRdsDbInstance -> DeregisterRdsDbInstance -> Bool
$c== :: DeregisterRdsDbInstance -> DeregisterRdsDbInstance -> Bool
Prelude.Eq, ReadPrec [DeregisterRdsDbInstance]
ReadPrec DeregisterRdsDbInstance
Int -> ReadS DeregisterRdsDbInstance
ReadS [DeregisterRdsDbInstance]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterRdsDbInstance]
$creadListPrec :: ReadPrec [DeregisterRdsDbInstance]
readPrec :: ReadPrec DeregisterRdsDbInstance
$creadPrec :: ReadPrec DeregisterRdsDbInstance
readList :: ReadS [DeregisterRdsDbInstance]
$creadList :: ReadS [DeregisterRdsDbInstance]
readsPrec :: Int -> ReadS DeregisterRdsDbInstance
$creadsPrec :: Int -> ReadS DeregisterRdsDbInstance
Prelude.Read, Int -> DeregisterRdsDbInstance -> ShowS
[DeregisterRdsDbInstance] -> ShowS
DeregisterRdsDbInstance -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterRdsDbInstance] -> ShowS
$cshowList :: [DeregisterRdsDbInstance] -> ShowS
show :: DeregisterRdsDbInstance -> String
$cshow :: DeregisterRdsDbInstance -> String
showsPrec :: Int -> DeregisterRdsDbInstance -> ShowS
$cshowsPrec :: Int -> DeregisterRdsDbInstance -> ShowS
Prelude.Show, forall x. Rep DeregisterRdsDbInstance x -> DeregisterRdsDbInstance
forall x. DeregisterRdsDbInstance -> Rep DeregisterRdsDbInstance x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeregisterRdsDbInstance x -> DeregisterRdsDbInstance
$cfrom :: forall x. DeregisterRdsDbInstance -> Rep DeregisterRdsDbInstance x
Prelude.Generic)
newDeregisterRdsDbInstance ::
Prelude.Text ->
DeregisterRdsDbInstance
newDeregisterRdsDbInstance :: Text -> DeregisterRdsDbInstance
newDeregisterRdsDbInstance Text
pRdsDbInstanceArn_ =
DeregisterRdsDbInstance'
{ $sel:rdsDbInstanceArn:DeregisterRdsDbInstance' :: Text
rdsDbInstanceArn =
Text
pRdsDbInstanceArn_
}
deregisterRdsDbInstance_rdsDbInstanceArn :: Lens.Lens' DeregisterRdsDbInstance Prelude.Text
deregisterRdsDbInstance_rdsDbInstanceArn :: Lens' DeregisterRdsDbInstance Text
deregisterRdsDbInstance_rdsDbInstanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterRdsDbInstance' {Text
rdsDbInstanceArn :: Text
$sel:rdsDbInstanceArn:DeregisterRdsDbInstance' :: DeregisterRdsDbInstance -> Text
rdsDbInstanceArn} -> Text
rdsDbInstanceArn) (\s :: DeregisterRdsDbInstance
s@DeregisterRdsDbInstance' {} Text
a -> DeregisterRdsDbInstance
s {$sel:rdsDbInstanceArn:DeregisterRdsDbInstance' :: Text
rdsDbInstanceArn = Text
a} :: DeregisterRdsDbInstance)
instance Core.AWSRequest DeregisterRdsDbInstance where
type
AWSResponse DeregisterRdsDbInstance =
DeregisterRdsDbInstanceResponse
request :: (Service -> Service)
-> DeregisterRdsDbInstance -> Request DeregisterRdsDbInstance
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeregisterRdsDbInstance
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeregisterRdsDbInstance)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeregisterRdsDbInstanceResponse
DeregisterRdsDbInstanceResponse'
instance Prelude.Hashable DeregisterRdsDbInstance where
hashWithSalt :: Int -> DeregisterRdsDbInstance -> Int
hashWithSalt Int
_salt DeregisterRdsDbInstance' {Text
rdsDbInstanceArn :: Text
$sel:rdsDbInstanceArn:DeregisterRdsDbInstance' :: DeregisterRdsDbInstance -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
rdsDbInstanceArn
instance Prelude.NFData DeregisterRdsDbInstance where
rnf :: DeregisterRdsDbInstance -> ()
rnf DeregisterRdsDbInstance' {Text
rdsDbInstanceArn :: Text
$sel:rdsDbInstanceArn:DeregisterRdsDbInstance' :: DeregisterRdsDbInstance -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
rdsDbInstanceArn
instance Data.ToHeaders DeregisterRdsDbInstance where
toHeaders :: DeregisterRdsDbInstance -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"OpsWorks_20130218.DeregisterRdsDbInstance" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeregisterRdsDbInstance where
toJSON :: DeregisterRdsDbInstance -> Value
toJSON DeregisterRdsDbInstance' {Text
rdsDbInstanceArn :: Text
$sel:rdsDbInstanceArn:DeregisterRdsDbInstance' :: DeregisterRdsDbInstance -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"RdsDbInstanceArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
rdsDbInstanceArn)
]
)
instance Data.ToPath DeregisterRdsDbInstance where
toPath :: DeregisterRdsDbInstance -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeregisterRdsDbInstance where
toQuery :: DeregisterRdsDbInstance -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeregisterRdsDbInstanceResponse = DeregisterRdsDbInstanceResponse'
{
}
deriving (DeregisterRdsDbInstanceResponse
-> DeregisterRdsDbInstanceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterRdsDbInstanceResponse
-> DeregisterRdsDbInstanceResponse -> Bool
$c/= :: DeregisterRdsDbInstanceResponse
-> DeregisterRdsDbInstanceResponse -> Bool
== :: DeregisterRdsDbInstanceResponse
-> DeregisterRdsDbInstanceResponse -> Bool
$c== :: DeregisterRdsDbInstanceResponse
-> DeregisterRdsDbInstanceResponse -> Bool
Prelude.Eq, ReadPrec [DeregisterRdsDbInstanceResponse]
ReadPrec DeregisterRdsDbInstanceResponse
Int -> ReadS DeregisterRdsDbInstanceResponse
ReadS [DeregisterRdsDbInstanceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterRdsDbInstanceResponse]
$creadListPrec :: ReadPrec [DeregisterRdsDbInstanceResponse]
readPrec :: ReadPrec DeregisterRdsDbInstanceResponse
$creadPrec :: ReadPrec DeregisterRdsDbInstanceResponse
readList :: ReadS [DeregisterRdsDbInstanceResponse]
$creadList :: ReadS [DeregisterRdsDbInstanceResponse]
readsPrec :: Int -> ReadS DeregisterRdsDbInstanceResponse
$creadsPrec :: Int -> ReadS DeregisterRdsDbInstanceResponse
Prelude.Read, Int -> DeregisterRdsDbInstanceResponse -> ShowS
[DeregisterRdsDbInstanceResponse] -> ShowS
DeregisterRdsDbInstanceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterRdsDbInstanceResponse] -> ShowS
$cshowList :: [DeregisterRdsDbInstanceResponse] -> ShowS
show :: DeregisterRdsDbInstanceResponse -> String
$cshow :: DeregisterRdsDbInstanceResponse -> String
showsPrec :: Int -> DeregisterRdsDbInstanceResponse -> ShowS
$cshowsPrec :: Int -> DeregisterRdsDbInstanceResponse -> ShowS
Prelude.Show, forall x.
Rep DeregisterRdsDbInstanceResponse x
-> DeregisterRdsDbInstanceResponse
forall x.
DeregisterRdsDbInstanceResponse
-> Rep DeregisterRdsDbInstanceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeregisterRdsDbInstanceResponse x
-> DeregisterRdsDbInstanceResponse
$cfrom :: forall x.
DeregisterRdsDbInstanceResponse
-> Rep DeregisterRdsDbInstanceResponse x
Prelude.Generic)
newDeregisterRdsDbInstanceResponse ::
DeregisterRdsDbInstanceResponse
newDeregisterRdsDbInstanceResponse :: DeregisterRdsDbInstanceResponse
newDeregisterRdsDbInstanceResponse =
DeregisterRdsDbInstanceResponse
DeregisterRdsDbInstanceResponse'
instance
Prelude.NFData
DeregisterRdsDbInstanceResponse
where
rnf :: DeregisterRdsDbInstanceResponse -> ()
rnf DeregisterRdsDbInstanceResponse
_ = ()