diff options
author | Christopher Baines <mail@cbaines.net> | 2021-12-13 15:44:08 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-12-13 15:44:08 +0000 |
commit | 0af973dde0f3939984a7889050e649c152f9c59a (patch) | |
tree | b4e377ee28109219e81405c820f064e88c833b94 | |
parent | 6f7f5f195a417831cee1fb10a2ab8a2b77dd0fcb (diff) | |
download | nar-herder-0af973dde0f3939984a7889050e649c152f9c59a.tar nar-herder-0af973dde0f3939984a7889050e649c152f9c59a.tar.gz |
Log the time for getting the storage size
-rw-r--r-- | nar-herder/storage.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index a607624..4c1a9df 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -28,6 +28,7 @@ #:use-module (logging port-log) #:use-module (json) #:use-module ((guix build utils) #:select (dump-port mkdir-p)) + #:use-module (nar-herder utils) #:use-module (nar-herder database) #:export (store-item-in-local-storage? @@ -220,7 +221,8 @@ (not (integer? storage-limit))) (log-msg 'DEBUG "running mirror pass") - (let ((initial-storage-size (get-storage-size storage-root))) + (let ((initial-storage-size (with-time-logging "getting storage size" + (get-storage-size storage-root)))) ;; If there's free space, then consider downloading missing nars (when (or no-storage-limit? (< initial-storage-size storage-limit)) |