http servers should ignore SIGPIPE by default

This commit is contained in:
Alex Shinn 2021-11-19 10:49:04 +09:00
parent 182048ed9a
commit 4dde693435

View file

@ -33,6 +33,7 @@
(define (run-http-server listener-or-addr servlet . o)
(let ((cfg (if (pair? o) (car o) (make-conf '() #f #f #f))))
(set-signal-action! signal/pipe #f)
(run-net-server
listener-or-addr
(command-handler