File tree Expand file tree Collapse file tree 3 files changed +3
-2
lines changed
Expand file tree Collapse file tree 3 files changed +3
-2
lines changed Original file line number Diff line number Diff line change 11module-item-spacing=preserve
22version=0.26.1
3+ ocaml-version=4.02
Original file line number Diff line number Diff 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 }
Original file line number Diff line number Diff 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 =
You can’t perform that action at this time.
0 commit comments