Add ?to_dir param from Unix.symlink to Lwt_unix.symlink wrapper

ocsigen · Sep 16, 2021 · c15e4e3 · c15e4e3
1 parent f23f313
commit c15e4e3
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/CHANGES b/CHANGES
@@ -16,6 +16,8 @@
 
   * Lwt_stream.return, Lwt_stream.return_lwt: singleton stream constructors (#864, Boning Dong).
 
+  * Add ?to_dir param from Unix.symlink to Lwt_unix.symlink wrapper (#884, Antonin Décimo)
+
 ====== Misc ======
 
   * Code quality improvement: remove an uneeded Obj.magic (#844, Benoit Montagu).

diff --git a/src/unix/lwt_unix.cppo.ml b/src/unix/lwt_unix.cppo.ml
@@ -1478,9 +1478,9 @@ let mkfifo name perms =
 
 external symlink_job : string -> string -> unit job = "lwt_unix_symlink_job"
 
-let symlink name1 name2 =
+let symlink ?to_dir name1 name2 =
   if Sys.win32 then
-    Lwt.return (Unix.symlink name1 name2)
+    Lwt.return (Unix.symlink ?to_dir name1 name2)
   else
     run_job (symlink_job name1 name2)
 

diff --git a/src/unix/lwt_unix.cppo.mli b/src/unix/lwt_unix.cppo.mli
@@ -770,7 +770,7 @@ val mkfifo : string -> file_perm -> unit Lwt.t
 
 (** {2 Symbolic links} *)
 
-val symlink : string -> string -> unit Lwt.t
+val symlink : ?to_dir:bool -> string -> string -> unit Lwt.t
   (** Wrapper for [Unix.symlink] *)
 
 val readlink : string -> string Lwt.t