Fix classify when there are archives sharing modules

ocaml · Feb 13, 2025 · dd2d6f8 · dd2d6f8
1 parent d88e04c
commit dd2d6f8
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/odoc/classify.cppo.ml b/src/odoc/classify.cppo.ml
@@ -141,6 +141,7 @@ module Deps = struct
         let deps =
           List.filter
             (fun l2 ->
+              ((StringSet.inter l1.Archive.modules l2.Archive.modules |> StringSet.cardinal) = 0) && (* Can't be co-linked if there are common module names *)
               not
               @@ StringSet.is_empty
                    (StringSet.inter l1.Archive.impl_deps l2.Archive.modules))