diff --git a/CHANGES b/CHANGES index 1f5c50c8c..0fac2983c 100644 --- a/CHANGES +++ b/CHANGES @@ -8,6 +8,10 @@ * Support IPv6 socketpair on Windows (#870, #876, Antonin Décimo, David Allsopp). + * Lwt_unix.lstat was incorrectly calling Unix.stat on Win32. Fixes + the behavior of Lwt_io.with_temp_dir following symlinks to + directories on Win32. (#883, Antonin Décimo) + ====== Additions ====== * Lwt_seq: a Seq-like data-structure with Lwt delayed nodes (#836, #842, Zach Shipko). diff --git a/src/unix/lwt_unix.cppo.ml b/src/unix/lwt_unix.cppo.ml index 87ed8bfdf..ac7e29495 100644 --- a/src/unix/lwt_unix.cppo.ml +++ b/src/unix/lwt_unix.cppo.ml @@ -1017,7 +1017,7 @@ external lstat_job : string -> Unix.stats job = "lwt_unix_lstat_job" let lstat name = if Sys.win32 then - Lwt.return (Unix.stat name) + Lwt.return (Unix.lstat name) else run_job (lstat_job name)