From e89e97f3524ff2a9929eda6b6d247d9bca02bf92 Mon Sep 17 00:00:00 2001 From: Jules Aguillon Date: Fri, 4 Oct 2024 17:07:02 +0200 Subject: [PATCH 1/2] Fix unvendorable [%blob] path The path relative to the project root makes sherlodoc impossible to vendor. Use a relative path instead. --- cli/main.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cli/main.ml b/cli/main.ml index 32799c25..445af97f 100644 --- a/cli/main.ml +++ b/cli/main.ml @@ -69,7 +69,7 @@ let cmd_jsoo = in let emit_js_dep filename = let close, h = if filename = "" then false, stdout else true, open_out filename in - output_string h [%blob "jsoo/sherlodoc.js"] ; + output_string h [%blob "../jsoo/sherlodoc.js"] ; if close then close_out h in Cmd.v info Term.(const emit_js_dep $ target) From a9c6a4936804b8cc5fd9e21c73bff3204a60ab7c Mon Sep 17 00:00:00 2001 From: Jules Aguillon Date: Wed, 9 Oct 2024 16:39:28 +0200 Subject: [PATCH 2/2] Update to Lang.Index changes --- index/index.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/index/index.ml b/index/index.ml index 3a5df560..d39506cf 100644 --- a/index/index.ml +++ b/index/index.ml @@ -21,7 +21,7 @@ let index_odoc_index_file register filename = | Error (`Msg msg) -> Format.printf "FILE ERROR %s: %s@." filename msg | Ok file -> (match Odoc_odoc.Odoc_file.load_index file with - | Ok entries -> Odoc_model.Paths.Identifier.Hashtbl.Any.iter register (snd entries) + | Ok entries -> Odoc_model.Paths.Identifier.Hashtbl.Any.iter register entries.index | Error (`Msg msg) -> Format.printf "Odoc warning or error %s: %s@." filename msg) let main