diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-21 18:55:10 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-21 18:55:10 +0000 |
| commit | 7ee1cc4924813b1ae59958f29cf6dd5e22c3e673 (patch) | |
| tree | 02dac900ec9f613ee687044d5ae066dd2264c590 | |
| parent | 4c3e6fab062a6af5a80e01c7797c380a8598cf85 (diff) | |
| download | build-coordinator-7ee1cc4924813b1ae59958f29cf6dd5e22c3e673.tar build-coordinator-7ee1cc4924813b1ae59958f29cf6dd5e22c3e673.tar.gz | |
Don't print backtraces for problems replying to clients
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index acad57e..2808426 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -187,7 +187,14 @@ current-state-id))) (lambda (key . args) - (backtrace)))) + (if (and + (eq? key 'system-error) + (match args + (("fport_write" "~A" ("Broken pipe") rest ...) + #t) + (_ #f))) + #f + (backtrace))))) #:unwind? #t))) (unless (eq? #f new-state-id) |