sharpetronics/eio
1
0
Fork 0
mirror of https://github.com/ocaml-multicore/eio.git synced 2025-10-09 00:04:06 -04:00
Code Issues Projects Releases Wiki Activity

Merge pull request #11 from talex5/sigpipe

Browse Source 
Disable SIGPIPE
This commit is contained in:
Thomas Leonard 2021-04-14 09:37:18 +01:00 committed by GitHub
commit 1d9823f190
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib_eioio/eunix.ml
View File

@ -17,6 +17,9 @@
let src = Logs.Src.create "eunix" ~doc:"Effect-based IO system" let src = Logs.Src.create "eunix" ~doc:"Effect-based IO system"
module Log = (val Logs.src_log src : Logs.LOG) module Log = (val Logs.src_log src : Logs.LOG)
(* SIGPIPE makes no sense in a modern application. *)
let () = Sys.(set_signal sigpipe Signal_ignore)
type amount = Exactly of int | Upto of int type amount = Exactly of int | Upto of int
type rw_req = { type rw_req = {