diff options
Diffstat (limited to 'gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs')
| -rw-r--r-- | gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs | 206 |
1 files changed, 206 insertions, 0 deletions
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs new file mode 100644 index 0000000..749c467 --- /dev/null +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs @@ -0,0 +1,206 @@ +{-# 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.Jobs.Create +-- Copyright : (c) 2015 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) +-- +-- Creates a dataflow job. +-- +-- /See:/ <https://cloud.google.com/dataflow Google Dataflow API Reference> for @dataflow.projects.jobs.create@. +module Network.Google.Resource.Dataflow.Projects.Jobs.Create + ( + -- * REST Resource + ProjectsJobsCreateResource + + -- * Creating a Request + , projectsJobsCreate + , ProjectsJobsCreate + + -- * Request Lenses + , pjcXgafv + , pjcUploadProtocol + , pjcPp + , pjcAccessToken + , pjcUploadType + , pjcPayload + , pjcBearerToken + , pjcView + , pjcProjectId + , pjcReplaceJobId + , pjcCallback + ) where + +import Network.Google.Dataflow.Types +import Network.Google.Prelude + +-- | A resource alias for @dataflow.projects.jobs.create@ method which the +-- 'ProjectsJobsCreate' request conforms to. +type ProjectsJobsCreateResource = + "v1b3" :> + "projects" :> + Capture "projectId" Text :> + "jobs" :> + QueryParam "$.xgafv" Text :> + QueryParam "upload_protocol" Text :> + QueryParam "pp" Bool :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "bearer_token" Text :> + QueryParam "view" Text :> + QueryParam "replaceJobId" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] Job :> Post '[JSON] Job + +-- | Creates a dataflow job. +-- +-- /See:/ 'projectsJobsCreate' smart constructor. +data ProjectsJobsCreate = ProjectsJobsCreate + { _pjcXgafv :: !(Maybe Text) + , _pjcUploadProtocol :: !(Maybe Text) + , _pjcPp :: !Bool + , _pjcAccessToken :: !(Maybe Text) + , _pjcUploadType :: !(Maybe Text) + , _pjcPayload :: !Job + , _pjcBearerToken :: !(Maybe Text) + , _pjcView :: !(Maybe Text) + , _pjcProjectId :: !Text + , _pjcReplaceJobId :: !(Maybe Text) + , _pjcCallback :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProjectsJobsCreate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pjcXgafv' +-- +-- * 'pjcUploadProtocol' +-- +-- * 'pjcPp' +-- +-- * 'pjcAccessToken' +-- +-- * 'pjcUploadType' +-- +-- * 'pjcPayload' +-- +-- * 'pjcBearerToken' +-- +-- * 'pjcView' +-- +-- * 'pjcProjectId' +-- +-- * 'pjcReplaceJobId' +-- +-- * 'pjcCallback' +projectsJobsCreate + :: Job -- ^ 'pjcPayload' + -> Text -- ^ 'pjcProjectId' + -> ProjectsJobsCreate +projectsJobsCreate pPjcPayload_ pPjcProjectId_ = + ProjectsJobsCreate + { _pjcXgafv = Nothing + , _pjcUploadProtocol = Nothing + , _pjcPp = True + , _pjcAccessToken = Nothing + , _pjcUploadType = Nothing + , _pjcPayload = pPjcPayload_ + , _pjcBearerToken = Nothing + , _pjcView = Nothing + , _pjcProjectId = pPjcProjectId_ + , _pjcReplaceJobId = Nothing + , _pjcCallback = Nothing + } + +-- | V1 error format. +pjcXgafv :: Lens' ProjectsJobsCreate (Maybe Text) +pjcXgafv = lens _pjcXgafv (\ s a -> s{_pjcXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pjcUploadProtocol :: Lens' ProjectsJobsCreate (Maybe Text) +pjcUploadProtocol + = lens _pjcUploadProtocol + (\ s a -> s{_pjcUploadProtocol = a}) + +-- | Pretty-print response. +pjcPp :: Lens' ProjectsJobsCreate Bool +pjcPp = lens _pjcPp (\ s a -> s{_pjcPp = a}) + +-- | OAuth access token. +pjcAccessToken :: Lens' ProjectsJobsCreate (Maybe Text) +pjcAccessToken + = lens _pjcAccessToken + (\ s a -> s{_pjcAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pjcUploadType :: Lens' ProjectsJobsCreate (Maybe Text) +pjcUploadType + = lens _pjcUploadType + (\ s a -> s{_pjcUploadType = a}) + +-- | Multipart request metadata. +pjcPayload :: Lens' ProjectsJobsCreate Job +pjcPayload + = lens _pjcPayload (\ s a -> s{_pjcPayload = a}) + +-- | OAuth bearer token. +pjcBearerToken :: Lens' ProjectsJobsCreate (Maybe Text) +pjcBearerToken + = lens _pjcBearerToken + (\ s a -> s{_pjcBearerToken = a}) + +-- | Level of information requested in response. +pjcView :: Lens' ProjectsJobsCreate (Maybe Text) +pjcView = lens _pjcView (\ s a -> s{_pjcView = a}) + +-- | The project which owns the job. +pjcProjectId :: Lens' ProjectsJobsCreate Text +pjcProjectId + = lens _pjcProjectId (\ s a -> s{_pjcProjectId = a}) + +-- | DEPRECATED. This field is now on the Job message. +pjcReplaceJobId :: Lens' ProjectsJobsCreate (Maybe Text) +pjcReplaceJobId + = lens _pjcReplaceJobId + (\ s a -> s{_pjcReplaceJobId = a}) + +-- | JSONP +pjcCallback :: Lens' ProjectsJobsCreate (Maybe Text) +pjcCallback + = lens _pjcCallback (\ s a -> s{_pjcCallback = a}) + +instance GoogleRequest ProjectsJobsCreate where + type Rs ProjectsJobsCreate = Job + requestClient ProjectsJobsCreate{..} + = go _pjcProjectId _pjcXgafv _pjcUploadProtocol + (Just _pjcPp) + _pjcAccessToken + _pjcUploadType + _pjcBearerToken + _pjcView + _pjcReplaceJobId + _pjcCallback + (Just AltJSON) + _pjcPayload + dataflowService + where go + = buildClient + (Proxy :: Proxy ProjectsJobsCreateResource) + mempty |