aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/web
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-06-09 11:48:27 +0100
committerChristopher Baines <mail@cbaines.net>2023-06-09 16:11:06 +0100
commit5c9ec28cb5d248bb3e3bbe6e68d67de910e03b5b (patch)
treee8c89921a13e7c73348cf639a3b07fba0485d876 /guix-data-service/web
parent7524d23b44b7aa3db42b9d5344eefa6440467189 (diff)
downloaddata-service-5c9ec28cb5d248bb3e3bbe6e68d67de910e03b5b.tar
data-service-5c9ec28cb5d248bb3e3bbe6e68d67de910e03b5b.tar.gz
Query for outputs when build events arrive
This will keep the substitute information more up to date.
Diffstat (limited to 'guix-data-service/web')
-rw-r--r--guix-data-service/web/build-server/controller.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-data-service/web/build-server/controller.scm b/guix-data-service/web/build-server/controller.scm
index babf59d..7c31cf1 100644
--- a/guix-data-service/web/build-server/controller.scm
+++ b/guix-data-service/web/build-server/controller.scm
@@ -23,6 +23,7 @@
#:use-module (fibers)
#:use-module (guix-data-service utils)
#:use-module (guix-data-service database)
+ #:use-module (guix-data-service substitutes)
#:use-module (guix-data-service web render)
#:use-module (guix-data-service web query-parameters)
#:use-module (guix-data-service jobs load-new-guix-revision)
@@ -233,7 +234,10 @@
(lambda (ids)
(call-via-thread-pool-channel
(lambda (conn)
- (handle-removing-blocking-build-entries-for-successful-builds conn ids)))))
+ (handle-removing-blocking-build-entries-for-successful-builds conn ids)))
+
+ (request-query-of-build-server-substitutes build-server-id
+ ids)))
(with-build-ids-for-status
items