{-# 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.Composer.Projects.Locations.Environments.Delete
(
ProjectsLocationsEnvironmentsDeleteResource
, projectsLocationsEnvironmentsDelete
, ProjectsLocationsEnvironmentsDelete
, pledXgafv
, pledUploadProtocol
, pledAccessToken
, pledUploadType
, pledName
, pledCallback
) where
import Network.Google.Composer.Types
import Network.Google.Prelude
type ProjectsLocationsEnvironmentsDeleteResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data ProjectsLocationsEnvironmentsDelete = ProjectsLocationsEnvironmentsDelete'
{ _pledXgafv :: !(Maybe Xgafv)
, _pledUploadProtocol :: !(Maybe Text)
, _pledAccessToken :: !(Maybe Text)
, _pledUploadType :: !(Maybe Text)
, _pledName :: !Text
, _pledCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsLocationsEnvironmentsDelete
:: Text
-> ProjectsLocationsEnvironmentsDelete
projectsLocationsEnvironmentsDelete pPledName_ =
ProjectsLocationsEnvironmentsDelete'
{ _pledXgafv = Nothing
, _pledUploadProtocol = Nothing
, _pledAccessToken = Nothing
, _pledUploadType = Nothing
, _pledName = pPledName_
, _pledCallback = Nothing
}
pledXgafv :: Lens' ProjectsLocationsEnvironmentsDelete (Maybe Xgafv)
pledXgafv
= lens _pledXgafv (\ s a -> s{_pledXgafv = a})
pledUploadProtocol :: Lens' ProjectsLocationsEnvironmentsDelete (Maybe Text)
pledUploadProtocol
= lens _pledUploadProtocol
(\ s a -> s{_pledUploadProtocol = a})
pledAccessToken :: Lens' ProjectsLocationsEnvironmentsDelete (Maybe Text)
pledAccessToken
= lens _pledAccessToken
(\ s a -> s{_pledAccessToken = a})
pledUploadType :: Lens' ProjectsLocationsEnvironmentsDelete (Maybe Text)
pledUploadType
= lens _pledUploadType
(\ s a -> s{_pledUploadType = a})
pledName :: Lens' ProjectsLocationsEnvironmentsDelete Text
pledName = lens _pledName (\ s a -> s{_pledName = a})
pledCallback :: Lens' ProjectsLocationsEnvironmentsDelete (Maybe Text)
pledCallback
= lens _pledCallback (\ s a -> s{_pledCallback = a})
instance GoogleRequest
ProjectsLocationsEnvironmentsDelete where
type Rs ProjectsLocationsEnvironmentsDelete =
Operation
type Scopes ProjectsLocationsEnvironmentsDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsLocationsEnvironmentsDelete'{..}
= go _pledName _pledXgafv _pledUploadProtocol
_pledAccessToken
_pledUploadType
_pledCallback
(Just AltJSON)
composerService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsEnvironmentsDeleteResource)
mempty