Formatting

ocaml · Nov 14, 2024 · dd9bb23 · dd9bb23
1 parent 1da1bf0
commit dd9bb23
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 11 deletions.
diff --git a/src/driver/odoc_units_of.ml b/src/driver/odoc_units_of.ml
@@ -215,8 +215,7 @@ let packages ~dirs ~extra_paths (pkgs : Packages.t list) : t list =
         let name = md |> Fpath.rem_ext |> Fpath.basename |> ( ^ ) "page-" in
         let lib_deps = Util.StringSet.empty in
         let unit =
-          make_unit ~name ~kind ~rel_dir ~input_file:md ~pkg
-            ~lib_deps
+          make_unit ~name ~kind ~rel_dir ~input_file:md ~pkg ~lib_deps
             ~enable_warnings:pkg.enable_warnings
         in
         [ unit ]

diff --git a/src/odoc/resolver.ml b/src/odoc/resolver.ml
@@ -70,10 +70,7 @@ end = struct
     omit : Fs.Directory.t list;
   }
 
-  type t = {
-    table : (string, pkg) Hashtbl.t;
-    current_root : named_root option;
-  }
+  type t = { table : (string, pkg) Hashtbl.t; current_root : named_root option }
 
   type input = {
     name : string;
@@ -543,7 +540,6 @@ let all_units ~library ({ libs; _ } : t) =
   | Some libs ->
       Odoc_utils.List.filter_map filter @@ all_roots ~root:library libs
 
-
 type roots = {
   page_roots : named_root list;
   lib_roots : named_root list;

diff --git a/src/odoc/resolver.mli b/src/odoc/resolver.mli
@@ -28,10 +28,8 @@ type named_root = string * Fs.Directory.t
 type roots = {
   page_roots : named_root list;
   lib_roots : named_root list;
-  current_lib : named_root option;
-      (** The current [-L]. *)
-  current_package : named_root option;
-      (** The current [-P]. *)
+  current_lib : named_root option;  (** The current [-L]. *)
+  current_package : named_root option;  (** The current [-P]. *)
   current_dir : Fs.Directory.t;
       (** Directory containing the output for the current unit. *)
 }