Remove extra set to list conversion
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
1e3b90c1d6
commit
f0e0bf5156
|
@ -340,14 +340,11 @@ let root_packages t =
|
||||||
Path.exists (Path.relative dir (name ^ "/META"))))
|
Path.exists (Path.relative dir (name ^ "/META"))))
|
||||||
|> String.Set.of_list
|
|> String.Set.of_list
|
||||||
in
|
in
|
||||||
let pkgs =
|
String.Set.union pkgs
|
||||||
String.Set.union pkgs
|
(String.Set.of_list (String.Map.keys t.builtins))
|
||||||
(String.Set.of_list (String.Map.keys t.builtins))
|
|
||||||
in
|
|
||||||
String.Set.to_list pkgs
|
|
||||||
|
|
||||||
let load_all_packages t =
|
let load_all_packages t =
|
||||||
List.iter (root_packages t) ~f:(fun pkg ->
|
String.Set.iter (root_packages t) ~f:(fun pkg ->
|
||||||
find_and_acknowledge_meta t ~fq_name:pkg)
|
find_and_acknowledge_meta t ~fq_name:pkg)
|
||||||
|
|
||||||
let all_packages t =
|
let all_packages t =
|
||||||
|
|
Loading…
Reference in New Issue