Formatting

ocaml · Jan 13, 2025 · f746bbc · f746bbc
1 parent 75488fa
commit f746bbc
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/src/driver/compile.ml b/src/driver/compile.ml
@@ -105,7 +105,9 @@ let compile ?partial ~partial_dir (all : Odoc_unit.t list) =
       | Some _ -> find_partials partial_dir
       | None -> (Util.StringMap.empty, Hashtbl.create 10)
     in
-    let hashes = Odoc_unit.fix_virtual ~precompiled_units:other_hashes ~units:hashes in
+    let hashes =
+      Odoc_unit.fix_virtual ~precompiled_units:other_hashes ~units:hashes
+    in
     let all_hashes =
       Util.StringMap.union (fun _x o1 o2 -> Some (o1 @ o2)) hashes other_hashes
     in

diff --git a/src/driver/odoc_unit.mli b/src/driver/odoc_unit.mli
@@ -74,6 +74,10 @@ type dirs = {
   mld_dir : Fpath.t;
 }
 
+val fix_virtual :
+  precompiled_units:intf unit list Util.StringMap.t ->
+  units:intf unit list Util.StringMap.t ->
+  intf unit list Util.StringMap.t
 (** [fix_virtual ~precompiled_units ~units] replaces the input file
     in units representing implementations of virtual libraries.
     Implementation units have a [cmt] but no [cmti], even though
@@ -90,7 +94,3 @@ type dirs = {
     should not be changed. The types of the inputs and outputs
     are hashtbls of units, where the hashtable key is the
     interface hash. *)
-val fix_virtual :
-  precompiled_units:intf unit list Util.StringMap.t ->
-  units:intf unit list Util.StringMap.t ->
-  intf unit list Util.StringMap.t