Skip to content

Commit 6957ee7

Browse files
committed
.ocamlformat: Set ocaml-version
1 parent a14d797 commit 6957ee7

File tree

3 files changed

+3
-2
lines changed

3 files changed

+3
-2
lines changed

.ocamlformat

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,3 @@
11
module-item-spacing=preserve
22
version=0.26.1
3+
ocaml-version=4.02

src/document/url.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -258,7 +258,7 @@ module Anchor = struct
258258
| None -> assert false (* We got a root, should never happen *)
259259
| Some page ->
260260
let anchor = Printf.sprintf "%s-%s" (Path.string_of_kind kind) name in
261-
{ page; anchor; kind :> kind }
261+
{ page; anchor; kind = (kind :> kind) }
262262

263263
let add_suffix ~kind { page; anchor; _ } suffix =
264264
{ page; anchor = anchor ^ "." ^ suffix; kind }

src/odoc/source_tree.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -32,7 +32,7 @@ let compile ~resolver ~parent ~output ~warnings_options:_ input =
3232
parse_input_file input >>= fun (digest, source_tree) ->
3333
let root =
3434
let file = Root.Odoc_file.create_page root_name in
35-
{ Root.id :> Id.OdocId.t; file; digest }
35+
{ Root.id = (id :> Id.OdocId.t); file; digest }
3636
in
3737
let source_children = List.rev_map (source_child_id id) source_tree in
3838
let page =

0 commit comments

Comments
 (0)