diff options
Diffstat (limited to 'gen/Network/Google/Resource')
38 files changed, 1720 insertions, 150 deletions
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/DeleteSnapshots.hs b/gen/Network/Google/Resource/Dataflow/Projects/DeleteSnapshots.hs new file mode 100644 index 0000000..1d705b7 --- /dev/null +++ b/gen/Network/Google/Resource/Dataflow/Projects/DeleteSnapshots.hs @@ -0,0 +1,181 @@ +{-# 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.Dataflow.Projects.DeleteSnapshots +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes a snapshot. +-- +-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.deleteSnapshots@. +module Network.Google.Resource.Dataflow.Projects.DeleteSnapshots + ( + -- * REST Resource + ProjectsDeleteSnapshotsResource + + -- * Creating a Request + , projectsDeleteSnapshots + , ProjectsDeleteSnapshots + + -- * Request Lenses + , pdsXgafv + , pdsUploadProtocol + , pdsLocation + , pdsAccessToken + , pdsUploadType + , pdsProjectId + , pdsCallback + , pdsSnapshotId + ) where + +import Network.Google.Dataflow.Types +import Network.Google.Prelude + +-- | A resource alias for @dataflow.projects.deleteSnapshots@ method which the +-- 'ProjectsDeleteSnapshots' request conforms to. +type ProjectsDeleteSnapshotsResource = + "v1b3" :> + "projects" :> + Capture "projectId" Text :> + "snapshots" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "location" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "snapshotId" Text :> + QueryParam "alt" AltJSON :> + Delete '[JSON] DeleteSnapshotResponse + +-- | Deletes a snapshot. +-- +-- /See:/ 'projectsDeleteSnapshots' smart constructor. +data ProjectsDeleteSnapshots = + ProjectsDeleteSnapshots' + { _pdsXgafv :: !(Maybe Xgafv) + , _pdsUploadProtocol :: !(Maybe Text) + , _pdsLocation :: !(Maybe Text) + , _pdsAccessToken :: !(Maybe Text) + , _pdsUploadType :: !(Maybe Text) + , _pdsProjectId :: !Text + , _pdsCallback :: !(Maybe Text) + , _pdsSnapshotId :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsDeleteSnapshots' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pdsXgafv' +-- +-- * 'pdsUploadProtocol' +-- +-- * 'pdsLocation' +-- +-- * 'pdsAccessToken' +-- +-- * 'pdsUploadType' +-- +-- * 'pdsProjectId' +-- +-- * 'pdsCallback' +-- +-- * 'pdsSnapshotId' +projectsDeleteSnapshots + :: Text -- ^ 'pdsProjectId' + -> ProjectsDeleteSnapshots +projectsDeleteSnapshots pPdsProjectId_ = + ProjectsDeleteSnapshots' + { _pdsXgafv = Nothing + , _pdsUploadProtocol = Nothing + , _pdsLocation = Nothing + , _pdsAccessToken = Nothing + , _pdsUploadType = Nothing + , _pdsProjectId = pPdsProjectId_ + , _pdsCallback = Nothing + , _pdsSnapshotId = Nothing + } + + +-- | V1 error format. +pdsXgafv :: Lens' ProjectsDeleteSnapshots (Maybe Xgafv) +pdsXgafv = lens _pdsXgafv (\ s a -> s{_pdsXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pdsUploadProtocol :: Lens' ProjectsDeleteSnapshots (Maybe Text) +pdsUploadProtocol + = lens _pdsUploadProtocol + (\ s a -> s{_pdsUploadProtocol = a}) + +-- | The location that contains this snapshot. +pdsLocation :: Lens' ProjectsDeleteSnapshots (Maybe Text) +pdsLocation + = lens _pdsLocation (\ s a -> s{_pdsLocation = a}) + +-- | OAuth access token. +pdsAccessToken :: Lens' ProjectsDeleteSnapshots (Maybe Text) +pdsAccessToken + = lens _pdsAccessToken + (\ s a -> s{_pdsAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pdsUploadType :: Lens' ProjectsDeleteSnapshots (Maybe Text) +pdsUploadType + = lens _pdsUploadType + (\ s a -> s{_pdsUploadType = a}) + +-- | The ID of the Cloud Platform project that the snapshot belongs to. +pdsProjectId :: Lens' ProjectsDeleteSnapshots Text +pdsProjectId + = lens _pdsProjectId (\ s a -> s{_pdsProjectId = a}) + +-- | JSONP +pdsCallback :: Lens' ProjectsDeleteSnapshots (Maybe Text) +pdsCallback + = lens _pdsCallback (\ s a -> s{_pdsCallback = a}) + +-- | The ID of the snapshot. +pdsSnapshotId :: Lens' ProjectsDeleteSnapshots (Maybe Text) +pdsSnapshotId + = lens _pdsSnapshotId + (\ s a -> s{_pdsSnapshotId = a}) + +instance GoogleRequest ProjectsDeleteSnapshots where + type Rs ProjectsDeleteSnapshots = + DeleteSnapshotResponse + type Scopes ProjectsDeleteSnapshots = + '["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 ProjectsDeleteSnapshots'{..} + = go _pdsProjectId _pdsXgafv _pdsUploadProtocol + _pdsLocation + _pdsAccessToken + _pdsUploadType + _pdsCallback + _pdsSnapshotId + (Just AltJSON) + dataflowService + where go + = buildClient + (Proxy :: Proxy ProjectsDeleteSnapshotsResource) + mempty diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs index ea2d06e..34ba105 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs @@ -72,7 +72,8 @@ type ProjectsJobsAggregatedResource = -- | List the jobs of a project across all regions. -- -- /See:/ 'projectsJobsAggregated' smart constructor. -data ProjectsJobsAggregated = ProjectsJobsAggregated' +data ProjectsJobsAggregated = + ProjectsJobsAggregated' { _pjaXgafv :: !(Maybe Xgafv) , _pjaUploadProtocol :: !(Maybe Text) , _pjaLocation :: !(Maybe Text) @@ -84,7 +85,9 @@ data ProjectsJobsAggregated = ProjectsJobsAggregated' , _pjaProjectId :: !Text , _pjaPageSize :: !(Maybe (Textual Int32)) , _pjaCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsAggregated' with the minimum fields required to make a request. -- @@ -115,7 +118,7 @@ projectsJobsAggregated :: Text -- ^ 'pjaProjectId' -> ProjectsJobsAggregated projectsJobsAggregated pPjaProjectId_ = - ProjectsJobsAggregated' + ProjectsJobsAggregated' { _pjaXgafv = Nothing , _pjaUploadProtocol = Nothing , _pjaLocation = Nothing @@ -129,6 +132,7 @@ projectsJobsAggregated pPjaProjectId_ = , _pjaCallback = Nothing } + -- | V1 error format. pjaXgafv :: Lens' ProjectsJobsAggregated (Maybe Xgafv) pjaXgafv = lens _pjaXgafv (\ s a -> s{_pjaXgafv = a}) @@ -139,7 +143,9 @@ pjaUploadProtocol = lens _pjaUploadProtocol (\ s a -> s{_pjaUploadProtocol = a}) --- | The location that contains this job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains this job. pjaLocation :: Lens' ProjectsJobsAggregated (Maybe Text) pjaLocation = lens _pjaLocation (\ s a -> s{_pjaLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs index 97c884d..69d8b9a 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs @@ -20,7 +20,11 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a Cloud Dataflow job. +-- Creates a Cloud Dataflow job. To create a job, we recommend using +-- \`projects.locations.jobs.create\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.create\` is not recommended, as your job will +-- always start in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.create@. module Network.Google.Resource.Dataflow.Projects.Jobs.Create @@ -66,10 +70,15 @@ type ProjectsJobsCreateResource = QueryParam "alt" AltJSON :> ReqBody '[JSON] Job :> Post '[JSON] Job --- | Creates a Cloud Dataflow job. +-- | Creates a Cloud Dataflow job. To create a job, we recommend using +-- \`projects.locations.jobs.create\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.create\` is not recommended, as your job will +-- always start in \`us-central1\`. -- -- /See:/ 'projectsJobsCreate' smart constructor. -data ProjectsJobsCreate = ProjectsJobsCreate' +data ProjectsJobsCreate = + ProjectsJobsCreate' { _pjcXgafv :: !(Maybe Xgafv) , _pjcUploadProtocol :: !(Maybe Text) , _pjcLocation :: !(Maybe Text) @@ -80,7 +89,9 @@ data ProjectsJobsCreate = ProjectsJobsCreate' , _pjcProjectId :: !Text , _pjcReplaceJobId :: !(Maybe Text) , _pjcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsCreate' with the minimum fields required to make a request. -- @@ -110,7 +121,7 @@ projectsJobsCreate -> Text -- ^ 'pjcProjectId' -> ProjectsJobsCreate projectsJobsCreate pPjcPayload_ pPjcProjectId_ = - ProjectsJobsCreate' + ProjectsJobsCreate' { _pjcXgafv = Nothing , _pjcUploadProtocol = Nothing , _pjcLocation = Nothing @@ -123,6 +134,7 @@ projectsJobsCreate pPjcPayload_ pPjcProjectId_ = , _pjcCallback = Nothing } + -- | V1 error format. pjcXgafv :: Lens' ProjectsJobsCreate (Maybe Xgafv) pjcXgafv = lens _pjcXgafv (\ s a -> s{_pjcXgafv = a}) @@ -133,7 +145,9 @@ pjcUploadProtocol = lens _pjcUploadProtocol (\ s a -> s{_pjcUploadProtocol = a}) --- | The location that contains this job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains this job. pjcLocation :: Lens' ProjectsJobsCreate (Maybe Text) pjcLocation = lens _pjcLocation (\ s a -> s{_pjcLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs index d7eee23..74fc7a7 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs @@ -68,7 +68,8 @@ type ProjectsJobsDebugGetConfigResource = -- | Get encoded debug configuration for component. Not cacheable. -- -- /See:/ 'projectsJobsDebugGetConfig' smart constructor. -data ProjectsJobsDebugGetConfig = ProjectsJobsDebugGetConfig' +data ProjectsJobsDebugGetConfig = + ProjectsJobsDebugGetConfig' { _pjdgcXgafv :: !(Maybe Xgafv) , _pjdgcJobId :: !Text , _pjdgcUploadProtocol :: !(Maybe Text) @@ -77,7 +78,9 @@ data ProjectsJobsDebugGetConfig = ProjectsJobsDebugGetConfig' , _pjdgcPayload :: !GetDebugConfigRequest , _pjdgcProjectId :: !Text , _pjdgcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsDebugGetConfig' with the minimum fields required to make a request. -- @@ -104,7 +107,7 @@ projectsJobsDebugGetConfig -> Text -- ^ 'pjdgcProjectId' -> ProjectsJobsDebugGetConfig projectsJobsDebugGetConfig pPjdgcJobId_ pPjdgcPayload_ pPjdgcProjectId_ = - ProjectsJobsDebugGetConfig' + ProjectsJobsDebugGetConfig' { _pjdgcXgafv = Nothing , _pjdgcJobId = pPjdgcJobId_ , _pjdgcUploadProtocol = Nothing @@ -115,6 +118,7 @@ projectsJobsDebugGetConfig pPjdgcJobId_ pPjdgcPayload_ pPjdgcProjectId_ = , _pjdgcCallback = Nothing } + -- | V1 error format. pjdgcXgafv :: Lens' ProjectsJobsDebugGetConfig (Maybe Xgafv) pjdgcXgafv diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs index f7d2405..45e9afa 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs @@ -68,7 +68,8 @@ type ProjectsJobsDebugSendCaptureResource = -- | Send encoded debug capture data for component. -- -- /See:/ 'projectsJobsDebugSendCapture' smart constructor. -data ProjectsJobsDebugSendCapture = ProjectsJobsDebugSendCapture' +data ProjectsJobsDebugSendCapture = + ProjectsJobsDebugSendCapture' { _pjdscXgafv :: !(Maybe Xgafv) , _pjdscJobId :: !Text , _pjdscUploadProtocol :: !(Maybe Text) @@ -77,7 +78,9 @@ data ProjectsJobsDebugSendCapture = ProjectsJobsDebugSendCapture' , _pjdscPayload :: !SendDebugCaptureRequest , _pjdscProjectId :: !Text , _pjdscCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsDebugSendCapture' with the minimum fields required to make a request. -- @@ -104,7 +107,7 @@ projectsJobsDebugSendCapture -> Text -- ^ 'pjdscProjectId' -> ProjectsJobsDebugSendCapture projectsJobsDebugSendCapture pPjdscJobId_ pPjdscPayload_ pPjdscProjectId_ = - ProjectsJobsDebugSendCapture' + ProjectsJobsDebugSendCapture' { _pjdscXgafv = Nothing , _pjdscJobId = pPjdscJobId_ , _pjdscUploadProtocol = Nothing @@ -115,6 +118,7 @@ projectsJobsDebugSendCapture pPjdscJobId_ pPjdscPayload_ pPjdscProjectId_ = , _pjdscCallback = Nothing } + -- | V1 error format. pjdscXgafv :: Lens' ProjectsJobsDebugSendCapture (Maybe Xgafv) pjdscXgafv diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs index 2ed39cc..1cc5f8e 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs @@ -20,7 +20,12 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Gets the state of the specified Cloud Dataflow job. +-- Gets the state of the specified Cloud Dataflow job. To get the state of +-- a job, we recommend using \`projects.locations.jobs.get\` with a +-- [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.get\` is not recommended, as you can only get the +-- state of jobs that are running in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.get@. module Network.Google.Resource.Dataflow.Projects.Jobs.Get @@ -64,10 +69,16 @@ type ProjectsJobsGetResource = QueryParam "callback" Text :> QueryParam "alt" AltJSON :> Get '[JSON] Job --- | Gets the state of the specified Cloud Dataflow job. +-- | Gets the state of the specified Cloud Dataflow job. To get the state of +-- a job, we recommend using \`projects.locations.jobs.get\` with a +-- [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.get\` is not recommended, as you can only get the +-- state of jobs that are running in \`us-central1\`. -- -- /See:/ 'projectsJobsGet' smart constructor. -data ProjectsJobsGet = ProjectsJobsGet' +data ProjectsJobsGet = + ProjectsJobsGet' { _pjgXgafv :: !(Maybe Xgafv) , _pjgJobId :: !Text , _pjgUploadProtocol :: !(Maybe Text) @@ -77,7 +88,9 @@ data ProjectsJobsGet = ProjectsJobsGet' , _pjgView :: !(Maybe Text) , _pjgProjectId :: !Text , _pjgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsGet' with the minimum fields required to make a request. -- @@ -105,7 +118,7 @@ projectsJobsGet -> Text -- ^ 'pjgProjectId' -> ProjectsJobsGet projectsJobsGet pPjgJobId_ pPjgProjectId_ = - ProjectsJobsGet' + ProjectsJobsGet' { _pjgXgafv = Nothing , _pjgJobId = pPjgJobId_ , _pjgUploadProtocol = Nothing @@ -117,6 +130,7 @@ projectsJobsGet pPjgJobId_ pPjgProjectId_ = , _pjgCallback = Nothing } + -- | V1 error format. pjgXgafv :: Lens' ProjectsJobsGet (Maybe Xgafv) pjgXgafv = lens _pjgXgafv (\ s a -> s{_pjgXgafv = a}) @@ -131,7 +145,9 @@ pjgUploadProtocol = lens _pjgUploadProtocol (\ s a -> s{_pjgUploadProtocol = a}) --- | The location that contains this job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains this job. pjgLocation :: Lens' ProjectsJobsGet (Maybe Text) pjgLocation = lens _pjgLocation (\ s a -> s{_pjgLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs index 54d7e9a..b3ae133 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs @@ -20,7 +20,11 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Request the job status. +-- Request the job status. To request the status of a job, we recommend +-- using \`projects.locations.jobs.getMetrics\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.getMetrics\` is not recommended, as you can only +-- request the status of jobs that are running in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.getMetrics@. module Network.Google.Resource.Dataflow.Projects.Jobs.GetMetrics @@ -66,10 +70,15 @@ type ProjectsJobsGetMetricsResource = QueryParam "alt" AltJSON :> Get '[JSON] JobMetrics --- | Request the job status. +-- | Request the job status. To request the status of a job, we recommend +-- using \`projects.locations.jobs.getMetrics\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.getMetrics\` is not recommended, as you can only +-- request the status of jobs that are running in \`us-central1\`. -- -- /See:/ 'projectsJobsGetMetrics' smart constructor. -data ProjectsJobsGetMetrics = ProjectsJobsGetMetrics' +data ProjectsJobsGetMetrics = + ProjectsJobsGetMetrics' { _pjgmXgafv :: !(Maybe Xgafv) , _pjgmJobId :: !Text , _pjgmUploadProtocol :: !(Maybe Text) @@ -79,7 +88,9 @@ data ProjectsJobsGetMetrics = ProjectsJobsGetMetrics' , _pjgmUploadType :: !(Maybe Text) , _pjgmProjectId :: !Text , _pjgmCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsGetMetrics' with the minimum fields required to make a request. -- @@ -107,7 +118,7 @@ projectsJobsGetMetrics -> Text -- ^ 'pjgmProjectId' -> ProjectsJobsGetMetrics projectsJobsGetMetrics pPjgmJobId_ pPjgmProjectId_ = - ProjectsJobsGetMetrics' + ProjectsJobsGetMetrics' { _pjgmXgafv = Nothing , _pjgmJobId = pPjgmJobId_ , _pjgmUploadProtocol = Nothing @@ -119,6 +130,7 @@ projectsJobsGetMetrics pPjgmJobId_ pPjgmProjectId_ = , _pjgmCallback = Nothing } + -- | V1 error format. pjgmXgafv :: Lens' ProjectsJobsGetMetrics (Maybe Xgafv) pjgmXgafv @@ -135,7 +147,9 @@ pjgmUploadProtocol = lens _pjgmUploadProtocol (\ s a -> s{_pjgmUploadProtocol = a}) --- | The location which contains the job specified by job_id. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains the job specified by job_id. pjgmLocation :: Lens' ProjectsJobsGetMetrics (Maybe Text) pjgmLocation = lens _pjgmLocation (\ s a -> s{_pjgmLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs index 9f07fb8..f5293c6 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs @@ -20,7 +20,14 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- List the jobs of a project in a given region. +-- List the jobs of a project. To list the jobs of a project in a region, +-- we recommend using \`projects.locations.jobs.get\` with a [regional +-- endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- To list the all jobs across all regions, use +-- \`projects.jobs.aggregated\`. Using \`projects.jobs.list\` is not +-- recommended, as you can only get the list of jobs that are running in +-- \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.list@. module Network.Google.Resource.Dataflow.Projects.Jobs.List @@ -69,10 +76,18 @@ type ProjectsJobsListResource = QueryParam "alt" AltJSON :> Get '[JSON] ListJobsResponse --- | List the jobs of a project in a given region. +-- | List the jobs of a project. To list the jobs of a project in a region, +-- we recommend using \`projects.locations.jobs.get\` with a [regional +-- endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- To list the all jobs across all regions, use +-- \`projects.jobs.aggregated\`. Using \`projects.jobs.list\` is not +-- recommended, as you can only get the list of jobs that are running in +-- \`us-central1\`. -- -- /See:/ 'projectsJobsList' smart constructor. -data ProjectsJobsList = ProjectsJobsList' +data ProjectsJobsList = + ProjectsJobsList' { _pjlXgafv :: !(Maybe Xgafv) , _pjlUploadProtocol :: !(Maybe Text) , _pjlLocation :: !(Maybe Text) @@ -84,7 +99,9 @@ data ProjectsJobsList = ProjectsJobsList' , _pjlProjectId :: !Text , _pjlPageSize :: !(Maybe (Textual Int32)) , _pjlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsList' with the minimum fields required to make a request. -- @@ -115,7 +132,7 @@ projectsJobsList :: Text -- ^ 'pjlProjectId' -> ProjectsJobsList projectsJobsList pPjlProjectId_ = - ProjectsJobsList' + ProjectsJobsList' { _pjlXgafv = Nothing , _pjlUploadProtocol = Nothing , _pjlLocation = Nothing @@ -129,6 +146,7 @@ projectsJobsList pPjlProjectId_ = , _pjlCallback = Nothing } + -- | V1 error format. pjlXgafv :: Lens' ProjectsJobsList (Maybe Xgafv) pjlXgafv = lens _pjlXgafv (\ s a -> s{_pjlXgafv = a}) @@ -139,7 +157,9 @@ pjlUploadProtocol = lens _pjlUploadProtocol (\ s a -> s{_pjlUploadProtocol = a}) --- | The location that contains this job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains this job. pjlLocation :: Lens' ProjectsJobsList (Maybe Text) pjlLocation = lens _pjlLocation (\ s a -> s{_pjlLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs index af5d54a..28e4f94 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs @@ -20,7 +20,12 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Request the job status. +-- Request the job status. To request the status of a job, we recommend +-- using \`projects.locations.jobs.messages.list\` with a [regional +-- endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.messages.list\` is not recommended, as you can +-- only request the status of jobs that are running in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.messages.list@. module Network.Google.Resource.Dataflow.Projects.Jobs.Messages.List @@ -74,10 +79,16 @@ type ProjectsJobsMessagesListResource = QueryParam "alt" AltJSON :> Get '[JSON] ListJobMessagesResponse --- | Request the job status. +-- | Request the job status. To request the status of a job, we recommend +-- using \`projects.locations.jobs.messages.list\` with a [regional +-- endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.messages.list\` is not recommended, as you can +-- only request the status of jobs that are running in \`us-central1\`. -- -- /See:/ 'projectsJobsMessagesList' smart constructor. -data ProjectsJobsMessagesList = ProjectsJobsMessagesList' +data ProjectsJobsMessagesList = + ProjectsJobsMessagesList' { _pjmlXgafv :: !(Maybe Xgafv) , _pjmlJobId :: !Text , _pjmlUploadProtocol :: !(Maybe Text) @@ -91,7 +102,9 @@ data ProjectsJobsMessagesList = ProjectsJobsMessagesList' , _pjmlProjectId :: !Text , _pjmlPageSize :: !(Maybe (Textual Int32)) , _pjmlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsMessagesList' with the minimum fields required to make a request. -- @@ -127,7 +140,7 @@ projectsJobsMessagesList -> Text -- ^ 'pjmlProjectId' -> ProjectsJobsMessagesList projectsJobsMessagesList pPjmlJobId_ pPjmlProjectId_ = - ProjectsJobsMessagesList' + ProjectsJobsMessagesList' { _pjmlXgafv = Nothing , _pjmlJobId = pPjmlJobId_ , _pjmlUploadProtocol = Nothing @@ -143,6 +156,7 @@ projectsJobsMessagesList pPjmlJobId_ pPjmlProjectId_ = , _pjmlCallback = Nothing } + -- | V1 error format. pjmlXgafv :: Lens' ProjectsJobsMessagesList (Maybe Xgafv) pjmlXgafv @@ -159,7 +173,9 @@ pjmlUploadProtocol = lens _pjmlUploadProtocol (\ s a -> s{_pjmlUploadProtocol = a}) --- | The location which contains the job specified by job_id. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains the job specified by job_id. pjmlLocation :: Lens' ProjectsJobsMessagesList (Maybe Text) pjmlLocation = lens _pjmlLocation (\ s a -> s{_pjmlLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs index f24cdea..2ece42c 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs @@ -66,7 +66,8 @@ type ProjectsJobsSnapshotResource = -- | Snapshot the state of a streaming job. -- -- /See:/ 'projectsJobsSnapshot' smart constructor. -data ProjectsJobsSnapshot = ProjectsJobsSnapshot' +data ProjectsJobsSnapshot = + ProjectsJobsSnapshot' { _pjsXgafv :: !(Maybe Xgafv) , _pjsJobId :: !Text , _pjsUploadProtocol :: !(Maybe Text) @@ -75,7 +76,9 @@ data ProjectsJobsSnapshot = ProjectsJobsSnapshot' , _pjsPayload :: !SnapshotJobRequest , _pjsProjectId :: !Text , _pjsCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsSnapshot' with the minimum fields required to make a request. -- @@ -102,7 +105,7 @@ projectsJobsSnapshot -> Text -- ^ 'pjsProjectId' -> ProjectsJobsSnapshot projectsJobsSnapshot pPjsJobId_ pPjsPayload_ pPjsProjectId_ = - ProjectsJobsSnapshot' + ProjectsJobsSnapshot' { _pjsXgafv = Nothing , _pjsJobId = pPjsJobId_ , _pjsUploadProtocol = Nothing @@ -113,6 +116,7 @@ projectsJobsSnapshot pPjsJobId_ pPjsPayload_ pPjsProjectId_ = , _pjsCallback = Nothing } + -- | V1 error format. pjsXgafv :: Lens' ProjectsJobsSnapshot (Maybe Xgafv) pjsXgafv = lens _pjsXgafv (\ s a -> s{_pjsXgafv = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs index a9efd4a..9569217 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs @@ -20,7 +20,12 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Updates the state of an existing Cloud Dataflow job. +-- Updates the state of an existing Cloud Dataflow job. To update the state +-- of an existing job, we recommend using +-- \`projects.locations.jobs.update\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.update\` is not recommended, as you can only +-- update the state of jobs that are running in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.update@. module Network.Google.Resource.Dataflow.Projects.Jobs.Update @@ -64,10 +69,16 @@ type ProjectsJobsUpdateResource = QueryParam "alt" AltJSON :> ReqBody '[JSON] Job :> Put '[JSON] Job --- | Updates the state of an existing Cloud Dataflow job. +-- | Updates the state of an existing Cloud Dataflow job. To update the state +-- of an existing job, we recommend using +-- \`projects.locations.jobs.update\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.update\` is not recommended, as you can only +-- update the state of jobs that are running in \`us-central1\`. -- -- /See:/ 'projectsJobsUpdate' smart constructor. -data ProjectsJobsUpdate = ProjectsJobsUpdate' +data ProjectsJobsUpdate = + ProjectsJobsUpdate' { _pjuXgafv :: !(Maybe Xgafv) , _pjuJobId :: !Text , _pjuUploadProtocol :: !(Maybe Text) @@ -77,7 +88,9 @@ data ProjectsJobsUpdate = ProjectsJobsUpdate' , _pjuPayload :: !Job , _pjuProjectId :: !Text , _pjuCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsUpdate' with the minimum fields required to make a request. -- @@ -106,7 +119,7 @@ projectsJobsUpdate -> Text -- ^ 'pjuProjectId' -> ProjectsJobsUpdate projectsJobsUpdate pPjuJobId_ pPjuPayload_ pPjuProjectId_ = - ProjectsJobsUpdate' + ProjectsJobsUpdate' { _pjuXgafv = Nothing , _pjuJobId = pPjuJobId_ , _pjuUploadProtocol = Nothing @@ -118,6 +131,7 @@ projectsJobsUpdate pPjuJobId_ pPjuPayload_ pPjuProjectId_ = , _pjuCallback = Nothing } + -- | V1 error format. pjuXgafv :: Lens' ProjectsJobsUpdate (Maybe Xgafv) pjuXgafv = lens _pjuXgafv (\ s a -> s{_pjuXgafv = a}) @@ -132,7 +146,9 @@ pjuUploadProtocol = lens _pjuUploadProtocol (\ s a -> s{_pjuUploadProtocol = a}) --- | The location that contains this job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains this job. pjuLocation :: Lens' ProjectsJobsUpdate (Maybe Text) pjuLocation = lens _pjuLocation (\ s a -> s{_pjuLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs index a7912b8..eca6faa 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs @@ -67,7 +67,8 @@ type ProjectsJobsWorkItemsLeaseResource = -- | Leases a dataflow WorkItem to run. -- -- /See:/ 'projectsJobsWorkItemsLease' smart constructor. -data ProjectsJobsWorkItemsLease = ProjectsJobsWorkItemsLease' +data ProjectsJobsWorkItemsLease = + ProjectsJobsWorkItemsLease' { _pjwilXgafv :: !(Maybe Xgafv) , _pjwilJobId :: !Text , _pjwilUploadProtocol :: !(Maybe Text) @@ -76,7 +77,9 @@ data ProjectsJobsWorkItemsLease = ProjectsJobsWorkItemsLease' , _pjwilPayload :: !LeaseWorkItemRequest , _pjwilProjectId :: !Text , _pjwilCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsWorkItemsLease' with the minimum fields required to make a request. -- @@ -103,7 +106,7 @@ projectsJobsWorkItemsLease -> Text -- ^ 'pjwilProjectId' -> ProjectsJobsWorkItemsLease projectsJobsWorkItemsLease pPjwilJobId_ pPjwilPayload_ pPjwilProjectId_ = - ProjectsJobsWorkItemsLease' + ProjectsJobsWorkItemsLease' { _pjwilXgafv = Nothing , _pjwilJobId = pPjwilJobId_ , _pjwilUploadProtocol = Nothing @@ -114,6 +117,7 @@ projectsJobsWorkItemsLease pPjwilJobId_ pPjwilPayload_ pPjwilProjectId_ = , _pjwilCallback = Nothing } + -- | V1 error format. pjwilXgafv :: Lens' ProjectsJobsWorkItemsLease (Maybe Xgafv) pjwilXgafv diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs index b642873..ab04f43 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs @@ -67,7 +67,8 @@ type ProjectsJobsWorkItemsReportStatusResource = -- | Reports the status of dataflow WorkItems leased by a worker. -- -- /See:/ 'projectsJobsWorkItemsReportStatus' smart constructor. -data ProjectsJobsWorkItemsReportStatus = ProjectsJobsWorkItemsReportStatus' +data ProjectsJobsWorkItemsReportStatus = + ProjectsJobsWorkItemsReportStatus' { _pjwirsXgafv :: !(Maybe Xgafv) , _pjwirsJobId :: !Text , _pjwirsUploadProtocol :: !(Maybe Text) @@ -76,7 +77,9 @@ data ProjectsJobsWorkItemsReportStatus = ProjectsJobsWorkItemsReportStatus' , _pjwirsPayload :: !ReportWorkItemStatusRequest , _pjwirsProjectId :: !Text , _pjwirsCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsJobsWorkItemsReportStatus' with the minimum fields required to make a request. -- @@ -103,7 +106,7 @@ projectsJobsWorkItemsReportStatus -> Text -- ^ 'pjwirsProjectId' -> ProjectsJobsWorkItemsReportStatus projectsJobsWorkItemsReportStatus pPjwirsJobId_ pPjwirsPayload_ pPjwirsProjectId_ = - ProjectsJobsWorkItemsReportStatus' + ProjectsJobsWorkItemsReportStatus' { _pjwirsXgafv = Nothing , _pjwirsJobId = pPjwirsJobId_ , _pjwirsUploadProtocol = Nothing @@ -114,6 +117,7 @@ projectsJobsWorkItemsReportStatus pPjwirsJobId_ pPjwirsPayload_ pPjwirsProjectId , _pjwirsCallback = Nothing } + -- | V1 error format. pjwirsXgafv :: Lens' ProjectsJobsWorkItemsReportStatus (Maybe Xgafv) pjwirsXgafv @@ -161,7 +165,8 @@ pjwirsCallback (\ s a -> s{_pjwirsCallback = a}) instance GoogleRequest - ProjectsJobsWorkItemsReportStatus where + ProjectsJobsWorkItemsReportStatus + where type Rs ProjectsJobsWorkItemsReportStatus = ReportWorkItemStatusResponse type Scopes ProjectsJobsWorkItemsReportStatus = diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs index def1b41..4aebeb6 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs @@ -20,7 +20,11 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a Cloud Dataflow job. +-- Creates a Cloud Dataflow job. To create a job, we recommend using +-- \`projects.locations.jobs.create\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.create\` is not recommended, as your job will +-- always start in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.create@. module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Create @@ -67,10 +71,15 @@ type ProjectsLocationsJobsCreateResource = QueryParam "alt" AltJSON :> ReqBody '[JSON] Job :> Post '[JSON] Job --- | Creates a Cloud Dataflow job. +-- | Creates a Cloud Dataflow job. To create a job, we recommend using +-- \`projects.locations.jobs.create\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.create\` is not recommended, as your job will +-- always start in \`us-central1\`. -- -- /See:/ 'projectsLocationsJobsCreate' smart constructor. -data ProjectsLocationsJobsCreate = ProjectsLocationsJobsCreate' +data ProjectsLocationsJobsCreate = + ProjectsLocationsJobsCreate' { _pljcXgafv :: !(Maybe Xgafv) , _pljcUploadProtocol :: !(Maybe Text) , _pljcLocation :: !Text @@ -81,7 +90,9 @@ data ProjectsLocationsJobsCreate = ProjectsLocationsJobsCreate' , _pljcProjectId :: !Text , _pljcReplaceJobId :: !(Maybe Text) , _pljcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsCreate' with the minimum fields required to make a request. -- @@ -112,7 +123,7 @@ projectsLocationsJobsCreate -> Text -- ^ 'pljcProjectId' -> ProjectsLocationsJobsCreate projectsLocationsJobsCreate pPljcLocation_ pPljcPayload_ pPljcProjectId_ = - ProjectsLocationsJobsCreate' + ProjectsLocationsJobsCreate' { _pljcXgafv = Nothing , _pljcUploadProtocol = Nothing , _pljcLocation = pPljcLocation_ @@ -125,6 +136,7 @@ projectsLocationsJobsCreate pPljcLocation_ pPljcPayload_ pPljcProjectId_ = , _pljcCallback = Nothing } + -- | V1 error format. pljcXgafv :: Lens' ProjectsLocationsJobsCreate (Maybe Xgafv) pljcXgafv @@ -136,7 +148,9 @@ pljcUploadProtocol = lens _pljcUploadProtocol (\ s a -> s{_pljcUploadProtocol = a}) --- | The location that contains this job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains this job. pljcLocation :: Lens' ProjectsLocationsJobsCreate Text pljcLocation = lens _pljcLocation (\ s a -> s{_pljcLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs index dc417f8..93ad5fa 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs @@ -71,7 +71,8 @@ type ProjectsLocationsJobsDebugGetConfigResource = -- | Get encoded debug configuration for component. Not cacheable. -- -- /See:/ 'projectsLocationsJobsDebugGetConfig' smart constructor. -data ProjectsLocationsJobsDebugGetConfig = ProjectsLocationsJobsDebugGetConfig' +data ProjectsLocationsJobsDebugGetConfig = + ProjectsLocationsJobsDebugGetConfig' { _pljdgcXgafv :: !(Maybe Xgafv) , _pljdgcJobId :: !Text , _pljdgcUploadProtocol :: !(Maybe Text) @@ -81,7 +82,9 @@ data ProjectsLocationsJobsDebugGetConfig = ProjectsLocationsJobsDebugGetConfig' , _pljdgcPayload :: !GetDebugConfigRequest , _pljdgcProjectId :: !Text , _pljdgcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsDebugGetConfig' with the minimum fields required to make a request. -- @@ -111,7 +114,7 @@ projectsLocationsJobsDebugGetConfig -> Text -- ^ 'pljdgcProjectId' -> ProjectsLocationsJobsDebugGetConfig projectsLocationsJobsDebugGetConfig pPljdgcJobId_ pPljdgcLocation_ pPljdgcPayload_ pPljdgcProjectId_ = - ProjectsLocationsJobsDebugGetConfig' + ProjectsLocationsJobsDebugGetConfig' { _pljdgcXgafv = Nothing , _pljdgcJobId = pPljdgcJobId_ , _pljdgcUploadProtocol = Nothing @@ -123,6 +126,7 @@ projectsLocationsJobsDebugGetConfig pPljdgcJobId_ pPljdgcLocation_ pPljdgcPayloa , _pljdgcCallback = Nothing } + -- | V1 error format. pljdgcXgafv :: Lens' ProjectsLocationsJobsDebugGetConfig (Maybe Xgafv) pljdgcXgafv @@ -139,7 +143,9 @@ pljdgcUploadProtocol = lens _pljdgcUploadProtocol (\ s a -> s{_pljdgcUploadProtocol = a}) --- | The location which contains the job specified by job_id. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains the job specified by job_id. pljdgcLocation :: Lens' ProjectsLocationsJobsDebugGetConfig Text pljdgcLocation = lens _pljdgcLocation @@ -176,7 +182,8 @@ pljdgcCallback (\ s a -> s{_pljdgcCallback = a}) instance GoogleRequest - ProjectsLocationsJobsDebugGetConfig where + ProjectsLocationsJobsDebugGetConfig + where type Rs ProjectsLocationsJobsDebugGetConfig = GetDebugConfigResponse type Scopes ProjectsLocationsJobsDebugGetConfig = diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs index 87cace3..2f5ff7c 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs @@ -71,7 +71,8 @@ type ProjectsLocationsJobsDebugSendCaptureResource = -- | Send encoded debug capture data for component. -- -- /See:/ 'projectsLocationsJobsDebugSendCapture' smart constructor. -data ProjectsLocationsJobsDebugSendCapture = ProjectsLocationsJobsDebugSendCapture' +data ProjectsLocationsJobsDebugSendCapture = + ProjectsLocationsJobsDebugSendCapture' { _pljdscXgafv :: !(Maybe Xgafv) , _pljdscJobId :: !Text , _pljdscUploadProtocol :: !(Maybe Text) @@ -81,7 +82,9 @@ data ProjectsLocationsJobsDebugSendCapture = ProjectsLocationsJobsDebugSendCaptu , _pljdscPayload :: !SendDebugCaptureRequest , _pljdscProjectId :: !Text , _pljdscCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsDebugSendCapture' with the minimum fields required to make a request. -- @@ -111,7 +114,7 @@ projectsLocationsJobsDebugSendCapture -> Text -- ^ 'pljdscProjectId' -> ProjectsLocationsJobsDebugSendCapture projectsLocationsJobsDebugSendCapture pPljdscJobId_ pPljdscLocation_ pPljdscPayload_ pPljdscProjectId_ = - ProjectsLocationsJobsDebugSendCapture' + ProjectsLocationsJobsDebugSendCapture' { _pljdscXgafv = Nothing , _pljdscJobId = pPljdscJobId_ , _pljdscUploadProtocol = Nothing @@ -123,6 +126,7 @@ projectsLocationsJobsDebugSendCapture pPljdscJobId_ pPljdscLocation_ pPljdscPayl , _pljdscCallback = Nothing } + -- | V1 error format. pljdscXgafv :: Lens' ProjectsLocationsJobsDebugSendCapture (Maybe Xgafv) pljdscXgafv @@ -139,7 +143,9 @@ pljdscUploadProtocol = lens _pljdscUploadProtocol (\ s a -> s{_pljdscUploadProtocol = a}) --- | The location which contains the job specified by job_id. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains the job specified by job_id. pljdscLocation :: Lens' ProjectsLocationsJobsDebugSendCapture Text pljdscLocation = lens _pljdscLocation @@ -176,7 +182,8 @@ pljdscCallback (\ s a -> s{_pljdscCallback = a}) instance GoogleRequest - ProjectsLocationsJobsDebugSendCapture where + ProjectsLocationsJobsDebugSendCapture + where type Rs ProjectsLocationsJobsDebugSendCapture = SendDebugCaptureResponse type Scopes ProjectsLocationsJobsDebugSendCapture = diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs index d7b8a1f..899ead1 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs @@ -20,7 +20,12 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Gets the state of the specified Cloud Dataflow job. +-- Gets the state of the specified Cloud Dataflow job. To get the state of +-- a job, we recommend using \`projects.locations.jobs.get\` with a +-- [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.get\` is not recommended, as you can only get the +-- state of jobs that are running in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.get@. module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Get @@ -65,10 +70,16 @@ type ProjectsLocationsJobsGetResource = QueryParam "callback" Text :> QueryParam "alt" AltJSON :> Get '[JSON] Job --- | Gets the state of the specified Cloud Dataflow job. +-- | Gets the state of the specified Cloud Dataflow job. To get the state of +-- a job, we recommend using \`projects.locations.jobs.get\` with a +-- [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.get\` is not recommended, as you can only get the +-- state of jobs that are running in \`us-central1\`. -- -- /See:/ 'projectsLocationsJobsGet' smart constructor. -data ProjectsLocationsJobsGet = ProjectsLocationsJobsGet' +data ProjectsLocationsJobsGet = + ProjectsLocationsJobsGet' { _pljgXgafv :: !(Maybe Xgafv) , _pljgJobId :: !Text , _pljgUploadProtocol :: !(Maybe Text) @@ -78,7 +89,9 @@ data ProjectsLocationsJobsGet = ProjectsLocationsJobsGet' , _pljgView :: !(Maybe Text) , _pljgProjectId :: !Text , _pljgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsGet' with the minimum fields required to make a request. -- @@ -107,7 +120,7 @@ projectsLocationsJobsGet -> Text -- ^ 'pljgProjectId' -> ProjectsLocationsJobsGet projectsLocationsJobsGet pPljgJobId_ pPljgLocation_ pPljgProjectId_ = - ProjectsLocationsJobsGet' + ProjectsLocationsJobsGet' { _pljgXgafv = Nothing , _pljgJobId = pPljgJobId_ , _pljgUploadProtocol = Nothing @@ -119,6 +132,7 @@ projectsLocationsJobsGet pPljgJobId_ pPljgLocation_ pPljgProjectId_ = , _pljgCallback = Nothing } + -- | V1 error format. pljgXgafv :: Lens' ProjectsLocationsJobsGet (Maybe Xgafv) pljgXgafv @@ -135,7 +149,9 @@ pljgUploadProtocol = lens _pljgUploadProtocol (\ s a -> s{_pljgUploadProtocol = a}) --- | The location that contains this job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains this job. pljgLocation :: Lens' ProjectsLocationsJobsGet Text pljgLocation = lens _pljgLocation (\ s a -> s{_pljgLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs index b7c91e9..04012b2 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs @@ -20,7 +20,11 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Request the job status. +-- Request the job status. To request the status of a job, we recommend +-- using \`projects.locations.jobs.getMetrics\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.getMetrics\` is not recommended, as you can only +-- request the status of jobs that are running in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.getMetrics@. module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.GetMetrics @@ -67,10 +71,15 @@ type ProjectsLocationsJobsGetMetricsResource = QueryParam "alt" AltJSON :> Get '[JSON] JobMetrics --- | Request the job status. +-- | Request the job status. To request the status of a job, we recommend +-- using \`projects.locations.jobs.getMetrics\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.getMetrics\` is not recommended, as you can only +-- request the status of jobs that are running in \`us-central1\`. -- -- /See:/ 'projectsLocationsJobsGetMetrics' smart constructor. -data ProjectsLocationsJobsGetMetrics = ProjectsLocationsJobsGetMetrics' +data ProjectsLocationsJobsGetMetrics = + ProjectsLocationsJobsGetMetrics' { _pljgmXgafv :: !(Maybe Xgafv) , _pljgmJobId :: !Text , _pljgmUploadProtocol :: !(Maybe Text) @@ -80,7 +89,9 @@ data ProjectsLocationsJobsGetMetrics = ProjectsLocationsJobsGetMetrics' , _pljgmUploadType :: !(Maybe Text) , _pljgmProjectId :: !Text , _pljgmCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsGetMetrics' with the minimum fields required to make a request. -- @@ -109,7 +120,7 @@ projectsLocationsJobsGetMetrics -> Text -- ^ 'pljgmProjectId' -> ProjectsLocationsJobsGetMetrics projectsLocationsJobsGetMetrics pPljgmJobId_ pPljgmLocation_ pPljgmProjectId_ = - ProjectsLocationsJobsGetMetrics' + ProjectsLocationsJobsGetMetrics' { _pljgmXgafv = Nothing , _pljgmJobId = pPljgmJobId_ , _pljgmUploadProtocol = Nothing @@ -121,6 +132,7 @@ projectsLocationsJobsGetMetrics pPljgmJobId_ pPljgmLocation_ pPljgmProjectId_ = , _pljgmCallback = Nothing } + -- | V1 error format. pljgmXgafv :: Lens' ProjectsLocationsJobsGetMetrics (Maybe Xgafv) pljgmXgafv @@ -137,7 +149,9 @@ pljgmUploadProtocol = lens _pljgmUploadProtocol (\ s a -> s{_pljgmUploadProtocol = a}) --- | The location which contains the job specified by job_id. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains the job specified by job_id. pljgmLocation :: Lens' ProjectsLocationsJobsGetMetrics Text pljgmLocation = lens _pljgmLocation @@ -176,7 +190,8 @@ pljgmCallback (\ s a -> s{_pljgmCallback = a}) instance GoogleRequest - ProjectsLocationsJobsGetMetrics where + ProjectsLocationsJobsGetMetrics + where type Rs ProjectsLocationsJobsGetMetrics = JobMetrics type Scopes ProjectsLocationsJobsGetMetrics = '["https://www.googleapis.com/auth/cloud-platform", diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs index 5e75988..ccdbe8f 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs @@ -20,7 +20,14 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- List the jobs of a project in a given region. +-- List the jobs of a project. To list the jobs of a project in a region, +-- we recommend using \`projects.locations.jobs.get\` with a [regional +-- endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- To list the all jobs across all regions, use +-- \`projects.jobs.aggregated\`. Using \`projects.jobs.list\` is not +-- recommended, as you can only get the list of jobs that are running in +-- \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.list@. module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.List @@ -70,10 +77,18 @@ type ProjectsLocationsJobsListResource = QueryParam "alt" AltJSON :> Get '[JSON] ListJobsResponse --- | List the jobs of a project in a given region. +-- | List the jobs of a project. To list the jobs of a project in a region, +-- we recommend using \`projects.locations.jobs.get\` with a [regional +-- endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- To list the all jobs across all regions, use +-- \`projects.jobs.aggregated\`. Using \`projects.jobs.list\` is not +-- recommended, as you can only get the list of jobs that are running in +-- \`us-central1\`. -- -- /See:/ 'projectsLocationsJobsList' smart constructor. -data ProjectsLocationsJobsList = ProjectsLocationsJobsList' +data ProjectsLocationsJobsList = + ProjectsLocationsJobsList' { _pljlXgafv :: !(Maybe Xgafv) , _pljlUploadProtocol :: !(Maybe Text) , _pljlLocation :: !Text @@ -85,7 +100,9 @@ data ProjectsLocationsJobsList = ProjectsLocationsJobsList' , _pljlProjectId :: !Text , _pljlPageSize :: !(Maybe (Textual Int32)) , _pljlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsList' with the minimum fields required to make a request. -- @@ -117,7 +134,7 @@ projectsLocationsJobsList -> Text -- ^ 'pljlProjectId' -> ProjectsLocationsJobsList projectsLocationsJobsList pPljlLocation_ pPljlProjectId_ = - ProjectsLocationsJobsList' + ProjectsLocationsJobsList' { _pljlXgafv = Nothing , _pljlUploadProtocol = Nothing , _pljlLocation = pPljlLocation_ @@ -131,6 +148,7 @@ projectsLocationsJobsList pPljlLocation_ pPljlProjectId_ = , _pljlCallback = Nothing } + -- | V1 error format. pljlXgafv :: Lens' ProjectsLocationsJobsList (Maybe Xgafv) pljlXgafv @@ -142,7 +160,9 @@ pljlUploadProtocol = lens _pljlUploadProtocol (\ s a -> s{_pljlUploadProtocol = a}) --- | The location that contains this job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains this job. pljlLocation :: Lens' ProjectsLocationsJobsList Text pljlLocation = lens _pljlLocation (\ s a -> s{_pljlLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs index fbb699e..fb1175f 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs @@ -20,7 +20,12 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Request the job status. +-- Request the job status. To request the status of a job, we recommend +-- using \`projects.locations.jobs.messages.list\` with a [regional +-- endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.messages.list\` is not recommended, as you can +-- only request the status of jobs that are running in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.messages.list@. module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Messages.List @@ -75,10 +80,16 @@ type ProjectsLocationsJobsMessagesListResource = QueryParam "alt" AltJSON :> Get '[JSON] ListJobMessagesResponse --- | Request the job status. +-- | Request the job status. To request the status of a job, we recommend +-- using \`projects.locations.jobs.messages.list\` with a [regional +-- endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.messages.list\` is not recommended, as you can +-- only request the status of jobs that are running in \`us-central1\`. -- -- /See:/ 'projectsLocationsJobsMessagesList' smart constructor. -data ProjectsLocationsJobsMessagesList = ProjectsLocationsJobsMessagesList' +data ProjectsLocationsJobsMessagesList = + ProjectsLocationsJobsMessagesList' { _pljmlXgafv :: !(Maybe Xgafv) , _pljmlJobId :: !Text , _pljmlUploadProtocol :: !(Maybe Text) @@ -92,7 +103,9 @@ data ProjectsLocationsJobsMessagesList = ProjectsLocationsJobsMessagesList' , _pljmlProjectId :: !Text , _pljmlPageSize :: !(Maybe (Textual Int32)) , _pljmlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsMessagesList' with the minimum fields required to make a request. -- @@ -129,7 +142,7 @@ projectsLocationsJobsMessagesList -> Text -- ^ 'pljmlProjectId' -> ProjectsLocationsJobsMessagesList projectsLocationsJobsMessagesList pPljmlJobId_ pPljmlLocation_ pPljmlProjectId_ = - ProjectsLocationsJobsMessagesList' + ProjectsLocationsJobsMessagesList' { _pljmlXgafv = Nothing , _pljmlJobId = pPljmlJobId_ , _pljmlUploadProtocol = Nothing @@ -145,6 +158,7 @@ projectsLocationsJobsMessagesList pPljmlJobId_ pPljmlLocation_ pPljmlProjectId_ , _pljmlCallback = Nothing } + -- | V1 error format. pljmlXgafv :: Lens' ProjectsLocationsJobsMessagesList (Maybe Xgafv) pljmlXgafv @@ -161,7 +175,9 @@ pljmlUploadProtocol = lens _pljmlUploadProtocol (\ s a -> s{_pljmlUploadProtocol = a}) --- | The location which contains the job specified by job_id. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains the job specified by job_id. pljmlLocation :: Lens' ProjectsLocationsJobsMessagesList Text pljmlLocation = lens _pljmlLocation @@ -229,7 +245,8 @@ pljmlCallback (\ s a -> s{_pljmlCallback = a}) instance GoogleRequest - ProjectsLocationsJobsMessagesList where + ProjectsLocationsJobsMessagesList + where type Rs ProjectsLocationsJobsMessagesList = ListJobMessagesResponse type Scopes ProjectsLocationsJobsMessagesList = diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs index 4866158..ff02413 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs @@ -69,7 +69,8 @@ type ProjectsLocationsJobsSnapshotResource = -- | Snapshot the state of a streaming job. -- -- /See:/ 'projectsLocationsJobsSnapshot' smart constructor. -data ProjectsLocationsJobsSnapshot = ProjectsLocationsJobsSnapshot' +data ProjectsLocationsJobsSnapshot = + ProjectsLocationsJobsSnapshot' { _pljsXgafv :: !(Maybe Xgafv) , _pljsJobId :: !Text , _pljsUploadProtocol :: !(Maybe Text) @@ -79,7 +80,9 @@ data ProjectsLocationsJobsSnapshot = ProjectsLocationsJobsSnapshot' , _pljsPayload :: !SnapshotJobRequest , _pljsProjectId :: !Text , _pljsCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsSnapshot' with the minimum fields required to make a request. -- @@ -109,7 +112,7 @@ projectsLocationsJobsSnapshot -> Text -- ^ 'pljsProjectId' -> ProjectsLocationsJobsSnapshot projectsLocationsJobsSnapshot pPljsJobId_ pPljsLocation_ pPljsPayload_ pPljsProjectId_ = - ProjectsLocationsJobsSnapshot' + ProjectsLocationsJobsSnapshot' { _pljsXgafv = Nothing , _pljsJobId = pPljsJobId_ , _pljsUploadProtocol = Nothing @@ -121,6 +124,7 @@ projectsLocationsJobsSnapshot pPljsJobId_ pPljsLocation_ pPljsPayload_ pPljsProj , _pljsCallback = Nothing } + -- | V1 error format. pljsXgafv :: Lens' ProjectsLocationsJobsSnapshot (Maybe Xgafv) pljsXgafv diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs index f78b12a..e859138 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs @@ -20,7 +20,12 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Updates the state of an existing Cloud Dataflow job. +-- Updates the state of an existing Cloud Dataflow job. To update the state +-- of an existing job, we recommend using +-- \`projects.locations.jobs.update\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.update\` is not recommended, as you can only +-- update the state of jobs that are running in \`us-central1\`. -- -- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.update@. module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Update @@ -65,10 +70,16 @@ type ProjectsLocationsJobsUpdateResource = QueryParam "alt" AltJSON :> ReqBody '[JSON] Job :> Put '[JSON] Job --- | Updates the state of an existing Cloud Dataflow job. +-- | Updates the state of an existing Cloud Dataflow job. To update the state +-- of an existing job, we recommend using +-- \`projects.locations.jobs.update\` with a [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). +-- Using \`projects.jobs.update\` is not recommended, as you can only +-- update the state of jobs that are running in \`us-central1\`. -- -- /See:/ 'projectsLocationsJobsUpdate' smart constructor. -data ProjectsLocationsJobsUpdate = ProjectsLocationsJobsUpdate' +data ProjectsLocationsJobsUpdate = + ProjectsLocationsJobsUpdate' { _pljuXgafv :: !(Maybe Xgafv) , _pljuJobId :: !Text , _pljuUploadProtocol :: !(Maybe Text) @@ -78,7 +89,9 @@ data ProjectsLocationsJobsUpdate = ProjectsLocationsJobsUpdate' , _pljuPayload :: !Job , _pljuProjectId :: !Text , _pljuCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsUpdate' with the minimum fields required to make a request. -- @@ -108,7 +121,7 @@ projectsLocationsJobsUpdate -> Text -- ^ 'pljuProjectId' -> ProjectsLocationsJobsUpdate projectsLocationsJobsUpdate pPljuJobId_ pPljuLocation_ pPljuPayload_ pPljuProjectId_ = - ProjectsLocationsJobsUpdate' + ProjectsLocationsJobsUpdate' { _pljuXgafv = Nothing , _pljuJobId = pPljuJobId_ , _pljuUploadProtocol = Nothing @@ -120,6 +133,7 @@ projectsLocationsJobsUpdate pPljuJobId_ pPljuLocation_ pPljuPayload_ pPljuProjec , _pljuCallback = Nothing } + -- | V1 error format. pljuXgafv :: Lens' ProjectsLocationsJobsUpdate (Maybe Xgafv) pljuXgafv @@ -136,7 +150,9 @@ pljuUploadProtocol = lens _pljuUploadProtocol (\ s a -> s{_pljuUploadProtocol = a}) --- | The location that contains this job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains this job. pljuLocation :: Lens' ProjectsLocationsJobsUpdate Text pljuLocation = lens _pljuLocation (\ s a -> s{_pljuLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs index 649f2f4..97c7215 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs @@ -70,7 +70,8 @@ type ProjectsLocationsJobsWorkItemsLeaseResource = -- | Leases a dataflow WorkItem to run. -- -- /See:/ 'projectsLocationsJobsWorkItemsLease' smart constructor. -data ProjectsLocationsJobsWorkItemsLease = ProjectsLocationsJobsWorkItemsLease' +data ProjectsLocationsJobsWorkItemsLease = + ProjectsLocationsJobsWorkItemsLease' { _pljwilXgafv :: !(Maybe Xgafv) , _pljwilJobId :: !Text , _pljwilUploadProtocol :: !(Maybe Text) @@ -80,7 +81,9 @@ data ProjectsLocationsJobsWorkItemsLease = ProjectsLocationsJobsWorkItemsLease' , _pljwilPayload :: !LeaseWorkItemRequest , _pljwilProjectId :: !Text , _pljwilCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsWorkItemsLease' with the minimum fields required to make a request. -- @@ -110,7 +113,7 @@ projectsLocationsJobsWorkItemsLease -> Text -- ^ 'pljwilProjectId' -> ProjectsLocationsJobsWorkItemsLease projectsLocationsJobsWorkItemsLease pPljwilJobId_ pPljwilLocation_ pPljwilPayload_ pPljwilProjectId_ = - ProjectsLocationsJobsWorkItemsLease' + ProjectsLocationsJobsWorkItemsLease' { _pljwilXgafv = Nothing , _pljwilJobId = pPljwilJobId_ , _pljwilUploadProtocol = Nothing @@ -122,6 +125,7 @@ projectsLocationsJobsWorkItemsLease pPljwilJobId_ pPljwilLocation_ pPljwilPayloa , _pljwilCallback = Nothing } + -- | V1 error format. pljwilXgafv :: Lens' ProjectsLocationsJobsWorkItemsLease (Maybe Xgafv) pljwilXgafv @@ -138,7 +142,9 @@ pljwilUploadProtocol = lens _pljwilUploadProtocol (\ s a -> s{_pljwilUploadProtocol = a}) --- | The location which contains the WorkItem\'s job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains the WorkItem\'s job. pljwilLocation :: Lens' ProjectsLocationsJobsWorkItemsLease Text pljwilLocation = lens _pljwilLocation @@ -175,7 +181,8 @@ pljwilCallback (\ s a -> s{_pljwilCallback = a}) instance GoogleRequest - ProjectsLocationsJobsWorkItemsLease where + ProjectsLocationsJobsWorkItemsLease + where type Rs ProjectsLocationsJobsWorkItemsLease = LeaseWorkItemResponse type Scopes ProjectsLocationsJobsWorkItemsLease = diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs index f4d4e20..214c42f 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs @@ -71,7 +71,8 @@ type ProjectsLocationsJobsWorkItemsReportStatusResource -- | Reports the status of dataflow WorkItems leased by a worker. -- -- /See:/ 'projectsLocationsJobsWorkItemsReportStatus' smart constructor. -data ProjectsLocationsJobsWorkItemsReportStatus = ProjectsLocationsJobsWorkItemsReportStatus' +data ProjectsLocationsJobsWorkItemsReportStatus = + ProjectsLocationsJobsWorkItemsReportStatus' { _pljwirsXgafv :: !(Maybe Xgafv) , _pljwirsJobId :: !Text , _pljwirsUploadProtocol :: !(Maybe Text) @@ -81,7 +82,9 @@ data ProjectsLocationsJobsWorkItemsReportStatus = ProjectsLocationsJobsWorkItems , _pljwirsPayload :: !ReportWorkItemStatusRequest , _pljwirsProjectId :: !Text , _pljwirsCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsWorkItemsReportStatus' with the minimum fields required to make a request. -- @@ -111,7 +114,7 @@ projectsLocationsJobsWorkItemsReportStatus -> Text -- ^ 'pljwirsProjectId' -> ProjectsLocationsJobsWorkItemsReportStatus projectsLocationsJobsWorkItemsReportStatus pPljwirsJobId_ pPljwirsLocation_ pPljwirsPayload_ pPljwirsProjectId_ = - ProjectsLocationsJobsWorkItemsReportStatus' + ProjectsLocationsJobsWorkItemsReportStatus' { _pljwirsXgafv = Nothing , _pljwirsJobId = pPljwirsJobId_ , _pljwirsUploadProtocol = Nothing @@ -123,6 +126,7 @@ projectsLocationsJobsWorkItemsReportStatus pPljwirsJobId_ pPljwirsLocation_ pPlj , _pljwirsCallback = Nothing } + -- | V1 error format. pljwirsXgafv :: Lens' ProjectsLocationsJobsWorkItemsReportStatus (Maybe Xgafv) pljwirsXgafv @@ -139,7 +143,9 @@ pljwirsUploadProtocol = lens _pljwirsUploadProtocol (\ s a -> s{_pljwirsUploadProtocol = a}) --- | The location which contains the WorkItem\'s job. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains the WorkItem\'s job. pljwirsLocation :: Lens' ProjectsLocationsJobsWorkItemsReportStatus Text pljwirsLocation = lens _pljwirsLocation @@ -176,7 +182,8 @@ pljwirsCallback (\ s a -> s{_pljwirsCallback = a}) instance GoogleRequest - ProjectsLocationsJobsWorkItemsReportStatus where + ProjectsLocationsJobsWorkItemsReportStatus + where type Rs ProjectsLocationsJobsWorkItemsReportStatus = ReportWorkItemStatusResponse type Scopes diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/SQL/Validate.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/SQL/Validate.hs new file mode 100644 index 0000000..da6732c --- /dev/null +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/SQL/Validate.hs @@ -0,0 +1,193 @@ +{-# 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.Dataflow.Projects.Locations.SQL.Validate +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Validates a GoogleSQL query for Cloud Dataflow syntax. Will always +-- confirm the given query parses correctly, and if able to look up schema +-- information from DataCatalog, will validate that the query analyzes +-- properly as well. +-- +-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.sql.validate@. +module Network.Google.Resource.Dataflow.Projects.Locations.SQL.Validate + ( + -- * REST Resource + ProjectsLocationsSQLValidateResource + + -- * Creating a Request + , projectsLocationsSQLValidate + , ProjectsLocationsSQLValidate + + -- * Request Lenses + , plsqlvXgafv + , plsqlvUploadProtocol + , plsqlvLocation + , plsqlvAccessToken + , plsqlvUploadType + , plsqlvQuery + , plsqlvProjectId + , plsqlvCallback + ) where + +import Network.Google.Dataflow.Types +import Network.Google.Prelude + +-- | A resource alias for @dataflow.projects.locations.sql.validate@ method which the +-- 'ProjectsLocationsSQLValidate' request conforms to. +type ProjectsLocationsSQLValidateResource = + "v1b3" :> + "projects" :> + Capture "projectId" Text :> + "locations" :> + Capture "location" Text :> + "sql:validate" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "query" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] ValidateResponse + +-- | Validates a GoogleSQL query for Cloud Dataflow syntax. Will always +-- confirm the given query parses correctly, and if able to look up schema +-- information from DataCatalog, will validate that the query analyzes +-- properly as well. +-- +-- /See:/ 'projectsLocationsSQLValidate' smart constructor. +data ProjectsLocationsSQLValidate = + ProjectsLocationsSQLValidate' + { _plsqlvXgafv :: !(Maybe Xgafv) + , _plsqlvUploadProtocol :: !(Maybe Text) + , _plsqlvLocation :: !Text + , _plsqlvAccessToken :: !(Maybe Text) + , _plsqlvUploadType :: !(Maybe Text) + , _plsqlvQuery :: !(Maybe Text) + , _plsqlvProjectId :: !Text + , _plsqlvCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsLocationsSQLValidate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'plsqlvXgafv' +-- +-- * 'plsqlvUploadProtocol' +-- +-- * 'plsqlvLocation' +-- +-- * 'plsqlvAccessToken' +-- +-- * 'plsqlvUploadType' +-- +-- * 'plsqlvQuery' +-- +-- * 'plsqlvProjectId' +-- +-- * 'plsqlvCallback' +projectsLocationsSQLValidate + :: Text -- ^ 'plsqlvLocation' + -> Text -- ^ 'plsqlvProjectId' + -> ProjectsLocationsSQLValidate +projectsLocationsSQLValidate pPlsqlvLocation_ pPlsqlvProjectId_ = + ProjectsLocationsSQLValidate' + { _plsqlvXgafv = Nothing + , _plsqlvUploadProtocol = Nothing + , _plsqlvLocation = pPlsqlvLocation_ + , _plsqlvAccessToken = Nothing + , _plsqlvUploadType = Nothing + , _plsqlvQuery = Nothing + , _plsqlvProjectId = pPlsqlvProjectId_ + , _plsqlvCallback = Nothing + } + + +-- | V1 error format. +plsqlvXgafv :: Lens' ProjectsLocationsSQLValidate (Maybe Xgafv) +plsqlvXgafv + = lens _plsqlvXgafv (\ s a -> s{_plsqlvXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +plsqlvUploadProtocol :: Lens' ProjectsLocationsSQLValidate (Maybe Text) +plsqlvUploadProtocol + = lens _plsqlvUploadProtocol + (\ s a -> s{_plsqlvUploadProtocol = a}) + +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- to which to direct the request. +plsqlvLocation :: Lens' ProjectsLocationsSQLValidate Text +plsqlvLocation + = lens _plsqlvLocation + (\ s a -> s{_plsqlvLocation = a}) + +-- | OAuth access token. +plsqlvAccessToken :: Lens' ProjectsLocationsSQLValidate (Maybe Text) +plsqlvAccessToken + = lens _plsqlvAccessToken + (\ s a -> s{_plsqlvAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +plsqlvUploadType :: Lens' ProjectsLocationsSQLValidate (Maybe Text) +plsqlvUploadType + = lens _plsqlvUploadType + (\ s a -> s{_plsqlvUploadType = a}) + +-- | The sql query to validate. +plsqlvQuery :: Lens' ProjectsLocationsSQLValidate (Maybe Text) +plsqlvQuery + = lens _plsqlvQuery (\ s a -> s{_plsqlvQuery = a}) + +-- | Required. The ID of the Cloud Platform project that the job belongs to. +plsqlvProjectId :: Lens' ProjectsLocationsSQLValidate Text +plsqlvProjectId + = lens _plsqlvProjectId + (\ s a -> s{_plsqlvProjectId = a}) + +-- | JSONP +plsqlvCallback :: Lens' ProjectsLocationsSQLValidate (Maybe Text) +plsqlvCallback + = lens _plsqlvCallback + (\ s a -> s{_plsqlvCallback = a}) + +instance GoogleRequest ProjectsLocationsSQLValidate + where + type Rs ProjectsLocationsSQLValidate = + ValidateResponse + type Scopes ProjectsLocationsSQLValidate = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/userinfo.email"] + requestClient ProjectsLocationsSQLValidate'{..} + = go _plsqlvProjectId _plsqlvLocation _plsqlvXgafv + _plsqlvUploadProtocol + _plsqlvAccessToken + _plsqlvUploadType + _plsqlvQuery + _plsqlvCallback + (Just AltJSON) + dataflowService + where go + = buildClient + (Proxy :: Proxy ProjectsLocationsSQLValidateResource) + mempty diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Delete.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Delete.hs new file mode 100644 index 0000000..d4d4d43 --- /dev/null +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Delete.hs @@ -0,0 +1,189 @@ +{-# 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.Dataflow.Projects.Locations.Snapshots.Delete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes a snapshot. +-- +-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.snapshots.delete@. +module Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Delete + ( + -- * REST Resource + ProjectsLocationsSnapshotsDeleteResource + + -- * Creating a Request + , projectsLocationsSnapshotsDelete + , ProjectsLocationsSnapshotsDelete + + -- * Request Lenses + , plsdXgafv + , plsdUploadProtocol + , plsdLocation + , plsdAccessToken + , plsdUploadType + , plsdProjectId + , plsdCallback + , plsdSnapshotId + ) where + +import Network.Google.Dataflow.Types +import Network.Google.Prelude + +-- | A resource alias for @dataflow.projects.locations.snapshots.delete@ method which the +-- 'ProjectsLocationsSnapshotsDelete' request conforms to. +type ProjectsLocationsSnapshotsDeleteResource = + "v1b3" :> + "projects" :> + Capture "projectId" Text :> + "locations" :> + Capture "location" Text :> + "snapshots" :> + Capture "snapshotId" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Delete '[JSON] DeleteSnapshotResponse + +-- | Deletes a snapshot. +-- +-- /See:/ 'projectsLocationsSnapshotsDelete' smart constructor. +data ProjectsLocationsSnapshotsDelete = + ProjectsLocationsSnapshotsDelete' + { _plsdXgafv :: !(Maybe Xgafv) + , _plsdUploadProtocol :: !(Maybe Text) + , _plsdLocation :: !Text + , _plsdAccessToken :: !(Maybe Text) + , _plsdUploadType :: !(Maybe Text) + , _plsdProjectId :: !Text + , _plsdCallback :: !(Maybe Text) + , _plsdSnapshotId :: !Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsLocationsSnapshotsDelete' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'plsdXgafv' +-- +-- * 'plsdUploadProtocol' +-- +-- * 'plsdLocation' +-- +-- * 'plsdAccessToken' +-- +-- * 'plsdUploadType' +-- +-- * 'plsdProjectId' +-- +-- * 'plsdCallback' +-- +-- * 'plsdSnapshotId' +projectsLocationsSnapshotsDelete + :: Text -- ^ 'plsdLocation' + -> Text -- ^ 'plsdProjectId' + -> Text -- ^ 'plsdSnapshotId' + -> ProjectsLocationsSnapshotsDelete +projectsLocationsSnapshotsDelete pPlsdLocation_ pPlsdProjectId_ pPlsdSnapshotId_ = + ProjectsLocationsSnapshotsDelete' + { _plsdXgafv = Nothing + , _plsdUploadProtocol = Nothing + , _plsdLocation = pPlsdLocation_ + , _plsdAccessToken = Nothing + , _plsdUploadType = Nothing + , _plsdProjectId = pPlsdProjectId_ + , _plsdCallback = Nothing + , _plsdSnapshotId = pPlsdSnapshotId_ + } + + +-- | V1 error format. +plsdXgafv :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Xgafv) +plsdXgafv + = lens _plsdXgafv (\ s a -> s{_plsdXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +plsdUploadProtocol :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text) +plsdUploadProtocol + = lens _plsdUploadProtocol + (\ s a -> s{_plsdUploadProtocol = a}) + +-- | The location that contains this snapshot. +plsdLocation :: Lens' ProjectsLocationsSnapshotsDelete Text +plsdLocation + = lens _plsdLocation (\ s a -> s{_plsdLocation = a}) + +-- | OAuth access token. +plsdAccessToken :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text) +plsdAccessToken + = lens _plsdAccessToken + (\ s a -> s{_plsdAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +plsdUploadType :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text) +plsdUploadType + = lens _plsdUploadType + (\ s a -> s{_plsdUploadType = a}) + +-- | The ID of the Cloud Platform project that the snapshot belongs to. +plsdProjectId :: Lens' ProjectsLocationsSnapshotsDelete Text +plsdProjectId + = lens _plsdProjectId + (\ s a -> s{_plsdProjectId = a}) + +-- | JSONP +plsdCallback :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text) +plsdCallback + = lens _plsdCallback (\ s a -> s{_plsdCallback = a}) + +-- | The ID of the snapshot. +plsdSnapshotId :: Lens' ProjectsLocationsSnapshotsDelete Text +plsdSnapshotId + = lens _plsdSnapshotId + (\ s a -> s{_plsdSnapshotId = a}) + +instance GoogleRequest + ProjectsLocationsSnapshotsDelete + where + type Rs ProjectsLocationsSnapshotsDelete = + DeleteSnapshotResponse + type Scopes ProjectsLocationsSnapshotsDelete = + '["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 ProjectsLocationsSnapshotsDelete'{..} + = go _plsdProjectId _plsdLocation _plsdSnapshotId + _plsdXgafv + _plsdUploadProtocol + _plsdAccessToken + _plsdUploadType + _plsdCallback + (Just AltJSON) + dataflowService + where go + = buildClient + (Proxy :: + Proxy ProjectsLocationsSnapshotsDeleteResource) + mempty diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Get.hs new file mode 100644 index 0000000..211d5a9 --- /dev/null +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Get.hs @@ -0,0 +1,186 @@ +{-# 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.Dataflow.Projects.Locations.Snapshots.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets information about a snapshot. +-- +-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.snapshots.get@. +module Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Get + ( + -- * REST Resource + ProjectsLocationsSnapshotsGetResource + + -- * Creating a Request + , projectsLocationsSnapshotsGet + , ProjectsLocationsSnapshotsGet + + -- * Request Lenses + , plsgXgafv + , plsgUploadProtocol + , plsgLocation + , plsgAccessToken + , plsgUploadType + , plsgProjectId + , plsgCallback + , plsgSnapshotId + ) where + +import Network.Google.Dataflow.Types +import Network.Google.Prelude + +-- | A resource alias for @dataflow.projects.locations.snapshots.get@ method which the +-- 'ProjectsLocationsSnapshotsGet' request conforms to. +type ProjectsLocationsSnapshotsGetResource = + "v1b3" :> + "projects" :> + Capture "projectId" Text :> + "locations" :> + Capture "location" Text :> + "snapshots" :> + Capture "snapshotId" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> Get '[JSON] Snapshot + +-- | Gets information about a snapshot. +-- +-- /See:/ 'projectsLocationsSnapshotsGet' smart constructor. +data ProjectsLocationsSnapshotsGet = + ProjectsLocationsSnapshotsGet' + { _plsgXgafv :: !(Maybe Xgafv) + , _plsgUploadProtocol :: !(Maybe Text) + , _plsgLocation :: !Text + , _plsgAccessToken :: !(Maybe Text) + , _plsgUploadType :: !(Maybe Text) + , _plsgProjectId :: !Text + , _plsgCallback :: !(Maybe Text) + , _plsgSnapshotId :: !Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsLocationsSnapshotsGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'plsgXgafv' +-- +-- * 'plsgUploadProtocol' +-- +-- * 'plsgLocation' +-- +-- * 'plsgAccessToken' +-- +-- * 'plsgUploadType' +-- +-- * 'plsgProjectId' +-- +-- * 'plsgCallback' +-- +-- * 'plsgSnapshotId' +projectsLocationsSnapshotsGet + :: Text -- ^ 'plsgLocation' + -> Text -- ^ 'plsgProjectId' + -> Text -- ^ 'plsgSnapshotId' + -> ProjectsLocationsSnapshotsGet +projectsLocationsSnapshotsGet pPlsgLocation_ pPlsgProjectId_ pPlsgSnapshotId_ = + ProjectsLocationsSnapshotsGet' + { _plsgXgafv = Nothing + , _plsgUploadProtocol = Nothing + , _plsgLocation = pPlsgLocation_ + , _plsgAccessToken = Nothing + , _plsgUploadType = Nothing + , _plsgProjectId = pPlsgProjectId_ + , _plsgCallback = Nothing + , _plsgSnapshotId = pPlsgSnapshotId_ + } + + +-- | V1 error format. +plsgXgafv :: Lens' ProjectsLocationsSnapshotsGet (Maybe Xgafv) +plsgXgafv + = lens _plsgXgafv (\ s a -> s{_plsgXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +plsgUploadProtocol :: Lens' ProjectsLocationsSnapshotsGet (Maybe Text) +plsgUploadProtocol + = lens _plsgUploadProtocol + (\ s a -> s{_plsgUploadProtocol = a}) + +-- | The location that contains this snapshot. +plsgLocation :: Lens' ProjectsLocationsSnapshotsGet Text +plsgLocation + = lens _plsgLocation (\ s a -> s{_plsgLocation = a}) + +-- | OAuth access token. +plsgAccessToken :: Lens' ProjectsLocationsSnapshotsGet (Maybe Text) +plsgAccessToken + = lens _plsgAccessToken + (\ s a -> s{_plsgAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +plsgUploadType :: Lens' ProjectsLocationsSnapshotsGet (Maybe Text) +plsgUploadType + = lens _plsgUploadType + (\ s a -> s{_plsgUploadType = a}) + +-- | The ID of the Cloud Platform project that the snapshot belongs to. +plsgProjectId :: Lens' ProjectsLocationsSnapshotsGet Text +plsgProjectId + = lens _plsgProjectId + (\ s a -> s{_plsgProjectId = a}) + +-- | JSONP +plsgCallback :: Lens' ProjectsLocationsSnapshotsGet (Maybe Text) +plsgCallback + = lens _plsgCallback (\ s a -> s{_plsgCallback = a}) + +-- | The ID of the snapshot. +plsgSnapshotId :: Lens' ProjectsLocationsSnapshotsGet Text +plsgSnapshotId + = lens _plsgSnapshotId + (\ s a -> s{_plsgSnapshotId = a}) + +instance GoogleRequest ProjectsLocationsSnapshotsGet + where + type Rs ProjectsLocationsSnapshotsGet = Snapshot + type Scopes ProjectsLocationsSnapshotsGet = + '["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 ProjectsLocationsSnapshotsGet'{..} + = go _plsgProjectId _plsgLocation _plsgSnapshotId + _plsgXgafv + _plsgUploadProtocol + _plsgAccessToken + _plsgUploadType + _plsgCallback + (Just AltJSON) + dataflowService + where go + = buildClient + (Proxy :: + Proxy ProjectsLocationsSnapshotsGetResource) + mempty diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/List.hs new file mode 100644 index 0000000..8c96d2e --- /dev/null +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/List.hs @@ -0,0 +1,174 @@ +{-# 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.Dataflow.Projects.Locations.Snapshots.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists snapshots. +-- +-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.snapshots.list@. +module Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.List + ( + -- * REST Resource + ProjectsLocationsSnapshotsListResource + + -- * Creating a Request + , projectsLocationsSnapshotsList + , ProjectsLocationsSnapshotsList + + -- * Request Lenses + , plslXgafv + , plslUploadProtocol + , plslLocation + , plslAccessToken + , plslUploadType + , plslProjectId + , plslCallback + ) where + +import Network.Google.Dataflow.Types +import Network.Google.Prelude + +-- | A resource alias for @dataflow.projects.locations.snapshots.list@ method which the +-- 'ProjectsLocationsSnapshotsList' request conforms to. +type ProjectsLocationsSnapshotsListResource = + "v1b3" :> + "projects" :> + Capture "projectId" Text :> + "locations" :> + Capture "location" Text :> + "snapshots" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] ListSnapshotsResponse + +-- | Lists snapshots. +-- +-- /See:/ 'projectsLocationsSnapshotsList' smart constructor. +data ProjectsLocationsSnapshotsList = + ProjectsLocationsSnapshotsList' + { _plslXgafv :: !(Maybe Xgafv) + , _plslUploadProtocol :: !(Maybe Text) + , _plslLocation :: !Text + , _plslAccessToken :: !(Maybe Text) + , _plslUploadType :: !(Maybe Text) + , _plslProjectId :: !Text + , _plslCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsLocationsSnapshotsList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'plslXgafv' +-- +-- * 'plslUploadProtocol' +-- +-- * 'plslLocation' +-- +-- * 'plslAccessToken' +-- +-- * 'plslUploadType' +-- +-- * 'plslProjectId' +-- +-- * 'plslCallback' +projectsLocationsSnapshotsList + :: Text -- ^ 'plslLocation' + -> Text -- ^ 'plslProjectId' + -> ProjectsLocationsSnapshotsList +projectsLocationsSnapshotsList pPlslLocation_ pPlslProjectId_ = + ProjectsLocationsSnapshotsList' + { _plslXgafv = Nothing + , _plslUploadProtocol = Nothing + , _plslLocation = pPlslLocation_ + , _plslAccessToken = Nothing + , _plslUploadType = Nothing + , _plslProjectId = pPlslProjectId_ + , _plslCallback = Nothing + } + + +-- | V1 error format. +plslXgafv :: Lens' ProjectsLocationsSnapshotsList (Maybe Xgafv) +plslXgafv + = lens _plslXgafv (\ s a -> s{_plslXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +plslUploadProtocol :: Lens' ProjectsLocationsSnapshotsList (Maybe Text) +plslUploadProtocol + = lens _plslUploadProtocol + (\ s a -> s{_plslUploadProtocol = a}) + +-- | The location to list snapshots in. +plslLocation :: Lens' ProjectsLocationsSnapshotsList Text +plslLocation + = lens _plslLocation (\ s a -> s{_plslLocation = a}) + +-- | OAuth access token. +plslAccessToken :: Lens' ProjectsLocationsSnapshotsList (Maybe Text) +plslAccessToken + = lens _plslAccessToken + (\ s a -> s{_plslAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +plslUploadType :: Lens' ProjectsLocationsSnapshotsList (Maybe Text) +plslUploadType + = lens _plslUploadType + (\ s a -> s{_plslUploadType = a}) + +-- | The project ID to list snapshots for. +plslProjectId :: Lens' ProjectsLocationsSnapshotsList Text +plslProjectId + = lens _plslProjectId + (\ s a -> s{_plslProjectId = a}) + +-- | JSONP +plslCallback :: Lens' ProjectsLocationsSnapshotsList (Maybe Text) +plslCallback + = lens _plslCallback (\ s a -> s{_plslCallback = a}) + +instance GoogleRequest ProjectsLocationsSnapshotsList + where + type Rs ProjectsLocationsSnapshotsList = + ListSnapshotsResponse + type Scopes ProjectsLocationsSnapshotsList = + '["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 ProjectsLocationsSnapshotsList'{..} + = go _plslProjectId _plslLocation _plslXgafv + _plslUploadProtocol + _plslAccessToken + _plslUploadType + _plslCallback + (Just AltJSON) + dataflowService + where go + = buildClient + (Proxy :: + Proxy ProjectsLocationsSnapshotsListResource) + mempty diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs index af512ac..8c2aaf5 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs @@ -67,7 +67,8 @@ type ProjectsLocationsTemplatesCreateResource = -- | Creates a Cloud Dataflow job from a template. -- -- /See:/ 'projectsLocationsTemplatesCreate' smart constructor. -data ProjectsLocationsTemplatesCreate = ProjectsLocationsTemplatesCreate' +data ProjectsLocationsTemplatesCreate = + ProjectsLocationsTemplatesCreate' { _pltcXgafv :: !(Maybe Xgafv) , _pltcUploadProtocol :: !(Maybe Text) , _pltcLocation :: !Text @@ -76,7 +77,9 @@ data ProjectsLocationsTemplatesCreate = ProjectsLocationsTemplatesCreate' , _pltcPayload :: !CreateJobFromTemplateRequest , _pltcProjectId :: !Text , _pltcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTemplatesCreate' with the minimum fields required to make a request. -- @@ -103,7 +106,7 @@ projectsLocationsTemplatesCreate -> Text -- ^ 'pltcProjectId' -> ProjectsLocationsTemplatesCreate projectsLocationsTemplatesCreate pPltcLocation_ pPltcPayload_ pPltcProjectId_ = - ProjectsLocationsTemplatesCreate' + ProjectsLocationsTemplatesCreate' { _pltcXgafv = Nothing , _pltcUploadProtocol = Nothing , _pltcLocation = pPltcLocation_ @@ -114,6 +117,7 @@ projectsLocationsTemplatesCreate pPltcLocation_ pPltcPayload_ pPltcProjectId_ = , _pltcCallback = Nothing } + -- | V1 error format. pltcXgafv :: Lens' ProjectsLocationsTemplatesCreate (Maybe Xgafv) pltcXgafv @@ -125,7 +129,9 @@ pltcUploadProtocol = lens _pltcUploadProtocol (\ s a -> s{_pltcUploadProtocol = a}) --- | The location to which to direct the request. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- to which to direct the request. pltcLocation :: Lens' ProjectsLocationsTemplatesCreate Text pltcLocation = lens _pltcLocation (\ s a -> s{_pltcLocation = a}) @@ -159,7 +165,8 @@ pltcCallback = lens _pltcCallback (\ s a -> s{_pltcCallback = a}) instance GoogleRequest - ProjectsLocationsTemplatesCreate where + ProjectsLocationsTemplatesCreate + where type Rs ProjectsLocationsTemplatesCreate = Job type Scopes ProjectsLocationsTemplatesCreate = '["https://www.googleapis.com/auth/cloud-platform", diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs index 620da0f..c73f4fd 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs @@ -69,7 +69,8 @@ type ProjectsLocationsTemplatesGetResource = -- | Get the template associated with a template. -- -- /See:/ 'projectsLocationsTemplatesGet' smart constructor. -data ProjectsLocationsTemplatesGet = ProjectsLocationsTemplatesGet' +data ProjectsLocationsTemplatesGet = + ProjectsLocationsTemplatesGet' { _pltgXgafv :: !(Maybe Xgafv) , _pltgUploadProtocol :: !(Maybe Text) , _pltgLocation :: !Text @@ -79,7 +80,9 @@ data ProjectsLocationsTemplatesGet = ProjectsLocationsTemplatesGet' , _pltgView :: !(Maybe Text) , _pltgProjectId :: !Text , _pltgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTemplatesGet' with the minimum fields required to make a request. -- @@ -107,7 +110,7 @@ projectsLocationsTemplatesGet -> Text -- ^ 'pltgProjectId' -> ProjectsLocationsTemplatesGet projectsLocationsTemplatesGet pPltgLocation_ pPltgProjectId_ = - ProjectsLocationsTemplatesGet' + ProjectsLocationsTemplatesGet' { _pltgXgafv = Nothing , _pltgUploadProtocol = Nothing , _pltgLocation = pPltgLocation_ @@ -119,6 +122,7 @@ projectsLocationsTemplatesGet pPltgLocation_ pPltgProjectId_ = , _pltgCallback = Nothing } + -- | V1 error format. pltgXgafv :: Lens' ProjectsLocationsTemplatesGet (Maybe Xgafv) pltgXgafv @@ -130,7 +134,9 @@ pltgUploadProtocol = lens _pltgUploadProtocol (\ s a -> s{_pltgUploadProtocol = a}) --- | The location to which to direct the request. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- to which to direct the request. pltgLocation :: Lens' ProjectsLocationsTemplatesGet Text pltgLocation = lens _pltgLocation (\ s a -> s{_pltgLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs index 4958cc6..b37e8bc 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs @@ -75,7 +75,8 @@ type ProjectsLocationsTemplatesLaunchResource = -- | Launch a template. -- -- /See:/ 'projectsLocationsTemplatesLaunch' smart constructor. -data ProjectsLocationsTemplatesLaunch = ProjectsLocationsTemplatesLaunch' +data ProjectsLocationsTemplatesLaunch = + ProjectsLocationsTemplatesLaunch' { _pltlXgafv :: !(Maybe Xgafv) , _pltlValidateOnly :: !(Maybe Bool) , _pltlUploadProtocol :: !(Maybe Text) @@ -88,7 +89,9 @@ data ProjectsLocationsTemplatesLaunch = ProjectsLocationsTemplatesLaunch' , _pltlProjectId :: !Text , _pltlCallback :: !(Maybe Text) , _pltlDynamicTemplateGcsPath :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTemplatesLaunch' with the minimum fields required to make a request. -- @@ -123,7 +126,7 @@ projectsLocationsTemplatesLaunch -> Text -- ^ 'pltlProjectId' -> ProjectsLocationsTemplatesLaunch projectsLocationsTemplatesLaunch pPltlLocation_ pPltlPayload_ pPltlProjectId_ = - ProjectsLocationsTemplatesLaunch' + ProjectsLocationsTemplatesLaunch' { _pltlXgafv = Nothing , _pltlValidateOnly = Nothing , _pltlUploadProtocol = Nothing @@ -138,6 +141,7 @@ projectsLocationsTemplatesLaunch pPltlLocation_ pPltlPayload_ pPltlProjectId_ = , _pltlDynamicTemplateGcsPath = Nothing } + -- | V1 error format. pltlXgafv :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Xgafv) pltlXgafv @@ -156,7 +160,9 @@ pltlUploadProtocol = lens _pltlUploadProtocol (\ s a -> s{_pltlUploadProtocol = a}) --- | The location to which to direct the request. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- to which to direct the request. pltlLocation :: Lens' ProjectsLocationsTemplatesLaunch Text pltlLocation = lens _pltlLocation (\ s a -> s{_pltlLocation = a}) @@ -210,7 +216,8 @@ pltlDynamicTemplateGcsPath (\ s a -> s{_pltlDynamicTemplateGcsPath = a}) instance GoogleRequest - ProjectsLocationsTemplatesLaunch where + ProjectsLocationsTemplatesLaunch + where type Rs ProjectsLocationsTemplatesLaunch = LaunchTemplateResponse type Scopes ProjectsLocationsTemplatesLaunch = diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs index c6fc1ba..3489874 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs @@ -67,7 +67,8 @@ type ProjectsLocationsWorkerMessagesResource = -- | Send a worker_message to the service. -- -- /See:/ 'projectsLocationsWorkerMessages' smart constructor. -data ProjectsLocationsWorkerMessages = ProjectsLocationsWorkerMessages' +data ProjectsLocationsWorkerMessages = + ProjectsLocationsWorkerMessages' { _plwmXgafv :: !(Maybe Xgafv) , _plwmUploadProtocol :: !(Maybe Text) , _plwmLocation :: !Text @@ -76,7 +77,9 @@ data ProjectsLocationsWorkerMessages = ProjectsLocationsWorkerMessages' , _plwmPayload :: !SendWorkerMessagesRequest , _plwmProjectId :: !Text , _plwmCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsWorkerMessages' with the minimum fields required to make a request. -- @@ -103,7 +106,7 @@ projectsLocationsWorkerMessages -> Text -- ^ 'plwmProjectId' -> ProjectsLocationsWorkerMessages projectsLocationsWorkerMessages pPlwmLocation_ pPlwmPayload_ pPlwmProjectId_ = - ProjectsLocationsWorkerMessages' + ProjectsLocationsWorkerMessages' { _plwmXgafv = Nothing , _plwmUploadProtocol = Nothing , _plwmLocation = pPlwmLocation_ @@ -114,6 +117,7 @@ projectsLocationsWorkerMessages pPlwmLocation_ pPlwmPayload_ pPlwmProjectId_ = , _plwmCallback = Nothing } + -- | V1 error format. plwmXgafv :: Lens' ProjectsLocationsWorkerMessages (Maybe Xgafv) plwmXgafv @@ -125,7 +129,9 @@ plwmUploadProtocol = lens _plwmUploadProtocol (\ s a -> s{_plwmUploadProtocol = a}) --- | The location which contains the job +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- that contains the job. plwmLocation :: Lens' ProjectsLocationsWorkerMessages Text plwmLocation = lens _plwmLocation (\ s a -> s{_plwmLocation = a}) @@ -159,7 +165,8 @@ plwmCallback = lens _plwmCallback (\ s a -> s{_plwmCallback = a}) instance GoogleRequest - ProjectsLocationsWorkerMessages where + ProjectsLocationsWorkerMessages + where type Rs ProjectsLocationsWorkerMessages = SendWorkerMessagesResponse type Scopes ProjectsLocationsWorkerMessages = diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/Get.hs new file mode 100644 index 0000000..1ca3ead --- /dev/null +++ b/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/Get.hs @@ -0,0 +1,180 @@ +{-# 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.Dataflow.Projects.Snapshots.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets information about a snapshot. +-- +-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.snapshots.get@. +module Network.Google.Resource.Dataflow.Projects.Snapshots.Get + ( + -- * REST Resource + ProjectsSnapshotsGetResource + + -- * Creating a Request + , projectsSnapshotsGet + , ProjectsSnapshotsGet + + -- * Request Lenses + , psgXgafv + , psgUploadProtocol + , psgLocation + , psgAccessToken + , psgUploadType + , psgProjectId + , psgCallback + , psgSnapshotId + ) where + +import Network.Google.Dataflow.Types +import Network.Google.Prelude + +-- | A resource alias for @dataflow.projects.snapshots.get@ method which the +-- 'ProjectsSnapshotsGet' request conforms to. +type ProjectsSnapshotsGetResource = + "v1b3" :> + "projects" :> + Capture "projectId" Text :> + "snapshots" :> + Capture "snapshotId" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "location" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> Get '[JSON] Snapshot + +-- | Gets information about a snapshot. +-- +-- /See:/ 'projectsSnapshotsGet' smart constructor. +data ProjectsSnapshotsGet = + ProjectsSnapshotsGet' + { _psgXgafv :: !(Maybe Xgafv) + , _psgUploadProtocol :: !(Maybe Text) + , _psgLocation :: !(Maybe Text) + , _psgAccessToken :: !(Maybe Text) + , _psgUploadType :: !(Maybe Text) + , _psgProjectId :: !Text + , _psgCallback :: !(Maybe Text) + , _psgSnapshotId :: !Text + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsSnapshotsGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'psgXgafv' +-- +-- * 'psgUploadProtocol' +-- +-- * 'psgLocation' +-- +-- * 'psgAccessToken' +-- +-- * 'psgUploadType' +-- +-- * 'psgProjectId' +-- +-- * 'psgCallback' +-- +-- * 'psgSnapshotId' +projectsSnapshotsGet + :: Text -- ^ 'psgProjectId' + -> Text -- ^ 'psgSnapshotId' + -> ProjectsSnapshotsGet +projectsSnapshotsGet pPsgProjectId_ pPsgSnapshotId_ = + ProjectsSnapshotsGet' + { _psgXgafv = Nothing + , _psgUploadProtocol = Nothing + , _psgLocation = Nothing + , _psgAccessToken = Nothing + , _psgUploadType = Nothing + , _psgProjectId = pPsgProjectId_ + , _psgCallback = Nothing + , _psgSnapshotId = pPsgSnapshotId_ + } + + +-- | V1 error format. +psgXgafv :: Lens' ProjectsSnapshotsGet (Maybe Xgafv) +psgXgafv = lens _psgXgafv (\ s a -> s{_psgXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +psgUploadProtocol :: Lens' ProjectsSnapshotsGet (Maybe Text) +psgUploadProtocol + = lens _psgUploadProtocol + (\ s a -> s{_psgUploadProtocol = a}) + +-- | The location that contains this snapshot. +psgLocation :: Lens' ProjectsSnapshotsGet (Maybe Text) +psgLocation + = lens _psgLocation (\ s a -> s{_psgLocation = a}) + +-- | OAuth access token. +psgAccessToken :: Lens' ProjectsSnapshotsGet (Maybe Text) +psgAccessToken + = lens _psgAccessToken + (\ s a -> s{_psgAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +psgUploadType :: Lens' ProjectsSnapshotsGet (Maybe Text) +psgUploadType + = lens _psgUploadType + (\ s a -> s{_psgUploadType = a}) + +-- | The ID of the Cloud Platform project that the snapshot belongs to. +psgProjectId :: Lens' ProjectsSnapshotsGet Text +psgProjectId + = lens _psgProjectId (\ s a -> s{_psgProjectId = a}) + +-- | JSONP +psgCallback :: Lens' ProjectsSnapshotsGet (Maybe Text) +psgCallback + = lens _psgCallback (\ s a -> s{_psgCallback = a}) + +-- | The ID of the snapshot. +psgSnapshotId :: Lens' ProjectsSnapshotsGet Text +psgSnapshotId + = lens _psgSnapshotId + (\ s a -> s{_psgSnapshotId = a}) + +instance GoogleRequest ProjectsSnapshotsGet where + type Rs ProjectsSnapshotsGet = Snapshot + type Scopes ProjectsSnapshotsGet = + '["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 ProjectsSnapshotsGet'{..} + = go _psgProjectId _psgSnapshotId _psgXgafv + _psgUploadProtocol + _psgLocation + _psgAccessToken + _psgUploadType + _psgCallback + (Just AltJSON) + dataflowService + where go + = buildClient + (Proxy :: Proxy ProjectsSnapshotsGetResource) + mempty diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/List.hs new file mode 100644 index 0000000..3835929 --- /dev/null +++ b/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/List.hs @@ -0,0 +1,167 @@ +{-# 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.Dataflow.Projects.Snapshots.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists snapshots. +-- +-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.snapshots.list@. +module Network.Google.Resource.Dataflow.Projects.Snapshots.List + ( + -- * REST Resource + ProjectsSnapshotsListResource + + -- * Creating a Request + , projectsSnapshotsList + , ProjectsSnapshotsList + + -- * Request Lenses + , pslXgafv + , pslUploadProtocol + , pslLocation + , pslAccessToken + , pslUploadType + , pslProjectId + , pslCallback + ) where + +import Network.Google.Dataflow.Types +import Network.Google.Prelude + +-- | A resource alias for @dataflow.projects.snapshots.list@ method which the +-- 'ProjectsSnapshotsList' request conforms to. +type ProjectsSnapshotsListResource = + "v1b3" :> + "projects" :> + Capture "projectId" Text :> + "snapshots" :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "location" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] ListSnapshotsResponse + +-- | Lists snapshots. +-- +-- /See:/ 'projectsSnapshotsList' smart constructor. +data ProjectsSnapshotsList = + ProjectsSnapshotsList' + { _pslXgafv :: !(Maybe Xgafv) + , _pslUploadProtocol :: !(Maybe Text) + , _pslLocation :: !(Maybe Text) + , _pslAccessToken :: !(Maybe Text) + , _pslUploadType :: !(Maybe Text) + , _pslProjectId :: !Text + , _pslCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsSnapshotsList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pslXgafv' +-- +-- * 'pslUploadProtocol' +-- +-- * 'pslLocation' +-- +-- * 'pslAccessToken' +-- +-- * 'pslUploadType' +-- +-- * 'pslProjectId' +-- +-- * 'pslCallback' +projectsSnapshotsList + :: Text -- ^ 'pslProjectId' + -> ProjectsSnapshotsList +projectsSnapshotsList pPslProjectId_ = + ProjectsSnapshotsList' + { _pslXgafv = Nothing + , _pslUploadProtocol = Nothing + , _pslLocation = Nothing + , _pslAccessToken = Nothing + , _pslUploadType = Nothing + , _pslProjectId = pPslProjectId_ + , _pslCallback = Nothing + } + + +-- | V1 error format. +pslXgafv :: Lens' ProjectsSnapshotsList (Maybe Xgafv) +pslXgafv = lens _pslXgafv (\ s a -> s{_pslXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pslUploadProtocol :: Lens' ProjectsSnapshotsList (Maybe Text) +pslUploadProtocol + = lens _pslUploadProtocol + (\ s a -> s{_pslUploadProtocol = a}) + +-- | The location to list snapshots in. +pslLocation :: Lens' ProjectsSnapshotsList (Maybe Text) +pslLocation + = lens _pslLocation (\ s a -> s{_pslLocation = a}) + +-- | OAuth access token. +pslAccessToken :: Lens' ProjectsSnapshotsList (Maybe Text) +pslAccessToken + = lens _pslAccessToken + (\ s a -> s{_pslAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pslUploadType :: Lens' ProjectsSnapshotsList (Maybe Text) +pslUploadType + = lens _pslUploadType + (\ s a -> s{_pslUploadType = a}) + +-- | The project ID to list snapshots for. +pslProjectId :: Lens' ProjectsSnapshotsList Text +pslProjectId + = lens _pslProjectId (\ s a -> s{_pslProjectId = a}) + +-- | JSONP +pslCallback :: Lens' ProjectsSnapshotsList (Maybe Text) +pslCallback + = lens _pslCallback (\ s a -> s{_pslCallback = a}) + +instance GoogleRequest ProjectsSnapshotsList where + type Rs ProjectsSnapshotsList = ListSnapshotsResponse + type Scopes ProjectsSnapshotsList = + '["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 ProjectsSnapshotsList'{..} + = go _pslProjectId _pslXgafv _pslUploadProtocol + _pslLocation + _pslAccessToken + _pslUploadType + _pslCallback + (Just AltJSON) + dataflowService + where go + = buildClient + (Proxy :: Proxy ProjectsSnapshotsListResource) + mempty diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs index f0309c9..89ea9ba 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs @@ -64,7 +64,8 @@ type ProjectsTemplatesCreateResource = -- | Creates a Cloud Dataflow job from a template. -- -- /See:/ 'projectsTemplatesCreate' smart constructor. -data ProjectsTemplatesCreate = ProjectsTemplatesCreate' +data ProjectsTemplatesCreate = + ProjectsTemplatesCreate' { _ptcXgafv :: !(Maybe Xgafv) , _ptcUploadProtocol :: !(Maybe Text) , _ptcAccessToken :: !(Maybe Text) @@ -72,7 +73,9 @@ data ProjectsTemplatesCreate = ProjectsTemplatesCreate' , _ptcPayload :: !CreateJobFromTemplateRequest , _ptcProjectId :: !Text , _ptcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTemplatesCreate' with the minimum fields required to make a request. -- @@ -96,7 +99,7 @@ projectsTemplatesCreate -> Text -- ^ 'ptcProjectId' -> ProjectsTemplatesCreate projectsTemplatesCreate pPtcPayload_ pPtcProjectId_ = - ProjectsTemplatesCreate' + ProjectsTemplatesCreate' { _ptcXgafv = Nothing , _ptcUploadProtocol = Nothing , _ptcAccessToken = Nothing @@ -106,6 +109,7 @@ projectsTemplatesCreate pPtcPayload_ pPtcProjectId_ = , _ptcCallback = Nothing } + -- | V1 error format. ptcXgafv :: Lens' ProjectsTemplatesCreate (Maybe Xgafv) ptcXgafv = lens _ptcXgafv (\ s a -> s{_ptcXgafv = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs index 071ce1b..2940048 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs @@ -68,7 +68,8 @@ type ProjectsTemplatesGetResource = -- | Get the template associated with a template. -- -- /See:/ 'projectsTemplatesGet' smart constructor. -data ProjectsTemplatesGet = ProjectsTemplatesGet' +data ProjectsTemplatesGet = + ProjectsTemplatesGet' { _ptgXgafv :: !(Maybe Xgafv) , _ptgUploadProtocol :: !(Maybe Text) , _ptgLocation :: !(Maybe Text) @@ -78,7 +79,9 @@ data ProjectsTemplatesGet = ProjectsTemplatesGet' , _ptgView :: !(Maybe Text) , _ptgProjectId :: !Text , _ptgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTemplatesGet' with the minimum fields required to make a request. -- @@ -105,7 +108,7 @@ projectsTemplatesGet :: Text -- ^ 'ptgProjectId' -> ProjectsTemplatesGet projectsTemplatesGet pPtgProjectId_ = - ProjectsTemplatesGet' + ProjectsTemplatesGet' { _ptgXgafv = Nothing , _ptgUploadProtocol = Nothing , _ptgLocation = Nothing @@ -117,6 +120,7 @@ projectsTemplatesGet pPtgProjectId_ = , _ptgCallback = Nothing } + -- | V1 error format. ptgXgafv :: Lens' ProjectsTemplatesGet (Maybe Xgafv) ptgXgafv = lens _ptgXgafv (\ s a -> s{_ptgXgafv = a}) @@ -127,7 +131,9 @@ ptgUploadProtocol = lens _ptgUploadProtocol (\ s a -> s{_ptgUploadProtocol = a}) --- | The location to which to direct the request. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- to which to direct the request. ptgLocation :: Lens' ProjectsTemplatesGet (Maybe Text) ptgLocation = lens _ptgLocation (\ s a -> s{_ptgLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs index f0e6dcc..6081146 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs @@ -74,7 +74,8 @@ type ProjectsTemplatesLaunchResource = -- | Launch a template. -- -- /See:/ 'projectsTemplatesLaunch' smart constructor. -data ProjectsTemplatesLaunch = ProjectsTemplatesLaunch' +data ProjectsTemplatesLaunch = + ProjectsTemplatesLaunch' { _ptlXgafv :: !(Maybe Xgafv) , _ptlValidateOnly :: !(Maybe Bool) , _ptlUploadProtocol :: !(Maybe Text) @@ -87,7 +88,9 @@ data ProjectsTemplatesLaunch = ProjectsTemplatesLaunch' , _ptlProjectId :: !Text , _ptlCallback :: !(Maybe Text) , _ptlDynamicTemplateGcsPath :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTemplatesLaunch' with the minimum fields required to make a request. -- @@ -121,7 +124,7 @@ projectsTemplatesLaunch -> Text -- ^ 'ptlProjectId' -> ProjectsTemplatesLaunch projectsTemplatesLaunch pPtlPayload_ pPtlProjectId_ = - ProjectsTemplatesLaunch' + ProjectsTemplatesLaunch' { _ptlXgafv = Nothing , _ptlValidateOnly = Nothing , _ptlUploadProtocol = Nothing @@ -136,6 +139,7 @@ projectsTemplatesLaunch pPtlPayload_ pPtlProjectId_ = , _ptlDynamicTemplateGcsPath = Nothing } + -- | V1 error format. ptlXgafv :: Lens' ProjectsTemplatesLaunch (Maybe Xgafv) ptlXgafv = lens _ptlXgafv (\ s a -> s{_ptlXgafv = a}) @@ -153,7 +157,9 @@ ptlUploadProtocol = lens _ptlUploadProtocol (\ s a -> s{_ptlUploadProtocol = a}) --- | The location to which to direct the request. +-- | The [regional endpoint] +-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) +-- to which to direct the request. ptlLocation :: Lens' ProjectsTemplatesLaunch (Maybe Text) ptlLocation = lens _ptlLocation (\ s a -> s{_ptlLocation = a}) diff --git a/gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs b/gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs index f60dac2..25102f6 100644 --- a/gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs +++ b/gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs @@ -64,7 +64,8 @@ type ProjectsWorkerMessagesResource = -- | Send a worker_message to the service. -- -- /See:/ 'projectsWorkerMessages' smart constructor. -data ProjectsWorkerMessages = ProjectsWorkerMessages' +data ProjectsWorkerMessages = + ProjectsWorkerMessages' { _pwmXgafv :: !(Maybe Xgafv) , _pwmUploadProtocol :: !(Maybe Text) , _pwmAccessToken :: !(Maybe Text) @@ -72,7 +73,9 @@ data ProjectsWorkerMessages = ProjectsWorkerMessages' , _pwmPayload :: !SendWorkerMessagesRequest , _pwmProjectId :: !Text , _pwmCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsWorkerMessages' with the minimum fields required to make a request. -- @@ -96,7 +99,7 @@ projectsWorkerMessages -> Text -- ^ 'pwmProjectId' -> ProjectsWorkerMessages projectsWorkerMessages pPwmPayload_ pPwmProjectId_ = - ProjectsWorkerMessages' + ProjectsWorkerMessages' { _pwmXgafv = Nothing , _pwmUploadProtocol = Nothing , _pwmAccessToken = Nothing @@ -106,6 +109,7 @@ projectsWorkerMessages pPwmPayload_ pPwmProjectId_ = , _pwmCallback = Nothing } + -- | V1 error format. pwmXgafv :: Lens' ProjectsWorkerMessages (Maybe Xgafv) pwmXgafv = lens _pwmXgafv (\ s a -> s{_pwmXgafv = a}) |