{-# 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.Projects.ApprovalRequests.Dismiss
(
ProjectsApprovalRequestsDismissResource
, projectsApprovalRequestsDismiss
, ProjectsApprovalRequestsDismiss
, pardXgafv
, pardUploadProtocol
, pardAccessToken
, pardUploadType
, pardPayload
, pardName
, pardCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type ProjectsApprovalRequestsDismissResource =
"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 ProjectsApprovalRequestsDismiss =
ProjectsApprovalRequestsDismiss'
{ _pardXgafv :: !(Maybe Xgafv)
, _pardUploadProtocol :: !(Maybe Text)
, _pardAccessToken :: !(Maybe Text)
, _pardUploadType :: !(Maybe Text)
, _pardPayload :: !DismissApprovalRequestMessage
, _pardName :: !Text
, _pardCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsApprovalRequestsDismiss
:: DismissApprovalRequestMessage
-> Text
-> ProjectsApprovalRequestsDismiss
projectsApprovalRequestsDismiss pPardPayload_ pPardName_ =
ProjectsApprovalRequestsDismiss'
{ _pardXgafv = Nothing
, _pardUploadProtocol = Nothing
, _pardAccessToken = Nothing
, _pardUploadType = Nothing
, _pardPayload = pPardPayload_
, _pardName = pPardName_
, _pardCallback = Nothing
}
pardXgafv :: Lens' ProjectsApprovalRequestsDismiss (Maybe Xgafv)
pardXgafv
= lens _pardXgafv (\ s a -> s{_pardXgafv = a})
pardUploadProtocol :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)
pardUploadProtocol
= lens _pardUploadProtocol
(\ s a -> s{_pardUploadProtocol = a})
pardAccessToken :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)
pardAccessToken
= lens _pardAccessToken
(\ s a -> s{_pardAccessToken = a})
pardUploadType :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)
pardUploadType
= lens _pardUploadType
(\ s a -> s{_pardUploadType = a})
pardPayload :: Lens' ProjectsApprovalRequestsDismiss DismissApprovalRequestMessage
pardPayload
= lens _pardPayload (\ s a -> s{_pardPayload = a})
pardName :: Lens' ProjectsApprovalRequestsDismiss Text
pardName = lens _pardName (\ s a -> s{_pardName = a})
pardCallback :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)
pardCallback
= lens _pardCallback (\ s a -> s{_pardCallback = a})
instance GoogleRequest
ProjectsApprovalRequestsDismiss
where
type Rs ProjectsApprovalRequestsDismiss =
ApprovalRequest
type Scopes ProjectsApprovalRequestsDismiss =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsApprovalRequestsDismiss'{..}
= go _pardName _pardXgafv _pardUploadProtocol
_pardAccessToken
_pardUploadType
_pardCallback
(Just AltJSON)
_pardPayload
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy ProjectsApprovalRequestsDismissResource)
mempty