From 71d2bdfa9fce546e8d8d5103aee4e1096ce65ecf Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 4 Feb 2022 10:00:50 +0000 Subject: services: nar-herder: Support ttl and negative-ttl options. * gnu/services/guix.scm (): Add ttl and negative-ttl fields. (nar-herder-shepherd-services): Pass the ttl and negative-ttl values to the service. * doc/guix.texi (Guix Services): Document this. --- gnu/services/guix.scm | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) (limited to 'gnu') diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm index 6a5b276b33..dc9bd8ad68 100644 --- a/gnu/services/guix.scm +++ b/gnu/services/guix.scm @@ -774,7 +774,12 @@ (define-record-type* (default "none")) (storage-nar-removal-criteria nar-herder-configuration-storage-nar-removal-criteria - (default '()))) + (default '())) + (ttl nar-herder-configuration-ttl + (default #f)) + (negative-ttl nar-herder-configuration-negative-ttl + (default #f))) + (define (nar-herder-shepherd-services config) (match-record config @@ -782,7 +787,8 @@ (define (nar-herder-shepherd-services config) mirror database database-dump host port - storage storage-limit storage-nar-removal-criteria) + storage storage-limit storage-nar-removal-criteria + ttl negative-ttl) (unless (or mirror storage) (error "nar-herder: mirror or storage must be set")) @@ -817,7 +823,13 @@ (define (nar-herder-shepherd-services config) (match criteria ((k . v) (simple-format #f "~A=~A" k v)) (str str)))) - storage-nar-removal-criteria)) + storage-nar-removal-criteria) + #$@(if ttl + (list (string-append "--ttl=" ttl)) + '()) + #$@(if negative-ttl + (list (string-append "--negative-ttl=" negative-ttl)) + '())) #:user #$user #:group #$group #:pid-file "/var/run/nar-herder/pid" -- cgit v1.2.3