{-# 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.Get
(
ProjectsApprovalRequestsGetResource
, projectsApprovalRequestsGet
, ProjectsApprovalRequestsGet
, pargXgafv
, pargUploadProtocol
, pargAccessToken
, pargUploadType
, pargName
, pargCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type ProjectsApprovalRequestsGetResource =
"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 ProjectsApprovalRequestsGet =
ProjectsApprovalRequestsGet'
{ _pargXgafv :: !(Maybe Xgafv)
, _pargUploadProtocol :: !(Maybe Text)
, _pargAccessToken :: !(Maybe Text)
, _pargUploadType :: !(Maybe Text)
, _pargName :: !Text
, _pargCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsApprovalRequestsGet
:: Text
-> ProjectsApprovalRequestsGet
projectsApprovalRequestsGet pPargName_ =
ProjectsApprovalRequestsGet'
{ _pargXgafv = Nothing
, _pargUploadProtocol = Nothing
, _pargAccessToken = Nothing
, _pargUploadType = Nothing
, _pargName = pPargName_
, _pargCallback = Nothing
}
pargXgafv :: Lens' ProjectsApprovalRequestsGet (Maybe Xgafv)
pargXgafv
= lens _pargXgafv (\ s a -> s{_pargXgafv = a})
pargUploadProtocol :: Lens' ProjectsApprovalRequestsGet (Maybe Text)
pargUploadProtocol
= lens _pargUploadProtocol
(\ s a -> s{_pargUploadProtocol = a})
pargAccessToken :: Lens' ProjectsApprovalRequestsGet (Maybe Text)
pargAccessToken
= lens _pargAccessToken
(\ s a -> s{_pargAccessToken = a})
pargUploadType :: Lens' ProjectsApprovalRequestsGet (Maybe Text)
pargUploadType
= lens _pargUploadType
(\ s a -> s{_pargUploadType = a})
pargName :: Lens' ProjectsApprovalRequestsGet Text
pargName = lens _pargName (\ s a -> s{_pargName = a})
pargCallback :: Lens' ProjectsApprovalRequestsGet (Maybe Text)
pargCallback
= lens _pargCallback (\ s a -> s{_pargCallback = a})
instance GoogleRequest ProjectsApprovalRequestsGet
where
type Rs ProjectsApprovalRequestsGet = ApprovalRequest
type Scopes ProjectsApprovalRequestsGet =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsApprovalRequestsGet'{..}
= go _pargName _pargXgafv _pargUploadProtocol
_pargAccessToken
_pargUploadType
_pargCallback
(Just AltJSON)
accessApprovalService
where go
= buildClient
(Proxy :: Proxy ProjectsApprovalRequestsGetResource)
mempty