Formatting

Author: jonludlam

doc/library_mlds/dune

@@ -1,16 +1,5 @@
 (documentation
  (package odoc)
- (mld_files 
-odoc_document
-odoc_examples
-odoc_html
-odoc_latex
-odoc_loader
-odoc_manpage
-odoc_model
-odoc_model_desc
-odoc_odoc
-odoc_xref2
-odoc_xref_test))
-
-
+ (mld_files odoc_document odoc_examples odoc_html odoc_latex odoc_loader
+   odoc_manpage odoc_model odoc_model_desc odoc_odoc odoc_xref2
+   odoc_xref_test))

src/xref2/env.ml

@@ -222,8 +222,8 @@ let add_to_elts kind identifier component env =
     let other = ElementsById.find_by_id identifier env.ids in
     match other with
     | Some _ ->
-      (* Format.eprintf "Overriding duplicate env entry\n%!" *)
-      ()
+        (* Format.eprintf "Overriding duplicate env entry\n%!" *)
+        ()
     | None -> ()
   in
   let name = Identifier.name identifier in

src/xref2/errors.ml

@@ -234,8 +234,14 @@ let rec kind_of_module_type_cpath = function
 (** [Some (`Root _)] for errors during lookup of root modules or [None] for
     other errors. *)
 let rec kind_of_error : Tools_error.any -> kind option = function
-  | `UnresolvedPath (`Module (cp, e)) -> (match kind_of_module_cpath cp with | None -> kind_of_error (e :> Tools_error.any) | x -> x)
-  | `UnresolvedPath (`ModuleType (cp, e)) -> (match kind_of_module_type_cpath cp with | None -> kind_of_error (e :> Tools_error.any) | x -> x)
+  | `UnresolvedPath (`Module (cp, e)) -> (
+      match kind_of_module_cpath cp with
+      | None -> kind_of_error (e :> Tools_error.any)
+      | x -> x)
+  | `UnresolvedPath (`ModuleType (cp, e)) -> (
+      match kind_of_module_type_cpath cp with
+      | None -> kind_of_error (e :> Tools_error.any)
+      | x -> x)
   | `Lookup_failure (`Root (_, name)) ->
       Some (`Root (Names.ModuleName.to_string name))
   | `UnexpandedTypeOf type_of_desc -> kind_of_type_of_desc type_of_desc