{-# 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.ApprovalRequests.Approve
(
FoldersApprovalRequestsApproveResource
, foldersApprovalRequestsApprove
, FoldersApprovalRequestsApprove
, faraXgafv
, faraUploadProtocol
, faraAccessToken
, faraUploadType
, faraPayload
, faraName
, faraCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type FoldersApprovalRequestsApproveResource =
"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 FoldersApprovalRequestsApprove =
FoldersApprovalRequestsApprove'
{ _faraXgafv :: !(Maybe Xgafv)
, _faraUploadProtocol :: !(Maybe Text)
, _faraAccessToken :: !(Maybe Text)
, _faraUploadType :: !(Maybe Text)
, _faraPayload :: !ApproveApprovalRequestMessage
, _faraName :: !Text
, _faraCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
foldersApprovalRequestsApprove
:: ApproveApprovalRequestMessage
-> Text
-> FoldersApprovalRequestsApprove
foldersApprovalRequestsApprove pFaraPayload_ pFaraName_ =
FoldersApprovalRequestsApprove'
{ _faraXgafv = Nothing
, _faraUploadProtocol = Nothing
, _faraAccessToken = Nothing
, _faraUploadType = Nothing
, _faraPayload = pFaraPayload_
, _faraName = pFaraName_
, _faraCallback = Nothing
}
faraXgafv :: Lens' FoldersApprovalRequestsApprove (Maybe Xgafv)
faraXgafv
= lens _faraXgafv (\ s a -> s{_faraXgafv = a})
faraUploadProtocol :: Lens' FoldersApprovalRequestsApprove (Maybe Text)
faraUploadProtocol
= lens _faraUploadProtocol
(\ s a -> s{_faraUploadProtocol = a})
faraAccessToken :: Lens' FoldersApprovalRequestsApprove (Maybe Text)
faraAccessToken
= lens _faraAccessToken
(\ s a -> s{_faraAccessToken = a})
faraUploadType :: Lens' FoldersApprovalRequestsApprove (Maybe Text)
faraUploadType
= lens _faraUploadType
(\ s a -> s{_faraUploadType = a})
faraPayload :: Lens' FoldersApprovalRequestsApprove ApproveApprovalRequestMessage
faraPayload
= lens _faraPayload (\ s a -> s{_faraPayload = a})
faraName :: Lens' FoldersApprovalRequestsApprove Text
faraName = lens _faraName (\ s a -> s{_faraName = a})
faraCallback :: Lens' FoldersApprovalRequestsApprove (Maybe Text)
faraCallback
= lens _faraCallback (\ s a -> s{_faraCallback = a})
instance GoogleRequest FoldersApprovalRequestsApprove
where
type Rs FoldersApprovalRequestsApprove =
ApprovalRequest
type Scopes FoldersApprovalRequestsApprove =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient FoldersApprovalRequestsApprove'{..}
= go _faraName _faraXgafv _faraUploadProtocol
_faraAccessToken
_faraUploadType
_faraCallback
(Just AltJSON)
_faraPayload
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy FoldersApprovalRequestsApproveResource)
mempty