aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/web/build
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-05-24 17:02:53 +0100
committerChristopher Baines <mail@cbaines.net>2020-05-24 17:02:53 +0100
commitb6754c8a4c1135a803fa72fbf4208d46c301b105 (patch)
treebf057704a4e0f6a121800ff936bc98ec967f1122 /guix-data-service/web/build
parentf11421824dd22d4d5ad49ebc190e654ab62517ff (diff)
downloaddata-service-b6754c8a4c1135a803fa72fbf4208d46c301b105.tar
data-service-b6754c8a4c1135a803fa72fbf4208d46c301b105.tar.gz
Add a lookup_builds field to the build_servers table
This is to allow for build servers where only the substitutes should be queried, and it shouldn't be assumed that they're running Cuirass.
Diffstat (limited to 'guix-data-service/web/build')
-rw-r--r--guix-data-service/web/build/controller.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-data-service/web/build/controller.scm b/guix-data-service/web/build/controller.scm
index e7d1399..a79d558 100644
--- a/guix-data-service/web/build/controller.scm
+++ b/guix-data-service/web/build/controller.scm
@@ -38,7 +38,7 @@
(lambda (v)
(let ((build-servers (select-build-servers conn)))
(or (any (match-lambda
- ((id url lookup-all-derivations?)
+ ((id url lookup-all-derivations? lookup-builds?)
(if (eq? (string->number v)
id)
id