let dependency_graph_list ?(conjunctive=false) universe pkglist =
let gr = G.create () in
List.iter (fun pkg ->
G.add_vertex gr pkg;
List.iter (fun vpkgs ->
match CudfAdd.resolve_deps universe vpkgs with
|[p] -> G.add_edge gr pkg p
|l when not conjunctive -> List.iter (G.add_edge gr pkg) l
|_ -> ()
) pkg.Cudf.depends
) pkglist
;
gr