module Network.AWS.Redshift.DeleteClusterSubnetGroup
(
DeleteClusterSubnetGroup
, deleteClusterSubnetGroup
, dcsgClusterSubnetGroupName
, DeleteClusterSubnetGroupResponse
, deleteClusterSubnetGroupResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.Redshift.Types
import qualified GHC.Exts
newtype DeleteClusterSubnetGroup = DeleteClusterSubnetGroup
{ _dcsgClusterSubnetGroupName :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
deleteClusterSubnetGroup :: Text
-> DeleteClusterSubnetGroup
deleteClusterSubnetGroup p1 = DeleteClusterSubnetGroup
{ _dcsgClusterSubnetGroupName = p1
}
dcsgClusterSubnetGroupName :: Lens' DeleteClusterSubnetGroup Text
dcsgClusterSubnetGroupName =
lens _dcsgClusterSubnetGroupName
(\s a -> s { _dcsgClusterSubnetGroupName = a })
data DeleteClusterSubnetGroupResponse = DeleteClusterSubnetGroupResponse
deriving (Eq, Ord, Read, Show, Generic)
deleteClusterSubnetGroupResponse :: DeleteClusterSubnetGroupResponse
deleteClusterSubnetGroupResponse = DeleteClusterSubnetGroupResponse
instance ToPath DeleteClusterSubnetGroup where
toPath = const "/"
instance ToQuery DeleteClusterSubnetGroup where
toQuery DeleteClusterSubnetGroup{..} = mconcat
[ "ClusterSubnetGroupName" =? _dcsgClusterSubnetGroupName
]
instance ToHeaders DeleteClusterSubnetGroup
instance AWSRequest DeleteClusterSubnetGroup where
type Sv DeleteClusterSubnetGroup = Redshift
type Rs DeleteClusterSubnetGroup = DeleteClusterSubnetGroupResponse
request = post "DeleteClusterSubnetGroup"
response = nullResponse DeleteClusterSubnetGroupResponse