aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-09-02 18:12:10 +0100
committerChristopher Baines <mail@cbaines.net>2022-09-02 18:12:10 +0100
commit31b3ab65da2d9a02f0453d12a81816b25c8ad75d (patch)
tree7ac0d58aac121305ff65ecc6b6511d43107dcb40
parentb026210afc93fae5d794feb6e151da0e2aac8ded (diff)
downloadbuild-coordinator-31b3ab65da2d9a02f0453d12a81816b25c8ad75d.tar
build-coordinator-31b3ab65da2d9a02f0453d12a81816b25c8ad75d.tar.gz
Properly handle build failure statuses
-rw-r--r--guix-build-coordinator/agent.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index 27b0633..eb3ec3c 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -799,8 +799,10 @@ but the guix-daemon claims it's unavailable"
(lambda (exn)
(if (store-protocol-error? exn)
(cond
- ((eq? (store-protocol-error-status exn) 100)
+ ((eq? (store-protocol-error-status exn) 1)
(log-msg lgr 'INFO build-id ": build failed"))
+ ((eq? (store-protocol-error-status exn) 100)
+ (log-msg lgr 'INFO build-id ": build failed (permanent failure)"))
((eq? (store-protocol-error-status exn) 101)
(log-msg lgr 'INFO build-id ": build failed due to a timeout"))
(else