From d4a65b99d262877b3898adafc3ce0f1a49ebf6ae Mon Sep 17 00:00:00 2001 From: Etienne Millon Date: Fri, 22 Dec 2023 15:27:43 +0100 Subject: [PATCH] rename Path.unlink_status to Path.unlink Signed-off-by: Etienne Millon --- otherlibs/stdune/src/path.ml | 2 +- otherlibs/stdune/src/path.mli | 2 +- src/dune_engine/build_system.ml | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/otherlibs/stdune/src/path.ml b/otherlibs/stdune/src/path.ml index 3f9ace78077b..d181867d4aab 100644 --- a/otherlibs/stdune/src/path.ml +++ b/otherlibs/stdune/src/path.ml @@ -734,7 +734,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 index 748cfd8c0c78..e1647148b2b0 100644 --- a/otherlibs/stdune/src/path.mli +++ b/otherlibs/stdune/src/path.mli @@ -195,7 +195,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 index 3a78eaf0426c..7056ee101919 100644 --- a/src/dune_engine/build_system.ml +++ b/src/dune_engine/build_system.ml @@ -569,7 +569,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