Allow users to get serialised key of job

shonfeder · Jul 28, 2024 · d57b358 · d57b358
1 parent ca5976f
commit d57b358
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/lib_cache/current_cache.ml b/lib_cache/current_cache.ml
@@ -583,6 +583,9 @@ module S = S
 module Db = struct
   include Db
 
+  let key ~job_id = 
+    lookup_job_id job_id |> Option.map snd
+
   let history ~limit ~job_id =
     let key =
       match Hashtbl.find_opt key_of_job_id job_id with

diff --git a/lib_cache/current_cache.mli b/lib_cache/current_cache.mli
@@ -77,4 +77,7 @@ module Db : sig
   val history : limit:int -> job_id:string -> string option * entry list
   (** [history ~limit ~job_id] returns the in-progress build (if any),
       and the [limit] most recent builds with the same key as [job_id]. *)
+
+  val key : job_id:string -> string option
+  (** [key ~job_id] returns the serialised key associated with the job [job_id] if any. *)
 end