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