format: add optional root_directory

ocaml · Jun 11, 2024 · 5658dd8 · 5658dd8
1 parent 33bbcdb
commit 5658dd8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/src/index-format/index_format.ml b/src/index-format/index_format.ml
@@ -31,6 +31,7 @@ type index = {
   approximated : Lid_set.t Uid_map.t;
   cu_shape : (string, Shape.t) Hashtbl.t;
   stats : stat Stats.t;
+  root_directory: string option;
 }
 
 let pp_partials (fmt : Format.formatter) (partials : Lid_set.t Uid_map.t) =

diff --git a/src/index-format/index_format.mli b/src/index-format/index_format.mli
@@ -19,6 +19,7 @@ type index = {
   approximated : Lid_set.t Uid_map.t;
   cu_shape : (string, Shape.t) Hashtbl.t;
   stats : stat Stats.t;
+  root_directory: string option;
 }
 
 val pp : Format.formatter -> index -> unit