From 9f8b511e9014253b5ea2d4548626d6971aabfc33 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 1 Apr 2024 23:14:39 +0100
Subject: Raise level of some cached compression log messages

As I want to see these without lowering the log-level to DEBUG.
---
 nar-herder/cached-compression.scm | 14 +++++++-------
 1 file 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))))
-- 
cgit v1.2.3