Skip to content

Commit 0359795

Browse files
committed
Docs: use header field
It was added in ocaml/odoc#1314 and needs not be ignored
1 parent b7e4495 commit 0359795

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/ocamlorg_package/lib/ocamlorg_package.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -287,7 +287,7 @@ module Documentation = struct
287287
match Yojson.Safe.from_string s with
288288
| `Assoc
289289
[
290-
("header", `String _TODO);
290+
("header", `String header);
291291
("type", `String _page_type);
292292
("uses_katex", `Bool uses_katex);
293293
("breadcrumbs", `List json_breadcrumbs);
@@ -301,7 +301,7 @@ module Documentation = struct
301301
uses_katex;
302302
breadcrumbs;
303303
toc = List.map toc_of_json json_toc;
304-
content = preamble ^ content;
304+
content = header ^ preamble ^ content;
305305
}
306306
| _ -> raise (Invalid_argument "malformed .html.json file")
307307
end

0 commit comments

Comments
 (0)