{-# 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.Dataproc.Projects.Regions.WorkflowTemplates.List
(
ProjectsRegionsWorkflowTemplatesListResource
, projectsRegionsWorkflowTemplatesList
, ProjectsRegionsWorkflowTemplatesList
, prwtlParent
, prwtlXgafv
, prwtlUploadProtocol
, prwtlAccessToken
, prwtlUploadType
, prwtlPageToken
, prwtlPageSize
, prwtlCallback
) where
import Network.Google.Dataproc.Types
import Network.Google.Prelude
type ProjectsRegionsWorkflowTemplatesListResource =
"v1" :>
Capture "parent" Text :>
"workflowTemplates" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListWorkflowTemplatesResponse
data ProjectsRegionsWorkflowTemplatesList =
ProjectsRegionsWorkflowTemplatesList'
{ _prwtlParent :: !Text
, _prwtlXgafv :: !(Maybe Xgafv)
, _prwtlUploadProtocol :: !(Maybe Text)
, _prwtlAccessToken :: !(Maybe Text)
, _prwtlUploadType :: !(Maybe Text)
, _prwtlPageToken :: !(Maybe Text)
, _prwtlPageSize :: !(Maybe (Textual Int32))
, _prwtlCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsRegionsWorkflowTemplatesList
:: Text
-> ProjectsRegionsWorkflowTemplatesList
projectsRegionsWorkflowTemplatesList pPrwtlParent_ =
ProjectsRegionsWorkflowTemplatesList'
{ _prwtlParent = pPrwtlParent_
, _prwtlXgafv = Nothing
, _prwtlUploadProtocol = Nothing
, _prwtlAccessToken = Nothing
, _prwtlUploadType = Nothing
, _prwtlPageToken = Nothing
, _prwtlPageSize = Nothing
, _prwtlCallback = Nothing
}
prwtlParent :: Lens' ProjectsRegionsWorkflowTemplatesList Text
prwtlParent
= lens _prwtlParent (\ s a -> s{_prwtlParent = a})
prwtlXgafv :: Lens' ProjectsRegionsWorkflowTemplatesList (Maybe Xgafv)
prwtlXgafv
= lens _prwtlXgafv (\ s a -> s{_prwtlXgafv = a})
prwtlUploadProtocol :: Lens' ProjectsRegionsWorkflowTemplatesList (Maybe Text)
prwtlUploadProtocol
= lens _prwtlUploadProtocol
(\ s a -> s{_prwtlUploadProtocol = a})
prwtlAccessToken :: Lens' ProjectsRegionsWorkflowTemplatesList (Maybe Text)
prwtlAccessToken
= lens _prwtlAccessToken
(\ s a -> s{_prwtlAccessToken = a})
prwtlUploadType :: Lens' ProjectsRegionsWorkflowTemplatesList (Maybe Text)
prwtlUploadType
= lens _prwtlUploadType
(\ s a -> s{_prwtlUploadType = a})
prwtlPageToken :: Lens' ProjectsRegionsWorkflowTemplatesList (Maybe Text)
prwtlPageToken
= lens _prwtlPageToken
(\ s a -> s{_prwtlPageToken = a})
prwtlPageSize :: Lens' ProjectsRegionsWorkflowTemplatesList (Maybe Int32)
prwtlPageSize
= lens _prwtlPageSize
(\ s a -> s{_prwtlPageSize = a})
. mapping _Coerce
prwtlCallback :: Lens' ProjectsRegionsWorkflowTemplatesList (Maybe Text)
prwtlCallback
= lens _prwtlCallback
(\ s a -> s{_prwtlCallback = a})
instance GoogleRequest
ProjectsRegionsWorkflowTemplatesList
where
type Rs ProjectsRegionsWorkflowTemplatesList =
ListWorkflowTemplatesResponse
type Scopes ProjectsRegionsWorkflowTemplatesList =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsRegionsWorkflowTemplatesList'{..}
= go _prwtlParent _prwtlXgafv _prwtlUploadProtocol
_prwtlAccessToken
_prwtlUploadType
_prwtlPageToken
_prwtlPageSize
_prwtlCallback
(Just AltJSON)
dataprocService
where go
= buildClient
(Proxy ::
Proxy ProjectsRegionsWorkflowTemplatesListResource)
mempty