Merge pull request #212 from dra27/windows

No SIGPIPE on Windows
mirage · Oct 29, 2020 · 4e1fdf8 · 4e1fdf8
2 parents 1812e36 + 22baf11
commit 4e1fdf8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/unix/unix_flow.ml b/unix/unix_flow.ml
@@ -2,7 +2,7 @@ open Lwt.Infix
 
 (* Slightly rude to set signal handlers in a library, but SIGPIPE makes no sense
    in a modern application. *)
-let () = Sys.(set_signal sigpipe Signal_ignore)
+let () = if not Sys.win32 then Sys.(set_signal sigpipe Signal_ignore)
 
 type flow = {
   fd : Lwt_unix.file_descr;