diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.5.0` +`1.0.0` ## Description diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,2 +1,3 @@ -import Distribution.Simple +import Distribution.Simple + main = defaultMain diff --git a/gen/Gogol/CloudTasks.hs b/gen/Gogol/CloudTasks.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks.hs @@ -0,0 +1,389 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Manages the execution of large numbers of distributed requests. +-- +-- /See:/ +module Gogol.CloudTasks + ( -- * Configuration + cloudTasksService, + + -- * OAuth Scopes + CloudPlatform'FullControl, + + -- * Resources + + -- ** cloudtasks.projects.locations.get + CloudTasksProjectsLocationsGetResource, + CloudTasksProjectsLocationsGet (..), + newCloudTasksProjectsLocationsGet, + + -- ** cloudtasks.projects.locations.getCmekConfig + CloudTasksProjectsLocationsGetCmekConfigResource, + CloudTasksProjectsLocationsGetCmekConfig (..), + newCloudTasksProjectsLocationsGetCmekConfig, + + -- ** cloudtasks.projects.locations.list + CloudTasksProjectsLocationsListResource, + CloudTasksProjectsLocationsList (..), + newCloudTasksProjectsLocationsList, + + -- ** cloudtasks.projects.locations.queues.create + CloudTasksProjectsLocationsQueuesCreateResource, + CloudTasksProjectsLocationsQueuesCreate (..), + newCloudTasksProjectsLocationsQueuesCreate, + + -- ** cloudtasks.projects.locations.queues.delete + CloudTasksProjectsLocationsQueuesDeleteResource, + CloudTasksProjectsLocationsQueuesDelete (..), + newCloudTasksProjectsLocationsQueuesDelete, + + -- ** cloudtasks.projects.locations.queues.get + CloudTasksProjectsLocationsQueuesGetResource, + CloudTasksProjectsLocationsQueuesGet (..), + newCloudTasksProjectsLocationsQueuesGet, + + -- ** cloudtasks.projects.locations.queues.getIamPolicy + CloudTasksProjectsLocationsQueuesGetIamPolicyResource, + CloudTasksProjectsLocationsQueuesGetIamPolicy (..), + newCloudTasksProjectsLocationsQueuesGetIamPolicy, + + -- ** cloudtasks.projects.locations.queues.list + CloudTasksProjectsLocationsQueuesListResource, + CloudTasksProjectsLocationsQueuesList (..), + newCloudTasksProjectsLocationsQueuesList, + + -- ** cloudtasks.projects.locations.queues.patch + CloudTasksProjectsLocationsQueuesPatchResource, + CloudTasksProjectsLocationsQueuesPatch (..), + newCloudTasksProjectsLocationsQueuesPatch, + + -- ** cloudtasks.projects.locations.queues.pause + CloudTasksProjectsLocationsQueuesPauseResource, + CloudTasksProjectsLocationsQueuesPause (..), + newCloudTasksProjectsLocationsQueuesPause, + + -- ** cloudtasks.projects.locations.queues.purge + CloudTasksProjectsLocationsQueuesPurgeResource, + CloudTasksProjectsLocationsQueuesPurge (..), + newCloudTasksProjectsLocationsQueuesPurge, + + -- ** cloudtasks.projects.locations.queues.resume + CloudTasksProjectsLocationsQueuesResumeResource, + CloudTasksProjectsLocationsQueuesResume (..), + newCloudTasksProjectsLocationsQueuesResume, + + -- ** cloudtasks.projects.locations.queues.setIamPolicy + CloudTasksProjectsLocationsQueuesSetIamPolicyResource, + CloudTasksProjectsLocationsQueuesSetIamPolicy (..), + newCloudTasksProjectsLocationsQueuesSetIamPolicy, + + -- ** cloudtasks.projects.locations.queues.tasks.buffer + CloudTasksProjectsLocationsQueuesTasksBufferResource, + CloudTasksProjectsLocationsQueuesTasksBuffer (..), + newCloudTasksProjectsLocationsQueuesTasksBuffer, + + -- ** cloudtasks.projects.locations.queues.tasks.create + CloudTasksProjectsLocationsQueuesTasksCreateResource, + CloudTasksProjectsLocationsQueuesTasksCreate (..), + newCloudTasksProjectsLocationsQueuesTasksCreate, + + -- ** cloudtasks.projects.locations.queues.tasks.delete + CloudTasksProjectsLocationsQueuesTasksDeleteResource, + CloudTasksProjectsLocationsQueuesTasksDelete (..), + newCloudTasksProjectsLocationsQueuesTasksDelete, + + -- ** cloudtasks.projects.locations.queues.tasks.get + CloudTasksProjectsLocationsQueuesTasksGetResource, + CloudTasksProjectsLocationsQueuesTasksGet (..), + newCloudTasksProjectsLocationsQueuesTasksGet, + + -- ** cloudtasks.projects.locations.queues.tasks.list + CloudTasksProjectsLocationsQueuesTasksListResource, + CloudTasksProjectsLocationsQueuesTasksList (..), + newCloudTasksProjectsLocationsQueuesTasksList, + + -- ** cloudtasks.projects.locations.queues.tasks.run + CloudTasksProjectsLocationsQueuesTasksRunResource, + CloudTasksProjectsLocationsQueuesTasksRun (..), + newCloudTasksProjectsLocationsQueuesTasksRun, + + -- ** cloudtasks.projects.locations.queues.testIamPermissions + CloudTasksProjectsLocationsQueuesTestIamPermissionsResource, + CloudTasksProjectsLocationsQueuesTestIamPermissions (..), + newCloudTasksProjectsLocationsQueuesTestIamPermissions, + + -- ** cloudtasks.projects.locations.updateCmekConfig + CloudTasksProjectsLocationsUpdateCmekConfigResource, + CloudTasksProjectsLocationsUpdateCmekConfig (..), + newCloudTasksProjectsLocationsUpdateCmekConfig, + + -- * Types + + -- ** Xgafv + Xgafv (..), + + -- ** AppEngineHttpRequest + AppEngineHttpRequest (..), + newAppEngineHttpRequest, + + -- ** AppEngineHttpRequest_Headers + AppEngineHttpRequest_Headers (..), + newAppEngineHttpRequest_Headers, + + -- ** AppEngineHttpRequest_HttpMethod + AppEngineHttpRequest_HttpMethod (..), + + -- ** AppEngineRouting + AppEngineRouting (..), + newAppEngineRouting, + + -- ** Attempt + Attempt (..), + newAttempt, + + -- ** Binding + Binding (..), + newBinding, + + -- ** BufferTaskRequest + BufferTaskRequest (..), + newBufferTaskRequest, + + -- ** BufferTaskResponse + BufferTaskResponse (..), + newBufferTaskResponse, + + -- ** CmekConfig + CmekConfig (..), + newCmekConfig, + + -- ** CreateTaskRequest + CreateTaskRequest (..), + newCreateTaskRequest, + + -- ** CreateTaskRequest_ResponseView + CreateTaskRequest_ResponseView (..), + + -- ** Empty + Empty (..), + newEmpty, + + -- ** Expr + Expr (..), + newExpr, + + -- ** GetIamPolicyRequest + GetIamPolicyRequest (..), + newGetIamPolicyRequest, + + -- ** GetPolicyOptions + GetPolicyOptions (..), + newGetPolicyOptions, + + -- ** Header + Header (..), + newHeader, + + -- ** HeaderOverride + HeaderOverride (..), + newHeaderOverride, + + -- ** HttpBody + HttpBody (..), + newHttpBody, + + -- ** HttpBody_ExtensionsItem + HttpBody_ExtensionsItem (..), + newHttpBody_ExtensionsItem, + + -- ** HttpRequest + HttpRequest (..), + newHttpRequest, + + -- ** HttpRequest_Headers + HttpRequest_Headers (..), + newHttpRequest_Headers, + + -- ** HttpRequest_HttpMethod + HttpRequest_HttpMethod (..), + + -- ** HttpTarget + HttpTarget (..), + newHttpTarget, + + -- ** HttpTarget_HttpMethod + HttpTarget_HttpMethod (..), + + -- ** ListLocationsResponse + ListLocationsResponse (..), + newListLocationsResponse, + + -- ** ListQueuesResponse + ListQueuesResponse (..), + newListQueuesResponse, + + -- ** ListTasksResponse + ListTasksResponse (..), + newListTasksResponse, + + -- ** Location + Location (..), + newLocation, + + -- ** Location_Labels + Location_Labels (..), + newLocation_Labels, + + -- ** Location_Metadata + Location_Metadata (..), + newLocation_Metadata, + + -- ** OAuthToken + OAuthToken (..), + newOAuthToken, + + -- ** OidcToken + OidcToken (..), + newOidcToken, + + -- ** PathOverride + PathOverride (..), + newPathOverride, + + -- ** PauseQueueRequest + PauseQueueRequest (..), + newPauseQueueRequest, + + -- ** Policy + Policy (..), + newPolicy, + + -- ** PurgeQueueRequest + PurgeQueueRequest (..), + newPurgeQueueRequest, + + -- ** QueryOverride + QueryOverride (..), + newQueryOverride, + + -- ** Queue + Queue (..), + newQueue, + + -- ** Queue_State + Queue_State (..), + + -- ** RateLimits + RateLimits (..), + newRateLimits, + + -- ** ResumeQueueRequest + ResumeQueueRequest (..), + newResumeQueueRequest, + + -- ** RetryConfig + RetryConfig (..), + newRetryConfig, + + -- ** RunTaskRequest + RunTaskRequest (..), + newRunTaskRequest, + + -- ** RunTaskRequest_ResponseView + RunTaskRequest_ResponseView (..), + + -- ** SetIamPolicyRequest + SetIamPolicyRequest (..), + newSetIamPolicyRequest, + + -- ** StackdriverLoggingConfig + StackdriverLoggingConfig (..), + newStackdriverLoggingConfig, + + -- ** Status + Status (..), + newStatus, + + -- ** Status_DetailsItem + Status_DetailsItem (..), + newStatus_DetailsItem, + + -- ** Task + Task (..), + newTask, + + -- ** Task_View + Task_View (..), + + -- ** TestIamPermissionsRequest + TestIamPermissionsRequest (..), + newTestIamPermissionsRequest, + + -- ** TestIamPermissionsResponse + TestIamPermissionsResponse (..), + newTestIamPermissionsResponse, + + -- ** UriOverride + UriOverride (..), + newUriOverride, + + -- ** UriOverride_Scheme + UriOverride_Scheme (..), + + -- ** UriOverride_UriOverrideEnforceMode + UriOverride_UriOverrideEnforceMode (..), + + -- ** ProjectsLocationsQueuesTasksGetResponseView + ProjectsLocationsQueuesTasksGetResponseView (..), + + -- ** ProjectsLocationsQueuesTasksListResponseView + ProjectsLocationsQueuesTasksListResponseView (..), + ) +where + +import Gogol.CloudTasks.Projects.Locations.Get +import Gogol.CloudTasks.Projects.Locations.GetCmekConfig +import Gogol.CloudTasks.Projects.Locations.List +import Gogol.CloudTasks.Projects.Locations.Queues.Create +import Gogol.CloudTasks.Projects.Locations.Queues.Delete +import Gogol.CloudTasks.Projects.Locations.Queues.Get +import Gogol.CloudTasks.Projects.Locations.Queues.GetIamPolicy +import Gogol.CloudTasks.Projects.Locations.Queues.List +import Gogol.CloudTasks.Projects.Locations.Queues.Patch +import Gogol.CloudTasks.Projects.Locations.Queues.Pause +import Gogol.CloudTasks.Projects.Locations.Queues.Purge +import Gogol.CloudTasks.Projects.Locations.Queues.Resume +import Gogol.CloudTasks.Projects.Locations.Queues.SetIamPolicy +import Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Buffer +import Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Create +import Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Delete +import Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Get +import Gogol.CloudTasks.Projects.Locations.Queues.Tasks.List +import Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Run +import Gogol.CloudTasks.Projects.Locations.Queues.TestIamPermissions +import Gogol.CloudTasks.Projects.Locations.UpdateCmekConfig +import Gogol.CloudTasks.Types diff --git a/gen/Gogol/CloudTasks/Internal/Product.hs b/gen/Gogol/CloudTasks/Internal/Product.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Internal/Product.hs @@ -0,0 +1,1934 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Internal.Product +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Gogol.CloudTasks.Internal.Product + ( -- * AppEngineHttpRequest + AppEngineHttpRequest (..), + newAppEngineHttpRequest, + + -- * AppEngineHttpRequest_Headers + AppEngineHttpRequest_Headers (..), + newAppEngineHttpRequest_Headers, + + -- * AppEngineRouting + AppEngineRouting (..), + newAppEngineRouting, + + -- * Attempt + Attempt (..), + newAttempt, + + -- * Binding + Binding (..), + newBinding, + + -- * BufferTaskRequest + BufferTaskRequest (..), + newBufferTaskRequest, + + -- * BufferTaskResponse + BufferTaskResponse (..), + newBufferTaskResponse, + + -- * CmekConfig + CmekConfig (..), + newCmekConfig, + + -- * CreateTaskRequest + CreateTaskRequest (..), + newCreateTaskRequest, + + -- * Empty + Empty (..), + newEmpty, + + -- * Expr + Expr (..), + newExpr, + + -- * GetIamPolicyRequest + GetIamPolicyRequest (..), + newGetIamPolicyRequest, + + -- * GetPolicyOptions + GetPolicyOptions (..), + newGetPolicyOptions, + + -- * Header + Header (..), + newHeader, + + -- * HeaderOverride + HeaderOverride (..), + newHeaderOverride, + + -- * HttpBody + HttpBody (..), + newHttpBody, + + -- * HttpBody_ExtensionsItem + HttpBody_ExtensionsItem (..), + newHttpBody_ExtensionsItem, + + -- * HttpRequest + HttpRequest (..), + newHttpRequest, + + -- * HttpRequest_Headers + HttpRequest_Headers (..), + newHttpRequest_Headers, + + -- * HttpTarget + HttpTarget (..), + newHttpTarget, + + -- * ListLocationsResponse + ListLocationsResponse (..), + newListLocationsResponse, + + -- * ListQueuesResponse + ListQueuesResponse (..), + newListQueuesResponse, + + -- * ListTasksResponse + ListTasksResponse (..), + newListTasksResponse, + + -- * Location + Location (..), + newLocation, + + -- * Location_Labels + Location_Labels (..), + newLocation_Labels, + + -- * Location_Metadata + Location_Metadata (..), + newLocation_Metadata, + + -- * OAuthToken + OAuthToken (..), + newOAuthToken, + + -- * OidcToken + OidcToken (..), + newOidcToken, + + -- * PathOverride + PathOverride (..), + newPathOverride, + + -- * PauseQueueRequest + PauseQueueRequest (..), + newPauseQueueRequest, + + -- * Policy + Policy (..), + newPolicy, + + -- * PurgeQueueRequest + PurgeQueueRequest (..), + newPurgeQueueRequest, + + -- * QueryOverride + QueryOverride (..), + newQueryOverride, + + -- * Queue + Queue (..), + newQueue, + + -- * RateLimits + RateLimits (..), + newRateLimits, + + -- * ResumeQueueRequest + ResumeQueueRequest (..), + newResumeQueueRequest, + + -- * RetryConfig + RetryConfig (..), + newRetryConfig, + + -- * RunTaskRequest + RunTaskRequest (..), + newRunTaskRequest, + + -- * SetIamPolicyRequest + SetIamPolicyRequest (..), + newSetIamPolicyRequest, + + -- * StackdriverLoggingConfig + StackdriverLoggingConfig (..), + newStackdriverLoggingConfig, + + -- * Status + Status (..), + newStatus, + + -- * Status_DetailsItem + Status_DetailsItem (..), + newStatus_DetailsItem, + + -- * Task + Task (..), + newTask, + + -- * TestIamPermissionsRequest + TestIamPermissionsRequest (..), + newTestIamPermissionsRequest, + + -- * TestIamPermissionsResponse + TestIamPermissionsResponse (..), + newTestIamPermissionsResponse, + + -- * UriOverride + UriOverride (..), + newUriOverride, + ) +where + +import Gogol.CloudTasks.Internal.Sum +import Gogol.Prelude qualified as Core + +-- | App Engine HTTP request. The message defines the HTTP request that is sent to an App Engine app when the task is dispatched. Using AppEngineHttpRequest requires Google IAM permission for the project and the following scope: @https:\/\/www.googleapis.com\/auth\/cloud-platform@ The task will be delivered to the App Engine app which belongs to the same project as the queue. For more information, see and how routing is affected by . Traffic is encrypted during transport and never leaves Google datacenters. Because this traffic is carried over a communication mechanism internal to Google, you cannot explicitly set the protocol (for example, HTTP or HTTPS). The request to the handler, however, will appear to have used the HTTP protocol. +-- The AppEngineRouting used to construct the URL that the task is delivered to can be set at the queue-level or task-level: * If app/engine/routing/override is set on the queue, this value is used for all tasks in the queue, no matter what the setting is for the task-level app/engine/routing. The @url@ that the task will be sent to is: * @url =@ host @+@ relative/uri Tasks can be dispatched to secure app handlers, unsecure app handlers, and URIs restricted with . Because tasks are not run as any user, they cannot be dispatched to URIs restricted with Task dispatches also do not follow redirects. The task attempt has succeeded if the app\'s request handler returns an HTTP response code in the range [@200@ - @299@]. The task attempt has failed if the app\'s handler returns a non-2xx response code or Cloud Tasks does not receive response before +-- the deadline. Failed tasks will be retried according to the retry configuration. @503@ (Service Unavailable) is considered an App Engine system error instead of an application error and will cause Cloud Tasks\' traffic congestion control to temporarily throttle the queue\'s dispatches. Unlike other types of task targets, a @429@ (Too Many Requests) response from an app handler does not cause traffic congestion control to throttle the queue. +-- +-- /See:/ 'newAppEngineHttpRequest' smart constructor. +data AppEngineHttpRequest = AppEngineHttpRequest + { -- | Task-level setting for App Engine routing. * If app/engine/routing/override is set on the queue, this value is used for all tasks in the queue, no matter what the setting is for the task-level app/engine_routing. + appEngineRouting :: (Core.Maybe AppEngineRouting), + -- | HTTP request body. A request body is allowed only if the HTTP method is POST or PUT. It is an error to set a body on a task with an incompatible HttpMethod. + body :: (Core.Maybe Core.Base64), + -- | HTTP request headers. This map contains the header field names and values. Headers can be set when the task is created. Repeated headers are not supported but a header value can contain commas. Cloud Tasks sets some headers to default values: * @User-Agent@: By default, this header is @\"AppEngine-Google; (+http:\/\/code.google.com\/appengine)\"@. This header can be modified, but Cloud Tasks will append @\"AppEngine-Google; (+http:\/\/code.google.com\/appengine)\"@ to the modified @User-Agent@. If the task has a body, Cloud Tasks sets the following headers: * @Content-Type@: By default, the @Content-Type@ header is set to @\"application\/octet-stream\"@. The default can be overridden by explicitly setting @Content-Type@ to a particular media type when the task is created. For example, @Content-Type@ can be set to @\"application\/json\"@. * @Content-Length@: This is computed by Cloud Tasks. This value is output only. It cannot be changed. The headers below cannot be set or overridden: * @Host@ * @X-Google-*@ * + -- @X-AppEngine-*@ In addition, Cloud Tasks sets some headers when the task is dispatched, such as headers containing information about the task; see . These headers are set only when the task is dispatched, so they are not visible when the task is returned in a Cloud Tasks response. Although there is no specific limit for the maximum number of headers or the size, there is a limit on the maximum size of the Task. For more information, see the CreateTask documentation. + headers :: (Core.Maybe AppEngineHttpRequest_Headers), + -- | The HTTP method to use for the request. The default is POST. The app\'s request handler for the task\'s target URL must be able to handle HTTP requests with this http_method, otherwise the task attempt fails with error code 405 (Method Not Allowed). See and the App Engine documentation for your runtime on . + httpMethod :: (Core.Maybe AppEngineHttpRequest_HttpMethod), + -- | The relative URI. The relative URI must begin with \"\/\" and must be a valid HTTP relative URI. It can contain a path and query string arguments. If the relative URI is empty, then the root path \"\/\" will be used. No spaces are allowed, and the maximum length allowed is 2083 characters. + relativeUri :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'AppEngineHttpRequest' with the minimum fields required to make a request. +newAppEngineHttpRequest :: + AppEngineHttpRequest +newAppEngineHttpRequest = + AppEngineHttpRequest + { appEngineRouting = Core.Nothing, + body = Core.Nothing, + headers = Core.Nothing, + httpMethod = Core.Nothing, + relativeUri = Core.Nothing + } + +instance Core.FromJSON AppEngineHttpRequest where + parseJSON = + Core.withObject + "AppEngineHttpRequest" + ( \o -> + AppEngineHttpRequest + Core.<$> (o Core..:? "appEngineRouting") + Core.<*> (o Core..:? "body") + Core.<*> (o Core..:? "headers") + Core.<*> (o Core..:? "httpMethod") + Core.<*> (o Core..:? "relativeUri") + ) + +instance Core.ToJSON AppEngineHttpRequest where + toJSON AppEngineHttpRequest {..} = + Core.object + ( Core.catMaybes + [ ("appEngineRouting" Core..=) Core.<$> appEngineRouting, + ("body" Core..=) Core.<$> body, + ("headers" Core..=) Core.<$> headers, + ("httpMethod" Core..=) Core.<$> httpMethod, + ("relativeUri" Core..=) Core.<$> relativeUri + ] + ) + +-- | HTTP request headers. This map contains the header field names and values. Headers can be set when the task is created. Repeated headers are not supported but a header value can contain commas. Cloud Tasks sets some headers to default values: * @User-Agent@: By default, this header is @\"AppEngine-Google; (+http:\/\/code.google.com\/appengine)\"@. This header can be modified, but Cloud Tasks will append @\"AppEngine-Google; (+http:\/\/code.google.com\/appengine)\"@ to the modified @User-Agent@. If the task has a body, Cloud Tasks sets the following headers: * @Content-Type@: By default, the @Content-Type@ header is set to @\"application\/octet-stream\"@. The default can be overridden by explicitly setting @Content-Type@ to a particular media type when the task is created. For example, @Content-Type@ can be set to @\"application\/json\"@. * @Content-Length@: This is computed by Cloud Tasks. This value is output only. It cannot be changed. The headers below cannot be set or overridden: * @Host@ * @X-Google-*@ * +-- @X-AppEngine-*@ In addition, Cloud Tasks sets some headers when the task is dispatched, such as headers containing information about the task; see . These headers are set only when the task is dispatched, so they are not visible when the task is returned in a Cloud Tasks response. Although there is no specific limit for the maximum number of headers or the size, there is a limit on the maximum size of the Task. For more information, see the CreateTask documentation. +-- +-- /See:/ 'newAppEngineHttpRequest_Headers' smart constructor. +newtype AppEngineHttpRequest_Headers = AppEngineHttpRequest_Headers + { additional :: (Core.HashMap Core.Text Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'AppEngineHttpRequest_Headers' with the minimum fields required to make a request. +newAppEngineHttpRequest_Headers :: + -- | See 'additional'. + Core.HashMap Core.Text Core.Text -> + AppEngineHttpRequest_Headers +newAppEngineHttpRequest_Headers additional = + AppEngineHttpRequest_Headers {additional = additional} + +instance Core.FromJSON AppEngineHttpRequest_Headers where + parseJSON = + Core.withObject + "AppEngineHttpRequest_Headers" + ( \o -> + AppEngineHttpRequest_Headers Core.<$> (Core.parseJSONObject o) + ) + +instance Core.ToJSON AppEngineHttpRequest_Headers where + toJSON AppEngineHttpRequest_Headers {..} = Core.toJSON additional + +-- | App Engine Routing. Defines routing characteristics specific to App Engine - service, version, and instance. For more information about services, versions, and instances see , , , and . Using AppEngineRouting requires Google IAM permission for the project and the following scope: @https:\/\/www.googleapis.com\/auth\/cloud-platform@ +-- +-- /See:/ 'newAppEngineRouting' smart constructor. +data AppEngineRouting = AppEngineRouting + { -- | Output only. The host that the task is sent to. The host is constructed from the domain name of the app associated with the queue\'s project ID (for example .appspot.com), and the service, version, and instance. Tasks which were created using the App Engine SDK might have a custom domain name. For more information, see . + host :: (Core.Maybe Core.Text), + -- | App instance. By default, the task is sent to an instance which is available when the task is attempted. Requests can only be sent to a specific instance if . App Engine Flex does not support instances. For more information, see and . + instance' :: (Core.Maybe Core.Text), + -- | App service. By default, the task is sent to the service which is the default service when the task is attempted. For some queues or tasks which were created using the App Engine Task Queue API, host is not parsable into service, version, and instance. For example, some tasks which were created using the App Engine SDK use a custom domain name; custom domains are not parsed by Cloud Tasks. If host is not parsable, then service, version, and instance are the empty string. + service :: (Core.Maybe Core.Text), + -- | App version. By default, the task is sent to the version which is the default version when the task is attempted. For some queues or tasks which were created using the App Engine Task Queue API, host is not parsable into service, version, and instance. For example, some tasks which were created using the App Engine SDK use a custom domain name; custom domains are not parsed by Cloud Tasks. If host is not parsable, then service, version, and instance are the empty string. + version :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'AppEngineRouting' with the minimum fields required to make a request. +newAppEngineRouting :: + AppEngineRouting +newAppEngineRouting = + AppEngineRouting + { host = Core.Nothing, + instance' = Core.Nothing, + service = Core.Nothing, + version = Core.Nothing + } + +instance Core.FromJSON AppEngineRouting where + parseJSON = + Core.withObject + "AppEngineRouting" + ( \o -> + AppEngineRouting + Core.<$> (o Core..:? "host") + Core.<*> (o Core..:? "instance") + Core.<*> (o Core..:? "service") + Core.<*> (o Core..:? "version") + ) + +instance Core.ToJSON AppEngineRouting where + toJSON AppEngineRouting {..} = + Core.object + ( Core.catMaybes + [ ("host" Core..=) Core.<$> host, + ("instance" Core..=) Core.<$> instance', + ("service" Core..=) Core.<$> service, + ("version" Core..=) Core.<$> version + ] + ) + +-- | The status of a task attempt. +-- +-- /See:/ 'newAttempt' smart constructor. +data Attempt = Attempt + { -- | Output only. The time that this attempt was dispatched. @dispatch_time@ will be truncated to the nearest microsecond. + dispatchTime :: (Core.Maybe Core.DateTime), + -- | Output only. The response from the worker for this attempt. If @response_time@ is unset, then the task has not been attempted or is currently running and the @response_status@ field is meaningless. + responseStatus :: (Core.Maybe Status), + -- | Output only. The time that this attempt response was received. @response_time@ will be truncated to the nearest microsecond. + responseTime :: (Core.Maybe Core.DateTime), + -- | Output only. The time that this attempt was scheduled. @schedule_time@ will be truncated to the nearest microsecond. + scheduleTime :: (Core.Maybe Core.DateTime) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Attempt' with the minimum fields required to make a request. +newAttempt :: + Attempt +newAttempt = + Attempt + { dispatchTime = Core.Nothing, + responseStatus = Core.Nothing, + responseTime = Core.Nothing, + scheduleTime = Core.Nothing + } + +instance Core.FromJSON Attempt where + parseJSON = + Core.withObject + "Attempt" + ( \o -> + Attempt + Core.<$> (o Core..:? "dispatchTime") + Core.<*> (o Core..:? "responseStatus") + Core.<*> (o Core..:? "responseTime") + Core.<*> (o Core..:? "scheduleTime") + ) + +instance Core.ToJSON Attempt where + toJSON Attempt {..} = + Core.object + ( Core.catMaybes + [ ("dispatchTime" Core..=) Core.<$> dispatchTime, + ("responseStatus" Core..=) Core.<$> responseStatus, + ("responseTime" Core..=) Core.<$> responseTime, + ("scheduleTime" Core..=) Core.<$> scheduleTime + ] + ) + +-- | Associates @members@, or principals, with a @role@. +-- +-- /See:/ 'newBinding' smart constructor. +data Binding = Binding + { -- | The condition that is associated with this binding. If the condition evaluates to @true@, then this binding applies to the current request. If the condition evaluates to @false@, then this binding does not apply to the current request. However, a different role binding might grant the same role to one or more of the principals in this binding. To learn which resources support conditions in their IAM policies, see the . + condition :: (Core.Maybe Expr), + -- | Specifies the principals requesting access for a Google Cloud resource. @members@ can have the following values: * @allUsers@: A special identifier that represents anyone who is on the internet; with or without a Google account. * @allAuthenticatedUsers@: A special identifier that represents anyone who is authenticated with a Google account or a service account. Does not include identities that come from external identity providers (IdPs) through identity federation. * @user:{emailid}@: An email address that represents a specific Google account. For example, @alice\@example.com@ . * @serviceAccount:{emailid}@: An email address that represents a Google service account. For example, @my-other-app\@appspot.gserviceaccount.com@. * @serviceAccount:{projectid}.svc.id.goog[{namespace}\/{kubernetes-sa}]@: An identifier for a . For example, @my-project.svc.id.goog[my-namespace\/my-kubernetes-sa]@. * + -- @group:{emailid}@: An email address that represents a Google group. For example, @admins\@example.com@. * @domain:{domain}@: The G Suite domain (primary) that represents all the users of that domain. For example, @google.com@ or @example.com@. * @principal:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/subject\/{subject_attribute_value}@: A single identity in a workforce identity pool. * @principalSet:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/group\/{group_id}@: All workforce identities in a group. * @principalSet:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/attribute.{attribute_name}\/{attribute_value}@: All workforce identities with a specific attribute value. * @principalSet:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/*@: All identities in a workforce identity pool. * + -- @principal:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/subject\/{subject_attribute_value}@: A single identity in a workload identity pool. * @principalSet:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/group\/{group_id}@: A workload identity pool group. * @principalSet:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/attribute.{attribute_name}\/{attribute_value}@: All identities in a workload identity pool with a certain attribute. * @principalSet:\/\/iam.googleapis.com\/projects\/{project_number}\/locations\/global\/workloadIdentityPools\/{pool_id}\/*@: All identities in a workload identity pool. * @deleted:user:{emailid}?uid={uniqueid}@: An email address (plus unique identifier) representing a user that has been recently deleted. For example, @alice\@example.com?uid=123456789012345678901@. If the user is recovered, this value reverts + -- to @user:{emailid}@ and the recovered user retains the role in the binding. * @deleted:serviceAccount:{emailid}?uid={uniqueid}@: An email address (plus unique identifier) representing a service account that has been recently deleted. For example, @my-other-app\@appspot.gserviceaccount.com?uid=123456789012345678901@. If the service account is undeleted, this value reverts to @serviceAccount:{emailid}@ and the undeleted service account retains the role in the binding. * @deleted:group:{emailid}?uid={uniqueid}@: An email address (plus unique identifier) representing a Google group that has been recently deleted. For example, @admins\@example.com?uid=123456789012345678901@. If the group is recovered, this value reverts to @group:{emailid}@ and the recovered group retains the role in the binding. * @deleted:principal:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/{pool_id}\/subject\/{subject_attribute_value}@: Deleted single identity in a workforce identity pool. For example, + -- @deleted:principal:\/\/iam.googleapis.com\/locations\/global\/workforcePools\/my-pool-id\/subject\/my-subject-attribute-value@. + members :: (Core.Maybe [Core.Text]), + -- | Role that is assigned to the list of @members@, or principals. For example, @roles\/viewer@, @roles\/editor@, or @roles\/owner@. For an overview of the IAM roles and permissions, see the . For a list of the available pre-defined roles, see . + role' :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Binding' with the minimum fields required to make a request. +newBinding :: + Binding +newBinding = + Binding + { condition = Core.Nothing, + members = Core.Nothing, + role' = Core.Nothing + } + +instance Core.FromJSON Binding where + parseJSON = + Core.withObject + "Binding" + ( \o -> + Binding + Core.<$> (o Core..:? "condition") + Core.<*> (o Core..:? "members") + Core.<*> (o Core..:? "role") + ) + +instance Core.ToJSON Binding where + toJSON Binding {..} = + Core.object + ( Core.catMaybes + [ ("condition" Core..=) Core.<$> condition, + ("members" Core..=) Core.<$> members, + ("role" Core..=) Core.<$> role' + ] + ) + +-- | Request message for BufferTask. +-- +-- /See:/ 'newBufferTaskRequest' smart constructor. +newtype BufferTaskRequest = BufferTaskRequest + { -- | Optional. Body of the HTTP request. The body can take any generic value. The value is written to the HttpRequest of the [Task]. + body :: (Core.Maybe HttpBody) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'BufferTaskRequest' with the minimum fields required to make a request. +newBufferTaskRequest :: + BufferTaskRequest +newBufferTaskRequest = BufferTaskRequest {body = Core.Nothing} + +instance Core.FromJSON BufferTaskRequest where + parseJSON = + Core.withObject + "BufferTaskRequest" + (\o -> BufferTaskRequest Core.<$> (o Core..:? "body")) + +instance Core.ToJSON BufferTaskRequest where + toJSON BufferTaskRequest {..} = + Core.object (Core.catMaybes [("body" Core..=) Core.<$> body]) + +-- | Response message for BufferTask. +-- +-- /See:/ 'newBufferTaskResponse' smart constructor. +newtype BufferTaskResponse = BufferTaskResponse + { -- | The created task. + task :: (Core.Maybe Task) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'BufferTaskResponse' with the minimum fields required to make a request. +newBufferTaskResponse :: + BufferTaskResponse +newBufferTaskResponse = BufferTaskResponse {task = Core.Nothing} + +instance Core.FromJSON BufferTaskResponse where + parseJSON = + Core.withObject + "BufferTaskResponse" + (\o -> BufferTaskResponse Core.<$> (o Core..:? "task")) + +instance Core.ToJSON BufferTaskResponse where + toJSON BufferTaskResponse {..} = + Core.object (Core.catMaybes [("task" Core..=) Core.<$> task]) + +-- | Describes the customer-managed encryption key (CMEK) configuration associated with a project and location. +-- +-- /See:/ 'newCmekConfig' smart constructor. +data CmekConfig = CmekConfig + { -- | Resource name of the Cloud KMS key, of the form @projects\/PROJECT_ID\/locations\/LOCATION_ID\/keyRings\/KEY_RING_ID\/cryptoKeys\/KEY_ID@, that will be used to encrypt the Queues & Tasks in the region. Setting this as blank will turn off CMEK encryption. + kmsKey :: (Core.Maybe Core.Text), + -- | Output only. The config resource name which includes the project and location and must end in \'cmekConfig\', in the format projects\/PROJECT/ID\/locations\/LOCATION/ID\/cmekConfig\` + name :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CmekConfig' with the minimum fields required to make a request. +newCmekConfig :: + CmekConfig +newCmekConfig = + CmekConfig {kmsKey = Core.Nothing, name = Core.Nothing} + +instance Core.FromJSON CmekConfig where + parseJSON = + Core.withObject + "CmekConfig" + ( \o -> + CmekConfig + Core.<$> (o Core..:? "kmsKey") + Core.<*> (o Core..:? "name") + ) + +instance Core.ToJSON CmekConfig where + toJSON CmekConfig {..} = + Core.object + ( Core.catMaybes + [ ("kmsKey" Core..=) Core.<$> kmsKey, + ("name" Core..=) Core.<$> name + ] + ) + +-- | Request message for CreateTask. +-- +-- /See:/ 'newCreateTaskRequest' smart constructor. +data CreateTaskRequest = CreateTaskRequest + { -- | The response/view specifies which subset of the Task will be returned. By default response/view is BASIC; not all information is retrieved by default because some data, such as payloads, might be desirable to return only when needed because of its large size or because of the sensitivity of data that it contains. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Task resource. + responseView :: (Core.Maybe CreateTaskRequest_ResponseView), + -- | Required. The task to add. Task names have the following format: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID@. The user can optionally specify a task name. If a name is not specified then the system will generate a random unique task id, which will be set in the task returned in the response. If schedule/time is not set or is in the past then Cloud Tasks will set it to the current time. Task De-duplication: Explicitly specifying a task ID enables task de-duplication. If a task\'s ID is identical to that of an existing task or a task that was deleted or executed recently then the call will fail with ALREADY/EXISTS. The IDs of deleted tasks are not immediately available for reuse. It can take up to 4 hours (or 9 days if the task\'s queue was created using a queue.yaml or queue.xml) for the task ID to be released and made available again. Because there is an extra lookup cost to identify duplicate task names, these CreateTask calls have significantly increased latency. Using + -- hashed strings for the task id or for the prefix of the task id is recommended. Choosing task ids that are sequential or have sequential prefixes, for example using a timestamp, causes an increase in latency and error rates in all task commands. The infrastructure relies on an approximately uniform distribution of task ids to store and serve tasks efficiently. + task :: (Core.Maybe Task) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CreateTaskRequest' with the minimum fields required to make a request. +newCreateTaskRequest :: + CreateTaskRequest +newCreateTaskRequest = + CreateTaskRequest + { responseView = Core.Nothing, + task = Core.Nothing + } + +instance Core.FromJSON CreateTaskRequest where + parseJSON = + Core.withObject + "CreateTaskRequest" + ( \o -> + CreateTaskRequest + Core.<$> (o Core..:? "responseView") + Core.<*> (o Core..:? "task") + ) + +instance Core.ToJSON CreateTaskRequest where + toJSON CreateTaskRequest {..} = + Core.object + ( Core.catMaybes + [ ("responseView" Core..=) Core.<$> responseView, + ("task" Core..=) Core.<$> task + ] + ) + +-- | A generic empty message that you can re-use to avoid defining duplicated empty messages in your APIs. A typical example is to use it as the request or the response type of an API method. For instance: service Foo { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } +-- +-- /See:/ 'newEmpty' smart constructor. +data Empty = Empty + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Empty' with the minimum fields required to make a request. +newEmpty :: + Empty +newEmpty = Empty + +instance Core.FromJSON Empty where + parseJSON = Core.withObject "Empty" (\o -> Core.pure Empty) + +instance Core.ToJSON Empty where + toJSON = Core.const Core.emptyObject + +-- | Represents a textual expression in the Common Expression Language (CEL) syntax. CEL is a C-like expression language. The syntax and semantics of CEL are documented at https:\/\/github.com\/google\/cel-spec. Example (Comparison): title: \"Summary size limit\" description: \"Determines if a summary is less than 100 chars\" expression: \"document.summary.size() \< 100\" Example (Equality): title: \"Requestor is owner\" description: \"Determines if requestor is the document owner\" expression: \"document.owner == request.auth.claims.email\" Example (Logic): title: \"Public documents\" description: \"Determine whether the document should be publicly visible\" expression: \"document.type != \'private\' && document.type != \'internal\'\" Example (Data Manipulation): title: \"Notification string\" description: \"Create a notification string with a timestamp.\" expression: \"\'New message received at \' + string(document.create_time)\" The exact variables and functions that may be referenced within an expression are +-- determined by the service that evaluates it. See the service documentation for additional information. +-- +-- /See:/ 'newExpr' smart constructor. +data Expr = Expr + { -- | Optional. Description of the expression. This is a longer text which describes the expression, e.g. when hovered over it in a UI. + description :: (Core.Maybe Core.Text), + -- | Textual representation of an expression in Common Expression Language syntax. + expression :: (Core.Maybe Core.Text), + -- | Optional. String indicating the location of the expression for error reporting, e.g. a file name and a position in the file. + location :: (Core.Maybe Core.Text), + -- | Optional. Title for the expression, i.e. a short string describing its purpose. This can be used e.g. in UIs which allow to enter the expression. + title :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Expr' with the minimum fields required to make a request. +newExpr :: + Expr +newExpr = + Expr + { description = Core.Nothing, + expression = Core.Nothing, + location = Core.Nothing, + title = Core.Nothing + } + +instance Core.FromJSON Expr where + parseJSON = + Core.withObject + "Expr" + ( \o -> + Expr + Core.<$> (o Core..:? "description") + Core.<*> (o Core..:? "expression") + Core.<*> (o Core..:? "location") + Core.<*> (o Core..:? "title") + ) + +instance Core.ToJSON Expr where + toJSON Expr {..} = + Core.object + ( Core.catMaybes + [ ("description" Core..=) Core.<$> description, + ("expression" Core..=) Core.<$> expression, + ("location" Core..=) Core.<$> location, + ("title" Core..=) Core.<$> title + ] + ) + +-- | Request message for @GetIamPolicy@ method. +-- +-- /See:/ 'newGetIamPolicyRequest' smart constructor. +newtype GetIamPolicyRequest = GetIamPolicyRequest + { -- | OPTIONAL: A @GetPolicyOptions@ object for specifying options to @GetIamPolicy@. + options :: (Core.Maybe GetPolicyOptions) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'GetIamPolicyRequest' with the minimum fields required to make a request. +newGetIamPolicyRequest :: + GetIamPolicyRequest +newGetIamPolicyRequest = + GetIamPolicyRequest {options = Core.Nothing} + +instance Core.FromJSON GetIamPolicyRequest where + parseJSON = + Core.withObject + "GetIamPolicyRequest" + (\o -> GetIamPolicyRequest Core.<$> (o Core..:? "options")) + +instance Core.ToJSON GetIamPolicyRequest where + toJSON GetIamPolicyRequest {..} = + Core.object + (Core.catMaybes [("options" Core..=) Core.<$> options]) + +-- | Encapsulates settings provided to GetIamPolicy. +-- +-- /See:/ 'newGetPolicyOptions' smart constructor. +newtype GetPolicyOptions = GetPolicyOptions + { -- | Optional. The maximum policy version that will be used to format the policy. Valid values are 0, 1, and 3. Requests specifying an invalid value will be rejected. Requests for policies with any conditional role bindings must specify version 3. Policies with no conditional role bindings may specify any valid value or leave the field unset. The policy in the response might use the policy version that you specified, or it might use a lower policy version. For example, if you specify version 3, but the policy has no conditional role bindings, the response uses version 1. To learn which resources support conditions in their IAM policies, see the . + requestedPolicyVersion :: (Core.Maybe Core.Int32) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'GetPolicyOptions' with the minimum fields required to make a request. +newGetPolicyOptions :: + GetPolicyOptions +newGetPolicyOptions = + GetPolicyOptions {requestedPolicyVersion = Core.Nothing} + +instance Core.FromJSON GetPolicyOptions where + parseJSON = + Core.withObject + "GetPolicyOptions" + ( \o -> + GetPolicyOptions Core.<$> (o Core..:? "requestedPolicyVersion") + ) + +instance Core.ToJSON GetPolicyOptions where + toJSON GetPolicyOptions {..} = + Core.object + ( Core.catMaybes + [ ("requestedPolicyVersion" Core..=) + Core.<$> requestedPolicyVersion + ] + ) + +-- | Defines a header message. A header can have a key and a value. +-- +-- /See:/ 'newHeader' smart constructor. +data Header = Header + { -- | The Key of the header. + key :: (Core.Maybe Core.Text), + -- | The Value of the header. + value :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Header' with the minimum fields required to make a request. +newHeader :: + Header +newHeader = Header {key = Core.Nothing, value = Core.Nothing} + +instance Core.FromJSON Header where + parseJSON = + Core.withObject + "Header" + ( \o -> + Header Core.<$> (o Core..:? "key") Core.<*> (o Core..:? "value") + ) + +instance Core.ToJSON Header where + toJSON Header {..} = + Core.object + ( Core.catMaybes + [("key" Core..=) Core.<$> key, ("value" Core..=) Core.<$> value] + ) + +-- | Wraps the Header object. +-- +-- /See:/ 'newHeaderOverride' smart constructor. +newtype HeaderOverride = HeaderOverride + { -- | Header embodying a key and a value. Do not put business sensitive or personally identifying data in the HTTP Header Override Configuration or other similar fields in accordance with Section 12 (Resource Fields) of the . + header :: (Core.Maybe Header) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'HeaderOverride' with the minimum fields required to make a request. +newHeaderOverride :: + HeaderOverride +newHeaderOverride = HeaderOverride {header = Core.Nothing} + +instance Core.FromJSON HeaderOverride where + parseJSON = + Core.withObject + "HeaderOverride" + (\o -> HeaderOverride Core.<$> (o Core..:? "header")) + +instance Core.ToJSON HeaderOverride where + toJSON HeaderOverride {..} = + Core.object (Core.catMaybes [("header" Core..=) Core.<$> header]) + +-- | Message that represents an arbitrary HTTP body. It should only be used for payload formats that can\'t be represented as JSON, such as raw binary or an HTML page. This message can be used both in streaming and non-streaming API methods in the request as well as the response. It can be used as a top-level request field, which is convenient if one wants to extract parameters from either the URL or HTTP template into the request fields and also want access to the raw HTTP body. Example: message GetResourceRequest { \/\/ A unique request id. string request/id = 1; \/\/ The raw HTTP body is bound to this field. google.api.HttpBody http/body = 2; } service ResourceService { rpc GetResource(GetResourceRequest) returns (google.api.HttpBody); rpc UpdateResource(google.api.HttpBody) returns (google.protobuf.Empty); } Example with streaming methods: service CaldavService { rpc GetCalendar(stream google.api.HttpBody) returns (stream google.api.HttpBody); rpc UpdateCalendar(stream google.api.HttpBody) returns (stream +-- google.api.HttpBody); } Use of this type only changes how the request and response bodies are handled, all other features will continue to work unchanged. +-- +-- /See:/ 'newHttpBody' smart constructor. +data HttpBody = HttpBody + { -- | The HTTP Content-Type header value specifying the content type of the body. + contentType :: (Core.Maybe Core.Text), + -- | The HTTP request\/response body as raw binary. + data' :: (Core.Maybe Core.Base64), + -- | Application specific response metadata. Must be set in the first response for streaming APIs. + extensions :: (Core.Maybe [HttpBody_ExtensionsItem]) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'HttpBody' with the minimum fields required to make a request. +newHttpBody :: + HttpBody +newHttpBody = + HttpBody + { contentType = Core.Nothing, + data' = Core.Nothing, + extensions = Core.Nothing + } + +instance Core.FromJSON HttpBody where + parseJSON = + Core.withObject + "HttpBody" + ( \o -> + HttpBody + Core.<$> (o Core..:? "contentType") + Core.<*> (o Core..:? "data") + Core.<*> (o Core..:? "extensions") + ) + +instance Core.ToJSON HttpBody where + toJSON HttpBody {..} = + Core.object + ( Core.catMaybes + [ ("contentType" Core..=) Core.<$> contentType, + ("data" Core..=) Core.<$> data', + ("extensions" Core..=) Core.<$> extensions + ] + ) + +-- +-- /See:/ 'newHttpBody_ExtensionsItem' smart constructor. +newtype HttpBody_ExtensionsItem = HttpBody_ExtensionsItem + { -- | Properties of the object. Contains field \@type with type URL. + additional :: (Core.HashMap Core.Text Core.Value) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'HttpBody_ExtensionsItem' with the minimum fields required to make a request. +newHttpBody_ExtensionsItem :: + -- | Properties of the object. Contains field \@type with type URL. See 'additional'. + Core.HashMap Core.Text Core.Value -> + HttpBody_ExtensionsItem +newHttpBody_ExtensionsItem additional = + HttpBody_ExtensionsItem {additional = additional} + +instance Core.FromJSON HttpBody_ExtensionsItem where + parseJSON = + Core.withObject + "HttpBody_ExtensionsItem" + (\o -> HttpBody_ExtensionsItem Core.<$> (Core.parseJSONObject o)) + +instance Core.ToJSON HttpBody_ExtensionsItem where + toJSON HttpBody_ExtensionsItem {..} = Core.toJSON additional + +-- | HTTP request. The task will be pushed to the worker as an HTTP request. If the worker or the redirected worker acknowledges the task by returning a successful HTTP response code ([@200@ - @299@]), the task will be removed from the queue. If any other HTTP response code is returned or no response is received, the task will be retried according to the following: * User-specified throttling: retry configuration, rate limits, and the queue\'s state. * System throttling: To prevent the worker from overloading, Cloud Tasks may temporarily reduce the queue\'s effective rate. User-specified settings will not be changed. System throttling happens because: * Cloud Tasks backs off on all errors. Normally the backoff specified in rate limits will be used. But if the worker returns @429@ (Too Many Requests), @503@ (Service Unavailable), or the rate of errors is high, Cloud Tasks will use a higher backoff rate. The retry specified in the @Retry-After@ HTTP response header is considered. * To prevent traffic spikes and to +-- smooth sudden increases in traffic, dispatches ramp up slowly when the queue is newly created or idle and if large numbers of tasks suddenly become available to dispatch (due to spikes in create task rates, the queue being unpaused, or many tasks that are scheduled at the same time). +-- +-- /See:/ 'newHttpRequest' smart constructor. +data HttpRequest = HttpRequest + { -- | HTTP request body. A request body is allowed only if the HTTP method is POST, PUT, or PATCH. It is an error to set body on a task with an incompatible HttpMethod. + body :: (Core.Maybe Core.Base64), + -- | HTTP request headers. This map contains the header field names and values. Headers can be set when the task is created. These headers represent a subset of the headers that will accompany the task\'s HTTP request. Some HTTP request headers will be ignored or replaced. A partial list of headers that will be ignored or replaced is: * Host: This will be computed by Cloud Tasks and derived from HttpRequest.url. * Content-Length: This will be computed by Cloud Tasks. * User-Agent: This will be set to @\"Google-Cloud-Tasks\"@. * @X-Google-*@: Google use only. * @X-AppEngine-*@: Google use only. @Content-Type@ won\'t be set by Cloud Tasks. You can explicitly set @Content-Type@ to a media type when the task is created. For example, @Content-Type@ can be set to @\"application\/octet-stream\"@ or @\"application\/json\"@. Headers which can have multiple values (according to RFC2616) can be specified using comma-separated values. The size of the headers must be less than 80KB. + headers :: (Core.Maybe HttpRequest_Headers), + -- | The HTTP method to use for the request. The default is POST. + httpMethod :: (Core.Maybe HttpRequest_HttpMethod), + -- | If specified, an will be generated and attached as an @Authorization@ header in the HTTP request. This type of authorization should generally only be used when calling Google APIs hosted on *.googleapis.com. + oauthToken :: (Core.Maybe OAuthToken), + -- | If specified, an token will be generated and attached as an @Authorization@ header in the HTTP request. This type of authorization can be used for many scenarios, including calling Cloud Run, or endpoints where you intend to validate the token yourself. + oidcToken :: (Core.Maybe OidcToken), + -- | Required. The full url path that the request will be sent to. This string must begin with either \"http:\/\/\" or \"https:\/\/\". Some examples are: @http:\/\/acme.com@ and @https:\/\/acme.com\/sales:8080@. Cloud Tasks will encode some characters for safety and compatibility. The maximum allowed URL length is 2083 characters after encoding. The @Location@ header response from a redirect response [@300@ - @399@] may be followed. The redirect is not counted as a separate attempt. + url :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'HttpRequest' with the minimum fields required to make a request. +newHttpRequest :: + HttpRequest +newHttpRequest = + HttpRequest + { body = Core.Nothing, + headers = Core.Nothing, + httpMethod = Core.Nothing, + oauthToken = Core.Nothing, + oidcToken = Core.Nothing, + url = Core.Nothing + } + +instance Core.FromJSON HttpRequest where + parseJSON = + Core.withObject + "HttpRequest" + ( \o -> + HttpRequest + Core.<$> (o Core..:? "body") + Core.<*> (o Core..:? "headers") + Core.<*> (o Core..:? "httpMethod") + Core.<*> (o Core..:? "oauthToken") + Core.<*> (o Core..:? "oidcToken") + Core.<*> (o Core..:? "url") + ) + +instance Core.ToJSON HttpRequest where + toJSON HttpRequest {..} = + Core.object + ( Core.catMaybes + [ ("body" Core..=) Core.<$> body, + ("headers" Core..=) Core.<$> headers, + ("httpMethod" Core..=) Core.<$> httpMethod, + ("oauthToken" Core..=) Core.<$> oauthToken, + ("oidcToken" Core..=) Core.<$> oidcToken, + ("url" Core..=) Core.<$> url + ] + ) + +-- | HTTP request headers. This map contains the header field names and values. Headers can be set when the task is created. These headers represent a subset of the headers that will accompany the task\'s HTTP request. Some HTTP request headers will be ignored or replaced. A partial list of headers that will be ignored or replaced is: * Host: This will be computed by Cloud Tasks and derived from HttpRequest.url. * Content-Length: This will be computed by Cloud Tasks. * User-Agent: This will be set to @\"Google-Cloud-Tasks\"@. * @X-Google-*@: Google use only. * @X-AppEngine-*@: Google use only. @Content-Type@ won\'t be set by Cloud Tasks. You can explicitly set @Content-Type@ to a media type when the task is created. For example, @Content-Type@ can be set to @\"application\/octet-stream\"@ or @\"application\/json\"@. Headers which can have multiple values (according to RFC2616) can be specified using comma-separated values. The size of the headers must be less than 80KB. +-- +-- /See:/ 'newHttpRequest_Headers' smart constructor. +newtype HttpRequest_Headers = HttpRequest_Headers + { additional :: (Core.HashMap Core.Text Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'HttpRequest_Headers' with the minimum fields required to make a request. +newHttpRequest_Headers :: + -- | See 'additional'. + Core.HashMap Core.Text Core.Text -> + HttpRequest_Headers +newHttpRequest_Headers additional = + HttpRequest_Headers {additional = additional} + +instance Core.FromJSON HttpRequest_Headers where + parseJSON = + Core.withObject + "HttpRequest_Headers" + (\o -> HttpRequest_Headers Core.<$> (Core.parseJSONObject o)) + +instance Core.ToJSON HttpRequest_Headers where + toJSON HttpRequest_Headers {..} = Core.toJSON additional + +-- | HTTP target. When specified as a Queue, all the tasks with [HttpRequest] will be overridden according to the target. +-- +-- /See:/ 'newHttpTarget' smart constructor. +data HttpTarget = HttpTarget + { -- | HTTP target headers. This map contains the header field names and values. Headers will be set when running the CreateTask and\/or BufferTask. These headers represent a subset of the headers that will be configured for the task\'s HTTP request. Some HTTP request headers will be ignored or replaced. A partial list of headers that will be ignored or replaced is: * Several predefined headers, prefixed with \"X-CloudTasks-\", can be used to define properties of the task. * Host: This will be computed by Cloud Tasks and derived from HttpRequest.url. * Content-Length: This will be computed by Cloud Tasks. @Content-Type@ won\'t be set by Cloud Tasks. You can explicitly set @Content-Type@ to a media type when the task is created. For example,@Content-Type@ can be set to @\"application\/octet-stream\"@ or @\"application\/json\"@. The default value is set to \"application\/json\"@. * User-Agent: This will be set to@\"Google-Cloud-Tasks\"\`. Headers which can have multiple values (according to RFC2616) can be specified + -- using comma-separated values. The size of the headers must be less than 80KB. Queue-level headers to override headers of all the tasks in the queue. Do not put business sensitive or personally identifying data in the HTTP Header Override Configuration or other similar fields in accordance with Section 12 (Resource Fields) of the . + headerOverrides :: (Core.Maybe [HeaderOverride]), + -- | The HTTP method to use for the request. When specified, it overrides HttpRequest for the task. Note that if the value is set to HttpMethod the HttpRequest of the task will be ignored at execution time. + httpMethod :: (Core.Maybe HttpTarget_HttpMethod), + -- | If specified, an is generated and attached as the @Authorization@ header in the HTTP request. This type of authorization should generally be used only when calling Google APIs hosted on *.googleapis.com. Note that both the service account email and the scope MUST be specified when using the queue-level authorization override. + oauthToken :: (Core.Maybe OAuthToken), + -- | If specified, an token is generated and attached as an @Authorization@ header in the HTTP request. This type of authorization can be used for many scenarios, including calling Cloud Run, or endpoints where you intend to validate the token yourself. Note that both the service account email and the audience MUST be specified when using the queue-level authorization override. + oidcToken :: (Core.Maybe OidcToken), + -- | URI override. When specified, overrides the execution URI for all the tasks in the queue. + uriOverride :: (Core.Maybe UriOverride) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'HttpTarget' with the minimum fields required to make a request. +newHttpTarget :: + HttpTarget +newHttpTarget = + HttpTarget + { headerOverrides = Core.Nothing, + httpMethod = Core.Nothing, + oauthToken = Core.Nothing, + oidcToken = Core.Nothing, + uriOverride = Core.Nothing + } + +instance Core.FromJSON HttpTarget where + parseJSON = + Core.withObject + "HttpTarget" + ( \o -> + HttpTarget + Core.<$> (o Core..:? "headerOverrides") + Core.<*> (o Core..:? "httpMethod") + Core.<*> (o Core..:? "oauthToken") + Core.<*> (o Core..:? "oidcToken") + Core.<*> (o Core..:? "uriOverride") + ) + +instance Core.ToJSON HttpTarget where + toJSON HttpTarget {..} = + Core.object + ( Core.catMaybes + [ ("headerOverrides" Core..=) Core.<$> headerOverrides, + ("httpMethod" Core..=) Core.<$> httpMethod, + ("oauthToken" Core..=) Core.<$> oauthToken, + ("oidcToken" Core..=) Core.<$> oidcToken, + ("uriOverride" Core..=) Core.<$> uriOverride + ] + ) + +-- | The response message for Locations.ListLocations. +-- +-- /See:/ 'newListLocationsResponse' smart constructor. +data ListLocationsResponse = ListLocationsResponse + { -- | A list of locations that matches the specified filter in the request. + locations :: (Core.Maybe [Location]), + -- | The standard List next-page token. + nextPageToken :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ListLocationsResponse' with the minimum fields required to make a request. +newListLocationsResponse :: + ListLocationsResponse +newListLocationsResponse = + ListLocationsResponse + { locations = Core.Nothing, + nextPageToken = Core.Nothing + } + +instance Core.FromJSON ListLocationsResponse where + parseJSON = + Core.withObject + "ListLocationsResponse" + ( \o -> + ListLocationsResponse + Core.<$> (o Core..:? "locations") + Core.<*> (o Core..:? "nextPageToken") + ) + +instance Core.ToJSON ListLocationsResponse where + toJSON ListLocationsResponse {..} = + Core.object + ( Core.catMaybes + [ ("locations" Core..=) Core.<$> locations, + ("nextPageToken" Core..=) Core.<$> nextPageToken + ] + ) + +-- | Response message for ListQueues. +-- +-- /See:/ 'newListQueuesResponse' smart constructor. +data ListQueuesResponse = ListQueuesResponse + { -- | A token to retrieve next page of results. To return the next page of results, call ListQueues with this value as the page/token. If the next/page_token is empty, there are no more results. The page token is valid for only 2 hours. + nextPageToken :: (Core.Maybe Core.Text), + -- | The list of queues. + queues :: (Core.Maybe [Queue]) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ListQueuesResponse' with the minimum fields required to make a request. +newListQueuesResponse :: + ListQueuesResponse +newListQueuesResponse = + ListQueuesResponse + { nextPageToken = Core.Nothing, + queues = Core.Nothing + } + +instance Core.FromJSON ListQueuesResponse where + parseJSON = + Core.withObject + "ListQueuesResponse" + ( \o -> + ListQueuesResponse + Core.<$> (o Core..:? "nextPageToken") + Core.<*> (o Core..:? "queues") + ) + +instance Core.ToJSON ListQueuesResponse where + toJSON ListQueuesResponse {..} = + Core.object + ( Core.catMaybes + [ ("nextPageToken" Core..=) Core.<$> nextPageToken, + ("queues" Core..=) Core.<$> queues + ] + ) + +-- | Response message for listing tasks using ListTasks. +-- +-- /See:/ 'newListTasksResponse' smart constructor. +data ListTasksResponse = ListTasksResponse + { -- | A token to retrieve next page of results. To return the next page of results, call ListTasks with this value as the page/token. If the next/page_token is empty, there are no more results. + nextPageToken :: (Core.Maybe Core.Text), + -- | The list of tasks. + tasks :: (Core.Maybe [Task]) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ListTasksResponse' with the minimum fields required to make a request. +newListTasksResponse :: + ListTasksResponse +newListTasksResponse = + ListTasksResponse + { nextPageToken = Core.Nothing, + tasks = Core.Nothing + } + +instance Core.FromJSON ListTasksResponse where + parseJSON = + Core.withObject + "ListTasksResponse" + ( \o -> + ListTasksResponse + Core.<$> (o Core..:? "nextPageToken") + Core.<*> (o Core..:? "tasks") + ) + +instance Core.ToJSON ListTasksResponse where + toJSON ListTasksResponse {..} = + Core.object + ( Core.catMaybes + [ ("nextPageToken" Core..=) Core.<$> nextPageToken, + ("tasks" Core..=) Core.<$> tasks + ] + ) + +-- | A resource that represents a Google Cloud location. +-- +-- /See:/ 'newLocation' smart constructor. +data Location = Location + { -- | The friendly name for this location, typically a nearby city name. For example, \"Tokyo\". + displayName :: (Core.Maybe Core.Text), + -- | Cross-service attributes for the location. For example {\"cloud.googleapis.com\/region\": \"us-east1\"} + labels :: (Core.Maybe Location_Labels), + -- | The canonical id for this location. For example: @\"us-east1\"@. + locationId :: (Core.Maybe Core.Text), + -- | Service-specific metadata. For example the available capacity at the given location. + metadata :: (Core.Maybe Location_Metadata), + -- | Resource name for the location, which may vary between implementations. For example: @\"projects\/example-project\/locations\/us-east1\"@ + name :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Location' with the minimum fields required to make a request. +newLocation :: + Location +newLocation = + Location + { displayName = Core.Nothing, + labels = Core.Nothing, + locationId = Core.Nothing, + metadata = Core.Nothing, + name = Core.Nothing + } + +instance Core.FromJSON Location where + parseJSON = + Core.withObject + "Location" + ( \o -> + Location + Core.<$> (o Core..:? "displayName") + Core.<*> (o Core..:? "labels") + Core.<*> (o Core..:? "locationId") + Core.<*> (o Core..:? "metadata") + Core.<*> (o Core..:? "name") + ) + +instance Core.ToJSON Location where + toJSON Location {..} = + Core.object + ( Core.catMaybes + [ ("displayName" Core..=) Core.<$> displayName, + ("labels" Core..=) Core.<$> labels, + ("locationId" Core..=) Core.<$> locationId, + ("metadata" Core..=) Core.<$> metadata, + ("name" Core..=) Core.<$> name + ] + ) + +-- | Cross-service attributes for the location. For example {\"cloud.googleapis.com\/region\": \"us-east1\"} +-- +-- /See:/ 'newLocation_Labels' smart constructor. +newtype Location_Labels = Location_Labels + { additional :: (Core.HashMap Core.Text Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Location_Labels' with the minimum fields required to make a request. +newLocation_Labels :: + -- | See 'additional'. + Core.HashMap Core.Text Core.Text -> + Location_Labels +newLocation_Labels additional = + Location_Labels {additional = additional} + +instance Core.FromJSON Location_Labels where + parseJSON = + Core.withObject + "Location_Labels" + (\o -> Location_Labels Core.<$> (Core.parseJSONObject o)) + +instance Core.ToJSON Location_Labels where + toJSON Location_Labels {..} = Core.toJSON additional + +-- | Service-specific metadata. For example the available capacity at the given location. +-- +-- /See:/ 'newLocation_Metadata' smart constructor. +newtype Location_Metadata = Location_Metadata + { -- | Properties of the object. Contains field \@type with type URL. + additional :: (Core.HashMap Core.Text Core.Value) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Location_Metadata' with the minimum fields required to make a request. +newLocation_Metadata :: + -- | Properties of the object. Contains field \@type with type URL. See 'additional'. + Core.HashMap Core.Text Core.Value -> + Location_Metadata +newLocation_Metadata additional = + Location_Metadata {additional = additional} + +instance Core.FromJSON Location_Metadata where + parseJSON = + Core.withObject + "Location_Metadata" + (\o -> Location_Metadata Core.<$> (Core.parseJSONObject o)) + +instance Core.ToJSON Location_Metadata where + toJSON Location_Metadata {..} = Core.toJSON additional + +-- | Contains information needed for generating an . This type of authorization should generally only be used when calling Google APIs hosted on *.googleapis.com. +-- +-- /See:/ 'newOAuthToken' smart constructor. +data OAuthToken = OAuthToken + { -- | OAuth scope to be used for generating OAuth access token. If not specified, \"https:\/\/www.googleapis.com\/auth\/cloud-platform\" will be used. + scope :: (Core.Maybe Core.Text), + -- | to be used for generating OAuth token. The service account must be within the same project as the queue. The caller must have iam.serviceAccounts.actAs permission for the service account. + serviceAccountEmail :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'OAuthToken' with the minimum fields required to make a request. +newOAuthToken :: + OAuthToken +newOAuthToken = + OAuthToken + { scope = Core.Nothing, + serviceAccountEmail = Core.Nothing + } + +instance Core.FromJSON OAuthToken where + parseJSON = + Core.withObject + "OAuthToken" + ( \o -> + OAuthToken + Core.<$> (o Core..:? "scope") + Core.<*> (o Core..:? "serviceAccountEmail") + ) + +instance Core.ToJSON OAuthToken where + toJSON OAuthToken {..} = + Core.object + ( Core.catMaybes + [ ("scope" Core..=) Core.<$> scope, + ("serviceAccountEmail" Core..=) Core.<$> serviceAccountEmail + ] + ) + +-- | Contains information needed for generating an . This type of authorization can be used for many scenarios, including calling Cloud Run, or endpoints where you intend to validate the token yourself. +-- +-- /See:/ 'newOidcToken' smart constructor. +data OidcToken = OidcToken + { -- | Audience to be used when generating OIDC token. If not specified, the URI specified in target will be used. + audience :: (Core.Maybe Core.Text), + -- | to be used for generating OIDC token. The service account must be within the same project as the queue. The caller must have iam.serviceAccounts.actAs permission for the service account. + serviceAccountEmail :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'OidcToken' with the minimum fields required to make a request. +newOidcToken :: + OidcToken +newOidcToken = + OidcToken + { audience = Core.Nothing, + serviceAccountEmail = Core.Nothing + } + +instance Core.FromJSON OidcToken where + parseJSON = + Core.withObject + "OidcToken" + ( \o -> + OidcToken + Core.<$> (o Core..:? "audience") + Core.<*> (o Core..:? "serviceAccountEmail") + ) + +instance Core.ToJSON OidcToken where + toJSON OidcToken {..} = + Core.object + ( Core.catMaybes + [ ("audience" Core..=) Core.<$> audience, + ("serviceAccountEmail" Core..=) Core.<$> serviceAccountEmail + ] + ) + +-- | PathOverride. Path message defines path override for HTTP targets. +-- +-- /See:/ 'newPathOverride' smart constructor. +newtype PathOverride = PathOverride + { -- | The URI path (e.g., \/users\/1234). Default is an empty string. + path :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'PathOverride' with the minimum fields required to make a request. +newPathOverride :: + PathOverride +newPathOverride = PathOverride {path = Core.Nothing} + +instance Core.FromJSON PathOverride where + parseJSON = + Core.withObject + "PathOverride" + (\o -> PathOverride Core.<$> (o Core..:? "path")) + +instance Core.ToJSON PathOverride where + toJSON PathOverride {..} = + Core.object (Core.catMaybes [("path" Core..=) Core.<$> path]) + +-- | Request message for PauseQueue. +-- +-- /See:/ 'newPauseQueueRequest' smart constructor. +data PauseQueueRequest = PauseQueueRequest + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'PauseQueueRequest' with the minimum fields required to make a request. +newPauseQueueRequest :: + PauseQueueRequest +newPauseQueueRequest = PauseQueueRequest + +instance Core.FromJSON PauseQueueRequest where + parseJSON = + Core.withObject + "PauseQueueRequest" + (\o -> Core.pure PauseQueueRequest) + +instance Core.ToJSON PauseQueueRequest where + toJSON = Core.const Core.emptyObject + +-- | An Identity and Access Management (IAM) policy, which specifies access controls for Google Cloud resources. A @Policy@ is a collection of @bindings@. A @binding@ binds one or more @members@, or principals, to a single @role@. Principals can be user accounts, service accounts, Google groups, and domains (such as G Suite). A @role@ is a named list of permissions; each @role@ can be an IAM predefined role or a user-created custom role. For some types of Google Cloud resources, a @binding@ can also specify a @condition@, which is a logical expression that allows access to a resource only if the expression evaluates to @true@. A condition can add constraints based on attributes of the request, the resource, or both. To learn which resources support conditions in their IAM policies, see the . __JSON example:__ +-- @{ \"bindings\": [ { \"role\": \"roles\/resourcemanager.organizationAdmin\", \"members\": [ \"user:mike\@example.com\", \"group:admins\@example.com\", \"domain:google.com\", \"serviceAccount:my-project-id\@appspot.gserviceaccount.com\" ] }, { \"role\": \"roles\/resourcemanager.organizationViewer\", \"members\": [ \"user:eve\@example.com\" ], \"condition\": { \"title\": \"expirable access\", \"description\": \"Does not grant access after Sep 2020\", \"expression\": \"request.time \< timestamp(\'2020-10-01T00:00:00.000Z\')\", } } ], \"etag\": \"BwWWja0YfJA=\", \"version\": 3 }@ __YAML example:__ +-- @bindings: - members: - user:mike\@example.com - group:admins\@example.com - domain:google.com - serviceAccount:my-project-id\@appspot.gserviceaccount.com role: roles\/resourcemanager.organizationAdmin - members: - user:eve\@example.com role: roles\/resourcemanager.organizationViewer condition: title: expirable access description: Does not grant access after Sep 2020 expression: request.time \< timestamp(\'2020-10-01T00:00:00.000Z\') etag: BwWWja0YfJA= version: 3@ For a description of IAM and its features, see the . +-- +-- /See:/ 'newPolicy' smart constructor. +data Policy = Policy + { -- | Associates a list of @members@, or principals, with a @role@. Optionally, may specify a @condition@ that determines how and when the @bindings@ are applied. Each of the @bindings@ must contain at least one principal. The @bindings@ in a @Policy@ can refer to up to 1,500 principals; up to 250 of these principals can be Google groups. Each occurrence of a principal counts towards these limits. For example, if the @bindings@ grant 50 different roles to @user:alice\@example.com@, and not to any other principal, then you can add another 1,450 principals to the @bindings@ in the @Policy@. + bindings :: (Core.Maybe [Binding]), + -- | @etag@ is used for optimistic concurrency control as a way to help prevent simultaneous updates of a policy from overwriting each other. It is strongly suggested that systems make use of the @etag@ in the read-modify-write cycle to perform policy updates in order to avoid race conditions: An @etag@ is returned in the response to @getIamPolicy@, and systems are expected to put that etag in the request to @setIamPolicy@ to ensure that their change will be applied to the same version of the policy. __Important:__ If you use IAM Conditions, you must include the @etag@ field whenever you call @setIamPolicy@. If you omit this field, then IAM allows you to overwrite a version @3@ policy with a version @1@ policy, and all of the conditions in the version @3@ policy are lost. + etag :: (Core.Maybe Core.Base64), + -- | Specifies the format of the policy. Valid values are @0@, @1@, and @3@. Requests that specify an invalid value are rejected. Any operation that affects conditional role bindings must specify version @3@. This requirement applies to the following operations: * Getting a policy that includes a conditional role binding * Adding a conditional role binding to a policy * Changing a conditional role binding in a policy * Removing any role binding, with or without a condition, from a policy that includes conditions __Important:__ If you use IAM Conditions, you must include the @etag@ field whenever you call @setIamPolicy@. If you omit this field, then IAM allows you to overwrite a version @3@ policy with a version @1@ policy, and all of the conditions in the version @3@ policy are lost. If a policy does not include any conditions, operations on that policy may specify any valid version or leave the field unset. To learn which resources support conditions in their IAM policies, see the + -- . + version :: (Core.Maybe Core.Int32) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Policy' with the minimum fields required to make a request. +newPolicy :: + Policy +newPolicy = + Policy + { bindings = Core.Nothing, + etag = Core.Nothing, + version = Core.Nothing + } + +instance Core.FromJSON Policy where + parseJSON = + Core.withObject + "Policy" + ( \o -> + Policy + Core.<$> (o Core..:? "bindings") + Core.<*> (o Core..:? "etag") + Core.<*> (o Core..:? "version") + ) + +instance Core.ToJSON Policy where + toJSON Policy {..} = + Core.object + ( Core.catMaybes + [ ("bindings" Core..=) Core.<$> bindings, + ("etag" Core..=) Core.<$> etag, + ("version" Core..=) Core.<$> version + ] + ) + +-- | Request message for PurgeQueue. +-- +-- /See:/ 'newPurgeQueueRequest' smart constructor. +data PurgeQueueRequest = PurgeQueueRequest + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'PurgeQueueRequest' with the minimum fields required to make a request. +newPurgeQueueRequest :: + PurgeQueueRequest +newPurgeQueueRequest = PurgeQueueRequest + +instance Core.FromJSON PurgeQueueRequest where + parseJSON = + Core.withObject + "PurgeQueueRequest" + (\o -> Core.pure PurgeQueueRequest) + +instance Core.ToJSON PurgeQueueRequest where + toJSON = Core.const Core.emptyObject + +-- | QueryOverride. Query message defines query override for HTTP targets. +-- +-- /See:/ 'newQueryOverride' smart constructor. +newtype QueryOverride = QueryOverride + { -- | The query parameters (e.g., qparam1=123&qparam2=456). Default is an empty string. + queryParams :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'QueryOverride' with the minimum fields required to make a request. +newQueryOverride :: + QueryOverride +newQueryOverride = QueryOverride {queryParams = Core.Nothing} + +instance Core.FromJSON QueryOverride where + parseJSON = + Core.withObject + "QueryOverride" + (\o -> QueryOverride Core.<$> (o Core..:? "queryParams")) + +instance Core.ToJSON QueryOverride where + toJSON QueryOverride {..} = + Core.object + (Core.catMaybes [("queryParams" Core..=) Core.<$> queryParams]) + +-- | A queue is a container of related tasks. Queues are configured to manage how those tasks are dispatched. Configurable properties include rate limits, retry options, queue types, and others. +-- +-- /See:/ 'newQueue' smart constructor. +data Queue = Queue + { -- | Overrides for task-level app/engine/routing. These settings apply only to App Engine tasks in this queue. Http tasks are not affected. If set, @app_engine_routing_override@ is used for all App Engine tasks in the queue, no matter what the setting is for the task-level app/engine/routing. + appEngineRoutingOverride :: (Core.Maybe AppEngineRouting), + -- | Modifies HTTP target for HTTP tasks. + httpTarget :: (Core.Maybe HttpTarget), + -- | Caller-specified and required in CreateQueue, after which it becomes output only. The queue name. The queue name must have the following format: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ * @PROJECT_ID@ can contain letters ([A-Za-z]), numbers ([0-9]), hyphens (-), colons (:), or periods (.). For more information, see * @LOCATION_ID@ is the canonical ID for the queue\'s location. The list of available locations can be obtained by calling ListLocations. For more information, see https:\/\/cloud.google.com\/about\/locations\/. * @QUEUE_ID@ can contain letters ([A-Za-z]), numbers ([0-9]), or hyphens (-). The maximum length is 100 characters. + name :: (Core.Maybe Core.Text), + -- | Output only. The last time this queue was purged. All tasks that were created before this time were purged. A queue can be purged using PurgeQueue, the . Purge time will be truncated to the nearest microsecond. Purge time will be unset if the queue has never been purged. + purgeTime :: (Core.Maybe Core.DateTime), + -- | Rate limits for task dispatches. rate/limits and retry/config are related because they both control task attempts. However they control task attempts in different ways: * rate/limits controls the total rate of dispatches from a queue (i.e. all traffic dispatched from the queue, regardless of whether the dispatch is from a first attempt or a retry). * retry/config controls what happens to particular a task after its first attempt fails. That is, retry/config controls task retries (the second attempt, third attempt, etc). The queue\'s actual dispatch rate is the result of: * Number of tasks in the queue * User-specified throttling: rate/limits, retry_config, and the queue\'s state. * System throttling due to @429@ (Too Many Requests) or @503@ (Service Unavailable) responses from the worker, high error rates, or to smooth sudden large traffic spikes. + rateLimits :: (Core.Maybe RateLimits), + -- | Settings that determine the retry behavior. * For tasks created using Cloud Tasks: the queue-level retry settings apply to all tasks in the queue that were created using Cloud Tasks. Retry settings cannot be set on individual tasks. * For tasks created using the App Engine SDK: the queue-level retry settings apply to all tasks in the queue which do not have retry settings explicitly set on the task and were created by the App Engine SDK. See . + retryConfig :: (Core.Maybe RetryConfig), + -- | Configuration options for writing logs to . If this field is unset, then no logs are written. + stackdriverLoggingConfig :: (Core.Maybe StackdriverLoggingConfig), + -- | Output only. The state of the queue. @state@ can only be changed by calling PauseQueue, ResumeQueue, or uploading . UpdateQueue cannot be used to change @state@. + state :: (Core.Maybe Queue_State) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Queue' with the minimum fields required to make a request. +newQueue :: + Queue +newQueue = + Queue + { appEngineRoutingOverride = Core.Nothing, + httpTarget = Core.Nothing, + name = Core.Nothing, + purgeTime = Core.Nothing, + rateLimits = Core.Nothing, + retryConfig = Core.Nothing, + stackdriverLoggingConfig = Core.Nothing, + state = Core.Nothing + } + +instance Core.FromJSON Queue where + parseJSON = + Core.withObject + "Queue" + ( \o -> + Queue + Core.<$> (o Core..:? "appEngineRoutingOverride") + Core.<*> (o Core..:? "httpTarget") + Core.<*> (o Core..:? "name") + Core.<*> (o Core..:? "purgeTime") + Core.<*> (o Core..:? "rateLimits") + Core.<*> (o Core..:? "retryConfig") + Core.<*> (o Core..:? "stackdriverLoggingConfig") + Core.<*> (o Core..:? "state") + ) + +instance Core.ToJSON Queue where + toJSON Queue {..} = + Core.object + ( Core.catMaybes + [ ("appEngineRoutingOverride" Core..=) + Core.<$> appEngineRoutingOverride, + ("httpTarget" Core..=) Core.<$> httpTarget, + ("name" Core..=) Core.<$> name, + ("purgeTime" Core..=) Core.<$> purgeTime, + ("rateLimits" Core..=) Core.<$> rateLimits, + ("retryConfig" Core..=) Core.<$> retryConfig, + ("stackdriverLoggingConfig" Core..=) + Core.<$> stackdriverLoggingConfig, + ("state" Core..=) Core.<$> state + ] + ) + +-- | Rate limits. This message determines the maximum rate that tasks can be dispatched by a queue, regardless of whether the dispatch is a first task attempt or a retry. Note: The debugging command, RunTask, will run a task even if the queue has reached its RateLimits. +-- +-- /See:/ 'newRateLimits' smart constructor. +data RateLimits = RateLimits + { -- | Output only. The max burst size. Max burst size limits how fast tasks in queue are processed when many tasks are in the queue and the rate is high. This field allows the queue to have a high rate so processing starts shortly after a task is enqueued, but still limits resource usage when many tasks are enqueued in a short period of time. The algorithm is used to control the rate of task dispatches. Each queue has a token bucket that holds tokens, up to the maximum specified by @max_burst_size@. Each time a task is dispatched, a token is removed from the bucket. Tasks will be dispatched until the queue\'s bucket runs out of tokens. The bucket will be continuously refilled with new tokens based on max/dispatches/per/second. Cloud Tasks will pick the value of @max_burst_size@ based on the value of max/dispatches/per/second. For queues that were created or updated using @queue.yaml\/xml@, @max_burst_size@ is equal to + -- . Since @max_burst_size@ is output only, if UpdateQueue is called on a queue created by @queue.yaml\/xml@, @max_burst_size@ will be reset based on the value of max/dispatches/per/second, regardless of whether max/dispatches/per/second is updated. + maxBurstSize :: (Core.Maybe Core.Int32), + -- | The maximum number of concurrent tasks that Cloud Tasks allows to be dispatched for this queue. After this threshold has been reached, Cloud Tasks stops dispatching tasks until the number of concurrent requests decreases. If unspecified when the queue is created, Cloud Tasks will pick the default. The maximum allowed value is 5,000. This field has the same meaning as . + maxConcurrentDispatches :: (Core.Maybe Core.Int32), + -- | The maximum rate at which tasks are dispatched from this queue. If unspecified when the queue is created, Cloud Tasks will pick the default. * The maximum allowed value is 500. This field has the same meaning as . + maxDispatchesPerSecond :: (Core.Maybe Core.Double) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'RateLimits' with the minimum fields required to make a request. +newRateLimits :: + RateLimits +newRateLimits = + RateLimits + { maxBurstSize = Core.Nothing, + maxConcurrentDispatches = Core.Nothing, + maxDispatchesPerSecond = Core.Nothing + } + +instance Core.FromJSON RateLimits where + parseJSON = + Core.withObject + "RateLimits" + ( \o -> + RateLimits + Core.<$> (o Core..:? "maxBurstSize") + Core.<*> (o Core..:? "maxConcurrentDispatches") + Core.<*> (o Core..:? "maxDispatchesPerSecond") + ) + +instance Core.ToJSON RateLimits where + toJSON RateLimits {..} = + Core.object + ( Core.catMaybes + [ ("maxBurstSize" Core..=) Core.<$> maxBurstSize, + ("maxConcurrentDispatches" Core..=) + Core.<$> maxConcurrentDispatches, + ("maxDispatchesPerSecond" Core..=) + Core.<$> maxDispatchesPerSecond + ] + ) + +-- | Request message for ResumeQueue. +-- +-- /See:/ 'newResumeQueueRequest' smart constructor. +data ResumeQueueRequest = ResumeQueueRequest + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'ResumeQueueRequest' with the minimum fields required to make a request. +newResumeQueueRequest :: + ResumeQueueRequest +newResumeQueueRequest = ResumeQueueRequest + +instance Core.FromJSON ResumeQueueRequest where + parseJSON = + Core.withObject + "ResumeQueueRequest" + (\o -> Core.pure ResumeQueueRequest) + +instance Core.ToJSON ResumeQueueRequest where + toJSON = Core.const Core.emptyObject + +-- | Retry config. These settings determine when a failed task attempt is retried. +-- +-- /See:/ 'newRetryConfig' smart constructor. +data RetryConfig = RetryConfig + { -- | Number of attempts per task. Cloud Tasks will attempt the task @max_attempts@ times (that is, if the first attempt fails, then there will be @max_attempts - 1@ retries). Must be >= -1. If unspecified when the queue is created, Cloud Tasks will pick the default. -1 indicates unlimited attempts. This field has the same meaning as . Note: Cloud Tasks stops retrying only when @max_attempts@ and @max_retry_duration@ are both satisfied. When the task has been attempted @max_attempts@ times and when the @max_retry_duration@ time has passed, no further attempts are made, and the task is deleted. If you want your task to retry infinitely, you must set @max_attempts@ to -1 and @max_retry_duration@ to 0. + maxAttempts :: (Core.Maybe Core.Int32), + -- | A task will be scheduled for retry between min/backoff and max/backoff duration after it fails, if the queue\'s RetryConfig specifies that the task should be retried. If unspecified when the queue is created, Cloud Tasks will pick the default. The value must be given as a string that indicates the length of time (in seconds) followed by @s@ (for \"seconds\"). For more information on the format, see the documentation for . @max_backoff@ will be truncated to the nearest second. This field has the same meaning as . + maxBackoff :: (Core.Maybe Core.Duration), + -- | The time between retries will double @max_doublings@ times. A task\'s retry interval starts at min/backoff, then doubles @max_doublings@ times, then increases linearly, and finally retries at intervals of max/backoff up to max/attempts times. For example, if min/backoff is 10s, max/backoff is 300s, and @max_doublings@ is 3, then the a task will first be retried in 10s. The retry interval will double three times, and then increase linearly by 2^3 * 10s. Finally, the task will retry at intervals of max/backoff until the task has been attempted max_attempts times. Thus, the requests will retry at 10s, 20s, 40s, 80s, 160s, 240s, 300s, 300s, .... If unspecified when the queue is created, Cloud Tasks will pick the default. This field has the same meaning as . + maxDoublings :: (Core.Maybe Core.Int32), + -- | If positive, @max_retry_duration@ specifies the time limit for retrying a failed task, measured from when the task was first attempted. Once @max_retry_duration@ time has passed /and/ the task has been attempted max_attempts times, no further attempts will be made and the task will be deleted. If zero, then the task age is unlimited. If unspecified when the queue is created, Cloud Tasks will pick the default. The value must be given as a string that indicates the length of time (in seconds) followed by @s@ (for \"seconds\"). For the maximum possible value or the format, see the documentation for . @max_retry_duration@ will be truncated to the nearest second. This field has the same meaning as . + maxRetryDuration :: (Core.Maybe Core.Duration), + -- | A task will be scheduled for retry between min/backoff and max/backoff duration after it fails, if the queue\'s RetryConfig specifies that the task should be retried. If unspecified when the queue is created, Cloud Tasks will pick the default. The value must be given as a string that indicates the length of time (in seconds) followed by @s@ (for \"seconds\"). For more information on the format, see the documentation for . @min_backoff@ will be truncated to the nearest second. This field has the same meaning as . + minBackoff :: (Core.Maybe Core.Duration) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'RetryConfig' with the minimum fields required to make a request. +newRetryConfig :: + RetryConfig +newRetryConfig = + RetryConfig + { maxAttempts = Core.Nothing, + maxBackoff = Core.Nothing, + maxDoublings = Core.Nothing, + maxRetryDuration = Core.Nothing, + minBackoff = Core.Nothing + } + +instance Core.FromJSON RetryConfig where + parseJSON = + Core.withObject + "RetryConfig" + ( \o -> + RetryConfig + Core.<$> (o Core..:? "maxAttempts") + Core.<*> (o Core..:? "maxBackoff") + Core.<*> (o Core..:? "maxDoublings") + Core.<*> (o Core..:? "maxRetryDuration") + Core.<*> (o Core..:? "minBackoff") + ) + +instance Core.ToJSON RetryConfig where + toJSON RetryConfig {..} = + Core.object + ( Core.catMaybes + [ ("maxAttempts" Core..=) Core.<$> maxAttempts, + ("maxBackoff" Core..=) Core.<$> maxBackoff, + ("maxDoublings" Core..=) Core.<$> maxDoublings, + ("maxRetryDuration" Core..=) Core.<$> maxRetryDuration, + ("minBackoff" Core..=) Core.<$> minBackoff + ] + ) + +-- | Request message for forcing a task to run now using RunTask. +-- +-- /See:/ 'newRunTaskRequest' smart constructor. +newtype RunTaskRequest = RunTaskRequest + { -- | The response/view specifies which subset of the Task will be returned. By default response/view is BASIC; not all information is retrieved by default because some data, such as payloads, might be desirable to return only when needed because of its large size or because of the sensitivity of data that it contains. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Task resource. + responseView :: (Core.Maybe RunTaskRequest_ResponseView) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'RunTaskRequest' with the minimum fields required to make a request. +newRunTaskRequest :: + RunTaskRequest +newRunTaskRequest = RunTaskRequest {responseView = Core.Nothing} + +instance Core.FromJSON RunTaskRequest where + parseJSON = + Core.withObject + "RunTaskRequest" + (\o -> RunTaskRequest Core.<$> (o Core..:? "responseView")) + +instance Core.ToJSON RunTaskRequest where + toJSON RunTaskRequest {..} = + Core.object + (Core.catMaybes [("responseView" Core..=) Core.<$> responseView]) + +-- | Request message for @SetIamPolicy@ method. +-- +-- /See:/ 'newSetIamPolicyRequest' smart constructor. +newtype SetIamPolicyRequest = SetIamPolicyRequest + { -- | REQUIRED: The complete policy to be applied to the @resource@. The size of the policy is limited to a few 10s of KB. An empty policy is a valid policy but certain Google Cloud services (such as Projects) might reject them. + policy :: (Core.Maybe Policy) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'SetIamPolicyRequest' with the minimum fields required to make a request. +newSetIamPolicyRequest :: + SetIamPolicyRequest +newSetIamPolicyRequest = SetIamPolicyRequest {policy = Core.Nothing} + +instance Core.FromJSON SetIamPolicyRequest where + parseJSON = + Core.withObject + "SetIamPolicyRequest" + (\o -> SetIamPolicyRequest Core.<$> (o Core..:? "policy")) + +instance Core.ToJSON SetIamPolicyRequest where + toJSON SetIamPolicyRequest {..} = + Core.object (Core.catMaybes [("policy" Core..=) Core.<$> policy]) + +-- | Configuration options for writing logs to . +-- +-- /See:/ 'newStackdriverLoggingConfig' smart constructor. +newtype StackdriverLoggingConfig = StackdriverLoggingConfig + { -- | Specifies the fraction of operations to write to . This field may contain any value between 0.0 and 1.0, inclusive. 0.0 is the default and means that no operations are logged. + samplingRatio :: (Core.Maybe Core.Double) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'StackdriverLoggingConfig' with the minimum fields required to make a request. +newStackdriverLoggingConfig :: + StackdriverLoggingConfig +newStackdriverLoggingConfig = + StackdriverLoggingConfig {samplingRatio = Core.Nothing} + +instance Core.FromJSON StackdriverLoggingConfig where + parseJSON = + Core.withObject + "StackdriverLoggingConfig" + ( \o -> + StackdriverLoggingConfig Core.<$> (o Core..:? "samplingRatio") + ) + +instance Core.ToJSON StackdriverLoggingConfig where + toJSON StackdriverLoggingConfig {..} = + Core.object + (Core.catMaybes [("samplingRatio" Core..=) Core.<$> samplingRatio]) + +-- | The @Status@ type defines a logical error model that is suitable for different programming environments, including REST APIs and RPC APIs. It is used by . Each @Status@ message contains three pieces of data: error code, error message, and error details. You can find out more about this error model and how to work with it in the . +-- +-- /See:/ 'newStatus' smart constructor. +data Status = Status + { -- | The status code, which should be an enum value of google.rpc.Code. + code :: (Core.Maybe Core.Int32), + -- | A list of messages that carry the error details. There is a common set of message types for APIs to use. + details :: (Core.Maybe [Status_DetailsItem]), + -- | A developer-facing error message, which should be in English. Any user-facing error message should be localized and sent in the google.rpc.Status.details field, or localized by the client. + message :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Status' with the minimum fields required to make a request. +newStatus :: + Status +newStatus = + Status + { code = Core.Nothing, + details = Core.Nothing, + message = Core.Nothing + } + +instance Core.FromJSON Status where + parseJSON = + Core.withObject + "Status" + ( \o -> + Status + Core.<$> (o Core..:? "code") + Core.<*> (o Core..:? "details") + Core.<*> (o Core..:? "message") + ) + +instance Core.ToJSON Status where + toJSON Status {..} = + Core.object + ( Core.catMaybes + [ ("code" Core..=) Core.<$> code, + ("details" Core..=) Core.<$> details, + ("message" Core..=) Core.<$> message + ] + ) + +-- +-- /See:/ 'newStatus_DetailsItem' smart constructor. +newtype Status_DetailsItem = Status_DetailsItem + { -- | Properties of the object. Contains field \@type with type URL. + additional :: (Core.HashMap Core.Text Core.Value) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Status_DetailsItem' with the minimum fields required to make a request. +newStatus_DetailsItem :: + -- | Properties of the object. Contains field \@type with type URL. See 'additional'. + Core.HashMap Core.Text Core.Value -> + Status_DetailsItem +newStatus_DetailsItem additional = + Status_DetailsItem {additional = additional} + +instance Core.FromJSON Status_DetailsItem where + parseJSON = + Core.withObject + "Status_DetailsItem" + (\o -> Status_DetailsItem Core.<$> (Core.parseJSONObject o)) + +instance Core.ToJSON Status_DetailsItem where + toJSON Status_DetailsItem {..} = Core.toJSON additional + +-- | A unit of scheduled work. +-- +-- /See:/ 'newTask' smart constructor. +data Task = Task + { -- | HTTP request that is sent to the App Engine app handler. An App Engine task is a task that has AppEngineHttpRequest set. + appEngineHttpRequest :: (Core.Maybe AppEngineHttpRequest), + -- | Output only. The time that the task was created. @create_time@ will be truncated to the nearest second. + createTime :: (Core.Maybe Core.DateTime), + -- | Output only. The number of attempts dispatched. This count includes attempts which have been dispatched but haven\'t received a response. + dispatchCount :: (Core.Maybe Core.Int32), + -- | The deadline for requests sent to the worker. If the worker does not respond by this deadline then the request is cancelled and the attempt is marked as a @DEADLINE_EXCEEDED@ failure. Cloud Tasks will retry the task according to the RetryConfig. Note that when the request is cancelled, Cloud Tasks will stop listening for the response, but whether the worker stops processing depends on the worker. For example, if the worker is stuck, it may not react to cancelled requests. The default and maximum values depend on the type of request: * For HTTP tasks, the default is 10 minutes. The deadline must be in the interval [15 seconds, 30 minutes]. * For App Engine tasks, 0 indicates that the request has the default deadline. The default deadline depends on the of the service: 10 minutes for standard apps with automatic scaling, 24 hours for standard apps with manual and basic scaling, and 60 minutes for flex + -- apps. If the request deadline is set, it must be in the interval [15 seconds, 24 hours 15 seconds]. Regardless of the task\'s @dispatch_deadline@, the app handler will not run for longer than than the service\'s timeout. We recommend setting the @dispatch_deadline@ to at most a few seconds more than the app handler\'s timeout. For more information see . The value must be given as a string that indicates the length of time (in seconds) followed by @s@ (for \"seconds\"). For more information on the format, see the documentation for . @dispatch_deadline@ will be truncated to the nearest millisecond. The deadline is an approximate deadline. + dispatchDeadline :: (Core.Maybe Core.Duration), + -- | Output only. The status of the task\'s first attempt. Only dispatch_time will be set. The other Attempt information is not retained by Cloud Tasks. + firstAttempt :: (Core.Maybe Attempt), + -- | HTTP request that is sent to the worker. An HTTP task is a task that has HttpRequest set. + httpRequest :: (Core.Maybe HttpRequest), + -- | Output only. The status of the task\'s last attempt. + lastAttempt :: (Core.Maybe Attempt), + -- | Optionally caller-specified in CreateTask. The task name. The task name must have the following format: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID@ * @PROJECT_ID@ can contain letters ([A-Za-z]), numbers ([0-9]), hyphens (-), colons (:), or periods (.). For more information, see * @LOCATION_ID@ is the canonical ID for the task\'s location. The list of available locations can be obtained by calling ListLocations. For more information, see https:\/\/cloud.google.com\/about\/locations\/. * @QUEUE_ID@ can contain letters ([A-Za-z]), numbers ([0-9]), or hyphens (-). The maximum length is 100 characters. * @TASK_ID@ can contain only letters ([A-Za-z]), numbers ([0-9]), hyphens (-), or underscores (_). The maximum length is 500 characters. + name :: (Core.Maybe Core.Text), + -- | Output only. The number of attempts which have received a response. + responseCount :: (Core.Maybe Core.Int32), + -- | The time when the task is scheduled to be attempted or retried. @schedule_time@ will be truncated to the nearest microsecond. + scheduleTime :: (Core.Maybe Core.DateTime), + -- | Output only. The view specifies which subset of the Task has been returned. + view :: (Core.Maybe Task_View) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'Task' with the minimum fields required to make a request. +newTask :: + Task +newTask = + Task + { appEngineHttpRequest = Core.Nothing, + createTime = Core.Nothing, + dispatchCount = Core.Nothing, + dispatchDeadline = Core.Nothing, + firstAttempt = Core.Nothing, + httpRequest = Core.Nothing, + lastAttempt = Core.Nothing, + name = Core.Nothing, + responseCount = Core.Nothing, + scheduleTime = Core.Nothing, + view = Core.Nothing + } + +instance Core.FromJSON Task where + parseJSON = + Core.withObject + "Task" + ( \o -> + Task + Core.<$> (o Core..:? "appEngineHttpRequest") + Core.<*> (o Core..:? "createTime") + Core.<*> (o Core..:? "dispatchCount") + Core.<*> (o Core..:? "dispatchDeadline") + Core.<*> (o Core..:? "firstAttempt") + Core.<*> (o Core..:? "httpRequest") + Core.<*> (o Core..:? "lastAttempt") + Core.<*> (o Core..:? "name") + Core.<*> (o Core..:? "responseCount") + Core.<*> (o Core..:? "scheduleTime") + Core.<*> (o Core..:? "view") + ) + +instance Core.ToJSON Task where + toJSON Task {..} = + Core.object + ( Core.catMaybes + [ ("appEngineHttpRequest" Core..=) Core.<$> appEngineHttpRequest, + ("createTime" Core..=) Core.<$> createTime, + ("dispatchCount" Core..=) Core.<$> dispatchCount, + ("dispatchDeadline" Core..=) Core.<$> dispatchDeadline, + ("firstAttempt" Core..=) Core.<$> firstAttempt, + ("httpRequest" Core..=) Core.<$> httpRequest, + ("lastAttempt" Core..=) Core.<$> lastAttempt, + ("name" Core..=) Core.<$> name, + ("responseCount" Core..=) Core.<$> responseCount, + ("scheduleTime" Core..=) Core.<$> scheduleTime, + ("view" Core..=) Core.<$> view + ] + ) + +-- | Request message for @TestIamPermissions@ method. +-- +-- /See:/ 'newTestIamPermissionsRequest' smart constructor. +newtype TestIamPermissionsRequest = TestIamPermissionsRequest + { -- | The set of permissions to check for the @resource@. Permissions with wildcards (such as @*@ or @storage.*@) are not allowed. For more information see . + permissions :: (Core.Maybe [Core.Text]) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'TestIamPermissionsRequest' with the minimum fields required to make a request. +newTestIamPermissionsRequest :: + TestIamPermissionsRequest +newTestIamPermissionsRequest = + TestIamPermissionsRequest {permissions = Core.Nothing} + +instance Core.FromJSON TestIamPermissionsRequest where + parseJSON = + Core.withObject + "TestIamPermissionsRequest" + ( \o -> + TestIamPermissionsRequest Core.<$> (o Core..:? "permissions") + ) + +instance Core.ToJSON TestIamPermissionsRequest where + toJSON TestIamPermissionsRequest {..} = + Core.object + (Core.catMaybes [("permissions" Core..=) Core.<$> permissions]) + +-- | Response message for @TestIamPermissions@ method. +-- +-- /See:/ 'newTestIamPermissionsResponse' smart constructor. +newtype TestIamPermissionsResponse = TestIamPermissionsResponse + { -- | A subset of @TestPermissionsRequest.permissions@ that the caller is allowed. + permissions :: (Core.Maybe [Core.Text]) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'TestIamPermissionsResponse' with the minimum fields required to make a request. +newTestIamPermissionsResponse :: + TestIamPermissionsResponse +newTestIamPermissionsResponse = + TestIamPermissionsResponse {permissions = Core.Nothing} + +instance Core.FromJSON TestIamPermissionsResponse where + parseJSON = + Core.withObject + "TestIamPermissionsResponse" + ( \o -> + TestIamPermissionsResponse Core.<$> (o Core..:? "permissions") + ) + +instance Core.ToJSON TestIamPermissionsResponse where + toJSON TestIamPermissionsResponse {..} = + Core.object + (Core.catMaybes [("permissions" Core..=) Core.<$> permissions]) + +-- | URI Override. When specified, all the HTTP tasks inside the queue will be partially or fully overridden depending on the configured values. +-- +-- /See:/ 'newUriOverride' smart constructor. +data UriOverride = UriOverride + { -- | Host override. When specified, replaces the host part of the task URL. For example, if the task URL is \"https:\/\/www.google.com,\" and host value is set to \"example.net\", the overridden URI will be changed to \"https:\/\/example.net.\" Host value cannot be an empty string (INVALID_ARGUMENT). + host :: (Core.Maybe Core.Text), + -- | URI path. When specified, replaces the existing path of the task URL. Setting the path value to an empty string clears the URI path segment. + pathOverride :: (Core.Maybe PathOverride), + -- | Port override. When specified, replaces the port part of the task URI. For instance, for a URI http:\/\/www.google.com\/foo and port=123, the overridden URI becomes http:\/\/www.google.com:123\/foo. Note that the port value must be a positive integer. Setting the port to 0 (Zero) clears the URI port. + port :: (Core.Maybe Core.Int64), + -- | URI query. When specified, replaces the query part of the task URI. Setting the query value to an empty string clears the URI query segment. + queryOverride :: (Core.Maybe QueryOverride), + -- | Scheme override. When specified, the task URI scheme is replaced by the provided value (HTTP or HTTPS). + scheme :: (Core.Maybe UriOverride_Scheme), + -- | URI Override Enforce Mode When specified, determines the Target UriOverride mode. If not specified, it defaults to ALWAYS. + uriOverrideEnforceMode :: (Core.Maybe UriOverride_UriOverrideEnforceMode) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'UriOverride' with the minimum fields required to make a request. +newUriOverride :: + UriOverride +newUriOverride = + UriOverride + { host = Core.Nothing, + pathOverride = Core.Nothing, + port = Core.Nothing, + queryOverride = Core.Nothing, + scheme = Core.Nothing, + uriOverrideEnforceMode = Core.Nothing + } + +instance Core.FromJSON UriOverride where + parseJSON = + Core.withObject + "UriOverride" + ( \o -> + UriOverride + Core.<$> (o Core..:? "host") + Core.<*> (o Core..:? "pathOverride") + Core.<*> (o Core..:? "port" Core.<&> Core.fmap Core.fromAsText) + Core.<*> (o Core..:? "queryOverride") + Core.<*> (o Core..:? "scheme") + Core.<*> (o Core..:? "uriOverrideEnforceMode") + ) + +instance Core.ToJSON UriOverride where + toJSON UriOverride {..} = + Core.object + ( Core.catMaybes + [ ("host" Core..=) Core.<$> host, + ("pathOverride" Core..=) Core.<$> pathOverride, + ("port" Core..=) Core.. Core.AsText Core.<$> port, + ("queryOverride" Core..=) Core.<$> queryOverride, + ("scheme" Core..=) Core.<$> scheme, + ("uriOverrideEnforceMode" Core..=) + Core.<$> uriOverrideEnforceMode + ] + ) diff --git a/gen/Gogol/CloudTasks/Internal/Sum.hs b/gen/Gogol/CloudTasks/Internal/Sum.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Internal/Sum.hs @@ -0,0 +1,599 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Internal.Sum +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Gogol.CloudTasks.Internal.Sum + ( -- * Xgafv + Xgafv + ( Xgafv_1, + Xgafv_2, + .. + ), + + -- * AppEngineHttpRequest_HttpMethod + AppEngineHttpRequest_HttpMethod + ( AppEngineHttpRequest_HttpMethod_HTTPMETHODUNSPECIFIED, + AppEngineHttpRequest_HttpMethod_Post', + AppEngineHttpRequest_HttpMethod_Get', + AppEngineHttpRequest_HttpMethod_Head', + AppEngineHttpRequest_HttpMethod_Put', + AppEngineHttpRequest_HttpMethod_Delete', + AppEngineHttpRequest_HttpMethod_Patch', + AppEngineHttpRequest_HttpMethod_Options, + .. + ), + + -- * CreateTaskRequest_ResponseView + CreateTaskRequest_ResponseView + ( CreateTaskRequest_ResponseView_VIEWUNSPECIFIED, + CreateTaskRequest_ResponseView_Basic, + CreateTaskRequest_ResponseView_Full, + .. + ), + + -- * HttpRequest_HttpMethod + HttpRequest_HttpMethod + ( HttpRequest_HttpMethod_HTTPMETHODUNSPECIFIED, + HttpRequest_HttpMethod_Post', + HttpRequest_HttpMethod_Get', + HttpRequest_HttpMethod_Head', + HttpRequest_HttpMethod_Put', + HttpRequest_HttpMethod_Delete', + HttpRequest_HttpMethod_Patch', + HttpRequest_HttpMethod_Options, + .. + ), + + -- * HttpTarget_HttpMethod + HttpTarget_HttpMethod + ( HttpTarget_HttpMethod_HTTPMETHODUNSPECIFIED, + HttpTarget_HttpMethod_Post', + HttpTarget_HttpMethod_Get', + HttpTarget_HttpMethod_Head', + HttpTarget_HttpMethod_Put', + HttpTarget_HttpMethod_Delete', + HttpTarget_HttpMethod_Patch', + HttpTarget_HttpMethod_Options, + .. + ), + + -- * Queue_State + Queue_State + ( Queue_State_STATEUNSPECIFIED, + Queue_State_Running, + Queue_State_Paused, + Queue_State_Disabled, + .. + ), + + -- * RunTaskRequest_ResponseView + RunTaskRequest_ResponseView + ( RunTaskRequest_ResponseView_VIEWUNSPECIFIED, + RunTaskRequest_ResponseView_Basic, + RunTaskRequest_ResponseView_Full, + .. + ), + + -- * Task_View + Task_View + ( Task_View_VIEWUNSPECIFIED, + Task_View_Basic, + Task_View_Full, + .. + ), + + -- * UriOverride_Scheme + UriOverride_Scheme + ( UriOverride_Scheme_SCHEMEUNSPECIFIED, + UriOverride_Scheme_Http, + UriOverride_Scheme_Https, + .. + ), + + -- * UriOverride_UriOverrideEnforceMode + UriOverride_UriOverrideEnforceMode + ( UriOverride_UriOverrideEnforceMode_URIOVERRIDEENFORCEMODEUNSPECIFIED, + UriOverride_UriOverrideEnforceMode_IFNOTEXISTS, + UriOverride_UriOverrideEnforceMode_Always, + .. + ), + + -- * ProjectsLocationsQueuesTasksGetResponseView + ProjectsLocationsQueuesTasksGetResponseView + ( ProjectsLocationsQueuesTasksGetResponseView_VIEWUNSPECIFIED, + ProjectsLocationsQueuesTasksGetResponseView_Basic, + ProjectsLocationsQueuesTasksGetResponseView_Full, + .. + ), + + -- * ProjectsLocationsQueuesTasksListResponseView + ProjectsLocationsQueuesTasksListResponseView + ( ProjectsLocationsQueuesTasksListResponseView_VIEWUNSPECIFIED, + ProjectsLocationsQueuesTasksListResponseView_Basic, + ProjectsLocationsQueuesTasksListResponseView_Full, + .. + ), + ) +where + +import Gogol.Prelude qualified as Core + +-- | V1 error format. +newtype Xgafv = Xgafv {fromXgafv :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | v1 error format +pattern Xgafv_1 :: Xgafv +pattern Xgafv_1 = Xgafv "1" + +-- | v2 error format +pattern Xgafv_2 :: Xgafv +pattern Xgafv_2 = Xgafv "2" + +{-# COMPLETE + Xgafv_1, + Xgafv_2, + Xgafv + #-} + +-- | The HTTP method to use for the request. The default is POST. The app\'s request handler for the task\'s target URL must be able to handle HTTP requests with this http_method, otherwise the task attempt fails with error code 405 (Method Not Allowed). See and the App Engine documentation for your runtime on . +newtype AppEngineHttpRequest_HttpMethod = AppEngineHttpRequest_HttpMethod {fromAppEngineHttpRequest_HttpMethod :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | HTTP method unspecified +pattern AppEngineHttpRequest_HttpMethod_HTTPMETHODUNSPECIFIED :: AppEngineHttpRequest_HttpMethod +pattern AppEngineHttpRequest_HttpMethod_HTTPMETHODUNSPECIFIED = AppEngineHttpRequest_HttpMethod "HTTP_METHOD_UNSPECIFIED" + +-- | HTTP POST +pattern AppEngineHttpRequest_HttpMethod_Post' :: AppEngineHttpRequest_HttpMethod +pattern AppEngineHttpRequest_HttpMethod_Post' = AppEngineHttpRequest_HttpMethod "POST" + +-- | HTTP GET +pattern AppEngineHttpRequest_HttpMethod_Get' :: AppEngineHttpRequest_HttpMethod +pattern AppEngineHttpRequest_HttpMethod_Get' = AppEngineHttpRequest_HttpMethod "GET" + +-- | HTTP HEAD +pattern AppEngineHttpRequest_HttpMethod_Head' :: AppEngineHttpRequest_HttpMethod +pattern AppEngineHttpRequest_HttpMethod_Head' = AppEngineHttpRequest_HttpMethod "HEAD" + +-- | HTTP PUT +pattern AppEngineHttpRequest_HttpMethod_Put' :: AppEngineHttpRequest_HttpMethod +pattern AppEngineHttpRequest_HttpMethod_Put' = AppEngineHttpRequest_HttpMethod "PUT" + +-- | HTTP DELETE +pattern AppEngineHttpRequest_HttpMethod_Delete' :: AppEngineHttpRequest_HttpMethod +pattern AppEngineHttpRequest_HttpMethod_Delete' = AppEngineHttpRequest_HttpMethod "DELETE" + +-- | HTTP PATCH +pattern AppEngineHttpRequest_HttpMethod_Patch' :: AppEngineHttpRequest_HttpMethod +pattern AppEngineHttpRequest_HttpMethod_Patch' = AppEngineHttpRequest_HttpMethod "PATCH" + +-- | HTTP OPTIONS +pattern AppEngineHttpRequest_HttpMethod_Options :: AppEngineHttpRequest_HttpMethod +pattern AppEngineHttpRequest_HttpMethod_Options = AppEngineHttpRequest_HttpMethod "OPTIONS" + +{-# COMPLETE + AppEngineHttpRequest_HttpMethod_HTTPMETHODUNSPECIFIED, + AppEngineHttpRequest_HttpMethod_Post', + AppEngineHttpRequest_HttpMethod_Get', + AppEngineHttpRequest_HttpMethod_Head', + AppEngineHttpRequest_HttpMethod_Put', + AppEngineHttpRequest_HttpMethod_Delete', + AppEngineHttpRequest_HttpMethod_Patch', + AppEngineHttpRequest_HttpMethod_Options, + AppEngineHttpRequest_HttpMethod + #-} + +-- | The response/view specifies which subset of the Task will be returned. By default response/view is BASIC; not all information is retrieved by default because some data, such as payloads, might be desirable to return only when needed because of its large size or because of the sensitivity of data that it contains. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Task resource. +newtype CreateTaskRequest_ResponseView = CreateTaskRequest_ResponseView {fromCreateTaskRequest_ResponseView :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Unspecified. Defaults to BASIC. +pattern CreateTaskRequest_ResponseView_VIEWUNSPECIFIED :: CreateTaskRequest_ResponseView +pattern CreateTaskRequest_ResponseView_VIEWUNSPECIFIED = CreateTaskRequest_ResponseView "VIEW_UNSPECIFIED" + +-- | The basic view omits fields which can be large or can contain sensitive data. This view does not include the body in AppEngineHttpRequest. Bodies are desirable to return only when needed, because they can be large and because of the sensitivity of the data that you choose to store in it. +pattern CreateTaskRequest_ResponseView_Basic :: CreateTaskRequest_ResponseView +pattern CreateTaskRequest_ResponseView_Basic = CreateTaskRequest_ResponseView "BASIC" + +-- | All information is returned. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Queue resource. +pattern CreateTaskRequest_ResponseView_Full :: CreateTaskRequest_ResponseView +pattern CreateTaskRequest_ResponseView_Full = CreateTaskRequest_ResponseView "FULL" + +{-# COMPLETE + CreateTaskRequest_ResponseView_VIEWUNSPECIFIED, + CreateTaskRequest_ResponseView_Basic, + CreateTaskRequest_ResponseView_Full, + CreateTaskRequest_ResponseView + #-} + +-- | The HTTP method to use for the request. The default is POST. +newtype HttpRequest_HttpMethod = HttpRequest_HttpMethod {fromHttpRequest_HttpMethod :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | HTTP method unspecified +pattern HttpRequest_HttpMethod_HTTPMETHODUNSPECIFIED :: HttpRequest_HttpMethod +pattern HttpRequest_HttpMethod_HTTPMETHODUNSPECIFIED = HttpRequest_HttpMethod "HTTP_METHOD_UNSPECIFIED" + +-- | HTTP POST +pattern HttpRequest_HttpMethod_Post' :: HttpRequest_HttpMethod +pattern HttpRequest_HttpMethod_Post' = HttpRequest_HttpMethod "POST" + +-- | HTTP GET +pattern HttpRequest_HttpMethod_Get' :: HttpRequest_HttpMethod +pattern HttpRequest_HttpMethod_Get' = HttpRequest_HttpMethod "GET" + +-- | HTTP HEAD +pattern HttpRequest_HttpMethod_Head' :: HttpRequest_HttpMethod +pattern HttpRequest_HttpMethod_Head' = HttpRequest_HttpMethod "HEAD" + +-- | HTTP PUT +pattern HttpRequest_HttpMethod_Put' :: HttpRequest_HttpMethod +pattern HttpRequest_HttpMethod_Put' = HttpRequest_HttpMethod "PUT" + +-- | HTTP DELETE +pattern HttpRequest_HttpMethod_Delete' :: HttpRequest_HttpMethod +pattern HttpRequest_HttpMethod_Delete' = HttpRequest_HttpMethod "DELETE" + +-- | HTTP PATCH +pattern HttpRequest_HttpMethod_Patch' :: HttpRequest_HttpMethod +pattern HttpRequest_HttpMethod_Patch' = HttpRequest_HttpMethod "PATCH" + +-- | HTTP OPTIONS +pattern HttpRequest_HttpMethod_Options :: HttpRequest_HttpMethod +pattern HttpRequest_HttpMethod_Options = HttpRequest_HttpMethod "OPTIONS" + +{-# COMPLETE + HttpRequest_HttpMethod_HTTPMETHODUNSPECIFIED, + HttpRequest_HttpMethod_Post', + HttpRequest_HttpMethod_Get', + HttpRequest_HttpMethod_Head', + HttpRequest_HttpMethod_Put', + HttpRequest_HttpMethod_Delete', + HttpRequest_HttpMethod_Patch', + HttpRequest_HttpMethod_Options, + HttpRequest_HttpMethod + #-} + +-- | The HTTP method to use for the request. When specified, it overrides HttpRequest for the task. Note that if the value is set to HttpMethod the HttpRequest of the task will be ignored at execution time. +newtype HttpTarget_HttpMethod = HttpTarget_HttpMethod {fromHttpTarget_HttpMethod :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | HTTP method unspecified +pattern HttpTarget_HttpMethod_HTTPMETHODUNSPECIFIED :: HttpTarget_HttpMethod +pattern HttpTarget_HttpMethod_HTTPMETHODUNSPECIFIED = HttpTarget_HttpMethod "HTTP_METHOD_UNSPECIFIED" + +-- | HTTP POST +pattern HttpTarget_HttpMethod_Post' :: HttpTarget_HttpMethod +pattern HttpTarget_HttpMethod_Post' = HttpTarget_HttpMethod "POST" + +-- | HTTP GET +pattern HttpTarget_HttpMethod_Get' :: HttpTarget_HttpMethod +pattern HttpTarget_HttpMethod_Get' = HttpTarget_HttpMethod "GET" + +-- | HTTP HEAD +pattern HttpTarget_HttpMethod_Head' :: HttpTarget_HttpMethod +pattern HttpTarget_HttpMethod_Head' = HttpTarget_HttpMethod "HEAD" + +-- | HTTP PUT +pattern HttpTarget_HttpMethod_Put' :: HttpTarget_HttpMethod +pattern HttpTarget_HttpMethod_Put' = HttpTarget_HttpMethod "PUT" + +-- | HTTP DELETE +pattern HttpTarget_HttpMethod_Delete' :: HttpTarget_HttpMethod +pattern HttpTarget_HttpMethod_Delete' = HttpTarget_HttpMethod "DELETE" + +-- | HTTP PATCH +pattern HttpTarget_HttpMethod_Patch' :: HttpTarget_HttpMethod +pattern HttpTarget_HttpMethod_Patch' = HttpTarget_HttpMethod "PATCH" + +-- | HTTP OPTIONS +pattern HttpTarget_HttpMethod_Options :: HttpTarget_HttpMethod +pattern HttpTarget_HttpMethod_Options = HttpTarget_HttpMethod "OPTIONS" + +{-# COMPLETE + HttpTarget_HttpMethod_HTTPMETHODUNSPECIFIED, + HttpTarget_HttpMethod_Post', + HttpTarget_HttpMethod_Get', + HttpTarget_HttpMethod_Head', + HttpTarget_HttpMethod_Put', + HttpTarget_HttpMethod_Delete', + HttpTarget_HttpMethod_Patch', + HttpTarget_HttpMethod_Options, + HttpTarget_HttpMethod + #-} + +-- | Output only. The state of the queue. @state@ can only be changed by calling PauseQueue, ResumeQueue, or uploading . UpdateQueue cannot be used to change @state@. +newtype Queue_State = Queue_State {fromQueue_State :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Unspecified state. +pattern Queue_State_STATEUNSPECIFIED :: Queue_State +pattern Queue_State_STATEUNSPECIFIED = Queue_State "STATE_UNSPECIFIED" + +-- | The queue is running. Tasks can be dispatched. If the queue was created using Cloud Tasks and the queue has had no activity (method calls or task dispatches) for 30 days, the queue may take a few minutes to re-activate. Some method calls may return NOT_FOUND and tasks may not be dispatched for a few minutes until the queue has been re-activated. +pattern Queue_State_Running :: Queue_State +pattern Queue_State_Running = Queue_State "RUNNING" + +-- | Tasks are paused by the user. If the queue is paused then Cloud Tasks will stop delivering tasks from it, but more tasks can still be added to it by the user. +pattern Queue_State_Paused :: Queue_State +pattern Queue_State_Paused = Queue_State "PAUSED" + +-- | The queue is disabled. A queue becomes @DISABLED@ when or is uploaded which does not contain the queue. You cannot directly disable a queue. When a queue is disabled, tasks can still be added to a queue but the tasks are not dispatched. To permanently delete this queue and all of its tasks, call DeleteQueue. +pattern Queue_State_Disabled :: Queue_State +pattern Queue_State_Disabled = Queue_State "DISABLED" + +{-# COMPLETE + Queue_State_STATEUNSPECIFIED, + Queue_State_Running, + Queue_State_Paused, + Queue_State_Disabled, + Queue_State + #-} + +-- | The response/view specifies which subset of the Task will be returned. By default response/view is BASIC; not all information is retrieved by default because some data, such as payloads, might be desirable to return only when needed because of its large size or because of the sensitivity of data that it contains. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Task resource. +newtype RunTaskRequest_ResponseView = RunTaskRequest_ResponseView {fromRunTaskRequest_ResponseView :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Unspecified. Defaults to BASIC. +pattern RunTaskRequest_ResponseView_VIEWUNSPECIFIED :: RunTaskRequest_ResponseView +pattern RunTaskRequest_ResponseView_VIEWUNSPECIFIED = RunTaskRequest_ResponseView "VIEW_UNSPECIFIED" + +-- | The basic view omits fields which can be large or can contain sensitive data. This view does not include the body in AppEngineHttpRequest. Bodies are desirable to return only when needed, because they can be large and because of the sensitivity of the data that you choose to store in it. +pattern RunTaskRequest_ResponseView_Basic :: RunTaskRequest_ResponseView +pattern RunTaskRequest_ResponseView_Basic = RunTaskRequest_ResponseView "BASIC" + +-- | All information is returned. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Queue resource. +pattern RunTaskRequest_ResponseView_Full :: RunTaskRequest_ResponseView +pattern RunTaskRequest_ResponseView_Full = RunTaskRequest_ResponseView "FULL" + +{-# COMPLETE + RunTaskRequest_ResponseView_VIEWUNSPECIFIED, + RunTaskRequest_ResponseView_Basic, + RunTaskRequest_ResponseView_Full, + RunTaskRequest_ResponseView + #-} + +-- | Output only. The view specifies which subset of the Task has been returned. +newtype Task_View = Task_View {fromTask_View :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Unspecified. Defaults to BASIC. +pattern Task_View_VIEWUNSPECIFIED :: Task_View +pattern Task_View_VIEWUNSPECIFIED = Task_View "VIEW_UNSPECIFIED" + +-- | The basic view omits fields which can be large or can contain sensitive data. This view does not include the body in AppEngineHttpRequest. Bodies are desirable to return only when needed, because they can be large and because of the sensitivity of the data that you choose to store in it. +pattern Task_View_Basic :: Task_View +pattern Task_View_Basic = Task_View "BASIC" + +-- | All information is returned. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Queue resource. +pattern Task_View_Full :: Task_View +pattern Task_View_Full = Task_View "FULL" + +{-# COMPLETE + Task_View_VIEWUNSPECIFIED, + Task_View_Basic, + Task_View_Full, + Task_View + #-} + +-- | Scheme override. When specified, the task URI scheme is replaced by the provided value (HTTP or HTTPS). +newtype UriOverride_Scheme = UriOverride_Scheme {fromUriOverride_Scheme :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Scheme unspecified. Defaults to HTTPS. +pattern UriOverride_Scheme_SCHEMEUNSPECIFIED :: UriOverride_Scheme +pattern UriOverride_Scheme_SCHEMEUNSPECIFIED = UriOverride_Scheme "SCHEME_UNSPECIFIED" + +-- | Convert the scheme to HTTP, e.g., https:\/\/www.google.ca will change to http:\/\/www.google.ca. +pattern UriOverride_Scheme_Http :: UriOverride_Scheme +pattern UriOverride_Scheme_Http = UriOverride_Scheme "HTTP" + +-- | Convert the scheme to HTTPS, e.g., http:\/\/www.google.ca will change to https:\/\/www.google.ca. +pattern UriOverride_Scheme_Https :: UriOverride_Scheme +pattern UriOverride_Scheme_Https = UriOverride_Scheme "HTTPS" + +{-# COMPLETE + UriOverride_Scheme_SCHEMEUNSPECIFIED, + UriOverride_Scheme_Http, + UriOverride_Scheme_Https, + UriOverride_Scheme + #-} + +-- | URI Override Enforce Mode When specified, determines the Target UriOverride mode. If not specified, it defaults to ALWAYS. +newtype UriOverride_UriOverrideEnforceMode = UriOverride_UriOverrideEnforceMode {fromUriOverride_UriOverrideEnforceMode :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | UriOverrideEnforceMode Unspecified. Defaults to ALWAYS. +pattern UriOverride_UriOverrideEnforceMode_URIOVERRIDEENFORCEMODEUNSPECIFIED :: UriOverride_UriOverrideEnforceMode +pattern UriOverride_UriOverrideEnforceMode_URIOVERRIDEENFORCEMODEUNSPECIFIED = UriOverride_UriOverrideEnforceMode "URI_OVERRIDE_ENFORCE_MODE_UNSPECIFIED" + +-- | In the IF/NOT/EXISTS mode, queue-level configuration is only applied where task-level configuration does not exist. +pattern UriOverride_UriOverrideEnforceMode_IFNOTEXISTS :: UriOverride_UriOverrideEnforceMode +pattern UriOverride_UriOverrideEnforceMode_IFNOTEXISTS = UriOverride_UriOverrideEnforceMode "IF_NOT_EXISTS" + +-- | In the ALWAYS mode, queue-level configuration overrides all task-level configuration +pattern UriOverride_UriOverrideEnforceMode_Always :: UriOverride_UriOverrideEnforceMode +pattern UriOverride_UriOverrideEnforceMode_Always = UriOverride_UriOverrideEnforceMode "ALWAYS" + +{-# COMPLETE + UriOverride_UriOverrideEnforceMode_URIOVERRIDEENFORCEMODEUNSPECIFIED, + UriOverride_UriOverrideEnforceMode_IFNOTEXISTS, + UriOverride_UriOverrideEnforceMode_Always, + UriOverride_UriOverrideEnforceMode + #-} + +-- | The response/view specifies which subset of the Task will be returned. By default response/view is BASIC; not all information is retrieved by default because some data, such as payloads, might be desirable to return only when needed because of its large size or because of the sensitivity of data that it contains. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Task resource. +newtype ProjectsLocationsQueuesTasksGetResponseView = ProjectsLocationsQueuesTasksGetResponseView {fromProjectsLocationsQueuesTasksGetResponseView :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Unspecified. Defaults to BASIC. +pattern ProjectsLocationsQueuesTasksGetResponseView_VIEWUNSPECIFIED :: ProjectsLocationsQueuesTasksGetResponseView +pattern ProjectsLocationsQueuesTasksGetResponseView_VIEWUNSPECIFIED = ProjectsLocationsQueuesTasksGetResponseView "VIEW_UNSPECIFIED" + +-- | The basic view omits fields which can be large or can contain sensitive data. This view does not include the body in AppEngineHttpRequest. Bodies are desirable to return only when needed, because they can be large and because of the sensitivity of the data that you choose to store in it. +pattern ProjectsLocationsQueuesTasksGetResponseView_Basic :: ProjectsLocationsQueuesTasksGetResponseView +pattern ProjectsLocationsQueuesTasksGetResponseView_Basic = ProjectsLocationsQueuesTasksGetResponseView "BASIC" + +-- | All information is returned. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Queue resource. +pattern ProjectsLocationsQueuesTasksGetResponseView_Full :: ProjectsLocationsQueuesTasksGetResponseView +pattern ProjectsLocationsQueuesTasksGetResponseView_Full = ProjectsLocationsQueuesTasksGetResponseView "FULL" + +{-# COMPLETE + ProjectsLocationsQueuesTasksGetResponseView_VIEWUNSPECIFIED, + ProjectsLocationsQueuesTasksGetResponseView_Basic, + ProjectsLocationsQueuesTasksGetResponseView_Full, + ProjectsLocationsQueuesTasksGetResponseView + #-} + +-- | The response/view specifies which subset of the Task will be returned. By default response/view is BASIC; not all information is retrieved by default because some data, such as payloads, might be desirable to return only when needed because of its large size or because of the sensitivity of data that it contains. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Task resource. +newtype ProjectsLocationsQueuesTasksListResponseView = ProjectsLocationsQueuesTasksListResponseView {fromProjectsLocationsQueuesTasksListResponseView :: Core.Text} + deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic) + deriving newtype + ( Core.Hashable, + Core.ToHttpApiData, + Core.FromHttpApiData, + Core.ToJSON, + Core.ToJSONKey, + Core.FromJSON, + Core.FromJSONKey + ) + +-- | Unspecified. Defaults to BASIC. +pattern ProjectsLocationsQueuesTasksListResponseView_VIEWUNSPECIFIED :: ProjectsLocationsQueuesTasksListResponseView +pattern ProjectsLocationsQueuesTasksListResponseView_VIEWUNSPECIFIED = ProjectsLocationsQueuesTasksListResponseView "VIEW_UNSPECIFIED" + +-- | The basic view omits fields which can be large or can contain sensitive data. This view does not include the body in AppEngineHttpRequest. Bodies are desirable to return only when needed, because they can be large and because of the sensitivity of the data that you choose to store in it. +pattern ProjectsLocationsQueuesTasksListResponseView_Basic :: ProjectsLocationsQueuesTasksListResponseView +pattern ProjectsLocationsQueuesTasksListResponseView_Basic = ProjectsLocationsQueuesTasksListResponseView "BASIC" + +-- | All information is returned. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Queue resource. +pattern ProjectsLocationsQueuesTasksListResponseView_Full :: ProjectsLocationsQueuesTasksListResponseView +pattern ProjectsLocationsQueuesTasksListResponseView_Full = ProjectsLocationsQueuesTasksListResponseView "FULL" + +{-# COMPLETE + ProjectsLocationsQueuesTasksListResponseView_VIEWUNSPECIFIED, + ProjectsLocationsQueuesTasksListResponseView_Basic, + ProjectsLocationsQueuesTasksListResponseView_Full, + ProjectsLocationsQueuesTasksListResponseView + #-} diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Get.hs b/gen/Gogol/CloudTasks/Projects/Locations/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Get.hs @@ -0,0 +1,109 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Get +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets information about a location. +-- +-- /See:/ for @cloudtasks.projects.locations.get@. +module Gogol.CloudTasks.Projects.Locations.Get + ( -- * Resource + CloudTasksProjectsLocationsGetResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsGet (..), + newCloudTasksProjectsLocationsGet, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.get@ method which the +-- 'CloudTasksProjectsLocationsGet' request conforms to. +type CloudTasksProjectsLocationsGetResource = + "v2" + Core.:> Core.Capture "name" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] Location + +-- | Gets information about a location. +-- +-- /See:/ 'newCloudTasksProjectsLocationsGet' smart constructor. +data CloudTasksProjectsLocationsGet = CloudTasksProjectsLocationsGet + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Resource name for the location. + name :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsGet' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsGet :: + -- | Resource name for the location. See 'name'. + Core.Text -> + CloudTasksProjectsLocationsGet +newCloudTasksProjectsLocationsGet name = + CloudTasksProjectsLocationsGet + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsGet where + type Rs CloudTasksProjectsLocationsGet = Location + type + Scopes CloudTasksProjectsLocationsGet = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsGet {..} = + go + name + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + cloudTasksService + where + go = + Core.buildClient + (Core.Proxy :: Core.Proxy CloudTasksProjectsLocationsGetResource) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/GetCmekConfig.hs b/gen/Gogol/CloudTasks/Projects/Locations/GetCmekConfig.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/GetCmekConfig.hs @@ -0,0 +1,114 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.GetCmekConfig +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the CMEK config. Gets the Customer Managed Encryption Key configured with the Cloud Tasks lcoation. By default there is no kms_key configured. +-- +-- /See:/ for @cloudtasks.projects.locations.getCmekConfig@. +module Gogol.CloudTasks.Projects.Locations.GetCmekConfig + ( -- * Resource + CloudTasksProjectsLocationsGetCmekConfigResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsGetCmekConfig (..), + newCloudTasksProjectsLocationsGetCmekConfig, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.getCmekConfig@ method which the +-- 'CloudTasksProjectsLocationsGetCmekConfig' request conforms to. +type CloudTasksProjectsLocationsGetCmekConfigResource = + "v2" + Core.:> Core.Capture "name" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] CmekConfig + +-- | Gets the CMEK config. Gets the Customer Managed Encryption Key configured with the Cloud Tasks lcoation. By default there is no kms_key configured. +-- +-- /See:/ 'newCloudTasksProjectsLocationsGetCmekConfig' smart constructor. +data CloudTasksProjectsLocationsGetCmekConfig = CloudTasksProjectsLocationsGetCmekConfig + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The config. For example: projects\/PROJECT/ID\/locations\/LOCATION/ID\/CmekConfig\` + name :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsGetCmekConfig' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsGetCmekConfig :: + -- | Required. The config. For example: projects\/PROJECT/ID\/locations\/LOCATION/ID\/CmekConfig\` See 'name'. + Core.Text -> + CloudTasksProjectsLocationsGetCmekConfig +newCloudTasksProjectsLocationsGetCmekConfig name = + CloudTasksProjectsLocationsGetCmekConfig + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsGetCmekConfig + where + type Rs CloudTasksProjectsLocationsGetCmekConfig = CmekConfig + type + Scopes CloudTasksProjectsLocationsGetCmekConfig = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsGetCmekConfig {..} = + go + name + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsGetCmekConfigResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/List.hs b/gen/Gogol/CloudTasks/Projects/Locations/List.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/List.hs @@ -0,0 +1,125 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.List +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists information about the supported locations for this service. +-- +-- /See:/ for @cloudtasks.projects.locations.list@. +module Gogol.CloudTasks.Projects.Locations.List + ( -- * Resource + CloudTasksProjectsLocationsListResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsList (..), + newCloudTasksProjectsLocationsList, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.list@ method which the +-- 'CloudTasksProjectsLocationsList' request conforms to. +type CloudTasksProjectsLocationsListResource = + "v2" + Core.:> Core.Capture "name" Core.Text + Core.:> "locations" + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "filter" Core.Text + Core.:> Core.QueryParam "pageSize" Core.Int32 + Core.:> Core.QueryParam "pageToken" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] ListLocationsResponse + +-- | Lists information about the supported locations for this service. +-- +-- /See:/ 'newCloudTasksProjectsLocationsList' smart constructor. +data CloudTasksProjectsLocationsList = CloudTasksProjectsLocationsList + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | A filter to narrow down results to a preferred subset. The filtering language accepts strings like @\"displayName=tokyo\"@, and is documented in more detail in . + filter :: (Core.Maybe Core.Text), + -- | The resource that owns the locations collection, if applicable. + name :: Core.Text, + -- | The maximum number of results to return. If not set, the service selects a default. + pageSize :: (Core.Maybe Core.Int32), + -- | A page token received from the @next_page_token@ field in the response. Send that page token to receive the subsequent page. + pageToken :: (Core.Maybe Core.Text), + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsList' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsList :: + -- | The resource that owns the locations collection, if applicable. See 'name'. + Core.Text -> + CloudTasksProjectsLocationsList +newCloudTasksProjectsLocationsList name = + CloudTasksProjectsLocationsList + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + filter = Core.Nothing, + name = name, + pageSize = Core.Nothing, + pageToken = Core.Nothing, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsList where + type Rs CloudTasksProjectsLocationsList = ListLocationsResponse + type + Scopes CloudTasksProjectsLocationsList = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsList {..} = + go + name + xgafv + accessToken + callback + filter + pageSize + pageToken + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + cloudTasksService + where + go = + Core.buildClient + (Core.Proxy :: Core.Proxy CloudTasksProjectsLocationsListResource) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Create.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Create.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Create.hs @@ -0,0 +1,119 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Create +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a queue. Queues created with this method allow tasks to live for a maximum of 31 days. After a task is 31 days old, the task will be deleted regardless of whether it was dispatched or not. WARNING: Using this method may have unintended side effects if you are using an App Engine @queue.yaml@ or @queue.xml@ file to manage your queues. Read before using this method. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.create@. +module Gogol.CloudTasks.Projects.Locations.Queues.Create + ( -- * Resource + CloudTasksProjectsLocationsQueuesCreateResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesCreate (..), + newCloudTasksProjectsLocationsQueuesCreate, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.create@ method which the +-- 'CloudTasksProjectsLocationsQueuesCreate' request conforms to. +type CloudTasksProjectsLocationsQueuesCreateResource = + "v2" + Core.:> Core.Capture "parent" Core.Text + Core.:> "queues" + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] Queue + Core.:> Core.Post '[Core.JSON] Queue + +-- | Creates a queue. Queues created with this method allow tasks to live for a maximum of 31 days. After a task is 31 days old, the task will be deleted regardless of whether it was dispatched or not. WARNING: Using this method may have unintended side effects if you are using an App Engine @queue.yaml@ or @queue.xml@ file to manage your queues. Read before using this method. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesCreate' smart constructor. +data CloudTasksProjectsLocationsQueuesCreate = CloudTasksProjectsLocationsQueuesCreate + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The location name in which the queue will be created. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID@ The list of allowed locations can be obtained by calling Cloud Tasks\' implementation of ListLocations. + parent :: Core.Text, + -- | Multipart request metadata. + payload :: Queue, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesCreate' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesCreate :: + -- | Required. The location name in which the queue will be created. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID@ The list of allowed locations can be obtained by calling Cloud Tasks\' implementation of ListLocations. See 'parent'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + Queue -> + CloudTasksProjectsLocationsQueuesCreate +newCloudTasksProjectsLocationsQueuesCreate parent payload = + CloudTasksProjectsLocationsQueuesCreate + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + parent = parent, + payload = payload, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsQueuesCreate where + type Rs CloudTasksProjectsLocationsQueuesCreate = Queue + type + Scopes CloudTasksProjectsLocationsQueuesCreate = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesCreate {..} = + go + parent + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesCreateResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Delete.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Delete.hs @@ -0,0 +1,111 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Delete +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes a queue. This command will delete the queue even if it has tasks in it. Note: If you delete a queue, you may be prevented from creating a new queue with the same name as the deleted queue for a tombstone window of up to 3 days. During this window, the CreateQueue operation may appear to recreate the queue, but this can be misleading. If you attempt to create a queue with the same name as one that is in the tombstone window, run GetQueue to confirm that the queue creation was successful. If GetQueue returns 200 response code, your queue was successfully created with the name of the previously deleted queue. Otherwise, your queue did not successfully recreate. WARNING: Using this method may have unintended side effects if you are using an App Engine @queue.yaml@ or @queue.xml@ file to manage your queues. Read before using this method. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.delete@. +module Gogol.CloudTasks.Projects.Locations.Queues.Delete + ( -- * Resource + CloudTasksProjectsLocationsQueuesDeleteResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesDelete (..), + newCloudTasksProjectsLocationsQueuesDelete, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.delete@ method which the +-- 'CloudTasksProjectsLocationsQueuesDelete' request conforms to. +type CloudTasksProjectsLocationsQueuesDeleteResource = + "v2" + Core.:> Core.Capture "name" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Delete '[Core.JSON] Empty + +-- | Deletes a queue. This command will delete the queue even if it has tasks in it. Note: If you delete a queue, you may be prevented from creating a new queue with the same name as the deleted queue for a tombstone window of up to 3 days. During this window, the CreateQueue operation may appear to recreate the queue, but this can be misleading. If you attempt to create a queue with the same name as one that is in the tombstone window, run GetQueue to confirm that the queue creation was successful. If GetQueue returns 200 response code, your queue was successfully created with the name of the previously deleted queue. Otherwise, your queue did not successfully recreate. WARNING: Using this method may have unintended side effects if you are using an App Engine @queue.yaml@ or @queue.xml@ file to manage your queues. Read before using this method. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesDelete' smart constructor. +data CloudTasksProjectsLocationsQueuesDelete = CloudTasksProjectsLocationsQueuesDelete + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ + name :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesDelete' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesDelete :: + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ See 'name'. + Core.Text -> + CloudTasksProjectsLocationsQueuesDelete +newCloudTasksProjectsLocationsQueuesDelete name = + CloudTasksProjectsLocationsQueuesDelete + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsQueuesDelete where + type Rs CloudTasksProjectsLocationsQueuesDelete = Empty + type + Scopes CloudTasksProjectsLocationsQueuesDelete = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesDelete {..} = + go + name + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesDeleteResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Get.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Get.hs @@ -0,0 +1,111 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Get +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets a queue. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.get@. +module Gogol.CloudTasks.Projects.Locations.Queues.Get + ( -- * Resource + CloudTasksProjectsLocationsQueuesGetResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesGet (..), + newCloudTasksProjectsLocationsQueuesGet, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.get@ method which the +-- 'CloudTasksProjectsLocationsQueuesGet' request conforms to. +type CloudTasksProjectsLocationsQueuesGetResource = + "v2" + Core.:> Core.Capture "name" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] Queue + +-- | Gets a queue. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesGet' smart constructor. +data CloudTasksProjectsLocationsQueuesGet = CloudTasksProjectsLocationsQueuesGet + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The resource name of the queue. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ + name :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesGet' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesGet :: + -- | Required. The resource name of the queue. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ See 'name'. + Core.Text -> + CloudTasksProjectsLocationsQueuesGet +newCloudTasksProjectsLocationsQueuesGet name = + CloudTasksProjectsLocationsQueuesGet + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsQueuesGet where + type Rs CloudTasksProjectsLocationsQueuesGet = Queue + type + Scopes CloudTasksProjectsLocationsQueuesGet = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesGet {..} = + go + name + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesGetResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/GetIamPolicy.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/GetIamPolicy.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/GetIamPolicy.hs @@ -0,0 +1,122 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.GetIamPolicy +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the access control policy for a Queue. Returns an empty policy if the resource exists and does not have a policy set. Authorization requires the following permission on the specified resource parent: * @cloudtasks.queues.getIamPolicy@ +-- +-- /See:/ for @cloudtasks.projects.locations.queues.getIamPolicy@. +module Gogol.CloudTasks.Projects.Locations.Queues.GetIamPolicy + ( -- * Resource + CloudTasksProjectsLocationsQueuesGetIamPolicyResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesGetIamPolicy (..), + newCloudTasksProjectsLocationsQueuesGetIamPolicy, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.getIamPolicy@ method which the +-- 'CloudTasksProjectsLocationsQueuesGetIamPolicy' request conforms to. +type CloudTasksProjectsLocationsQueuesGetIamPolicyResource = + "v2" + Core.:> Core.CaptureMode "resource" "getIamPolicy" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] GetIamPolicyRequest + Core.:> Core.Post '[Core.JSON] Policy + +-- | Gets the access control policy for a Queue. Returns an empty policy if the resource exists and does not have a policy set. Authorization requires the following permission on the specified resource parent: * @cloudtasks.queues.getIamPolicy@ +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesGetIamPolicy' smart constructor. +data CloudTasksProjectsLocationsQueuesGetIamPolicy = CloudTasksProjectsLocationsQueuesGetIamPolicy + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Multipart request metadata. + payload :: GetIamPolicyRequest, + -- | REQUIRED: The resource for which the policy is being requested. See for the appropriate value for this field. + resource :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesGetIamPolicy' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesGetIamPolicy :: + -- | Multipart request metadata. See 'payload'. + GetIamPolicyRequest -> + -- | REQUIRED: The resource for which the policy is being requested. See for the appropriate value for this field. See 'resource'. + Core.Text -> + CloudTasksProjectsLocationsQueuesGetIamPolicy +newCloudTasksProjectsLocationsQueuesGetIamPolicy payload resource = + CloudTasksProjectsLocationsQueuesGetIamPolicy + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + payload = payload, + resource = resource, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsQueuesGetIamPolicy + where + type Rs CloudTasksProjectsLocationsQueuesGetIamPolicy = Policy + type + Scopes CloudTasksProjectsLocationsQueuesGetIamPolicy = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesGetIamPolicy {..} = + go + resource + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesGetIamPolicyResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/List.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/List.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/List.hs @@ -0,0 +1,127 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.List +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists queues. Queues are returned in lexicographical order. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.list@. +module Gogol.CloudTasks.Projects.Locations.Queues.List + ( -- * Resource + CloudTasksProjectsLocationsQueuesListResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesList (..), + newCloudTasksProjectsLocationsQueuesList, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.list@ method which the +-- 'CloudTasksProjectsLocationsQueuesList' request conforms to. +type CloudTasksProjectsLocationsQueuesListResource = + "v2" + Core.:> Core.Capture "parent" Core.Text + Core.:> "queues" + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "filter" Core.Text + Core.:> Core.QueryParam "pageSize" Core.Int32 + Core.:> Core.QueryParam "pageToken" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] ListQueuesResponse + +-- | Lists queues. Queues are returned in lexicographical order. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesList' smart constructor. +data CloudTasksProjectsLocationsQueuesList = CloudTasksProjectsLocationsQueuesList + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | @filter@ can be used to specify a subset of queues. Any Queue field can be used as a filter and several operators as supported. For example: @\<=, \<, >=, >, !=, =, :@. The filter syntax is the same as described in . Sample filter \"state: PAUSED\". Note that using filters might cause fewer queues than the requested page_size to be returned. + filter :: (Core.Maybe Core.Text), + -- | Requested page size. The maximum page size is 9800. If unspecified, the page size will be the maximum. Fewer queues than requested might be returned, even if more queues exist; use the next/page/token in the response to determine if more queues exist. + pageSize :: (Core.Maybe Core.Int32), + -- | A token identifying the page of results to return. To request the first page results, page/token must be empty. To request the next page of results, page/token must be the value of next/page/token returned from the previous call to ListQueues method. It is an error to switch the value of the filter while iterating through pages. + pageToken :: (Core.Maybe Core.Text), + -- | Required. The location name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID@ + parent :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesList' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesList :: + -- | Required. The location name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID@ See 'parent'. + Core.Text -> + CloudTasksProjectsLocationsQueuesList +newCloudTasksProjectsLocationsQueuesList parent = + CloudTasksProjectsLocationsQueuesList + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + filter = Core.Nothing, + pageSize = Core.Nothing, + pageToken = Core.Nothing, + parent = parent, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsQueuesList where + type Rs CloudTasksProjectsLocationsQueuesList = ListQueuesResponse + type + Scopes CloudTasksProjectsLocationsQueuesList = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesList {..} = + go + parent + xgafv + accessToken + callback + filter + pageSize + pageToken + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesListResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Patch.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Patch.hs @@ -0,0 +1,123 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Patch +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates a queue. This method creates the queue if it does not exist and updates the queue if it does exist. Queues created with this method allow tasks to live for a maximum of 31 days. After a task is 31 days old, the task will be deleted regardless of whether it was dispatched or not. WARNING: Using this method may have unintended side effects if you are using an App Engine @queue.yaml@ or @queue.xml@ file to manage your queues. Read before using this method. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.patch@. +module Gogol.CloudTasks.Projects.Locations.Queues.Patch + ( -- * Resource + CloudTasksProjectsLocationsQueuesPatchResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesPatch (..), + newCloudTasksProjectsLocationsQueuesPatch, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.patch@ method which the +-- 'CloudTasksProjectsLocationsQueuesPatch' request conforms to. +type CloudTasksProjectsLocationsQueuesPatchResource = + "v2" + Core.:> Core.Capture "name" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "updateMask" Core.FieldMask + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] Queue + Core.:> Core.Patch '[Core.JSON] Queue + +-- | Updates a queue. This method creates the queue if it does not exist and updates the queue if it does exist. Queues created with this method allow tasks to live for a maximum of 31 days. After a task is 31 days old, the task will be deleted regardless of whether it was dispatched or not. WARNING: Using this method may have unintended side effects if you are using an App Engine @queue.yaml@ or @queue.xml@ file to manage your queues. Read before using this method. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesPatch' smart constructor. +data CloudTasksProjectsLocationsQueuesPatch = CloudTasksProjectsLocationsQueuesPatch + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Caller-specified and required in CreateQueue, after which it becomes output only. The queue name. The queue name must have the following format: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ * @PROJECT_ID@ can contain letters ([A-Za-z]), numbers ([0-9]), hyphens (-), colons (:), or periods (.). For more information, see * @LOCATION_ID@ is the canonical ID for the queue\'s location. The list of available locations can be obtained by calling ListLocations. For more information, see https:\/\/cloud.google.com\/about\/locations\/. * @QUEUE_ID@ can contain letters ([A-Za-z]), numbers ([0-9]), or hyphens (-). The maximum length is 100 characters. + name :: Core.Text, + -- | Multipart request metadata. + payload :: Queue, + -- | A mask used to specify which fields of the queue are being updated. If empty, then all fields will be updated. + updateMask :: (Core.Maybe Core.FieldMask), + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesPatch' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesPatch :: + -- | Caller-specified and required in CreateQueue, after which it becomes output only. The queue name. The queue name must have the following format: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ * @PROJECT_ID@ can contain letters ([A-Za-z]), numbers ([0-9]), hyphens (-), colons (:), or periods (.). For more information, see * @LOCATION_ID@ is the canonical ID for the queue\'s location. The list of available locations can be obtained by calling ListLocations. For more information, see https:\/\/cloud.google.com\/about\/locations\/. * @QUEUE_ID@ can contain letters ([A-Za-z]), numbers ([0-9]), or hyphens (-). The maximum length is 100 characters. See 'name'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + Queue -> + CloudTasksProjectsLocationsQueuesPatch +newCloudTasksProjectsLocationsQueuesPatch name payload = + CloudTasksProjectsLocationsQueuesPatch + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + payload = payload, + updateMask = Core.Nothing, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsQueuesPatch where + type Rs CloudTasksProjectsLocationsQueuesPatch = Queue + type + Scopes CloudTasksProjectsLocationsQueuesPatch = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesPatch {..} = + go + name + xgafv + accessToken + callback + updateMask + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesPatchResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Pause.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Pause.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Pause.hs @@ -0,0 +1,118 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Pause +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Pauses the queue. If a queue is paused then the system will stop dispatching tasks until the queue is resumed via ResumeQueue. Tasks can still be added when the queue is paused. A queue is paused if its state is PAUSED. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.pause@. +module Gogol.CloudTasks.Projects.Locations.Queues.Pause + ( -- * Resource + CloudTasksProjectsLocationsQueuesPauseResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesPause (..), + newCloudTasksProjectsLocationsQueuesPause, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.pause@ method which the +-- 'CloudTasksProjectsLocationsQueuesPause' request conforms to. +type CloudTasksProjectsLocationsQueuesPauseResource = + "v2" + Core.:> Core.CaptureMode "name" "pause" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] PauseQueueRequest + Core.:> Core.Post '[Core.JSON] Queue + +-- | Pauses the queue. If a queue is paused then the system will stop dispatching tasks until the queue is resumed via ResumeQueue. Tasks can still be added when the queue is paused. A queue is paused if its state is PAUSED. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesPause' smart constructor. +data CloudTasksProjectsLocationsQueuesPause = CloudTasksProjectsLocationsQueuesPause + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/location\/LOCATION_ID\/queues\/QUEUE_ID@ + name :: Core.Text, + -- | Multipart request metadata. + payload :: PauseQueueRequest, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesPause' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesPause :: + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/location\/LOCATION_ID\/queues\/QUEUE_ID@ See 'name'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + PauseQueueRequest -> + CloudTasksProjectsLocationsQueuesPause +newCloudTasksProjectsLocationsQueuesPause name payload = + CloudTasksProjectsLocationsQueuesPause + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + payload = payload, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsQueuesPause where + type Rs CloudTasksProjectsLocationsQueuesPause = Queue + type + Scopes CloudTasksProjectsLocationsQueuesPause = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesPause {..} = + go + name + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesPauseResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Purge.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Purge.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Purge.hs @@ -0,0 +1,118 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Purge +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Purges a queue by deleting all of its tasks. All tasks created before this method is called are permanently deleted. Purge operations can take up to one minute to take effect. Tasks might be dispatched before the purge takes effect. A purge is irreversible. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.purge@. +module Gogol.CloudTasks.Projects.Locations.Queues.Purge + ( -- * Resource + CloudTasksProjectsLocationsQueuesPurgeResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesPurge (..), + newCloudTasksProjectsLocationsQueuesPurge, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.purge@ method which the +-- 'CloudTasksProjectsLocationsQueuesPurge' request conforms to. +type CloudTasksProjectsLocationsQueuesPurgeResource = + "v2" + Core.:> Core.CaptureMode "name" "purge" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] PurgeQueueRequest + Core.:> Core.Post '[Core.JSON] Queue + +-- | Purges a queue by deleting all of its tasks. All tasks created before this method is called are permanently deleted. Purge operations can take up to one minute to take effect. Tasks might be dispatched before the purge takes effect. A purge is irreversible. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesPurge' smart constructor. +data CloudTasksProjectsLocationsQueuesPurge = CloudTasksProjectsLocationsQueuesPurge + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/location\/LOCATION_ID\/queues\/QUEUE_ID@ + name :: Core.Text, + -- | Multipart request metadata. + payload :: PurgeQueueRequest, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesPurge' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesPurge :: + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/location\/LOCATION_ID\/queues\/QUEUE_ID@ See 'name'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + PurgeQueueRequest -> + CloudTasksProjectsLocationsQueuesPurge +newCloudTasksProjectsLocationsQueuesPurge name payload = + CloudTasksProjectsLocationsQueuesPurge + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + payload = payload, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsQueuesPurge where + type Rs CloudTasksProjectsLocationsQueuesPurge = Queue + type + Scopes CloudTasksProjectsLocationsQueuesPurge = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesPurge {..} = + go + name + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesPurgeResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Resume.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Resume.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Resume.hs @@ -0,0 +1,118 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Resume +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Resume a queue. This method resumes a queue after it has been PAUSED or DISABLED. The state of a queue is stored in the queue\'s state; after calling this method it will be set to RUNNING. WARNING: Resuming many high-QPS queues at the same time can lead to target overloading. If you are resuming high-QPS queues, follow the 500\/50\/5 pattern described in . +-- +-- /See:/ for @cloudtasks.projects.locations.queues.resume@. +module Gogol.CloudTasks.Projects.Locations.Queues.Resume + ( -- * Resource + CloudTasksProjectsLocationsQueuesResumeResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesResume (..), + newCloudTasksProjectsLocationsQueuesResume, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.resume@ method which the +-- 'CloudTasksProjectsLocationsQueuesResume' request conforms to. +type CloudTasksProjectsLocationsQueuesResumeResource = + "v2" + Core.:> Core.CaptureMode "name" "resume" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] ResumeQueueRequest + Core.:> Core.Post '[Core.JSON] Queue + +-- | Resume a queue. This method resumes a queue after it has been PAUSED or DISABLED. The state of a queue is stored in the queue\'s state; after calling this method it will be set to RUNNING. WARNING: Resuming many high-QPS queues at the same time can lead to target overloading. If you are resuming high-QPS queues, follow the 500\/50\/5 pattern described in . +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesResume' smart constructor. +data CloudTasksProjectsLocationsQueuesResume = CloudTasksProjectsLocationsQueuesResume + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/location\/LOCATION_ID\/queues\/QUEUE_ID@ + name :: Core.Text, + -- | Multipart request metadata. + payload :: ResumeQueueRequest, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesResume' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesResume :: + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/location\/LOCATION_ID\/queues\/QUEUE_ID@ See 'name'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + ResumeQueueRequest -> + CloudTasksProjectsLocationsQueuesResume +newCloudTasksProjectsLocationsQueuesResume name payload = + CloudTasksProjectsLocationsQueuesResume + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + payload = payload, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance Core.GoogleRequest CloudTasksProjectsLocationsQueuesResume where + type Rs CloudTasksProjectsLocationsQueuesResume = Queue + type + Scopes CloudTasksProjectsLocationsQueuesResume = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesResume {..} = + go + name + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesResumeResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/SetIamPolicy.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/SetIamPolicy.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/SetIamPolicy.hs @@ -0,0 +1,122 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.SetIamPolicy +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Sets the access control policy for a Queue. Replaces any existing policy. Note: The Cloud Console does not check queue-level IAM permissions yet. Project-level permissions are required to use the Cloud Console. Authorization requires the following permission on the specified resource parent: * @cloudtasks.queues.setIamPolicy@ +-- +-- /See:/ for @cloudtasks.projects.locations.queues.setIamPolicy@. +module Gogol.CloudTasks.Projects.Locations.Queues.SetIamPolicy + ( -- * Resource + CloudTasksProjectsLocationsQueuesSetIamPolicyResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesSetIamPolicy (..), + newCloudTasksProjectsLocationsQueuesSetIamPolicy, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.setIamPolicy@ method which the +-- 'CloudTasksProjectsLocationsQueuesSetIamPolicy' request conforms to. +type CloudTasksProjectsLocationsQueuesSetIamPolicyResource = + "v2" + Core.:> Core.CaptureMode "resource" "setIamPolicy" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] SetIamPolicyRequest + Core.:> Core.Post '[Core.JSON] Policy + +-- | Sets the access control policy for a Queue. Replaces any existing policy. Note: The Cloud Console does not check queue-level IAM permissions yet. Project-level permissions are required to use the Cloud Console. Authorization requires the following permission on the specified resource parent: * @cloudtasks.queues.setIamPolicy@ +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesSetIamPolicy' smart constructor. +data CloudTasksProjectsLocationsQueuesSetIamPolicy = CloudTasksProjectsLocationsQueuesSetIamPolicy + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Multipart request metadata. + payload :: SetIamPolicyRequest, + -- | REQUIRED: The resource for which the policy is being specified. See for the appropriate value for this field. + resource :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesSetIamPolicy' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesSetIamPolicy :: + -- | Multipart request metadata. See 'payload'. + SetIamPolicyRequest -> + -- | REQUIRED: The resource for which the policy is being specified. See for the appropriate value for this field. See 'resource'. + Core.Text -> + CloudTasksProjectsLocationsQueuesSetIamPolicy +newCloudTasksProjectsLocationsQueuesSetIamPolicy payload resource = + CloudTasksProjectsLocationsQueuesSetIamPolicy + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + payload = payload, + resource = resource, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsQueuesSetIamPolicy + where + type Rs CloudTasksProjectsLocationsQueuesSetIamPolicy = Policy + type + Scopes CloudTasksProjectsLocationsQueuesSetIamPolicy = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesSetIamPolicy {..} = + go + resource + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesSetIamPolicyResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Buffer.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Buffer.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Buffer.hs @@ -0,0 +1,135 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Buffer +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates and buffers a new task without the need to explicitly define a Task message. The queue must have HTTP target. To create the task with a custom ID, use the following format and set TASK/ID to your desired ID: projects\/PROJECT/ID\/locations\/LOCATION/ID\/queues\/QUEUE/ID\/tasks\/TASK/ID:buffer To create the task with an automatically generated ID, use the following format: projects\/PROJECT/ID\/locations\/LOCATION/ID\/queues\/QUEUE/ID\/tasks:buffer. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.tasks.buffer@. +module Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Buffer + ( -- * Resource + CloudTasksProjectsLocationsQueuesTasksBufferResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesTasksBuffer (..), + newCloudTasksProjectsLocationsQueuesTasksBuffer, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.tasks.buffer@ method which the +-- 'CloudTasksProjectsLocationsQueuesTasksBuffer' request conforms to. +type CloudTasksProjectsLocationsQueuesTasksBufferResource = + "v2" + Core.:> Core.Capture "queue" Core.Text + Core.:> "tasks" + Core.:> Core.CaptureMode "taskId" "buffer" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] BufferTaskRequest + Core.:> Core.Post '[Core.JSON] BufferTaskResponse + +-- | Creates and buffers a new task without the need to explicitly define a Task message. The queue must have HTTP target. To create the task with a custom ID, use the following format and set TASK/ID to your desired ID: projects\/PROJECT/ID\/locations\/LOCATION/ID\/queues\/QUEUE/ID\/tasks\/TASK/ID:buffer To create the task with an automatically generated ID, use the following format: projects\/PROJECT/ID\/locations\/LOCATION/ID\/queues\/QUEUE/ID\/tasks:buffer. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesTasksBuffer' smart constructor. +data CloudTasksProjectsLocationsQueuesTasksBuffer = CloudTasksProjectsLocationsQueuesTasksBuffer + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Multipart request metadata. + payload :: BufferTaskRequest, + -- | Required. The parent queue name. For example: projects\/PROJECT/ID\/locations\/LOCATION/ID\/queues\/QUEUE_ID\` The queue must already exist. + queue :: Core.Text, + -- | Optional. Task ID for the task being created. If not provided, Cloud Tasks generates an ID for the task. + taskId :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesTasksBuffer' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesTasksBuffer :: + -- | Multipart request metadata. See 'payload'. + BufferTaskRequest -> + -- | Required. The parent queue name. For example: projects\/PROJECT/ID\/locations\/LOCATION/ID\/queues\/QUEUE_ID\` The queue must already exist. See 'queue'. + Core.Text -> + -- | Optional. Task ID for the task being created. If not provided, Cloud Tasks generates an ID for the task. See 'taskId'. + Core.Text -> + CloudTasksProjectsLocationsQueuesTasksBuffer +newCloudTasksProjectsLocationsQueuesTasksBuffer + payload + queue + taskId = + CloudTasksProjectsLocationsQueuesTasksBuffer + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + payload = payload, + queue = queue, + taskId = taskId, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsQueuesTasksBuffer + where + type + Rs CloudTasksProjectsLocationsQueuesTasksBuffer = + BufferTaskResponse + type + Scopes CloudTasksProjectsLocationsQueuesTasksBuffer = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesTasksBuffer {..} = + go + queue + taskId + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesTasksBufferResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Create.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Create.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Create.hs @@ -0,0 +1,123 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Create +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a task and adds it to a queue. Tasks cannot be updated after creation; there is no UpdateTask command. * The maximum task size is 100KB. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.tasks.create@. +module Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Create + ( -- * Resource + CloudTasksProjectsLocationsQueuesTasksCreateResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesTasksCreate (..), + newCloudTasksProjectsLocationsQueuesTasksCreate, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.tasks.create@ method which the +-- 'CloudTasksProjectsLocationsQueuesTasksCreate' request conforms to. +type CloudTasksProjectsLocationsQueuesTasksCreateResource = + "v2" + Core.:> Core.Capture "parent" Core.Text + Core.:> "tasks" + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] CreateTaskRequest + Core.:> Core.Post '[Core.JSON] Task + +-- | Creates a task and adds it to a queue. Tasks cannot be updated after creation; there is no UpdateTask command. * The maximum task size is 100KB. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesTasksCreate' smart constructor. +data CloudTasksProjectsLocationsQueuesTasksCreate = CloudTasksProjectsLocationsQueuesTasksCreate + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ The queue must already exist. + parent :: Core.Text, + -- | Multipart request metadata. + payload :: CreateTaskRequest, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesTasksCreate' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesTasksCreate :: + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ The queue must already exist. See 'parent'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + CreateTaskRequest -> + CloudTasksProjectsLocationsQueuesTasksCreate +newCloudTasksProjectsLocationsQueuesTasksCreate parent payload = + CloudTasksProjectsLocationsQueuesTasksCreate + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + parent = parent, + payload = payload, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsQueuesTasksCreate + where + type Rs CloudTasksProjectsLocationsQueuesTasksCreate = Task + type + Scopes CloudTasksProjectsLocationsQueuesTasksCreate = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesTasksCreate {..} = + go + parent + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesTasksCreateResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Delete.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Delete.hs @@ -0,0 +1,115 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Delete +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes a task. A task can be deleted if it is scheduled or dispatched. A task cannot be deleted if it has executed successfully or permanently failed. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.tasks.delete@. +module Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Delete + ( -- * Resource + CloudTasksProjectsLocationsQueuesTasksDeleteResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesTasksDelete (..), + newCloudTasksProjectsLocationsQueuesTasksDelete, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.tasks.delete@ method which the +-- 'CloudTasksProjectsLocationsQueuesTasksDelete' request conforms to. +type CloudTasksProjectsLocationsQueuesTasksDeleteResource = + "v2" + Core.:> Core.Capture "name" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Delete '[Core.JSON] Empty + +-- | Deletes a task. A task can be deleted if it is scheduled or dispatched. A task cannot be deleted if it has executed successfully or permanently failed. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesTasksDelete' smart constructor. +data CloudTasksProjectsLocationsQueuesTasksDelete = CloudTasksProjectsLocationsQueuesTasksDelete + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The task name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID@ + name :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesTasksDelete' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesTasksDelete :: + -- | Required. The task name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID@ See 'name'. + Core.Text -> + CloudTasksProjectsLocationsQueuesTasksDelete +newCloudTasksProjectsLocationsQueuesTasksDelete name = + CloudTasksProjectsLocationsQueuesTasksDelete + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsQueuesTasksDelete + where + type Rs CloudTasksProjectsLocationsQueuesTasksDelete = Empty + type + Scopes CloudTasksProjectsLocationsQueuesTasksDelete = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesTasksDelete {..} = + go + name + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesTasksDeleteResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Get.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Get.hs @@ -0,0 +1,121 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Get +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets a task. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.tasks.get@. +module Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Get + ( -- * Resource + CloudTasksProjectsLocationsQueuesTasksGetResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesTasksGet (..), + newCloudTasksProjectsLocationsQueuesTasksGet, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.tasks.get@ method which the +-- 'CloudTasksProjectsLocationsQueuesTasksGet' request conforms to. +type CloudTasksProjectsLocationsQueuesTasksGetResource = + "v2" + Core.:> Core.Capture "name" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam + "responseView" + ProjectsLocationsQueuesTasksGetResponseView + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] Task + +-- | Gets a task. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesTasksGet' smart constructor. +data CloudTasksProjectsLocationsQueuesTasksGet = CloudTasksProjectsLocationsQueuesTasksGet + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The task name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID@ + name :: Core.Text, + -- | The response/view specifies which subset of the Task will be returned. By default response/view is BASIC; not all information is retrieved by default because some data, such as payloads, might be desirable to return only when needed because of its large size or because of the sensitivity of data that it contains. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Task resource. + responseView :: (Core.Maybe ProjectsLocationsQueuesTasksGetResponseView), + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesTasksGet' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesTasksGet :: + -- | Required. The task name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID@ See 'name'. + Core.Text -> + CloudTasksProjectsLocationsQueuesTasksGet +newCloudTasksProjectsLocationsQueuesTasksGet name = + CloudTasksProjectsLocationsQueuesTasksGet + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + responseView = Core.Nothing, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsQueuesTasksGet + where + type Rs CloudTasksProjectsLocationsQueuesTasksGet = Task + type + Scopes CloudTasksProjectsLocationsQueuesTasksGet = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesTasksGet {..} = + go + name + xgafv + accessToken + callback + responseView + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesTasksGetResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/List.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/List.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/List.hs @@ -0,0 +1,134 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Tasks.List +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists the tasks in a queue. By default, only the BASIC view is retrieved due to performance considerations; response_view controls the subset of information which is returned. The tasks may be returned in any order. The ordering may change at any time. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.tasks.list@. +module Gogol.CloudTasks.Projects.Locations.Queues.Tasks.List + ( -- * Resource + CloudTasksProjectsLocationsQueuesTasksListResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesTasksList (..), + newCloudTasksProjectsLocationsQueuesTasksList, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.tasks.list@ method which the +-- 'CloudTasksProjectsLocationsQueuesTasksList' request conforms to. +type CloudTasksProjectsLocationsQueuesTasksListResource = + "v2" + Core.:> Core.Capture "parent" Core.Text + Core.:> "tasks" + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "pageSize" Core.Int32 + Core.:> Core.QueryParam "pageToken" Core.Text + Core.:> Core.QueryParam + "responseView" + ProjectsLocationsQueuesTasksListResponseView + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.Get '[Core.JSON] ListTasksResponse + +-- | Lists the tasks in a queue. By default, only the BASIC view is retrieved due to performance considerations; response_view controls the subset of information which is returned. The tasks may be returned in any order. The ordering may change at any time. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesTasksList' smart constructor. +data CloudTasksProjectsLocationsQueuesTasksList = CloudTasksProjectsLocationsQueuesTasksList + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Maximum page size. Fewer tasks than requested might be returned, even if more tasks exist; use next/page/token in the response to determine if more tasks exist. The maximum page size is 1000. If unspecified, the page size will be the maximum. + pageSize :: (Core.Maybe Core.Int32), + -- | A token identifying the page of results to return. To request the first page results, page/token must be empty. To request the next page of results, page/token must be the value of next/page/token returned from the previous call to ListTasks method. The page token is valid for only 2 hours. + pageToken :: (Core.Maybe Core.Text), + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ + parent :: Core.Text, + -- | The response/view specifies which subset of the Task will be returned. By default response/view is BASIC; not all information is retrieved by default because some data, such as payloads, might be desirable to return only when needed because of its large size or because of the sensitivity of data that it contains. Authorization for FULL requires @cloudtasks.tasks.fullView@ permission on the Task resource. + responseView :: (Core.Maybe ProjectsLocationsQueuesTasksListResponseView), + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesTasksList' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesTasksList :: + -- | Required. The queue name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID@ See 'parent'. + Core.Text -> + CloudTasksProjectsLocationsQueuesTasksList +newCloudTasksProjectsLocationsQueuesTasksList parent = + CloudTasksProjectsLocationsQueuesTasksList + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + pageSize = Core.Nothing, + pageToken = Core.Nothing, + parent = parent, + responseView = Core.Nothing, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsQueuesTasksList + where + type + Rs CloudTasksProjectsLocationsQueuesTasksList = + ListTasksResponse + type + Scopes CloudTasksProjectsLocationsQueuesTasksList = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesTasksList {..} = + go + parent + xgafv + accessToken + callback + pageSize + pageToken + responseView + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesTasksListResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Run.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Run.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/Tasks/Run.hs @@ -0,0 +1,121 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Run +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Forces a task to run now. When this method is called, Cloud Tasks will dispatch the task, even if the task is already running, the queue has reached its RateLimits or is PAUSED. This command is meant to be used for manual debugging. For example, RunTask can be used to retry a failed task after a fix has been made or to manually force a task to be dispatched now. If Cloud Tasks receives a successful response from the task\'s target, then the task will be deleted; otherwise the task\'s schedule/time will be reset to the time that RunTask was called plus the retry delay specified in the queue\'s RetryConfig. RunTask returns NOT/FOUND when it is called on a task that has already succeeded or permanently failed. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.tasks.run@. +module Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Run + ( -- * Resource + CloudTasksProjectsLocationsQueuesTasksRunResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesTasksRun (..), + newCloudTasksProjectsLocationsQueuesTasksRun, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.tasks.run@ method which the +-- 'CloudTasksProjectsLocationsQueuesTasksRun' request conforms to. +type CloudTasksProjectsLocationsQueuesTasksRunResource = + "v2" + Core.:> Core.CaptureMode "name" "run" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] RunTaskRequest + Core.:> Core.Post '[Core.JSON] Task + +-- | Forces a task to run now. When this method is called, Cloud Tasks will dispatch the task, even if the task is already running, the queue has reached its RateLimits or is PAUSED. This command is meant to be used for manual debugging. For example, RunTask can be used to retry a failed task after a fix has been made or to manually force a task to be dispatched now. If Cloud Tasks receives a successful response from the task\'s target, then the task will be deleted; otherwise the task\'s schedule/time will be reset to the time that RunTask was called plus the retry delay specified in the queue\'s RetryConfig. RunTask returns NOT/FOUND when it is called on a task that has already succeeded or permanently failed. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesTasksRun' smart constructor. +data CloudTasksProjectsLocationsQueuesTasksRun = CloudTasksProjectsLocationsQueuesTasksRun + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Required. The task name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID@ + name :: Core.Text, + -- | Multipart request metadata. + payload :: RunTaskRequest, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesTasksRun' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesTasksRun :: + -- | Required. The task name. For example: @projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID@ See 'name'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + RunTaskRequest -> + CloudTasksProjectsLocationsQueuesTasksRun +newCloudTasksProjectsLocationsQueuesTasksRun name payload = + CloudTasksProjectsLocationsQueuesTasksRun + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + payload = payload, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsQueuesTasksRun + where + type Rs CloudTasksProjectsLocationsQueuesTasksRun = Task + type + Scopes CloudTasksProjectsLocationsQueuesTasksRun = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsQueuesTasksRun {..} = + go + name + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsQueuesTasksRunResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/Queues/TestIamPermissions.hs b/gen/Gogol/CloudTasks/Projects/Locations/Queues/TestIamPermissions.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/Queues/TestIamPermissions.hs @@ -0,0 +1,128 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.Queues.TestIamPermissions +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns permissions that a caller has on a Queue. If the resource does not exist, this will return an empty set of permissions, not a NOT_FOUND error. Note: This operation is designed to be used for building permission-aware UIs and command-line tools, not for authorization checking. This operation may \"fail open\" without warning. +-- +-- /See:/ for @cloudtasks.projects.locations.queues.testIamPermissions@. +module Gogol.CloudTasks.Projects.Locations.Queues.TestIamPermissions + ( -- * Resource + CloudTasksProjectsLocationsQueuesTestIamPermissionsResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsQueuesTestIamPermissions (..), + newCloudTasksProjectsLocationsQueuesTestIamPermissions, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.queues.testIamPermissions@ method which the +-- 'CloudTasksProjectsLocationsQueuesTestIamPermissions' request conforms to. +type CloudTasksProjectsLocationsQueuesTestIamPermissionsResource = + "v2" + Core.:> Core.CaptureMode "resource" "testIamPermissions" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] TestIamPermissionsRequest + Core.:> Core.Post '[Core.JSON] TestIamPermissionsResponse + +-- | Returns permissions that a caller has on a Queue. If the resource does not exist, this will return an empty set of permissions, not a NOT_FOUND error. Note: This operation is designed to be used for building permission-aware UIs and command-line tools, not for authorization checking. This operation may \"fail open\" without warning. +-- +-- /See:/ 'newCloudTasksProjectsLocationsQueuesTestIamPermissions' smart constructor. +data CloudTasksProjectsLocationsQueuesTestIamPermissions = CloudTasksProjectsLocationsQueuesTestIamPermissions + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Multipart request metadata. + payload :: TestIamPermissionsRequest, + -- | REQUIRED: The resource for which the policy detail is being requested. See for the appropriate value for this field. + resource :: Core.Text, + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsQueuesTestIamPermissions' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsQueuesTestIamPermissions :: + -- | Multipart request metadata. See 'payload'. + TestIamPermissionsRequest -> + -- | REQUIRED: The resource for which the policy detail is being requested. See for the appropriate value for this field. See 'resource'. + Core.Text -> + CloudTasksProjectsLocationsQueuesTestIamPermissions +newCloudTasksProjectsLocationsQueuesTestIamPermissions + payload + resource = + CloudTasksProjectsLocationsQueuesTestIamPermissions + { xgafv = + Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + payload = payload, + resource = resource, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsQueuesTestIamPermissions + where + type + Rs CloudTasksProjectsLocationsQueuesTestIamPermissions = + TestIamPermissionsResponse + type + Scopes CloudTasksProjectsLocationsQueuesTestIamPermissions = + '[CloudPlatform'FullControl] + requestClient + CloudTasksProjectsLocationsQueuesTestIamPermissions {..} = + go + resource + xgafv + accessToken + callback + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy + CloudTasksProjectsLocationsQueuesTestIamPermissionsResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Projects/Locations/UpdateCmekConfig.hs b/gen/Gogol/CloudTasks/Projects/Locations/UpdateCmekConfig.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Projects/Locations/UpdateCmekConfig.hs @@ -0,0 +1,126 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Projects.Locations.UpdateCmekConfig +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates or Updates a CMEK config. Updates the Customer Managed Encryption Key assotiated with the Cloud Tasks location (Creates if the key does not already exist). All new tasks created in the location will be encrypted at-rest with the KMS-key provided in the config. +-- +-- /See:/ for @cloudtasks.projects.locations.updateCmekConfig@. +module Gogol.CloudTasks.Projects.Locations.UpdateCmekConfig + ( -- * Resource + CloudTasksProjectsLocationsUpdateCmekConfigResource, + + -- ** Constructing a Request + CloudTasksProjectsLocationsUpdateCmekConfig (..), + newCloudTasksProjectsLocationsUpdateCmekConfig, + ) +where + +import Gogol.CloudTasks.Types +import Gogol.Prelude qualified as Core + +-- | A resource alias for @cloudtasks.projects.locations.updateCmekConfig@ method which the +-- 'CloudTasksProjectsLocationsUpdateCmekConfig' request conforms to. +type CloudTasksProjectsLocationsUpdateCmekConfigResource = + "v2" + Core.:> Core.Capture "name" Core.Text + Core.:> Core.QueryParam "$.xgafv" Xgafv + Core.:> Core.QueryParam "access_token" Core.Text + Core.:> Core.QueryParam "callback" Core.Text + Core.:> Core.QueryParam "updateMask" Core.FieldMask + Core.:> Core.QueryParam "uploadType" Core.Text + Core.:> Core.QueryParam "upload_protocol" Core.Text + Core.:> Core.QueryParam "alt" Core.AltJSON + Core.:> Core.ReqBody '[Core.JSON] CmekConfig + Core.:> Core.Patch '[Core.JSON] CmekConfig + +-- | Creates or Updates a CMEK config. Updates the Customer Managed Encryption Key assotiated with the Cloud Tasks location (Creates if the key does not already exist). All new tasks created in the location will be encrypted at-rest with the KMS-key provided in the config. +-- +-- /See:/ 'newCloudTasksProjectsLocationsUpdateCmekConfig' smart constructor. +data CloudTasksProjectsLocationsUpdateCmekConfig = CloudTasksProjectsLocationsUpdateCmekConfig + { -- | V1 error format. + xgafv :: (Core.Maybe Xgafv), + -- | OAuth access token. + accessToken :: (Core.Maybe Core.Text), + -- | JSONP + callback :: (Core.Maybe Core.Text), + -- | Output only. The config resource name which includes the project and location and must end in \'cmekConfig\', in the format projects\/PROJECT/ID\/locations\/LOCATION/ID\/cmekConfig\` + name :: Core.Text, + -- | Multipart request metadata. + payload :: CmekConfig, + -- | List of fields to be updated in this request. + updateMask :: (Core.Maybe Core.FieldMask), + -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). + uploadType :: (Core.Maybe Core.Text), + -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). + uploadProtocol :: (Core.Maybe Core.Text) + } + deriving (Core.Eq, Core.Show, Core.Generic) + +-- | Creates a value of 'CloudTasksProjectsLocationsUpdateCmekConfig' with the minimum fields required to make a request. +newCloudTasksProjectsLocationsUpdateCmekConfig :: + -- | Output only. The config resource name which includes the project and location and must end in \'cmekConfig\', in the format projects\/PROJECT/ID\/locations\/LOCATION/ID\/cmekConfig\` See 'name'. + Core.Text -> + -- | Multipart request metadata. See 'payload'. + CmekConfig -> + CloudTasksProjectsLocationsUpdateCmekConfig +newCloudTasksProjectsLocationsUpdateCmekConfig name payload = + CloudTasksProjectsLocationsUpdateCmekConfig + { xgafv = Core.Nothing, + accessToken = Core.Nothing, + callback = Core.Nothing, + name = name, + payload = payload, + updateMask = Core.Nothing, + uploadType = Core.Nothing, + uploadProtocol = Core.Nothing + } + +instance + Core.GoogleRequest + CloudTasksProjectsLocationsUpdateCmekConfig + where + type Rs CloudTasksProjectsLocationsUpdateCmekConfig = CmekConfig + type + Scopes CloudTasksProjectsLocationsUpdateCmekConfig = + '[CloudPlatform'FullControl] + requestClient CloudTasksProjectsLocationsUpdateCmekConfig {..} = + go + name + xgafv + accessToken + callback + updateMask + uploadType + uploadProtocol + (Core.Just Core.AltJSON) + payload + cloudTasksService + where + go = + Core.buildClient + ( Core.Proxy :: + Core.Proxy CloudTasksProjectsLocationsUpdateCmekConfigResource + ) + Core.mempty diff --git a/gen/Gogol/CloudTasks/Types.hs b/gen/Gogol/CloudTasks/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Gogol/CloudTasks/Types.hs @@ -0,0 +1,270 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE ImportQualifiedPost #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- | +-- Module : Gogol.CloudTasks.Types +-- Copyright : (c) 2015-2025 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Toni Cebrián +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Gogol.CloudTasks.Types + ( -- * Configuration + cloudTasksService, + + -- * OAuth Scopes + CloudPlatform'FullControl, + + -- * Types + + -- ** Xgafv + Xgafv (..), + + -- ** AppEngineHttpRequest + AppEngineHttpRequest (..), + newAppEngineHttpRequest, + + -- ** AppEngineHttpRequest_Headers + AppEngineHttpRequest_Headers (..), + newAppEngineHttpRequest_Headers, + + -- ** AppEngineHttpRequest_HttpMethod + AppEngineHttpRequest_HttpMethod (..), + + -- ** AppEngineRouting + AppEngineRouting (..), + newAppEngineRouting, + + -- ** Attempt + Attempt (..), + newAttempt, + + -- ** Binding + Binding (..), + newBinding, + + -- ** BufferTaskRequest + BufferTaskRequest (..), + newBufferTaskRequest, + + -- ** BufferTaskResponse + BufferTaskResponse (..), + newBufferTaskResponse, + + -- ** CmekConfig + CmekConfig (..), + newCmekConfig, + + -- ** CreateTaskRequest + CreateTaskRequest (..), + newCreateTaskRequest, + + -- ** CreateTaskRequest_ResponseView + CreateTaskRequest_ResponseView (..), + + -- ** Empty + Empty (..), + newEmpty, + + -- ** Expr + Expr (..), + newExpr, + + -- ** GetIamPolicyRequest + GetIamPolicyRequest (..), + newGetIamPolicyRequest, + + -- ** GetPolicyOptions + GetPolicyOptions (..), + newGetPolicyOptions, + + -- ** Header + Header (..), + newHeader, + + -- ** HeaderOverride + HeaderOverride (..), + newHeaderOverride, + + -- ** HttpBody + HttpBody (..), + newHttpBody, + + -- ** HttpBody_ExtensionsItem + HttpBody_ExtensionsItem (..), + newHttpBody_ExtensionsItem, + + -- ** HttpRequest + HttpRequest (..), + newHttpRequest, + + -- ** HttpRequest_Headers + HttpRequest_Headers (..), + newHttpRequest_Headers, + + -- ** HttpRequest_HttpMethod + HttpRequest_HttpMethod (..), + + -- ** HttpTarget + HttpTarget (..), + newHttpTarget, + + -- ** HttpTarget_HttpMethod + HttpTarget_HttpMethod (..), + + -- ** ListLocationsResponse + ListLocationsResponse (..), + newListLocationsResponse, + + -- ** ListQueuesResponse + ListQueuesResponse (..), + newListQueuesResponse, + + -- ** ListTasksResponse + ListTasksResponse (..), + newListTasksResponse, + + -- ** Location + Location (..), + newLocation, + + -- ** Location_Labels + Location_Labels (..), + newLocation_Labels, + + -- ** Location_Metadata + Location_Metadata (..), + newLocation_Metadata, + + -- ** OAuthToken + OAuthToken (..), + newOAuthToken, + + -- ** OidcToken + OidcToken (..), + newOidcToken, + + -- ** PathOverride + PathOverride (..), + newPathOverride, + + -- ** PauseQueueRequest + PauseQueueRequest (..), + newPauseQueueRequest, + + -- ** Policy + Policy (..), + newPolicy, + + -- ** PurgeQueueRequest + PurgeQueueRequest (..), + newPurgeQueueRequest, + + -- ** QueryOverride + QueryOverride (..), + newQueryOverride, + + -- ** Queue + Queue (..), + newQueue, + + -- ** Queue_State + Queue_State (..), + + -- ** RateLimits + RateLimits (..), + newRateLimits, + + -- ** ResumeQueueRequest + ResumeQueueRequest (..), + newResumeQueueRequest, + + -- ** RetryConfig + RetryConfig (..), + newRetryConfig, + + -- ** RunTaskRequest + RunTaskRequest (..), + newRunTaskRequest, + + -- ** RunTaskRequest_ResponseView + RunTaskRequest_ResponseView (..), + + -- ** SetIamPolicyRequest + SetIamPolicyRequest (..), + newSetIamPolicyRequest, + + -- ** StackdriverLoggingConfig + StackdriverLoggingConfig (..), + newStackdriverLoggingConfig, + + -- ** Status + Status (..), + newStatus, + + -- ** Status_DetailsItem + Status_DetailsItem (..), + newStatus_DetailsItem, + + -- ** Task + Task (..), + newTask, + + -- ** Task_View + Task_View (..), + + -- ** TestIamPermissionsRequest + TestIamPermissionsRequest (..), + newTestIamPermissionsRequest, + + -- ** TestIamPermissionsResponse + TestIamPermissionsResponse (..), + newTestIamPermissionsResponse, + + -- ** UriOverride + UriOverride (..), + newUriOverride, + + -- ** UriOverride_Scheme + UriOverride_Scheme (..), + + -- ** UriOverride_UriOverrideEnforceMode + UriOverride_UriOverrideEnforceMode (..), + + -- ** ProjectsLocationsQueuesTasksGetResponseView + ProjectsLocationsQueuesTasksGetResponseView (..), + + -- ** ProjectsLocationsQueuesTasksListResponseView + ProjectsLocationsQueuesTasksListResponseView (..), + ) +where + +import Gogol.CloudTasks.Internal.Product +import Gogol.CloudTasks.Internal.Sum +import Gogol.Prelude qualified as Core + +-- | Default request referring to version @v2@ of the Cloud Tasks API. This contains the host and root path used as a starting point for constructing service requests. +cloudTasksService :: Core.ServiceConfig +cloudTasksService = + Core.defaultService + (Core.ServiceId "cloudtasks:v2") + "cloudtasks.googleapis.com" + +-- | See, edit, configure, and delete your Google Cloud data and see the email address for your Google Account. +type CloudPlatform'FullControl = + "https://www.googleapis.com/auth/cloud-platform" diff --git a/gen/Network/Google/CloudTasks.hs b/gen/Network/Google/CloudTasks.hs deleted file mode 100644 --- a/gen/Network/Google/CloudTasks.hs +++ /dev/null @@ -1,339 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE TypeOperators #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} - --- | --- Module : Network.Google.CloudTasks --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Manages the execution of large numbers of distributed requests. --- --- /See:/ -module Network.Google.CloudTasks - ( - -- * Service Configuration - cloudTasksService - - -- * OAuth Scopes - , cloudPlatformScope - - -- * API Declaration - , CloudTasksAPI - - -- * Resources - - -- ** cloudtasks.projects.locations.get - , module Network.Google.Resource.CloudTasks.Projects.Locations.Get - - -- ** cloudtasks.projects.locations.list - , module Network.Google.Resource.CloudTasks.Projects.Locations.List - - -- ** cloudtasks.projects.locations.queues.create - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Create - - -- ** cloudtasks.projects.locations.queues.delete - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Delete - - -- ** cloudtasks.projects.locations.queues.get - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Get - - -- ** cloudtasks.projects.locations.queues.getIamPolicy - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.GetIAMPolicy - - -- ** cloudtasks.projects.locations.queues.list - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.List - - -- ** cloudtasks.projects.locations.queues.patch - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Patch - - -- ** cloudtasks.projects.locations.queues.pause - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Pause - - -- ** cloudtasks.projects.locations.queues.purge - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Purge - - -- ** cloudtasks.projects.locations.queues.resume - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Resume - - -- ** cloudtasks.projects.locations.queues.setIamPolicy - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.SetIAMPolicy - - -- ** cloudtasks.projects.locations.queues.tasks.create - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Create - - -- ** cloudtasks.projects.locations.queues.tasks.delete - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Delete - - -- ** cloudtasks.projects.locations.queues.tasks.get - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Get - - -- ** cloudtasks.projects.locations.queues.tasks.list - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.List - - -- ** cloudtasks.projects.locations.queues.tasks.run - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Run - - -- ** cloudtasks.projects.locations.queues.testIamPermissions - , module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.TestIAMPermissions - - -- * Types - - -- ** RateLimits - , RateLimits - , rateLimits - , rlMaxConcurrentDispatches - , rlMaxDispatchesPerSecond - , rlMaxBurstSize - - -- ** Status - , Status - , status - , sDetails - , sCode - , sMessage - - -- ** Expr - , Expr - , expr - , eLocation - , eExpression - , eTitle - , eDescription - - -- ** ListLocationsResponse - , ListLocationsResponse - , listLocationsResponse - , llrNextPageToken - , llrLocations - - -- ** GetIAMPolicyRequest - , GetIAMPolicyRequest - , getIAMPolicyRequest - - -- ** RetryConfig - , RetryConfig - , retryConfig - , rcMaxDoublings - , rcMaxRetryDuration - , rcMaxAttempts - , rcMaxBackoff - , rcMinBackoff - - -- ** RunTaskRequest - , RunTaskRequest - , runTaskRequest - , rtrResponseView - - -- ** Location - , Location - , location - , lName - , lMetadata - , lDisplayName - , lLabels - , lLocationId - - -- ** Empty - , Empty - , empty - - -- ** CreateTaskRequest - , CreateTaskRequest - , createTaskRequest - , ctrResponseView - , ctrTask - - -- ** TaskView - , TaskView (..) - - -- ** ListQueuesResponse - , ListQueuesResponse - , listQueuesResponse - , lqrNextPageToken - , lqrQueues - - -- ** StatusDetailsItem - , StatusDetailsItem - , statusDetailsItem - , sdiAddtional - - -- ** QueueState - , QueueState (..) - - -- ** CreateTaskRequestResponseView - , CreateTaskRequestResponseView (..) - - -- ** SetIAMPolicyRequest - , SetIAMPolicyRequest - , setIAMPolicyRequest - , siprPolicy - - -- ** Queue - , Queue - , queue - , qRateLimits - , qAppEngineRoutingOverride - , qState - , qRetryConfig - , qName - , qPurgeTime - - -- ** AppEngineHTTPRequestHTTPMethod - , AppEngineHTTPRequestHTTPMethod (..) - - -- ** ListTasksResponse - , ListTasksResponse - , listTasksResponse - , ltrNextPageToken - , ltrTasks - - -- ** AppEngineHTTPRequestHeaders - , AppEngineHTTPRequestHeaders - , appEngineHTTPRequestHeaders - , aehttprhAddtional - - -- ** Xgafv - , Xgafv (..) - - -- ** PauseQueueRequest - , PauseQueueRequest - , pauseQueueRequest - - -- ** TestIAMPermissionsRequest - , TestIAMPermissionsRequest - , testIAMPermissionsRequest - , tiprPermissions - - -- ** Attempt - , Attempt - , attempt - , aResponseStatus - , aScheduleTime - , aDispatchTime - , aResponseTime - - -- ** PurgeQueueRequest - , PurgeQueueRequest - , purgeQueueRequest - - -- ** Task - , Task - , task - , tLastAttempt - , tDispatchDeadline - , tScheduleTime - , tName - , tFirstAttempt - , tView - , tResponseCount - , tDispatchCount - , tAppEngineHTTPRequest - , tCreateTime - - -- ** TestIAMPermissionsResponse - , TestIAMPermissionsResponse - , testIAMPermissionsResponse - , tiamprPermissions - - -- ** Policy - , Policy - , policy - , pEtag - , pVersion - , pBindings - - -- ** LocationLabels - , LocationLabels - , locationLabels - , llAddtional - - -- ** LocationMetadata - , LocationMetadata - , locationMetadata - , lmAddtional - - -- ** RunTaskRequestResponseView - , RunTaskRequestResponseView (..) - - -- ** AppEngineRouting - , AppEngineRouting - , appEngineRouting - , aerService - , aerVersion - , aerHost - , aerInstance - - -- ** AppEngineHTTPRequest - , AppEngineHTTPRequest - , appEngineHTTPRequest - , aehttprHTTPMethod - , aehttprRelativeURI - , aehttprBody - , aehttprHeaders - , aehttprAppEngineRouting - - -- ** ResumeQueueRequest - , ResumeQueueRequest - , resumeQueueRequest - - -- ** Binding - , Binding - , binding - , bMembers - , bRole - , bCondition - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude -import Network.Google.Resource.CloudTasks.Projects.Locations.Get -import Network.Google.Resource.CloudTasks.Projects.Locations.List -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Create -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Delete -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Get -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.GetIAMPolicy -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.List -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Patch -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Pause -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Purge -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Resume -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.SetIAMPolicy -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Create -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Delete -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Get -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.List -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Run -import Network.Google.Resource.CloudTasks.Projects.Locations.Queues.TestIAMPermissions - -{- $resources -TODO --} - --- | Represents the entirety of the methods and resources available for the Cloud Tasks API service. -type CloudTasksAPI = - ProjectsLocationsQueuesTasksListResource :<|> - ProjectsLocationsQueuesTasksGetResource - :<|> ProjectsLocationsQueuesTasksRunResource - :<|> ProjectsLocationsQueuesTasksCreateResource - :<|> ProjectsLocationsQueuesTasksDeleteResource - :<|> ProjectsLocationsQueuesListResource - :<|> ProjectsLocationsQueuesGetIAMPolicyResource - :<|> ProjectsLocationsQueuesPatchResource - :<|> ProjectsLocationsQueuesGetResource - :<|> ProjectsLocationsQueuesCreateResource - :<|> ProjectsLocationsQueuesSetIAMPolicyResource - :<|> ProjectsLocationsQueuesPauseResource - :<|> ProjectsLocationsQueuesPurgeResource - :<|> - ProjectsLocationsQueuesTestIAMPermissionsResource - :<|> ProjectsLocationsQueuesDeleteResource - :<|> ProjectsLocationsQueuesResumeResource - :<|> ProjectsLocationsListResource - :<|> ProjectsLocationsGetResource diff --git a/gen/Network/Google/CloudTasks/Types.hs b/gen/Network/Google/CloudTasks/Types.hs deleted file mode 100644 --- a/gen/Network/Google/CloudTasks/Types.hs +++ /dev/null @@ -1,243 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.CloudTasks.Types --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.Google.CloudTasks.Types - ( - -- * Service Configuration - cloudTasksService - - -- * OAuth Scopes - , cloudPlatformScope - - -- * RateLimits - , RateLimits - , rateLimits - , rlMaxConcurrentDispatches - , rlMaxDispatchesPerSecond - , rlMaxBurstSize - - -- * Status - , Status - , status - , sDetails - , sCode - , sMessage - - -- * Expr - , Expr - , expr - , eLocation - , eExpression - , eTitle - , eDescription - - -- * ListLocationsResponse - , ListLocationsResponse - , listLocationsResponse - , llrNextPageToken - , llrLocations - - -- * GetIAMPolicyRequest - , GetIAMPolicyRequest - , getIAMPolicyRequest - - -- * RetryConfig - , RetryConfig - , retryConfig - , rcMaxDoublings - , rcMaxRetryDuration - , rcMaxAttempts - , rcMaxBackoff - , rcMinBackoff - - -- * RunTaskRequest - , RunTaskRequest - , runTaskRequest - , rtrResponseView - - -- * Location - , Location - , location - , lName - , lMetadata - , lDisplayName - , lLabels - , lLocationId - - -- * Empty - , Empty - , empty - - -- * CreateTaskRequest - , CreateTaskRequest - , createTaskRequest - , ctrResponseView - , ctrTask - - -- * TaskView - , TaskView (..) - - -- * ListQueuesResponse - , ListQueuesResponse - , listQueuesResponse - , lqrNextPageToken - , lqrQueues - - -- * StatusDetailsItem - , StatusDetailsItem - , statusDetailsItem - , sdiAddtional - - -- * QueueState - , QueueState (..) - - -- * CreateTaskRequestResponseView - , CreateTaskRequestResponseView (..) - - -- * SetIAMPolicyRequest - , SetIAMPolicyRequest - , setIAMPolicyRequest - , siprPolicy - - -- * Queue - , Queue - , queue - , qRateLimits - , qAppEngineRoutingOverride - , qState - , qRetryConfig - , qName - , qPurgeTime - - -- * AppEngineHTTPRequestHTTPMethod - , AppEngineHTTPRequestHTTPMethod (..) - - -- * ListTasksResponse - , ListTasksResponse - , listTasksResponse - , ltrNextPageToken - , ltrTasks - - -- * AppEngineHTTPRequestHeaders - , AppEngineHTTPRequestHeaders - , appEngineHTTPRequestHeaders - , aehttprhAddtional - - -- * Xgafv - , Xgafv (..) - - -- * PauseQueueRequest - , PauseQueueRequest - , pauseQueueRequest - - -- * TestIAMPermissionsRequest - , TestIAMPermissionsRequest - , testIAMPermissionsRequest - , tiprPermissions - - -- * Attempt - , Attempt - , attempt - , aResponseStatus - , aScheduleTime - , aDispatchTime - , aResponseTime - - -- * PurgeQueueRequest - , PurgeQueueRequest - , purgeQueueRequest - - -- * Task - , Task - , task - , tLastAttempt - , tDispatchDeadline - , tScheduleTime - , tName - , tFirstAttempt - , tView - , tResponseCount - , tDispatchCount - , tAppEngineHTTPRequest - , tCreateTime - - -- * TestIAMPermissionsResponse - , TestIAMPermissionsResponse - , testIAMPermissionsResponse - , tiamprPermissions - - -- * Policy - , Policy - , policy - , pEtag - , pVersion - , pBindings - - -- * LocationLabels - , LocationLabels - , locationLabels - , llAddtional - - -- * LocationMetadata - , LocationMetadata - , locationMetadata - , lmAddtional - - -- * RunTaskRequestResponseView - , RunTaskRequestResponseView (..) - - -- * AppEngineRouting - , AppEngineRouting - , appEngineRouting - , aerService - , aerVersion - , aerHost - , aerInstance - - -- * AppEngineHTTPRequest - , AppEngineHTTPRequest - , appEngineHTTPRequest - , aehttprHTTPMethod - , aehttprRelativeURI - , aehttprBody - , aehttprHeaders - , aehttprAppEngineRouting - - -- * ResumeQueueRequest - , ResumeQueueRequest - , resumeQueueRequest - - -- * Binding - , Binding - , binding - , bMembers - , bRole - , bCondition - ) where - -import Network.Google.CloudTasks.Types.Product -import Network.Google.CloudTasks.Types.Sum -import Network.Google.Prelude - --- | Default request referring to version 'v2' of the Cloud Tasks API. This contains the host and root path used as a starting point for constructing service requests. -cloudTasksService :: ServiceConfig -cloudTasksService - = defaultService (ServiceId "cloudtasks:v2") - "cloudtasks.googleapis.com" - --- | View and manage your data across Google Cloud Platform services -cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] -cloudPlatformScope = Proxy diff --git a/gen/Network/Google/CloudTasks/Types/Product.hs b/gen/Network/Google/CloudTasks/Types/Product.hs deleted file mode 100644 --- a/gen/Network/Google/CloudTasks/Types/Product.hs +++ /dev/null @@ -1,2056 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} - -{-# OPTIONS_GHC -fno-warn-unused-binds #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.CloudTasks.Types.Product --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.Google.CloudTasks.Types.Product where - -import Network.Google.CloudTasks.Types.Sum -import Network.Google.Prelude - --- | Rate limits. This message determines the maximum rate that tasks can be --- dispatched by a queue, regardless of whether the dispatch is a first --- task attempt or a retry. Note: The debugging command, RunTask, will run --- a task even if the queue has reached its RateLimits. --- --- /See:/ 'rateLimits' smart constructor. -data RateLimits = - RateLimits' - { _rlMaxConcurrentDispatches :: !(Maybe (Textual Int32)) - , _rlMaxDispatchesPerSecond :: !(Maybe (Textual Double)) - , _rlMaxBurstSize :: !(Maybe (Textual Int32)) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RateLimits' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rlMaxConcurrentDispatches' --- --- * 'rlMaxDispatchesPerSecond' --- --- * 'rlMaxBurstSize' -rateLimits - :: RateLimits -rateLimits = - RateLimits' - { _rlMaxConcurrentDispatches = Nothing - , _rlMaxDispatchesPerSecond = Nothing - , _rlMaxBurstSize = Nothing - } - - --- | The maximum number of concurrent tasks that Cloud Tasks allows to be --- dispatched for this queue. After this threshold has been reached, Cloud --- Tasks stops dispatching tasks until the number of concurrent requests --- decreases. If unspecified when the queue is created, Cloud Tasks will --- pick the default. The maximum allowed value is 5,000. This field has the --- same meaning as [max_concurrent_requests in --- queue.yaml\/xml](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/queueref#max_concurrent_requests). -rlMaxConcurrentDispatches :: Lens' RateLimits (Maybe Int32) -rlMaxConcurrentDispatches - = lens _rlMaxConcurrentDispatches - (\ s a -> s{_rlMaxConcurrentDispatches = a}) - . mapping _Coerce - --- | The maximum rate at which tasks are dispatched from this queue. If --- unspecified when the queue is created, Cloud Tasks will pick the --- default. * For App Engine queues, the maximum allowed value is 500. This --- field has the same meaning as [rate in --- queue.yaml\/xml](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/queueref#rate). -rlMaxDispatchesPerSecond :: Lens' RateLimits (Maybe Double) -rlMaxDispatchesPerSecond - = lens _rlMaxDispatchesPerSecond - (\ s a -> s{_rlMaxDispatchesPerSecond = a}) - . mapping _Coerce - --- | Output only. The max burst size. Max burst size limits how fast tasks in --- queue are processed when many tasks are in the queue and the rate is --- high. This field allows the queue to have a high rate so processing --- starts shortly after a task is enqueued, but still limits resource usage --- when many tasks are enqueued in a short period of time. The [token --- bucket](https:\/\/wikipedia.org\/wiki\/Token_Bucket) algorithm is used --- to control the rate of task dispatches. Each queue has a token bucket --- that holds tokens, up to the maximum specified by \`max_burst_size\`. --- Each time a task is dispatched, a token is removed from the bucket. --- Tasks will be dispatched until the queue\'s bucket runs out of tokens. --- The bucket will be continuously refilled with new tokens based on --- max_dispatches_per_second. Cloud Tasks will pick the value of --- \`max_burst_size\` based on the value of max_dispatches_per_second. For --- App Engine queues that were created or updated using --- \`queue.yaml\/xml\`, \`max_burst_size\` is equal to --- [bucket_size](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/queueref#bucket_size). --- Since \`max_burst_size\` is output only, if UpdateQueue is called on a --- queue created by \`queue.yaml\/xml\`, \`max_burst_size\` will be reset --- based on the value of max_dispatches_per_second, regardless of whether --- max_dispatches_per_second is updated. -rlMaxBurstSize :: Lens' RateLimits (Maybe Int32) -rlMaxBurstSize - = lens _rlMaxBurstSize - (\ s a -> s{_rlMaxBurstSize = a}) - . mapping _Coerce - -instance FromJSON RateLimits where - parseJSON - = withObject "RateLimits" - (\ o -> - RateLimits' <$> - (o .:? "maxConcurrentDispatches") <*> - (o .:? "maxDispatchesPerSecond") - <*> (o .:? "maxBurstSize")) - -instance ToJSON RateLimits where - toJSON RateLimits'{..} - = object - (catMaybes - [("maxConcurrentDispatches" .=) <$> - _rlMaxConcurrentDispatches, - ("maxDispatchesPerSecond" .=) <$> - _rlMaxDispatchesPerSecond, - ("maxBurstSize" .=) <$> _rlMaxBurstSize]) - --- | The \`Status\` type defines a logical error model that is suitable for --- different programming environments, including REST APIs and RPC APIs. It --- is used by [gRPC](https:\/\/github.com\/grpc). The error model is --- designed to be: - Simple to use and understand for most users - Flexible --- enough to meet unexpected needs # Overview The \`Status\` message --- contains three pieces of data: error code, error message, and error --- details. The error code should be an enum value of google.rpc.Code, but --- it may accept additional error codes if needed. The error message should --- be a developer-facing English message that helps developers *understand* --- and *resolve* the error. If a localized user-facing error message is --- needed, put the localized message in the error details or localize it in --- the client. The optional error details may contain arbitrary information --- about the error. There is a predefined set of error detail types in the --- package \`google.rpc\` that can be used for common error conditions. # --- Language mapping The \`Status\` message is the logical representation of --- the error model, but it is not necessarily the actual wire format. When --- the \`Status\` message is exposed in different client libraries and --- different wire protocols, it can be mapped differently. For example, it --- will likely be mapped to some exceptions in Java, but more likely mapped --- to some error codes in C. # Other uses The error model and the --- \`Status\` message can be used in a variety of environments, either with --- or without APIs, to provide a consistent developer experience across --- different environments. Example uses of this error model include: - --- Partial errors. If a service needs to return partial errors to the --- client, it may embed the \`Status\` in the normal response to indicate --- the partial errors. - Workflow errors. A typical workflow has multiple --- steps. Each step may have a \`Status\` message for error reporting. - --- Batch operations. If a client uses batch request and batch response, the --- \`Status\` message should be used directly inside batch response, one --- for each error sub-response. - Asynchronous operations. If an API call --- embeds asynchronous operation results in its response, the status of --- those operations should be represented directly using the \`Status\` --- message. - Logging. If some API errors are stored in logs, the message --- \`Status\` could be used directly after any stripping needed for --- security\/privacy reasons. --- --- /See:/ 'status' smart constructor. -data Status = - Status' - { _sDetails :: !(Maybe [StatusDetailsItem]) - , _sCode :: !(Maybe (Textual Int32)) - , _sMessage :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Status' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sDetails' --- --- * 'sCode' --- --- * 'sMessage' -status - :: Status -status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} - - --- | A list of messages that carry the error details. There is a common set --- of message types for APIs to use. -sDetails :: Lens' Status [StatusDetailsItem] -sDetails - = lens _sDetails (\ s a -> s{_sDetails = a}) . - _Default - . _Coerce - --- | The status code, which should be an enum value of google.rpc.Code. -sCode :: Lens' Status (Maybe Int32) -sCode - = lens _sCode (\ s a -> s{_sCode = a}) . - mapping _Coerce - --- | A developer-facing error message, which should be in English. Any --- user-facing error message should be localized and sent in the --- google.rpc.Status.details field, or localized by the client. -sMessage :: Lens' Status (Maybe Text) -sMessage = lens _sMessage (\ s a -> s{_sMessage = a}) - -instance FromJSON Status where - parseJSON - = withObject "Status" - (\ o -> - Status' <$> - (o .:? "details" .!= mempty) <*> (o .:? "code") <*> - (o .:? "message")) - -instance ToJSON Status where - toJSON Status'{..} - = object - (catMaybes - [("details" .=) <$> _sDetails, - ("code" .=) <$> _sCode, - ("message" .=) <$> _sMessage]) - --- | Represents an expression text. Example: title: \"User account presence\" --- description: \"Determines whether the request has a user account\" --- expression: \"size(request.user) > 0\" --- --- /See:/ 'expr' smart constructor. -data Expr = - Expr' - { _eLocation :: !(Maybe Text) - , _eExpression :: !(Maybe Text) - , _eTitle :: !(Maybe Text) - , _eDescription :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Expr' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'eLocation' --- --- * 'eExpression' --- --- * 'eTitle' --- --- * 'eDescription' -expr - :: Expr -expr = - Expr' - { _eLocation = Nothing - , _eExpression = Nothing - , _eTitle = Nothing - , _eDescription = Nothing - } - - --- | An optional string indicating the location of the expression for error --- reporting, e.g. a file name and a position in the file. -eLocation :: Lens' Expr (Maybe Text) -eLocation - = lens _eLocation (\ s a -> s{_eLocation = a}) - --- | Textual representation of an expression in Common Expression Language --- syntax. The application context of the containing message determines --- which well-known feature set of CEL is supported. -eExpression :: Lens' Expr (Maybe Text) -eExpression - = lens _eExpression (\ s a -> s{_eExpression = a}) - --- | An optional title for the expression, i.e. a short string describing its --- purpose. This can be used e.g. in UIs which allow to enter the --- expression. -eTitle :: Lens' Expr (Maybe Text) -eTitle = lens _eTitle (\ s a -> s{_eTitle = a}) - --- | An optional description of the expression. This is a longer text which --- describes the expression, e.g. when hovered over it in a UI. -eDescription :: Lens' Expr (Maybe Text) -eDescription - = lens _eDescription (\ s a -> s{_eDescription = a}) - -instance FromJSON Expr where - parseJSON - = withObject "Expr" - (\ o -> - Expr' <$> - (o .:? "location") <*> (o .:? "expression") <*> - (o .:? "title") - <*> (o .:? "description")) - -instance ToJSON Expr where - toJSON Expr'{..} - = object - (catMaybes - [("location" .=) <$> _eLocation, - ("expression" .=) <$> _eExpression, - ("title" .=) <$> _eTitle, - ("description" .=) <$> _eDescription]) - --- | The response message for Locations.ListLocations. --- --- /See:/ 'listLocationsResponse' smart constructor. -data ListLocationsResponse = - ListLocationsResponse' - { _llrNextPageToken :: !(Maybe Text) - , _llrLocations :: !(Maybe [Location]) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListLocationsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'llrNextPageToken' --- --- * 'llrLocations' -listLocationsResponse - :: ListLocationsResponse -listLocationsResponse = - ListLocationsResponse' {_llrNextPageToken = Nothing, _llrLocations = Nothing} - - --- | The standard List next-page token. -llrNextPageToken :: Lens' ListLocationsResponse (Maybe Text) -llrNextPageToken - = lens _llrNextPageToken - (\ s a -> s{_llrNextPageToken = a}) - --- | A list of locations that matches the specified filter in the request. -llrLocations :: Lens' ListLocationsResponse [Location] -llrLocations - = lens _llrLocations (\ s a -> s{_llrLocations = a}) - . _Default - . _Coerce - -instance FromJSON ListLocationsResponse where - parseJSON - = withObject "ListLocationsResponse" - (\ o -> - ListLocationsResponse' <$> - (o .:? "nextPageToken") <*> - (o .:? "locations" .!= mempty)) - -instance ToJSON ListLocationsResponse where - toJSON ListLocationsResponse'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _llrNextPageToken, - ("locations" .=) <$> _llrLocations]) - --- | Request message for \`GetIamPolicy\` method. --- --- /See:/ 'getIAMPolicyRequest' smart constructor. -data GetIAMPolicyRequest = - GetIAMPolicyRequest' - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetIAMPolicyRequest' with the minimum fields required to make a request. --- -getIAMPolicyRequest - :: GetIAMPolicyRequest -getIAMPolicyRequest = GetIAMPolicyRequest' - - -instance FromJSON GetIAMPolicyRequest where - parseJSON - = withObject "GetIAMPolicyRequest" - (\ o -> pure GetIAMPolicyRequest') - -instance ToJSON GetIAMPolicyRequest where - toJSON = const emptyObject - --- | Retry config. These settings determine when a failed task attempt is --- retried. --- --- /See:/ 'retryConfig' smart constructor. -data RetryConfig = - RetryConfig' - { _rcMaxDoublings :: !(Maybe (Textual Int32)) - , _rcMaxRetryDuration :: !(Maybe GDuration) - , _rcMaxAttempts :: !(Maybe (Textual Int32)) - , _rcMaxBackoff :: !(Maybe GDuration) - , _rcMinBackoff :: !(Maybe GDuration) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RetryConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcMaxDoublings' --- --- * 'rcMaxRetryDuration' --- --- * 'rcMaxAttempts' --- --- * 'rcMaxBackoff' --- --- * 'rcMinBackoff' -retryConfig - :: RetryConfig -retryConfig = - RetryConfig' - { _rcMaxDoublings = Nothing - , _rcMaxRetryDuration = Nothing - , _rcMaxAttempts = Nothing - , _rcMaxBackoff = Nothing - , _rcMinBackoff = Nothing - } - - --- | The time between retries will double \`max_doublings\` times. A task\'s --- retry interval starts at min_backoff, then doubles \`max_doublings\` --- times, then increases linearly, and finally retries retries at intervals --- of max_backoff up to max_attempts times. For example, if min_backoff is --- 10s, max_backoff is 300s, and \`max_doublings\` is 3, then the a task --- will first be retried in 10s. The retry interval will double three --- times, and then increase linearly by 2^3 * 10s. Finally, the task will --- retry at intervals of max_backoff until the task has been attempted --- max_attempts times. Thus, the requests will retry at 10s, 20s, 40s, 80s, --- 160s, 240s, 300s, 300s, .... If unspecified when the queue is created, --- Cloud Tasks will pick the default. This field has the same meaning as --- [max_doublings in --- queue.yaml\/xml](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/queueref#retry_parameters). -rcMaxDoublings :: Lens' RetryConfig (Maybe Int32) -rcMaxDoublings - = lens _rcMaxDoublings - (\ s a -> s{_rcMaxDoublings = a}) - . mapping _Coerce - --- | If positive, \`max_retry_duration\` specifies the time limit for --- retrying a failed task, measured from when the task was first attempted. --- Once \`max_retry_duration\` time has passed *and* the task has been --- attempted max_attempts times, no further attempts will be made and the --- task will be deleted. If zero, then the task age is unlimited. If --- unspecified when the queue is created, Cloud Tasks will pick the --- default. \`max_retry_duration\` will be truncated to the nearest second. --- This field has the same meaning as [task_age_limit in --- queue.yaml\/xml](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/queueref#retry_parameters). -rcMaxRetryDuration :: Lens' RetryConfig (Maybe Scientific) -rcMaxRetryDuration - = lens _rcMaxRetryDuration - (\ s a -> s{_rcMaxRetryDuration = a}) - . mapping _GDuration - --- | Number of attempts per task. Cloud Tasks will attempt the task --- \`max_attempts\` times (that is, if the first attempt fails, then there --- will be \`max_attempts - 1\` retries). Must be >= -1. If unspecified --- when the queue is created, Cloud Tasks will pick the default. -1 --- indicates unlimited attempts. This field has the same meaning as --- [task_retry_limit in --- queue.yaml\/xml](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/queueref#retry_parameters). -rcMaxAttempts :: Lens' RetryConfig (Maybe Int32) -rcMaxAttempts - = lens _rcMaxAttempts - (\ s a -> s{_rcMaxAttempts = a}) - . mapping _Coerce - --- | A task will be scheduled for retry between min_backoff and max_backoff --- duration after it fails, if the queue\'s RetryConfig specifies that the --- task should be retried. If unspecified when the queue is created, Cloud --- Tasks will pick the default. \`max_backoff\` will be truncated to the --- nearest second. This field has the same meaning as [max_backoff_seconds --- in --- queue.yaml\/xml](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/queueref#retry_parameters). -rcMaxBackoff :: Lens' RetryConfig (Maybe Scientific) -rcMaxBackoff - = lens _rcMaxBackoff (\ s a -> s{_rcMaxBackoff = a}) - . mapping _GDuration - --- | A task will be scheduled for retry between min_backoff and max_backoff --- duration after it fails, if the queue\'s RetryConfig specifies that the --- task should be retried. If unspecified when the queue is created, Cloud --- Tasks will pick the default. \`min_backoff\` will be truncated to the --- nearest second. This field has the same meaning as [min_backoff_seconds --- in --- queue.yaml\/xml](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/queueref#retry_parameters). -rcMinBackoff :: Lens' RetryConfig (Maybe Scientific) -rcMinBackoff - = lens _rcMinBackoff (\ s a -> s{_rcMinBackoff = a}) - . mapping _GDuration - -instance FromJSON RetryConfig where - parseJSON - = withObject "RetryConfig" - (\ o -> - RetryConfig' <$> - (o .:? "maxDoublings") <*> (o .:? "maxRetryDuration") - <*> (o .:? "maxAttempts") - <*> (o .:? "maxBackoff") - <*> (o .:? "minBackoff")) - -instance ToJSON RetryConfig where - toJSON RetryConfig'{..} - = object - (catMaybes - [("maxDoublings" .=) <$> _rcMaxDoublings, - ("maxRetryDuration" .=) <$> _rcMaxRetryDuration, - ("maxAttempts" .=) <$> _rcMaxAttempts, - ("maxBackoff" .=) <$> _rcMaxBackoff, - ("minBackoff" .=) <$> _rcMinBackoff]) - --- | Request message for forcing a task to run now using RunTask. --- --- /See:/ 'runTaskRequest' smart constructor. -newtype RunTaskRequest = - RunTaskRequest' - { _rtrResponseView :: Maybe RunTaskRequestResponseView - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RunTaskRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rtrResponseView' -runTaskRequest - :: RunTaskRequest -runTaskRequest = RunTaskRequest' {_rtrResponseView = Nothing} - - --- | The response_view specifies which subset of the Task will be returned. --- By default response_view is BASIC; not all information is retrieved by --- default because some data, such as payloads, might be desirable to --- return only when needed because of its large size or because of the --- sensitivity of data that it contains. Authorization for FULL requires --- \`cloudtasks.tasks.fullView\` [Google --- IAM](https:\/\/cloud.google.com\/iam\/) permission on the Task resource. -rtrResponseView :: Lens' RunTaskRequest (Maybe RunTaskRequestResponseView) -rtrResponseView - = lens _rtrResponseView - (\ s a -> s{_rtrResponseView = a}) - -instance FromJSON RunTaskRequest where - parseJSON - = withObject "RunTaskRequest" - (\ o -> RunTaskRequest' <$> (o .:? "responseView")) - -instance ToJSON RunTaskRequest where - toJSON RunTaskRequest'{..} - = object - (catMaybes - [("responseView" .=) <$> _rtrResponseView]) - --- | A resource that represents Google Cloud Platform location. --- --- /See:/ 'location' smart constructor. -data Location = - Location' - { _lName :: !(Maybe Text) - , _lMetadata :: !(Maybe LocationMetadata) - , _lDisplayName :: !(Maybe Text) - , _lLabels :: !(Maybe LocationLabels) - , _lLocationId :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Location' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lName' --- --- * 'lMetadata' --- --- * 'lDisplayName' --- --- * 'lLabels' --- --- * 'lLocationId' -location - :: Location -location = - Location' - { _lName = Nothing - , _lMetadata = Nothing - , _lDisplayName = Nothing - , _lLabels = Nothing - , _lLocationId = Nothing - } - - --- | Resource name for the location, which may vary between implementations. --- For example: \`\"projects\/example-project\/locations\/us-east1\"\` -lName :: Lens' Location (Maybe Text) -lName = lens _lName (\ s a -> s{_lName = a}) - --- | Service-specific metadata. For example the available capacity at the --- given location. -lMetadata :: Lens' Location (Maybe LocationMetadata) -lMetadata - = lens _lMetadata (\ s a -> s{_lMetadata = a}) - --- | The friendly name for this location, typically a nearby city name. For --- example, \"Tokyo\". -lDisplayName :: Lens' Location (Maybe Text) -lDisplayName - = lens _lDisplayName (\ s a -> s{_lDisplayName = a}) - --- | Cross-service attributes for the location. For example --- {\"cloud.googleapis.com\/region\": \"us-east1\"} -lLabels :: Lens' Location (Maybe LocationLabels) -lLabels = lens _lLabels (\ s a -> s{_lLabels = a}) - --- | The canonical id for this location. For example: \`\"us-east1\"\`. -lLocationId :: Lens' Location (Maybe Text) -lLocationId - = lens _lLocationId (\ s a -> s{_lLocationId = a}) - -instance FromJSON Location where - parseJSON - = withObject "Location" - (\ o -> - Location' <$> - (o .:? "name") <*> (o .:? "metadata") <*> - (o .:? "displayName") - <*> (o .:? "labels") - <*> (o .:? "locationId")) - -instance ToJSON Location where - toJSON Location'{..} - = object - (catMaybes - [("name" .=) <$> _lName, - ("metadata" .=) <$> _lMetadata, - ("displayName" .=) <$> _lDisplayName, - ("labels" .=) <$> _lLabels, - ("locationId" .=) <$> _lLocationId]) - --- | A generic empty message that you can re-use to avoid defining duplicated --- empty messages in your APIs. A typical example is to use it as the --- request or the response type of an API method. For instance: service Foo --- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The --- JSON representation for \`Empty\` is empty JSON object \`{}\`. --- --- /See:/ 'empty' smart constructor. -data Empty = - Empty' - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Empty' with the minimum fields required to make a request. --- -empty - :: Empty -empty = Empty' - - -instance FromJSON Empty where - parseJSON = withObject "Empty" (\ o -> pure Empty') - -instance ToJSON Empty where - toJSON = const emptyObject - --- | Request message for CreateTask. --- --- /See:/ 'createTaskRequest' smart constructor. -data CreateTaskRequest = - CreateTaskRequest' - { _ctrResponseView :: !(Maybe CreateTaskRequestResponseView) - , _ctrTask :: !(Maybe Task) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateTaskRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ctrResponseView' --- --- * 'ctrTask' -createTaskRequest - :: CreateTaskRequest -createTaskRequest = - CreateTaskRequest' {_ctrResponseView = Nothing, _ctrTask = Nothing} - - --- | The response_view specifies which subset of the Task will be returned. --- By default response_view is BASIC; not all information is retrieved by --- default because some data, such as payloads, might be desirable to --- return only when needed because of its large size or because of the --- sensitivity of data that it contains. Authorization for FULL requires --- \`cloudtasks.tasks.fullView\` [Google --- IAM](https:\/\/cloud.google.com\/iam\/) permission on the Task resource. -ctrResponseView :: Lens' CreateTaskRequest (Maybe CreateTaskRequestResponseView) -ctrResponseView - = lens _ctrResponseView - (\ s a -> s{_ctrResponseView = a}) - --- | Required. The task to add. Task names have the following format: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID\`. --- The user can optionally specify a task name. If a name is not specified --- then the system will generate a random unique task id, which will be set --- in the task returned in the response. If schedule_time is not set or is --- in the past then Cloud Tasks will set it to the current time. Task --- De-duplication: Explicitly specifying a task ID enables task --- de-duplication. If a task\'s ID is identical to that of an existing task --- or a task that was deleted or executed recently then the call will fail --- with ALREADY_EXISTS. If the task\'s queue was created using Cloud Tasks, --- then another task with the same name can\'t be created for ~1hour after --- the original task was deleted or executed. If the task\'s queue was --- created using queue.yaml or queue.xml, then another task with the same --- name can\'t be created for ~9days after the original task was deleted or --- executed. Because there is an extra lookup cost to identify duplicate --- task names, these CreateTask calls have significantly increased latency. --- Using hashed strings for the task id or for the prefix of the task id is --- recommended. Choosing task ids that are sequential or have sequential --- prefixes, for example using a timestamp, causes an increase in latency --- and error rates in all task commands. The infrastructure relies on an --- approximately uniform distribution of task ids to store and serve tasks --- efficiently. -ctrTask :: Lens' CreateTaskRequest (Maybe Task) -ctrTask = lens _ctrTask (\ s a -> s{_ctrTask = a}) - -instance FromJSON CreateTaskRequest where - parseJSON - = withObject "CreateTaskRequest" - (\ o -> - CreateTaskRequest' <$> - (o .:? "responseView") <*> (o .:? "task")) - -instance ToJSON CreateTaskRequest where - toJSON CreateTaskRequest'{..} - = object - (catMaybes - [("responseView" .=) <$> _ctrResponseView, - ("task" .=) <$> _ctrTask]) - --- | Response message for ListQueues. --- --- /See:/ 'listQueuesResponse' smart constructor. -data ListQueuesResponse = - ListQueuesResponse' - { _lqrNextPageToken :: !(Maybe Text) - , _lqrQueues :: !(Maybe [Queue]) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListQueuesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lqrNextPageToken' --- --- * 'lqrQueues' -listQueuesResponse - :: ListQueuesResponse -listQueuesResponse = - ListQueuesResponse' {_lqrNextPageToken = Nothing, _lqrQueues = Nothing} - - --- | A token to retrieve next page of results. To return the next page of --- results, call ListQueues with this value as the page_token. If the --- next_page_token is empty, there are no more results. The page token is --- valid for only 2 hours. -lqrNextPageToken :: Lens' ListQueuesResponse (Maybe Text) -lqrNextPageToken - = lens _lqrNextPageToken - (\ s a -> s{_lqrNextPageToken = a}) - --- | The list of queues. -lqrQueues :: Lens' ListQueuesResponse [Queue] -lqrQueues - = lens _lqrQueues (\ s a -> s{_lqrQueues = a}) . - _Default - . _Coerce - -instance FromJSON ListQueuesResponse where - parseJSON - = withObject "ListQueuesResponse" - (\ o -> - ListQueuesResponse' <$> - (o .:? "nextPageToken") <*> - (o .:? "queues" .!= mempty)) - -instance ToJSON ListQueuesResponse where - toJSON ListQueuesResponse'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _lqrNextPageToken, - ("queues" .=) <$> _lqrQueues]) - --- --- /See:/ 'statusDetailsItem' smart constructor. -newtype StatusDetailsItem = - StatusDetailsItem' - { _sdiAddtional :: HashMap Text JSONValue - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdiAddtional' -statusDetailsItem - :: HashMap Text JSONValue -- ^ 'sdiAddtional' - -> StatusDetailsItem -statusDetailsItem pSdiAddtional_ = - StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} - - --- | Properties of the object. Contains field \'type with type URL. -sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) -sdiAddtional - = lens _sdiAddtional (\ s a -> s{_sdiAddtional = a}) - . _Coerce - -instance FromJSON StatusDetailsItem where - parseJSON - = withObject "StatusDetailsItem" - (\ o -> StatusDetailsItem' <$> (parseJSONObject o)) - -instance ToJSON StatusDetailsItem where - toJSON = toJSON . _sdiAddtional - --- | Request message for \`SetIamPolicy\` method. --- --- /See:/ 'setIAMPolicyRequest' smart constructor. -newtype SetIAMPolicyRequest = - SetIAMPolicyRequest' - { _siprPolicy :: Maybe Policy - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SetIAMPolicyRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'siprPolicy' -setIAMPolicyRequest - :: SetIAMPolicyRequest -setIAMPolicyRequest = SetIAMPolicyRequest' {_siprPolicy = Nothing} - - --- | REQUIRED: The complete policy to be applied to the \`resource\`. The --- size of the policy is limited to a few 10s of KB. An empty policy is a --- valid policy but certain Cloud Platform services (such as Projects) --- might reject them. -siprPolicy :: Lens' SetIAMPolicyRequest (Maybe Policy) -siprPolicy - = lens _siprPolicy (\ s a -> s{_siprPolicy = a}) - -instance FromJSON SetIAMPolicyRequest where - parseJSON - = withObject "SetIAMPolicyRequest" - (\ o -> SetIAMPolicyRequest' <$> (o .:? "policy")) - -instance ToJSON SetIAMPolicyRequest where - toJSON SetIAMPolicyRequest'{..} - = object (catMaybes [("policy" .=) <$> _siprPolicy]) - --- | A queue is a container of related tasks. Queues are configured to manage --- how those tasks are dispatched. Configurable properties include rate --- limits, retry options, queue types, and others. --- --- /See:/ 'queue' smart constructor. -data Queue = - Queue' - { _qRateLimits :: !(Maybe RateLimits) - , _qAppEngineRoutingOverride :: !(Maybe AppEngineRouting) - , _qState :: !(Maybe QueueState) - , _qRetryConfig :: !(Maybe RetryConfig) - , _qName :: !(Maybe Text) - , _qPurgeTime :: !(Maybe DateTime') - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Queue' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'qRateLimits' --- --- * 'qAppEngineRoutingOverride' --- --- * 'qState' --- --- * 'qRetryConfig' --- --- * 'qName' --- --- * 'qPurgeTime' -queue - :: Queue -queue = - Queue' - { _qRateLimits = Nothing - , _qAppEngineRoutingOverride = Nothing - , _qState = Nothing - , _qRetryConfig = Nothing - , _qName = Nothing - , _qPurgeTime = Nothing - } - - --- | Rate limits for task dispatches. rate_limits and retry_config are --- related because they both control task attempts. However they control --- task attempts in different ways: * rate_limits controls the total rate --- of dispatches from a queue (i.e. all traffic dispatched from the queue, --- regardless of whether the dispatch is from a first attempt or a retry). --- * retry_config controls what happens to particular a task after its --- first attempt fails. That is, retry_config controls task retries (the --- second attempt, third attempt, etc). The queue\'s actual dispatch rate --- is the result of: * Number of tasks in the queue * User-specified --- throttling: rate_limits, retry_config, and the queue\'s state. * System --- throttling due to \`429\` (Too Many Requests) or \`503\` (Service --- Unavailable) responses from the worker, high error rates, or to smooth --- sudden large traffic spikes. -qRateLimits :: Lens' Queue (Maybe RateLimits) -qRateLimits - = lens _qRateLimits (\ s a -> s{_qRateLimits = a}) - --- | Overrides for task-level app_engine_routing. These settings apply only --- to App Engine tasks in this queue. If set, --- \`app_engine_routing_override\` is used for all App Engine tasks in the --- queue, no matter what the setting is for the task-level --- app_engine_routing. -qAppEngineRoutingOverride :: Lens' Queue (Maybe AppEngineRouting) -qAppEngineRoutingOverride - = lens _qAppEngineRoutingOverride - (\ s a -> s{_qAppEngineRoutingOverride = a}) - --- | Output only. The state of the queue. \`state\` can only be changed by --- called PauseQueue, ResumeQueue, or uploading --- [queue.yaml\/xml](https:\/\/cloud.google.com\/appengine\/docs\/python\/config\/queueref). --- UpdateQueue cannot be used to change \`state\`. -qState :: Lens' Queue (Maybe QueueState) -qState = lens _qState (\ s a -> s{_qState = a}) - --- | Settings that determine the retry behavior. * For tasks created using --- Cloud Tasks: the queue-level retry settings apply to all tasks in the --- queue that were created using Cloud Tasks. Retry settings cannot be set --- on individual tasks. * For tasks created using the App Engine SDK: the --- queue-level retry settings apply to all tasks in the queue which do not --- have retry settings explicitly set on the task and were created by the --- App Engine SDK. See [App Engine --- documentation](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/taskqueue\/push\/retrying-tasks). -qRetryConfig :: Lens' Queue (Maybe RetryConfig) -qRetryConfig - = lens _qRetryConfig (\ s a -> s{_qRetryConfig = a}) - --- | Caller-specified and required in CreateQueue, after which it becomes --- output only. The queue name. The queue name must have the following --- format: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\` * --- \`PROJECT_ID\` can contain letters ([A-Za-z]), numbers ([0-9]), hyphens --- (-), colons (:), or periods (.). For more information, see [Identifying --- projects](https:\/\/cloud.google.com\/resource-manager\/docs\/creating-managing-projects#identifying_projects) --- * \`LOCATION_ID\` is the canonical ID for the queue\'s location. The --- list of available locations can be obtained by calling ListLocations. --- For more information, see --- https:\/\/cloud.google.com\/about\/locations\/. * \`QUEUE_ID\` can --- contain letters ([A-Za-z]), numbers ([0-9]), or hyphens (-). The maximum --- length is 100 characters. -qName :: Lens' Queue (Maybe Text) -qName = lens _qName (\ s a -> s{_qName = a}) - --- | Output only. The last time this queue was purged. All tasks that were --- created before this time were purged. A queue can be purged using --- PurgeQueue, the [App Engine Task Queue SDK, or the Cloud --- Console](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/taskqueue\/push\/deleting-tasks-and-queues#purging_all_tasks_from_a_queue). --- Purge time will be truncated to the nearest microsecond. Purge time will --- be unset if the queue has never been purged. -qPurgeTime :: Lens' Queue (Maybe UTCTime) -qPurgeTime - = lens _qPurgeTime (\ s a -> s{_qPurgeTime = a}) . - mapping _DateTime - -instance FromJSON Queue where - parseJSON - = withObject "Queue" - (\ o -> - Queue' <$> - (o .:? "rateLimits") <*> - (o .:? "appEngineRoutingOverride") - <*> (o .:? "state") - <*> (o .:? "retryConfig") - <*> (o .:? "name") - <*> (o .:? "purgeTime")) - -instance ToJSON Queue where - toJSON Queue'{..} - = object - (catMaybes - [("rateLimits" .=) <$> _qRateLimits, - ("appEngineRoutingOverride" .=) <$> - _qAppEngineRoutingOverride, - ("state" .=) <$> _qState, - ("retryConfig" .=) <$> _qRetryConfig, - ("name" .=) <$> _qName, - ("purgeTime" .=) <$> _qPurgeTime]) - --- | Response message for listing tasks using ListTasks. --- --- /See:/ 'listTasksResponse' smart constructor. -data ListTasksResponse = - ListTasksResponse' - { _ltrNextPageToken :: !(Maybe Text) - , _ltrTasks :: !(Maybe [Task]) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListTasksResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ltrNextPageToken' --- --- * 'ltrTasks' -listTasksResponse - :: ListTasksResponse -listTasksResponse = - ListTasksResponse' {_ltrNextPageToken = Nothing, _ltrTasks = Nothing} - - --- | A token to retrieve next page of results. To return the next page of --- results, call ListTasks with this value as the page_token. If the --- next_page_token is empty, there are no more results. -ltrNextPageToken :: Lens' ListTasksResponse (Maybe Text) -ltrNextPageToken - = lens _ltrNextPageToken - (\ s a -> s{_ltrNextPageToken = a}) - --- | The list of tasks. -ltrTasks :: Lens' ListTasksResponse [Task] -ltrTasks - = lens _ltrTasks (\ s a -> s{_ltrTasks = a}) . - _Default - . _Coerce - -instance FromJSON ListTasksResponse where - parseJSON - = withObject "ListTasksResponse" - (\ o -> - ListTasksResponse' <$> - (o .:? "nextPageToken") <*> - (o .:? "tasks" .!= mempty)) - -instance ToJSON ListTasksResponse where - toJSON ListTasksResponse'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _ltrNextPageToken, - ("tasks" .=) <$> _ltrTasks]) - --- | HTTP request headers. This map contains the header field names and --- values. Headers can be set when the task is created. Repeated headers --- are not supported but a header value can contain commas. Cloud Tasks --- sets some headers to default values: * \`User-Agent\`: By default, this --- header is \`\"AppEngine-Google; --- (+http:\/\/code.google.com\/appengine)\"\`. This header can be modified, --- but Cloud Tasks will append \`\"AppEngine-Google; --- (+http:\/\/code.google.com\/appengine)\"\` to the modified --- \`User-Agent\`. If the task has a body, Cloud Tasks sets the following --- headers: * \`Content-Type\`: By default, the \`Content-Type\` header is --- set to \`\"application\/octet-stream\"\`. The default can be overridden --- by explicitly setting \`Content-Type\` to a particular media type when --- the task is created. For example, \`Content-Type\` can be set to --- \`\"application\/json\"\`. * \`Content-Length\`: This is computed by --- Cloud Tasks. This value is output only. It cannot be changed. The --- headers below cannot be set or overridden: * \`Host\` * \`X-Google-*\` * --- \`X-AppEngine-*\` In addition, Cloud Tasks sets some headers when the --- task is dispatched, such as headers containing information about the --- task; see [request --- headers](https:\/\/cloud.google.com\/appengine\/docs\/python\/taskqueue\/push\/creating-handlers#reading_request_headers). --- These headers are set only when the task is dispatched, so they are not --- visible when the task is returned in a Cloud Tasks response. Although --- there is no specific limit for the maximum number of headers or the --- size, there is a limit on the maximum size of the Task. For more --- information, see the CreateTask documentation. --- --- /See:/ 'appEngineHTTPRequestHeaders' smart constructor. -newtype AppEngineHTTPRequestHeaders = - AppEngineHTTPRequestHeaders' - { _aehttprhAddtional :: HashMap Text Text - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AppEngineHTTPRequestHeaders' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aehttprhAddtional' -appEngineHTTPRequestHeaders - :: HashMap Text Text -- ^ 'aehttprhAddtional' - -> AppEngineHTTPRequestHeaders -appEngineHTTPRequestHeaders pAehttprhAddtional_ = - AppEngineHTTPRequestHeaders' - {_aehttprhAddtional = _Coerce # pAehttprhAddtional_} - - -aehttprhAddtional :: Lens' AppEngineHTTPRequestHeaders (HashMap Text Text) -aehttprhAddtional - = lens _aehttprhAddtional - (\ s a -> s{_aehttprhAddtional = a}) - . _Coerce - -instance FromJSON AppEngineHTTPRequestHeaders where - parseJSON - = withObject "AppEngineHTTPRequestHeaders" - (\ o -> - AppEngineHTTPRequestHeaders' <$> (parseJSONObject o)) - -instance ToJSON AppEngineHTTPRequestHeaders where - toJSON = toJSON . _aehttprhAddtional - --- | Request message for PauseQueue. --- --- /See:/ 'pauseQueueRequest' smart constructor. -data PauseQueueRequest = - PauseQueueRequest' - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PauseQueueRequest' with the minimum fields required to make a request. --- -pauseQueueRequest - :: PauseQueueRequest -pauseQueueRequest = PauseQueueRequest' - - -instance FromJSON PauseQueueRequest where - parseJSON - = withObject "PauseQueueRequest" - (\ o -> pure PauseQueueRequest') - -instance ToJSON PauseQueueRequest where - toJSON = const emptyObject - --- | Request message for \`TestIamPermissions\` method. --- --- /See:/ 'testIAMPermissionsRequest' smart constructor. -newtype TestIAMPermissionsRequest = - TestIAMPermissionsRequest' - { _tiprPermissions :: Maybe [Text] - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TestIAMPermissionsRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tiprPermissions' -testIAMPermissionsRequest - :: TestIAMPermissionsRequest -testIAMPermissionsRequest = - TestIAMPermissionsRequest' {_tiprPermissions = Nothing} - - --- | The set of permissions to check for the \`resource\`. Permissions with --- wildcards (such as \'*\' or \'storage.*\') are not allowed. For more --- information see [IAM --- Overview](https:\/\/cloud.google.com\/iam\/docs\/overview#permissions). -tiprPermissions :: Lens' TestIAMPermissionsRequest [Text] -tiprPermissions - = lens _tiprPermissions - (\ s a -> s{_tiprPermissions = a}) - . _Default - . _Coerce - -instance FromJSON TestIAMPermissionsRequest where - parseJSON - = withObject "TestIAMPermissionsRequest" - (\ o -> - TestIAMPermissionsRequest' <$> - (o .:? "permissions" .!= mempty)) - -instance ToJSON TestIAMPermissionsRequest where - toJSON TestIAMPermissionsRequest'{..} - = object - (catMaybes [("permissions" .=) <$> _tiprPermissions]) - --- | The status of a task attempt. --- --- /See:/ 'attempt' smart constructor. -data Attempt = - Attempt' - { _aResponseStatus :: !(Maybe Status) - , _aScheduleTime :: !(Maybe DateTime') - , _aDispatchTime :: !(Maybe DateTime') - , _aResponseTime :: !(Maybe DateTime') - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Attempt' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aResponseStatus' --- --- * 'aScheduleTime' --- --- * 'aDispatchTime' --- --- * 'aResponseTime' -attempt - :: Attempt -attempt = - Attempt' - { _aResponseStatus = Nothing - , _aScheduleTime = Nothing - , _aDispatchTime = Nothing - , _aResponseTime = Nothing - } - - --- | Output only. The response from the worker for this attempt. If --- \`response_time\` is unset, then the task has not been attempted or is --- currently running and the \`response_status\` field is meaningless. -aResponseStatus :: Lens' Attempt (Maybe Status) -aResponseStatus - = lens _aResponseStatus - (\ s a -> s{_aResponseStatus = a}) - --- | Output only. The time that this attempt was scheduled. \`schedule_time\` --- will be truncated to the nearest microsecond. -aScheduleTime :: Lens' Attempt (Maybe UTCTime) -aScheduleTime - = lens _aScheduleTime - (\ s a -> s{_aScheduleTime = a}) - . mapping _DateTime - --- | Output only. The time that this attempt was dispatched. --- \`dispatch_time\` will be truncated to the nearest microsecond. -aDispatchTime :: Lens' Attempt (Maybe UTCTime) -aDispatchTime - = lens _aDispatchTime - (\ s a -> s{_aDispatchTime = a}) - . mapping _DateTime - --- | Output only. The time that this attempt response was received. --- \`response_time\` will be truncated to the nearest microsecond. -aResponseTime :: Lens' Attempt (Maybe UTCTime) -aResponseTime - = lens _aResponseTime - (\ s a -> s{_aResponseTime = a}) - . mapping _DateTime - -instance FromJSON Attempt where - parseJSON - = withObject "Attempt" - (\ o -> - Attempt' <$> - (o .:? "responseStatus") <*> (o .:? "scheduleTime") - <*> (o .:? "dispatchTime") - <*> (o .:? "responseTime")) - -instance ToJSON Attempt where - toJSON Attempt'{..} - = object - (catMaybes - [("responseStatus" .=) <$> _aResponseStatus, - ("scheduleTime" .=) <$> _aScheduleTime, - ("dispatchTime" .=) <$> _aDispatchTime, - ("responseTime" .=) <$> _aResponseTime]) - --- | Request message for PurgeQueue. --- --- /See:/ 'purgeQueueRequest' smart constructor. -data PurgeQueueRequest = - PurgeQueueRequest' - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PurgeQueueRequest' with the minimum fields required to make a request. --- -purgeQueueRequest - :: PurgeQueueRequest -purgeQueueRequest = PurgeQueueRequest' - - -instance FromJSON PurgeQueueRequest where - parseJSON - = withObject "PurgeQueueRequest" - (\ o -> pure PurgeQueueRequest') - -instance ToJSON PurgeQueueRequest where - toJSON = const emptyObject - --- | A unit of scheduled work. --- --- /See:/ 'task' smart constructor. -data Task = - Task' - { _tLastAttempt :: !(Maybe Attempt) - , _tDispatchDeadline :: !(Maybe GDuration) - , _tScheduleTime :: !(Maybe DateTime') - , _tName :: !(Maybe Text) - , _tFirstAttempt :: !(Maybe Attempt) - , _tView :: !(Maybe TaskView) - , _tResponseCount :: !(Maybe (Textual Int32)) - , _tDispatchCount :: !(Maybe (Textual Int32)) - , _tAppEngineHTTPRequest :: !(Maybe AppEngineHTTPRequest) - , _tCreateTime :: !(Maybe DateTime') - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Task' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tLastAttempt' --- --- * 'tDispatchDeadline' --- --- * 'tScheduleTime' --- --- * 'tName' --- --- * 'tFirstAttempt' --- --- * 'tView' --- --- * 'tResponseCount' --- --- * 'tDispatchCount' --- --- * 'tAppEngineHTTPRequest' --- --- * 'tCreateTime' -task - :: Task -task = - Task' - { _tLastAttempt = Nothing - , _tDispatchDeadline = Nothing - , _tScheduleTime = Nothing - , _tName = Nothing - , _tFirstAttempt = Nothing - , _tView = Nothing - , _tResponseCount = Nothing - , _tDispatchCount = Nothing - , _tAppEngineHTTPRequest = Nothing - , _tCreateTime = Nothing - } - - --- | Output only. The status of the task\'s last attempt. -tLastAttempt :: Lens' Task (Maybe Attempt) -tLastAttempt - = lens _tLastAttempt (\ s a -> s{_tLastAttempt = a}) - --- | The deadline for requests sent to the worker. If the worker does not --- respond by this deadline then the request is cancelled and the attempt --- is marked as a \`DEADLINE_EXCEEDED\` failure. Cloud Tasks will retry the --- task according to the RetryConfig. Note that when the request is --- cancelled, Cloud Tasks will stop listing for the response, but whether --- the worker stops processing depends on the worker. For example, if the --- worker is stuck, it may not react to cancelled requests. The default and --- maximum values depend on the type of request: * For App Engine tasks, 0 --- indicates that the request has the default deadline. The default --- deadline depends on the [scaling --- type](https:\/\/cloud.google.com\/appengine\/docs\/standard\/go\/how-instances-are-managed#instance_scaling) --- of the service: 10 minutes for standard apps with automatic scaling, 24 --- hours for standard apps with manual and basic scaling, and 60 minutes --- for flex apps. If the request deadline is set, it must be in the --- interval [15 seconds, 24 hours 15 seconds]. Regardless of the task\'s --- \`dispatch_deadline\`, the app handler will not run for longer than than --- the service\'s timeout. We recommend setting the \`dispatch_deadline\` --- to at most a few seconds more than the app handler\'s timeout. For more --- information see --- [Timeouts](https:\/\/cloud.google.com\/tasks\/docs\/creating-appengine-handlers#timeouts). --- \`dispatch_deadline\` will be truncated to the nearest millisecond. The --- deadline is an approximate deadline. -tDispatchDeadline :: Lens' Task (Maybe Scientific) -tDispatchDeadline - = lens _tDispatchDeadline - (\ s a -> s{_tDispatchDeadline = a}) - . mapping _GDuration - --- | The time when the task is scheduled to be attempted. For App Engine --- queues, this is when the task will be attempted or retried. --- \`schedule_time\` will be truncated to the nearest microsecond. -tScheduleTime :: Lens' Task (Maybe UTCTime) -tScheduleTime - = lens _tScheduleTime - (\ s a -> s{_tScheduleTime = a}) - . mapping _DateTime - --- | Optionally caller-specified in CreateTask. The task name. The task name --- must have the following format: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID\` --- * \`PROJECT_ID\` can contain letters ([A-Za-z]), numbers ([0-9]), --- hyphens (-), colons (:), or periods (.). For more information, see --- [Identifying --- projects](https:\/\/cloud.google.com\/resource-manager\/docs\/creating-managing-projects#identifying_projects) --- * \`LOCATION_ID\` is the canonical ID for the task\'s location. The list --- of available locations can be obtained by calling ListLocations. For --- more information, see https:\/\/cloud.google.com\/about\/locations\/. * --- \`QUEUE_ID\` can contain letters ([A-Za-z]), numbers ([0-9]), or hyphens --- (-). The maximum length is 100 characters. * \`TASK_ID\` can contain --- only letters ([A-Za-z]), numbers ([0-9]), hyphens (-), or underscores --- (_). The maximum length is 500 characters. -tName :: Lens' Task (Maybe Text) -tName = lens _tName (\ s a -> s{_tName = a}) - --- | Output only. The status of the task\'s first attempt. Only dispatch_time --- will be set. The other Attempt information is not retained by Cloud --- Tasks. -tFirstAttempt :: Lens' Task (Maybe Attempt) -tFirstAttempt - = lens _tFirstAttempt - (\ s a -> s{_tFirstAttempt = a}) - --- | Output only. The view specifies which subset of the Task has been --- returned. -tView :: Lens' Task (Maybe TaskView) -tView = lens _tView (\ s a -> s{_tView = a}) - --- | Output only. The number of attempts which have received a response. -tResponseCount :: Lens' Task (Maybe Int32) -tResponseCount - = lens _tResponseCount - (\ s a -> s{_tResponseCount = a}) - . mapping _Coerce - --- | Output only. The number of attempts dispatched. This count includes --- attempts which have been dispatched but haven\'t received a response. -tDispatchCount :: Lens' Task (Maybe Int32) -tDispatchCount - = lens _tDispatchCount - (\ s a -> s{_tDispatchCount = a}) - . mapping _Coerce - --- | HTTP request that is sent to the App Engine app handler. An App Engine --- task is a task that has AppEngineHttpRequest set. -tAppEngineHTTPRequest :: Lens' Task (Maybe AppEngineHTTPRequest) -tAppEngineHTTPRequest - = lens _tAppEngineHTTPRequest - (\ s a -> s{_tAppEngineHTTPRequest = a}) - --- | Output only. The time that the task was created. \`create_time\` will be --- truncated to the nearest second. -tCreateTime :: Lens' Task (Maybe UTCTime) -tCreateTime - = lens _tCreateTime (\ s a -> s{_tCreateTime = a}) . - mapping _DateTime - -instance FromJSON Task where - parseJSON - = withObject "Task" - (\ o -> - Task' <$> - (o .:? "lastAttempt") <*> (o .:? "dispatchDeadline") - <*> (o .:? "scheduleTime") - <*> (o .:? "name") - <*> (o .:? "firstAttempt") - <*> (o .:? "view") - <*> (o .:? "responseCount") - <*> (o .:? "dispatchCount") - <*> (o .:? "appEngineHttpRequest") - <*> (o .:? "createTime")) - -instance ToJSON Task where - toJSON Task'{..} - = object - (catMaybes - [("lastAttempt" .=) <$> _tLastAttempt, - ("dispatchDeadline" .=) <$> _tDispatchDeadline, - ("scheduleTime" .=) <$> _tScheduleTime, - ("name" .=) <$> _tName, - ("firstAttempt" .=) <$> _tFirstAttempt, - ("view" .=) <$> _tView, - ("responseCount" .=) <$> _tResponseCount, - ("dispatchCount" .=) <$> _tDispatchCount, - ("appEngineHttpRequest" .=) <$> - _tAppEngineHTTPRequest, - ("createTime" .=) <$> _tCreateTime]) - --- | Response message for \`TestIamPermissions\` method. --- --- /See:/ 'testIAMPermissionsResponse' smart constructor. -newtype TestIAMPermissionsResponse = - TestIAMPermissionsResponse' - { _tiamprPermissions :: Maybe [Text] - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TestIAMPermissionsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tiamprPermissions' -testIAMPermissionsResponse - :: TestIAMPermissionsResponse -testIAMPermissionsResponse = - TestIAMPermissionsResponse' {_tiamprPermissions = Nothing} - - --- | A subset of \`TestPermissionsRequest.permissions\` that the caller is --- allowed. -tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text] -tiamprPermissions - = lens _tiamprPermissions - (\ s a -> s{_tiamprPermissions = a}) - . _Default - . _Coerce - -instance FromJSON TestIAMPermissionsResponse where - parseJSON - = withObject "TestIAMPermissionsResponse" - (\ o -> - TestIAMPermissionsResponse' <$> - (o .:? "permissions" .!= mempty)) - -instance ToJSON TestIAMPermissionsResponse where - toJSON TestIAMPermissionsResponse'{..} - = object - (catMaybes - [("permissions" .=) <$> _tiamprPermissions]) - --- | Defines an Identity and Access Management (IAM) policy. It is used to --- specify access control policies for Cloud Platform resources. A --- \`Policy\` consists of a list of \`bindings\`. A \`binding\` binds a --- list of \`members\` to a \`role\`, where the members can be user --- accounts, Google groups, Google domains, and service accounts. A --- \`role\` is a named list of permissions defined by IAM. **JSON Example** --- { \"bindings\": [ { \"role\": \"roles\/owner\", \"members\": [ --- \"user:mike\'example.com\", \"group:admins\'example.com\", --- \"domain:google.com\", --- \"serviceAccount:my-other-app\'appspot.gserviceaccount.com\" ] }, { --- \"role\": \"roles\/viewer\", \"members\": [\"user:sean\'example.com\"] } --- ] } **YAML Example** bindings: - members: - user:mike\'example.com - --- group:admins\'example.com - domain:google.com - --- serviceAccount:my-other-app\'appspot.gserviceaccount.com role: --- roles\/owner - members: - user:sean\'example.com role: roles\/viewer For --- a description of IAM and its features, see the [IAM developer\'s --- guide](https:\/\/cloud.google.com\/iam\/docs). --- --- /See:/ 'policy' smart constructor. -data Policy = - Policy' - { _pEtag :: !(Maybe Bytes) - , _pVersion :: !(Maybe (Textual Int32)) - , _pBindings :: !(Maybe [Binding]) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Policy' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pEtag' --- --- * 'pVersion' --- --- * 'pBindings' -policy - :: Policy -policy = Policy' {_pEtag = Nothing, _pVersion = Nothing, _pBindings = Nothing} - - --- | \`etag\` is used for optimistic concurrency control as a way to help --- prevent simultaneous updates of a policy from overwriting each other. It --- is strongly suggested that systems make use of the \`etag\` in the --- read-modify-write cycle to perform policy updates in order to avoid race --- conditions: An \`etag\` is returned in the response to \`getIamPolicy\`, --- and systems are expected to put that etag in the request to --- \`setIamPolicy\` to ensure that their change will be applied to the same --- version of the policy. If no \`etag\` is provided in the call to --- \`setIamPolicy\`, then the existing policy is overwritten blindly. -pEtag :: Lens' Policy (Maybe ByteString) -pEtag - = lens _pEtag (\ s a -> s{_pEtag = a}) . - mapping _Bytes - --- | Deprecated. -pVersion :: Lens' Policy (Maybe Int32) -pVersion - = lens _pVersion (\ s a -> s{_pVersion = a}) . - mapping _Coerce - --- | Associates a list of \`members\` to a \`role\`. \`bindings\` with no --- members will result in an error. -pBindings :: Lens' Policy [Binding] -pBindings - = lens _pBindings (\ s a -> s{_pBindings = a}) . - _Default - . _Coerce - -instance FromJSON Policy where - parseJSON - = withObject "Policy" - (\ o -> - Policy' <$> - (o .:? "etag") <*> (o .:? "version") <*> - (o .:? "bindings" .!= mempty)) - -instance ToJSON Policy where - toJSON Policy'{..} - = object - (catMaybes - [("etag" .=) <$> _pEtag, - ("version" .=) <$> _pVersion, - ("bindings" .=) <$> _pBindings]) - --- | Cross-service attributes for the location. For example --- {\"cloud.googleapis.com\/region\": \"us-east1\"} --- --- /See:/ 'locationLabels' smart constructor. -newtype LocationLabels = - LocationLabels' - { _llAddtional :: HashMap Text Text - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LocationLabels' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'llAddtional' -locationLabels - :: HashMap Text Text -- ^ 'llAddtional' - -> LocationLabels -locationLabels pLlAddtional_ = - LocationLabels' {_llAddtional = _Coerce # pLlAddtional_} - - -llAddtional :: Lens' LocationLabels (HashMap Text Text) -llAddtional - = lens _llAddtional (\ s a -> s{_llAddtional = a}) . - _Coerce - -instance FromJSON LocationLabels where - parseJSON - = withObject "LocationLabels" - (\ o -> LocationLabels' <$> (parseJSONObject o)) - -instance ToJSON LocationLabels where - toJSON = toJSON . _llAddtional - --- | Service-specific metadata. For example the available capacity at the --- given location. --- --- /See:/ 'locationMetadata' smart constructor. -newtype LocationMetadata = - LocationMetadata' - { _lmAddtional :: HashMap Text JSONValue - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LocationMetadata' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lmAddtional' -locationMetadata - :: HashMap Text JSONValue -- ^ 'lmAddtional' - -> LocationMetadata -locationMetadata pLmAddtional_ = - LocationMetadata' {_lmAddtional = _Coerce # pLmAddtional_} - - --- | Properties of the object. Contains field \'type with type URL. -lmAddtional :: Lens' LocationMetadata (HashMap Text JSONValue) -lmAddtional - = lens _lmAddtional (\ s a -> s{_lmAddtional = a}) . - _Coerce - -instance FromJSON LocationMetadata where - parseJSON - = withObject "LocationMetadata" - (\ o -> LocationMetadata' <$> (parseJSONObject o)) - -instance ToJSON LocationMetadata where - toJSON = toJSON . _lmAddtional - --- | App Engine Routing. Defines routing characteristics specific to App --- Engine - service, version, and instance. For more information about --- services, versions, and instances see [An Overview of App --- Engine](https:\/\/cloud.google.com\/appengine\/docs\/python\/an-overview-of-app-engine), --- [Microservices Architecture on Google App --- Engine](https:\/\/cloud.google.com\/appengine\/docs\/python\/microservices-on-app-engine), --- [App Engine Standard request --- routing](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/how-requests-are-routed), --- and [App Engine Flex request --- routing](https:\/\/cloud.google.com\/appengine\/docs\/flexible\/python\/how-requests-are-routed). --- --- /See:/ 'appEngineRouting' smart constructor. -data AppEngineRouting = - AppEngineRouting' - { _aerService :: !(Maybe Text) - , _aerVersion :: !(Maybe Text) - , _aerHost :: !(Maybe Text) - , _aerInstance :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AppEngineRouting' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aerService' --- --- * 'aerVersion' --- --- * 'aerHost' --- --- * 'aerInstance' -appEngineRouting - :: AppEngineRouting -appEngineRouting = - AppEngineRouting' - { _aerService = Nothing - , _aerVersion = Nothing - , _aerHost = Nothing - , _aerInstance = Nothing - } - - --- | App service. By default, the task is sent to the service which is the --- default service when the task is attempted. For some queues or tasks --- which were created using the App Engine Task Queue API, host is not --- parsable into service, version, and instance. For example, some tasks --- which were created using the App Engine SDK use a custom domain name; --- custom domains are not parsed by Cloud Tasks. If host is not parsable, --- then service, version, and instance are the empty string. -aerService :: Lens' AppEngineRouting (Maybe Text) -aerService - = lens _aerService (\ s a -> s{_aerService = a}) - --- | App version. By default, the task is sent to the version which is the --- default version when the task is attempted. For some queues or tasks --- which were created using the App Engine Task Queue API, host is not --- parsable into service, version, and instance. For example, some tasks --- which were created using the App Engine SDK use a custom domain name; --- custom domains are not parsed by Cloud Tasks. If host is not parsable, --- then service, version, and instance are the empty string. -aerVersion :: Lens' AppEngineRouting (Maybe Text) -aerVersion - = lens _aerVersion (\ s a -> s{_aerVersion = a}) - --- | Output only. The host that the task is sent to. The host is constructed --- from the domain name of the app associated with the queue\'s project ID --- (for example .appspot.com), and the service, version, and instance. --- Tasks which were created using the App Engine SDK might have a custom --- domain name. For more information, see [How Requests are --- Routed](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/how-requests-are-routed). -aerHost :: Lens' AppEngineRouting (Maybe Text) -aerHost = lens _aerHost (\ s a -> s{_aerHost = a}) - --- | App instance. By default, the task is sent to an instance which is --- available when the task is attempted. Requests can only be sent to a --- specific instance if [manual scaling is used in App Engine --- Standard](https:\/\/cloud.google.com\/appengine\/docs\/python\/an-overview-of-app-engine?hl=en_US#scaling_types_and_instance_classes). --- App Engine Flex does not support instances. For more information, see --- [App Engine Standard request --- routing](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/how-requests-are-routed) --- and [App Engine Flex request --- routing](https:\/\/cloud.google.com\/appengine\/docs\/flexible\/python\/how-requests-are-routed). -aerInstance :: Lens' AppEngineRouting (Maybe Text) -aerInstance - = lens _aerInstance (\ s a -> s{_aerInstance = a}) - -instance FromJSON AppEngineRouting where - parseJSON - = withObject "AppEngineRouting" - (\ o -> - AppEngineRouting' <$> - (o .:? "service") <*> (o .:? "version") <*> - (o .:? "host") - <*> (o .:? "instance")) - -instance ToJSON AppEngineRouting where - toJSON AppEngineRouting'{..} - = object - (catMaybes - [("service" .=) <$> _aerService, - ("version" .=) <$> _aerVersion, - ("host" .=) <$> _aerHost, - ("instance" .=) <$> _aerInstance]) - --- | App Engine HTTP request. The message defines the HTTP request that is --- sent to an App Engine app when the task is dispatched. This proto can --- only be used for tasks in a queue which has app_engine_http_queue set. --- Using AppEngineHttpRequest requires --- [\`appengine.applications.get\`](https:\/\/cloud.google.com\/appengine\/docs\/admin-api\/access-control) --- Google IAM permission for the project and the following scope: --- \`https:\/\/www.googleapis.com\/auth\/cloud-platform\` The task will be --- delivered to the App Engine app which belongs to the same project as the --- queue. For more information, see [How Requests are --- Routed](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/how-requests-are-routed) --- and how routing is affected by [dispatch --- files](https:\/\/cloud.google.com\/appengine\/docs\/python\/config\/dispatchref). --- Traffic is encrypted during transport and never leaves Google --- datacenters. Because this traffic is carried over a communication --- mechanism internal to Google, you cannot explicitly set the protocol --- (for example, HTTP or HTTPS). The request to the handler, however, will --- appear to have used the HTTP protocol. The AppEngineRouting used to --- construct the URL that the task is delivered to can be set at the --- queue-level or task-level: * If set, app_engine_routing_override is used --- for all tasks in the queue, no matter what the setting is for the --- task-level app_engine_routing. The \`url\` that the task will be sent to --- is: * \`url =\` host \`+\` relative_uri Tasks can be dispatched to --- secure app handlers, unsecure app handlers, and URIs restricted with --- [\`login: --- admin\`](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/appref). --- Because tasks are not run as any user, they cannot be dispatched to URIs --- restricted with [\`login: --- required\`](https:\/\/cloud.google.com\/appengine\/docs\/standard\/python\/config\/appref) --- Task dispatches also do not follow redirects. The task attempt has --- succeeded if the app\'s request handler returns an HTTP response code in --- the range [\`200\` - \`299\`]. \`503\` is considered an App Engine --- system error instead of an application error. Requests returning error --- \`503\` will be retried regardless of retry configuration and not --- counted against retry counts. Any other response code or a failure to --- receive a response before the deadline is a failed attempt. --- --- /See:/ 'appEngineHTTPRequest' smart constructor. -data AppEngineHTTPRequest = - AppEngineHTTPRequest' - { _aehttprHTTPMethod :: !(Maybe AppEngineHTTPRequestHTTPMethod) - , _aehttprRelativeURI :: !(Maybe Text) - , _aehttprBody :: !(Maybe Bytes) - , _aehttprHeaders :: !(Maybe AppEngineHTTPRequestHeaders) - , _aehttprAppEngineRouting :: !(Maybe AppEngineRouting) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AppEngineHTTPRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aehttprHTTPMethod' --- --- * 'aehttprRelativeURI' --- --- * 'aehttprBody' --- --- * 'aehttprHeaders' --- --- * 'aehttprAppEngineRouting' -appEngineHTTPRequest - :: AppEngineHTTPRequest -appEngineHTTPRequest = - AppEngineHTTPRequest' - { _aehttprHTTPMethod = Nothing - , _aehttprRelativeURI = Nothing - , _aehttprBody = Nothing - , _aehttprHeaders = Nothing - , _aehttprAppEngineRouting = Nothing - } - - --- | The HTTP method to use for the request. The default is POST. The app\'s --- request handler for the task\'s target URL must be able to handle HTTP --- requests with this http_method, otherwise the task attempt will fail --- with error code 405 (Method Not Allowed). See [Writing a push task --- request --- handler](https:\/\/cloud.google.com\/appengine\/docs\/java\/taskqueue\/push\/creating-handlers#writing_a_push_task_request_handler) --- and the documentation for the request handlers in the language your app --- is written in e.g. [Python Request --- Handler](https:\/\/cloud.google.com\/appengine\/docs\/python\/tools\/webapp\/requesthandlerclass). -aehttprHTTPMethod :: Lens' AppEngineHTTPRequest (Maybe AppEngineHTTPRequestHTTPMethod) -aehttprHTTPMethod - = lens _aehttprHTTPMethod - (\ s a -> s{_aehttprHTTPMethod = a}) - --- | The relative URI. The relative URI must begin with \"\/\" and must be a --- valid HTTP relative URI. It can contain a path and query string --- arguments. If the relative URI is empty, then the root path \"\/\" will --- be used. No spaces are allowed, and the maximum length allowed is 2083 --- characters. -aehttprRelativeURI :: Lens' AppEngineHTTPRequest (Maybe Text) -aehttprRelativeURI - = lens _aehttprRelativeURI - (\ s a -> s{_aehttprRelativeURI = a}) - --- | HTTP request body. A request body is allowed only if the HTTP method is --- POST or PUT. It is an error to set a body on a task with an incompatible --- HttpMethod. -aehttprBody :: Lens' AppEngineHTTPRequest (Maybe ByteString) -aehttprBody - = lens _aehttprBody (\ s a -> s{_aehttprBody = a}) . - mapping _Bytes - --- | HTTP request headers. This map contains the header field names and --- values. Headers can be set when the task is created. Repeated headers --- are not supported but a header value can contain commas. Cloud Tasks --- sets some headers to default values: * \`User-Agent\`: By default, this --- header is \`\"AppEngine-Google; --- (+http:\/\/code.google.com\/appengine)\"\`. This header can be modified, --- but Cloud Tasks will append \`\"AppEngine-Google; --- (+http:\/\/code.google.com\/appengine)\"\` to the modified --- \`User-Agent\`. If the task has a body, Cloud Tasks sets the following --- headers: * \`Content-Type\`: By default, the \`Content-Type\` header is --- set to \`\"application\/octet-stream\"\`. The default can be overridden --- by explicitly setting \`Content-Type\` to a particular media type when --- the task is created. For example, \`Content-Type\` can be set to --- \`\"application\/json\"\`. * \`Content-Length\`: This is computed by --- Cloud Tasks. This value is output only. It cannot be changed. The --- headers below cannot be set or overridden: * \`Host\` * \`X-Google-*\` * --- \`X-AppEngine-*\` In addition, Cloud Tasks sets some headers when the --- task is dispatched, such as headers containing information about the --- task; see [request --- headers](https:\/\/cloud.google.com\/appengine\/docs\/python\/taskqueue\/push\/creating-handlers#reading_request_headers). --- These headers are set only when the task is dispatched, so they are not --- visible when the task is returned in a Cloud Tasks response. Although --- there is no specific limit for the maximum number of headers or the --- size, there is a limit on the maximum size of the Task. For more --- information, see the CreateTask documentation. -aehttprHeaders :: Lens' AppEngineHTTPRequest (Maybe AppEngineHTTPRequestHeaders) -aehttprHeaders - = lens _aehttprHeaders - (\ s a -> s{_aehttprHeaders = a}) - --- | Task-level setting for App Engine routing. If set, --- app_engine_routing_override is used for all tasks in the queue, no --- matter what the setting is for the task-level app_engine_routing. -aehttprAppEngineRouting :: Lens' AppEngineHTTPRequest (Maybe AppEngineRouting) -aehttprAppEngineRouting - = lens _aehttprAppEngineRouting - (\ s a -> s{_aehttprAppEngineRouting = a}) - -instance FromJSON AppEngineHTTPRequest where - parseJSON - = withObject "AppEngineHTTPRequest" - (\ o -> - AppEngineHTTPRequest' <$> - (o .:? "httpMethod") <*> (o .:? "relativeUri") <*> - (o .:? "body") - <*> (o .:? "headers") - <*> (o .:? "appEngineRouting")) - -instance ToJSON AppEngineHTTPRequest where - toJSON AppEngineHTTPRequest'{..} - = object - (catMaybes - [("httpMethod" .=) <$> _aehttprHTTPMethod, - ("relativeUri" .=) <$> _aehttprRelativeURI, - ("body" .=) <$> _aehttprBody, - ("headers" .=) <$> _aehttprHeaders, - ("appEngineRouting" .=) <$> - _aehttprAppEngineRouting]) - --- | Request message for ResumeQueue. --- --- /See:/ 'resumeQueueRequest' smart constructor. -data ResumeQueueRequest = - ResumeQueueRequest' - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ResumeQueueRequest' with the minimum fields required to make a request. --- -resumeQueueRequest - :: ResumeQueueRequest -resumeQueueRequest = ResumeQueueRequest' - - -instance FromJSON ResumeQueueRequest where - parseJSON - = withObject "ResumeQueueRequest" - (\ o -> pure ResumeQueueRequest') - -instance ToJSON ResumeQueueRequest where - toJSON = const emptyObject - --- | Associates \`members\` with a \`role\`. --- --- /See:/ 'binding' smart constructor. -data Binding = - Binding' - { _bMembers :: !(Maybe [Text]) - , _bRole :: !(Maybe Text) - , _bCondition :: !(Maybe Expr) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Binding' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'bMembers' --- --- * 'bRole' --- --- * 'bCondition' -binding - :: Binding -binding = - Binding' {_bMembers = Nothing, _bRole = Nothing, _bCondition = Nothing} - - --- | Specifies the identities requesting access for a Cloud Platform --- resource. \`members\` can have the following values: * \`allUsers\`: A --- special identifier that represents anyone who is on the internet; with --- or without a Google account. * \`allAuthenticatedUsers\`: A special --- identifier that represents anyone who is authenticated with a Google --- account or a service account. * \`user:{emailid}\`: An email address --- that represents a specific Google account. For example, --- \`alice\'gmail.com\` . * \`serviceAccount:{emailid}\`: An email address --- that represents a service account. For example, --- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An --- email address that represents a Google group. For example, --- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain --- (primary) that represents all the users of that domain. For example, --- \`google.com\` or \`example.com\`. -bMembers :: Lens' Binding [Text] -bMembers - = lens _bMembers (\ s a -> s{_bMembers = a}) . - _Default - . _Coerce - --- | Role that is assigned to \`members\`. For example, \`roles\/viewer\`, --- \`roles\/editor\`, or \`roles\/owner\`. -bRole :: Lens' Binding (Maybe Text) -bRole = lens _bRole (\ s a -> s{_bRole = a}) - --- | The condition that is associated with this binding. NOTE: An unsatisfied --- condition will not allow user access via current binding. Different --- bindings, including their conditions, are examined independently. -bCondition :: Lens' Binding (Maybe Expr) -bCondition - = lens _bCondition (\ s a -> s{_bCondition = a}) - -instance FromJSON Binding where - parseJSON - = withObject "Binding" - (\ o -> - Binding' <$> - (o .:? "members" .!= mempty) <*> (o .:? "role") <*> - (o .:? "condition")) - -instance ToJSON Binding where - toJSON Binding'{..} - = object - (catMaybes - [("members" .=) <$> _bMembers, - ("role" .=) <$> _bRole, - ("condition" .=) <$> _bCondition]) diff --git a/gen/Network/Google/CloudTasks/Types/Sum.hs b/gen/Network/Google/CloudTasks/Types/Sum.hs deleted file mode 100644 --- a/gen/Network/Google/CloudTasks/Types/Sum.hs +++ /dev/null @@ -1,306 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE NoImplicitPrelude #-} -{-# LANGUAGE OverloadedStrings #-} - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- | --- Module : Network.Google.CloudTasks.Types.Sum --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.Google.CloudTasks.Types.Sum where - -import Network.Google.Prelude hiding (Bytes) - --- | Output only. The view specifies which subset of the Task has been --- returned. -data TaskView - = ViewUnspecified - -- ^ @VIEW_UNSPECIFIED@ - -- Unspecified. Defaults to BASIC. - | Basic - -- ^ @BASIC@ - -- The basic view omits fields which can be large or can contain sensitive - -- data. This view does not include the body in AppEngineHttpRequest. - -- Bodies are desirable to return only when needed, because they can be - -- large and because of the sensitivity of the data that you choose to - -- store in it. - | Full - -- ^ @FULL@ - -- All information is returned. Authorization for FULL requires - -- \`cloudtasks.tasks.fullView\` [Google - -- IAM](https:\/\/cloud.google.com\/iam\/) permission on the Queue - -- resource. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable TaskView - -instance FromHttpApiData TaskView where - parseQueryParam = \case - "VIEW_UNSPECIFIED" -> Right ViewUnspecified - "BASIC" -> Right Basic - "FULL" -> Right Full - x -> Left ("Unable to parse TaskView from: " <> x) - -instance ToHttpApiData TaskView where - toQueryParam = \case - ViewUnspecified -> "VIEW_UNSPECIFIED" - Basic -> "BASIC" - Full -> "FULL" - -instance FromJSON TaskView where - parseJSON = parseJSONText "TaskView" - -instance ToJSON TaskView where - toJSON = toJSONText - --- | Output only. The state of the queue. \`state\` can only be changed by --- called PauseQueue, ResumeQueue, or uploading --- [queue.yaml\/xml](https:\/\/cloud.google.com\/appengine\/docs\/python\/config\/queueref). --- UpdateQueue cannot be used to change \`state\`. -data QueueState - = StateUnspecified - -- ^ @STATE_UNSPECIFIED@ - -- Unspecified state. - | Running - -- ^ @RUNNING@ - -- The queue is running. Tasks can be dispatched. If the queue was created - -- using Cloud Tasks and the queue has had no activity (method calls or - -- task dispatches) for 30 days, the queue may take a few minutes to - -- re-activate. Some method calls may return NOT_FOUND and tasks may not be - -- dispatched for a few minutes until the queue has been re-activated. - | Paused - -- ^ @PAUSED@ - -- Tasks are paused by the user. If the queue is paused then Cloud Tasks - -- will stop delivering tasks from it, but more tasks can still be added to - -- it by the user. - | Disabled - -- ^ @DISABLED@ - -- The queue is disabled. A queue becomes \`DISABLED\` when - -- [queue.yaml](https:\/\/cloud.google.com\/appengine\/docs\/python\/config\/queueref) - -- or - -- [queue.xml](https:\/\/cloud.google.com\/appengine\/docs\/standard\/java\/config\/queueref) - -- is uploaded which does not contain the queue. You cannot directly - -- disable a queue. When a queue is disabled, tasks can still be added to a - -- queue but the tasks are not dispatched. To permanently delete this queue - -- and all of its tasks, call DeleteQueue. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable QueueState - -instance FromHttpApiData QueueState where - parseQueryParam = \case - "STATE_UNSPECIFIED" -> Right StateUnspecified - "RUNNING" -> Right Running - "PAUSED" -> Right Paused - "DISABLED" -> Right Disabled - x -> Left ("Unable to parse QueueState from: " <> x) - -instance ToHttpApiData QueueState where - toQueryParam = \case - StateUnspecified -> "STATE_UNSPECIFIED" - Running -> "RUNNING" - Paused -> "PAUSED" - Disabled -> "DISABLED" - -instance FromJSON QueueState where - parseJSON = parseJSONText "QueueState" - -instance ToJSON QueueState where - toJSON = toJSONText - --- | The response_view specifies which subset of the Task will be returned. --- By default response_view is BASIC; not all information is retrieved by --- default because some data, such as payloads, might be desirable to --- return only when needed because of its large size or because of the --- sensitivity of data that it contains. Authorization for FULL requires --- \`cloudtasks.tasks.fullView\` [Google --- IAM](https:\/\/cloud.google.com\/iam\/) permission on the Task resource. -data CreateTaskRequestResponseView - = CTRRVViewUnspecified - -- ^ @VIEW_UNSPECIFIED@ - -- Unspecified. Defaults to BASIC. - | CTRRVBasic - -- ^ @BASIC@ - -- The basic view omits fields which can be large or can contain sensitive - -- data. This view does not include the body in AppEngineHttpRequest. - -- Bodies are desirable to return only when needed, because they can be - -- large and because of the sensitivity of the data that you choose to - -- store in it. - | CTRRVFull - -- ^ @FULL@ - -- All information is returned. Authorization for FULL requires - -- \`cloudtasks.tasks.fullView\` [Google - -- IAM](https:\/\/cloud.google.com\/iam\/) permission on the Queue - -- resource. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreateTaskRequestResponseView - -instance FromHttpApiData CreateTaskRequestResponseView where - parseQueryParam = \case - "VIEW_UNSPECIFIED" -> Right CTRRVViewUnspecified - "BASIC" -> Right CTRRVBasic - "FULL" -> Right CTRRVFull - x -> Left ("Unable to parse CreateTaskRequestResponseView from: " <> x) - -instance ToHttpApiData CreateTaskRequestResponseView where - toQueryParam = \case - CTRRVViewUnspecified -> "VIEW_UNSPECIFIED" - CTRRVBasic -> "BASIC" - CTRRVFull -> "FULL" - -instance FromJSON CreateTaskRequestResponseView where - parseJSON = parseJSONText "CreateTaskRequestResponseView" - -instance ToJSON CreateTaskRequestResponseView where - toJSON = toJSONText - --- | The HTTP method to use for the request. The default is POST. The app\'s --- request handler for the task\'s target URL must be able to handle HTTP --- requests with this http_method, otherwise the task attempt will fail --- with error code 405 (Method Not Allowed). See [Writing a push task --- request --- handler](https:\/\/cloud.google.com\/appengine\/docs\/java\/taskqueue\/push\/creating-handlers#writing_a_push_task_request_handler) --- and the documentation for the request handlers in the language your app --- is written in e.g. [Python Request --- Handler](https:\/\/cloud.google.com\/appengine\/docs\/python\/tools\/webapp\/requesthandlerclass). -data AppEngineHTTPRequestHTTPMethod - = HTTPMethodUnspecified - -- ^ @HTTP_METHOD_UNSPECIFIED@ - -- HTTP method unspecified - | Post' - -- ^ @POST@ - -- HTTP POST - | Get' - -- ^ @GET@ - -- HTTP GET - | Head' - -- ^ @HEAD@ - -- HTTP HEAD - | Put' - -- ^ @PUT@ - -- HTTP PUT - | Delete' - -- ^ @DELETE@ - -- HTTP DELETE - | Patch' - -- ^ @PATCH@ - -- HTTP PATCH - | Options - -- ^ @OPTIONS@ - -- HTTP OPTIONS - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AppEngineHTTPRequestHTTPMethod - -instance FromHttpApiData AppEngineHTTPRequestHTTPMethod where - parseQueryParam = \case - "HTTP_METHOD_UNSPECIFIED" -> Right HTTPMethodUnspecified - "POST" -> Right Post' - "GET" -> Right Get' - "HEAD" -> Right Head' - "PUT" -> Right Put' - "DELETE" -> Right Delete' - "PATCH" -> Right Patch' - "OPTIONS" -> Right Options - x -> Left ("Unable to parse AppEngineHTTPRequestHTTPMethod from: " <> x) - -instance ToHttpApiData AppEngineHTTPRequestHTTPMethod where - toQueryParam = \case - HTTPMethodUnspecified -> "HTTP_METHOD_UNSPECIFIED" - Post' -> "POST" - Get' -> "GET" - Head' -> "HEAD" - Put' -> "PUT" - Delete' -> "DELETE" - Patch' -> "PATCH" - Options -> "OPTIONS" - -instance FromJSON AppEngineHTTPRequestHTTPMethod where - parseJSON = parseJSONText "AppEngineHTTPRequestHTTPMethod" - -instance ToJSON AppEngineHTTPRequestHTTPMethod where - toJSON = toJSONText - --- | V1 error format. -data Xgafv - = X1 - -- ^ @1@ - -- v1 error format - | X2 - -- ^ @2@ - -- v2 error format - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable Xgafv - -instance FromHttpApiData Xgafv where - parseQueryParam = \case - "1" -> Right X1 - "2" -> Right X2 - x -> Left ("Unable to parse Xgafv from: " <> x) - -instance ToHttpApiData Xgafv where - toQueryParam = \case - X1 -> "1" - X2 -> "2" - -instance FromJSON Xgafv where - parseJSON = parseJSONText "Xgafv" - -instance ToJSON Xgafv where - toJSON = toJSONText - --- | The response_view specifies which subset of the Task will be returned. --- By default response_view is BASIC; not all information is retrieved by --- default because some data, such as payloads, might be desirable to --- return only when needed because of its large size or because of the --- sensitivity of data that it contains. Authorization for FULL requires --- \`cloudtasks.tasks.fullView\` [Google --- IAM](https:\/\/cloud.google.com\/iam\/) permission on the Task resource. -data RunTaskRequestResponseView - = RTRRVViewUnspecified - -- ^ @VIEW_UNSPECIFIED@ - -- Unspecified. Defaults to BASIC. - | RTRRVBasic - -- ^ @BASIC@ - -- The basic view omits fields which can be large or can contain sensitive - -- data. This view does not include the body in AppEngineHttpRequest. - -- Bodies are desirable to return only when needed, because they can be - -- large and because of the sensitivity of the data that you choose to - -- store in it. - | RTRRVFull - -- ^ @FULL@ - -- All information is returned. Authorization for FULL requires - -- \`cloudtasks.tasks.fullView\` [Google - -- IAM](https:\/\/cloud.google.com\/iam\/) permission on the Queue - -- resource. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable RunTaskRequestResponseView - -instance FromHttpApiData RunTaskRequestResponseView where - parseQueryParam = \case - "VIEW_UNSPECIFIED" -> Right RTRRVViewUnspecified - "BASIC" -> Right RTRRVBasic - "FULL" -> Right RTRRVFull - x -> Left ("Unable to parse RunTaskRequestResponseView from: " <> x) - -instance ToHttpApiData RunTaskRequestResponseView where - toQueryParam = \case - RTRRVViewUnspecified -> "VIEW_UNSPECIFIED" - RTRRVBasic -> "BASIC" - RTRRVFull -> "FULL" - -instance FromJSON RunTaskRequestResponseView where - parseJSON = parseJSONText "RunTaskRequestResponseView" - -instance ToJSON RunTaskRequestResponseView where - toJSON = toJSONText diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Get.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Get.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Get.hs +++ /dev/null @@ -1,148 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Get --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Gets information about a location. --- --- /See:/ for @cloudtasks.projects.locations.get@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Get - ( - -- * REST Resource - ProjectsLocationsGetResource - - -- * Creating a Request - , projectsLocationsGet - , ProjectsLocationsGet - - -- * Request Lenses - , plgXgafv - , plgUploadProtocol - , plgAccessToken - , plgUploadType - , plgName - , plgCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.get@ method which the --- 'ProjectsLocationsGet' request conforms to. -type ProjectsLocationsGetResource = - "v2" :> - Capture "name" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> Get '[JSON] Location - --- | Gets information about a location. --- --- /See:/ 'projectsLocationsGet' smart constructor. -data ProjectsLocationsGet = - ProjectsLocationsGet' - { _plgXgafv :: !(Maybe Xgafv) - , _plgUploadProtocol :: !(Maybe Text) - , _plgAccessToken :: !(Maybe Text) - , _plgUploadType :: !(Maybe Text) - , _plgName :: !Text - , _plgCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsGet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plgXgafv' --- --- * 'plgUploadProtocol' --- --- * 'plgAccessToken' --- --- * 'plgUploadType' --- --- * 'plgName' --- --- * 'plgCallback' -projectsLocationsGet - :: Text -- ^ 'plgName' - -> ProjectsLocationsGet -projectsLocationsGet pPlgName_ = - ProjectsLocationsGet' - { _plgXgafv = Nothing - , _plgUploadProtocol = Nothing - , _plgAccessToken = Nothing - , _plgUploadType = Nothing - , _plgName = pPlgName_ - , _plgCallback = Nothing - } - - --- | V1 error format. -plgXgafv :: Lens' ProjectsLocationsGet (Maybe Xgafv) -plgXgafv = lens _plgXgafv (\ s a -> s{_plgXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plgUploadProtocol :: Lens' ProjectsLocationsGet (Maybe Text) -plgUploadProtocol - = lens _plgUploadProtocol - (\ s a -> s{_plgUploadProtocol = a}) - --- | OAuth access token. -plgAccessToken :: Lens' ProjectsLocationsGet (Maybe Text) -plgAccessToken - = lens _plgAccessToken - (\ s a -> s{_plgAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plgUploadType :: Lens' ProjectsLocationsGet (Maybe Text) -plgUploadType - = lens _plgUploadType - (\ s a -> s{_plgUploadType = a}) - --- | Resource name for the location. -plgName :: Lens' ProjectsLocationsGet Text -plgName = lens _plgName (\ s a -> s{_plgName = a}) - --- | JSONP -plgCallback :: Lens' ProjectsLocationsGet (Maybe Text) -plgCallback - = lens _plgCallback (\ s a -> s{_plgCallback = a}) - -instance GoogleRequest ProjectsLocationsGet where - type Rs ProjectsLocationsGet = Location - type Scopes ProjectsLocationsGet = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsGet'{..} - = go _plgName _plgXgafv _plgUploadProtocol - _plgAccessToken - _plgUploadType - _plgCallback - (Just AltJSON) - cloudTasksService - where go - = buildClient - (Proxy :: Proxy ProjectsLocationsGetResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/List.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/List.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/List.hs +++ /dev/null @@ -1,187 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.List --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Lists information about the supported locations for this service. --- --- /See:/ for @cloudtasks.projects.locations.list@. -module Network.Google.Resource.CloudTasks.Projects.Locations.List - ( - -- * REST Resource - ProjectsLocationsListResource - - -- * Creating a Request - , projectsLocationsList - , ProjectsLocationsList - - -- * Request Lenses - , pllXgafv - , pllUploadProtocol - , pllAccessToken - , pllUploadType - , pllName - , pllFilter - , pllPageToken - , pllPageSize - , pllCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.list@ method which the --- 'ProjectsLocationsList' request conforms to. -type ProjectsLocationsListResource = - "v2" :> - Capture "name" Text :> - "locations" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "filter" Text :> - QueryParam "pageToken" Text :> - QueryParam "pageSize" (Textual Int32) :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListLocationsResponse - --- | Lists information about the supported locations for this service. --- --- /See:/ 'projectsLocationsList' smart constructor. -data ProjectsLocationsList = - ProjectsLocationsList' - { _pllXgafv :: !(Maybe Xgafv) - , _pllUploadProtocol :: !(Maybe Text) - , _pllAccessToken :: !(Maybe Text) - , _pllUploadType :: !(Maybe Text) - , _pllName :: !Text - , _pllFilter :: !(Maybe Text) - , _pllPageToken :: !(Maybe Text) - , _pllPageSize :: !(Maybe (Textual Int32)) - , _pllCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pllXgafv' --- --- * 'pllUploadProtocol' --- --- * 'pllAccessToken' --- --- * 'pllUploadType' --- --- * 'pllName' --- --- * 'pllFilter' --- --- * 'pllPageToken' --- --- * 'pllPageSize' --- --- * 'pllCallback' -projectsLocationsList - :: Text -- ^ 'pllName' - -> ProjectsLocationsList -projectsLocationsList pPllName_ = - ProjectsLocationsList' - { _pllXgafv = Nothing - , _pllUploadProtocol = Nothing - , _pllAccessToken = Nothing - , _pllUploadType = Nothing - , _pllName = pPllName_ - , _pllFilter = Nothing - , _pllPageToken = Nothing - , _pllPageSize = Nothing - , _pllCallback = Nothing - } - - --- | V1 error format. -pllXgafv :: Lens' ProjectsLocationsList (Maybe Xgafv) -pllXgafv = lens _pllXgafv (\ s a -> s{_pllXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -pllUploadProtocol :: Lens' ProjectsLocationsList (Maybe Text) -pllUploadProtocol - = lens _pllUploadProtocol - (\ s a -> s{_pllUploadProtocol = a}) - --- | OAuth access token. -pllAccessToken :: Lens' ProjectsLocationsList (Maybe Text) -pllAccessToken - = lens _pllAccessToken - (\ s a -> s{_pllAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -pllUploadType :: Lens' ProjectsLocationsList (Maybe Text) -pllUploadType - = lens _pllUploadType - (\ s a -> s{_pllUploadType = a}) - --- | The resource that owns the locations collection, if applicable. -pllName :: Lens' ProjectsLocationsList Text -pllName = lens _pllName (\ s a -> s{_pllName = a}) - --- | The standard list filter. -pllFilter :: Lens' ProjectsLocationsList (Maybe Text) -pllFilter - = lens _pllFilter (\ s a -> s{_pllFilter = a}) - --- | The standard list page token. -pllPageToken :: Lens' ProjectsLocationsList (Maybe Text) -pllPageToken - = lens _pllPageToken (\ s a -> s{_pllPageToken = a}) - --- | The standard list page size. -pllPageSize :: Lens' ProjectsLocationsList (Maybe Int32) -pllPageSize - = lens _pllPageSize (\ s a -> s{_pllPageSize = a}) . - mapping _Coerce - --- | JSONP -pllCallback :: Lens' ProjectsLocationsList (Maybe Text) -pllCallback - = lens _pllCallback (\ s a -> s{_pllCallback = a}) - -instance GoogleRequest ProjectsLocationsList where - type Rs ProjectsLocationsList = ListLocationsResponse - type Scopes ProjectsLocationsList = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsList'{..} - = go _pllName _pllXgafv _pllUploadProtocol - _pllAccessToken - _pllUploadType - _pllFilter - _pllPageToken - _pllPageSize - _pllCallback - (Just AltJSON) - cloudTasksService - where go - = buildClient - (Proxy :: Proxy ProjectsLocationsListResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Create.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Create.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Create.hs +++ /dev/null @@ -1,183 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Create --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Creates a queue. Queues created with this method allow tasks to live for --- a maximum of 31 days. After a task is 31 days old, the task will be --- deleted regardless of whether it was dispatched or not. WARNING: Using --- this method may have unintended side effects if you are using an App --- Engine \`queue.yaml\` or \`queue.xml\` file to manage your queues. Read --- [Overview of Queue Management and --- queue.yaml](https:\/\/cloud.google.com\/tasks\/docs\/queue-yaml) before --- using this method. --- --- /See:/ for @cloudtasks.projects.locations.queues.create@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Create - ( - -- * REST Resource - ProjectsLocationsQueuesCreateResource - - -- * Creating a Request - , projectsLocationsQueuesCreate - , ProjectsLocationsQueuesCreate - - -- * Request Lenses - , plqcParent - , plqcXgafv - , plqcUploadProtocol - , plqcAccessToken - , plqcUploadType - , plqcPayload - , plqcCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.create@ method which the --- 'ProjectsLocationsQueuesCreate' request conforms to. -type ProjectsLocationsQueuesCreateResource = - "v2" :> - Capture "parent" Text :> - "queues" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] Queue :> Post '[JSON] Queue - --- | Creates a queue. Queues created with this method allow tasks to live for --- a maximum of 31 days. After a task is 31 days old, the task will be --- deleted regardless of whether it was dispatched or not. WARNING: Using --- this method may have unintended side effects if you are using an App --- Engine \`queue.yaml\` or \`queue.xml\` file to manage your queues. Read --- [Overview of Queue Management and --- queue.yaml](https:\/\/cloud.google.com\/tasks\/docs\/queue-yaml) before --- using this method. --- --- /See:/ 'projectsLocationsQueuesCreate' smart constructor. -data ProjectsLocationsQueuesCreate = - ProjectsLocationsQueuesCreate' - { _plqcParent :: !Text - , _plqcXgafv :: !(Maybe Xgafv) - , _plqcUploadProtocol :: !(Maybe Text) - , _plqcAccessToken :: !(Maybe Text) - , _plqcUploadType :: !(Maybe Text) - , _plqcPayload :: !Queue - , _plqcCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesCreate' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqcParent' --- --- * 'plqcXgafv' --- --- * 'plqcUploadProtocol' --- --- * 'plqcAccessToken' --- --- * 'plqcUploadType' --- --- * 'plqcPayload' --- --- * 'plqcCallback' -projectsLocationsQueuesCreate - :: Text -- ^ 'plqcParent' - -> Queue -- ^ 'plqcPayload' - -> ProjectsLocationsQueuesCreate -projectsLocationsQueuesCreate pPlqcParent_ pPlqcPayload_ = - ProjectsLocationsQueuesCreate' - { _plqcParent = pPlqcParent_ - , _plqcXgafv = Nothing - , _plqcUploadProtocol = Nothing - , _plqcAccessToken = Nothing - , _plqcUploadType = Nothing - , _plqcPayload = pPlqcPayload_ - , _plqcCallback = Nothing - } - - --- | Required. The location name in which the queue will be created. For --- example: \`projects\/PROJECT_ID\/locations\/LOCATION_ID\` The list of --- allowed locations can be obtained by calling Cloud Tasks\' --- implementation of ListLocations. -plqcParent :: Lens' ProjectsLocationsQueuesCreate Text -plqcParent - = lens _plqcParent (\ s a -> s{_plqcParent = a}) - --- | V1 error format. -plqcXgafv :: Lens' ProjectsLocationsQueuesCreate (Maybe Xgafv) -plqcXgafv - = lens _plqcXgafv (\ s a -> s{_plqcXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqcUploadProtocol :: Lens' ProjectsLocationsQueuesCreate (Maybe Text) -plqcUploadProtocol - = lens _plqcUploadProtocol - (\ s a -> s{_plqcUploadProtocol = a}) - --- | OAuth access token. -plqcAccessToken :: Lens' ProjectsLocationsQueuesCreate (Maybe Text) -plqcAccessToken - = lens _plqcAccessToken - (\ s a -> s{_plqcAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqcUploadType :: Lens' ProjectsLocationsQueuesCreate (Maybe Text) -plqcUploadType - = lens _plqcUploadType - (\ s a -> s{_plqcUploadType = a}) - --- | Multipart request metadata. -plqcPayload :: Lens' ProjectsLocationsQueuesCreate Queue -plqcPayload - = lens _plqcPayload (\ s a -> s{_plqcPayload = a}) - --- | JSONP -plqcCallback :: Lens' ProjectsLocationsQueuesCreate (Maybe Text) -plqcCallback - = lens _plqcCallback (\ s a -> s{_plqcCallback = a}) - -instance GoogleRequest ProjectsLocationsQueuesCreate - where - type Rs ProjectsLocationsQueuesCreate = Queue - type Scopes ProjectsLocationsQueuesCreate = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesCreate'{..} - = go _plqcParent _plqcXgafv _plqcUploadProtocol - _plqcAccessToken - _plqcUploadType - _plqcCallback - (Just AltJSON) - _plqcPayload - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesCreateResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Delete.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Delete.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Delete.hs +++ /dev/null @@ -1,164 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Delete --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deletes a queue. This command will delete the queue even if it has tasks --- in it. Note: If you delete a queue, a queue with the same name can\'t be --- created for 7 days. WARNING: Using this method may have unintended side --- effects if you are using an App Engine \`queue.yaml\` or \`queue.xml\` --- file to manage your queues. Read [Overview of Queue Management and --- queue.yaml](https:\/\/cloud.google.com\/tasks\/docs\/queue-yaml) before --- using this method. --- --- /See:/ for @cloudtasks.projects.locations.queues.delete@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Delete - ( - -- * REST Resource - ProjectsLocationsQueuesDeleteResource - - -- * Creating a Request - , projectsLocationsQueuesDelete - , ProjectsLocationsQueuesDelete - - -- * Request Lenses - , plqdXgafv - , plqdUploadProtocol - , plqdAccessToken - , plqdUploadType - , plqdName - , plqdCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.delete@ method which the --- 'ProjectsLocationsQueuesDelete' request conforms to. -type ProjectsLocationsQueuesDeleteResource = - "v2" :> - Capture "name" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> Delete '[JSON] Empty - --- | Deletes a queue. This command will delete the queue even if it has tasks --- in it. Note: If you delete a queue, a queue with the same name can\'t be --- created for 7 days. WARNING: Using this method may have unintended side --- effects if you are using an App Engine \`queue.yaml\` or \`queue.xml\` --- file to manage your queues. Read [Overview of Queue Management and --- queue.yaml](https:\/\/cloud.google.com\/tasks\/docs\/queue-yaml) before --- using this method. --- --- /See:/ 'projectsLocationsQueuesDelete' smart constructor. -data ProjectsLocationsQueuesDelete = - ProjectsLocationsQueuesDelete' - { _plqdXgafv :: !(Maybe Xgafv) - , _plqdUploadProtocol :: !(Maybe Text) - , _plqdAccessToken :: !(Maybe Text) - , _plqdUploadType :: !(Maybe Text) - , _plqdName :: !Text - , _plqdCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesDelete' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqdXgafv' --- --- * 'plqdUploadProtocol' --- --- * 'plqdAccessToken' --- --- * 'plqdUploadType' --- --- * 'plqdName' --- --- * 'plqdCallback' -projectsLocationsQueuesDelete - :: Text -- ^ 'plqdName' - -> ProjectsLocationsQueuesDelete -projectsLocationsQueuesDelete pPlqdName_ = - ProjectsLocationsQueuesDelete' - { _plqdXgafv = Nothing - , _plqdUploadProtocol = Nothing - , _plqdAccessToken = Nothing - , _plqdUploadType = Nothing - , _plqdName = pPlqdName_ - , _plqdCallback = Nothing - } - - --- | V1 error format. -plqdXgafv :: Lens' ProjectsLocationsQueuesDelete (Maybe Xgafv) -plqdXgafv - = lens _plqdXgafv (\ s a -> s{_plqdXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqdUploadProtocol :: Lens' ProjectsLocationsQueuesDelete (Maybe Text) -plqdUploadProtocol - = lens _plqdUploadProtocol - (\ s a -> s{_plqdUploadProtocol = a}) - --- | OAuth access token. -plqdAccessToken :: Lens' ProjectsLocationsQueuesDelete (Maybe Text) -plqdAccessToken - = lens _plqdAccessToken - (\ s a -> s{_plqdAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqdUploadType :: Lens' ProjectsLocationsQueuesDelete (Maybe Text) -plqdUploadType - = lens _plqdUploadType - (\ s a -> s{_plqdUploadType = a}) - --- | Required. The queue name. For example: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\` -plqdName :: Lens' ProjectsLocationsQueuesDelete Text -plqdName = lens _plqdName (\ s a -> s{_plqdName = a}) - --- | JSONP -plqdCallback :: Lens' ProjectsLocationsQueuesDelete (Maybe Text) -plqdCallback - = lens _plqdCallback (\ s a -> s{_plqdCallback = a}) - -instance GoogleRequest ProjectsLocationsQueuesDelete - where - type Rs ProjectsLocationsQueuesDelete = Empty - type Scopes ProjectsLocationsQueuesDelete = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesDelete'{..} - = go _plqdName _plqdXgafv _plqdUploadProtocol - _plqdAccessToken - _plqdUploadType - _plqdCallback - (Just AltJSON) - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesDeleteResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Get.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Get.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Get.hs +++ /dev/null @@ -1,151 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Get --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Gets a queue. --- --- /See:/ for @cloudtasks.projects.locations.queues.get@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Get - ( - -- * REST Resource - ProjectsLocationsQueuesGetResource - - -- * Creating a Request - , projectsLocationsQueuesGet - , ProjectsLocationsQueuesGet - - -- * Request Lenses - , plqgXgafv - , plqgUploadProtocol - , plqgAccessToken - , plqgUploadType - , plqgName - , plqgCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.get@ method which the --- 'ProjectsLocationsQueuesGet' request conforms to. -type ProjectsLocationsQueuesGetResource = - "v2" :> - Capture "name" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> Get '[JSON] Queue - --- | Gets a queue. --- --- /See:/ 'projectsLocationsQueuesGet' smart constructor. -data ProjectsLocationsQueuesGet = - ProjectsLocationsQueuesGet' - { _plqgXgafv :: !(Maybe Xgafv) - , _plqgUploadProtocol :: !(Maybe Text) - , _plqgAccessToken :: !(Maybe Text) - , _plqgUploadType :: !(Maybe Text) - , _plqgName :: !Text - , _plqgCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesGet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqgXgafv' --- --- * 'plqgUploadProtocol' --- --- * 'plqgAccessToken' --- --- * 'plqgUploadType' --- --- * 'plqgName' --- --- * 'plqgCallback' -projectsLocationsQueuesGet - :: Text -- ^ 'plqgName' - -> ProjectsLocationsQueuesGet -projectsLocationsQueuesGet pPlqgName_ = - ProjectsLocationsQueuesGet' - { _plqgXgafv = Nothing - , _plqgUploadProtocol = Nothing - , _plqgAccessToken = Nothing - , _plqgUploadType = Nothing - , _plqgName = pPlqgName_ - , _plqgCallback = Nothing - } - - --- | V1 error format. -plqgXgafv :: Lens' ProjectsLocationsQueuesGet (Maybe Xgafv) -plqgXgafv - = lens _plqgXgafv (\ s a -> s{_plqgXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqgUploadProtocol :: Lens' ProjectsLocationsQueuesGet (Maybe Text) -plqgUploadProtocol - = lens _plqgUploadProtocol - (\ s a -> s{_plqgUploadProtocol = a}) - --- | OAuth access token. -plqgAccessToken :: Lens' ProjectsLocationsQueuesGet (Maybe Text) -plqgAccessToken - = lens _plqgAccessToken - (\ s a -> s{_plqgAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqgUploadType :: Lens' ProjectsLocationsQueuesGet (Maybe Text) -plqgUploadType - = lens _plqgUploadType - (\ s a -> s{_plqgUploadType = a}) - --- | Required. The resource name of the queue. For example: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\` -plqgName :: Lens' ProjectsLocationsQueuesGet Text -plqgName = lens _plqgName (\ s a -> s{_plqgName = a}) - --- | JSONP -plqgCallback :: Lens' ProjectsLocationsQueuesGet (Maybe Text) -plqgCallback - = lens _plqgCallback (\ s a -> s{_plqgCallback = a}) - -instance GoogleRequest ProjectsLocationsQueuesGet - where - type Rs ProjectsLocationsQueuesGet = Queue - type Scopes ProjectsLocationsQueuesGet = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesGet'{..} - = go _plqgName _plqgXgafv _plqgUploadProtocol - _plqgAccessToken - _plqgUploadType - _plqgCallback - (Just AltJSON) - cloudTasksService - where go - = buildClient - (Proxy :: Proxy ProjectsLocationsQueuesGetResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/GetIAMPolicy.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/GetIAMPolicy.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/GetIAMPolicy.hs +++ /dev/null @@ -1,181 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.GetIAMPolicy --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Gets the access control policy for a Queue. Returns an empty policy if --- the resource exists and does not have a policy set. Authorization --- requires the following [Google IAM](https:\/\/cloud.google.com\/iam) --- permission on the specified resource parent: * --- \`cloudtasks.queues.getIamPolicy\` --- --- /See:/ for @cloudtasks.projects.locations.queues.getIamPolicy@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.GetIAMPolicy - ( - -- * REST Resource - ProjectsLocationsQueuesGetIAMPolicyResource - - -- * Creating a Request - , projectsLocationsQueuesGetIAMPolicy - , ProjectsLocationsQueuesGetIAMPolicy - - -- * Request Lenses - , plqgipXgafv - , plqgipUploadProtocol - , plqgipAccessToken - , plqgipUploadType - , plqgipPayload - , plqgipResource - , plqgipCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.getIamPolicy@ method which the --- 'ProjectsLocationsQueuesGetIAMPolicy' request conforms to. -type ProjectsLocationsQueuesGetIAMPolicyResource = - "v2" :> - CaptureMode "resource" "getIamPolicy" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] GetIAMPolicyRequest :> - Post '[JSON] Policy - --- | Gets the access control policy for a Queue. Returns an empty policy if --- the resource exists and does not have a policy set. Authorization --- requires the following [Google IAM](https:\/\/cloud.google.com\/iam) --- permission on the specified resource parent: * --- \`cloudtasks.queues.getIamPolicy\` --- --- /See:/ 'projectsLocationsQueuesGetIAMPolicy' smart constructor. -data ProjectsLocationsQueuesGetIAMPolicy = - ProjectsLocationsQueuesGetIAMPolicy' - { _plqgipXgafv :: !(Maybe Xgafv) - , _plqgipUploadProtocol :: !(Maybe Text) - , _plqgipAccessToken :: !(Maybe Text) - , _plqgipUploadType :: !(Maybe Text) - , _plqgipPayload :: !GetIAMPolicyRequest - , _plqgipResource :: !Text - , _plqgipCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesGetIAMPolicy' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqgipXgafv' --- --- * 'plqgipUploadProtocol' --- --- * 'plqgipAccessToken' --- --- * 'plqgipUploadType' --- --- * 'plqgipPayload' --- --- * 'plqgipResource' --- --- * 'plqgipCallback' -projectsLocationsQueuesGetIAMPolicy - :: GetIAMPolicyRequest -- ^ 'plqgipPayload' - -> Text -- ^ 'plqgipResource' - -> ProjectsLocationsQueuesGetIAMPolicy -projectsLocationsQueuesGetIAMPolicy pPlqgipPayload_ pPlqgipResource_ = - ProjectsLocationsQueuesGetIAMPolicy' - { _plqgipXgafv = Nothing - , _plqgipUploadProtocol = Nothing - , _plqgipAccessToken = Nothing - , _plqgipUploadType = Nothing - , _plqgipPayload = pPlqgipPayload_ - , _plqgipResource = pPlqgipResource_ - , _plqgipCallback = Nothing - } - - --- | V1 error format. -plqgipXgafv :: Lens' ProjectsLocationsQueuesGetIAMPolicy (Maybe Xgafv) -plqgipXgafv - = lens _plqgipXgafv (\ s a -> s{_plqgipXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqgipUploadProtocol :: Lens' ProjectsLocationsQueuesGetIAMPolicy (Maybe Text) -plqgipUploadProtocol - = lens _plqgipUploadProtocol - (\ s a -> s{_plqgipUploadProtocol = a}) - --- | OAuth access token. -plqgipAccessToken :: Lens' ProjectsLocationsQueuesGetIAMPolicy (Maybe Text) -plqgipAccessToken - = lens _plqgipAccessToken - (\ s a -> s{_plqgipAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqgipUploadType :: Lens' ProjectsLocationsQueuesGetIAMPolicy (Maybe Text) -plqgipUploadType - = lens _plqgipUploadType - (\ s a -> s{_plqgipUploadType = a}) - --- | Multipart request metadata. -plqgipPayload :: Lens' ProjectsLocationsQueuesGetIAMPolicy GetIAMPolicyRequest -plqgipPayload - = lens _plqgipPayload - (\ s a -> s{_plqgipPayload = a}) - --- | REQUIRED: The resource for which the policy is being requested. See the --- operation documentation for the appropriate value for this field. -plqgipResource :: Lens' ProjectsLocationsQueuesGetIAMPolicy Text -plqgipResource - = lens _plqgipResource - (\ s a -> s{_plqgipResource = a}) - --- | JSONP -plqgipCallback :: Lens' ProjectsLocationsQueuesGetIAMPolicy (Maybe Text) -plqgipCallback - = lens _plqgipCallback - (\ s a -> s{_plqgipCallback = a}) - -instance GoogleRequest - ProjectsLocationsQueuesGetIAMPolicy - where - type Rs ProjectsLocationsQueuesGetIAMPolicy = Policy - type Scopes ProjectsLocationsQueuesGetIAMPolicy = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient - ProjectsLocationsQueuesGetIAMPolicy'{..} - = go _plqgipResource _plqgipXgafv - _plqgipUploadProtocol - _plqgipAccessToken - _plqgipUploadType - _plqgipCallback - (Just AltJSON) - _plqgipPayload - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesGetIAMPolicyResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/List.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/List.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/List.hs +++ /dev/null @@ -1,206 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.List --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Lists queues. Queues are returned in lexicographical order. --- --- /See:/ for @cloudtasks.projects.locations.queues.list@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.List - ( - -- * REST Resource - ProjectsLocationsQueuesListResource - - -- * Creating a Request - , projectsLocationsQueuesList - , ProjectsLocationsQueuesList - - -- * Request Lenses - , plqlParent - , plqlXgafv - , plqlUploadProtocol - , plqlAccessToken - , plqlUploadType - , plqlFilter - , plqlPageToken - , plqlPageSize - , plqlCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.list@ method which the --- 'ProjectsLocationsQueuesList' request conforms to. -type ProjectsLocationsQueuesListResource = - "v2" :> - Capture "parent" Text :> - "queues" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "filter" Text :> - QueryParam "pageToken" Text :> - QueryParam "pageSize" (Textual Int32) :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListQueuesResponse - --- | Lists queues. Queues are returned in lexicographical order. --- --- /See:/ 'projectsLocationsQueuesList' smart constructor. -data ProjectsLocationsQueuesList = - ProjectsLocationsQueuesList' - { _plqlParent :: !Text - , _plqlXgafv :: !(Maybe Xgafv) - , _plqlUploadProtocol :: !(Maybe Text) - , _plqlAccessToken :: !(Maybe Text) - , _plqlUploadType :: !(Maybe Text) - , _plqlFilter :: !(Maybe Text) - , _plqlPageToken :: !(Maybe Text) - , _plqlPageSize :: !(Maybe (Textual Int32)) - , _plqlCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqlParent' --- --- * 'plqlXgafv' --- --- * 'plqlUploadProtocol' --- --- * 'plqlAccessToken' --- --- * 'plqlUploadType' --- --- * 'plqlFilter' --- --- * 'plqlPageToken' --- --- * 'plqlPageSize' --- --- * 'plqlCallback' -projectsLocationsQueuesList - :: Text -- ^ 'plqlParent' - -> ProjectsLocationsQueuesList -projectsLocationsQueuesList pPlqlParent_ = - ProjectsLocationsQueuesList' - { _plqlParent = pPlqlParent_ - , _plqlXgafv = Nothing - , _plqlUploadProtocol = Nothing - , _plqlAccessToken = Nothing - , _plqlUploadType = Nothing - , _plqlFilter = Nothing - , _plqlPageToken = Nothing - , _plqlPageSize = Nothing - , _plqlCallback = Nothing - } - - --- | Required. The location name. For example: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\` -plqlParent :: Lens' ProjectsLocationsQueuesList Text -plqlParent - = lens _plqlParent (\ s a -> s{_plqlParent = a}) - --- | V1 error format. -plqlXgafv :: Lens' ProjectsLocationsQueuesList (Maybe Xgafv) -plqlXgafv - = lens _plqlXgafv (\ s a -> s{_plqlXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqlUploadProtocol :: Lens' ProjectsLocationsQueuesList (Maybe Text) -plqlUploadProtocol - = lens _plqlUploadProtocol - (\ s a -> s{_plqlUploadProtocol = a}) - --- | OAuth access token. -plqlAccessToken :: Lens' ProjectsLocationsQueuesList (Maybe Text) -plqlAccessToken - = lens _plqlAccessToken - (\ s a -> s{_plqlAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqlUploadType :: Lens' ProjectsLocationsQueuesList (Maybe Text) -plqlUploadType - = lens _plqlUploadType - (\ s a -> s{_plqlUploadType = a}) - --- | \`filter\` can be used to specify a subset of queues. Any Queue field --- can be used as a filter and several operators as supported. For example: --- \`\<=, \<, >=, >, !=, =, :\`. The filter syntax is the same as described --- in [Stackdriver\'s Advanced Logs --- Filters](https:\/\/cloud.google.com\/logging\/docs\/view\/advanced_filters). --- Sample filter \"state: PAUSED\". Note that using filters might cause --- fewer queues than the requested page_size to be returned. -plqlFilter :: Lens' ProjectsLocationsQueuesList (Maybe Text) -plqlFilter - = lens _plqlFilter (\ s a -> s{_plqlFilter = a}) - --- | A token identifying the page of results to return. To request the first --- page results, page_token must be empty. To request the next page of --- results, page_token must be the value of next_page_token returned from --- the previous call to ListQueues method. It is an error to switch the --- value of the filter while iterating through pages. -plqlPageToken :: Lens' ProjectsLocationsQueuesList (Maybe Text) -plqlPageToken - = lens _plqlPageToken - (\ s a -> s{_plqlPageToken = a}) - --- | Requested page size. The maximum page size is 9800. If unspecified, the --- page size will be the maximum. Fewer queues than requested might be --- returned, even if more queues exist; use the next_page_token in the --- response to determine if more queues exist. -plqlPageSize :: Lens' ProjectsLocationsQueuesList (Maybe Int32) -plqlPageSize - = lens _plqlPageSize (\ s a -> s{_plqlPageSize = a}) - . mapping _Coerce - --- | JSONP -plqlCallback :: Lens' ProjectsLocationsQueuesList (Maybe Text) -plqlCallback - = lens _plqlCallback (\ s a -> s{_plqlCallback = a}) - -instance GoogleRequest ProjectsLocationsQueuesList - where - type Rs ProjectsLocationsQueuesList = - ListQueuesResponse - type Scopes ProjectsLocationsQueuesList = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesList'{..} - = go _plqlParent _plqlXgafv _plqlUploadProtocol - _plqlAccessToken - _plqlUploadType - _plqlFilter - _plqlPageToken - _plqlPageSize - _plqlCallback - (Just AltJSON) - cloudTasksService - where go - = buildClient - (Proxy :: Proxy ProjectsLocationsQueuesListResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Patch.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Patch.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Patch.hs +++ /dev/null @@ -1,205 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Patch --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Updates a queue. This method creates the queue if it does not exist and --- updates the queue if it does exist. Queues created with this method --- allow tasks to live for a maximum of 31 days. After a task is 31 days --- old, the task will be deleted regardless of whether it was dispatched or --- not. WARNING: Using this method may have unintended side effects if you --- are using an App Engine \`queue.yaml\` or \`queue.xml\` file to manage --- your queues. Read [Overview of Queue Management and --- queue.yaml](https:\/\/cloud.google.com\/tasks\/docs\/queue-yaml) before --- using this method. --- --- /See:/ for @cloudtasks.projects.locations.queues.patch@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Patch - ( - -- * REST Resource - ProjectsLocationsQueuesPatchResource - - -- * Creating a Request - , projectsLocationsQueuesPatch - , ProjectsLocationsQueuesPatch - - -- * Request Lenses - , plqpXgafv - , plqpUploadProtocol - , plqpUpdateMask - , plqpAccessToken - , plqpUploadType - , plqpPayload - , plqpName - , plqpCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.patch@ method which the --- 'ProjectsLocationsQueuesPatch' request conforms to. -type ProjectsLocationsQueuesPatchResource = - "v2" :> - Capture "name" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "updateMask" GFieldMask :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] Queue :> Patch '[JSON] Queue - --- | Updates a queue. This method creates the queue if it does not exist and --- updates the queue if it does exist. Queues created with this method --- allow tasks to live for a maximum of 31 days. After a task is 31 days --- old, the task will be deleted regardless of whether it was dispatched or --- not. WARNING: Using this method may have unintended side effects if you --- are using an App Engine \`queue.yaml\` or \`queue.xml\` file to manage --- your queues. Read [Overview of Queue Management and --- queue.yaml](https:\/\/cloud.google.com\/tasks\/docs\/queue-yaml) before --- using this method. --- --- /See:/ 'projectsLocationsQueuesPatch' smart constructor. -data ProjectsLocationsQueuesPatch = - ProjectsLocationsQueuesPatch' - { _plqpXgafv :: !(Maybe Xgafv) - , _plqpUploadProtocol :: !(Maybe Text) - , _plqpUpdateMask :: !(Maybe GFieldMask) - , _plqpAccessToken :: !(Maybe Text) - , _plqpUploadType :: !(Maybe Text) - , _plqpPayload :: !Queue - , _plqpName :: !Text - , _plqpCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesPatch' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqpXgafv' --- --- * 'plqpUploadProtocol' --- --- * 'plqpUpdateMask' --- --- * 'plqpAccessToken' --- --- * 'plqpUploadType' --- --- * 'plqpPayload' --- --- * 'plqpName' --- --- * 'plqpCallback' -projectsLocationsQueuesPatch - :: Queue -- ^ 'plqpPayload' - -> Text -- ^ 'plqpName' - -> ProjectsLocationsQueuesPatch -projectsLocationsQueuesPatch pPlqpPayload_ pPlqpName_ = - ProjectsLocationsQueuesPatch' - { _plqpXgafv = Nothing - , _plqpUploadProtocol = Nothing - , _plqpUpdateMask = Nothing - , _plqpAccessToken = Nothing - , _plqpUploadType = Nothing - , _plqpPayload = pPlqpPayload_ - , _plqpName = pPlqpName_ - , _plqpCallback = Nothing - } - - --- | V1 error format. -plqpXgafv :: Lens' ProjectsLocationsQueuesPatch (Maybe Xgafv) -plqpXgafv - = lens _plqpXgafv (\ s a -> s{_plqpXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqpUploadProtocol :: Lens' ProjectsLocationsQueuesPatch (Maybe Text) -plqpUploadProtocol - = lens _plqpUploadProtocol - (\ s a -> s{_plqpUploadProtocol = a}) - --- | A mask used to specify which fields of the queue are being updated. If --- empty, then all fields will be updated. -plqpUpdateMask :: Lens' ProjectsLocationsQueuesPatch (Maybe GFieldMask) -plqpUpdateMask - = lens _plqpUpdateMask - (\ s a -> s{_plqpUpdateMask = a}) - --- | OAuth access token. -plqpAccessToken :: Lens' ProjectsLocationsQueuesPatch (Maybe Text) -plqpAccessToken - = lens _plqpAccessToken - (\ s a -> s{_plqpAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqpUploadType :: Lens' ProjectsLocationsQueuesPatch (Maybe Text) -plqpUploadType - = lens _plqpUploadType - (\ s a -> s{_plqpUploadType = a}) - --- | Multipart request metadata. -plqpPayload :: Lens' ProjectsLocationsQueuesPatch Queue -plqpPayload - = lens _plqpPayload (\ s a -> s{_plqpPayload = a}) - --- | Caller-specified and required in CreateQueue, after which it becomes --- output only. The queue name. The queue name must have the following --- format: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\` * --- \`PROJECT_ID\` can contain letters ([A-Za-z]), numbers ([0-9]), hyphens --- (-), colons (:), or periods (.). For more information, see [Identifying --- projects](https:\/\/cloud.google.com\/resource-manager\/docs\/creating-managing-projects#identifying_projects) --- * \`LOCATION_ID\` is the canonical ID for the queue\'s location. The --- list of available locations can be obtained by calling ListLocations. --- For more information, see --- https:\/\/cloud.google.com\/about\/locations\/. * \`QUEUE_ID\` can --- contain letters ([A-Za-z]), numbers ([0-9]), or hyphens (-). The maximum --- length is 100 characters. -plqpName :: Lens' ProjectsLocationsQueuesPatch Text -plqpName = lens _plqpName (\ s a -> s{_plqpName = a}) - --- | JSONP -plqpCallback :: Lens' ProjectsLocationsQueuesPatch (Maybe Text) -plqpCallback - = lens _plqpCallback (\ s a -> s{_plqpCallback = a}) - -instance GoogleRequest ProjectsLocationsQueuesPatch - where - type Rs ProjectsLocationsQueuesPatch = Queue - type Scopes ProjectsLocationsQueuesPatch = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesPatch'{..} - = go _plqpName _plqpXgafv _plqpUploadProtocol - _plqpUpdateMask - _plqpAccessToken - _plqpUploadType - _plqpCallback - (Just AltJSON) - _plqpPayload - cloudTasksService - where go - = buildClient - (Proxy :: Proxy ProjectsLocationsQueuesPatchResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Pause.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Pause.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Pause.hs +++ /dev/null @@ -1,170 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Pause --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Pauses the queue. If a queue is paused then the system will stop --- dispatching tasks until the queue is resumed via ResumeQueue. Tasks can --- still be added when the queue is paused. A queue is paused if its state --- is PAUSED. --- --- /See:/ for @cloudtasks.projects.locations.queues.pause@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Pause - ( - -- * REST Resource - ProjectsLocationsQueuesPauseResource - - -- * Creating a Request - , projectsLocationsQueuesPause - , ProjectsLocationsQueuesPause - - -- * Request Lenses - , proXgafv - , proUploadProtocol - , proAccessToken - , proUploadType - , proPayload - , proName - , proCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.pause@ method which the --- 'ProjectsLocationsQueuesPause' request conforms to. -type ProjectsLocationsQueuesPauseResource = - "v2" :> - CaptureMode "name" "pause" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] PauseQueueRequest :> - Post '[JSON] Queue - --- | Pauses the queue. If a queue is paused then the system will stop --- dispatching tasks until the queue is resumed via ResumeQueue. Tasks can --- still be added when the queue is paused. A queue is paused if its state --- is PAUSED. --- --- /See:/ 'projectsLocationsQueuesPause' smart constructor. -data ProjectsLocationsQueuesPause = - ProjectsLocationsQueuesPause' - { _proXgafv :: !(Maybe Xgafv) - , _proUploadProtocol :: !(Maybe Text) - , _proAccessToken :: !(Maybe Text) - , _proUploadType :: !(Maybe Text) - , _proPayload :: !PauseQueueRequest - , _proName :: !Text - , _proCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesPause' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'proXgafv' --- --- * 'proUploadProtocol' --- --- * 'proAccessToken' --- --- * 'proUploadType' --- --- * 'proPayload' --- --- * 'proName' --- --- * 'proCallback' -projectsLocationsQueuesPause - :: PauseQueueRequest -- ^ 'proPayload' - -> Text -- ^ 'proName' - -> ProjectsLocationsQueuesPause -projectsLocationsQueuesPause pProPayload_ pProName_ = - ProjectsLocationsQueuesPause' - { _proXgafv = Nothing - , _proUploadProtocol = Nothing - , _proAccessToken = Nothing - , _proUploadType = Nothing - , _proPayload = pProPayload_ - , _proName = pProName_ - , _proCallback = Nothing - } - - --- | V1 error format. -proXgafv :: Lens' ProjectsLocationsQueuesPause (Maybe Xgafv) -proXgafv = lens _proXgafv (\ s a -> s{_proXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -proUploadProtocol :: Lens' ProjectsLocationsQueuesPause (Maybe Text) -proUploadProtocol - = lens _proUploadProtocol - (\ s a -> s{_proUploadProtocol = a}) - --- | OAuth access token. -proAccessToken :: Lens' ProjectsLocationsQueuesPause (Maybe Text) -proAccessToken - = lens _proAccessToken - (\ s a -> s{_proAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -proUploadType :: Lens' ProjectsLocationsQueuesPause (Maybe Text) -proUploadType - = lens _proUploadType - (\ s a -> s{_proUploadType = a}) - --- | Multipart request metadata. -proPayload :: Lens' ProjectsLocationsQueuesPause PauseQueueRequest -proPayload - = lens _proPayload (\ s a -> s{_proPayload = a}) - --- | Required. The queue name. For example: --- \`projects\/PROJECT_ID\/location\/LOCATION_ID\/queues\/QUEUE_ID\` -proName :: Lens' ProjectsLocationsQueuesPause Text -proName = lens _proName (\ s a -> s{_proName = a}) - --- | JSONP -proCallback :: Lens' ProjectsLocationsQueuesPause (Maybe Text) -proCallback - = lens _proCallback (\ s a -> s{_proCallback = a}) - -instance GoogleRequest ProjectsLocationsQueuesPause - where - type Rs ProjectsLocationsQueuesPause = Queue - type Scopes ProjectsLocationsQueuesPause = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesPause'{..} - = go _proName _proXgafv _proUploadProtocol - _proAccessToken - _proUploadType - _proCallback - (Just AltJSON) - _proPayload - cloudTasksService - where go - = buildClient - (Proxy :: Proxy ProjectsLocationsQueuesPauseResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Purge.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Purge.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Purge.hs +++ /dev/null @@ -1,166 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Purge --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Purges a queue by deleting all of its tasks. All tasks created before --- this method is called are permanently deleted. Purge operations can take --- up to one minute to take effect. Tasks might be dispatched before the --- purge takes effect. A purge is irreversible. --- --- /See:/ for @cloudtasks.projects.locations.queues.purge@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Purge - ( - -- * REST Resource - ProjectsLocationsQueuesPurgeResource - - -- * Creating a Request - , projectsLocationsQueuesPurge - , ProjectsLocationsQueuesPurge - - -- * Request Lenses - , pXgafv - , pUploadProtocol - , pAccessToken - , pUploadType - , pPayload - , pName - , pCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.purge@ method which the --- 'ProjectsLocationsQueuesPurge' request conforms to. -type ProjectsLocationsQueuesPurgeResource = - "v2" :> - CaptureMode "name" "purge" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] PurgeQueueRequest :> - Post '[JSON] Queue - --- | Purges a queue by deleting all of its tasks. All tasks created before --- this method is called are permanently deleted. Purge operations can take --- up to one minute to take effect. Tasks might be dispatched before the --- purge takes effect. A purge is irreversible. --- --- /See:/ 'projectsLocationsQueuesPurge' smart constructor. -data ProjectsLocationsQueuesPurge = - ProjectsLocationsQueuesPurge' - { _pXgafv :: !(Maybe Xgafv) - , _pUploadProtocol :: !(Maybe Text) - , _pAccessToken :: !(Maybe Text) - , _pUploadType :: !(Maybe Text) - , _pPayload :: !PurgeQueueRequest - , _pName :: !Text - , _pCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesPurge' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pXgafv' --- --- * 'pUploadProtocol' --- --- * 'pAccessToken' --- --- * 'pUploadType' --- --- * 'pPayload' --- --- * 'pName' --- --- * 'pCallback' -projectsLocationsQueuesPurge - :: PurgeQueueRequest -- ^ 'pPayload' - -> Text -- ^ 'pName' - -> ProjectsLocationsQueuesPurge -projectsLocationsQueuesPurge pPPayload_ pPName_ = - ProjectsLocationsQueuesPurge' - { _pXgafv = Nothing - , _pUploadProtocol = Nothing - , _pAccessToken = Nothing - , _pUploadType = Nothing - , _pPayload = pPPayload_ - , _pName = pPName_ - , _pCallback = Nothing - } - - --- | V1 error format. -pXgafv :: Lens' ProjectsLocationsQueuesPurge (Maybe Xgafv) -pXgafv = lens _pXgafv (\ s a -> s{_pXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -pUploadProtocol :: Lens' ProjectsLocationsQueuesPurge (Maybe Text) -pUploadProtocol - = lens _pUploadProtocol - (\ s a -> s{_pUploadProtocol = a}) - --- | OAuth access token. -pAccessToken :: Lens' ProjectsLocationsQueuesPurge (Maybe Text) -pAccessToken - = lens _pAccessToken (\ s a -> s{_pAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -pUploadType :: Lens' ProjectsLocationsQueuesPurge (Maybe Text) -pUploadType - = lens _pUploadType (\ s a -> s{_pUploadType = a}) - --- | Multipart request metadata. -pPayload :: Lens' ProjectsLocationsQueuesPurge PurgeQueueRequest -pPayload = lens _pPayload (\ s a -> s{_pPayload = a}) - --- | Required. The queue name. For example: --- \`projects\/PROJECT_ID\/location\/LOCATION_ID\/queues\/QUEUE_ID\` -pName :: Lens' ProjectsLocationsQueuesPurge Text -pName = lens _pName (\ s a -> s{_pName = a}) - --- | JSONP -pCallback :: Lens' ProjectsLocationsQueuesPurge (Maybe Text) -pCallback - = lens _pCallback (\ s a -> s{_pCallback = a}) - -instance GoogleRequest ProjectsLocationsQueuesPurge - where - type Rs ProjectsLocationsQueuesPurge = Queue - type Scopes ProjectsLocationsQueuesPurge = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesPurge'{..} - = go _pName _pXgafv _pUploadProtocol _pAccessToken - _pUploadType - _pCallback - (Just AltJSON) - _pPayload - cloudTasksService - where go - = buildClient - (Proxy :: Proxy ProjectsLocationsQueuesPurgeResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Resume.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Resume.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Resume.hs +++ /dev/null @@ -1,178 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Resume --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Resume a queue. This method resumes a queue after it has been PAUSED or --- DISABLED. The state of a queue is stored in the queue\'s state; after --- calling this method it will be set to RUNNING. WARNING: Resuming many --- high-QPS queues at the same time can lead to target overloading. If you --- are resuming high-QPS queues, follow the 500\/50\/5 pattern described in --- [Managing Cloud Tasks Scaling --- Risks](https:\/\/cloud.google.com\/tasks\/docs\/manage-cloud-task-scaling). --- --- /See:/ for @cloudtasks.projects.locations.queues.resume@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Resume - ( - -- * REST Resource - ProjectsLocationsQueuesResumeResource - - -- * Creating a Request - , projectsLocationsQueuesResume - , ProjectsLocationsQueuesResume - - -- * Request Lenses - , plqrXgafv - , plqrUploadProtocol - , plqrAccessToken - , plqrUploadType - , plqrPayload - , plqrName - , plqrCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.resume@ method which the --- 'ProjectsLocationsQueuesResume' request conforms to. -type ProjectsLocationsQueuesResumeResource = - "v2" :> - CaptureMode "name" "resume" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] ResumeQueueRequest :> - Post '[JSON] Queue - --- | Resume a queue. This method resumes a queue after it has been PAUSED or --- DISABLED. The state of a queue is stored in the queue\'s state; after --- calling this method it will be set to RUNNING. WARNING: Resuming many --- high-QPS queues at the same time can lead to target overloading. If you --- are resuming high-QPS queues, follow the 500\/50\/5 pattern described in --- [Managing Cloud Tasks Scaling --- Risks](https:\/\/cloud.google.com\/tasks\/docs\/manage-cloud-task-scaling). --- --- /See:/ 'projectsLocationsQueuesResume' smart constructor. -data ProjectsLocationsQueuesResume = - ProjectsLocationsQueuesResume' - { _plqrXgafv :: !(Maybe Xgafv) - , _plqrUploadProtocol :: !(Maybe Text) - , _plqrAccessToken :: !(Maybe Text) - , _plqrUploadType :: !(Maybe Text) - , _plqrPayload :: !ResumeQueueRequest - , _plqrName :: !Text - , _plqrCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesResume' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqrXgafv' --- --- * 'plqrUploadProtocol' --- --- * 'plqrAccessToken' --- --- * 'plqrUploadType' --- --- * 'plqrPayload' --- --- * 'plqrName' --- --- * 'plqrCallback' -projectsLocationsQueuesResume - :: ResumeQueueRequest -- ^ 'plqrPayload' - -> Text -- ^ 'plqrName' - -> ProjectsLocationsQueuesResume -projectsLocationsQueuesResume pPlqrPayload_ pPlqrName_ = - ProjectsLocationsQueuesResume' - { _plqrXgafv = Nothing - , _plqrUploadProtocol = Nothing - , _plqrAccessToken = Nothing - , _plqrUploadType = Nothing - , _plqrPayload = pPlqrPayload_ - , _plqrName = pPlqrName_ - , _plqrCallback = Nothing - } - - --- | V1 error format. -plqrXgafv :: Lens' ProjectsLocationsQueuesResume (Maybe Xgafv) -plqrXgafv - = lens _plqrXgafv (\ s a -> s{_plqrXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqrUploadProtocol :: Lens' ProjectsLocationsQueuesResume (Maybe Text) -plqrUploadProtocol - = lens _plqrUploadProtocol - (\ s a -> s{_plqrUploadProtocol = a}) - --- | OAuth access token. -plqrAccessToken :: Lens' ProjectsLocationsQueuesResume (Maybe Text) -plqrAccessToken - = lens _plqrAccessToken - (\ s a -> s{_plqrAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqrUploadType :: Lens' ProjectsLocationsQueuesResume (Maybe Text) -plqrUploadType - = lens _plqrUploadType - (\ s a -> s{_plqrUploadType = a}) - --- | Multipart request metadata. -plqrPayload :: Lens' ProjectsLocationsQueuesResume ResumeQueueRequest -plqrPayload - = lens _plqrPayload (\ s a -> s{_plqrPayload = a}) - --- | Required. The queue name. For example: --- \`projects\/PROJECT_ID\/location\/LOCATION_ID\/queues\/QUEUE_ID\` -plqrName :: Lens' ProjectsLocationsQueuesResume Text -plqrName = lens _plqrName (\ s a -> s{_plqrName = a}) - --- | JSONP -plqrCallback :: Lens' ProjectsLocationsQueuesResume (Maybe Text) -plqrCallback - = lens _plqrCallback (\ s a -> s{_plqrCallback = a}) - -instance GoogleRequest ProjectsLocationsQueuesResume - where - type Rs ProjectsLocationsQueuesResume = Queue - type Scopes ProjectsLocationsQueuesResume = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesResume'{..} - = go _plqrName _plqrXgafv _plqrUploadProtocol - _plqrAccessToken - _plqrUploadType - _plqrCallback - (Just AltJSON) - _plqrPayload - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesResumeResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/SetIAMPolicy.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/SetIAMPolicy.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/SetIAMPolicy.hs +++ /dev/null @@ -1,183 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.SetIAMPolicy --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Sets the access control policy for a Queue. Replaces any existing --- policy. Note: The Cloud Console does not check queue-level IAM --- permissions yet. Project-level permissions are required to use the Cloud --- Console. Authorization requires the following [Google --- IAM](https:\/\/cloud.google.com\/iam) permission on the specified --- resource parent: * \`cloudtasks.queues.setIamPolicy\` --- --- /See:/ for @cloudtasks.projects.locations.queues.setIamPolicy@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.SetIAMPolicy - ( - -- * REST Resource - ProjectsLocationsQueuesSetIAMPolicyResource - - -- * Creating a Request - , projectsLocationsQueuesSetIAMPolicy - , ProjectsLocationsQueuesSetIAMPolicy - - -- * Request Lenses - , plqsipXgafv - , plqsipUploadProtocol - , plqsipAccessToken - , plqsipUploadType - , plqsipPayload - , plqsipResource - , plqsipCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.setIamPolicy@ method which the --- 'ProjectsLocationsQueuesSetIAMPolicy' request conforms to. -type ProjectsLocationsQueuesSetIAMPolicyResource = - "v2" :> - CaptureMode "resource" "setIamPolicy" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] SetIAMPolicyRequest :> - Post '[JSON] Policy - --- | Sets the access control policy for a Queue. Replaces any existing --- policy. Note: The Cloud Console does not check queue-level IAM --- permissions yet. Project-level permissions are required to use the Cloud --- Console. Authorization requires the following [Google --- IAM](https:\/\/cloud.google.com\/iam) permission on the specified --- resource parent: * \`cloudtasks.queues.setIamPolicy\` --- --- /See:/ 'projectsLocationsQueuesSetIAMPolicy' smart constructor. -data ProjectsLocationsQueuesSetIAMPolicy = - ProjectsLocationsQueuesSetIAMPolicy' - { _plqsipXgafv :: !(Maybe Xgafv) - , _plqsipUploadProtocol :: !(Maybe Text) - , _plqsipAccessToken :: !(Maybe Text) - , _plqsipUploadType :: !(Maybe Text) - , _plqsipPayload :: !SetIAMPolicyRequest - , _plqsipResource :: !Text - , _plqsipCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesSetIAMPolicy' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqsipXgafv' --- --- * 'plqsipUploadProtocol' --- --- * 'plqsipAccessToken' --- --- * 'plqsipUploadType' --- --- * 'plqsipPayload' --- --- * 'plqsipResource' --- --- * 'plqsipCallback' -projectsLocationsQueuesSetIAMPolicy - :: SetIAMPolicyRequest -- ^ 'plqsipPayload' - -> Text -- ^ 'plqsipResource' - -> ProjectsLocationsQueuesSetIAMPolicy -projectsLocationsQueuesSetIAMPolicy pPlqsipPayload_ pPlqsipResource_ = - ProjectsLocationsQueuesSetIAMPolicy' - { _plqsipXgafv = Nothing - , _plqsipUploadProtocol = Nothing - , _plqsipAccessToken = Nothing - , _plqsipUploadType = Nothing - , _plqsipPayload = pPlqsipPayload_ - , _plqsipResource = pPlqsipResource_ - , _plqsipCallback = Nothing - } - - --- | V1 error format. -plqsipXgafv :: Lens' ProjectsLocationsQueuesSetIAMPolicy (Maybe Xgafv) -plqsipXgafv - = lens _plqsipXgafv (\ s a -> s{_plqsipXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqsipUploadProtocol :: Lens' ProjectsLocationsQueuesSetIAMPolicy (Maybe Text) -plqsipUploadProtocol - = lens _plqsipUploadProtocol - (\ s a -> s{_plqsipUploadProtocol = a}) - --- | OAuth access token. -plqsipAccessToken :: Lens' ProjectsLocationsQueuesSetIAMPolicy (Maybe Text) -plqsipAccessToken - = lens _plqsipAccessToken - (\ s a -> s{_plqsipAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqsipUploadType :: Lens' ProjectsLocationsQueuesSetIAMPolicy (Maybe Text) -plqsipUploadType - = lens _plqsipUploadType - (\ s a -> s{_plqsipUploadType = a}) - --- | Multipart request metadata. -plqsipPayload :: Lens' ProjectsLocationsQueuesSetIAMPolicy SetIAMPolicyRequest -plqsipPayload - = lens _plqsipPayload - (\ s a -> s{_plqsipPayload = a}) - --- | REQUIRED: The resource for which the policy is being specified. See the --- operation documentation for the appropriate value for this field. -plqsipResource :: Lens' ProjectsLocationsQueuesSetIAMPolicy Text -plqsipResource - = lens _plqsipResource - (\ s a -> s{_plqsipResource = a}) - --- | JSONP -plqsipCallback :: Lens' ProjectsLocationsQueuesSetIAMPolicy (Maybe Text) -plqsipCallback - = lens _plqsipCallback - (\ s a -> s{_plqsipCallback = a}) - -instance GoogleRequest - ProjectsLocationsQueuesSetIAMPolicy - where - type Rs ProjectsLocationsQueuesSetIAMPolicy = Policy - type Scopes ProjectsLocationsQueuesSetIAMPolicy = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient - ProjectsLocationsQueuesSetIAMPolicy'{..} - = go _plqsipResource _plqsipXgafv - _plqsipUploadProtocol - _plqsipAccessToken - _plqsipUploadType - _plqsipCallback - (Just AltJSON) - _plqsipPayload - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesSetIAMPolicyResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Create.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Create.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Create.hs +++ /dev/null @@ -1,175 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Tasks.Create --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Creates a task and adds it to a queue. Tasks cannot be updated after --- creation; there is no UpdateTask command. * For App Engine queues, the --- maximum task size is 100KB. --- --- /See:/ for @cloudtasks.projects.locations.queues.tasks.create@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Create - ( - -- * REST Resource - ProjectsLocationsQueuesTasksCreateResource - - -- * Creating a Request - , projectsLocationsQueuesTasksCreate - , ProjectsLocationsQueuesTasksCreate - - -- * Request Lenses - , plqtcParent - , plqtcXgafv - , plqtcUploadProtocol - , plqtcAccessToken - , plqtcUploadType - , plqtcPayload - , plqtcCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.tasks.create@ method which the --- 'ProjectsLocationsQueuesTasksCreate' request conforms to. -type ProjectsLocationsQueuesTasksCreateResource = - "v2" :> - Capture "parent" Text :> - "tasks" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] CreateTaskRequest :> - Post '[JSON] Task - --- | Creates a task and adds it to a queue. Tasks cannot be updated after --- creation; there is no UpdateTask command. * For App Engine queues, the --- maximum task size is 100KB. --- --- /See:/ 'projectsLocationsQueuesTasksCreate' smart constructor. -data ProjectsLocationsQueuesTasksCreate = - ProjectsLocationsQueuesTasksCreate' - { _plqtcParent :: !Text - , _plqtcXgafv :: !(Maybe Xgafv) - , _plqtcUploadProtocol :: !(Maybe Text) - , _plqtcAccessToken :: !(Maybe Text) - , _plqtcUploadType :: !(Maybe Text) - , _plqtcPayload :: !CreateTaskRequest - , _plqtcCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesTasksCreate' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqtcParent' --- --- * 'plqtcXgafv' --- --- * 'plqtcUploadProtocol' --- --- * 'plqtcAccessToken' --- --- * 'plqtcUploadType' --- --- * 'plqtcPayload' --- --- * 'plqtcCallback' -projectsLocationsQueuesTasksCreate - :: Text -- ^ 'plqtcParent' - -> CreateTaskRequest -- ^ 'plqtcPayload' - -> ProjectsLocationsQueuesTasksCreate -projectsLocationsQueuesTasksCreate pPlqtcParent_ pPlqtcPayload_ = - ProjectsLocationsQueuesTasksCreate' - { _plqtcParent = pPlqtcParent_ - , _plqtcXgafv = Nothing - , _plqtcUploadProtocol = Nothing - , _plqtcAccessToken = Nothing - , _plqtcUploadType = Nothing - , _plqtcPayload = pPlqtcPayload_ - , _plqtcCallback = Nothing - } - - --- | Required. The queue name. For example: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\` The --- queue must already exist. -plqtcParent :: Lens' ProjectsLocationsQueuesTasksCreate Text -plqtcParent - = lens _plqtcParent (\ s a -> s{_plqtcParent = a}) - --- | V1 error format. -plqtcXgafv :: Lens' ProjectsLocationsQueuesTasksCreate (Maybe Xgafv) -plqtcXgafv - = lens _plqtcXgafv (\ s a -> s{_plqtcXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqtcUploadProtocol :: Lens' ProjectsLocationsQueuesTasksCreate (Maybe Text) -plqtcUploadProtocol - = lens _plqtcUploadProtocol - (\ s a -> s{_plqtcUploadProtocol = a}) - --- | OAuth access token. -plqtcAccessToken :: Lens' ProjectsLocationsQueuesTasksCreate (Maybe Text) -plqtcAccessToken - = lens _plqtcAccessToken - (\ s a -> s{_plqtcAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqtcUploadType :: Lens' ProjectsLocationsQueuesTasksCreate (Maybe Text) -plqtcUploadType - = lens _plqtcUploadType - (\ s a -> s{_plqtcUploadType = a}) - --- | Multipart request metadata. -plqtcPayload :: Lens' ProjectsLocationsQueuesTasksCreate CreateTaskRequest -plqtcPayload - = lens _plqtcPayload (\ s a -> s{_plqtcPayload = a}) - --- | JSONP -plqtcCallback :: Lens' ProjectsLocationsQueuesTasksCreate (Maybe Text) -plqtcCallback - = lens _plqtcCallback - (\ s a -> s{_plqtcCallback = a}) - -instance GoogleRequest - ProjectsLocationsQueuesTasksCreate - where - type Rs ProjectsLocationsQueuesTasksCreate = Task - type Scopes ProjectsLocationsQueuesTasksCreate = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesTasksCreate'{..} - = go _plqtcParent _plqtcXgafv _plqtcUploadProtocol - _plqtcAccessToken - _plqtcUploadType - _plqtcCallback - (Just AltJSON) - _plqtcPayload - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesTasksCreateResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Delete.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Delete.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Delete.hs +++ /dev/null @@ -1,159 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Tasks.Delete --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deletes a task. A task can be deleted if it is scheduled or dispatched. --- A task cannot be deleted if it has executed successfully or permanently --- failed. --- --- /See:/ for @cloudtasks.projects.locations.queues.tasks.delete@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Delete - ( - -- * REST Resource - ProjectsLocationsQueuesTasksDeleteResource - - -- * Creating a Request - , projectsLocationsQueuesTasksDelete - , ProjectsLocationsQueuesTasksDelete - - -- * Request Lenses - , plqtdXgafv - , plqtdUploadProtocol - , plqtdAccessToken - , plqtdUploadType - , plqtdName - , plqtdCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.tasks.delete@ method which the --- 'ProjectsLocationsQueuesTasksDelete' request conforms to. -type ProjectsLocationsQueuesTasksDeleteResource = - "v2" :> - Capture "name" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> Delete '[JSON] Empty - --- | Deletes a task. A task can be deleted if it is scheduled or dispatched. --- A task cannot be deleted if it has executed successfully or permanently --- failed. --- --- /See:/ 'projectsLocationsQueuesTasksDelete' smart constructor. -data ProjectsLocationsQueuesTasksDelete = - ProjectsLocationsQueuesTasksDelete' - { _plqtdXgafv :: !(Maybe Xgafv) - , _plqtdUploadProtocol :: !(Maybe Text) - , _plqtdAccessToken :: !(Maybe Text) - , _plqtdUploadType :: !(Maybe Text) - , _plqtdName :: !Text - , _plqtdCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesTasksDelete' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqtdXgafv' --- --- * 'plqtdUploadProtocol' --- --- * 'plqtdAccessToken' --- --- * 'plqtdUploadType' --- --- * 'plqtdName' --- --- * 'plqtdCallback' -projectsLocationsQueuesTasksDelete - :: Text -- ^ 'plqtdName' - -> ProjectsLocationsQueuesTasksDelete -projectsLocationsQueuesTasksDelete pPlqtdName_ = - ProjectsLocationsQueuesTasksDelete' - { _plqtdXgafv = Nothing - , _plqtdUploadProtocol = Nothing - , _plqtdAccessToken = Nothing - , _plqtdUploadType = Nothing - , _plqtdName = pPlqtdName_ - , _plqtdCallback = Nothing - } - - --- | V1 error format. -plqtdXgafv :: Lens' ProjectsLocationsQueuesTasksDelete (Maybe Xgafv) -plqtdXgafv - = lens _plqtdXgafv (\ s a -> s{_plqtdXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqtdUploadProtocol :: Lens' ProjectsLocationsQueuesTasksDelete (Maybe Text) -plqtdUploadProtocol - = lens _plqtdUploadProtocol - (\ s a -> s{_plqtdUploadProtocol = a}) - --- | OAuth access token. -plqtdAccessToken :: Lens' ProjectsLocationsQueuesTasksDelete (Maybe Text) -plqtdAccessToken - = lens _plqtdAccessToken - (\ s a -> s{_plqtdAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqtdUploadType :: Lens' ProjectsLocationsQueuesTasksDelete (Maybe Text) -plqtdUploadType - = lens _plqtdUploadType - (\ s a -> s{_plqtdUploadType = a}) - --- | Required. The task name. For example: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID\` -plqtdName :: Lens' ProjectsLocationsQueuesTasksDelete Text -plqtdName - = lens _plqtdName (\ s a -> s{_plqtdName = a}) - --- | JSONP -plqtdCallback :: Lens' ProjectsLocationsQueuesTasksDelete (Maybe Text) -plqtdCallback - = lens _plqtdCallback - (\ s a -> s{_plqtdCallback = a}) - -instance GoogleRequest - ProjectsLocationsQueuesTasksDelete - where - type Rs ProjectsLocationsQueuesTasksDelete = Empty - type Scopes ProjectsLocationsQueuesTasksDelete = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesTasksDelete'{..} - = go _plqtdName _plqtdXgafv _plqtdUploadProtocol - _plqtdAccessToken - _plqtdUploadType - _plqtdCallback - (Just AltJSON) - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesTasksDeleteResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Get.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Get.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Get.hs +++ /dev/null @@ -1,174 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Tasks.Get --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Gets a task. --- --- /See:/ for @cloudtasks.projects.locations.queues.tasks.get@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Get - ( - -- * REST Resource - ProjectsLocationsQueuesTasksGetResource - - -- * Creating a Request - , projectsLocationsQueuesTasksGet - , ProjectsLocationsQueuesTasksGet - - -- * Request Lenses - , plqtgXgafv - , plqtgUploadProtocol - , plqtgAccessToken - , plqtgUploadType - , plqtgResponseView - , plqtgName - , plqtgCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.tasks.get@ method which the --- 'ProjectsLocationsQueuesTasksGet' request conforms to. -type ProjectsLocationsQueuesTasksGetResource = - "v2" :> - Capture "name" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "responseView" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> Get '[JSON] Task - --- | Gets a task. --- --- /See:/ 'projectsLocationsQueuesTasksGet' smart constructor. -data ProjectsLocationsQueuesTasksGet = - ProjectsLocationsQueuesTasksGet' - { _plqtgXgafv :: !(Maybe Xgafv) - , _plqtgUploadProtocol :: !(Maybe Text) - , _plqtgAccessToken :: !(Maybe Text) - , _plqtgUploadType :: !(Maybe Text) - , _plqtgResponseView :: !(Maybe Text) - , _plqtgName :: !Text - , _plqtgCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesTasksGet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqtgXgafv' --- --- * 'plqtgUploadProtocol' --- --- * 'plqtgAccessToken' --- --- * 'plqtgUploadType' --- --- * 'plqtgResponseView' --- --- * 'plqtgName' --- --- * 'plqtgCallback' -projectsLocationsQueuesTasksGet - :: Text -- ^ 'plqtgName' - -> ProjectsLocationsQueuesTasksGet -projectsLocationsQueuesTasksGet pPlqtgName_ = - ProjectsLocationsQueuesTasksGet' - { _plqtgXgafv = Nothing - , _plqtgUploadProtocol = Nothing - , _plqtgAccessToken = Nothing - , _plqtgUploadType = Nothing - , _plqtgResponseView = Nothing - , _plqtgName = pPlqtgName_ - , _plqtgCallback = Nothing - } - - --- | V1 error format. -plqtgXgafv :: Lens' ProjectsLocationsQueuesTasksGet (Maybe Xgafv) -plqtgXgafv - = lens _plqtgXgafv (\ s a -> s{_plqtgXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqtgUploadProtocol :: Lens' ProjectsLocationsQueuesTasksGet (Maybe Text) -plqtgUploadProtocol - = lens _plqtgUploadProtocol - (\ s a -> s{_plqtgUploadProtocol = a}) - --- | OAuth access token. -plqtgAccessToken :: Lens' ProjectsLocationsQueuesTasksGet (Maybe Text) -plqtgAccessToken - = lens _plqtgAccessToken - (\ s a -> s{_plqtgAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqtgUploadType :: Lens' ProjectsLocationsQueuesTasksGet (Maybe Text) -plqtgUploadType - = lens _plqtgUploadType - (\ s a -> s{_plqtgUploadType = a}) - --- | The response_view specifies which subset of the Task will be returned. --- By default response_view is BASIC; not all information is retrieved by --- default because some data, such as payloads, might be desirable to --- return only when needed because of its large size or because of the --- sensitivity of data that it contains. Authorization for FULL requires --- \`cloudtasks.tasks.fullView\` [Google --- IAM](https:\/\/cloud.google.com\/iam\/) permission on the Task resource. -plqtgResponseView :: Lens' ProjectsLocationsQueuesTasksGet (Maybe Text) -plqtgResponseView - = lens _plqtgResponseView - (\ s a -> s{_plqtgResponseView = a}) - --- | Required. The task name. For example: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID\` -plqtgName :: Lens' ProjectsLocationsQueuesTasksGet Text -plqtgName - = lens _plqtgName (\ s a -> s{_plqtgName = a}) - --- | JSONP -plqtgCallback :: Lens' ProjectsLocationsQueuesTasksGet (Maybe Text) -plqtgCallback - = lens _plqtgCallback - (\ s a -> s{_plqtgCallback = a}) - -instance GoogleRequest - ProjectsLocationsQueuesTasksGet - where - type Rs ProjectsLocationsQueuesTasksGet = Task - type Scopes ProjectsLocationsQueuesTasksGet = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesTasksGet'{..} - = go _plqtgName _plqtgXgafv _plqtgUploadProtocol - _plqtgAccessToken - _plqtgUploadType - _plqtgResponseView - _plqtgCallback - (Just AltJSON) - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesTasksGetResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/List.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/List.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/List.hs +++ /dev/null @@ -1,218 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Tasks.List --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Lists the tasks in a queue. By default, only the BASIC view is retrieved --- due to performance considerations; response_view controls the subset of --- information which is returned. The tasks may be returned in any order. --- The ordering may change at any time. --- --- /See:/ for @cloudtasks.projects.locations.queues.tasks.list@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.List - ( - -- * REST Resource - ProjectsLocationsQueuesTasksListResource - - -- * Creating a Request - , projectsLocationsQueuesTasksList - , ProjectsLocationsQueuesTasksList - - -- * Request Lenses - , plqtlParent - , plqtlXgafv - , plqtlUploadProtocol - , plqtlAccessToken - , plqtlUploadType - , plqtlResponseView - , plqtlPageToken - , plqtlPageSize - , plqtlCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.tasks.list@ method which the --- 'ProjectsLocationsQueuesTasksList' request conforms to. -type ProjectsLocationsQueuesTasksListResource = - "v2" :> - Capture "parent" Text :> - "tasks" :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "responseView" Text :> - QueryParam "pageToken" Text :> - QueryParam "pageSize" (Textual Int32) :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListTasksResponse - --- | Lists the tasks in a queue. By default, only the BASIC view is retrieved --- due to performance considerations; response_view controls the subset of --- information which is returned. The tasks may be returned in any order. --- The ordering may change at any time. --- --- /See:/ 'projectsLocationsQueuesTasksList' smart constructor. -data ProjectsLocationsQueuesTasksList = - ProjectsLocationsQueuesTasksList' - { _plqtlParent :: !Text - , _plqtlXgafv :: !(Maybe Xgafv) - , _plqtlUploadProtocol :: !(Maybe Text) - , _plqtlAccessToken :: !(Maybe Text) - , _plqtlUploadType :: !(Maybe Text) - , _plqtlResponseView :: !(Maybe Text) - , _plqtlPageToken :: !(Maybe Text) - , _plqtlPageSize :: !(Maybe (Textual Int32)) - , _plqtlCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesTasksList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqtlParent' --- --- * 'plqtlXgafv' --- --- * 'plqtlUploadProtocol' --- --- * 'plqtlAccessToken' --- --- * 'plqtlUploadType' --- --- * 'plqtlResponseView' --- --- * 'plqtlPageToken' --- --- * 'plqtlPageSize' --- --- * 'plqtlCallback' -projectsLocationsQueuesTasksList - :: Text -- ^ 'plqtlParent' - -> ProjectsLocationsQueuesTasksList -projectsLocationsQueuesTasksList pPlqtlParent_ = - ProjectsLocationsQueuesTasksList' - { _plqtlParent = pPlqtlParent_ - , _plqtlXgafv = Nothing - , _plqtlUploadProtocol = Nothing - , _plqtlAccessToken = Nothing - , _plqtlUploadType = Nothing - , _plqtlResponseView = Nothing - , _plqtlPageToken = Nothing - , _plqtlPageSize = Nothing - , _plqtlCallback = Nothing - } - - --- | Required. The queue name. For example: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\` -plqtlParent :: Lens' ProjectsLocationsQueuesTasksList Text -plqtlParent - = lens _plqtlParent (\ s a -> s{_plqtlParent = a}) - --- | V1 error format. -plqtlXgafv :: Lens' ProjectsLocationsQueuesTasksList (Maybe Xgafv) -plqtlXgafv - = lens _plqtlXgafv (\ s a -> s{_plqtlXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqtlUploadProtocol :: Lens' ProjectsLocationsQueuesTasksList (Maybe Text) -plqtlUploadProtocol - = lens _plqtlUploadProtocol - (\ s a -> s{_plqtlUploadProtocol = a}) - --- | OAuth access token. -plqtlAccessToken :: Lens' ProjectsLocationsQueuesTasksList (Maybe Text) -plqtlAccessToken - = lens _plqtlAccessToken - (\ s a -> s{_plqtlAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqtlUploadType :: Lens' ProjectsLocationsQueuesTasksList (Maybe Text) -plqtlUploadType - = lens _plqtlUploadType - (\ s a -> s{_plqtlUploadType = a}) - --- | The response_view specifies which subset of the Task will be returned. --- By default response_view is BASIC; not all information is retrieved by --- default because some data, such as payloads, might be desirable to --- return only when needed because of its large size or because of the --- sensitivity of data that it contains. Authorization for FULL requires --- \`cloudtasks.tasks.fullView\` [Google --- IAM](https:\/\/cloud.google.com\/iam\/) permission on the Task resource. -plqtlResponseView :: Lens' ProjectsLocationsQueuesTasksList (Maybe Text) -plqtlResponseView - = lens _plqtlResponseView - (\ s a -> s{_plqtlResponseView = a}) - --- | A token identifying the page of results to return. To request the first --- page results, page_token must be empty. To request the next page of --- results, page_token must be the value of next_page_token returned from --- the previous call to ListTasks method. The page token is valid for only --- 2 hours. -plqtlPageToken :: Lens' ProjectsLocationsQueuesTasksList (Maybe Text) -plqtlPageToken - = lens _plqtlPageToken - (\ s a -> s{_plqtlPageToken = a}) - --- | Requested page size. Fewer tasks than requested might be returned. The --- maximum page size is 1000. If unspecified, the page size will be the --- maximum. Fewer tasks than requested might be returned, even if more --- tasks exist; use next_page_token in the response to determine if more --- tasks exist. -plqtlPageSize :: Lens' ProjectsLocationsQueuesTasksList (Maybe Int32) -plqtlPageSize - = lens _plqtlPageSize - (\ s a -> s{_plqtlPageSize = a}) - . mapping _Coerce - --- | JSONP -plqtlCallback :: Lens' ProjectsLocationsQueuesTasksList (Maybe Text) -plqtlCallback - = lens _plqtlCallback - (\ s a -> s{_plqtlCallback = a}) - -instance GoogleRequest - ProjectsLocationsQueuesTasksList - where - type Rs ProjectsLocationsQueuesTasksList = - ListTasksResponse - type Scopes ProjectsLocationsQueuesTasksList = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesTasksList'{..} - = go _plqtlParent _plqtlXgafv _plqtlUploadProtocol - _plqtlAccessToken - _plqtlUploadType - _plqtlResponseView - _plqtlPageToken - _plqtlPageSize - _plqtlCallback - (Just AltJSON) - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesTasksListResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Run.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Run.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Run.hs +++ /dev/null @@ -1,192 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.Tasks.Run --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Forces a task to run now. When this method is called, Cloud Tasks will --- dispatch the task, even if the task is already running, the queue has --- reached its RateLimits or is PAUSED. This command is meant to be used --- for manual debugging. For example, RunTask can be used to retry a failed --- task after a fix has been made or to manually force a task to be --- dispatched now. The dispatched task is returned. That is, the task that --- is returned contains the status after the task is dispatched but before --- the task is received by its target. If Cloud Tasks receives a successful --- response from the task\'s target, then the task will be deleted; --- otherwise the task\'s schedule_time will be reset to the time that --- RunTask was called plus the retry delay specified in the queue\'s --- RetryConfig. RunTask returns NOT_FOUND when it is called on a task that --- has already succeeded or permanently failed. --- --- /See:/ for @cloudtasks.projects.locations.queues.tasks.run@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Run - ( - -- * REST Resource - ProjectsLocationsQueuesTasksRunResource - - -- * Creating a Request - , projectsLocationsQueuesTasksRun - , ProjectsLocationsQueuesTasksRun - - -- * Request Lenses - , plqtrXgafv - , plqtrUploadProtocol - , plqtrAccessToken - , plqtrUploadType - , plqtrPayload - , plqtrName - , plqtrCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.tasks.run@ method which the --- 'ProjectsLocationsQueuesTasksRun' request conforms to. -type ProjectsLocationsQueuesTasksRunResource = - "v2" :> - CaptureMode "name" "run" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] RunTaskRequest :> Post '[JSON] Task - --- | Forces a task to run now. When this method is called, Cloud Tasks will --- dispatch the task, even if the task is already running, the queue has --- reached its RateLimits or is PAUSED. This command is meant to be used --- for manual debugging. For example, RunTask can be used to retry a failed --- task after a fix has been made or to manually force a task to be --- dispatched now. The dispatched task is returned. That is, the task that --- is returned contains the status after the task is dispatched but before --- the task is received by its target. If Cloud Tasks receives a successful --- response from the task\'s target, then the task will be deleted; --- otherwise the task\'s schedule_time will be reset to the time that --- RunTask was called plus the retry delay specified in the queue\'s --- RetryConfig. RunTask returns NOT_FOUND when it is called on a task that --- has already succeeded or permanently failed. --- --- /See:/ 'projectsLocationsQueuesTasksRun' smart constructor. -data ProjectsLocationsQueuesTasksRun = - ProjectsLocationsQueuesTasksRun' - { _plqtrXgafv :: !(Maybe Xgafv) - , _plqtrUploadProtocol :: !(Maybe Text) - , _plqtrAccessToken :: !(Maybe Text) - , _plqtrUploadType :: !(Maybe Text) - , _plqtrPayload :: !RunTaskRequest - , _plqtrName :: !Text - , _plqtrCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesTasksRun' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqtrXgafv' --- --- * 'plqtrUploadProtocol' --- --- * 'plqtrAccessToken' --- --- * 'plqtrUploadType' --- --- * 'plqtrPayload' --- --- * 'plqtrName' --- --- * 'plqtrCallback' -projectsLocationsQueuesTasksRun - :: RunTaskRequest -- ^ 'plqtrPayload' - -> Text -- ^ 'plqtrName' - -> ProjectsLocationsQueuesTasksRun -projectsLocationsQueuesTasksRun pPlqtrPayload_ pPlqtrName_ = - ProjectsLocationsQueuesTasksRun' - { _plqtrXgafv = Nothing - , _plqtrUploadProtocol = Nothing - , _plqtrAccessToken = Nothing - , _plqtrUploadType = Nothing - , _plqtrPayload = pPlqtrPayload_ - , _plqtrName = pPlqtrName_ - , _plqtrCallback = Nothing - } - - --- | V1 error format. -plqtrXgafv :: Lens' ProjectsLocationsQueuesTasksRun (Maybe Xgafv) -plqtrXgafv - = lens _plqtrXgafv (\ s a -> s{_plqtrXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqtrUploadProtocol :: Lens' ProjectsLocationsQueuesTasksRun (Maybe Text) -plqtrUploadProtocol - = lens _plqtrUploadProtocol - (\ s a -> s{_plqtrUploadProtocol = a}) - --- | OAuth access token. -plqtrAccessToken :: Lens' ProjectsLocationsQueuesTasksRun (Maybe Text) -plqtrAccessToken - = lens _plqtrAccessToken - (\ s a -> s{_plqtrAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqtrUploadType :: Lens' ProjectsLocationsQueuesTasksRun (Maybe Text) -plqtrUploadType - = lens _plqtrUploadType - (\ s a -> s{_plqtrUploadType = a}) - --- | Multipart request metadata. -plqtrPayload :: Lens' ProjectsLocationsQueuesTasksRun RunTaskRequest -plqtrPayload - = lens _plqtrPayload (\ s a -> s{_plqtrPayload = a}) - --- | Required. The task name. For example: --- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\/tasks\/TASK_ID\` -plqtrName :: Lens' ProjectsLocationsQueuesTasksRun Text -plqtrName - = lens _plqtrName (\ s a -> s{_plqtrName = a}) - --- | JSONP -plqtrCallback :: Lens' ProjectsLocationsQueuesTasksRun (Maybe Text) -plqtrCallback - = lens _plqtrCallback - (\ s a -> s{_plqtrCallback = a}) - -instance GoogleRequest - ProjectsLocationsQueuesTasksRun - where - type Rs ProjectsLocationsQueuesTasksRun = Task - type Scopes ProjectsLocationsQueuesTasksRun = - '["https://www.googleapis.com/auth/cloud-platform"] - requestClient ProjectsLocationsQueuesTasksRun'{..} - = go _plqtrName _plqtrXgafv _plqtrUploadProtocol - _plqtrAccessToken - _plqtrUploadType - _plqtrCallback - (Just AltJSON) - _plqtrPayload - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy ProjectsLocationsQueuesTasksRunResource) - mempty diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/TestIAMPermissions.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/TestIAMPermissions.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/TestIAMPermissions.hs +++ /dev/null @@ -1,185 +0,0 @@ -{-# 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.CloudTasks.Projects.Locations.Queues.TestIAMPermissions --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Returns permissions that a caller has on a Queue. If the resource does --- not exist, this will return an empty set of permissions, not a NOT_FOUND --- error. Note: This operation is designed to be used for building --- permission-aware UIs and command-line tools, not for authorization --- checking. This operation may \"fail open\" without warning. --- --- /See:/ for @cloudtasks.projects.locations.queues.testIamPermissions@. -module Network.Google.Resource.CloudTasks.Projects.Locations.Queues.TestIAMPermissions - ( - -- * REST Resource - ProjectsLocationsQueuesTestIAMPermissionsResource - - -- * Creating a Request - , projectsLocationsQueuesTestIAMPermissions - , ProjectsLocationsQueuesTestIAMPermissions - - -- * Request Lenses - , plqtipXgafv - , plqtipUploadProtocol - , plqtipAccessToken - , plqtipUploadType - , plqtipPayload - , plqtipResource - , plqtipCallback - ) where - -import Network.Google.CloudTasks.Types -import Network.Google.Prelude - --- | A resource alias for @cloudtasks.projects.locations.queues.testIamPermissions@ method which the --- 'ProjectsLocationsQueuesTestIAMPermissions' request conforms to. -type ProjectsLocationsQueuesTestIAMPermissionsResource - = - "v2" :> - CaptureMode "resource" "testIamPermissions" Text :> - QueryParam "$.xgafv" Xgafv :> - QueryParam "upload_protocol" Text :> - QueryParam "access_token" Text :> - QueryParam "uploadType" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] TestIAMPermissionsRequest :> - Post '[JSON] TestIAMPermissionsResponse - --- | Returns permissions that a caller has on a Queue. If the resource does --- not exist, this will return an empty set of permissions, not a NOT_FOUND --- error. Note: This operation is designed to be used for building --- permission-aware UIs and command-line tools, not for authorization --- checking. This operation may \"fail open\" without warning. --- --- /See:/ 'projectsLocationsQueuesTestIAMPermissions' smart constructor. -data ProjectsLocationsQueuesTestIAMPermissions = - ProjectsLocationsQueuesTestIAMPermissions' - { _plqtipXgafv :: !(Maybe Xgafv) - , _plqtipUploadProtocol :: !(Maybe Text) - , _plqtipAccessToken :: !(Maybe Text) - , _plqtipUploadType :: !(Maybe Text) - , _plqtipPayload :: !TestIAMPermissionsRequest - , _plqtipResource :: !Text - , _plqtipCallback :: !(Maybe Text) - } - deriving (Eq, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProjectsLocationsQueuesTestIAMPermissions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plqtipXgafv' --- --- * 'plqtipUploadProtocol' --- --- * 'plqtipAccessToken' --- --- * 'plqtipUploadType' --- --- * 'plqtipPayload' --- --- * 'plqtipResource' --- --- * 'plqtipCallback' -projectsLocationsQueuesTestIAMPermissions - :: TestIAMPermissionsRequest -- ^ 'plqtipPayload' - -> Text -- ^ 'plqtipResource' - -> ProjectsLocationsQueuesTestIAMPermissions -projectsLocationsQueuesTestIAMPermissions pPlqtipPayload_ pPlqtipResource_ = - ProjectsLocationsQueuesTestIAMPermissions' - { _plqtipXgafv = Nothing - , _plqtipUploadProtocol = Nothing - , _plqtipAccessToken = Nothing - , _plqtipUploadType = Nothing - , _plqtipPayload = pPlqtipPayload_ - , _plqtipResource = pPlqtipResource_ - , _plqtipCallback = Nothing - } - - --- | V1 error format. -plqtipXgafv :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Xgafv) -plqtipXgafv - = lens _plqtipXgafv (\ s a -> s{_plqtipXgafv = a}) - --- | Upload protocol for media (e.g. \"raw\", \"multipart\"). -plqtipUploadProtocol :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Text) -plqtipUploadProtocol - = lens _plqtipUploadProtocol - (\ s a -> s{_plqtipUploadProtocol = a}) - --- | OAuth access token. -plqtipAccessToken :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Text) -plqtipAccessToken - = lens _plqtipAccessToken - (\ s a -> s{_plqtipAccessToken = a}) - --- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). -plqtipUploadType :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Text) -plqtipUploadType - = lens _plqtipUploadType - (\ s a -> s{_plqtipUploadType = a}) - --- | Multipart request metadata. -plqtipPayload :: Lens' ProjectsLocationsQueuesTestIAMPermissions TestIAMPermissionsRequest -plqtipPayload - = lens _plqtipPayload - (\ s a -> s{_plqtipPayload = a}) - --- | REQUIRED: The resource for which the policy detail is being requested. --- See the operation documentation for the appropriate value for this --- field. -plqtipResource :: Lens' ProjectsLocationsQueuesTestIAMPermissions Text -plqtipResource - = lens _plqtipResource - (\ s a -> s{_plqtipResource = a}) - --- | JSONP -plqtipCallback :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Text) -plqtipCallback - = lens _plqtipCallback - (\ s a -> s{_plqtipCallback = a}) - -instance GoogleRequest - ProjectsLocationsQueuesTestIAMPermissions - where - type Rs ProjectsLocationsQueuesTestIAMPermissions = - TestIAMPermissionsResponse - type Scopes ProjectsLocationsQueuesTestIAMPermissions - = '["https://www.googleapis.com/auth/cloud-platform"] - requestClient - ProjectsLocationsQueuesTestIAMPermissions'{..} - = go _plqtipResource _plqtipXgafv - _plqtipUploadProtocol - _plqtipAccessToken - _plqtipUploadType - _plqtipCallback - (Just AltJSON) - _plqtipPayload - cloudTasksService - where go - = buildClient - (Proxy :: - Proxy - ProjectsLocationsQueuesTestIAMPermissionsResource) - mempty diff --git a/gogol-cloudtasks.cabal b/gogol-cloudtasks.cabal --- a/gogol-cloudtasks.cabal +++ b/gogol-cloudtasks.cabal @@ -1,63 +1,81 @@ -name: gogol-cloudtasks -version: 0.5.0 -synopsis: Google Cloud Tasks SDK. -homepage: https://github.com/brendanhay/gogol -bug-reports: https://github.com/brendanhay/gogol/issues -license: OtherLicense -license-file: LICENSE -author: Brendan Hay -maintainer: Brendan Hay -copyright: Copyright (c) 2015-2016 Brendan Hay -category: Network, Google, Cloud -build-type: Simple -cabal-version: >= 1.10 -extra-source-files: README.md src/.gitkeep +cabal-version: 2.2 +name: gogol-cloudtasks +version: 1.0.0 +synopsis: Google Cloud Tasks SDK. +homepage: https://github.com/brendanhay/gogol +bug-reports: https://github.com/brendanhay/gogol/issues +license: MPL-2.0 +license-file: LICENSE +author: Brendan Hay +maintainer: + Brendan Hay , Toni Cebrián +copyright: Copyright (c) 2015-2025 Brendan Hay +category: Google +build-type: Simple +extra-source-files: + README.md + src/.gitkeep + description: - Manages the execution of large numbers of distributed requests. - . - /Warning:/ This is an experimental prototype/preview release which is still - under exploratory development and not intended for public use, caveat emptor! - . - This library is compatible with version @v2@ - of the API. + Manages the execution of large numbers of distributed requests. + . + /Warning:/ This is an experimental prototype/preview release which is still + under exploratory development and not intended for public use, caveat emptor! + . + This library is compatible with version @v2@ + of the API. source-repository head - type: git - location: git://github.com/brendanhay/gogol.git + type: git + location: git://github.com/brendanhay/gogol.git + subdir: gogol-cloudtasks +flag field-selectors + description: + If record field selectors should be enabled. Disabling this requires GHC >=9.2 and the NoFieldSelectors extension. + + default: False + manual: True + library - default-language: Haskell2010 - hs-source-dirs: src gen + default-language: GHC2021 + hs-source-dirs: src gen + ghc-options: + -Wall -fwarn-incomplete-uni-patterns + -fwarn-incomplete-record-updates -funbox-strict-fields + -fwarn-unused-packages - ghc-options: -Wall + if (!flag(field-selectors) && impl(ghc >=9.2)) + default-extensions: NoFieldSelectors - exposed-modules: - Network.Google.CloudTasks - , Network.Google.CloudTasks.Types - , Network.Google.Resource.CloudTasks.Projects.Locations.Get - , Network.Google.Resource.CloudTasks.Projects.Locations.List - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Create - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Delete - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Get - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.GetIAMPolicy - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.List - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Patch - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Pause - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Purge - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Resume - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.SetIAMPolicy - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Create - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Delete - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Get - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.List - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.Tasks.Run - , Network.Google.Resource.CloudTasks.Projects.Locations.Queues.TestIAMPermissions + exposed-modules: + Gogol.CloudTasks + Gogol.CloudTasks.Projects.Locations.Get + Gogol.CloudTasks.Projects.Locations.GetCmekConfig + Gogol.CloudTasks.Projects.Locations.List + Gogol.CloudTasks.Projects.Locations.Queues.Create + Gogol.CloudTasks.Projects.Locations.Queues.Delete + Gogol.CloudTasks.Projects.Locations.Queues.Get + Gogol.CloudTasks.Projects.Locations.Queues.GetIamPolicy + Gogol.CloudTasks.Projects.Locations.Queues.List + Gogol.CloudTasks.Projects.Locations.Queues.Patch + Gogol.CloudTasks.Projects.Locations.Queues.Pause + Gogol.CloudTasks.Projects.Locations.Queues.Purge + Gogol.CloudTasks.Projects.Locations.Queues.Resume + Gogol.CloudTasks.Projects.Locations.Queues.SetIamPolicy + Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Buffer + Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Create + Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Delete + Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Get + Gogol.CloudTasks.Projects.Locations.Queues.Tasks.List + Gogol.CloudTasks.Projects.Locations.Queues.Tasks.Run + Gogol.CloudTasks.Projects.Locations.Queues.TestIamPermissions + Gogol.CloudTasks.Projects.Locations.UpdateCmekConfig + Gogol.CloudTasks.Types - other-modules: - Network.Google.CloudTasks.Types.Product - , Network.Google.CloudTasks.Types.Sum + other-modules: + Gogol.CloudTasks.Internal.Product + Gogol.CloudTasks.Internal.Sum - build-depends: - gogol-core == 0.5.0.* - , base >= 4.7 && < 5 + build-depends: gogol-core ^>=1.0.0