diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-11 18:00:41 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-11 18:00:41 +0100 |
| commit | 70184bccff0d2c042ebd9cff3eeafa49376e46a3 (patch) | |
| tree | 42e935bebda2be235106f5082700898548f1ec96 | |
| parent | 44a5a5393b5f5534ba95d37be61d7a64107dd826 (diff) | |
| download | build-coordinator-70184bccff0d2c042ebd9cff3eeafa49376e46a3.tar build-coordinator-70184bccff0d2c042ebd9cff3eeafa49376e46a3.tar.gz | |
Reduce logging on build failures
| -rw-r--r-- | guix-build-coordinator/agent.scm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 696c1ee..e399c2f 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -864,10 +864,17 @@ but the guix-daemon claims it's unavailable" (map derivation-output-path (map cdr (derivation-outputs derivation))))) (lambda (key . args) - (simple-format (current-error-port) - "exception when performing build: ~A ~A\n" - key args) - (backtrace))) + (unless (and (eq? key '%exception) + (store-protocol-error? (car args)) + (let ((status (store-protocol-error-status + (car args)))) + (or (= status 1) + (= status 100) + (= status 101)))) + (simple-format (current-error-port) + "exception when performing build: ~A ~A\n" + key args) + (backtrace)))) #t) #:unwind? #t))) |