aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-build-coordinator/agent.scm15
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)))