[3.15] backport #10564 (#10569)

* Fix interpretation of 'exists_if' in META files (#10564) Signed-off-by: Nicolás Ojeda Bär <n.oje.bar@gmail.com> * Add fixes Signed-off-by: Etienne Millon <me@emillon.org> --------- Signed-off-by: Nicolás Ojeda Bär <n.oje.bar@gmail.com> Signed-off-by: Etienne Millon <me@emillon.org> Co-authored-by: Nicolás Ojeda Bär <n.oje.bar@gmail.com>
ocaml · May 24, 2024 · f76827f · f76827f
1 parent 9f22a34
commit f76827f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/doc/changes/10564.md b/doc/changes/10564.md
@@ -0,0 +1,3 @@
+- fix interpretation of `exists_if` predicate in `META` files of installed
+  libraries containing more than one element. (#10564, fixes #10563, @dbuenzli,
+  @nojb)
diff --git a/src/dune_findlib/package0.ml b/src/dune_findlib/package0.ml
@@ -56,7 +56,7 @@ let exists t ~is_builtin =
   let exists_if = Vars.get_words t.vars "exists_if" Ps.empty in
   match exists_if with
   | _ :: _ ->
-    Memo.List.for_all exists_if ~f:(fun fn -> Fs.file_exists (Path.relative t.dir fn))
+    Memo.List.exists exists_if ~f:(fun fn -> Fs.file_exists (Path.relative t.dir fn))
   | [] ->
     if not is_builtin
     then Memo.return true