Fix an issue when a file is part of several packages

Signed-off-by: Jeremie Dimino <jdimino@janestreet.com>
This commit is contained in:
Jeremie Dimino 2018-05-28 11:28:12 +01:00 committed by Jérémie Dimino
parent c5c4b164b7
commit 547998d6c6
1 changed files with 4 additions and 2 deletions

View File

@ -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