Skip to content

Commit

Permalink
Revert "don't print the solution of non-installed packages when --as-…
Browse files Browse the repository at this point in the history
…json"

This reverts commit 71d676e.
  • Loading branch information
cannorin authored and kit-ty-kate committed Jul 29, 2022
1 parent bd09f16 commit 9aaf08d
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/client/opamTreeCommand.ml
Original file line number Diff line number Diff line change
Expand Up @@ -363,7 +363,7 @@ let print_sln st new_st missing solution =
solution;
OpamConsole.msg "\n"

let dry_install ?doc ?test ?tools ?(quiet=false) st universe missing =
let dry_install ?doc ?test ?tools st universe missing =
let open OpamSolver in
let req =
let install = missing |> List.map (fun name -> name, None) in
Expand All @@ -372,7 +372,7 @@ let dry_install ?doc ?test ?tools ?(quiet=false) st universe missing =
match resolve universe req with
| Success solution ->
let new_st = OpamSolution.dry_run st solution in
(if not quiet then print_sln st new_st (OpamPackage.Name.Set.of_list missing) solution);
print_sln st new_st (OpamPackage.Name.Set.of_list missing) solution;
new_st, get_universe ?doc ?test ?tools new_st
| Conflicts cs ->
OpamConsole.error
Expand All @@ -391,7 +391,7 @@ let run st ?post ?dev ?doc ?test ?tools ?no_constraint ?(json=false) mode filter
match mode with
| Deps ->
if missing = [] then st, universe
else dry_install ?doc ?test ?tools ~quiet:json st universe missing
else dry_install ?doc ?test ?tools st universe missing
| ReverseDeps ->
(* non-installed packages don't make sense in rev-deps *)
if missing <> [] then
Expand Down

0 comments on commit 9aaf08d

Please sign in to comment.