{-# 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.Organizations.UpdateAccessApprovalSettings
(
OrganizationsUpdateAccessApprovalSettingsResource
, organizationsUpdateAccessApprovalSettings
, OrganizationsUpdateAccessApprovalSettings
, ouaasXgafv
, ouaasUploadProtocol
, ouaasAccessToken
, ouaasUploadType
, ouaasPayload
, ouaasName
, ouaasCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type OrganizationsUpdateAccessApprovalSettingsResource
=
"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 OrganizationsUpdateAccessApprovalSettings =
OrganizationsUpdateAccessApprovalSettings'
{ _ouaasXgafv :: !(Maybe Xgafv)
, _ouaasUploadProtocol :: !(Maybe Text)
, _ouaasAccessToken :: !(Maybe Text)
, _ouaasUploadType :: !(Maybe Text)
, _ouaasPayload :: !AccessApprovalSettings
, _ouaasName :: !Text
, _ouaasCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsUpdateAccessApprovalSettings
:: AccessApprovalSettings
-> Text
-> OrganizationsUpdateAccessApprovalSettings
organizationsUpdateAccessApprovalSettings pOuaasPayload_ pOuaasName_ =
OrganizationsUpdateAccessApprovalSettings'
{ _ouaasXgafv = Nothing
, _ouaasUploadProtocol = Nothing
, _ouaasAccessToken = Nothing
, _ouaasUploadType = Nothing
, _ouaasPayload = pOuaasPayload_
, _ouaasName = pOuaasName_
, _ouaasCallback = Nothing
}
ouaasXgafv :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Xgafv)
ouaasXgafv
= lens _ouaasXgafv (\ s a -> s{_ouaasXgafv = a})
ouaasUploadProtocol :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)
ouaasUploadProtocol
= lens _ouaasUploadProtocol
(\ s a -> s{_ouaasUploadProtocol = a})
ouaasAccessToken :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)
ouaasAccessToken
= lens _ouaasAccessToken
(\ s a -> s{_ouaasAccessToken = a})
ouaasUploadType :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)
ouaasUploadType
= lens _ouaasUploadType
(\ s a -> s{_ouaasUploadType = a})
ouaasPayload :: Lens' OrganizationsUpdateAccessApprovalSettings AccessApprovalSettings
ouaasPayload
= lens _ouaasPayload (\ s a -> s{_ouaasPayload = a})
ouaasName :: Lens' OrganizationsUpdateAccessApprovalSettings Text
ouaasName
= lens _ouaasName (\ s a -> s{_ouaasName = a})
ouaasCallback :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)
ouaasCallback
= lens _ouaasCallback
(\ s a -> s{_ouaasCallback = a})
instance GoogleRequest
OrganizationsUpdateAccessApprovalSettings
where
type Rs OrganizationsUpdateAccessApprovalSettings =
AccessApprovalSettings
type Scopes OrganizationsUpdateAccessApprovalSettings
= '["https://www.googleapis.com/auth/cloud-platform"]
requestClient
OrganizationsUpdateAccessApprovalSettings'{..}
= go _ouaasName _ouaasXgafv _ouaasUploadProtocol
_ouaasAccessToken
_ouaasUploadType
_ouaasCallback
(Just AltJSON)
_ouaasPayload
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy
OrganizationsUpdateAccessApprovalSettingsResource)
mempty