Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[debug] display the list of dependencies on install

  • Loading branch information...
commit 55ad5f5cc186e81fc8548cc603bdce7cfe329e74 1 parent ee8e179
@samoht samoht authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/opamClient.ml
View
6 src/opamClient.ml
@@ -2153,11 +2153,15 @@ let install names =
let name_new = List.map OpamPackage.name pkg_new in
List.iter (fun n -> log "new: %s" (OpamPackage.Name.to_string n)) name_new;
- let universe = OpamSolver.U (OpamPackage.Set.fold (fun nv l -> (debpkg_of_nv t `install nv) :: l) (Lazy.force t.available_packages) []) in
+ let universe =
+ OpamSolver.U (OpamPackage.Set.fold
+ (fun nv l -> (debpkg_of_nv t `install nv) :: l)
+ (Lazy.force t.available_packages) []) in
let depends =
OpamSolver.get_backward_dependencies ~depopts:true universe
(OpamSolver.P (List.rev_map (fun nv -> debpkg_of_nv t `install nv) pkg_new)) in
let depends = OpamPackage.Set.of_list (List.rev_map OpamPackage.of_dpkg depends) in
+ log "depends=%s" (OpamPackage.Set.to_string depends);
let depends =
OpamPackage.Set.filter (fun nv ->
let name = OpamPackage.name nv in
Please sign in to comment.
Something went wrong with that request. Please try again.