ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 20:49:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

substitute: Delete cached narinfos more than two-month old.

Browse source 
This allows 'guix substitute' to shrink the cache a bit more, which
saves space and improves performance of cache-cleanup phases since fewer
entries need to be traversed.

* guix/scripts/substitute.scm (cached-narinfo-expiration-time): Define
'max-ttl' and use it as an upper bound.
This commit is contained in:
Ludovic Courtès 2023-05-31 23:02:16 +02:00
parent 92ee0fd5eb
commit 3f5e141829
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/scripts/substitute.scm
View file

@ -167,6 +167,11 @@ (define (lookup-narinfo caches path authorized?)
(define (cached-narinfo-expiration-time file)
"Return the expiration time for FILE, which is a cached narinfo."
(define max-ttl
;; Upper bound on the TTL used to avoid keeping around cached narinfos for
;; too long, which makes the cache bigger and more expensive to traverse.
(* 2 30 24 60 60)) ;2 months
(catch 'system-error
(lambda ()
(call-with-input-file file
@ -174,10 +179,10 @@ (define (cached-narinfo-expiration-time file)
(match (read port)
(('narinfo ('version 2) ('cache-uri uri)
('date date) ('ttl ttl) ('value #f))
(+ date ttl))
(+ date (min ttl max-ttl)))
(('narinfo ('version 2) ('cache-uri uri)
('date date) ('ttl ttl) ('value value))
(+ date ttl))
(+ date (min ttl max-ttl)))
(x
0)))))
(lambda args