From 6aa254f7359fa363949ca9cc555df554fcff8e29 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 20 Sep 2020 09:14:32 +0100 Subject: Fix assq-ref when handling build results --- guix-build-coordinator/coordinator.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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")))) -- cgit v1.2.3