diff options
author | Christopher Baines <mail@cbaines.net> | 2024-03-26 13:55:10 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-03-26 13:55:10 +0000 |
commit | 8c37b07acd7f31622168fda673962721c4361638 (patch) | |
tree | a57ae38117f610dec7f8213afb924789e2b2c08c | |
parent | a32f1f5e3f42ee31148c75badf5eeb306f6a9971 (diff) | |
download | nar-herder-8c37b07acd7f31622168fda673962721c4361638.tar nar-herder-8c37b07acd7f31622168fda673962721c4361638.tar.gz |
Limit the frequency of the cached-compression-schedule-removal pass
-rw-r--r-- | nar-herder/cached-compression.scm | 16 |
1 files 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") |