Skip to content

Commit

Permalink
.ocamlformat: Set ocaml-version
Browse files Browse the repository at this point in the history
  • Loading branch information
Julow committed Dec 11, 2023
1 parent a14d797 commit 6957ee7
Show file tree
Hide file tree
Showing 3 changed files with 3 additions and 2 deletions.
1 change: 1 addition & 0 deletions .ocamlformat
Original file line number Diff line number Diff line change
@@ -1,2 +1,3 @@
module-item-spacing=preserve
version=0.26.1
ocaml-version=4.02
2 changes: 1 addition & 1 deletion src/document/url.ml
Original file line number Diff line number Diff line change
Expand Up @@ -258,7 +258,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 }
Expand Down
2 changes: 1 addition & 1 deletion src/odoc/source_tree.ml
Original file line number Diff line number Diff line change
Expand Up @@ -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 =
Expand Down

0 comments on commit 6957ee7

Please sign in to comment.