module Network.AWS.OpsWorks.DeregisterRdsDbInstance
(
DeregisterRdsDbInstance
, deregisterRdsDbInstance
, drdiRdsDbInstanceArn
, DeregisterRdsDbInstanceResponse
, deregisterRdsDbInstanceResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
newtype DeregisterRdsDbInstance = DeregisterRdsDbInstance
{ _drdiRdsDbInstanceArn :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
deregisterRdsDbInstance :: Text
-> DeregisterRdsDbInstance
deregisterRdsDbInstance p1 = DeregisterRdsDbInstance
{ _drdiRdsDbInstanceArn = p1
}
drdiRdsDbInstanceArn :: Lens' DeregisterRdsDbInstance Text
drdiRdsDbInstanceArn =
lens _drdiRdsDbInstanceArn (\s a -> s { _drdiRdsDbInstanceArn = a })
data DeregisterRdsDbInstanceResponse = DeregisterRdsDbInstanceResponse
deriving (Eq, Ord, Show, Generic)
deregisterRdsDbInstanceResponse :: DeregisterRdsDbInstanceResponse
deregisterRdsDbInstanceResponse = DeregisterRdsDbInstanceResponse
instance ToPath DeregisterRdsDbInstance where
toPath = const "/"
instance ToQuery DeregisterRdsDbInstance where
toQuery = const mempty
instance ToHeaders DeregisterRdsDbInstance
instance ToJSON DeregisterRdsDbInstance where
toJSON DeregisterRdsDbInstance{..} = object
[ "RdsDbInstanceArn" .= _drdiRdsDbInstanceArn
]
instance AWSRequest DeregisterRdsDbInstance where
type Sv DeregisterRdsDbInstance = OpsWorks
type Rs DeregisterRdsDbInstance = DeregisterRdsDbInstanceResponse
request = post "DeregisterRdsDbInstance"
response = nullResponse DeregisterRdsDbInstanceResponse