let impactset graph q = let module G = Defaultgraphs.PackageGraph.G in G.fold_pred (fun p acc -> p :: acc ) graph q []