From f2d4f61b0b36f3a0c23e6eeef60085e7e27a543f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 12 Jan 2024 13:36:33 +0000 Subject: Use client errors in update-build-priority So these can be passed to the agent. --- guix-build-coordinator/coordinator.scm | 6 ++---- 1 file 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 -- cgit v1.2.3