Fix an issue when a file is part of several packages
Signed-off-by: Jeremie Dimino <jdimino@janestreet.com>
This commit is contained in:
parent
c5c4b164b7
commit
547998d6c6
|
@ -1426,9 +1426,11 @@ let package_deps t pkg files =
|
||||||
let rec loop fn acc =
|
let rec loop fn acc =
|
||||||
match Hashtbl.find_all t.packages fn with
|
match Hashtbl.find_all t.packages fn with
|
||||||
| [] -> loop_deps fn acc
|
| [] -> loop_deps fn acc
|
||||||
| [p] when p = pkg -> loop_deps fn acc
|
|
||||||
| pkgs ->
|
| pkgs ->
|
||||||
List.fold_left pkgs ~init:acc ~f:add_package
|
if List.mem pkg ~set:pkgs then
|
||||||
|
loop_deps fn acc
|
||||||
|
else
|
||||||
|
List.fold_left pkgs ~init:acc ~f:add_package
|
||||||
and add_package acc p =
|
and add_package acc p =
|
||||||
if p = pkg then
|
if p = pkg then
|
||||||
acc
|
acc
|
||||||
|
|
Loading…
Reference in New Issue