{-# 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.ServiceConsumerManagement.Services.TenancyUnits.DeleteProject
(
ServicesTenancyUnitsDeleteProjectResource
, servicesTenancyUnitsDeleteProject
, ServicesTenancyUnitsDeleteProject
, studpXgafv
, studpUploadProtocol
, studpAccessToken
, studpUploadType
, studpPayload
, studpName
, studpCallback
) where
import Network.Google.Prelude
import Network.Google.ServiceConsumerManagement.Types
type ServicesTenancyUnitsDeleteProjectResource =
"v1" :>
CaptureMode "name" "deleteProject" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] DeleteTenantProjectRequest :>
Post '[JSON] Operation
data ServicesTenancyUnitsDeleteProject =
ServicesTenancyUnitsDeleteProject'
{ _studpXgafv :: !(Maybe Xgafv)
, _studpUploadProtocol :: !(Maybe Text)
, _studpAccessToken :: !(Maybe Text)
, _studpUploadType :: !(Maybe Text)
, _studpPayload :: !DeleteTenantProjectRequest
, _studpName :: !Text
, _studpCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
servicesTenancyUnitsDeleteProject
:: DeleteTenantProjectRequest
-> Text
-> ServicesTenancyUnitsDeleteProject
servicesTenancyUnitsDeleteProject pStudpPayload_ pStudpName_ =
ServicesTenancyUnitsDeleteProject'
{ _studpXgafv = Nothing
, _studpUploadProtocol = Nothing
, _studpAccessToken = Nothing
, _studpUploadType = Nothing
, _studpPayload = pStudpPayload_
, _studpName = pStudpName_
, _studpCallback = Nothing
}
studpXgafv :: Lens' ServicesTenancyUnitsDeleteProject (Maybe Xgafv)
studpXgafv
= lens _studpXgafv (\ s a -> s{_studpXgafv = a})
studpUploadProtocol :: Lens' ServicesTenancyUnitsDeleteProject (Maybe Text)
studpUploadProtocol
= lens _studpUploadProtocol
(\ s a -> s{_studpUploadProtocol = a})
studpAccessToken :: Lens' ServicesTenancyUnitsDeleteProject (Maybe Text)
studpAccessToken
= lens _studpAccessToken
(\ s a -> s{_studpAccessToken = a})
studpUploadType :: Lens' ServicesTenancyUnitsDeleteProject (Maybe Text)
studpUploadType
= lens _studpUploadType
(\ s a -> s{_studpUploadType = a})
studpPayload :: Lens' ServicesTenancyUnitsDeleteProject DeleteTenantProjectRequest
studpPayload
= lens _studpPayload (\ s a -> s{_studpPayload = a})
studpName :: Lens' ServicesTenancyUnitsDeleteProject Text
studpName
= lens _studpName (\ s a -> s{_studpName = a})
studpCallback :: Lens' ServicesTenancyUnitsDeleteProject (Maybe Text)
studpCallback
= lens _studpCallback
(\ s a -> s{_studpCallback = a})
instance GoogleRequest
ServicesTenancyUnitsDeleteProject
where
type Rs ServicesTenancyUnitsDeleteProject = Operation
type Scopes ServicesTenancyUnitsDeleteProject =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ServicesTenancyUnitsDeleteProject'{..}
= go _studpName _studpXgafv _studpUploadProtocol
_studpAccessToken
_studpUploadType
_studpCallback
(Just AltJSON)
_studpPayload
serviceConsumerManagementService
where go
= buildClient
(Proxy ::
Proxy ServicesTenancyUnitsDeleteProjectResource)
mempty