diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-01 23:14:39 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-01 23:14:39 +0100 |
| commit | 9f8b511e9014253b5ea2d4548626d6971aabfc33 (patch) | |
| tree | 783e665f9c4f49f3c6d13030828f1d5625f61684 | |
| parent | e9d8f119b516248e341637ca1561b29174de7bb0 (diff) | |
| download | nar-herder-9f8b511e9014253b5ea2d4548626d6971aabfc33.tar nar-herder-9f8b511e9014253b5ea2d4548626d6971aabfc33.tar.gz | |
Raise level of some cached compression log messages
As I want to see these without lowering the log-level to DEBUG.
| -rw-r--r-- | nar-herder/cached-compression.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/nar-herder/cached-compression.scm b/nar-herder/cached-compression.scm index bf82d56..d201415 100644 --- a/nar-herder/cached-compression.scm +++ b/nar-herder/cached-compression.scm @@ -508,7 +508,7 @@ start-count) (while #t - (log-msg 'DEBUG "cached-compression-schedule-removal-fiber starting pass") + (log-msg 'INFO "cached-compression-schedule-removal-fiber starting pass") (for-each (match-lambda @@ -522,7 +522,7 @@ #:unwind? #t))) enabled-cached-compressions) - (log-msg 'DEBUG "cached-compression-schedule-removal-fiber sleeping for " + (log-msg 'INFO "cached-compression-schedule-removal-fiber sleeping for " sleep-duration) (sleep sleep-duration)))))) @@ -536,13 +536,13 @@ (make-channel)) (define (make-pass) - (log-msg 'DEBUG "cached-compression-removal-fiber starting pass") + (log-msg 'INFO "cached-compression-removal-fiber starting pass") (let ((scheduled-cached-narinfo-removal (database-select-oldest-scheduled-cached-narinfo-removal database))) - (log-msg 'DEBUG "scheduled removal: " scheduled-cached-narinfo-removal) + (log-msg 'INFO "scheduled removal: " scheduled-cached-narinfo-removal) (if scheduled-cached-narinfo-removal (if (time<=? (assq-ref scheduled-cached-narinfo-removal @@ -578,7 +578,7 @@ (string-append directory "/" (basename store-path)))) - (log-msg 'DEBUG "deleting " filename) + (log-msg 'INFO "deleting " filename) (delete-file filename)))) (let ((duration @@ -618,7 +618,7 @@ (define cached-compression-details (assq-ref enabled-cached-compressions target-compression)) - (log-msg 'DEBUG "making " target-compression " for " + (log-msg 'INFO "making " target-compression " for " (uri-decode (basename (assq-ref (first narinfo-files) 'url)))) @@ -736,6 +736,6 @@ (let ((bytes (stat:size (stat dest-filename)))) - (log-msg 'DEBUG "created " dest-filename) + (log-msg 'INFO "created " dest-filename) bytes)))) |