aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-12-22 22:35:43 +0000
committerChristopher Baines <mail@cbaines.net>2019-12-22 22:35:43 +0000
commit31110acc91badc8f080b166c90966669c854a319 (patch)
tree74206f8e8a93e482626647595ea096e376dfe67d
parente45db1cd30a4c3fdc3ff0f847a4043f6ff5bf535 (diff)
downloaddata-service-31110acc91badc8f080b166c90966669c854a319.tar
data-service-31110acc91badc8f080b166c90966669c854a319.tar.gz
Fix a bug with argument handling in the query-build-servers script
-rw-r--r--guix-data-service/builds.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm
index 645fcc9..17432e8 100644
--- a/guix-data-service/builds.scm
+++ b/guix-data-service/builds.scm
@@ -23,7 +23,8 @@
(for-each
(match-lambda
((id url lookup-all-derivations?)
- (when (or (not build-servers)
+ (when (or (or (not build-servers)
+ (not build-server-ids))
(member id build-server-ids))
(when lookup-all-derivations?
(simple-format #t "\nQuerying ~A\n" url)