summaryrefslogtreecommitdiff
path: root/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs
diff options
context:
space:
mode:
Diffstat (limited to 'gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs')
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs46
1 files changed, 12 insertions, 34 deletions
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs
index f27a070..f0309c9 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs
@@ -22,7 +22,7 @@
--
-- Creates a Cloud Dataflow job from a template.
--
--- /See:/ <https://cloud.google.com/dataflow Google Dataflow API Reference> for @dataflow.projects.templates.create@.
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.templates.create@.
module Network.Google.Resource.Dataflow.Projects.Templates.Create
(
-- * REST Resource
@@ -35,11 +35,9 @@ module Network.Google.Resource.Dataflow.Projects.Templates.Create
-- * Request Lenses
, ptcXgafv
, ptcUploadProtocol
- , ptcPp
, ptcAccessToken
, ptcUploadType
, ptcPayload
- , ptcBearerToken
, ptcProjectId
, ptcCallback
) where
@@ -54,28 +52,24 @@ type ProjectsTemplatesCreateResource =
"projects" :>
Capture "projectId" Text :>
"templates" :>
- QueryParam "$.xgafv" Text :>
+ QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
- QueryParam "pp" Bool :>
- QueryParam "access_token" Text :>
- QueryParam "uploadType" Text :>
- QueryParam "bearer_token" Text :>
- QueryParam "callback" Text :>
- QueryParam "alt" AltJSON :>
- ReqBody '[JSON] CreateJobFromTemplateRequest :>
- Post '[JSON] Job
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "alt" AltJSON :>
+ ReqBody '[JSON] CreateJobFromTemplateRequest :>
+ Post '[JSON] Job
-- | Creates a Cloud Dataflow job from a template.
--
-- /See:/ 'projectsTemplatesCreate' smart constructor.
data ProjectsTemplatesCreate = ProjectsTemplatesCreate'
- { _ptcXgafv :: !(Maybe Text)
+ { _ptcXgafv :: !(Maybe Xgafv)
, _ptcUploadProtocol :: !(Maybe Text)
- , _ptcPp :: !Bool
, _ptcAccessToken :: !(Maybe Text)
, _ptcUploadType :: !(Maybe Text)
, _ptcPayload :: !CreateJobFromTemplateRequest
- , _ptcBearerToken :: !(Maybe Text)
, _ptcProjectId :: !Text
, _ptcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
@@ -88,16 +82,12 @@ data ProjectsTemplatesCreate = ProjectsTemplatesCreate'
--
-- * 'ptcUploadProtocol'
--
--- * 'ptcPp'
---
-- * 'ptcAccessToken'
--
-- * 'ptcUploadType'
--
-- * 'ptcPayload'
--
--- * 'ptcBearerToken'
---
-- * 'ptcProjectId'
--
-- * 'ptcCallback'
@@ -109,17 +99,15 @@ projectsTemplatesCreate pPtcPayload_ pPtcProjectId_ =
ProjectsTemplatesCreate'
{ _ptcXgafv = Nothing
, _ptcUploadProtocol = Nothing
- , _ptcPp = True
, _ptcAccessToken = Nothing
, _ptcUploadType = Nothing
, _ptcPayload = pPtcPayload_
- , _ptcBearerToken = Nothing
, _ptcProjectId = pPtcProjectId_
, _ptcCallback = Nothing
}
-- | V1 error format.
-ptcXgafv :: Lens' ProjectsTemplatesCreate (Maybe Text)
+ptcXgafv :: Lens' ProjectsTemplatesCreate (Maybe Xgafv)
ptcXgafv = lens _ptcXgafv (\ s a -> s{_ptcXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
@@ -128,10 +116,6 @@ ptcUploadProtocol
= lens _ptcUploadProtocol
(\ s a -> s{_ptcUploadProtocol = a})
--- | Pretty-print response.
-ptcPp :: Lens' ProjectsTemplatesCreate Bool
-ptcPp = lens _ptcPp (\ s a -> s{_ptcPp = a})
-
-- | OAuth access token.
ptcAccessToken :: Lens' ProjectsTemplatesCreate (Maybe Text)
ptcAccessToken
@@ -149,12 +133,6 @@ ptcPayload :: Lens' ProjectsTemplatesCreate CreateJobFromTemplateRequest
ptcPayload
= lens _ptcPayload (\ s a -> s{_ptcPayload = a})
--- | OAuth bearer token.
-ptcBearerToken :: Lens' ProjectsTemplatesCreate (Maybe Text)
-ptcBearerToken
- = lens _ptcBearerToken
- (\ s a -> s{_ptcBearerToken = a})
-
-- | Required. The ID of the Cloud Platform project that the job belongs to.
ptcProjectId :: Lens' ProjectsTemplatesCreate Text
ptcProjectId
@@ -169,13 +147,13 @@ instance GoogleRequest ProjectsTemplatesCreate where
type Rs ProjectsTemplatesCreate = Job
type Scopes ProjectsTemplatesCreate =
'["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 ProjectsTemplatesCreate'{..}
= go _ptcProjectId _ptcXgafv _ptcUploadProtocol
- (Just _ptcPp)
_ptcAccessToken
_ptcUploadType
- _ptcBearerToken
_ptcCallback
(Just AltJSON)
_ptcPayload