.ocamlformat: Set ocaml-version

Julow · Sep 26, 2023 · 0486b50 · 0486b50
1 parent c366293
commit 0486b50
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 2 deletions.
diff --git a/.ocamlformat b/.ocamlformat
@@ -1,2 +1,3 @@
 module-item-spacing=preserve
 version=0.26.1
+ocaml-version=4.02
diff --git a/src/document/url.ml b/src/document/url.ml
@@ -253,7 +253,7 @@ module Anchor = struct
     | None -> assert false (* We got a root, should never happen *)
     | Some page ->
         let anchor = Printf.sprintf "%s-%s" (Path.string_of_kind kind) name in
-        { page; anchor; kind :> kind }
+        { page; anchor; kind = (kind :> kind) }
 
   let add_suffix ~kind { page; anchor; _ } suffix =
     { page; anchor = anchor ^ "." ^ suffix; kind }

diff --git a/src/odoc/source_tree.ml b/src/odoc/source_tree.ml
@@ -32,7 +32,7 @@ let compile ~resolver ~parent ~output ~warnings_options:_ input =
   parse_input_file input >>= fun (digest, source_tree) ->
   let root =
     let file = Root.Odoc_file.create_page root_name in
-    { Root.id :> Id.OdocId.t; file; digest }
+    { Root.id = (id :> Id.OdocId.t); file; digest }
   in
   let source_children = List.rev_map (source_child_id id) source_tree in
   let page =