module Network.Google.Resource.Dataflow.Projects.Jobs.GetMetrics
(
ProjectsJobsGetMetricsResource
, projectsJobsGetMetrics
, ProjectsJobsGetMetrics
, pjgmXgafv
, pjgmJobId
, pjgmUploadProtocol
, pjgmStartTime
, pjgmPp
, pjgmAccessToken
, pjgmUploadType
, pjgmBearerToken
, pjgmProjectId
, pjgmCallback
) where
import Network.Google.Dataflow.Types
import Network.Google.Prelude
type ProjectsJobsGetMetricsResource =
"v1b3" :>
"projects" :>
Capture "projectId" Text :>
"jobs" :>
Capture "jobId" Text :>
"metrics" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "startTime" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] JobMetrics
data ProjectsJobsGetMetrics = ProjectsJobsGetMetrics'
{ _pjgmXgafv :: !(Maybe Text)
, _pjgmJobId :: !Text
, _pjgmUploadProtocol :: !(Maybe Text)
, _pjgmStartTime :: !(Maybe Text)
, _pjgmPp :: !Bool
, _pjgmAccessToken :: !(Maybe Text)
, _pjgmUploadType :: !(Maybe Text)
, _pjgmBearerToken :: !(Maybe Text)
, _pjgmProjectId :: !Text
, _pjgmCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsJobsGetMetrics
:: Text
-> Text
-> ProjectsJobsGetMetrics
projectsJobsGetMetrics pPjgmJobId_ pPjgmProjectId_ =
ProjectsJobsGetMetrics'
{ _pjgmXgafv = Nothing
, _pjgmJobId = pPjgmJobId_
, _pjgmUploadProtocol = Nothing
, _pjgmStartTime = Nothing
, _pjgmPp = True
, _pjgmAccessToken = Nothing
, _pjgmUploadType = Nothing
, _pjgmBearerToken = Nothing
, _pjgmProjectId = pPjgmProjectId_
, _pjgmCallback = Nothing
}
pjgmXgafv :: Lens' ProjectsJobsGetMetrics (Maybe Text)
pjgmXgafv
= lens _pjgmXgafv (\ s a -> s{_pjgmXgafv = a})
pjgmJobId :: Lens' ProjectsJobsGetMetrics Text
pjgmJobId
= lens _pjgmJobId (\ s a -> s{_pjgmJobId = a})
pjgmUploadProtocol :: Lens' ProjectsJobsGetMetrics (Maybe Text)
pjgmUploadProtocol
= lens _pjgmUploadProtocol
(\ s a -> s{_pjgmUploadProtocol = a})
pjgmStartTime :: Lens' ProjectsJobsGetMetrics (Maybe Text)
pjgmStartTime
= lens _pjgmStartTime
(\ s a -> s{_pjgmStartTime = a})
pjgmPp :: Lens' ProjectsJobsGetMetrics Bool
pjgmPp = lens _pjgmPp (\ s a -> s{_pjgmPp = a})
pjgmAccessToken :: Lens' ProjectsJobsGetMetrics (Maybe Text)
pjgmAccessToken
= lens _pjgmAccessToken
(\ s a -> s{_pjgmAccessToken = a})
pjgmUploadType :: Lens' ProjectsJobsGetMetrics (Maybe Text)
pjgmUploadType
= lens _pjgmUploadType
(\ s a -> s{_pjgmUploadType = a})
pjgmBearerToken :: Lens' ProjectsJobsGetMetrics (Maybe Text)
pjgmBearerToken
= lens _pjgmBearerToken
(\ s a -> s{_pjgmBearerToken = a})
pjgmProjectId :: Lens' ProjectsJobsGetMetrics Text
pjgmProjectId
= lens _pjgmProjectId
(\ s a -> s{_pjgmProjectId = a})
pjgmCallback :: Lens' ProjectsJobsGetMetrics (Maybe Text)
pjgmCallback
= lens _pjgmCallback (\ s a -> s{_pjgmCallback = a})
instance GoogleRequest ProjectsJobsGetMetrics where
type Rs ProjectsJobsGetMetrics = JobMetrics
type Scopes ProjectsJobsGetMetrics =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/userinfo.email"]
requestClient ProjectsJobsGetMetrics'{..}
= go _pjgmProjectId _pjgmJobId _pjgmXgafv
_pjgmUploadProtocol
_pjgmStartTime
(Just _pjgmPp)
_pjgmAccessToken
_pjgmUploadType
_pjgmBearerToken
_pjgmCallback
(Just AltJSON)
dataflowService
where go
= buildClient
(Proxy :: Proxy ProjectsJobsGetMetricsResource)
mempty