diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/CloudTasks.hs b/gen/Network/Google/CloudTasks.hs --- a/gen/Network/Google/CloudTasks.hs +++ b/gen/Network/Google/CloudTasks.hs @@ -167,11 +167,6 @@ -- ** QueueState , QueueState (..) - -- ** AppEngineHTTPQueue - , AppEngineHTTPQueue - , appEngineHTTPQueue - , aehttpqAppEngineRoutingOverride - -- ** CreateTaskRequestResponseView , CreateTaskRequestResponseView (..) @@ -184,9 +179,9 @@ , Queue , queue , qRateLimits + , qAppEngineRoutingOverride , qState , qRetryConfig - , qAppEngineHTTPQueue , qName , qPurgeTime @@ -232,6 +227,7 @@ , Task , task , tLastAttempt + , tDispatchDeadline , tScheduleTime , tName , tFirstAttempt diff --git a/gen/Network/Google/CloudTasks/Types.hs b/gen/Network/Google/CloudTasks/Types.hs --- a/gen/Network/Google/CloudTasks/Types.hs +++ b/gen/Network/Google/CloudTasks/Types.hs @@ -104,11 +104,6 @@ -- * QueueState , QueueState (..) - -- * AppEngineHTTPQueue - , AppEngineHTTPQueue - , appEngineHTTPQueue - , aehttpqAppEngineRoutingOverride - -- * CreateTaskRequestResponseView , CreateTaskRequestResponseView (..) @@ -121,9 +116,9 @@ , Queue , queue , qRateLimits + , qAppEngineRoutingOverride , qState , qRetryConfig - , qAppEngineHTTPQueue , qName , qPurgeTime @@ -169,6 +164,7 @@ , Task , task , tLastAttempt + , tDispatchDeadline , tScheduleTime , tName , tFirstAttempt @@ -236,12 +232,12 @@ import Network.Google.CloudTasks.Types.Sum import Network.Google.Prelude --- | Default request referring to version 'v2beta3' of the Cloud Tasks API. This contains the host and root path used as a starting point for constructing service requests. +-- | 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:v2beta3") + = 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; +cloudPlatformScope = Proxy diff --git a/gen/Network/Google/CloudTasks/Types/Product.hs b/gen/Network/Google/CloudTasks/Types/Product.hs --- a/gen/Network/Google/CloudTasks/Types/Product.hs +++ b/gen/Network/Google/CloudTasks/Types/Product.hs @@ -26,12 +26,15 @@ -- a task even if the queue has reached its RateLimits. -- -- /See:/ 'rateLimits' smart constructor. -data RateLimits = RateLimits' +data RateLimits = + RateLimits' { _rlMaxConcurrentDispatches :: !(Maybe (Textual Int32)) , _rlMaxDispatchesPerSecond :: !(Maybe (Textual Double)) , _rlMaxBurstSize :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -44,12 +47,13 @@ rateLimits :: 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 @@ -156,12 +160,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor. -data Status = Status' +data Status = + Status' { _sDetails :: !(Maybe [StatusDetailsItem]) , _sCode :: !(Maybe (Textual Int32)) , _sMessage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -173,13 +180,9 @@ -- * 'sMessage' status :: Status -status = - Status' - { _sDetails = Nothing - , _sCode = Nothing - , _sMessage = Nothing - } +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] @@ -221,13 +224,16 @@ -- expression: \"size(request.user) > 0\" -- -- /See:/ 'expr' smart constructor. -data Expr = Expr' +data Expr = + Expr' { _eLocation :: !(Maybe Text) , _eExpression :: !(Maybe Text) , _eTitle :: !(Maybe Text) , _eDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -242,13 +248,14 @@ expr :: 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) @@ -295,11 +302,14 @@ -- | The response message for Locations.ListLocations. -- -- /See:/ 'listLocationsResponse' smart constructor. -data ListLocationsResponse = ListLocationsResponse' +data ListLocationsResponse = + ListLocationsResponse' { _llrNextPageToken :: !(Maybe Text) , _llrLocations :: !(Maybe [Location]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -310,11 +320,9 @@ listLocationsResponse :: ListLocationsResponse listLocationsResponse = - ListLocationsResponse' - { _llrNextPageToken = Nothing - , _llrLocations = Nothing - } + ListLocationsResponse' {_llrNextPageToken = Nothing, _llrLocations = Nothing} + -- | The standard List next-page token. llrNextPageToken :: Lens' ListLocationsResponse (Maybe Text) llrNextPageToken @@ -347,15 +355,17 @@ -- -- /See:/ 'getIAMPolicyRequest' smart constructor. data GetIAMPolicyRequest = - GetIAMPolicyRequest' - deriving (Eq,Show,Data,Typeable,Generic) + 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" @@ -368,14 +378,17 @@ -- retried. -- -- /See:/ 'retryConfig' smart constructor. -data RetryConfig = RetryConfig' +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) + } + 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: @@ -392,7 +405,7 @@ retryConfig :: RetryConfig retryConfig = - RetryConfig' + RetryConfig' { _rcMaxDoublings = Nothing , _rcMaxRetryDuration = Nothing , _rcMaxAttempts = Nothing @@ -400,6 +413,7 @@ , _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 @@ -494,10 +508,13 @@ -- | Request message for forcing a task to run now using RunTask. -- -- /See:/ 'runTaskRequest' smart constructor. -newtype RunTaskRequest = RunTaskRequest' +newtype RunTaskRequest = + RunTaskRequest' { _rtrResponseView :: Maybe RunTaskRequestResponseView - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -505,11 +522,9 @@ -- * 'rtrResponseView' runTaskRequest :: RunTaskRequest -runTaskRequest = - RunTaskRequest' - { _rtrResponseView = Nothing - } +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 @@ -536,14 +551,17 @@ -- | A resource that represents Google Cloud Platform location. -- -- /See:/ 'location' smart constructor. -data Location = Location' +data Location = + Location' { _lName :: !(Maybe Text) , _lMetadata :: !(Maybe LocationMetadata) , _lDisplayName :: !(Maybe Text) , _lLabels :: !(Maybe LocationLabels) , _lLocationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -560,7 +578,7 @@ location :: Location location = - Location' + Location' { _lName = Nothing , _lMetadata = Nothing , _lDisplayName = Nothing @@ -568,6 +586,7 @@ , _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) @@ -623,15 +642,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty = - Empty' - deriving (Eq,Show,Data,Typeable,Generic) + 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') @@ -641,11 +662,14 @@ -- | Request message for CreateTask. -- -- /See:/ 'createTaskRequest' smart constructor. -data CreateTaskRequest = CreateTaskRequest' +data CreateTaskRequest = + CreateTaskRequest' { _ctrResponseView :: !(Maybe CreateTaskRequestResponseView) , _ctrTask :: !(Maybe Task) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -656,11 +680,9 @@ createTaskRequest :: CreateTaskRequest createTaskRequest = - CreateTaskRequest' - { _ctrResponseView = Nothing - , _ctrTask = Nothing - } + 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 @@ -715,11 +737,14 @@ -- | Response message for ListQueues. -- -- /See:/ 'listQueuesResponse' smart constructor. -data ListQueuesResponse = ListQueuesResponse' +data ListQueuesResponse = + ListQueuesResponse' { _lqrNextPageToken :: !(Maybe Text) , _lqrQueues :: !(Maybe [Queue]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -730,11 +755,9 @@ listQueuesResponse :: ListQueuesResponse listQueuesResponse = - ListQueuesResponse' - { _lqrNextPageToken = Nothing - , _lqrQueues = Nothing - } + 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 @@ -768,10 +791,13 @@ -- -- /See:/ 'statusDetailsItem' smart constructor. -newtype StatusDetailsItem = StatusDetailsItem' +newtype StatusDetailsItem = + StatusDetailsItem' { _sdiAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -781,10 +807,9 @@ :: HashMap Text JSONValue -- ^ 'sdiAddtional' -> StatusDetailsItem statusDetailsItem pSdiAddtional_ = - StatusDetailsItem' - { _sdiAddtional = _Coerce # pSdiAddtional_ - } + StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional @@ -799,61 +824,16 @@ instance ToJSON StatusDetailsItem where toJSON = toJSON . _sdiAddtional --- | App Engine HTTP queue. The task will be delivered to the App Engine --- application hostname specified by its AppEngineHttpQueue and --- AppEngineHttpRequest. The documentation for AppEngineHttpRequest --- explains how the task\'s host URL is constructed. Using --- AppEngineHttpQueue 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\` --- --- /See:/ 'appEngineHTTPQueue' smart constructor. -newtype AppEngineHTTPQueue = AppEngineHTTPQueue' - { _aehttpqAppEngineRoutingOverride :: Maybe AppEngineRouting - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'AppEngineHTTPQueue' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aehttpqAppEngineRoutingOverride' -appEngineHTTPQueue - :: AppEngineHTTPQueue -appEngineHTTPQueue = - AppEngineHTTPQueue' - { _aehttpqAppEngineRoutingOverride = Nothing - } - --- | Overrides for the task-level 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. -aehttpqAppEngineRoutingOverride :: Lens' AppEngineHTTPQueue (Maybe AppEngineRouting) -aehttpqAppEngineRoutingOverride - = lens _aehttpqAppEngineRoutingOverride - (\ s a -> s{_aehttpqAppEngineRoutingOverride = a}) - -instance FromJSON AppEngineHTTPQueue where - parseJSON - = withObject "AppEngineHTTPQueue" - (\ o -> - AppEngineHTTPQueue' <$> - (o .:? "appEngineRoutingOverride")) - -instance ToJSON AppEngineHTTPQueue where - toJSON AppEngineHTTPQueue'{..} - = object - (catMaybes - [("appEngineRoutingOverride" .=) <$> - _aehttpqAppEngineRoutingOverride]) - -- | Request message for \`SetIamPolicy\` method. -- -- /See:/ 'setIAMPolicyRequest' smart constructor. -newtype SetIAMPolicyRequest = SetIAMPolicyRequest' +newtype SetIAMPolicyRequest = + SetIAMPolicyRequest' { _siprPolicy :: Maybe Policy - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -861,11 +841,9 @@ -- * 'siprPolicy' setIAMPolicyRequest :: SetIAMPolicyRequest -setIAMPolicyRequest = - SetIAMPolicyRequest' - { _siprPolicy = Nothing - } +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) @@ -888,54 +866,73 @@ -- limits, retry options, queue types, and others. -- -- /See:/ 'queue' smart constructor. -data Queue = Queue' - { _qRateLimits :: !(Maybe RateLimits) - , _qState :: !(Maybe QueueState) - , _qRetryConfig :: !(Maybe RetryConfig) - , _qAppEngineHTTPQueue :: !(Maybe AppEngineHTTPQueue) - , _qName :: !(Maybe Text) - , _qPurgeTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) +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' -- --- * 'qAppEngineHTTPQueue' --- -- * 'qName' -- -- * 'qPurgeTime' queue :: Queue queue = - Queue' + Queue' { _qRateLimits = Nothing + , _qAppEngineRoutingOverride = Nothing , _qState = Nothing , _qRetryConfig = Nothing - , _qAppEngineHTTPQueue = 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 how --- tasks are attempted 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). +-- 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). @@ -955,13 +952,6 @@ qRetryConfig = lens _qRetryConfig (\ s a -> s{_qRetryConfig = a}) --- | App Engine HTTP queue. An App Engine queue is a queue that has an --- AppEngineHttpQueue type. -qAppEngineHTTPQueue :: Lens' Queue (Maybe AppEngineHTTPQueue) -qAppEngineHTTPQueue - = lens _qAppEngineHTTPQueue - (\ s a -> s{_qAppEngineHTTPQueue = a}) - -- | Caller-specified and required in CreateQueue, after which it becomes -- output only. The queue name. The queue name must have the following -- format: @@ -994,9 +984,10 @@ = withObject "Queue" (\ o -> Queue' <$> - (o .:? "rateLimits") <*> (o .:? "state") <*> - (o .:? "retryConfig") - <*> (o .:? "appEngineHttpQueue") + (o .:? "rateLimits") <*> + (o .:? "appEngineRoutingOverride") + <*> (o .:? "state") + <*> (o .:? "retryConfig") <*> (o .:? "name") <*> (o .:? "purgeTime")) @@ -1005,20 +996,24 @@ = object (catMaybes [("rateLimits" .=) <$> _qRateLimits, + ("appEngineRoutingOverride" .=) <$> + _qAppEngineRoutingOverride, ("state" .=) <$> _qState, ("retryConfig" .=) <$> _qRetryConfig, - ("appEngineHttpQueue" .=) <$> _qAppEngineHTTPQueue, ("name" .=) <$> _qName, ("purgeTime" .=) <$> _qPurgeTime]) -- | Response message for listing tasks using ListTasks. -- -- /See:/ 'listTasksResponse' smart constructor. -data ListTasksResponse = ListTasksResponse' +data ListTasksResponse = + ListTasksResponse' { _ltrNextPageToken :: !(Maybe Text) , _ltrTasks :: !(Maybe [Task]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1029,11 +1024,9 @@ listTasksResponse :: ListTasksResponse listTasksResponse = - ListTasksResponse' - { _ltrNextPageToken = Nothing - , _ltrTasks = Nothing - } + 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. @@ -1091,10 +1084,13 @@ -- information, see the CreateTask documentation. -- -- /See:/ 'appEngineHTTPRequestHeaders' smart constructor. -newtype AppEngineHTTPRequestHeaders = AppEngineHTTPRequestHeaders' +newtype AppEngineHTTPRequestHeaders = + AppEngineHTTPRequestHeaders' { _aehttprhAddtional :: HashMap Text Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1104,10 +1100,10 @@ :: HashMap Text Text -- ^ 'aehttprhAddtional' -> AppEngineHTTPRequestHeaders appEngineHTTPRequestHeaders pAehttprhAddtional_ = - AppEngineHTTPRequestHeaders' - { _aehttprhAddtional = _Coerce # pAehttprhAddtional_ - } + AppEngineHTTPRequestHeaders' + {_aehttprhAddtional = _Coerce # pAehttprhAddtional_} + aehttprhAddtional :: Lens' AppEngineHTTPRequestHeaders (HashMap Text Text) aehttprhAddtional = lens _aehttprhAddtional @@ -1127,15 +1123,17 @@ -- -- /See:/ 'pauseQueueRequest' smart constructor. data PauseQueueRequest = - PauseQueueRequest' - deriving (Eq,Show,Data,Typeable,Generic) + 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" @@ -1147,10 +1145,13 @@ -- | Request message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsRequest' smart constructor. -newtype TestIAMPermissionsRequest = TestIAMPermissionsRequest' +newtype TestIAMPermissionsRequest = + TestIAMPermissionsRequest' { _tiprPermissions :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1159,10 +1160,9 @@ testIAMPermissionsRequest :: TestIAMPermissionsRequest testIAMPermissionsRequest = - TestIAMPermissionsRequest' - { _tiprPermissions = Nothing - } + 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 @@ -1189,13 +1189,16 @@ -- | The status of a task attempt. -- -- /See:/ 'attempt' smart constructor. -data Attempt = Attempt' +data Attempt = + Attempt' { _aResponseStatus :: !(Maybe Status) , _aScheduleTime :: !(Maybe DateTime') , _aDispatchTime :: !(Maybe DateTime') , _aResponseTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1210,14 +1213,15 @@ attempt :: Attempt attempt = - Attempt' + Attempt' { _aResponseStatus = Nothing , _aScheduleTime = Nothing , _aDispatchTime = Nothing , _aResponseTime = Nothing } --- | Output only. The response from the target for this attempt. If + +-- | 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) @@ -1271,15 +1275,17 @@ -- -- /See:/ 'purgeQueueRequest' smart constructor. data PurgeQueueRequest = - PurgeQueueRequest' - deriving (Eq,Show,Data,Typeable,Generic) + 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" @@ -1291,8 +1297,10 @@ -- | A unit of scheduled work. -- -- /See:/ 'task' smart constructor. -data Task = Task' +data Task = + Task' { _tLastAttempt :: !(Maybe Attempt) + , _tDispatchDeadline :: !(Maybe GDuration) , _tScheduleTime :: !(Maybe DateTime') , _tName :: !(Maybe Text) , _tFirstAttempt :: !(Maybe Attempt) @@ -1301,14 +1309,18 @@ , _tDispatchCount :: !(Maybe (Textual Int32)) , _tAppEngineHTTPRequest :: !(Maybe AppEngineHTTPRequest) , _tCreateTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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' @@ -1327,8 +1339,9 @@ task :: Task task = - Task' + Task' { _tLastAttempt = Nothing + , _tDispatchDeadline = Nothing , _tScheduleTime = Nothing , _tName = Nothing , _tFirstAttempt = Nothing @@ -1339,11 +1352,40 @@ , _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. @@ -1391,16 +1433,15 @@ . mapping _Coerce -- | Output only. The number of attempts dispatched. This count includes --- tasks which have been dispatched but haven\'t received a response. +-- 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 --- | App Engine HTTP request that is sent to the task\'s target. Can be set --- only if app_engine_http_queue is set on the queue. An App Engine task is --- a task that has AppEngineHttpRequest set. +-- | 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 @@ -1418,8 +1459,9 @@ = withObject "Task" (\ o -> Task' <$> - (o .:? "lastAttempt") <*> (o .:? "scheduleTime") <*> - (o .:? "name") + (o .:? "lastAttempt") <*> (o .:? "dispatchDeadline") + <*> (o .:? "scheduleTime") + <*> (o .:? "name") <*> (o .:? "firstAttempt") <*> (o .:? "view") <*> (o .:? "responseCount") @@ -1432,6 +1474,7 @@ = object (catMaybes [("lastAttempt" .=) <$> _tLastAttempt, + ("dispatchDeadline" .=) <$> _tDispatchDeadline, ("scheduleTime" .=) <$> _tScheduleTime, ("name" .=) <$> _tName, ("firstAttempt" .=) <$> _tFirstAttempt, @@ -1445,10 +1488,13 @@ -- | Response message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsResponse' smart constructor. -newtype TestIAMPermissionsResponse = TestIAMPermissionsResponse' +newtype TestIAMPermissionsResponse = + TestIAMPermissionsResponse' { _tiamprPermissions :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1457,10 +1503,9 @@ testIAMPermissionsResponse :: TestIAMPermissionsResponse testIAMPermissionsResponse = - TestIAMPermissionsResponse' - { _tiamprPermissions = Nothing - } + TestIAMPermissionsResponse' {_tiamprPermissions = Nothing} + -- | A subset of \`TestPermissionsRequest.permissions\` that the caller is -- allowed. tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text] @@ -1502,12 +1547,15 @@ -- guide](https:\/\/cloud.google.com\/iam\/docs). -- -- /See:/ 'policy' smart constructor. -data Policy = Policy' +data Policy = + Policy' { _pEtag :: !(Maybe Bytes) , _pVersion :: !(Maybe (Textual Int32)) , _pBindings :: !(Maybe [Binding]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1519,13 +1567,9 @@ -- * 'pBindings' policy :: Policy -policy = - Policy' - { _pEtag = Nothing - , _pVersion = Nothing - , _pBindings = Nothing - } +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 @@ -1574,10 +1618,13 @@ -- {\"cloud.googleapis.com\/region\": \"us-east1\"} -- -- /See:/ 'locationLabels' smart constructor. -newtype LocationLabels = LocationLabels' +newtype LocationLabels = + LocationLabels' { _llAddtional :: HashMap Text Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1587,10 +1634,9 @@ :: HashMap Text Text -- ^ 'llAddtional' -> LocationLabels locationLabels pLlAddtional_ = - LocationLabels' - { _llAddtional = _Coerce # pLlAddtional_ - } + LocationLabels' {_llAddtional = _Coerce # pLlAddtional_} + llAddtional :: Lens' LocationLabels (HashMap Text Text) llAddtional = lens _llAddtional (\ s a -> s{_llAddtional = a}) . @@ -1608,10 +1654,13 @@ -- given location. -- -- /See:/ 'locationMetadata' smart constructor. -newtype LocationMetadata = LocationMetadata' +newtype LocationMetadata = + LocationMetadata' { _lmAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1621,10 +1670,9 @@ :: HashMap Text JSONValue -- ^ 'lmAddtional' -> LocationMetadata locationMetadata pLmAddtional_ = - LocationMetadata' - { _lmAddtional = _Coerce # pLmAddtional_ - } + LocationMetadata' {_lmAddtional = _Coerce # pLmAddtional_} + -- | Properties of the object. Contains field \'type with type URL. lmAddtional :: Lens' LocationMetadata (HashMap Text JSONValue) lmAddtional @@ -1651,13 +1699,16 @@ -- routing](https:\/\/cloud.google.com\/appengine\/docs\/flexible\/python\/how-requests-are-routed). -- -- /See:/ 'appEngineRouting' smart constructor. -data AppEngineRouting = AppEngineRouting' +data AppEngineRouting = + AppEngineRouting' { _aerService :: !(Maybe Text) , _aerVersion :: !(Maybe Text) , _aerHost :: !(Maybe Text) , _aerInstance :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1672,13 +1723,14 @@ appEngineRouting :: 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 @@ -1778,14 +1830,17 @@ -- receive a response before the deadline is a failed attempt. -- -- /See:/ 'appEngineHTTPRequest' smart constructor. -data AppEngineHTTPRequest = AppEngineHTTPRequest' +data AppEngineHTTPRequest = + AppEngineHTTPRequest' { _aehttprHTTPMethod :: !(Maybe AppEngineHTTPRequestHTTPMethod) , _aehttprRelativeURI :: !(Maybe Text) , _aehttprBody :: !(Maybe Bytes) , _aehttprHeaders :: !(Maybe AppEngineHTTPRequestHeaders) , _aehttprAppEngineRouting :: !(Maybe AppEngineRouting) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1802,7 +1857,7 @@ appEngineHTTPRequest :: AppEngineHTTPRequest appEngineHTTPRequest = - AppEngineHTTPRequest' + AppEngineHTTPRequest' { _aehttprHTTPMethod = Nothing , _aehttprRelativeURI = Nothing , _aehttprBody = Nothing @@ -1810,6 +1865,7 @@ , _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 @@ -1905,15 +1961,17 @@ -- -- /See:/ 'resumeQueueRequest' smart constructor. data ResumeQueueRequest = - ResumeQueueRequest' - deriving (Eq,Show,Data,Typeable,Generic) + 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" @@ -1925,12 +1983,15 @@ -- | Associates \`members\` with a \`role\`. -- -- /See:/ 'binding' smart constructor. -data Binding = Binding' +data Binding = + Binding' { _bMembers :: !(Maybe [Text]) , _bRole :: !(Maybe Text) , _bCondition :: !(Maybe Expr) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -1943,12 +2004,9 @@ binding :: Binding binding = - Binding' - { _bMembers = Nothing - , _bRole = Nothing - , _bCondition = Nothing - } + 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 @@ -1960,8 +2018,8 @@ -- 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}\`: A Google Apps domain --- name that represents all the users of that domain. 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 @@ -1974,10 +2032,9 @@ bRole :: Lens' Binding (Maybe Text) bRole = lens _bRole (\ s a -> s{_bRole = a}) --- | Unimplemented. 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. +-- | 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}) diff --git a/gen/Network/Google/CloudTasks/Types/Sum.hs b/gen/Network/Google/CloudTasks/Types/Sum.hs --- a/gen/Network/Google/CloudTasks/Types/Sum.hs +++ b/gen/Network/Google/CloudTasks/Types/Sum.hs @@ -190,6 +190,12 @@ | Delete' -- ^ @DELETE@ -- HTTP DELETE + | Patch' + -- ^ @PATCH@ + -- HTTP PATCH + | Options + -- ^ @OPTIONS@ + -- HTTP OPTIONS deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable AppEngineHTTPRequestHTTPMethod @@ -202,6 +208,8 @@ "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 @@ -212,6 +220,8 @@ Head' -> "HEAD" Put' -> "PUT" Delete' -> "DELETE" + Patch' -> "PATCH" + Options -> "OPTIONS" instance FromJSON AppEngineHTTPRequestHTTPMethod where parseJSON = parseJSONText "AppEngineHTTPRequestHTTPMethod" diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Get.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Get.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Get.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Get.hs @@ -47,7 +47,7 @@ -- | A resource alias for @cloudtasks.projects.locations.get@ method which the -- 'ProjectsLocationsGet' request conforms to. type ProjectsLocationsGetResource = - "v2beta3" :> + "v2" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -59,15 +59,18 @@ -- | Gets information about a location. -- -- /See:/ 'projectsLocationsGet' smart constructor. -data ProjectsLocationsGet = ProjectsLocationsGet' +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) + } + 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: @@ -87,7 +90,7 @@ :: Text -- ^ 'plgName' -> ProjectsLocationsGet projectsLocationsGet pPlgName_ = - ProjectsLocationsGet' + ProjectsLocationsGet' { _plgXgafv = Nothing , _plgUploadProtocol = Nothing , _plgAccessToken = Nothing @@ -95,6 +98,7 @@ , _plgName = pPlgName_ , _plgCallback = Nothing } + -- | V1 error format. plgXgafv :: Lens' ProjectsLocationsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/List.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/List.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/List.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/List.hs @@ -50,7 +50,7 @@ -- | A resource alias for @cloudtasks.projects.locations.list@ method which the -- 'ProjectsLocationsList' request conforms to. type ProjectsLocationsListResource = - "v2beta3" :> + "v2" :> Capture "name" Text :> "locations" :> QueryParam "$.xgafv" Xgafv :> @@ -67,7 +67,8 @@ -- | Lists information about the supported locations for this service. -- -- /See:/ 'projectsLocationsList' smart constructor. -data ProjectsLocationsList = ProjectsLocationsList' +data ProjectsLocationsList = + ProjectsLocationsList' { _pllXgafv :: !(Maybe Xgafv) , _pllUploadProtocol :: !(Maybe Text) , _pllAccessToken :: !(Maybe Text) @@ -77,8 +78,10 @@ , _pllPageToken :: !(Maybe Text) , _pllPageSize :: !(Maybe (Textual Int32)) , _pllCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -104,7 +107,7 @@ :: Text -- ^ 'pllName' -> ProjectsLocationsList projectsLocationsList pPllName_ = - ProjectsLocationsList' + ProjectsLocationsList' { _pllXgafv = Nothing , _pllUploadProtocol = Nothing , _pllAccessToken = Nothing @@ -115,6 +118,7 @@ , _pllPageSize = Nothing , _pllCallback = Nothing } + -- | V1 error format. pllXgafv :: Lens' ProjectsLocationsList (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Create.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Create.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Create.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Create.hs @@ -55,7 +55,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.create@ method which the -- 'ProjectsLocationsQueuesCreate' request conforms to. type ProjectsLocationsQueuesCreateResource = - "v2beta3" :> + "v2" :> Capture "parent" Text :> "queues" :> QueryParam "$.xgafv" Xgafv :> @@ -76,7 +76,8 @@ -- using this method. -- -- /See:/ 'projectsLocationsQueuesCreate' smart constructor. -data ProjectsLocationsQueuesCreate = ProjectsLocationsQueuesCreate' +data ProjectsLocationsQueuesCreate = + ProjectsLocationsQueuesCreate' { _plqcParent :: !Text , _plqcXgafv :: !(Maybe Xgafv) , _plqcUploadProtocol :: !(Maybe Text) @@ -84,8 +85,10 @@ , _plqcUploadType :: !(Maybe Text) , _plqcPayload :: !Queue , _plqcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -108,7 +111,7 @@ -> Queue -- ^ 'plqcPayload' -> ProjectsLocationsQueuesCreate projectsLocationsQueuesCreate pPlqcParent_ pPlqcPayload_ = - ProjectsLocationsQueuesCreate' + ProjectsLocationsQueuesCreate' { _plqcParent = pPlqcParent_ , _plqcXgafv = Nothing , _plqcUploadProtocol = Nothing @@ -117,6 +120,7 @@ , _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 diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Delete.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Delete.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Delete.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Delete.hs @@ -53,7 +53,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.delete@ method which the -- 'ProjectsLocationsQueuesDelete' request conforms to. type ProjectsLocationsQueuesDeleteResource = - "v2beta3" :> + "v2" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -71,15 +71,18 @@ -- using this method. -- -- /See:/ 'projectsLocationsQueuesDelete' smart constructor. -data ProjectsLocationsQueuesDelete = ProjectsLocationsQueuesDelete' +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) + } + 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: @@ -99,7 +102,7 @@ :: Text -- ^ 'plqdName' -> ProjectsLocationsQueuesDelete projectsLocationsQueuesDelete pPlqdName_ = - ProjectsLocationsQueuesDelete' + ProjectsLocationsQueuesDelete' { _plqdXgafv = Nothing , _plqdUploadProtocol = Nothing , _plqdAccessToken = Nothing @@ -107,6 +110,7 @@ , _plqdName = pPlqdName_ , _plqdCallback = Nothing } + -- | V1 error format. plqdXgafv :: Lens' ProjectsLocationsQueuesDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Get.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Get.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Get.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Get.hs @@ -47,7 +47,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.get@ method which the -- 'ProjectsLocationsQueuesGet' request conforms to. type ProjectsLocationsQueuesGetResource = - "v2beta3" :> + "v2" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -59,15 +59,18 @@ -- | Gets a queue. -- -- /See:/ 'projectsLocationsQueuesGet' smart constructor. -data ProjectsLocationsQueuesGet = ProjectsLocationsQueuesGet' +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) + } + 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: @@ -87,7 +90,7 @@ :: Text -- ^ 'plqgName' -> ProjectsLocationsQueuesGet projectsLocationsQueuesGet pPlqgName_ = - ProjectsLocationsQueuesGet' + ProjectsLocationsQueuesGet' { _plqgXgafv = Nothing , _plqgUploadProtocol = Nothing , _plqgAccessToken = Nothing @@ -95,6 +98,7 @@ , _plqgName = pPlqgName_ , _plqgCallback = Nothing } + -- | V1 error format. plqgXgafv :: Lens' ProjectsLocationsQueuesGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/GetIAMPolicy.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/GetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/GetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/GetIAMPolicy.hs @@ -52,7 +52,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.getIamPolicy@ method which the -- 'ProjectsLocationsQueuesGetIAMPolicy' request conforms to. type ProjectsLocationsQueuesGetIAMPolicyResource = - "v2beta3" :> + "v2" :> CaptureMode "resource" "getIamPolicy" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -70,7 +70,8 @@ -- \`cloudtasks.queues.getIamPolicy\` -- -- /See:/ 'projectsLocationsQueuesGetIAMPolicy' smart constructor. -data ProjectsLocationsQueuesGetIAMPolicy = ProjectsLocationsQueuesGetIAMPolicy' +data ProjectsLocationsQueuesGetIAMPolicy = + ProjectsLocationsQueuesGetIAMPolicy' { _plqgipXgafv :: !(Maybe Xgafv) , _plqgipUploadProtocol :: !(Maybe Text) , _plqgipAccessToken :: !(Maybe Text) @@ -78,8 +79,10 @@ , _plqgipPayload :: !GetIAMPolicyRequest , _plqgipResource :: !Text , _plqgipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -102,7 +105,7 @@ -> Text -- ^ 'plqgipResource' -> ProjectsLocationsQueuesGetIAMPolicy projectsLocationsQueuesGetIAMPolicy pPlqgipPayload_ pPlqgipResource_ = - ProjectsLocationsQueuesGetIAMPolicy' + ProjectsLocationsQueuesGetIAMPolicy' { _plqgipXgafv = Nothing , _plqgipUploadProtocol = Nothing , _plqgipAccessToken = Nothing @@ -112,6 +115,7 @@ , _plqgipCallback = Nothing } + -- | V1 error format. plqgipXgafv :: Lens' ProjectsLocationsQueuesGetIAMPolicy (Maybe Xgafv) plqgipXgafv @@ -155,7 +159,8 @@ (\ s a -> s{_plqgipCallback = a}) instance GoogleRequest - ProjectsLocationsQueuesGetIAMPolicy where + ProjectsLocationsQueuesGetIAMPolicy + where type Rs ProjectsLocationsQueuesGetIAMPolicy = Policy type Scopes ProjectsLocationsQueuesGetIAMPolicy = '["https://www.googleapis.com/auth/cloud-platform"] diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/List.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/List.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/List.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/List.hs @@ -50,7 +50,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.list@ method which the -- 'ProjectsLocationsQueuesList' request conforms to. type ProjectsLocationsQueuesListResource = - "v2beta3" :> + "v2" :> Capture "parent" Text :> "queues" :> QueryParam "$.xgafv" Xgafv :> @@ -67,7 +67,8 @@ -- | Lists queues. Queues are returned in lexicographical order. -- -- /See:/ 'projectsLocationsQueuesList' smart constructor. -data ProjectsLocationsQueuesList = ProjectsLocationsQueuesList' +data ProjectsLocationsQueuesList = + ProjectsLocationsQueuesList' { _plqlParent :: !Text , _plqlXgafv :: !(Maybe Xgafv) , _plqlUploadProtocol :: !(Maybe Text) @@ -77,8 +78,10 @@ , _plqlPageToken :: !(Maybe Text) , _plqlPageSize :: !(Maybe (Textual Int32)) , _plqlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -104,7 +107,7 @@ :: Text -- ^ 'plqlParent' -> ProjectsLocationsQueuesList projectsLocationsQueuesList pPlqlParent_ = - ProjectsLocationsQueuesList' + ProjectsLocationsQueuesList' { _plqlParent = pPlqlParent_ , _plqlXgafv = Nothing , _plqlUploadProtocol = Nothing @@ -115,6 +118,7 @@ , _plqlPageSize = Nothing , _plqlCallback = Nothing } + -- | Required. The location name. For example: -- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\` diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Patch.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Patch.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Patch.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Patch.hs @@ -57,7 +57,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.patch@ method which the -- 'ProjectsLocationsQueuesPatch' request conforms to. type ProjectsLocationsQueuesPatchResource = - "v2beta3" :> + "v2" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -79,7 +79,8 @@ -- using this method. -- -- /See:/ 'projectsLocationsQueuesPatch' smart constructor. -data ProjectsLocationsQueuesPatch = ProjectsLocationsQueuesPatch' +data ProjectsLocationsQueuesPatch = + ProjectsLocationsQueuesPatch' { _plqpXgafv :: !(Maybe Xgafv) , _plqpUploadProtocol :: !(Maybe Text) , _plqpUpdateMask :: !(Maybe GFieldMask) @@ -88,8 +89,10 @@ , _plqpPayload :: !Queue , _plqpName :: !Text , _plqpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -114,7 +117,7 @@ -> Text -- ^ 'plqpName' -> ProjectsLocationsQueuesPatch projectsLocationsQueuesPatch pPlqpPayload_ pPlqpName_ = - ProjectsLocationsQueuesPatch' + ProjectsLocationsQueuesPatch' { _plqpXgafv = Nothing , _plqpUploadProtocol = Nothing , _plqpUpdateMask = Nothing @@ -124,6 +127,7 @@ , _plqpName = pPlqpName_ , _plqpCallback = Nothing } + -- | V1 error format. plqpXgafv :: Lens' ProjectsLocationsQueuesPatch (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Pause.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Pause.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Pause.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Pause.hs @@ -51,7 +51,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.pause@ method which the -- 'ProjectsLocationsQueuesPause' request conforms to. type ProjectsLocationsQueuesPauseResource = - "v2beta3" :> + "v2" :> CaptureMode "name" "pause" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -68,7 +68,8 @@ -- is PAUSED. -- -- /See:/ 'projectsLocationsQueuesPause' smart constructor. -data ProjectsLocationsQueuesPause = ProjectsLocationsQueuesPause' +data ProjectsLocationsQueuesPause = + ProjectsLocationsQueuesPause' { _proXgafv :: !(Maybe Xgafv) , _proUploadProtocol :: !(Maybe Text) , _proAccessToken :: !(Maybe Text) @@ -76,8 +77,10 @@ , _proPayload :: !PauseQueueRequest , _proName :: !Text , _proCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -100,7 +103,7 @@ -> Text -- ^ 'proName' -> ProjectsLocationsQueuesPause projectsLocationsQueuesPause pProPayload_ pProName_ = - ProjectsLocationsQueuesPause' + ProjectsLocationsQueuesPause' { _proXgafv = Nothing , _proUploadProtocol = Nothing , _proAccessToken = Nothing @@ -109,6 +112,7 @@ , _proName = pProName_ , _proCallback = Nothing } + -- | V1 error format. proXgafv :: Lens' ProjectsLocationsQueuesPause (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Purge.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Purge.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Purge.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Purge.hs @@ -51,7 +51,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.purge@ method which the -- 'ProjectsLocationsQueuesPurge' request conforms to. type ProjectsLocationsQueuesPurgeResource = - "v2beta3" :> + "v2" :> CaptureMode "name" "purge" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -68,7 +68,8 @@ -- purge takes effect. A purge is irreversible. -- -- /See:/ 'projectsLocationsQueuesPurge' smart constructor. -data ProjectsLocationsQueuesPurge = ProjectsLocationsQueuesPurge' +data ProjectsLocationsQueuesPurge = + ProjectsLocationsQueuesPurge' { _pXgafv :: !(Maybe Xgafv) , _pUploadProtocol :: !(Maybe Text) , _pAccessToken :: !(Maybe Text) @@ -76,8 +77,10 @@ , _pPayload :: !PurgeQueueRequest , _pName :: !Text , _pCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -100,7 +103,7 @@ -> Text -- ^ 'pName' -> ProjectsLocationsQueuesPurge projectsLocationsQueuesPurge pPPayload_ pPName_ = - ProjectsLocationsQueuesPurge' + ProjectsLocationsQueuesPurge' { _pXgafv = Nothing , _pUploadProtocol = Nothing , _pAccessToken = Nothing @@ -109,6 +112,7 @@ , _pName = pPName_ , _pCallback = Nothing } + -- | V1 error format. pXgafv :: Lens' ProjectsLocationsQueuesPurge (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Resume.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Resume.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Resume.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Resume.hs @@ -54,7 +54,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.resume@ method which the -- 'ProjectsLocationsQueuesResume' request conforms to. type ProjectsLocationsQueuesResumeResource = - "v2beta3" :> + "v2" :> CaptureMode "name" "resume" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -74,7 +74,8 @@ -- Risks](https:\/\/cloud.google.com\/tasks\/docs\/manage-cloud-task-scaling). -- -- /See:/ 'projectsLocationsQueuesResume' smart constructor. -data ProjectsLocationsQueuesResume = ProjectsLocationsQueuesResume' +data ProjectsLocationsQueuesResume = + ProjectsLocationsQueuesResume' { _plqrXgafv :: !(Maybe Xgafv) , _plqrUploadProtocol :: !(Maybe Text) , _plqrAccessToken :: !(Maybe Text) @@ -82,8 +83,10 @@ , _plqrPayload :: !ResumeQueueRequest , _plqrName :: !Text , _plqrCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -106,7 +109,7 @@ -> Text -- ^ 'plqrName' -> ProjectsLocationsQueuesResume projectsLocationsQueuesResume pPlqrPayload_ pPlqrName_ = - ProjectsLocationsQueuesResume' + ProjectsLocationsQueuesResume' { _plqrXgafv = Nothing , _plqrUploadProtocol = Nothing , _plqrAccessToken = Nothing @@ -115,6 +118,7 @@ , _plqrName = pPlqrName_ , _plqrCallback = Nothing } + -- | V1 error format. plqrXgafv :: Lens' ProjectsLocationsQueuesResume (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/SetIAMPolicy.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/SetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/SetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/SetIAMPolicy.hs @@ -53,7 +53,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.setIamPolicy@ method which the -- 'ProjectsLocationsQueuesSetIAMPolicy' request conforms to. type ProjectsLocationsQueuesSetIAMPolicyResource = - "v2beta3" :> + "v2" :> CaptureMode "resource" "setIamPolicy" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -72,7 +72,8 @@ -- resource parent: * \`cloudtasks.queues.setIamPolicy\` -- -- /See:/ 'projectsLocationsQueuesSetIAMPolicy' smart constructor. -data ProjectsLocationsQueuesSetIAMPolicy = ProjectsLocationsQueuesSetIAMPolicy' +data ProjectsLocationsQueuesSetIAMPolicy = + ProjectsLocationsQueuesSetIAMPolicy' { _plqsipXgafv :: !(Maybe Xgafv) , _plqsipUploadProtocol :: !(Maybe Text) , _plqsipAccessToken :: !(Maybe Text) @@ -80,8 +81,10 @@ , _plqsipPayload :: !SetIAMPolicyRequest , _plqsipResource :: !Text , _plqsipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -104,7 +107,7 @@ -> Text -- ^ 'plqsipResource' -> ProjectsLocationsQueuesSetIAMPolicy projectsLocationsQueuesSetIAMPolicy pPlqsipPayload_ pPlqsipResource_ = - ProjectsLocationsQueuesSetIAMPolicy' + ProjectsLocationsQueuesSetIAMPolicy' { _plqsipXgafv = Nothing , _plqsipUploadProtocol = Nothing , _plqsipAccessToken = Nothing @@ -114,6 +117,7 @@ , _plqsipCallback = Nothing } + -- | V1 error format. plqsipXgafv :: Lens' ProjectsLocationsQueuesSetIAMPolicy (Maybe Xgafv) plqsipXgafv @@ -157,7 +161,8 @@ (\ s a -> s{_plqsipCallback = a}) instance GoogleRequest - ProjectsLocationsQueuesSetIAMPolicy where + ProjectsLocationsQueuesSetIAMPolicy + where type Rs ProjectsLocationsQueuesSetIAMPolicy = Policy type Scopes ProjectsLocationsQueuesSetIAMPolicy = '["https://www.googleapis.com/auth/cloud-platform"] 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 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Create.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Create.hs @@ -50,7 +50,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.tasks.create@ method which the -- 'ProjectsLocationsQueuesTasksCreate' request conforms to. type ProjectsLocationsQueuesTasksCreateResource = - "v2beta3" :> + "v2" :> Capture "parent" Text :> "tasks" :> QueryParam "$.xgafv" Xgafv :> @@ -67,7 +67,8 @@ -- maximum task size is 100KB. -- -- /See:/ 'projectsLocationsQueuesTasksCreate' smart constructor. -data ProjectsLocationsQueuesTasksCreate = ProjectsLocationsQueuesTasksCreate' +data ProjectsLocationsQueuesTasksCreate = + ProjectsLocationsQueuesTasksCreate' { _plqtcParent :: !Text , _plqtcXgafv :: !(Maybe Xgafv) , _plqtcUploadProtocol :: !(Maybe Text) @@ -75,8 +76,10 @@ , _plqtcUploadType :: !(Maybe Text) , _plqtcPayload :: !CreateTaskRequest , _plqtcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -99,7 +102,7 @@ -> CreateTaskRequest -- ^ 'plqtcPayload' -> ProjectsLocationsQueuesTasksCreate projectsLocationsQueuesTasksCreate pPlqtcParent_ pPlqtcPayload_ = - ProjectsLocationsQueuesTasksCreate' + ProjectsLocationsQueuesTasksCreate' { _plqtcParent = pPlqtcParent_ , _plqtcXgafv = Nothing , _plqtcUploadProtocol = Nothing @@ -109,6 +112,7 @@ , _plqtcCallback = Nothing } + -- | Required. The queue name. For example: -- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\` The -- queue must already exist. @@ -151,7 +155,8 @@ (\ s a -> s{_plqtcCallback = a}) instance GoogleRequest - ProjectsLocationsQueuesTasksCreate where + ProjectsLocationsQueuesTasksCreate + where type Rs ProjectsLocationsQueuesTasksCreate = Task type Scopes ProjectsLocationsQueuesTasksCreate = '["https://www.googleapis.com/auth/cloud-platform"] 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 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Delete.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Delete.hs @@ -49,7 +49,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.tasks.delete@ method which the -- 'ProjectsLocationsQueuesTasksDelete' request conforms to. type ProjectsLocationsQueuesTasksDeleteResource = - "v2beta3" :> + "v2" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -63,15 +63,18 @@ -- failed. -- -- /See:/ 'projectsLocationsQueuesTasksDelete' smart constructor. -data ProjectsLocationsQueuesTasksDelete = ProjectsLocationsQueuesTasksDelete' +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) + } + 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: @@ -91,7 +94,7 @@ :: Text -- ^ 'plqtdName' -> ProjectsLocationsQueuesTasksDelete projectsLocationsQueuesTasksDelete pPlqtdName_ = - ProjectsLocationsQueuesTasksDelete' + ProjectsLocationsQueuesTasksDelete' { _plqtdXgafv = Nothing , _plqtdUploadProtocol = Nothing , _plqtdAccessToken = Nothing @@ -100,6 +103,7 @@ , _plqtdCallback = Nothing } + -- | V1 error format. plqtdXgafv :: Lens' ProjectsLocationsQueuesTasksDelete (Maybe Xgafv) plqtdXgafv @@ -136,7 +140,8 @@ (\ s a -> s{_plqtdCallback = a}) instance GoogleRequest - ProjectsLocationsQueuesTasksDelete where + ProjectsLocationsQueuesTasksDelete + where type Rs ProjectsLocationsQueuesTasksDelete = Empty type Scopes ProjectsLocationsQueuesTasksDelete = '["https://www.googleapis.com/auth/cloud-platform"] 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 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Get.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Get.hs @@ -48,7 +48,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.tasks.get@ method which the -- 'ProjectsLocationsQueuesTasksGet' request conforms to. type ProjectsLocationsQueuesTasksGetResource = - "v2beta3" :> + "v2" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -61,7 +61,8 @@ -- | Gets a task. -- -- /See:/ 'projectsLocationsQueuesTasksGet' smart constructor. -data ProjectsLocationsQueuesTasksGet = ProjectsLocationsQueuesTasksGet' +data ProjectsLocationsQueuesTasksGet = + ProjectsLocationsQueuesTasksGet' { _plqtgXgafv :: !(Maybe Xgafv) , _plqtgUploadProtocol :: !(Maybe Text) , _plqtgAccessToken :: !(Maybe Text) @@ -69,8 +70,10 @@ , _plqtgResponseView :: !(Maybe Text) , _plqtgName :: !Text , _plqtgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -92,7 +95,7 @@ :: Text -- ^ 'plqtgName' -> ProjectsLocationsQueuesTasksGet projectsLocationsQueuesTasksGet pPlqtgName_ = - ProjectsLocationsQueuesTasksGet' + ProjectsLocationsQueuesTasksGet' { _plqtgXgafv = Nothing , _plqtgUploadProtocol = Nothing , _plqtgAccessToken = Nothing @@ -102,6 +105,7 @@ , _plqtgCallback = Nothing } + -- | V1 error format. plqtgXgafv :: Lens' ProjectsLocationsQueuesTasksGet (Maybe Xgafv) plqtgXgafv @@ -150,7 +154,8 @@ (\ s a -> s{_plqtgCallback = a}) instance GoogleRequest - ProjectsLocationsQueuesTasksGet where + ProjectsLocationsQueuesTasksGet + where type Rs ProjectsLocationsQueuesTasksGet = Task type Scopes ProjectsLocationsQueuesTasksGet = '["https://www.googleapis.com/auth/cloud-platform"] 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 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/List.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/List.hs @@ -53,7 +53,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.tasks.list@ method which the -- 'ProjectsLocationsQueuesTasksList' request conforms to. type ProjectsLocationsQueuesTasksListResource = - "v2beta3" :> + "v2" :> Capture "parent" Text :> "tasks" :> QueryParam "$.xgafv" Xgafv :> @@ -73,7 +73,8 @@ -- The ordering may change at any time. -- -- /See:/ 'projectsLocationsQueuesTasksList' smart constructor. -data ProjectsLocationsQueuesTasksList = ProjectsLocationsQueuesTasksList' +data ProjectsLocationsQueuesTasksList = + ProjectsLocationsQueuesTasksList' { _plqtlParent :: !Text , _plqtlXgafv :: !(Maybe Xgafv) , _plqtlUploadProtocol :: !(Maybe Text) @@ -83,8 +84,10 @@ , _plqtlPageToken :: !(Maybe Text) , _plqtlPageSize :: !(Maybe (Textual Int32)) , _plqtlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -110,7 +113,7 @@ :: Text -- ^ 'plqtlParent' -> ProjectsLocationsQueuesTasksList projectsLocationsQueuesTasksList pPlqtlParent_ = - ProjectsLocationsQueuesTasksList' + ProjectsLocationsQueuesTasksList' { _plqtlParent = pPlqtlParent_ , _plqtlXgafv = Nothing , _plqtlUploadProtocol = Nothing @@ -122,6 +125,7 @@ , _plqtlCallback = Nothing } + -- | Required. The queue name. For example: -- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/queues\/QUEUE_ID\` plqtlParent :: Lens' ProjectsLocationsQueuesTasksList Text @@ -191,7 +195,8 @@ (\ s a -> s{_plqtlCallback = a}) instance GoogleRequest - ProjectsLocationsQueuesTasksList where + ProjectsLocationsQueuesTasksList + where type Rs ProjectsLocationsQueuesTasksList = ListTasksResponse type Scopes ProjectsLocationsQueuesTasksList = 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 --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Run.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Run.hs @@ -60,7 +60,7 @@ -- | A resource alias for @cloudtasks.projects.locations.queues.tasks.run@ method which the -- 'ProjectsLocationsQueuesTasksRun' request conforms to. type ProjectsLocationsQueuesTasksRunResource = - "v2beta3" :> + "v2" :> CaptureMode "name" "run" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -85,7 +85,8 @@ -- has already succeeded or permanently failed. -- -- /See:/ 'projectsLocationsQueuesTasksRun' smart constructor. -data ProjectsLocationsQueuesTasksRun = ProjectsLocationsQueuesTasksRun' +data ProjectsLocationsQueuesTasksRun = + ProjectsLocationsQueuesTasksRun' { _plqtrXgafv :: !(Maybe Xgafv) , _plqtrUploadProtocol :: !(Maybe Text) , _plqtrAccessToken :: !(Maybe Text) @@ -93,8 +94,10 @@ , _plqtrPayload :: !RunTaskRequest , _plqtrName :: !Text , _plqtrCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -117,7 +120,7 @@ -> Text -- ^ 'plqtrName' -> ProjectsLocationsQueuesTasksRun projectsLocationsQueuesTasksRun pPlqtrPayload_ pPlqtrName_ = - ProjectsLocationsQueuesTasksRun' + ProjectsLocationsQueuesTasksRun' { _plqtrXgafv = Nothing , _plqtrUploadProtocol = Nothing , _plqtrAccessToken = Nothing @@ -127,6 +130,7 @@ , _plqtrCallback = Nothing } + -- | V1 error format. plqtrXgafv :: Lens' ProjectsLocationsQueuesTasksRun (Maybe Xgafv) plqtrXgafv @@ -168,7 +172,8 @@ (\ s a -> s{_plqtrCallback = a}) instance GoogleRequest - ProjectsLocationsQueuesTasksRun where + ProjectsLocationsQueuesTasksRun + where type Rs ProjectsLocationsQueuesTasksRun = Task type Scopes ProjectsLocationsQueuesTasksRun = '["https://www.googleapis.com/auth/cloud-platform"] diff --git a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/TestIAMPermissions.hs b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/TestIAMPermissions.hs --- a/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/TestIAMPermissions.hs +++ b/gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/TestIAMPermissions.hs @@ -53,7 +53,7 @@ -- 'ProjectsLocationsQueuesTestIAMPermissions' request conforms to. type ProjectsLocationsQueuesTestIAMPermissionsResource = - "v2beta3" :> + "v2" :> CaptureMode "resource" "testIamPermissions" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -71,7 +71,8 @@ -- checking. This operation may \"fail open\" without warning. -- -- /See:/ 'projectsLocationsQueuesTestIAMPermissions' smart constructor. -data ProjectsLocationsQueuesTestIAMPermissions = ProjectsLocationsQueuesTestIAMPermissions' +data ProjectsLocationsQueuesTestIAMPermissions = + ProjectsLocationsQueuesTestIAMPermissions' { _plqtipXgafv :: !(Maybe Xgafv) , _plqtipUploadProtocol :: !(Maybe Text) , _plqtipAccessToken :: !(Maybe Text) @@ -79,8 +80,10 @@ , _plqtipPayload :: !TestIAMPermissionsRequest , _plqtipResource :: !Text , _plqtipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + 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: @@ -103,7 +106,7 @@ -> Text -- ^ 'plqtipResource' -> ProjectsLocationsQueuesTestIAMPermissions projectsLocationsQueuesTestIAMPermissions pPlqtipPayload_ pPlqtipResource_ = - ProjectsLocationsQueuesTestIAMPermissions' + ProjectsLocationsQueuesTestIAMPermissions' { _plqtipXgafv = Nothing , _plqtipUploadProtocol = Nothing , _plqtipAccessToken = Nothing @@ -113,6 +116,7 @@ , _plqtipCallback = Nothing } + -- | V1 error format. plqtipXgafv :: Lens' ProjectsLocationsQueuesTestIAMPermissions (Maybe Xgafv) plqtipXgafv @@ -157,7 +161,8 @@ (\ s a -> s{_plqtipCallback = a}) instance GoogleRequest - ProjectsLocationsQueuesTestIAMPermissions where + ProjectsLocationsQueuesTestIAMPermissions + where type Rs ProjectsLocationsQueuesTestIAMPermissions = TestIAMPermissionsResponse type Scopes ProjectsLocationsQueuesTestIAMPermissions diff --git a/gogol-cloudtasks.cabal b/gogol-cloudtasks.cabal --- a/gogol-cloudtasks.cabal +++ b/gogol-cloudtasks.cabal @@ -1,5 +1,5 @@ name: gogol-cloudtasks -version: 0.4.0 +version: 0.5.0 synopsis: Google Cloud Tasks SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -19,7 +19,7 @@ /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 @v2beta3@ + This library is compatible with version @v2@ of the API. source-repository head @@ -59,5 +59,5 @@ , Network.Google.CloudTasks.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5