Expose the [Message] exception

tmcgilchrist · Aug 26, 2023 · d0a4d4c · d0a4d4c
1 parent 134d702
commit d0a4d4c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/CHANGES.md b/CHANGES.md
@@ -1,5 +1,9 @@
 # Unreleased
 
+## Added
+
+ * `Gitlab` module now exposes `Message` exception
+
 ## Bug fixes
 
  * `gitlab.atd`: add `scheduler_failure` to `failure_reason`

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