{-# 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.DeleteDBClusterParameterGroup
(
deleteDBClusterParameterGroup
, DeleteDBClusterParameterGroup
, ddbcpgDBClusterParameterGroupName
, deleteDBClusterParameterGroupResponse
, DeleteDBClusterParameterGroupResponse
) 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 DeleteDBClusterParameterGroup = DeleteDBClusterParameterGroup'
{ _ddbcpgDBClusterParameterGroupName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDBClusterParameterGroup
:: Text
-> DeleteDBClusterParameterGroup
deleteDBClusterParameterGroup pDBClusterParameterGroupName_ =
DeleteDBClusterParameterGroup'
{_ddbcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_}
ddbcpgDBClusterParameterGroupName :: Lens' DeleteDBClusterParameterGroup Text
ddbcpgDBClusterParameterGroupName = lens _ddbcpgDBClusterParameterGroupName (\ s a -> s{_ddbcpgDBClusterParameterGroupName = a})
instance AWSRequest DeleteDBClusterParameterGroup
where
type Rs DeleteDBClusterParameterGroup =
DeleteDBClusterParameterGroupResponse
request = postQuery rds
response
= receiveNull DeleteDBClusterParameterGroupResponse'
instance Hashable DeleteDBClusterParameterGroup where
instance NFData DeleteDBClusterParameterGroup where
instance ToHeaders DeleteDBClusterParameterGroup
where
toHeaders = const mempty
instance ToPath DeleteDBClusterParameterGroup where
toPath = const "/"
instance ToQuery DeleteDBClusterParameterGroup where
toQuery DeleteDBClusterParameterGroup'{..}
= mconcat
["Action" =:
("DeleteDBClusterParameterGroup" :: ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"DBClusterParameterGroupName" =:
_ddbcpgDBClusterParameterGroupName]
data DeleteDBClusterParameterGroupResponse =
DeleteDBClusterParameterGroupResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDBClusterParameterGroupResponse
:: DeleteDBClusterParameterGroupResponse
deleteDBClusterParameterGroupResponse = DeleteDBClusterParameterGroupResponse'
instance NFData DeleteDBClusterParameterGroupResponse
where