gogol-cloudtasks 0.4.0 → 0.5.0

raw patch · 24 files changed

+452/−313 lines, 24 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/CloudTasks.hs +2/−6
• gen/Network/Google/CloudTasks/Types.hs +5/−9
• gen/Network/Google/CloudTasks/Types/Product.hs +271/−214
• gen/Network/Google/CloudTasks/Types/Sum.hs +10/−0
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Get.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/List.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Create.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Delete.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Get.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/GetIAMPolicy.hs +10/−5
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/List.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Patch.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Pause.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Purge.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Resume.hs +8/−4
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/SetIAMPolicy.hs +10/−5
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Create.hs +10/−5
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Delete.hs +10/−5
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Get.hs +10/−5
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/List.hs +10/−5
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/Tasks/Run.hs +10/−5
• gen/Network/Google/Resource/CloudTasks/Projects/Locations/Queues/TestIAMPermissions.hs +10/−5
• gogol-cloudtasks.cabal +3/−3

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -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

@@ -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

@@ -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})

@@ -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"

@@ -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)

@@ -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)

@@ -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

@@ -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)

@@ -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)

@@ -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"]

@@ -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\`

@@ -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)

@@ -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)

@@ -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)

@@ -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)

@@ -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"]

@@ -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"]

@@ -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"]

@@ -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"]

@@ -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 =

@@ -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"]

@@ -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

@@ -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