diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-05-06 18:34:30 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-05-06 18:34:30 +0100 |
| commit | f41e801764c4cd25490c58d33876a1ec9e7d8241 (patch) | |
| tree | 7928f1121b9143984045366a1a49b19c359a70fb /nar-herder | |
| parent | fa0f06ecfdb11f18bb5891405e4b02b4c86ead9c (diff) | |
| download | nar-herder-f41e801764c4cd25490c58d33876a1ec9e7d8241.tar nar-herder-f41e801764c4cd25490c58d33876a1ec9e7d8241.tar.gz | |
Update the storage_size_bytes metric when removing nars
Diffstat (limited to 'nar-herder')
| -rw-r--r-- | nar-herder/storage.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index d711981..f13b98b 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -193,6 +193,9 @@ storage-root storage-limit metrics-registry nar-removal-criteria) + (define storage-size-metric + (make-gauge-metric metrics-registry + "storage_size_bytes")) (define nar-files-metric (or (metrics-registry-fetch-metric metrics-registry @@ -244,6 +247,8 @@ (with-time-logging "getting storage size" (get-storage-size storage-root)))) (log-msg 'DEBUG "initial storage size " initial-storage-size) + (metric-set storage-size-metric + initial-storage-size) (let loop ((storage-size initial-storage-size) |