{-# 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.AccessApproval.Projects.UpdateAccessApprovalSettings
(
ProjectsUpdateAccessApprovalSettingsResource
, projectsUpdateAccessApprovalSettings
, ProjectsUpdateAccessApprovalSettings
, puaasXgafv
, puaasUploadProtocol
, puaasAccessToken
, puaasUploadType
, puaasPayload
, puaasName
, puaasCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type ProjectsUpdateAccessApprovalSettingsResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AccessApprovalSettings :>
Patch '[JSON] AccessApprovalSettings
data ProjectsUpdateAccessApprovalSettings =
ProjectsUpdateAccessApprovalSettings'
{ _puaasXgafv :: !(Maybe Xgafv)
, _puaasUploadProtocol :: !(Maybe Text)
, _puaasAccessToken :: !(Maybe Text)
, _puaasUploadType :: !(Maybe Text)
, _puaasPayload :: !AccessApprovalSettings
, _puaasName :: !Text
, _puaasCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsUpdateAccessApprovalSettings
:: AccessApprovalSettings
-> Text
-> ProjectsUpdateAccessApprovalSettings
projectsUpdateAccessApprovalSettings pPuaasPayload_ pPuaasName_ =
ProjectsUpdateAccessApprovalSettings'
{ _puaasXgafv = Nothing
, _puaasUploadProtocol = Nothing
, _puaasAccessToken = Nothing
, _puaasUploadType = Nothing
, _puaasPayload = pPuaasPayload_
, _puaasName = pPuaasName_
, _puaasCallback = Nothing
}
puaasXgafv :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Xgafv)
puaasXgafv
= lens _puaasXgafv (\ s a -> s{_puaasXgafv = a})
puaasUploadProtocol :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)
puaasUploadProtocol
= lens _puaasUploadProtocol
(\ s a -> s{_puaasUploadProtocol = a})
puaasAccessToken :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)
puaasAccessToken
= lens _puaasAccessToken
(\ s a -> s{_puaasAccessToken = a})
puaasUploadType :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)
puaasUploadType
= lens _puaasUploadType
(\ s a -> s{_puaasUploadType = a})
puaasPayload :: Lens' ProjectsUpdateAccessApprovalSettings AccessApprovalSettings
puaasPayload
= lens _puaasPayload (\ s a -> s{_puaasPayload = a})
puaasName :: Lens' ProjectsUpdateAccessApprovalSettings Text
puaasName
= lens _puaasName (\ s a -> s{_puaasName = a})
puaasCallback :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)
puaasCallback
= lens _puaasCallback
(\ s a -> s{_puaasCallback = a})
instance GoogleRequest
ProjectsUpdateAccessApprovalSettings
where
type Rs ProjectsUpdateAccessApprovalSettings =
AccessApprovalSettings
type Scopes ProjectsUpdateAccessApprovalSettings =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsUpdateAccessApprovalSettings'{..}
= go _puaasName _puaasXgafv _puaasUploadProtocol
_puaasAccessToken
_puaasUploadType
_puaasCallback
(Just AltJSON)
_puaasPayload
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy ProjectsUpdateAccessApprovalSettingsResource)
mempty