diff options
Diffstat (limited to 'nar-herder/server.scm')
| -rw-r--r-- | nar-herder/server.scm | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm index 2c68dad..d84424d 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -222,7 +222,8 @@ "\n")))) (define* (make-request-handler database storage-root - #:key ttl negative-ttl logger + #:key base-ttl base-cached-compressions-ttl + negative-ttl logger metrics-registry maybe-trigger-creation-of-compressed-nars) (define hostname @@ -797,14 +798,19 @@ (assq-ref opts 'host) ":" (assq-ref opts 'port)) (run-server/patched - (make-request-handler database - canonical-storage - #:ttl (assq-ref opts 'narinfo-ttl) - #:negative-ttl (assq-ref opts 'narinfo-negative-ttl) - #:logger lgr - #:metrics-registry metrics-registry - #:maybe-trigger-creation-of-compressed-nars - maybe-trigger-creation-of-compressed-nars) + (make-request-handler + database + canonical-storage + #:base-ttl (or (assq-ref opts 'narinfo-new-ttl) + (assq-ref opts 'narinfo-ttl)) + #:base-cached-compressions-ttl + (or (assq-ref opts 'new-cached-compressions-narinfo-ttl) + (assq-ref opts 'cached-compressions-narinfo-ttl)) + #:negative-ttl (assq-ref opts 'narinfo-negative-ttl) + #:logger lgr + #:metrics-registry metrics-registry + #:maybe-trigger-creation-of-compressed-nars + maybe-trigger-creation-of-compressed-nars) #:host (assq-ref opts 'host) #:port (assq-ref opts 'port)) |