diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-10-19 09:25:35 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-10-19 09:25:35 +0100 |
| commit | e2858f2d76d9028eec395277b4caf0a54c04de3b (patch) | |
| tree | 88533023b74ea3ae97960ba0047239f444f99882 | |
| parent | 15f1aa77193996591bd7711f29db476b78168b89 (diff) | |
| download | build-coordinator-e2858f2d76d9028eec395277b4caf0a54c04de3b.tar build-coordinator-e2858f2d76d9028eec395277b4caf0a54c04de3b.tar.gz | |
Move SIGPIPE handling in to the script
Just in case there's places where the previous handling didn't catch it.
| -rw-r--r-- | guix-build-coordinator/utils.scm | 5 | ||||
| -rw-r--r-- | scripts/guix-build-coordinator-agent.in | 3 |
2 files changed, 3 insertions, 5 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 9877224..67ebf72 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -410,11 +410,6 @@ upcoming chunk." #:keep-alive? #t #:report-bytes-sent report-bytes-sent))) - ;; A SIGPIPE will kill Guile, so ignore it - (sigaction SIGPIPE - (lambda (arg) - (simple-format (current-error-port) "warning: SIGPIPE\n"))) - (set-port-encoding! chunked-output-port "ISO-8859-1") (callback chunked-output-port) (close-port chunked-output-port) diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index c211d39..d65ea18 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -156,6 +156,9 @@ (simple-format (current-error-port) "locale is ~A\n" (check-locale!)) +;; A SIGPIPE will kill Guile, so ignore it +(sigaction SIGPIPE SIG_IGN) + (let ((opts (parse-options %options %option-defaults (cdr (program-arguments))))) |