diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-05-04 18:01:36 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-05-04 18:01:36 +0100 |
| commit | 4d9f6240f25c54dd3cca2873de2f75446412ed8f (patch) | |
| tree | 23d577d0513d97c8c58843b5e0382426b69b6414 /nar-herder | |
| parent | e046f8a756aa24942f512b352e87dfe78fa89470 (diff) | |
| download | nar-herder-4d9f6240f25c54dd3cca2873de2f75446412ed8f.tar nar-herder-4d9f6240f25c54dd3cca2873de2f75446412ed8f.tar.gz | |
Expose the storage size as a metric
Diffstat (limited to 'nar-herder')
| -rw-r--r-- | nar-herder/storage.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 620860a..97fd334 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -214,7 +214,13 @@ (sleep 300))))) -(define (start-mirroring-thread database mirror storage-limit storage-root) +(define (start-mirroring-thread database mirror storage-limit storage-root + metrics-registry) + + (define storage-size-metric + (make-gauge-metric metrics-registry + "storage_size_bytes")) + (define (get-missing-nar-files) (let ((index (index-storage database storage-root))) (filter @@ -262,6 +268,8 @@ (log-msg 'DEBUG "running mirror pass") (let ((initial-storage-size (with-time-logging "getting storage size" (get-storage-size storage-root)))) + (metric-set storage-size-metric + initial-storage-size) ;; If there's free space, then consider downloading missing nars (when (or no-storage-limit? (< initial-storage-size storage-limit)) |