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 =
|
||||
match Hashtbl.find_all t.packages fn with
|
||||
| [] -> loop_deps fn acc
|
||||
| [p] when p = pkg -> loop_deps fn acc
|
||||
| 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 =
|
||||
if p = pkg then
|
||||
acc
|
||||
|
|
Loading…
Reference in New Issue