summaryrefslogtreecommitdiff
path: root/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs
diff options
context:
space:
mode:
Diffstat (limited to 'gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs')
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs51
1 files changed, 15 insertions, 36 deletions
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs
index fdcafec..54d7e9a 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs
@@ -22,7 +22,7 @@
--
-- Request the job status.
--
--- /See:/ <https://cloud.google.com/dataflow Google Dataflow API Reference> for @dataflow.projects.jobs.getMetrics@.
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.getMetrics@.
module Network.Google.Resource.Dataflow.Projects.Jobs.GetMetrics
(
-- * REST Resource
@@ -38,10 +38,8 @@ module Network.Google.Resource.Dataflow.Projects.Jobs.GetMetrics
, pjgmUploadProtocol
, pjgmLocation
, pjgmStartTime
- , pjgmPp
, pjgmAccessToken
, pjgmUploadType
- , pjgmBearerToken
, pjgmProjectId
, pjgmCallback
) where
@@ -58,31 +56,27 @@ type ProjectsJobsGetMetricsResource =
"jobs" :>
Capture "jobId" Text :>
"metrics" :>
- QueryParam "$.xgafv" Text :>
+ QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "location" 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
+ QueryParam "startTime" DateTime' :>
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "alt" AltJSON :>
+ Get '[JSON] JobMetrics
-- | Request the job status.
--
-- /See:/ 'projectsJobsGetMetrics' smart constructor.
data ProjectsJobsGetMetrics = ProjectsJobsGetMetrics'
- { _pjgmXgafv :: !(Maybe Text)
+ { _pjgmXgafv :: !(Maybe Xgafv)
, _pjgmJobId :: !Text
, _pjgmUploadProtocol :: !(Maybe Text)
, _pjgmLocation :: !(Maybe Text)
- , _pjgmStartTime :: !(Maybe Text)
- , _pjgmPp :: !Bool
+ , _pjgmStartTime :: !(Maybe DateTime')
, _pjgmAccessToken :: !(Maybe Text)
, _pjgmUploadType :: !(Maybe Text)
- , _pjgmBearerToken :: !(Maybe Text)
, _pjgmProjectId :: !Text
, _pjgmCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
@@ -101,14 +95,10 @@ data ProjectsJobsGetMetrics = ProjectsJobsGetMetrics'
--
-- * 'pjgmStartTime'
--
--- * 'pjgmPp'
---
-- * 'pjgmAccessToken'
--
-- * 'pjgmUploadType'
--
--- * 'pjgmBearerToken'
---
-- * 'pjgmProjectId'
--
-- * 'pjgmCallback'
@@ -123,16 +113,14 @@ projectsJobsGetMetrics pPjgmJobId_ pPjgmProjectId_ =
, _pjgmUploadProtocol = Nothing
, _pjgmLocation = Nothing
, _pjgmStartTime = Nothing
- , _pjgmPp = True
, _pjgmAccessToken = Nothing
, _pjgmUploadType = Nothing
- , _pjgmBearerToken = Nothing
, _pjgmProjectId = pPjgmProjectId_
, _pjgmCallback = Nothing
}
-- | V1 error format.
-pjgmXgafv :: Lens' ProjectsJobsGetMetrics (Maybe Text)
+pjgmXgafv :: Lens' ProjectsJobsGetMetrics (Maybe Xgafv)
pjgmXgafv
= lens _pjgmXgafv (\ s a -> s{_pjgmXgafv = a})
@@ -154,14 +142,11 @@ pjgmLocation
-- | Return only metric data that has changed since this time. Default is to
-- return all information about all metrics for the job.
-pjgmStartTime :: Lens' ProjectsJobsGetMetrics (Maybe Text)
+pjgmStartTime :: Lens' ProjectsJobsGetMetrics (Maybe UTCTime)
pjgmStartTime
= lens _pjgmStartTime
(\ s a -> s{_pjgmStartTime = a})
-
--- | Pretty-print response.
-pjgmPp :: Lens' ProjectsJobsGetMetrics Bool
-pjgmPp = lens _pjgmPp (\ s a -> s{_pjgmPp = a})
+ . mapping _DateTime
-- | OAuth access token.
pjgmAccessToken :: Lens' ProjectsJobsGetMetrics (Maybe Text)
@@ -175,12 +160,6 @@ pjgmUploadType
= lens _pjgmUploadType
(\ s a -> s{_pjgmUploadType = a})
--- | OAuth bearer token.
-pjgmBearerToken :: Lens' ProjectsJobsGetMetrics (Maybe Text)
-pjgmBearerToken
- = lens _pjgmBearerToken
- (\ s a -> s{_pjgmBearerToken = a})
-
-- | A project id.
pjgmProjectId :: Lens' ProjectsJobsGetMetrics Text
pjgmProjectId
@@ -196,16 +175,16 @@ instance GoogleRequest ProjectsJobsGetMetrics where
type Rs ProjectsJobsGetMetrics = JobMetrics
type Scopes ProjectsJobsGetMetrics =
'["https://www.googleapis.com/auth/cloud-platform",
+ "https://www.googleapis.com/auth/compute",
+ "https://www.googleapis.com/auth/compute.readonly",
"https://www.googleapis.com/auth/userinfo.email"]
requestClient ProjectsJobsGetMetrics'{..}
= go _pjgmProjectId _pjgmJobId _pjgmXgafv
_pjgmUploadProtocol
_pjgmLocation
_pjgmStartTime
- (Just _pjgmPp)
_pjgmAccessToken
_pjgmUploadType
- _pjgmBearerToken
_pjgmCallback
(Just AltJSON)
dataflowService