diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-20 16:25:58 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-20 16:25:58 +0000 |
| commit | 72ffc0d64fc46a29d431eb9275d341e6f3fffbee (patch) | |
| tree | 7e35be2b5f72efa172a2bce18792888cc63fe4ac | |
| parent | 09e51bd9de1dba9336641898e9d62d3cbf0ddc16 (diff) | |
| download | build-coordinator-72ffc0d64fc46a29d431eb9275d341e6f3fffbee.tar build-coordinator-72ffc0d64fc46a29d431eb9275d341e6f3fffbee.tar.gz | |
Track the duration of hooks
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 619482f..9996db5 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -524,7 +524,13 @@ (log-msg (build-coordinator-logger build-coordinator) 'DEBUG "processing " event " event: " arguments) - (apply handler build-coordinator arguments) + (call-with-duration-metric + (build-coordinator-metrics-registry build-coordinator) + "hook_duration_seconds" + (lambda () + (apply handler build-coordinator arguments)) + #:labels '(event) + #:label-values `((event . ,event))) (log-msg (build-coordinator-logger build-coordinator) 'DEBUG event " handler finished") |