diff options
Diffstat (limited to 'gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs')
| -rw-r--r-- | gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs | 46 |
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 |