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