diff options
| -rw-r--r-- | nar-herder/storage.scm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index c5b2413..5555176 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -395,14 +395,15 @@ (call-with-output-file tmp-file-name (lambda (output-port) - (dump-port body output-port))) - (rename-file tmp-file-name - destination-file-name) - - (metric-increment nar-files-metric - #:label-values '((stored . "true"))) - (metric-decrement nar-files-metric - #:label-values '((stored . "false"))))))))) + (dump-port body output-port))))))) + + (rename-file tmp-file-name + destination-file-name) + + (metric-increment nar-files-metric + #:label-values '((stored . "true"))) + (metric-decrement nar-files-metric + #:label-values '((stored . "false"))))) (define (download-nars initial-storage-size) ;; If there's free space, then consider downloading missing nars |