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