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