{-# 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.Folders.UpdateAccessApprovalSettings
(
FoldersUpdateAccessApprovalSettingsResource
, foldersUpdateAccessApprovalSettings
, FoldersUpdateAccessApprovalSettings
, fuaasXgafv
, fuaasUploadProtocol
, fuaasAccessToken
, fuaasUploadType
, fuaasPayload
, fuaasName
, fuaasCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type FoldersUpdateAccessApprovalSettingsResource =
"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 FoldersUpdateAccessApprovalSettings =
FoldersUpdateAccessApprovalSettings'
{ _fuaasXgafv :: !(Maybe Xgafv)
, _fuaasUploadProtocol :: !(Maybe Text)
, _fuaasAccessToken :: !(Maybe Text)
, _fuaasUploadType :: !(Maybe Text)
, _fuaasPayload :: !AccessApprovalSettings
, _fuaasName :: !Text
, _fuaasCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
foldersUpdateAccessApprovalSettings
:: AccessApprovalSettings
-> Text
-> FoldersUpdateAccessApprovalSettings
foldersUpdateAccessApprovalSettings pFuaasPayload_ pFuaasName_ =
FoldersUpdateAccessApprovalSettings'
{ _fuaasXgafv = Nothing
, _fuaasUploadProtocol = Nothing
, _fuaasAccessToken = Nothing
, _fuaasUploadType = Nothing
, _fuaasPayload = pFuaasPayload_
, _fuaasName = pFuaasName_
, _fuaasCallback = Nothing
}
fuaasXgafv :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Xgafv)
fuaasXgafv
= lens _fuaasXgafv (\ s a -> s{_fuaasXgafv = a})
fuaasUploadProtocol :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)
fuaasUploadProtocol
= lens _fuaasUploadProtocol
(\ s a -> s{_fuaasUploadProtocol = a})
fuaasAccessToken :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)
fuaasAccessToken
= lens _fuaasAccessToken
(\ s a -> s{_fuaasAccessToken = a})
fuaasUploadType :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)
fuaasUploadType
= lens _fuaasUploadType
(\ s a -> s{_fuaasUploadType = a})
fuaasPayload :: Lens' FoldersUpdateAccessApprovalSettings AccessApprovalSettings
fuaasPayload
= lens _fuaasPayload (\ s a -> s{_fuaasPayload = a})
fuaasName :: Lens' FoldersUpdateAccessApprovalSettings Text
fuaasName
= lens _fuaasName (\ s a -> s{_fuaasName = a})
fuaasCallback :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)
fuaasCallback
= lens _fuaasCallback
(\ s a -> s{_fuaasCallback = a})
instance GoogleRequest
FoldersUpdateAccessApprovalSettings
where
type Rs FoldersUpdateAccessApprovalSettings =
AccessApprovalSettings
type Scopes FoldersUpdateAccessApprovalSettings =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
FoldersUpdateAccessApprovalSettings'{..}
= go _fuaasName _fuaasXgafv _fuaasUploadProtocol
_fuaasAccessToken
_fuaasUploadType
_fuaasCallback
(Just AltJSON)
_fuaasPayload
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy FoldersUpdateAccessApprovalSettingsResource)
mempty