From 4a0e5a76afaa52dc0b08ca0e981a106d19bf7fc9 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Mon, 28 May 2018 18:04:48 +0700 Subject: [PATCH] Remove more Path <-> List conversion in rules_for_files Signed-off-by: Rudi Grinberg --- src/build_system.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/build_system.ml b/src/build_system.ml index 3e604f99..82545b03 100644 --- a/src/build_system.ml +++ b/src/build_system.ml @@ -1333,7 +1333,7 @@ end module Rule_set = Set.Make(Rule) let rules_for_files rules paths = - List.fold_left paths ~init:Rule_set.empty ~f:(fun acc path -> + Path.Set.fold paths ~init:Rule_set.empty ~f:(fun path acc -> match Path.Map.find rules path with | None -> acc | Some rule -> Rule_set.add acc rule) @@ -1402,10 +1402,10 @@ let build_rules_internal ?(recursive=false) t ~request = in match Rule.Id.Top_closure.top_closure - (rules_for_files rules (Path.Set.to_list !targets)) + (rules_for_files rules !targets) ~key:(fun (r : Rule.t) -> r.id) ~deps:(fun (r : Rule.t) -> - rules_for_files rules (Path.Set.to_list r.deps)) + rules_for_files rules r.deps) with | Ok l -> l | Error cycle ->