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