From 31110acc91badc8f080b166c90966669c854a319 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 22 Dec 2019 22:35:43 +0000
Subject: [PATCH] Fix a bug with argument handling in the query-build-servers
 script

---
 guix-data-service/builds.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)