aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage
diff options
context:
space:
mode:
Diffstat (limited to 'guix-qa-frontpage')
-rw-r--r--guix-qa-frontpage/server.scm33
1 files changed, 20 insertions, 13 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index a6ed9d5..24c030b 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -857,9 +857,6 @@ has no patches or has been closed.")
(run-fibers
(lambda ()
- (%fiberized-submit-build
- (fiberize submit-build #:parallelism 8))
-
(start-refresh-patch-branches-data-fiber
database
metrics-registry
@@ -869,16 +866,26 @@ has no patches or has been closed.")
metrics-registry)
(when submit-builds?
- (start-submit-patch-builds-fiber database
- "http://127.0.0.1:8746"
- "https://data.qa.guix.gnu.org"
- metrics-registry
- #:series-count
- patch-issues-to-show)
- (start-submit-branch-builds-fiber database
- "http://127.0.0.1:8746"
- "https://data.qa.guix.gnu.org"
- metrics-registry))
+ (parameterize
+ ((%fiberized-submit-build
+ (fiberize (lambda args
+ (call-with-duration-metric
+ metrics-registry
+ "submit_build_duration_seconds"
+ (lambda ()
+ (apply submit-build args))))
+ #:parallelism 8)))
+
+ (start-submit-patch-builds-fiber database
+ "http://127.0.0.1:8746"
+ "https://data.qa.guix.gnu.org"
+ metrics-registry
+ #:series-count
+ patch-issues-to-show)
+ (start-submit-branch-builds-fiber database
+ "http://127.0.0.1:8746"
+ "https://data.qa.guix.gnu.org"
+ metrics-registry)))
(wait finished?))
#:hz 0
#:parallelism 1)))