{-# 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.Dismiss
(
FoldersApprovalRequestsDismissResource
, foldersApprovalRequestsDismiss
, FoldersApprovalRequestsDismiss
, fardXgafv
, fardUploadProtocol
, fardAccessToken
, fardUploadType
, fardPayload
, fardName
, fardCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type FoldersApprovalRequestsDismissResource =
"v1beta1" :>
CaptureMode "name" "dismiss" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] DismissApprovalRequestMessage :>
Post '[JSON] ApprovalRequest
data FoldersApprovalRequestsDismiss =
FoldersApprovalRequestsDismiss'
{ _fardXgafv :: !(Maybe Xgafv)
, _fardUploadProtocol :: !(Maybe Text)
, _fardAccessToken :: !(Maybe Text)
, _fardUploadType :: !(Maybe Text)
, _fardPayload :: !DismissApprovalRequestMessage
, _fardName :: !Text
, _fardCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
foldersApprovalRequestsDismiss
:: DismissApprovalRequestMessage
-> Text
-> FoldersApprovalRequestsDismiss
foldersApprovalRequestsDismiss pFardPayload_ pFardName_ =
FoldersApprovalRequestsDismiss'
{ _fardXgafv = Nothing
, _fardUploadProtocol = Nothing
, _fardAccessToken = Nothing
, _fardUploadType = Nothing
, _fardPayload = pFardPayload_
, _fardName = pFardName_
, _fardCallback = Nothing
}
fardXgafv :: Lens' FoldersApprovalRequestsDismiss (Maybe Xgafv)
fardXgafv
= lens _fardXgafv (\ s a -> s{_fardXgafv = a})
fardUploadProtocol :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)
fardUploadProtocol
= lens _fardUploadProtocol
(\ s a -> s{_fardUploadProtocol = a})
fardAccessToken :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)
fardAccessToken
= lens _fardAccessToken
(\ s a -> s{_fardAccessToken = a})
fardUploadType :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)
fardUploadType
= lens _fardUploadType
(\ s a -> s{_fardUploadType = a})
fardPayload :: Lens' FoldersApprovalRequestsDismiss DismissApprovalRequestMessage
fardPayload
= lens _fardPayload (\ s a -> s{_fardPayload = a})
fardName :: Lens' FoldersApprovalRequestsDismiss Text
fardName = lens _fardName (\ s a -> s{_fardName = a})
fardCallback :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)
fardCallback
= lens _fardCallback (\ s a -> s{_fardCallback = a})
instance GoogleRequest FoldersApprovalRequestsDismiss
where
type Rs FoldersApprovalRequestsDismiss =
ApprovalRequest
type Scopes FoldersApprovalRequestsDismiss =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient FoldersApprovalRequestsDismiss'{..}
= go _fardName _fardXgafv _fardUploadProtocol
_fardAccessToken
_fardUploadType
_fardCallback
(Just AltJSON)
_fardPayload
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy FoldersApprovalRequestsDismissResource)
mempty