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