Update otherlibs/stdune/src/fpath.ml

Co-authored-by: Marek Kubica <marek@xivilization.net> Signed-off-by: Jules Aguillon <jules@j3s.fr>
ocaml · Feb 21, 2025 · 701f78b · 701f78b
1 parent fb66f67
commit 701f78b
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/otherlibs/stdune/src/fpath.ml b/otherlibs/stdune/src/fpath.ml
@@ -219,9 +219,7 @@ let traverse_files ~dir ~init ~f =
 ;;
 
 let is_rw p =
-  try
-    Unix.access p Unix.[ R_OK; W_OK ];
-    true
-  with
-  | Unix.Unix_error _ -> false
+  match Unix.access p Unix.[ R_OK; W_OK ] with
+  | () -> true
+  | exception Unix.Unix_error _ -> false
 ;;