diff options
author | Christopher Baines <mail@cbaines.net> | 2024-03-15 12:07:10 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-03-15 12:07:10 +0000 |
commit | 75c0cb3c1d9d1327a0c1bba2d5e1cd282780fbbf (patch) | |
tree | 11398141bf382131e87051bfde2d371feb8905b0 | |
parent | ce14e13bac9ab1467e4462947f4d55d3f5a7e560 (diff) | |
download | nar-herder-75c0cb3c1d9d1327a0c1bba2d5e1cd282780fbbf.tar nar-herder-75c0cb3c1d9d1327a0c1bba2d5e1cd282780fbbf.tar.gz |
Update metrics while removing nars
Rather than waiting until the end.
-rw-r--r-- | nar-herder/storage.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index f8fde12..c1db3f5 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -448,6 +448,11 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." (uri-decode (assq-ref nar 'url))) + (update-nar-files-metric + metrics-registry + '() + #:removed-count 1) + (let ((storage-size-estimate (- storage-size (assq-ref nar 'size)))) @@ -460,11 +465,9 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." (match result ((storage-size . removed-count) - (update-nar-files-metric metrics-registry - nar-file-counts - #:removed-count removed-count))) - (log-msg 'INFO "finished looking for nars to remove")))) + (log-msg 'INFO "finished looking for nars to remove, removed " + removed-count " files")))))) (when (null? nar-removal-criteria) (error "must be some removal criteria")) |