Make sure OpamListCommand.filter Recursive only returns a subset of base

ocaml · Aug 14, 2021 · d0c06bc · d0c06bc
1 parent c8f8f74
commit d0c06bc
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/client/opamListCommand.ml b/src/client/opamListCommand.ml
@@ -226,10 +226,11 @@ let apply_selector ~base st = function
       | Depends_on _ -> OpamSolver.reverse_dependencies
       | _ -> assert false
     in
-    deps_fun ~depopts:tog.depopts ~build:tog.build ~post:tog.post
+    let deps = deps_fun ~depopts:tog.depopts ~build:tog.build ~post:tog.post
       ~installed:false ~unavailable:true
       (get_universe st tog)
-      (packages_of_atoms st atoms)
+      (packages_of_atoms st atoms) in
+    OpamPackage.Set.inter base deps
   | Required_by (tog, atoms) ->
     atom_dependencies st tog atoms |>
     OpamFormula.packages base