Minor tweaks

Signed-off-by: Andrey Mokhov <[email protected]>
ocaml · Apr 26, 2021 · 7546aba · 7546aba
1 parent 953cf4e
commit 7546aba
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/otherlibs/stdune-unstable/fpath.ml b/otherlibs/stdune-unstable/fpath.ml
@@ -93,11 +93,11 @@ let unlink_no_err t =
 
 type clear_dir_result =
   | Cleared
-  | Does_not_exist
+  | Directory_does_not_exist
 
 let rec clear_dir dir =
   match Dune_filesystem_stubs.read_directory_with_kinds dir with
-  | Error ENOENT -> Does_not_exist
+  | Error ENOENT -> Directory_does_not_exist
   | Error error ->
     raise
       (Unix.Unix_error
@@ -116,7 +116,7 @@ let rec clear_dir dir =
 and rm_rf_dir path =
   match clear_dir path with
   | Cleared -> Unix.rmdir path
-  | Does_not_exist -> ()
+  | Directory_does_not_exist -> ()
 
 let rm_rf ?(allow_external = false) fn =
   if (not allow_external) && not (Filename.is_relative fn) then

diff --git a/otherlibs/stdune-unstable/fpath.mli b/otherlibs/stdune-unstable/fpath.mli
@@ -29,9 +29,9 @@ val initial_cwd : string
 
 type clear_dir_result =
   | Cleared
-  | Does_not_exist
+  | Directory_does_not_exist
 
 val clear_dir : string -> clear_dir_result
 
-(** If the directory does not exist, this function is a no-op. *)
+(** If the given path does not exist, this function is a no-op. *)
 val rm_rf : ?allow_external:bool -> string -> unit
diff --git a/otherlibs/stdune-unstable/temp.ml b/otherlibs/stdune-unstable/temp.ml
@@ -90,7 +90,7 @@ let destroy what fn =
 let clear_dir dir =
   (match Path.clear_dir dir with
   | Cleared -> ()
-  | Does_not_exist ->
+  | Directory_does_not_exist ->
     (* We can end up here if nested temporary directories are cleared starting
        from the outermost directory. It's OK to do nothing in this case. *)
     ());