From 8c37b07acd7f31622168fda673962721c4361638 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 26 Mar 2024 13:55:10 +0000
Subject: Limit the frequency of the cached-compression-schedule-removal pass

---
 nar-herder/cached-compression.scm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/nar-herder/cached-compression.scm b/nar-herder/cached-compression.scm
index c5621b0..ac18036 100644
--- a/nar-herder/cached-compression.scm
+++ b/nar-herder/cached-compression.scm
@@ -472,13 +472,15 @@
   (spawn-fiber
    (lambda ()
      (let ((sleep-duration
-            (apply min
-                   (map (lambda (compression-details)
-                          (/ (time-second
-                              (assq-ref compression-details
-                                        'unused-removal-duration))
-                             4))
-                        enabled-cached-compressions))))
+            (max
+             (* 60 60 6)                ; Maybe this be confirgurable
+             (apply min
+                    (map (lambda (compression-details)
+                           (/ (time-second
+                               (assq-ref compression-details
+                                         'unused-removal-duration))
+                              4))
+                         enabled-cached-compressions)))))
        (while #t
          (log-msg 'DEBUG "cached-compression-schedule-removal-fiber starting pass")
 
-- 
cgit v1.2.3