let build_deps_of_tags_on_cmd builder = Command.iter_tags begin fun tags -> match Command.deps_of_tags tags with | [] -> () | deps -> List.iter ignore_good (builder (List.map (fun x -> [x]) deps)) end