diff options
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 71dffb7..e72c5b4 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -850,6 +850,10 @@ datastore (lambda (db) (let ((build-details (datastore-find-build datastore uuid))) + (unless build-details + (raise-exception + (make-client-error 'build-unknown))) + (when (assq-ref build-details 'canceled) (raise-exception (make-client-error 'build-already-canceled))) @@ -893,6 +897,10 @@ val)) + (unless (datastore-find-build datastore uuid) + (raise-exception + (make-client-error 'build-unknown))) + (if ignore-if-build-required-by-another? (let ((build-required ;; Do this check here outside the transaction to avoid having to @@ -915,6 +923,10 @@ datastore (lambda (db) (let ((build-details (datastore-find-build datastore uuid))) + (unless build-details + (raise-exception + (make-client-error 'build-unknown))) + (when (assq-ref build-details 'canceled) (raise-exception (make-client-error 'build-already-canceled))) |