{-# 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.Jobs.Projects.Jobs.List
(
ProjectsJobsListResource
, projectsJobsList
, ProjectsJobsList
, pjlParent
, pjlXgafv
, pjlJobView
, pjlUploadProtocol
, pjlAccessToken
, pjlUploadType
, pjlFilter
, pjlPageToken
, pjlPageSize
, pjlCallback
) where
import Network.Google.Jobs.Types
import Network.Google.Prelude
type ProjectsJobsListResource =
"v3p1beta1" :>
Capture "parent" Text :>
"jobs" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "jobView" Text :>
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] ListJobsResponse
data ProjectsJobsList = ProjectsJobsList'
{ _pjlParent :: !Text
, _pjlXgafv :: !(Maybe Xgafv)
, _pjlJobView :: !(Maybe Text)
, _pjlUploadProtocol :: !(Maybe Text)
, _pjlAccessToken :: !(Maybe Text)
, _pjlUploadType :: !(Maybe Text)
, _pjlFilter :: !(Maybe Text)
, _pjlPageToken :: !(Maybe Text)
, _pjlPageSize :: !(Maybe (Textual Int32))
, _pjlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsJobsList
:: Text
-> ProjectsJobsList
projectsJobsList pPjlParent_ =
ProjectsJobsList'
{ _pjlParent = pPjlParent_
, _pjlXgafv = Nothing
, _pjlJobView = Nothing
, _pjlUploadProtocol = Nothing
, _pjlAccessToken = Nothing
, _pjlUploadType = Nothing
, _pjlFilter = Nothing
, _pjlPageToken = Nothing
, _pjlPageSize = Nothing
, _pjlCallback = Nothing
}
pjlParent :: Lens' ProjectsJobsList Text
pjlParent
= lens _pjlParent (\ s a -> s{_pjlParent = a})
pjlXgafv :: Lens' ProjectsJobsList (Maybe Xgafv)
pjlXgafv = lens _pjlXgafv (\ s a -> s{_pjlXgafv = a})
pjlJobView :: Lens' ProjectsJobsList (Maybe Text)
pjlJobView
= lens _pjlJobView (\ s a -> s{_pjlJobView = a})
pjlUploadProtocol :: Lens' ProjectsJobsList (Maybe Text)
pjlUploadProtocol
= lens _pjlUploadProtocol
(\ s a -> s{_pjlUploadProtocol = a})
pjlAccessToken :: Lens' ProjectsJobsList (Maybe Text)
pjlAccessToken
= lens _pjlAccessToken
(\ s a -> s{_pjlAccessToken = a})
pjlUploadType :: Lens' ProjectsJobsList (Maybe Text)
pjlUploadType
= lens _pjlUploadType
(\ s a -> s{_pjlUploadType = a})
pjlFilter :: Lens' ProjectsJobsList (Maybe Text)
pjlFilter
= lens _pjlFilter (\ s a -> s{_pjlFilter = a})
pjlPageToken :: Lens' ProjectsJobsList (Maybe Text)
pjlPageToken
= lens _pjlPageToken (\ s a -> s{_pjlPageToken = a})
pjlPageSize :: Lens' ProjectsJobsList (Maybe Int32)
pjlPageSize
= lens _pjlPageSize (\ s a -> s{_pjlPageSize = a}) .
mapping _Coerce
pjlCallback :: Lens' ProjectsJobsList (Maybe Text)
pjlCallback
= lens _pjlCallback (\ s a -> s{_pjlCallback = a})
instance GoogleRequest ProjectsJobsList where
type Rs ProjectsJobsList = ListJobsResponse
type Scopes ProjectsJobsList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/jobs"]
requestClient ProjectsJobsList'{..}
= go _pjlParent _pjlXgafv _pjlJobView
_pjlUploadProtocol
_pjlAccessToken
_pjlUploadType
_pjlFilter
_pjlPageToken
_pjlPageSize
_pjlCallback
(Just AltJSON)
jobsService
where go
= buildClient
(Proxy :: Proxy ProjectsJobsListResource)
mempty