diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-07-03 17:08:23 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-07-03 17:08:23 +0100 |
| commit | 290ba6763dc6ba826970e717fd8b0058b4878beb (patch) | |
| tree | bd68ccba11c96cbb90df212de388a6bd68697d56 | |
| parent | 23504e0f01dc1eae05b307e313ba70faaad84be8 (diff) | |
| download | build-coordinator-290ba6763dc6ba826970e717fd8b0058b4878beb.tar build-coordinator-290ba6763dc6ba826970e717fd8b0058b4878beb.tar.gz | |
Fix match error when populating the running-ids hash
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 800ae1a..9bdb3c6 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -804,12 +804,11 @@ (list-jobs)) (running-ids (make-hash-table (length jobs)))) - (for-each (match-lambda - ((id _ _) - (hash-set! running-ids - id - #t))) - jobs) + (for-each (lambda (id) + (hash-set! running-ids + id + #t)) + (map car jobs)) (for-each (match-lambda ((id _ _) |