gogol-cloudscheduler 0.4.0 → 0.5.0

raw patch · 14 files changed

+244/−147 lines, 14 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/CloudScheduler/Types.hs +3/−3
• gen/Network/Google/CloudScheduler/Types/Product.hs +155/−99
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/Get.hs +8/−4
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/Jobs/Create.hs +8/−4
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/Jobs/Delete.hs +8/−4
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/Jobs/Get.hs +8/−4
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/Jobs/List.hs +8/−4
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/Jobs/Patch.hs +10/−5
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/Jobs/Pause.hs +8/−4
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/Jobs/Resume.hs +8/−4
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/Jobs/Run.hs +8/−4
• gen/Network/Google/Resource/CloudScheduler/Projects/Locations/List.hs +8/−4
• gogol-cloudscheduler.cabal +3/−3

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

@@ -184,12 +184,12 @@ import           Network.Google.CloudScheduler.Types.Sum import           Network.Google.Prelude --- | Default request referring to version 'v1beta1' of the Cloud Scheduler API. This contains the host and root path used as a starting point for constructing service requests.+-- | Default request referring to version 'v1' of the Cloud Scheduler API. This contains the host and root path used as a starting point for constructing service requests. cloudSchedulerService :: ServiceConfig cloudSchedulerService-  = defaultService (ServiceId "cloudscheduler:v1beta1")+  = defaultService (ServiceId "cloudscheduler:v1")       "cloudscheduler.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

@@ -57,12 +57,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:@@ -74,13 +77,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]@@ -121,15 +120,17 @@ -- -- /See:/ 'pauseJobRequest' smart constructor. data PauseJobRequest =-    PauseJobRequest'-    deriving (Eq,Show,Data,Typeable,Generic)+  PauseJobRequest'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PauseJobRequest' with the minimum fields required to make a request. -- pauseJobRequest     :: PauseJobRequest pauseJobRequest = PauseJobRequest' + instance FromJSON PauseJobRequest where         parseJSON           = withObject "PauseJobRequest"@@ -141,11 +142,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:@@ -156,11 +160,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@@ -193,15 +195,17 @@ -- -- /See:/ 'resumeJobRequest' smart constructor. data ResumeJobRequest =-    ResumeJobRequest'-    deriving (Eq,Show,Data,Typeable,Generic)+  ResumeJobRequest'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResumeJobRequest' with the minimum fields required to make a request. -- resumeJobRequest     :: ResumeJobRequest resumeJobRequest = ResumeJobRequest' + instance FromJSON ResumeJobRequest where         parseJSON           = withObject "ResumeJobRequest"@@ -231,10 +235,13 @@ -- contain job-specific information, are also be sent to the job handler. -- -- /See:/ 'appEngineHTTPTargetHeaders' smart constructor.-newtype AppEngineHTTPTargetHeaders = AppEngineHTTPTargetHeaders'+newtype AppEngineHTTPTargetHeaders =+  AppEngineHTTPTargetHeaders'     { _aehttpthAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AppEngineHTTPTargetHeaders' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -244,10 +251,10 @@     :: HashMap Text Text -- ^ 'aehttpthAddtional'     -> AppEngineHTTPTargetHeaders appEngineHTTPTargetHeaders pAehttpthAddtional_ =-    AppEngineHTTPTargetHeaders'-    { _aehttpthAddtional = _Coerce # pAehttpthAddtional_-    }+  AppEngineHTTPTargetHeaders'+    {_aehttpthAddtional = _Coerce # pAehttpthAddtional_} + aehttpthAddtional :: Lens' AppEngineHTTPTargetHeaders (HashMap Text Text) aehttpthAddtional   = lens _aehttpthAddtional@@ -269,14 +276,17 @@ -- backoff according to the settings in RetryConfig. -- -- /See:/ 'retryConfig' smart constructor.-data RetryConfig = RetryConfig'+data RetryConfig =+  RetryConfig'     { _rcMaxDoublings       :: !(Maybe (Textual Int32))     , _rcMaxRetryDuration   :: !(Maybe GDuration)     , _rcMinBackoffDuration :: !(Maybe GDuration)     , _rcRetryCount         :: !(Maybe (Textual Int32))     , _rcMaxBackoffDuration :: !(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:@@ -293,7 +303,7 @@ retryConfig     :: RetryConfig retryConfig =-    RetryConfig'+  RetryConfig'     { _rcMaxDoublings = Nothing     , _rcMaxRetryDuration = Nothing     , _rcMinBackoffDuration = Nothing@@ -301,6 +311,7 @@     , _rcMaxBackoffDuration = Nothing     } + -- | The time between retries will double \`max_doublings\` times. A job\'s -- retry interval starts at min_backoff_duration, then doubles -- \`max_doublings\` times, then increases linearly, and finally retries@@ -381,14 +392,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:@@ -405,7 +419,7 @@ location     :: Location location =-    Location'+  Location'     { _lName = Nothing     , _lMetadata = Nothing     , _lDisplayName = Nothing@@ -413,6 +427,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)@@ -468,15 +483,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') @@ -487,10 +504,13 @@ -- non-empty data, or at least one attribute. -- -- /See:/ 'pubsubTargetAttributes' smart constructor.-newtype PubsubTargetAttributes = PubsubTargetAttributes'+newtype PubsubTargetAttributes =+  PubsubTargetAttributes'     { _ptaAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PubsubTargetAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -500,10 +520,9 @@     :: HashMap Text Text -- ^ 'ptaAddtional'     -> PubsubTargetAttributes pubsubTargetAttributes pPtaAddtional_ =-    PubsubTargetAttributes'-    { _ptaAddtional = _Coerce # pPtaAddtional_-    }+  PubsubTargetAttributes' {_ptaAddtional = _Coerce # pPtaAddtional_} + ptaAddtional :: Lens' PubsubTargetAttributes (HashMap Text Text) ptaAddtional   = lens _ptaAddtional (\ s a -> s{_ptaAddtional = a})@@ -531,10 +550,13 @@ -- internal use only. The total size of headers must be less than 80KB. -- -- /See:/ 'hTTPTargetHeaders' smart constructor.-newtype HTTPTargetHeaders = HTTPTargetHeaders'+newtype HTTPTargetHeaders =+  HTTPTargetHeaders'     { _httpthAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HTTPTargetHeaders' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -544,10 +566,9 @@     :: HashMap Text Text -- ^ 'httpthAddtional'     -> HTTPTargetHeaders hTTPTargetHeaders pHttpthAddtional_ =-    HTTPTargetHeaders'-    { _httpthAddtional = _Coerce # pHttpthAddtional_-    }+  HTTPTargetHeaders' {_httpthAddtional = _Coerce # pHttpthAddtional_} + httpthAddtional :: Lens' HTTPTargetHeaders (HashMap Text Text) httpthAddtional   = lens _httpthAddtional@@ -572,13 +593,16 @@ -- information about message limits. -- -- /See:/ 'pubsubMessage' smart constructor.-data PubsubMessage = PubsubMessage'+data PubsubMessage =+  PubsubMessage'     { _pmData        :: !(Maybe Bytes)     , _pmPublishTime :: !(Maybe DateTime')     , _pmAttributes  :: !(Maybe PubsubMessageAttributes)     , _pmMessageId   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PubsubMessage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -593,13 +617,14 @@ pubsubMessage     :: PubsubMessage pubsubMessage =-    PubsubMessage'+  PubsubMessage'     { _pmData = Nothing     , _pmPublishTime = Nothing     , _pmAttributes = Nothing     , _pmMessageId = Nothing     } + -- | The message data field. If this field is empty, the message must contain -- at least one attribute. pmData :: Lens' PubsubMessage (Maybe ByteString)@@ -650,10 +675,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:@@ -663,10 +691,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@@ -691,14 +718,17 @@ -- deadline, constitutes a failed attempt. -- -- /See:/ 'appEngineHTTPTarget' smart constructor.-data AppEngineHTTPTarget = AppEngineHTTPTarget'+data AppEngineHTTPTarget =+  AppEngineHTTPTarget'     { _aehttptHTTPMethod       :: !(Maybe AppEngineHTTPTargetHTTPMethod)     , _aehttptRelativeURI      :: !(Maybe Text)     , _aehttptBody             :: !(Maybe Bytes)     , _aehttptHeaders          :: !(Maybe AppEngineHTTPTargetHeaders)     , _aehttptAppEngineRouting :: !(Maybe AppEngineRouting)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AppEngineHTTPTarget' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -715,7 +745,7 @@ appEngineHTTPTarget     :: AppEngineHTTPTarget appEngineHTTPTarget =-    AppEngineHTTPTarget'+  AppEngineHTTPTarget'     { _aehttptHTTPMethod = Nothing     , _aehttptRelativeURI = Nothing     , _aehttptBody = Nothing@@ -723,6 +753,7 @@     , _aehttptAppEngineRouting = Nothing     } + -- | The HTTP method to use for the request. PATCH and OPTIONS are not -- permitted. aehttptHTTPMethod :: Lens' AppEngineHTTPTarget (Maybe AppEngineHTTPTargetHTTPMethod)@@ -807,13 +838,16 @@ -- request is considered. -- -- /See:/ 'hTTPTarget' smart constructor.-data HTTPTarget = HTTPTarget'+data HTTPTarget =+  HTTPTarget'     { _httptHTTPMethod :: !(Maybe HTTPTargetHTTPMethod)     , _httptBody       :: !(Maybe Bytes)     , _httptURI        :: !(Maybe Text)     , _httptHeaders    :: !(Maybe HTTPTargetHeaders)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HTTPTarget' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -828,13 +862,14 @@ hTTPTarget     :: HTTPTarget hTTPTarget =-    HTTPTarget'+  HTTPTarget'     { _httptHTTPMethod = Nothing     , _httptBody = Nothing     , _httptURI = Nothing     , _httptHeaders = Nothing     } + -- | Which HTTP method to use for the request. httptHTTPMethod :: Lens' HTTPTarget (Maybe HTTPTargetHTTPMethod) httptHTTPMethod@@ -894,15 +929,17 @@ -- -- /See:/ 'runJobRequest' smart constructor. data RunJobRequest =-    RunJobRequest'-    deriving (Eq,Show,Data,Typeable,Generic)+  RunJobRequest'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RunJobRequest' with the minimum fields required to make a request. -- runJobRequest     :: RunJobRequest runJobRequest = RunJobRequest' + instance FromJSON RunJobRequest where         parseJSON           = withObject "RunJobRequest"@@ -914,7 +951,8 @@ -- | Configuration for a job. The maximum allowed size for a job is 100KB. -- -- /See:/ 'job' smart constructor.-data Job = Job'+data Job =+  Job'     { _jStatus              :: !(Maybe Status)     , _jState               :: !(Maybe JobState)     , _jLastAttemptTime     :: !(Maybe DateTime')@@ -928,8 +966,10 @@     , _jUserUpdateTime      :: !(Maybe DateTime')     , _jTimeZone            :: !(Maybe Text)     , _jDescription         :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Job' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -962,7 +1002,7 @@ job     :: Job job =-    Job'+  Job'     { _jStatus = Nothing     , _jState = Nothing     , _jLastAttemptTime = Nothing@@ -978,6 +1018,7 @@     , _jDescription = Nothing     } + -- | Output only. The response from the target for the last attempted -- execution. jStatus :: Lens' Job (Maybe Status)@@ -999,8 +1040,12 @@ jRetryConfig   = lens _jRetryConfig (\ s a -> s{_jRetryConfig = a}) --- | Required. Describes the schedule on which the job will be executed. As a--- general rule, execution \`n + 1\` of a job will not begin until+-- | Required, except when used with UpdateJob. Describes the schedule on+-- which the job will be executed. The schedule can be either of the+-- following types: *+-- [Crontab](http:\/\/en.wikipedia.org\/wiki\/Cron#Overview) * English-like+-- [schedule](https:\/\/cloud.google.com\/scheduler\/docs\/configuring\/cron-job-schedules)+-- As a general rule, execution \`n + 1\` of a job will not begin until -- execution \`n\` has finished. Cloud Scheduler will never allow two -- simultaneously outstanding executions. For example, this implies that if -- the \`n+1\`th execution is scheduled to run at 16:00 but the \`n\`th@@ -1009,9 +1054,6 @@ -- execution has not ended when its scheduled time occurs. If retry_count > -- 0 and a job attempt fails, the job will be tried a total of retry_count -- times, with exponential backoff, until the next scheduled start time.--- The schedule can be either of the following types: *--- [Crontab](http:\/\/en.wikipedia.org\/wiki\/Cron#Overview) * English-like--- [schedule](https:\/\/cloud.google.com\/scheduler\/docs\/configuring\/cron-job-schedules) jSchedule :: Lens' Job (Maybe Text) jSchedule   = lens _jSchedule (\ s a -> s{_jSchedule = a})@@ -1036,7 +1078,8 @@ jHTTPTarget   = lens _jHTTPTarget (\ s a -> s{_jHTTPTarget = a}) --- | The job name. For example:+-- | Optionally caller-specified in CreateJob, after which it becomes output+-- only. The job name. For example: -- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/jobs\/JOB_ID\`. * -- \`PROJECT_ID\` can contain letters ([A-Za-z]), numbers ([0-9]), hyphens -- (-), colons (:), or periods (.). For more information, see [Identifying@@ -1073,8 +1116,9 @@ jTimeZone   = lens _jTimeZone (\ s a -> s{_jTimeZone = a}) --- | A human-readable description for the job. This string must not contain--- more than 500 characters.+-- | Optionally caller-specified in CreateJob or UpdateJob. A human-readable+-- description for the job. This string must not contain more than 500+-- characters. jDescription :: Lens' Job (Maybe Text) jDescription   = lens _jDescription (\ s a -> s{_jDescription = a})@@ -1118,10 +1162,13 @@ -- | Optional attributes for this message. -- -- /See:/ 'pubsubMessageAttributes' smart constructor.-newtype PubsubMessageAttributes = PubsubMessageAttributes'+newtype PubsubMessageAttributes =+  PubsubMessageAttributes'     { _pmaAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PubsubMessageAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1131,10 +1178,9 @@     :: HashMap Text Text -- ^ 'pmaAddtional'     -> PubsubMessageAttributes pubsubMessageAttributes pPmaAddtional_ =-    PubsubMessageAttributes'-    { _pmaAddtional = _Coerce # pPmaAddtional_-    }+  PubsubMessageAttributes' {_pmaAddtional = _Coerce # pPmaAddtional_} + pmaAddtional :: Lens' PubsubMessageAttributes (HashMap Text Text) pmaAddtional   = lens _pmaAddtional (\ s a -> s{_pmaAddtional = a})@@ -1153,12 +1199,15 @@ -- the given Pub\/Sub topic. -- -- /See:/ 'pubsubTarget' smart constructor.-data PubsubTarget = PubsubTarget'+data PubsubTarget =+  PubsubTarget'     { _ptData       :: !(Maybe Bytes)     , _ptTopicName  :: !(Maybe Text)     , _ptAttributes :: !(Maybe PubsubTargetAttributes)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PubsubTarget' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1171,12 +1220,10 @@ pubsubTarget     :: PubsubTarget pubsubTarget =-    PubsubTarget'-    { _ptData = Nothing-    , _ptTopicName = Nothing-    , _ptAttributes = Nothing-    }+  PubsubTarget'+    {_ptData = Nothing, _ptTopicName = Nothing, _ptAttributes = Nothing} + -- | The message payload for PubsubMessage. Pubsub message must contain -- either non-empty data, or at least one attribute. ptData :: Lens' PubsubTarget (Maybe ByteString)@@ -1219,11 +1266,14 @@ -- | Response message for listing jobs using ListJobs. -- -- /See:/ 'listJobsResponse' smart constructor.-data ListJobsResponse = ListJobsResponse'+data ListJobsResponse =+  ListJobsResponse'     { _ljrNextPageToken :: !(Maybe Text)     , _ljrJobs          :: !(Maybe [Job])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListJobsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1234,11 +1284,9 @@ listJobsResponse     :: ListJobsResponse listJobsResponse =-    ListJobsResponse'-    { _ljrNextPageToken = Nothing-    , _ljrJobs = Nothing-    }+  ListJobsResponse' {_ljrNextPageToken = Nothing, _ljrJobs = Nothing} + -- | A token to retrieve next page of results. Pass this value in the -- page_token field in the subsequent call to ListJobs to retrieve the next -- page of results. If this is empty it indicates that there are no more@@ -1274,10 +1322,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:@@ -1287,10 +1338,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}) .@@ -1308,10 +1358,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:@@ -1321,10 +1374,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@@ -1350,13 +1402,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:@@ -1371,12 +1426,13 @@ appEngineRouting     :: AppEngineRouting appEngineRouting =-    AppEngineRouting'+  AppEngineRouting'     { _aerService = Nothing     , _aerVersion = Nothing     , _aerHost = Nothing     , _aerInstance = Nothing     }+  -- | App service. By default, the job is sent to the service which is the -- default service when the job is attempted.

@@ -47,7 +47,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.get@ method which the -- 'ProjectsLocationsGet' request conforms to. type ProjectsLocationsGetResource =-     "v1beta1" :>+     "v1" :>        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)

@@ -48,7 +48,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.jobs.create@ method which the -- 'ProjectsLocationsJobsCreate' request conforms to. type ProjectsLocationsJobsCreateResource =-     "v1beta1" :>+     "v1" :>        Capture "parent" Text :>          "jobs" :>            QueryParam "$.xgafv" Xgafv :>@@ -62,7 +62,8 @@ -- | Creates a job. -- -- /See:/ 'projectsLocationsJobsCreate' smart constructor.-data ProjectsLocationsJobsCreate = ProjectsLocationsJobsCreate'+data ProjectsLocationsJobsCreate =+  ProjectsLocationsJobsCreate'     { _pljcParent         :: !Text     , _pljcXgafv          :: !(Maybe Xgafv)     , _pljcUploadProtocol :: !(Maybe Text)@@ -70,8 +71,10 @@     , _pljcUploadType     :: !(Maybe Text)     , _pljcPayload        :: !Job     , _pljcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -94,7 +97,7 @@     -> Job -- ^ 'pljcPayload'     -> ProjectsLocationsJobsCreate projectsLocationsJobsCreate pPljcParent_ pPljcPayload_ =-    ProjectsLocationsJobsCreate'+  ProjectsLocationsJobsCreate'     { _pljcParent = pPljcParent_     , _pljcXgafv = Nothing     , _pljcUploadProtocol = Nothing@@ -103,6 +106,7 @@     , _pljcPayload = pPljcPayload_     , _pljcCallback = Nothing     }+  -- | Required. The location name. For example: -- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\`.

@@ -47,7 +47,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.jobs.delete@ method which the -- 'ProjectsLocationsJobsDelete' request conforms to. type ProjectsLocationsJobsDeleteResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -59,15 +59,18 @@ -- | Deletes a job. -- -- /See:/ 'projectsLocationsJobsDelete' smart constructor.-data ProjectsLocationsJobsDelete = ProjectsLocationsJobsDelete'+data ProjectsLocationsJobsDelete =+  ProjectsLocationsJobsDelete'     { _pljdXgafv          :: !(Maybe Xgafv)     , _pljdUploadProtocol :: !(Maybe Text)     , _pljdAccessToken    :: !(Maybe Text)     , _pljdUploadType     :: !(Maybe Text)     , _pljdName           :: !Text     , _pljdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsDelete' 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 -- ^ 'pljdName'     -> ProjectsLocationsJobsDelete projectsLocationsJobsDelete pPljdName_ =-    ProjectsLocationsJobsDelete'+  ProjectsLocationsJobsDelete'     { _pljdXgafv = Nothing     , _pljdUploadProtocol = Nothing     , _pljdAccessToken = Nothing@@ -95,6 +98,7 @@     , _pljdName = pPljdName_     , _pljdCallback = Nothing     }+  -- | V1 error format. pljdXgafv :: Lens' ProjectsLocationsJobsDelete (Maybe Xgafv)

@@ -47,7 +47,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.jobs.get@ method which the -- 'ProjectsLocationsJobsGet' request conforms to. type ProjectsLocationsJobsGetResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -59,15 +59,18 @@ -- | Gets a job. -- -- /See:/ 'projectsLocationsJobsGet' smart constructor.-data ProjectsLocationsJobsGet = ProjectsLocationsJobsGet'+data ProjectsLocationsJobsGet =+  ProjectsLocationsJobsGet'     { _pljgXgafv          :: !(Maybe Xgafv)     , _pljgUploadProtocol :: !(Maybe Text)     , _pljgAccessToken    :: !(Maybe Text)     , _pljgUploadType     :: !(Maybe Text)     , _pljgName           :: !Text     , _pljgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsGet' 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 -- ^ 'pljgName'     -> ProjectsLocationsJobsGet projectsLocationsJobsGet pPljgName_ =-    ProjectsLocationsJobsGet'+  ProjectsLocationsJobsGet'     { _pljgXgafv = Nothing     , _pljgUploadProtocol = Nothing     , _pljgAccessToken = Nothing@@ -95,6 +98,7 @@     , _pljgName = pPljgName_     , _pljgCallback = Nothing     }+  -- | V1 error format. pljgXgafv :: Lens' ProjectsLocationsJobsGet (Maybe Xgafv)

@@ -49,7 +49,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.jobs.list@ method which the -- 'ProjectsLocationsJobsList' request conforms to. type ProjectsLocationsJobsListResource =-     "v1beta1" :>+     "v1" :>        Capture "parent" Text :>          "jobs" :>            QueryParam "$.xgafv" Xgafv :>@@ -65,7 +65,8 @@ -- | Lists jobs. -- -- /See:/ 'projectsLocationsJobsList' smart constructor.-data ProjectsLocationsJobsList = ProjectsLocationsJobsList'+data ProjectsLocationsJobsList =+  ProjectsLocationsJobsList'     { _pljlParent         :: !Text     , _pljlXgafv          :: !(Maybe Xgafv)     , _pljlUploadProtocol :: !(Maybe Text)@@ -74,8 +75,10 @@     , _pljlPageToken      :: !(Maybe Text)     , _pljlPageSize       :: !(Maybe (Textual Int32))     , _pljlCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsList' 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 -- ^ 'pljlParent'     -> ProjectsLocationsJobsList projectsLocationsJobsList pPljlParent_ =-    ProjectsLocationsJobsList'+  ProjectsLocationsJobsList'     { _pljlParent = pPljlParent_     , _pljlXgafv = Nothing     , _pljlUploadProtocol = Nothing@@ -109,6 +112,7 @@     , _pljlPageSize = Nothing     , _pljlCallback = Nothing     }+  -- | Required. The location name. For example: -- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\`.

@@ -54,7 +54,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.jobs.patch@ method which the -- 'ProjectsLocationsJobsPatch' request conforms to. type ProjectsLocationsJobsPatchResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -73,7 +73,8 @@ -- is received. -- -- /See:/ 'projectsLocationsJobsPatch' smart constructor.-data ProjectsLocationsJobsPatch = ProjectsLocationsJobsPatch'+data ProjectsLocationsJobsPatch =+  ProjectsLocationsJobsPatch'     { _pljpXgafv          :: !(Maybe Xgafv)     , _pljpUploadProtocol :: !(Maybe Text)     , _pljpUpdateMask     :: !(Maybe GFieldMask)@@ -82,8 +83,10 @@     , _pljpPayload        :: !Job     , _pljpName           :: !Text     , _pljpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsPatch' 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 @@     -> Text -- ^ 'pljpName'     -> ProjectsLocationsJobsPatch projectsLocationsJobsPatch pPljpPayload_ pPljpName_ =-    ProjectsLocationsJobsPatch'+  ProjectsLocationsJobsPatch'     { _pljpXgafv = Nothing     , _pljpUploadProtocol = Nothing     , _pljpUpdateMask = Nothing@@ -119,6 +122,7 @@     , _pljpCallback = Nothing     } + -- | V1 error format. pljpXgafv :: Lens' ProjectsLocationsJobsPatch (Maybe Xgafv) pljpXgafv@@ -153,7 +157,8 @@ pljpPayload   = lens _pljpPayload (\ s a -> s{_pljpPayload = a}) --- | The job name. For example:+-- | Optionally caller-specified in CreateJob, after which it becomes output+-- only. The job name. For example: -- \`projects\/PROJECT_ID\/locations\/LOCATION_ID\/jobs\/JOB_ID\`. * -- \`PROJECT_ID\` can contain letters ([A-Za-z]), numbers ([0-9]), hyphens -- (-), colons (:), or periods (.). For more information, see [Identifying

@@ -51,7 +51,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.jobs.pause@ method which the -- 'ProjectsLocationsJobsPause' request conforms to. type ProjectsLocationsJobsPauseResource =-     "v1beta1" :>+     "v1" :>        CaptureMode "name" "pause" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -67,7 +67,8 @@ -- Job.State.ENABLED to be paused. -- -- /See:/ 'projectsLocationsJobsPause' smart constructor.-data ProjectsLocationsJobsPause = ProjectsLocationsJobsPause'+data ProjectsLocationsJobsPause =+  ProjectsLocationsJobsPause'     { _proXgafv          :: !(Maybe Xgafv)     , _proUploadProtocol :: !(Maybe Text)     , _proAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _proPayload        :: !PauseJobRequest     , _proName           :: !Text     , _proCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsPause' 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 -- ^ 'proName'     -> ProjectsLocationsJobsPause projectsLocationsJobsPause pProPayload_ pProName_ =-    ProjectsLocationsJobsPause'+  ProjectsLocationsJobsPause'     { _proXgafv = Nothing     , _proUploadProtocol = Nothing     , _proAccessToken = Nothing@@ -108,6 +111,7 @@     , _proName = pProName_     , _proCallback = Nothing     }+  -- | V1 error format. proXgafv :: Lens' ProjectsLocationsJobsPause (Maybe Xgafv)

@@ -51,7 +51,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.jobs.resume@ method which the -- 'ProjectsLocationsJobsResume' request conforms to. type ProjectsLocationsJobsResumeResource =-     "v1beta1" :>+     "v1" :>        CaptureMode "name" "resume" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -67,7 +67,8 @@ -- in Job.State.PAUSED to be resumed. -- -- /See:/ 'projectsLocationsJobsResume' smart constructor.-data ProjectsLocationsJobsResume = ProjectsLocationsJobsResume'+data ProjectsLocationsJobsResume =+  ProjectsLocationsJobsResume'     { _pljrXgafv          :: !(Maybe Xgafv)     , _pljrUploadProtocol :: !(Maybe Text)     , _pljrAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _pljrPayload        :: !ResumeJobRequest     , _pljrName           :: !Text     , _pljrCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsResume' 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 -- ^ 'pljrName'     -> ProjectsLocationsJobsResume projectsLocationsJobsResume pPljrPayload_ pPljrName_ =-    ProjectsLocationsJobsResume'+  ProjectsLocationsJobsResume'     { _pljrXgafv = Nothing     , _pljrUploadProtocol = Nothing     , _pljrAccessToken = Nothing@@ -108,6 +111,7 @@     , _pljrName = pPljrName_     , _pljrCallback = Nothing     }+  -- | V1 error format. pljrXgafv :: Lens' ProjectsLocationsJobsResume (Maybe Xgafv)

@@ -49,7 +49,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.jobs.run@ method which the -- 'ProjectsLocationsJobsRun' request conforms to. type ProjectsLocationsJobsRunResource =-     "v1beta1" :>+     "v1" :>        CaptureMode "name" "run" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -63,7 +63,8 @@ -- will dispatch the job, even if the job is already running. -- -- /See:/ 'projectsLocationsJobsRun' smart constructor.-data ProjectsLocationsJobsRun = ProjectsLocationsJobsRun'+data ProjectsLocationsJobsRun =+  ProjectsLocationsJobsRun'     { _pXgafv          :: !(Maybe Xgafv)     , _pUploadProtocol :: !(Maybe Text)     , _pAccessToken    :: !(Maybe Text)@@ -71,8 +72,10 @@     , _pPayload        :: !RunJobRequest     , _pName           :: !Text     , _pCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsJobsRun' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -95,7 +98,7 @@     -> Text -- ^ 'pName'     -> ProjectsLocationsJobsRun projectsLocationsJobsRun pPPayload_ pPName_ =-    ProjectsLocationsJobsRun'+  ProjectsLocationsJobsRun'     { _pXgafv = Nothing     , _pUploadProtocol = Nothing     , _pAccessToken = Nothing@@ -104,6 +107,7 @@     , _pName = pPName_     , _pCallback = Nothing     }+  -- | V1 error format. pXgafv :: Lens' ProjectsLocationsJobsRun (Maybe Xgafv)

@@ -50,7 +50,7 @@ -- | A resource alias for @cloudscheduler.projects.locations.list@ method which the -- 'ProjectsLocationsList' request conforms to. type ProjectsLocationsListResource =-     "v1beta1" :>+     "v1" :>        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)

@@ -1,5 +1,5 @@ name:                  gogol-cloudscheduler-version:               0.4.0+version:               0.5.0 synopsis:              Google Cloud Scheduler 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 @v1beta1@+    This library is compatible with version @v1@     of the API.  source-repository head@@ -51,5 +51,5 @@         , Network.Google.CloudScheduler.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5