module Network.Google.Resource.Dataproc.Projects.Regions.Clusters.Delete
(
ProjectsRegionsClustersDeleteResource
, projectsRegionsClustersDelete
, ProjectsRegionsClustersDelete
, prcdXgafv
, prcdUploadProtocol
, prcdPp
, prcdAccessToken
, prcdUploadType
, prcdBearerToken
, prcdClusterName
, prcdRegion
, prcdProjectId
, prcdCallback
) where
import Network.Google.Dataproc.Types
import Network.Google.Prelude
type ProjectsRegionsClustersDeleteResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"regions" :>
Capture "region" Text :>
"clusters" :>
Capture "clusterName" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON] Operation
data ProjectsRegionsClustersDelete = ProjectsRegionsClustersDelete'
{ _prcdXgafv :: !(Maybe Text)
, _prcdUploadProtocol :: !(Maybe Text)
, _prcdPp :: !Bool
, _prcdAccessToken :: !(Maybe Text)
, _prcdUploadType :: !(Maybe Text)
, _prcdBearerToken :: !(Maybe Text)
, _prcdClusterName :: !Text
, _prcdRegion :: !Text
, _prcdProjectId :: !Text
, _prcdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsRegionsClustersDelete
:: Text
-> Text
-> Text
-> ProjectsRegionsClustersDelete
projectsRegionsClustersDelete pPrcdClusterName_ pPrcdRegion_ pPrcdProjectId_ =
ProjectsRegionsClustersDelete'
{ _prcdXgafv = Nothing
, _prcdUploadProtocol = Nothing
, _prcdPp = True
, _prcdAccessToken = Nothing
, _prcdUploadType = Nothing
, _prcdBearerToken = Nothing
, _prcdClusterName = pPrcdClusterName_
, _prcdRegion = pPrcdRegion_
, _prcdProjectId = pPrcdProjectId_
, _prcdCallback = Nothing
}
prcdXgafv :: Lens' ProjectsRegionsClustersDelete (Maybe Text)
prcdXgafv
= lens _prcdXgafv (\ s a -> s{_prcdXgafv = a})
prcdUploadProtocol :: Lens' ProjectsRegionsClustersDelete (Maybe Text)
prcdUploadProtocol
= lens _prcdUploadProtocol
(\ s a -> s{_prcdUploadProtocol = a})
prcdPp :: Lens' ProjectsRegionsClustersDelete Bool
prcdPp = lens _prcdPp (\ s a -> s{_prcdPp = a})
prcdAccessToken :: Lens' ProjectsRegionsClustersDelete (Maybe Text)
prcdAccessToken
= lens _prcdAccessToken
(\ s a -> s{_prcdAccessToken = a})
prcdUploadType :: Lens' ProjectsRegionsClustersDelete (Maybe Text)
prcdUploadType
= lens _prcdUploadType
(\ s a -> s{_prcdUploadType = a})
prcdBearerToken :: Lens' ProjectsRegionsClustersDelete (Maybe Text)
prcdBearerToken
= lens _prcdBearerToken
(\ s a -> s{_prcdBearerToken = a})
prcdClusterName :: Lens' ProjectsRegionsClustersDelete Text
prcdClusterName
= lens _prcdClusterName
(\ s a -> s{_prcdClusterName = a})
prcdRegion :: Lens' ProjectsRegionsClustersDelete Text
prcdRegion
= lens _prcdRegion (\ s a -> s{_prcdRegion = a})
prcdProjectId :: Lens' ProjectsRegionsClustersDelete Text
prcdProjectId
= lens _prcdProjectId
(\ s a -> s{_prcdProjectId = a})
prcdCallback :: Lens' ProjectsRegionsClustersDelete (Maybe Text)
prcdCallback
= lens _prcdCallback (\ s a -> s{_prcdCallback = a})
instance GoogleRequest ProjectsRegionsClustersDelete
where
type Rs ProjectsRegionsClustersDelete = Operation
type Scopes ProjectsRegionsClustersDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsRegionsClustersDelete'{..}
= go _prcdProjectId _prcdRegion _prcdClusterName
_prcdXgafv
_prcdUploadProtocol
(Just _prcdPp)
_prcdAccessToken
_prcdUploadType
_prcdBearerToken
_prcdCallback
(Just AltJSON)
dataprocService
where go
= buildClient
(Proxy ::
Proxy ProjectsRegionsClustersDeleteResource)
mempty