{-# 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.Dismiss
(
OrganizationsApprovalRequestsDismissResource
, organizationsApprovalRequestsDismiss
, OrganizationsApprovalRequestsDismiss
, oardXgafv
, oardUploadProtocol
, oardAccessToken
, oardUploadType
, oardPayload
, oardName
, oardCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type OrganizationsApprovalRequestsDismissResource =
"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 OrganizationsApprovalRequestsDismiss =
OrganizationsApprovalRequestsDismiss'
{ _oardXgafv :: !(Maybe Xgafv)
, _oardUploadProtocol :: !(Maybe Text)
, _oardAccessToken :: !(Maybe Text)
, _oardUploadType :: !(Maybe Text)
, _oardPayload :: !DismissApprovalRequestMessage
, _oardName :: !Text
, _oardCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsApprovalRequestsDismiss
:: DismissApprovalRequestMessage
-> Text
-> OrganizationsApprovalRequestsDismiss
organizationsApprovalRequestsDismiss pOardPayload_ pOardName_ =
OrganizationsApprovalRequestsDismiss'
{ _oardXgafv = Nothing
, _oardUploadProtocol = Nothing
, _oardAccessToken = Nothing
, _oardUploadType = Nothing
, _oardPayload = pOardPayload_
, _oardName = pOardName_
, _oardCallback = Nothing
}
oardXgafv :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Xgafv)
oardXgafv
= lens _oardXgafv (\ s a -> s{_oardXgafv = a})
oardUploadProtocol :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)
oardUploadProtocol
= lens _oardUploadProtocol
(\ s a -> s{_oardUploadProtocol = a})
oardAccessToken :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)
oardAccessToken
= lens _oardAccessToken
(\ s a -> s{_oardAccessToken = a})
oardUploadType :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)
oardUploadType
= lens _oardUploadType
(\ s a -> s{_oardUploadType = a})
oardPayload :: Lens' OrganizationsApprovalRequestsDismiss DismissApprovalRequestMessage
oardPayload
= lens _oardPayload (\ s a -> s{_oardPayload = a})
oardName :: Lens' OrganizationsApprovalRequestsDismiss Text
oardName = lens _oardName (\ s a -> s{_oardName = a})
oardCallback :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)
oardCallback
= lens _oardCallback (\ s a -> s{_oardCallback = a})
instance GoogleRequest
OrganizationsApprovalRequestsDismiss
where
type Rs OrganizationsApprovalRequestsDismiss =
ApprovalRequest
type Scopes OrganizationsApprovalRequestsDismiss =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
OrganizationsApprovalRequestsDismiss'{..}
= go _oardName _oardXgafv _oardUploadProtocol
_oardAccessToken
_oardUploadType
_oardCallback
(Just AltJSON)
_oardPayload
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy OrganizationsApprovalRequestsDismissResource)
mempty