{-# 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.Get
(
OrganizationsApprovalRequestsGetResource
, organizationsApprovalRequestsGet
, OrganizationsApprovalRequestsGet
, oargXgafv
, oargUploadProtocol
, oargAccessToken
, oargUploadType
, oargName
, oargCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type OrganizationsApprovalRequestsGetResource =
"v1beta1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ApprovalRequest
data OrganizationsApprovalRequestsGet =
OrganizationsApprovalRequestsGet'
{ _oargXgafv :: !(Maybe Xgafv)
, _oargUploadProtocol :: !(Maybe Text)
, _oargAccessToken :: !(Maybe Text)
, _oargUploadType :: !(Maybe Text)
, _oargName :: !Text
, _oargCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsApprovalRequestsGet
:: Text
-> OrganizationsApprovalRequestsGet
organizationsApprovalRequestsGet pOargName_ =
OrganizationsApprovalRequestsGet'
{ _oargXgafv = Nothing
, _oargUploadProtocol = Nothing
, _oargAccessToken = Nothing
, _oargUploadType = Nothing
, _oargName = pOargName_
, _oargCallback = Nothing
}
oargXgafv :: Lens' OrganizationsApprovalRequestsGet (Maybe Xgafv)
oargXgafv
= lens _oargXgafv (\ s a -> s{_oargXgafv = a})
oargUploadProtocol :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)
oargUploadProtocol
= lens _oargUploadProtocol
(\ s a -> s{_oargUploadProtocol = a})
oargAccessToken :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)
oargAccessToken
= lens _oargAccessToken
(\ s a -> s{_oargAccessToken = a})
oargUploadType :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)
oargUploadType
= lens _oargUploadType
(\ s a -> s{_oargUploadType = a})
oargName :: Lens' OrganizationsApprovalRequestsGet Text
oargName = lens _oargName (\ s a -> s{_oargName = a})
oargCallback :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)
oargCallback
= lens _oargCallback (\ s a -> s{_oargCallback = a})
instance GoogleRequest
OrganizationsApprovalRequestsGet
where
type Rs OrganizationsApprovalRequestsGet =
ApprovalRequest
type Scopes OrganizationsApprovalRequestsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient OrganizationsApprovalRequestsGet'{..}
= go _oargName _oargXgafv _oargUploadProtocol
_oargAccessToken
_oargUploadType
_oargCallback
(Just AltJSON)
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy OrganizationsApprovalRequestsGetResource)
mempty