diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-07-12 09:37:56 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-07-12 09:37:56 +0100 |
| commit | a90860d1ed3e866c9d0cfdbc1af1ad8181e95e9d (patch) | |
| tree | d9609845969be8995909cdaea3c2fe16d30ec4f9 /guix-qa-frontpage | |
| parent | 80bce0d2d08799eded61aae7a8e8995b5a75b55d (diff) | |
| download | qa-frontpage-a90860d1ed3e866c9d0cfdbc1af1ad8181e95e9d.tar qa-frontpage-a90860d1ed3e866c9d0cfdbc1af1ad8181e95e9d.tar.gz | |
Instrument the time to submit builds
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))) |