Add Lib_db.Scope.name

src/lib_db.ml

@@ -145,6 +145,9 @@ module Scope = struct
         Some { dst_fn = result_fn; src_fn })
 
   let root t = t.scope.scope.root
+  let name t =
+    Option.value ~default:"" t.scope.scope.name
+
   let resolve t =
     (* TODO do something with required_by here *)
     Jbuild.Scope.resolve t.data.scope.scope

src/lib_db.mli

@@ -34,6 +34,7 @@ module Scope : sig
   val lib_is_available : t with_required_by -> string -> bool
 
   val root : t -> Path.t
+  val name : t -> string
 
   val resolve : t with_required_by -> string -> (Package.t, string) result