module Network.AWS.Redshift.DeleteClusterSubnetGroup
(
deleteClusterSubnetGroup
, DeleteClusterSubnetGroup
, dcsgClusterSubnetGroupName
, deleteClusterSubnetGroupResponse
, DeleteClusterSubnetGroupResponse
) 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 DeleteClusterSubnetGroup = DeleteClusterSubnetGroup'
{ _dcsgClusterSubnetGroupName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteClusterSubnetGroup
:: Text
-> DeleteClusterSubnetGroup
deleteClusterSubnetGroup pClusterSubnetGroupName_ =
DeleteClusterSubnetGroup'
{ _dcsgClusterSubnetGroupName = pClusterSubnetGroupName_
}
dcsgClusterSubnetGroupName :: Lens' DeleteClusterSubnetGroup Text
dcsgClusterSubnetGroupName = lens _dcsgClusterSubnetGroupName (\ s a -> s{_dcsgClusterSubnetGroupName = a});
instance AWSRequest DeleteClusterSubnetGroup where
type Rs DeleteClusterSubnetGroup =
DeleteClusterSubnetGroupResponse
request = postQuery redshift
response
= receiveNull DeleteClusterSubnetGroupResponse'
instance ToHeaders DeleteClusterSubnetGroup where
toHeaders = const mempty
instance ToPath DeleteClusterSubnetGroup where
toPath = const "/"
instance ToQuery DeleteClusterSubnetGroup where
toQuery DeleteClusterSubnetGroup'{..}
= mconcat
["Action" =:
("DeleteClusterSubnetGroup" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"ClusterSubnetGroupName" =:
_dcsgClusterSubnetGroupName]
data DeleteClusterSubnetGroupResponse =
DeleteClusterSubnetGroupResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteClusterSubnetGroupResponse
:: DeleteClusterSubnetGroupResponse
deleteClusterSubnetGroupResponse = DeleteClusterSubnetGroupResponse'