From 0a34d7b5097605b3e2a6f26bb62d282cc3290602 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <me@rgrinberg.com>
Date: Sun, 26 Jan 2025 21:26:11 +0000
Subject: [PATCH] fix: 4.08 compat

argument order

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>

<!-- ps-id: da8fe966-73ad-4a16-b6a5-7181ee4ec45b -->
---
 otherlibs/stdune/src/array.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/otherlibs/stdune/src/array.ml b/otherlibs/stdune/src/array.ml
index 3a293e03ded..625d6b4f4a7 100644
--- a/otherlibs/stdune/src/array.ml
+++ b/otherlibs/stdune/src/array.ml
@@ -5,7 +5,7 @@ include struct
 
   [@@@ocaml.warning "-32"]
 
-  let find_opt t ~f =
+  let find_opt ~f t =
     try
       for i = 0 to Array.length t do
         if f t.(i) then raise_notrace (Found i)