aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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