aboutsummaryrefslogtreecommitdiff
path: root/nar-herder/server.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-03-25 19:13:12 +0000
committerChristopher Baines <mail@cbaines.net>2024-03-25 19:13:12 +0000
commit50de312c3a818afd6a93adc17d16ae4ff97ba436 (patch)
treeff0f2e6150b42a021a339f51ffb67b8f6085268e /nar-herder/server.scm
parent98135389e68d9872a82081d1dee7615bc8658257 (diff)
downloadnar-herder-50de312c3a818afd6a93adc17d16ae4ff97ba436.tar
nar-herder-50de312c3a818afd6a93adc17d16ae4ff97ba436.tar.gz
Add a fallback TTL for cached compression removals
Diffstat (limited to 'nar-herder/server.scm')
-rw-r--r--nar-herder/server.scm5
1 files changed, 4 insertions, 1 deletions
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?))