summaryrefslogtreecommitdiff
path: root/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs
diff options
context:
space:
mode:
Diffstat (limited to 'gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs')
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs206
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