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