diff options
author | Christopher Baines <mail@cbaines.net> | 2024-04-27 17:03:35 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-04-27 17:03:35 +0100 |
commit | 820697c47cdc7500b0e1e5e49b8e425123b289cb (patch) | |
tree | ec5d9278e3c0adc1a1d9ddac23346c4746182ad4 /nar-herder/server.scm | |
parent | 13264c3478cac669fc12c129e9f4dd1bbc97c723 (diff) | |
download | nar-herder-820697c47cdc7500b0e1e5e49b8e425123b289cb.tar nar-herder-820697c47cdc7500b0e1e5e49b8e425123b289cb.tar.gz |
Fix the nar_files metric not being updated correctly
Diffstat (limited to 'nar-herder/server.scm')
-rw-r--r-- | nar-herder/server.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm index a025fa3..f9a8c32 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -817,9 +817,16 @@ (lambda () (match (get-message addition-channel) (('addition file) + ;; TODO Check if the file is actually not stored + (update-nar-files-metric metrics-registry + '() + #:not-stored-addition-count 1) + (when mirror-channel - (put-message mirror-channel - `(fetch ,file))) + (spawn-fiber + (lambda () + (put-message mirror-channel + `(fetch ,file))))) (when removal-channel (spawn-fiber (lambda () |