{-# 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.UndeleteProject
(
ServicesTenancyUnitsUndeleteProjectResource
, servicesTenancyUnitsUndeleteProject
, ServicesTenancyUnitsUndeleteProject
, stuupXgafv
, stuupUploadProtocol
, stuupAccessToken
, stuupUploadType
, stuupPayload
, stuupName
, stuupCallback
) where
import Network.Google.Prelude
import Network.Google.ServiceConsumerManagement.Types
type ServicesTenancyUnitsUndeleteProjectResource =
"v1" :>
CaptureMode "name" "undeleteProject" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] UndeleteTenantProjectRequest :>
Post '[JSON] Operation
data ServicesTenancyUnitsUndeleteProject =
ServicesTenancyUnitsUndeleteProject'
{ _stuupXgafv :: !(Maybe Xgafv)
, _stuupUploadProtocol :: !(Maybe Text)
, _stuupAccessToken :: !(Maybe Text)
, _stuupUploadType :: !(Maybe Text)
, _stuupPayload :: !UndeleteTenantProjectRequest
, _stuupName :: !Text
, _stuupCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
servicesTenancyUnitsUndeleteProject
:: UndeleteTenantProjectRequest
-> Text
-> ServicesTenancyUnitsUndeleteProject
servicesTenancyUnitsUndeleteProject pStuupPayload_ pStuupName_ =
ServicesTenancyUnitsUndeleteProject'
{ _stuupXgafv = Nothing
, _stuupUploadProtocol = Nothing
, _stuupAccessToken = Nothing
, _stuupUploadType = Nothing
, _stuupPayload = pStuupPayload_
, _stuupName = pStuupName_
, _stuupCallback = Nothing
}
stuupXgafv :: Lens' ServicesTenancyUnitsUndeleteProject (Maybe Xgafv)
stuupXgafv
= lens _stuupXgafv (\ s a -> s{_stuupXgafv = a})
stuupUploadProtocol :: Lens' ServicesTenancyUnitsUndeleteProject (Maybe Text)
stuupUploadProtocol
= lens _stuupUploadProtocol
(\ s a -> s{_stuupUploadProtocol = a})
stuupAccessToken :: Lens' ServicesTenancyUnitsUndeleteProject (Maybe Text)
stuupAccessToken
= lens _stuupAccessToken
(\ s a -> s{_stuupAccessToken = a})
stuupUploadType :: Lens' ServicesTenancyUnitsUndeleteProject (Maybe Text)
stuupUploadType
= lens _stuupUploadType
(\ s a -> s{_stuupUploadType = a})
stuupPayload :: Lens' ServicesTenancyUnitsUndeleteProject UndeleteTenantProjectRequest
stuupPayload
= lens _stuupPayload (\ s a -> s{_stuupPayload = a})
stuupName :: Lens' ServicesTenancyUnitsUndeleteProject Text
stuupName
= lens _stuupName (\ s a -> s{_stuupName = a})
stuupCallback :: Lens' ServicesTenancyUnitsUndeleteProject (Maybe Text)
stuupCallback
= lens _stuupCallback
(\ s a -> s{_stuupCallback = a})
instance GoogleRequest
ServicesTenancyUnitsUndeleteProject
where
type Rs ServicesTenancyUnitsUndeleteProject =
Operation
type Scopes ServicesTenancyUnitsUndeleteProject =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ServicesTenancyUnitsUndeleteProject'{..}
= go _stuupName _stuupXgafv _stuupUploadProtocol
_stuupAccessToken
_stuupUploadType
_stuupCallback
(Just AltJSON)
_stuupPayload
serviceConsumerManagementService
where go
= buildClient
(Proxy ::
Proxy ServicesTenancyUnitsUndeleteProjectResource)
mempty