diff options
| -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) |