Link with the markdown path

Author: davesnx

src/dune_rules/odoc.ml

@@ -417,10 +417,11 @@ let odoc_include_flags ctx pkg requires =
 let link_odoc_rules sctx (odoc_file : odoc_artefact) ~pkg ~requires =
   let ctx = Super_context.context sctx in
   let deps = Dep.deps ctx pkg requires in
+  let dir = Path.build (Path.Build.parent_exn odoc_file.odocl_file) in
   let run_odoc =
     run_odoc
       sctx
-      ~dir:(Path.build (Paths.html_root ctx))
+      ~dir
       "link"
       ~quiet:false
       ~flags_for:(Some odoc_file.odoc_file)
@@ -1174,11 +1175,10 @@ let gen_rules sctx ~dir rest =
        >>> setup_toplevel_index_rule sctx Json)
   | [ "_markdown" ] -> has_rules (setup_toplevel_index_rule sctx Markdown)
   | [ "_markdown"; lib_unique_name_or_pkg ] ->
-    let ctx = Super_context.context sctx in
-    let directory_targets = Path.Build.Map.singleton dir Loc.none in
     has_rules
-      ~directory_targets
-      (let* lib, lib_db = Scope_key.of_string (Context.name ctx) lib_unique_name_or_pkg in
+      (
+       let ctx = Super_context.context sctx in
+       let* lib, lib_db = Scope_key.of_string (Context.name ctx) lib_unique_name_or_pkg in
        let* lib =
          let+ lib = Lib.DB.find lib_db lib in
          Option.bind ~f:Lib.Local.of_lib lib