module Network.AWS.Redshift.DeleteClusterParameterGroup
(
deleteClusterParameterGroup
, DeleteClusterParameterGroup
, dParameterGroupName
, deleteClusterParameterGroupResponse
, DeleteClusterParameterGroupResponse
) where
import Network.AWS.Prelude
import Network.AWS.Redshift.Types
import Network.AWS.Redshift.Types.Product
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteClusterParameterGroup = DeleteClusterParameterGroup'
{ _dParameterGroupName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteClusterParameterGroup
:: Text
-> DeleteClusterParameterGroup
deleteClusterParameterGroup pParameterGroupName_ =
DeleteClusterParameterGroup'
{ _dParameterGroupName = pParameterGroupName_
}
dParameterGroupName :: Lens' DeleteClusterParameterGroup Text
dParameterGroupName = lens _dParameterGroupName (\ s a -> s{_dParameterGroupName = a});
instance AWSRequest DeleteClusterParameterGroup where
type Rs DeleteClusterParameterGroup =
DeleteClusterParameterGroupResponse
request = postQuery redshift
response
= receiveNull DeleteClusterParameterGroupResponse'
instance ToHeaders DeleteClusterParameterGroup where
toHeaders = const mempty
instance ToPath DeleteClusterParameterGroup where
toPath = const "/"
instance ToQuery DeleteClusterParameterGroup where
toQuery DeleteClusterParameterGroup'{..}
= mconcat
["Action" =:
("DeleteClusterParameterGroup" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"ParameterGroupName" =: _dParameterGroupName]
data DeleteClusterParameterGroupResponse =
DeleteClusterParameterGroupResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteClusterParameterGroupResponse
:: DeleteClusterParameterGroupResponse
deleteClusterParameterGroupResponse = DeleteClusterParameterGroupResponse'