let dependency_graph ?(conjunctive=false) universe =
let size = Cudf.universe_size universe in
let graph = G.create ~size () in
Cudf.iteri_packages (fun id pkg ->
G.add_vertex graph id;
List.iter (fun vpkgs ->
match CudfAdd.resolve_vpkgs_int universe vpkgs with
|[p] -> G.add_edge graph id p
|l when not conjunctive -> List.iter (G.add_edge graph id) l
|_ -> ()
) pkg.Cudf.depends
) universe;
graph