From f0e0bf51563e87f5eb30edb23617f011e18fa758 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Fri, 25 May 2018 12:06:22 +0700 Subject: [PATCH] Remove extra set to list conversion Signed-off-by: Rudi Grinberg --- src/findlib.ml | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/src/findlib.ml b/src/findlib.ml index e2fecae1..3229a46c 100644 --- a/src/findlib.ml +++ b/src/findlib.ml @@ -340,14 +340,11 @@ let root_packages t = Path.exists (Path.relative dir (name ^ "/META")))) |> String.Set.of_list in - let pkgs = - String.Set.union pkgs - (String.Set.of_list (String.Map.keys t.builtins)) - in - String.Set.to_list pkgs + String.Set.union pkgs + (String.Set.of_list (String.Map.keys t.builtins)) 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) let all_packages t =