{-# 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.ApprovalRequests.Approve
(
OrganizationsApprovalRequestsApproveResource
, organizationsApprovalRequestsApprove
, OrganizationsApprovalRequestsApprove
, oaraXgafv
, oaraUploadProtocol
, oaraAccessToken
, oaraUploadType
, oaraPayload
, oaraName
, oaraCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type OrganizationsApprovalRequestsApproveResource =
"v1beta1" :>
CaptureMode "name" "approve" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ApproveApprovalRequestMessage :>
Post '[JSON] ApprovalRequest
data OrganizationsApprovalRequestsApprove =
OrganizationsApprovalRequestsApprove'
{ _oaraXgafv :: !(Maybe Xgafv)
, _oaraUploadProtocol :: !(Maybe Text)
, _oaraAccessToken :: !(Maybe Text)
, _oaraUploadType :: !(Maybe Text)
, _oaraPayload :: !ApproveApprovalRequestMessage
, _oaraName :: !Text
, _oaraCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsApprovalRequestsApprove
:: ApproveApprovalRequestMessage
-> Text
-> OrganizationsApprovalRequestsApprove
organizationsApprovalRequestsApprove pOaraPayload_ pOaraName_ =
OrganizationsApprovalRequestsApprove'
{ _oaraXgafv = Nothing
, _oaraUploadProtocol = Nothing
, _oaraAccessToken = Nothing
, _oaraUploadType = Nothing
, _oaraPayload = pOaraPayload_
, _oaraName = pOaraName_
, _oaraCallback = Nothing
}
oaraXgafv :: Lens' OrganizationsApprovalRequestsApprove (Maybe Xgafv)
oaraXgafv
= lens _oaraXgafv (\ s a -> s{_oaraXgafv = a})
oaraUploadProtocol :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)
oaraUploadProtocol
= lens _oaraUploadProtocol
(\ s a -> s{_oaraUploadProtocol = a})
oaraAccessToken :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)
oaraAccessToken
= lens _oaraAccessToken
(\ s a -> s{_oaraAccessToken = a})
oaraUploadType :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)
oaraUploadType
= lens _oaraUploadType
(\ s a -> s{_oaraUploadType = a})
oaraPayload :: Lens' OrganizationsApprovalRequestsApprove ApproveApprovalRequestMessage
oaraPayload
= lens _oaraPayload (\ s a -> s{_oaraPayload = a})
oaraName :: Lens' OrganizationsApprovalRequestsApprove Text
oaraName = lens _oaraName (\ s a -> s{_oaraName = a})
oaraCallback :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)
oaraCallback
= lens _oaraCallback (\ s a -> s{_oaraCallback = a})
instance GoogleRequest
OrganizationsApprovalRequestsApprove
where
type Rs OrganizationsApprovalRequestsApprove =
ApprovalRequest
type Scopes OrganizationsApprovalRequestsApprove =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
OrganizationsApprovalRequestsApprove'{..}
= go _oaraName _oaraXgafv _oaraUploadProtocol
_oaraAccessToken
_oaraUploadType
_oaraCallback
(Just AltJSON)
_oaraPayload
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy OrganizationsApprovalRequestsApproveResource)
mempty