aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-09-02 16:43:08 +0100
committerChristopher Baines <mail@cbaines.net>2022-09-02 17:12:03 +0100
commitb026210afc93fae5d794feb6e151da0e2aac8ded (patch)
treef37602126e8a348462883e97990b50059c8ce7f6 /guix-build-coordinator/agent.scm
parent64fe85ff20443304bfeaa8ffb16dbf2be14c3148 (diff)
downloadbuild-coordinator-b026210afc93fae5d794feb6e151da0e2aac8ded.tar
build-coordinator-b026210afc93fae5d794feb6e151da0e2aac8ded.tar.gz
Don't record the build as failed if the exception is unknown
As this can cause spurious failures.
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r--guix-build-coordinator/agent.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index f52af5f..27b0633 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -806,8 +806,11 @@ but the guix-daemon claims it's unavailable"
(else
(log-msg lgr 'ERROR build-id ": unknown store protocol error: "
(store-protocol-error-message exn) "(status: "
- (store-protocol-error-status exn) ")")))
- (log-msg lgr 'ERROR build-id ": unknown exception " exn))
+ (store-protocol-error-status exn) ")")
+ (raise-exception exn)))
+ (begin
+ (log-msg lgr 'ERROR build-id ": unknown exception " exn)
+ (raise-exception exn)))
#f)
(lambda ()
(build-things store (list (derivation-file-name derivation)))