let create_pathlist root deps =
  let dl = List.map (function Dependency x -> x |-> assert false) deps in
  build_paths (List.unique dl) root