summaryrefslogtreecommitdiff
path: root/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs
diff options
context:
space:
mode:
Diffstat (limited to 'gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs')
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs183
1 files changed, 183 insertions, 0 deletions
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs
new file mode 100644
index 0000000..c6fc1ba
--- /dev/null
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs
@@ -0,0 +1,183 @@
+{-# 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.Locations.WorkerMessages
+-- Copyright : (c) 2015-2016 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)
+--
+-- Send a worker_message to the service.
+--
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.workerMessages@.
+module Network.Google.Resource.Dataflow.Projects.Locations.WorkerMessages
+ (
+ -- * REST Resource
+ ProjectsLocationsWorkerMessagesResource
+
+ -- * Creating a Request
+ , projectsLocationsWorkerMessages
+ , ProjectsLocationsWorkerMessages
+
+ -- * Request Lenses
+ , plwmXgafv
+ , plwmUploadProtocol
+ , plwmLocation
+ , plwmAccessToken
+ , plwmUploadType
+ , plwmPayload
+ , plwmProjectId
+ , plwmCallback
+ ) where
+
+import Network.Google.Dataflow.Types
+import Network.Google.Prelude
+
+-- | A resource alias for @dataflow.projects.locations.workerMessages@ method which the
+-- 'ProjectsLocationsWorkerMessages' request conforms to.
+type ProjectsLocationsWorkerMessagesResource =
+ "v1b3" :>
+ "projects" :>
+ Capture "projectId" Text :>
+ "locations" :>
+ Capture "location" Text :>
+ "WorkerMessages" :>
+ QueryParam "$.xgafv" Xgafv :>
+ QueryParam "upload_protocol" Text :>
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "alt" AltJSON :>
+ ReqBody '[JSON] SendWorkerMessagesRequest :>
+ Post '[JSON] SendWorkerMessagesResponse
+
+-- | Send a worker_message to the service.
+--
+-- /See:/ 'projectsLocationsWorkerMessages' smart constructor.
+data ProjectsLocationsWorkerMessages = ProjectsLocationsWorkerMessages'
+ { _plwmXgafv :: !(Maybe Xgafv)
+ , _plwmUploadProtocol :: !(Maybe Text)
+ , _plwmLocation :: !Text
+ , _plwmAccessToken :: !(Maybe Text)
+ , _plwmUploadType :: !(Maybe Text)
+ , _plwmPayload :: !SendWorkerMessagesRequest
+ , _plwmProjectId :: !Text
+ , _plwmCallback :: !(Maybe Text)
+ } deriving (Eq,Show,Data,Typeable,Generic)
+
+-- | Creates a value of 'ProjectsLocationsWorkerMessages' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'plwmXgafv'
+--
+-- * 'plwmUploadProtocol'
+--
+-- * 'plwmLocation'
+--
+-- * 'plwmAccessToken'
+--
+-- * 'plwmUploadType'
+--
+-- * 'plwmPayload'
+--
+-- * 'plwmProjectId'
+--
+-- * 'plwmCallback'
+projectsLocationsWorkerMessages
+ :: Text -- ^ 'plwmLocation'
+ -> SendWorkerMessagesRequest -- ^ 'plwmPayload'
+ -> Text -- ^ 'plwmProjectId'
+ -> ProjectsLocationsWorkerMessages
+projectsLocationsWorkerMessages pPlwmLocation_ pPlwmPayload_ pPlwmProjectId_ =
+ ProjectsLocationsWorkerMessages'
+ { _plwmXgafv = Nothing
+ , _plwmUploadProtocol = Nothing
+ , _plwmLocation = pPlwmLocation_
+ , _plwmAccessToken = Nothing
+ , _plwmUploadType = Nothing
+ , _plwmPayload = pPlwmPayload_
+ , _plwmProjectId = pPlwmProjectId_
+ , _plwmCallback = Nothing
+ }
+
+-- | V1 error format.
+plwmXgafv :: Lens' ProjectsLocationsWorkerMessages (Maybe Xgafv)
+plwmXgafv
+ = lens _plwmXgafv (\ s a -> s{_plwmXgafv = a})
+
+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
+plwmUploadProtocol :: Lens' ProjectsLocationsWorkerMessages (Maybe Text)
+plwmUploadProtocol
+ = lens _plwmUploadProtocol
+ (\ s a -> s{_plwmUploadProtocol = a})
+
+-- | The location which contains the job
+plwmLocation :: Lens' ProjectsLocationsWorkerMessages Text
+plwmLocation
+ = lens _plwmLocation (\ s a -> s{_plwmLocation = a})
+
+-- | OAuth access token.
+plwmAccessToken :: Lens' ProjectsLocationsWorkerMessages (Maybe Text)
+plwmAccessToken
+ = lens _plwmAccessToken
+ (\ s a -> s{_plwmAccessToken = a})
+
+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
+plwmUploadType :: Lens' ProjectsLocationsWorkerMessages (Maybe Text)
+plwmUploadType
+ = lens _plwmUploadType
+ (\ s a -> s{_plwmUploadType = a})
+
+-- | Multipart request metadata.
+plwmPayload :: Lens' ProjectsLocationsWorkerMessages SendWorkerMessagesRequest
+plwmPayload
+ = lens _plwmPayload (\ s a -> s{_plwmPayload = a})
+
+-- | The project to send the WorkerMessages to.
+plwmProjectId :: Lens' ProjectsLocationsWorkerMessages Text
+plwmProjectId
+ = lens _plwmProjectId
+ (\ s a -> s{_plwmProjectId = a})
+
+-- | JSONP
+plwmCallback :: Lens' ProjectsLocationsWorkerMessages (Maybe Text)
+plwmCallback
+ = lens _plwmCallback (\ s a -> s{_plwmCallback = a})
+
+instance GoogleRequest
+ ProjectsLocationsWorkerMessages where
+ type Rs ProjectsLocationsWorkerMessages =
+ SendWorkerMessagesResponse
+ type Scopes ProjectsLocationsWorkerMessages =
+ '["https://www.googleapis.com/auth/cloud-platform",
+ "https://www.googleapis.com/auth/compute",
+ "https://www.googleapis.com/auth/compute.readonly",
+ "https://www.googleapis.com/auth/userinfo.email"]
+ requestClient ProjectsLocationsWorkerMessages'{..}
+ = go _plwmProjectId _plwmLocation _plwmXgafv
+ _plwmUploadProtocol
+ _plwmAccessToken
+ _plwmUploadType
+ _plwmCallback
+ (Just AltJSON)
+ _plwmPayload
+ dataflowService
+ where go
+ = buildClient
+ (Proxy ::
+ Proxy ProjectsLocationsWorkerMessagesResource)
+ mempty