{-# 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.List
(
ProjectsApprovalRequestsListResource
, projectsApprovalRequestsList
, ProjectsApprovalRequestsList
, parlParent
, parlXgafv
, parlUploadProtocol
, parlAccessToken
, parlUploadType
, parlFilter
, parlPageToken
, parlPageSize
, parlCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type ProjectsApprovalRequestsListResource =
"v1beta1" :>
Capture "parent" Text :>
"approvalRequests" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "filter" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListApprovalRequestsResponse
data ProjectsApprovalRequestsList =
ProjectsApprovalRequestsList'
{ _parlParent :: !Text
, _parlXgafv :: !(Maybe Xgafv)
, _parlUploadProtocol :: !(Maybe Text)
, _parlAccessToken :: !(Maybe Text)
, _parlUploadType :: !(Maybe Text)
, _parlFilter :: !(Maybe Text)
, _parlPageToken :: !(Maybe Text)
, _parlPageSize :: !(Maybe (Textual Int32))
, _parlCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsApprovalRequestsList
:: Text
-> ProjectsApprovalRequestsList
projectsApprovalRequestsList pParlParent_ =
ProjectsApprovalRequestsList'
{ _parlParent = pParlParent_
, _parlXgafv = Nothing
, _parlUploadProtocol = Nothing
, _parlAccessToken = Nothing
, _parlUploadType = Nothing
, _parlFilter = Nothing
, _parlPageToken = Nothing
, _parlPageSize = Nothing
, _parlCallback = Nothing
}
parlParent :: Lens' ProjectsApprovalRequestsList Text
parlParent
= lens _parlParent (\ s a -> s{_parlParent = a})
parlXgafv :: Lens' ProjectsApprovalRequestsList (Maybe Xgafv)
parlXgafv
= lens _parlXgafv (\ s a -> s{_parlXgafv = a})
parlUploadProtocol :: Lens' ProjectsApprovalRequestsList (Maybe Text)
parlUploadProtocol
= lens _parlUploadProtocol
(\ s a -> s{_parlUploadProtocol = a})
parlAccessToken :: Lens' ProjectsApprovalRequestsList (Maybe Text)
parlAccessToken
= lens _parlAccessToken
(\ s a -> s{_parlAccessToken = a})
parlUploadType :: Lens' ProjectsApprovalRequestsList (Maybe Text)
parlUploadType
= lens _parlUploadType
(\ s a -> s{_parlUploadType = a})
parlFilter :: Lens' ProjectsApprovalRequestsList (Maybe Text)
parlFilter
= lens _parlFilter (\ s a -> s{_parlFilter = a})
parlPageToken :: Lens' ProjectsApprovalRequestsList (Maybe Text)
parlPageToken
= lens _parlPageToken
(\ s a -> s{_parlPageToken = a})
parlPageSize :: Lens' ProjectsApprovalRequestsList (Maybe Int32)
parlPageSize
= lens _parlPageSize (\ s a -> s{_parlPageSize = a})
. mapping _Coerce
parlCallback :: Lens' ProjectsApprovalRequestsList (Maybe Text)
parlCallback
= lens _parlCallback (\ s a -> s{_parlCallback = a})
instance GoogleRequest ProjectsApprovalRequestsList
where
type Rs ProjectsApprovalRequestsList =
ListApprovalRequestsResponse
type Scopes ProjectsApprovalRequestsList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsApprovalRequestsList'{..}
= go _parlParent _parlXgafv _parlUploadProtocol
_parlAccessToken
_parlUploadType
_parlFilter
_parlPageToken
_parlPageSize
_parlCallback
(Just AltJSON)
accessApprovalService
where go
= buildClient
(Proxy :: Proxy ProjectsApprovalRequestsListResource)
mempty