module Network.AWS.Redshift.DeleteClusterParameterGroup
(
deleteClusterParameterGroup
, DeleteClusterParameterGroup
, dParameterGroupName
, deleteClusterParameterGroupResponse
, DeleteClusterParameterGroupResponse
) where
import Network.AWS.Lens
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 Hashable DeleteClusterParameterGroup where
instance NFData DeleteClusterParameterGroup where
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'
instance NFData DeleteClusterParameterGroupResponse
where