Merge remote-tracking branch 'origin/master' into arvid@merge-request…

…s-fixes
tmcgilchrist · Aug 26, 2023 · 5fd75f7 · 5fd75f7
2 parents ca4e204 + d358087
commit 5fd75f7
Show file tree

Hide file tree

Showing 3 changed files with 49 additions and 0 deletions.
diff --git a/CHANGES.md b/CHANGES.md
@@ -5,13 +5,31 @@
  * `Project.merge_requests`: add parameter `wip`
  * `Project.merge_requests`: add parameter `target_branch`
  * `Project.merge_requests`: add parameter `per_page`
+ * `Gitlab` module now exposes `Message` exception
 
 ## Bug fixes
 
  * `gitlab.atd`: add `scheduler_failure` to `failure_reason`
  * `gitlab.atd`: add `data_integrity_failure` to `failure_reason`
  * `gitlab.atd`: make `merge_request.approvals_before_merge` integral
  * `gitlab.atd`: make `merge_request.sha` nullable
+ * `gitlab.atd`: add failure reasons: `api_failure`,
+   `missing_dependency_failure`, `runner_unsupported`,
+   `stale_schedule`, `archived_failure`, `unmet_prerequisites`,
+   `forward_deployment_failure`, `user_blocked`, `project_deleted`,
+   `ci_quota_exceeded`, `pipeline_loop_detected`,
+   `no_matching_runner`, `trace_size_exceeded`, `builds_disabled`,
+   `environment_creation_failure`, `deployment_rejected`,
+   `failed_outdated_deployment_job`, `protected_environment_failure`,
+   `insufficient_bridge_permissions`,
+   `downstream_bridge_project_not_found`, `invalid_bridge_trigger`,
+   `upstream_bridge_project_not_found`,
+   `insufficient_upstream_permissions`,
+   `bridge_pipeline_is_child_pipeline`,
+   `downstream_pipeline_creation_failed`,
+   `secrets_provider_not_found`,
+   `reached_max_descendant_pipelines_depth`, `ip_restriction_failure`,
+   and `reached_max_pipeline_hierarchy_size`
 
 # 0.1.7 - 2023-02-02
 

diff --git a/lib/gitlab.atd b/lib/gitlab.atd
@@ -1441,6 +1441,35 @@ type pipeline_job_failure_reason = [
  | Unknown_failure <json name="unknown_failure">
  | Scheduler_failure <json name="scheduler_failure">
  | Data_integrity_failure <json name="data_integrity_failure">
+ | Api_failure <json name="api_failure">
+ | Missing_dependency_failure <json name="missing_dependency_failure">
+ | Runner_unsupported <json name="runner_unsupported">
+ | Stale_schedule <json name="stale_schedule">
+ | Archived_failure <json name="archived_failure">
+ | Unmet_prerequisites <json name="unmet_prerequisites">
+ | Forward_deployment_failure <json name="forward_deployment_failure">
+ | User_blocked <json name="user_blocked">
+ | Project_deleted <json name="project_deleted">
+ | Ci_quota_exceeded <json name="ci_quota_exceeded">
+ | Pipeline_loop_detected <json name="pipeline_loop_detected">
+ | No_matching_runner <json name="no_matching_runner">
+ | Trace_size_exceeded <json name="trace_size_exceeded">
+ | Builds_disabled <json name="builds_disabled">
+ | Environment_creation_failure <json name="environment_creation_failure">
+ | Deployment_rejected <json name="deployment_rejected">
+ | Failed_outdated_deployment_job <json name="failed_outdated_deployment_job">
+ | Protected_environment_failure <json name="protected_environment_failure">
+ | Insufficient_bridge_permissions <json name="insufficient_bridge_permissions">
+ | Downstream_bridge_project_not_found <json name="downstream_bridge_project_not_found">
+ | Invalid_bridge_trigger <json name="invalid_bridge_trigger">
+ | Upstream_bridge_project_not_found <json name="upstream_bridge_project_not_found">
+ | Insufficient_upstream_permissions <json name="insufficient_upstream_permissions">
+ | Bridge_pipeline_is_child_pipeline <json name="bridge_pipeline_is_child_pipeline">
+ | Downstream_pipeline_creation_failed <json name="downstream_pipeline_creation_failed">
+ | Secrets_provider_not_found <json name="secrets_provider_not_found">
+ | Reached_max_descendant_pipelines_depth <json name="reached_max_descendant_pipelines_depth">
+ | Ip_restriction_failure <json name="ip_restriction_failure">
+ | Reached_max_pipeline_hierarchy_size <json name="reached_max_pipeline_hierarchy_size">
 ]
 
 type pipeline_job = {

diff --git a/lib/gitlab_s.mli b/lib/gitlab_s.mli
@@ -2,6 +2,8 @@ module type Gitlab = sig
   type rate_limit = { limit : int; remaining : int; reset : float }
   type rates = { core : rate_limit option }
 
+  exception Message of Cohttp.Code.status_code * Gitlab_t.message
+
   (** Functions corresponding to direct API requests return
       {!Response.t} values inside of {!Monad.t} values so that more
       information about the request can be made