diff options
Diffstat (limited to 'guix-qa-frontpage')
-rw-r--r-- | guix-qa-frontpage/server.scm | 33 |
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))) |