From dd9bb23bc06d50701761ef296be8ebfe0722055d Mon Sep 17 00:00:00 2001
From: Jon Ludlam <jon@recoil.org>
Date: Wed, 13 Nov 2024 22:57:11 +0000
Subject: [PATCH] Formatting

---
 src/driver/odoc_units_of.ml | 3 +--
 src/odoc/resolver.ml        | 6 +-----
 src/odoc/resolver.mli       | 6 ++----
 3 files changed, 4 insertions(+), 11 deletions(-)

diff --git a/src/driver/odoc_units_of.ml b/src/driver/odoc_units_of.ml
index d72c4eff0c..02e4b7b73a 100644
--- 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
index 18b2a2e391..e011f4782a 100644
--- 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
index ebf179a1a5..e48319261e 100644
--- 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. *)
 }