refactor: simplify file existence check (#1120)

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
ocaml · Jun 6, 2023 · 9648a05 · 9648a05
1 parent 32ee70d
commit 9648a05
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/ocaml-lsp-server/src/merlin_config.ml b/ocaml-lsp-server/src/merlin_config.ml
@@ -321,8 +321,9 @@ let get_config (p : Process.t) ~workdir path_abs =
       ] )
 
 let file_exists fname =
-  (* XXX stat? *)
-  Sys.file_exists fname && not (Sys.is_directory fname)
+  match Unix.stat fname with
+  | exception Unix.Unix_error (Unix.ENOENT, _, _) -> false
+  | s -> s.st_kind <> S_DIR
 
 let find_project_context start_dir =
   (* The workdir is the first directory we find which contains a [dune] file. We