{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Container.Projects.Locations.Clusters.Delete
(
ProjectsLocationsClustersDeleteResource
, projectsLocationsClustersDelete
, ProjectsLocationsClustersDelete
, plcdXgafv
, plcdUploadProtocol
, plcdAccessToken
, plcdUploadType
, plcdZone
, plcdName
, plcdClusterId
, plcdProjectId
, plcdCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsLocationsClustersDeleteResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "zone" Text :>
QueryParam "clusterId" Text :>
QueryParam "projectId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data ProjectsLocationsClustersDelete = ProjectsLocationsClustersDelete'
{ _plcdXgafv :: !(Maybe Xgafv)
, _plcdUploadProtocol :: !(Maybe Text)
, _plcdAccessToken :: !(Maybe Text)
, _plcdUploadType :: !(Maybe Text)
, _plcdZone :: !(Maybe Text)
, _plcdName :: !Text
, _plcdClusterId :: !(Maybe Text)
, _plcdProjectId :: !(Maybe Text)
, _plcdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsLocationsClustersDelete
:: Text
-> ProjectsLocationsClustersDelete
projectsLocationsClustersDelete pPlcdName_ =
ProjectsLocationsClustersDelete'
{ _plcdXgafv = Nothing
, _plcdUploadProtocol = Nothing
, _plcdAccessToken = Nothing
, _plcdUploadType = Nothing
, _plcdZone = Nothing
, _plcdName = pPlcdName_
, _plcdClusterId = Nothing
, _plcdProjectId = Nothing
, _plcdCallback = Nothing
}
plcdXgafv :: Lens' ProjectsLocationsClustersDelete (Maybe Xgafv)
plcdXgafv
= lens _plcdXgafv (\ s a -> s{_plcdXgafv = a})
plcdUploadProtocol :: Lens' ProjectsLocationsClustersDelete (Maybe Text)
plcdUploadProtocol
= lens _plcdUploadProtocol
(\ s a -> s{_plcdUploadProtocol = a})
plcdAccessToken :: Lens' ProjectsLocationsClustersDelete (Maybe Text)
plcdAccessToken
= lens _plcdAccessToken
(\ s a -> s{_plcdAccessToken = a})
plcdUploadType :: Lens' ProjectsLocationsClustersDelete (Maybe Text)
plcdUploadType
= lens _plcdUploadType
(\ s a -> s{_plcdUploadType = a})
plcdZone :: Lens' ProjectsLocationsClustersDelete (Maybe Text)
plcdZone = lens _plcdZone (\ s a -> s{_plcdZone = a})
plcdName :: Lens' ProjectsLocationsClustersDelete Text
plcdName = lens _plcdName (\ s a -> s{_plcdName = a})
plcdClusterId :: Lens' ProjectsLocationsClustersDelete (Maybe Text)
plcdClusterId
= lens _plcdClusterId
(\ s a -> s{_plcdClusterId = a})
plcdProjectId :: Lens' ProjectsLocationsClustersDelete (Maybe Text)
plcdProjectId
= lens _plcdProjectId
(\ s a -> s{_plcdProjectId = a})
plcdCallback :: Lens' ProjectsLocationsClustersDelete (Maybe Text)
plcdCallback
= lens _plcdCallback (\ s a -> s{_plcdCallback = a})
instance GoogleRequest
ProjectsLocationsClustersDelete where
type Rs ProjectsLocationsClustersDelete = Operation
type Scopes ProjectsLocationsClustersDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsLocationsClustersDelete'{..}
= go _plcdName _plcdXgafv _plcdUploadProtocol
_plcdAccessToken
_plcdUploadType
_plcdZone
_plcdClusterId
_plcdProjectId
_plcdCallback
(Just AltJSON)
containerService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsClustersDeleteResource)
mempty