module Network.Google.Resource.Dataflow.Projects.Templates.Create
(
ProjectsTemplatesCreateResource
, projectsTemplatesCreate
, ProjectsTemplatesCreate
, ptcXgafv
, ptcUploadProtocol
, ptcPp
, ptcAccessToken
, ptcUploadType
, ptcPayload
, ptcBearerToken
, ptcProjectId
, ptcCallback
) where
import Network.Google.Dataflow.Types
import Network.Google.Prelude
type ProjectsTemplatesCreateResource =
"v1b3" :>
"projects" :>
Capture "projectId" Text :>
"templates" :>
QueryParam "$.xgafv" Text :>
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
data ProjectsTemplatesCreate = ProjectsTemplatesCreate'
{ _ptcXgafv :: !(Maybe Text)
, _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)
projectsTemplatesCreate
:: CreateJobFromTemplateRequest
-> Text
-> ProjectsTemplatesCreate
projectsTemplatesCreate pPtcPayload_ pPtcProjectId_ =
ProjectsTemplatesCreate'
{ _ptcXgafv = Nothing
, _ptcUploadProtocol = Nothing
, _ptcPp = True
, _ptcAccessToken = Nothing
, _ptcUploadType = Nothing
, _ptcPayload = pPtcPayload_
, _ptcBearerToken = Nothing
, _ptcProjectId = pPtcProjectId_
, _ptcCallback = Nothing
}
ptcXgafv :: Lens' ProjectsTemplatesCreate (Maybe Text)
ptcXgafv = lens _ptcXgafv (\ s a -> s{_ptcXgafv = a})
ptcUploadProtocol :: Lens' ProjectsTemplatesCreate (Maybe Text)
ptcUploadProtocol
= lens _ptcUploadProtocol
(\ s a -> s{_ptcUploadProtocol = a})
ptcPp :: Lens' ProjectsTemplatesCreate Bool
ptcPp = lens _ptcPp (\ s a -> s{_ptcPp = a})
ptcAccessToken :: Lens' ProjectsTemplatesCreate (Maybe Text)
ptcAccessToken
= lens _ptcAccessToken
(\ s a -> s{_ptcAccessToken = a})
ptcUploadType :: Lens' ProjectsTemplatesCreate (Maybe Text)
ptcUploadType
= lens _ptcUploadType
(\ s a -> s{_ptcUploadType = a})
ptcPayload :: Lens' ProjectsTemplatesCreate CreateJobFromTemplateRequest
ptcPayload
= lens _ptcPayload (\ s a -> s{_ptcPayload = a})
ptcBearerToken :: Lens' ProjectsTemplatesCreate (Maybe Text)
ptcBearerToken
= lens _ptcBearerToken
(\ s a -> s{_ptcBearerToken = a})
ptcProjectId :: Lens' ProjectsTemplatesCreate Text
ptcProjectId
= lens _ptcProjectId (\ s a -> s{_ptcProjectId = a})
ptcCallback :: Lens' ProjectsTemplatesCreate (Maybe Text)
ptcCallback
= lens _ptcCallback (\ s a -> s{_ptcCallback = a})
instance GoogleRequest ProjectsTemplatesCreate where
type Rs ProjectsTemplatesCreate = Job
type Scopes ProjectsTemplatesCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/userinfo.email"]
requestClient ProjectsTemplatesCreate'{..}
= go _ptcProjectId _ptcXgafv _ptcUploadProtocol
(Just _ptcPp)
_ptcAccessToken
_ptcUploadType
_ptcBearerToken
_ptcCallback
(Just AltJSON)
_ptcPayload
dataflowService
where go
= buildClient
(Proxy :: Proxy ProjectsTemplatesCreateResource)
mempty