diff options
author | Christopher Baines <mail@cbaines.net> | 2024-03-25 19:13:12 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-03-25 19:13:12 +0000 |
commit | 50de312c3a818afd6a93adc17d16ae4ff97ba436 (patch) | |
tree | ff0f2e6150b42a021a339f51ffb67b8f6085268e | |
parent | 98135389e68d9872a82081d1dee7615bc8658257 (diff) | |
download | nar-herder-50de312c3a818afd6a93adc17d16ae4ff97ba436.tar nar-herder-50de312c3a818afd6a93adc17d16ae4ff97ba436.tar.gz |
Add a fallback TTL for cached compression removals
-rw-r--r-- | nar-herder/cached-compression.scm | 6 | ||||
-rw-r--r-- | nar-herder/server.scm | 5 |
2 files changed, 8 insertions, 3 deletions
diff --git a/nar-herder/cached-compression.scm b/nar-herder/cached-compression.scm index 0cb7e1d..c5621b0 100644 --- a/nar-herder/cached-compression.scm +++ b/nar-herder/cached-compression.scm @@ -404,7 +404,8 @@ database cached-compression-management-channel enabled-cached-compressions - cached-compression-removal-fiber-wakeup-channel) + cached-compression-removal-fiber-wakeup-channel + base-ttl) (define (files-to-schedule-for-removal compression-details) (let* ((directory (assq-ref compression-details 'directory)) @@ -450,7 +451,8 @@ (current-time) (make-time time-duration 0 - (assq-ref compression-details 'ttl))))) + (or (assq-ref compression-details 'ttl) + base-ttl))))) (database-insert-scheduled-cached-narinfo-removal database (assq-ref cached-narinfo-file-details 'id) diff --git a/nar-herder/server.scm b/nar-herder/server.scm index 6d9d553..a99e278 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -842,7 +842,10 @@ database cached-compression-management-channel enabled-cached-compressions - cached-compression-removal-fiber-wakeup-channel))) + cached-compression-removal-fiber-wakeup-channel + (or (assq-ref opts 'narinfo-ttl) + ;; Default from (guix substitutes) + (* 36 3600))))) (log-msg 'DEBUG "finished maintenance setup") (wait finished?)) |