{-# 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.Redshift.DeleteClusterSubnetGroup
(
deleteClusterSubnetGroup
, DeleteClusterSubnetGroup
, dcsgClusterSubnetGroupName
, deleteClusterSubnetGroupResponse
, DeleteClusterSubnetGroupResponse
) 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 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 Hashable DeleteClusterSubnetGroup where
instance NFData DeleteClusterSubnetGroup where
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'
instance NFData DeleteClusterSubnetGroupResponse
where