{-# 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.Get
(
FoldersApprovalRequestsGetResource
, foldersApprovalRequestsGet
, FoldersApprovalRequestsGet
, fargXgafv
, fargUploadProtocol
, fargAccessToken
, fargUploadType
, fargName
, fargCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type FoldersApprovalRequestsGetResource =
"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 FoldersApprovalRequestsGet =
FoldersApprovalRequestsGet'
{ _fargXgafv :: !(Maybe Xgafv)
, _fargUploadProtocol :: !(Maybe Text)
, _fargAccessToken :: !(Maybe Text)
, _fargUploadType :: !(Maybe Text)
, _fargName :: !Text
, _fargCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
foldersApprovalRequestsGet
:: Text
-> FoldersApprovalRequestsGet
foldersApprovalRequestsGet pFargName_ =
FoldersApprovalRequestsGet'
{ _fargXgafv = Nothing
, _fargUploadProtocol = Nothing
, _fargAccessToken = Nothing
, _fargUploadType = Nothing
, _fargName = pFargName_
, _fargCallback = Nothing
}
fargXgafv :: Lens' FoldersApprovalRequestsGet (Maybe Xgafv)
fargXgafv
= lens _fargXgafv (\ s a -> s{_fargXgafv = a})
fargUploadProtocol :: Lens' FoldersApprovalRequestsGet (Maybe Text)
fargUploadProtocol
= lens _fargUploadProtocol
(\ s a -> s{_fargUploadProtocol = a})
fargAccessToken :: Lens' FoldersApprovalRequestsGet (Maybe Text)
fargAccessToken
= lens _fargAccessToken
(\ s a -> s{_fargAccessToken = a})
fargUploadType :: Lens' FoldersApprovalRequestsGet (Maybe Text)
fargUploadType
= lens _fargUploadType
(\ s a -> s{_fargUploadType = a})
fargName :: Lens' FoldersApprovalRequestsGet Text
fargName = lens _fargName (\ s a -> s{_fargName = a})
fargCallback :: Lens' FoldersApprovalRequestsGet (Maybe Text)
fargCallback
= lens _fargCallback (\ s a -> s{_fargCallback = a})
instance GoogleRequest FoldersApprovalRequestsGet
where
type Rs FoldersApprovalRequestsGet = ApprovalRequest
type Scopes FoldersApprovalRequestsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient FoldersApprovalRequestsGet'{..}
= go _fargName _fargXgafv _fargUploadProtocol
_fargAccessToken
_fargUploadType
_fargCallback
(Just AltJSON)
accessApprovalService
where go
= buildClient
(Proxy :: Proxy FoldersApprovalRequestsGetResource)
mempty