aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-01-12 13:36:33 +0000
committerChristopher Baines <mail@cbaines.net>2024-01-12 13:36:33 +0000
commitf2d4f61b0b36f3a0c23e6eeef60085e7e27a543f (patch)
tree17c01f6e0951abdbbc9fbfd96b8b3ab28ed192c0 /guix-build-coordinator
parent2385217d499bb45072e6f5f0230cf406cea42755 (diff)
downloadbuild-coordinator-f2d4f61b0b36f3a0c23e6eeef60085e7e27a543f.tar
build-coordinator-f2d4f61b0b36f3a0c23e6eeef60085e7e27a543f.tar.gz
Use client errors in update-build-priority
So these can be passed to the agent.
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/coordinator.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index bc1dbae..906f6ee 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -859,13 +859,11 @@
(let ((build-details (datastore-find-build datastore uuid)))
(when (assq-ref build-details 'canceled)
(raise-exception
- (make-exception-with-message
- "cannot update an already canceled build")))
+ (make-client-error 'build-already-canceled)))
(when (assq-ref build-details 'processed)
(raise-exception
- (make-exception-with-message
- "cannot update an already processed build"))))
+ (make-client-error 'build-already-processed))))
(datastore-update-build-priority datastore
uuid