{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.RDS.DeleteDBParameterGroup
(
deleteDBParameterGroup
, DeleteDBParameterGroup
, ddbpgDBParameterGroupName
, deleteDBParameterGroupResponse
, DeleteDBParameterGroupResponse
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.RDS.Types
import Network.AWS.RDS.Types.Product
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteDBParameterGroup = DeleteDBParameterGroup'
{ _ddbpgDBParameterGroupName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDBParameterGroup
:: Text
-> DeleteDBParameterGroup
deleteDBParameterGroup pDBParameterGroupName_ =
DeleteDBParameterGroup' {_ddbpgDBParameterGroupName = pDBParameterGroupName_}
ddbpgDBParameterGroupName :: Lens' DeleteDBParameterGroup Text
ddbpgDBParameterGroupName = lens _ddbpgDBParameterGroupName (\ s a -> s{_ddbpgDBParameterGroupName = a})
instance AWSRequest DeleteDBParameterGroup where
type Rs DeleteDBParameterGroup =
DeleteDBParameterGroupResponse
request = postQuery rds
response
= receiveNull DeleteDBParameterGroupResponse'
instance Hashable DeleteDBParameterGroup where
instance NFData DeleteDBParameterGroup where
instance ToHeaders DeleteDBParameterGroup where
toHeaders = const mempty
instance ToPath DeleteDBParameterGroup where
toPath = const "/"
instance ToQuery DeleteDBParameterGroup where
toQuery DeleteDBParameterGroup'{..}
= mconcat
["Action" =:
("DeleteDBParameterGroup" :: ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"DBParameterGroupName" =: _ddbpgDBParameterGroupName]
data DeleteDBParameterGroupResponse =
DeleteDBParameterGroupResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDBParameterGroupResponse
:: DeleteDBParameterGroupResponse
deleteDBParameterGroupResponse = DeleteDBParameterGroupResponse'
instance NFData DeleteDBParameterGroupResponse where