rename Path.unlink_status to Path.unlink

Signed-off-by: Etienne Millon <me@emillon.org>
ocaml · Dec 22, 2023 · ef89dbf · ef89dbf
1 parent 3d39203
commit ef89dbf
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/otherlibs/stdune/src/path.ml b/otherlibs/stdune/src/path.ml
@@ -733,7 +733,7 @@ module Build = struct
   let of_local t = t
   let chmod t ~mode = Unix.chmod (to_string t) mode
   let lstat t = Unix.lstat (to_string t)
-  let unlink_status t = Fpath.unlink (to_string t)
+  let unlink t = Fpath.unlink (to_string t)
   let unlink_no_err t = Fpath.unlink_no_err (to_string t)
   let to_dyn s = Dyn.variant "In_build_dir" [ to_dyn s ]
 end

diff --git a/otherlibs/stdune/src/path.mli b/otherlibs/stdune/src/path.mli
@@ -193,7 +193,7 @@ module Build : sig
   val chmod : t -> mode:int -> unit
 
   val lstat : t -> Unix.stats
-  val unlink_status : t -> Fpath.unlink_status
+  val unlink : t -> Fpath.unlink_status
   val unlink_no_err : t -> unit
 
   module Table : Hashtbl.S with type key = t

diff --git a/src/dune_engine/build_system.ml b/src/dune_engine/build_system.ml
@@ -546,7 +546,7 @@ end = struct
             maybe_async_rule_file_op (fun () ->
               let remove_target_dir dir = Path.rm_rf (Path.build dir) in
               let remove_target_file path =
-                match Path.Build.unlink_status path with
+                match Path.Build.unlink path with
                 | Success -> ()
                 | Is_a_directory ->
                   (* If target changed from a directory to a file, delete