{-# 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.List
(
OrganizationsApprovalRequestsListResource
, organizationsApprovalRequestsList
, OrganizationsApprovalRequestsList
, oarlParent
, oarlXgafv
, oarlUploadProtocol
, oarlAccessToken
, oarlUploadType
, oarlFilter
, oarlPageToken
, oarlPageSize
, oarlCallback
) where
import Network.Google.AccessApproval.Types
import Network.Google.Prelude
type OrganizationsApprovalRequestsListResource =
"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 OrganizationsApprovalRequestsList =
OrganizationsApprovalRequestsList'
{ _oarlParent :: !Text
, _oarlXgafv :: !(Maybe Xgafv)
, _oarlUploadProtocol :: !(Maybe Text)
, _oarlAccessToken :: !(Maybe Text)
, _oarlUploadType :: !(Maybe Text)
, _oarlFilter :: !(Maybe Text)
, _oarlPageToken :: !(Maybe Text)
, _oarlPageSize :: !(Maybe (Textual Int32))
, _oarlCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
organizationsApprovalRequestsList
:: Text
-> OrganizationsApprovalRequestsList
organizationsApprovalRequestsList pOarlParent_ =
OrganizationsApprovalRequestsList'
{ _oarlParent = pOarlParent_
, _oarlXgafv = Nothing
, _oarlUploadProtocol = Nothing
, _oarlAccessToken = Nothing
, _oarlUploadType = Nothing
, _oarlFilter = Nothing
, _oarlPageToken = Nothing
, _oarlPageSize = Nothing
, _oarlCallback = Nothing
}
oarlParent :: Lens' OrganizationsApprovalRequestsList Text
oarlParent
= lens _oarlParent (\ s a -> s{_oarlParent = a})
oarlXgafv :: Lens' OrganizationsApprovalRequestsList (Maybe Xgafv)
oarlXgafv
= lens _oarlXgafv (\ s a -> s{_oarlXgafv = a})
oarlUploadProtocol :: Lens' OrganizationsApprovalRequestsList (Maybe Text)
oarlUploadProtocol
= lens _oarlUploadProtocol
(\ s a -> s{_oarlUploadProtocol = a})
oarlAccessToken :: Lens' OrganizationsApprovalRequestsList (Maybe Text)
oarlAccessToken
= lens _oarlAccessToken
(\ s a -> s{_oarlAccessToken = a})
oarlUploadType :: Lens' OrganizationsApprovalRequestsList (Maybe Text)
oarlUploadType
= lens _oarlUploadType
(\ s a -> s{_oarlUploadType = a})
oarlFilter :: Lens' OrganizationsApprovalRequestsList (Maybe Text)
oarlFilter
= lens _oarlFilter (\ s a -> s{_oarlFilter = a})
oarlPageToken :: Lens' OrganizationsApprovalRequestsList (Maybe Text)
oarlPageToken
= lens _oarlPageToken
(\ s a -> s{_oarlPageToken = a})
oarlPageSize :: Lens' OrganizationsApprovalRequestsList (Maybe Int32)
oarlPageSize
= lens _oarlPageSize (\ s a -> s{_oarlPageSize = a})
. mapping _Coerce
oarlCallback :: Lens' OrganizationsApprovalRequestsList (Maybe Text)
oarlCallback
= lens _oarlCallback (\ s a -> s{_oarlCallback = a})
instance GoogleRequest
OrganizationsApprovalRequestsList
where
type Rs OrganizationsApprovalRequestsList =
ListApprovalRequestsResponse
type Scopes OrganizationsApprovalRequestsList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient OrganizationsApprovalRequestsList'{..}
= go _oarlParent _oarlXgafv _oarlUploadProtocol
_oarlAccessToken
_oarlUploadType
_oarlFilter
_oarlPageToken
_oarlPageSize
_oarlCallback
(Just AltJSON)
accessApprovalService
where go
= buildClient
(Proxy ::
Proxy OrganizationsApprovalRequestsListResource)
mempty