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 1
1
module-item-spacing=preserve
2
2
version=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
258
258
| None -> assert false (* We got a root, should never happen *)
259
259
| Some page ->
260
260
let anchor = Printf. sprintf " %s-%s" (Path. string_of_kind kind) name in
261
- { page; anchor; kind :> kind }
261
+ { page; anchor; kind = (kind :> kind ) }
262
262
263
263
let add_suffix ~kind { page; anchor; _ } suffix =
264
264
{ 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 =
32
32
parse_input_file input >> = fun (digest , source_tree ) ->
33
33
let root =
34
34
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 }
36
36
in
37
37
let source_children = List. rev_map (source_child_id id) source_tree in
38
38
let page =
You can’t perform that action at this time.
0 commit comments