diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-12 13:36:33 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-12 13:36:33 +0000 |
| commit | f2d4f61b0b36f3a0c23e6eeef60085e7e27a543f (patch) | |
| tree | 17c01f6e0951abdbbc9fbfd96b8b3ab28ed192c0 | |
| parent | 2385217d499bb45072e6f5f0230cf406cea42755 (diff) | |
| download | build-coordinator-f2d4f61b0b36f3a0c23e6eeef60085e7e27a543f.tar build-coordinator-f2d4f61b0b36f3a0c23e6eeef60085e7e27a543f.tar.gz | |
Use client errors in update-build-priority
So these can be passed to the agent.
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 6 |
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 |