diff options
Diffstat (limited to 'gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs')
| -rw-r--r-- | gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs | 202 |
1 files changed, 202 insertions, 0 deletions
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs new file mode 100644 index 0000000..d2389a1 --- /dev/null +++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs @@ -0,0 +1,202 @@ +{-# 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.WorkItems.Lease +-- 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) +-- +-- Leases a dataflow WorkItem to run. +-- +-- /See:/ <https://cloud.google.com/dataflow Google Dataflow API Reference> for @dataflow.projects.jobs.workItems.lease@. +module Network.Google.Resource.Dataflow.Projects.Jobs.WorkItems.Lease + ( + -- * REST Resource + ProjectsJobsWorkItemsLeaseResource + + -- * Creating a Request + , projectsJobsWorkItemsLease + , ProjectsJobsWorkItemsLease + + -- * Request Lenses + , pjwilXgafv + , pjwilJobId + , pjwilUploadProtocol + , pjwilPp + , pjwilAccessToken + , pjwilUploadType + , pjwilPayload + , pjwilBearerToken + , pjwilProjectId + , pjwilCallback + ) where + +import Network.Google.Dataflow.Types +import Network.Google.Prelude + +-- | A resource alias for @dataflow.projects.jobs.workItems.lease@ method which the +-- 'ProjectsJobsWorkItemsLease' request conforms to. +type ProjectsJobsWorkItemsLeaseResource = + "v1b3" :> + "projects" :> + Capture "projectId" Text :> + "jobs" :> + Capture "jobId" Text :> + "workItems:lease" :> + 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] LeaseWorkItemRequest :> + Post '[JSON] LeaseWorkItemResponse + +-- | Leases a dataflow WorkItem to run. +-- +-- /See:/ 'projectsJobsWorkItemsLease' smart constructor. +data ProjectsJobsWorkItemsLease = ProjectsJobsWorkItemsLease + { _pjwilXgafv :: !(Maybe Text) + , _pjwilJobId :: !Text + , _pjwilUploadProtocol :: !(Maybe Text) + , _pjwilPp :: !Bool + , _pjwilAccessToken :: !(Maybe Text) + , _pjwilUploadType :: !(Maybe Text) + , _pjwilPayload :: !LeaseWorkItemRequest + , _pjwilBearerToken :: !(Maybe Text) + , _pjwilProjectId :: !Text + , _pjwilCallback :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProjectsJobsWorkItemsLease' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pjwilXgafv' +-- +-- * 'pjwilJobId' +-- +-- * 'pjwilUploadProtocol' +-- +-- * 'pjwilPp' +-- +-- * 'pjwilAccessToken' +-- +-- * 'pjwilUploadType' +-- +-- * 'pjwilPayload' +-- +-- * 'pjwilBearerToken' +-- +-- * 'pjwilProjectId' +-- +-- * 'pjwilCallback' +projectsJobsWorkItemsLease + :: Text -- ^ 'pjwilJobId' + -> LeaseWorkItemRequest -- ^ 'pjwilPayload' + -> Text -- ^ 'pjwilProjectId' + -> ProjectsJobsWorkItemsLease +projectsJobsWorkItemsLease pPjwilJobId_ pPjwilPayload_ pPjwilProjectId_ = + ProjectsJobsWorkItemsLease + { _pjwilXgafv = Nothing + , _pjwilJobId = pPjwilJobId_ + , _pjwilUploadProtocol = Nothing + , _pjwilPp = True + , _pjwilAccessToken = Nothing + , _pjwilUploadType = Nothing + , _pjwilPayload = pPjwilPayload_ + , _pjwilBearerToken = Nothing + , _pjwilProjectId = pPjwilProjectId_ + , _pjwilCallback = Nothing + } + +-- | V1 error format. +pjwilXgafv :: Lens' ProjectsJobsWorkItemsLease (Maybe Text) +pjwilXgafv + = lens _pjwilXgafv (\ s a -> s{_pjwilXgafv = a}) + +-- | Identifies the workflow job this worker belongs to. +pjwilJobId :: Lens' ProjectsJobsWorkItemsLease Text +pjwilJobId + = lens _pjwilJobId (\ s a -> s{_pjwilJobId = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pjwilUploadProtocol :: Lens' ProjectsJobsWorkItemsLease (Maybe Text) +pjwilUploadProtocol + = lens _pjwilUploadProtocol + (\ s a -> s{_pjwilUploadProtocol = a}) + +-- | Pretty-print response. +pjwilPp :: Lens' ProjectsJobsWorkItemsLease Bool +pjwilPp = lens _pjwilPp (\ s a -> s{_pjwilPp = a}) + +-- | OAuth access token. +pjwilAccessToken :: Lens' ProjectsJobsWorkItemsLease (Maybe Text) +pjwilAccessToken + = lens _pjwilAccessToken + (\ s a -> s{_pjwilAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pjwilUploadType :: Lens' ProjectsJobsWorkItemsLease (Maybe Text) +pjwilUploadType + = lens _pjwilUploadType + (\ s a -> s{_pjwilUploadType = a}) + +-- | Multipart request metadata. +pjwilPayload :: Lens' ProjectsJobsWorkItemsLease LeaseWorkItemRequest +pjwilPayload + = lens _pjwilPayload (\ s a -> s{_pjwilPayload = a}) + +-- | OAuth bearer token. +pjwilBearerToken :: Lens' ProjectsJobsWorkItemsLease (Maybe Text) +pjwilBearerToken + = lens _pjwilBearerToken + (\ s a -> s{_pjwilBearerToken = a}) + +-- | Identifies the project this worker belongs to. +pjwilProjectId :: Lens' ProjectsJobsWorkItemsLease Text +pjwilProjectId + = lens _pjwilProjectId + (\ s a -> s{_pjwilProjectId = a}) + +-- | JSONP +pjwilCallback :: Lens' ProjectsJobsWorkItemsLease (Maybe Text) +pjwilCallback + = lens _pjwilCallback + (\ s a -> s{_pjwilCallback = a}) + +instance GoogleRequest ProjectsJobsWorkItemsLease + where + type Rs ProjectsJobsWorkItemsLease = + LeaseWorkItemResponse + requestClient ProjectsJobsWorkItemsLease{..} + = go _pjwilProjectId _pjwilJobId _pjwilXgafv + _pjwilUploadProtocol + (Just _pjwilPp) + _pjwilAccessToken + _pjwilUploadType + _pjwilBearerToken + _pjwilCallback + (Just AltJSON) + _pjwilPayload + dataflowService + where go + = buildClient + (Proxy :: Proxy ProjectsJobsWorkItemsLeaseResource) + mempty |