mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-11 21:48:46 -05:00
15 lines
271 B
OCaml
15 lines
271 B
OCaml
let ignore_signals_ () =
|
|
try
|
|
Thread.sigmask SIG_BLOCK
|
|
[
|
|
Sys.sigpipe;
|
|
Sys.sigbus;
|
|
Sys.sigterm;
|
|
Sys.sigchld;
|
|
Sys.sigalrm;
|
|
Sys.sigint;
|
|
Sys.sigusr1;
|
|
Sys.sigusr2;
|
|
]
|
|
|> ignore
|
|
with _ -> ()
|