diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-13 09:55:23 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-13 09:55:23 +0100 |
| commit | 3028f927261ca602a03edb9e351304fc14555bc9 (patch) | |
| tree | f5357b2f866f928700222d022b95fee0b407a6b9 | |
| parent | 5e1947cd8e0297db4b911c9b88745b0ed9dccc1a (diff) | |
| download | nar-herder-3028f927261ca602a03edb9e351304fc14555bc9.tar nar-herder-3028f927261ca602a03edb9e351304fc14555bc9.tar.gz | |
Fix running both the nar removal and mirroring fiber
| -rw-r--r-- | nar-herder/storage.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 10dafe7..3f6cfd2 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -393,8 +393,10 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." metrics-registry nar-removal-criteria) (define storage-size-metric - (make-gauge-metric metrics-registry - "storage_size_bytes")) + (or (metrics-registry-fetch-metric metrics-registry + "storage_size_bytes") + (make-gauge-metric metrics-registry + "storage_size_bytes"))) (define removal-channel (make-channel)) @@ -569,8 +571,10 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." (not (integer? storage-limit))) (define storage-size-metric - (make-gauge-metric metrics-registry - "storage_size_bytes")) + (or (metrics-registry-fetch-metric metrics-registry + "storage_size_bytes") + (make-gauge-metric metrics-registry + "storage_size_bytes"))) (define (fetch-file file) (let* ((string-url |