diff options
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 () |