diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-09-20 09:14:32 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-09-20 09:14:32 +0100 |
| commit | 6aa254f7359fa363949ca9cc555df554fcff8e29 (patch) | |
| tree | e5d990faf8f574b0872eb6fa46ce7e049dd10ce2 | |
| parent | e0b36b12d7a4ca1a4a105c5f57a3a416585619e2 (diff) | |
| download | build-coordinator-6aa254f7359fa363949ca9cc555df554fcff8e29.tar build-coordinator-6aa254f7359fa363949ca9cc555df554fcff8e29.tar.gz | |
Fix assq-ref when handling build results
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 8d15fc7..97c439c 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -484,7 +484,7 @@ (let* ((result (assoc-ref result-json "result")) (success? (string=? result "success"))) (let ((build-details (datastore-find-build datastore build-id))) - (when (assq-ref build-details 'processed?) + (when (assq-ref build-details 'processed) (raise-exception (make-exception-with-message "build already processed")))) |