diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-24 17:02:53 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-24 17:02:53 +0100 |
| commit | b6754c8a4c1135a803fa72fbf4208d46c301b105 (patch) | |
| tree | bf057704a4e0f6a121800ff936bc98ec967f1122 /guix-data-service/web/repository | |
| parent | f11421824dd22d4d5ad49ebc190e654ab62517ff (diff) | |
| download | data-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/repository')
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index 88739d5..0f8a5e7 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -295,11 +295,7 @@ target package-name)) (build-server-urls - (group-to-alist - (match-lambda - ((id url lookup-all-derivations) - (cons id url))) - (select-build-servers conn)))) + (select-build-server-urls-by-id conn))) (case (most-appropriate-mime-type '(application/json text/html) mime-types) @@ -364,11 +360,7 @@ package-name output-name)) (build-server-urls - (group-to-alist - (match-lambda - ((id url lookup-all-derivations) - (cons id url))) - (select-build-servers conn)))) + (select-build-server-urls-by-id conn))) (case (most-appropriate-mime-type '(application/json text/html) mime-types) |