aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/build-allocator.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-01-17 20:39:43 +0000
committerChristopher Baines <mail@cbaines.net>2021-01-17 20:39:43 +0000
commit92068ef03830c744872b6ef81fe12ffc39ca72fe (patch)
treea1a54300de7859801ccf0d86dda046ceb9bf285f /guix-build-coordinator/build-allocator.scm
parent2123064a21236e9a91716effef4fc522172a95fd (diff)
downloadbuild-coordinator-92068ef03830c744872b6ef81fe12ffc39ca72fe.tar
build-coordinator-92068ef03830c744872b6ef81fe12ffc39ca72fe.tar.gz
Fix bug in allocators from alist to vector switch for tags
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
-rw-r--r--guix-build-coordinator/build-allocator.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm
index 81b857c..aaf9dd6 100644
--- a/guix-build-coordinator/build-allocator.scm
+++ b/guix-build-coordinator/build-allocator.scm
@@ -165,7 +165,7 @@
result))
'()
build-tags))))
- agent-tags)))))
+ (vector->list agent-tags))))))
(lambda (build)
(log "build:" (assq-ref build 'uuid))
@@ -548,7 +548,7 @@
result))
'()
build-tags))))
- agent-tags)))))
+ (vector->list agent-tags))))))
(lambda (build-id)
(log "build:" build-id)