chore: remove Path.touch (#8897)

It has been unused since #4465.

Signed-off-by: Etienne Millon <[email protected]>

Author: emillon

otherlibs/stdune/src/path.ml

@@ -1184,28 +1184,6 @@ let mkdir_p ?perms = function
       (Outside_build_dir.append_local (Fdecl.get Build.build_dir) k)
 ;;
 
-let touch ?(create = true) p =
-  let p =
-    match p with
-    | External s -> External.to_string s
-    | In_source_tree s -> Local_gen.to_string s
-    | In_build_dir k ->
-      Outside_build_dir.to_string
-        (Outside_build_dir.append_local (Fdecl.get Build.build_dir) k)
-  in
-  let create =
-    if create
-    then fun () -> Unix.close (Unix.openfile p [ Unix.O_CREAT ] 0o777)
-    else Fun.id
-  in
-  try Unix.utimes p 0.0 0.0 with
-  | Unix.Unix_error (Unix.ENOENT, _, _) -> create ()
-  | Unix.Unix_error (Unix.EUNKNOWNERR 0, _, _) when Sys.win32 && not (Sys.file_exists p)
-    ->
-    (* OCaml PR#8857 *)
-    create ()
-;;
-
 let extension t =
   match t with
   | External t -> External.extension t

otherlibs/stdune/src/path.mli

@@ -366,7 +366,6 @@ val rm_rf : ?allow_external:bool -> t -> unit
 val clear_dir : t -> Fpath.clear_dir_result
 
 val mkdir_p : ?perms:int -> t -> unit
-val touch : ?create:bool -> t -> unit
 val build_dir_exists : unit -> bool
 val ensure_build_dir_exists : unit -> unit
 val source : Source.t -> t

otherlibs/stdune/test/temp_tests.ml

@@ -6,7 +6,7 @@ let () = init ()
 
 let%expect_test "Temp.clear_dir works" =
   let path = Temp.create Dir ~prefix:"dune" ~suffix:"unit_test" in
-  Path.touch (Path.relative path "foo");
+  Io.write_file (Path.relative path "foo") "";
   let print () =
     Path.readdir_unsorted path |> Result.to_dyn (list string) opaque |> print_dyn
   in