Fix interpretation of 'exists_if' in META files (ocaml#10564)

Signed-off-by: Nicolás Ojeda Bär <n.oje.bar@gmail.com>
emillon · May 24, 2024 · 8a3a032 · 8a3a032
1 parent c28817c
commit 8a3a032
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/doc/changes/10564.md b/doc/changes/10564.md
@@ -0,0 +1,2 @@
+- fix interpretation of `exists_if` predicate in `META` files of installed
+  libraries containing more than one element. (#10564, @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
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		- fix interpretation of `exists_if` predicate in `META` files of installed
		libraries containing more than one element. (#10564, @dbuenzli, @nojb)