ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: guix-publish: Add 'cache-bypass-threshold' field.

Browse source 
This is a followup to ecaa102a58.

* gnu/services/base.scm (<guix-publish-configuration>)[cache-bypass-threshold]:
New field.
(guix-publish-shepherd-service): Honor it.
This commit is contained in:
Ludovic Courtès 2020-10-30 12:31:18 +01:00
parent d128a836e4
commit 2b2ab7796a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
doc/guix.texi
View file

@ -15041,6 +15041,12 @@ When it is an integer, this is the number of worker threads used for
caching; when @code{#f}, the number of processors is used.
@xref{Invoking guix publish, @option{--workers}}, for more information.
@item @code{cache-bypass-threshold} (default: 10 MiB)
When @code{cache} is true, this is the maximum size in bytes of a store
item for which @command{guix publish} may bypass its cache in case of a
cache miss. @xref{Invoking guix publish,
@option{--cache-bypass-threshold}}, for more information.
@item @code{ttl} (default: @code{#f})
When it is an integer, this denotes the @dfn{time-to-live} in seconds
of the published archives. @xref{Invoking guix publish, @option{--ttl}},

10
gnu/services/base.scm
View file

@ -1740,6 +1740,8 @@ (define-record-type* <guix-publish-configuration>
(default "nar"))
(cache guix-publish-configuration-cache ;#f | string
(default #f))
(cache-bypass-threshold guix-publish-configuration-cache-bypass-threshold
(default (* 10 (expt 2 20)))) ;integer
(workers guix-publish-configuration-workers ;#f | integer
(default #f))
(ttl guix-publish-configuration-ttl ;#f | integer
@ -1774,7 +1776,7 @@ (define (config->compression-options config)
lst))))
(match-record config <guix-publish-configuration>
(guix port host nar-path cache workers ttl)
(guix port host nar-path cache workers ttl cache-bypass-threshold)
(list (shepherd-service
(provision '(guix-publish))
(requirement '(guix-daemon))
@ -1796,7 +1798,11 @@ (define (config->compression-options config)
"s"))
#~())
#$@(if cache
#~((string-append "--cache=" #$cache))
#~((string-append "--cache=" #$cache)
#$(string-append
"--cache-bypass-threshold="
(number->string
cache-bypass-threshold)))
#~()))
;; Make sure we run in a UTF-8 locale so we can produce