diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-27 14:26:20 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-27 14:26:20 +0100 |
| commit | 2441ce21653cff078b938b638bb7193c4e8cb043 (patch) | |
| tree | b3aa84189fab7f4e8db2ca175d432eb157e4516a /guix-build-coordinator/agent-messaging | |
| parent | 7dc9f350babf03963d1f9ed799adfe6615edb7d6 (diff) | |
| download | build-coordinator-2441ce21653cff078b938b638bb7193c4e8cb043.tar build-coordinator-2441ce21653cff078b938b638bb7193c4e8cb043.tar.gz | |
Instrument the size of some Guix managed hash tables
In case any of these are a factor in the occasional high memory use.
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index 2928513..ceda10c 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -80,12 +80,17 @@ if there was no request body." (get-gc-metrics-updater (build-coordinator-metrics-registry build-coordinator))) + (define guix-memory-metrics-updater + (get-guix-memory-metrics-updater + (build-coordinator-metrics-registry build-coordinator))) + (define datastore-metrics-updater (base-datastore-metrics-updater build-coordinator)) (define (update-managed-metrics!) (call-with-delay-logging datastore-metrics-updater) - (call-with-delay-logging gc-metrics-updater)) + (call-with-delay-logging gc-metrics-updater) + (call-with-delay-logging guix-memory-metrics-updater)) (call-with-error-handling (lambda () |