{-# 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.Zones.Clusters.Delete
(
ProjectsZonesClustersDeleteResource
, projectsZonesClustersDelete
, ProjectsZonesClustersDelete
, pzcdXgafv
, pzcdUploadProtocol
, pzcdAccessToken
, pzcdUploadType
, pzcdZone
, pzcdName
, pzcdClusterId
, pzcdProjectId
, pzcdCallback
) where
import Network.Google.Container.Types
import Network.Google.Prelude
type ProjectsZonesClustersDeleteResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"zones" :>
Capture "zone" Text :>
"clusters" :>
Capture "clusterId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "name" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON] Operation
data ProjectsZonesClustersDelete = ProjectsZonesClustersDelete'
{ _pzcdXgafv :: !(Maybe Xgafv)
, _pzcdUploadProtocol :: !(Maybe Text)
, _pzcdAccessToken :: !(Maybe Text)
, _pzcdUploadType :: !(Maybe Text)
, _pzcdZone :: !Text
, _pzcdName :: !(Maybe Text)
, _pzcdClusterId :: !Text
, _pzcdProjectId :: !Text
, _pzcdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsZonesClustersDelete
:: Text
-> Text
-> Text
-> ProjectsZonesClustersDelete
projectsZonesClustersDelete pPzcdZone_ pPzcdClusterId_ pPzcdProjectId_ =
ProjectsZonesClustersDelete'
{ _pzcdXgafv = Nothing
, _pzcdUploadProtocol = Nothing
, _pzcdAccessToken = Nothing
, _pzcdUploadType = Nothing
, _pzcdZone = pPzcdZone_
, _pzcdName = Nothing
, _pzcdClusterId = pPzcdClusterId_
, _pzcdProjectId = pPzcdProjectId_
, _pzcdCallback = Nothing
}
pzcdXgafv :: Lens' ProjectsZonesClustersDelete (Maybe Xgafv)
pzcdXgafv
= lens _pzcdXgafv (\ s a -> s{_pzcdXgafv = a})
pzcdUploadProtocol :: Lens' ProjectsZonesClustersDelete (Maybe Text)
pzcdUploadProtocol
= lens _pzcdUploadProtocol
(\ s a -> s{_pzcdUploadProtocol = a})
pzcdAccessToken :: Lens' ProjectsZonesClustersDelete (Maybe Text)
pzcdAccessToken
= lens _pzcdAccessToken
(\ s a -> s{_pzcdAccessToken = a})
pzcdUploadType :: Lens' ProjectsZonesClustersDelete (Maybe Text)
pzcdUploadType
= lens _pzcdUploadType
(\ s a -> s{_pzcdUploadType = a})
pzcdZone :: Lens' ProjectsZonesClustersDelete Text
pzcdZone = lens _pzcdZone (\ s a -> s{_pzcdZone = a})
pzcdName :: Lens' ProjectsZonesClustersDelete (Maybe Text)
pzcdName = lens _pzcdName (\ s a -> s{_pzcdName = a})
pzcdClusterId :: Lens' ProjectsZonesClustersDelete Text
pzcdClusterId
= lens _pzcdClusterId
(\ s a -> s{_pzcdClusterId = a})
pzcdProjectId :: Lens' ProjectsZonesClustersDelete Text
pzcdProjectId
= lens _pzcdProjectId
(\ s a -> s{_pzcdProjectId = a})
pzcdCallback :: Lens' ProjectsZonesClustersDelete (Maybe Text)
pzcdCallback
= lens _pzcdCallback (\ s a -> s{_pzcdCallback = a})
instance GoogleRequest ProjectsZonesClustersDelete
where
type Rs ProjectsZonesClustersDelete = Operation
type Scopes ProjectsZonesClustersDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsZonesClustersDelete'{..}
= go _pzcdProjectId _pzcdZone _pzcdClusterId
_pzcdXgafv
_pzcdUploadProtocol
_pzcdAccessToken
_pzcdUploadType
_pzcdName
_pzcdCallback
(Just AltJSON)
containerService
where go
= buildClient
(Proxy :: Proxy ProjectsZonesClustersDeleteResource)
mempty