services: guix: Add 'max-silent-time' and 'timeout'.
* gnu/services/base.scm (<guix-configuration>)[max-silent-time] [timeout]: New fields. (guix-shepherd-service): Honor them. * doc/guix.texi (Base Services): Document them.
This commit is contained in:
parent
368680d819
commit
3bee4b6196
@ -9260,6 +9260,12 @@ Whether to use substitutes.
|
|||||||
@item @code{substitute-urls} (default: @var{%default-substitute-urls})
|
@item @code{substitute-urls} (default: @var{%default-substitute-urls})
|
||||||
The list of URLs where to look for substitutes by default.
|
The list of URLs where to look for substitutes by default.
|
||||||
|
|
||||||
|
@item @code{max-silent-time} (default: @code{0})
|
||||||
|
@itemx @code{timeout} (default: @code{0})
|
||||||
|
The number of seconds of silence and the number of seconds of activity,
|
||||||
|
respectively, after which a build process times out. A value of zero
|
||||||
|
disables the timeout.
|
||||||
|
|
||||||
@item @code{extra-options} (default: @code{'()})
|
@item @code{extra-options} (default: @code{'()})
|
||||||
List of extra command-line options for @command{guix-daemon}.
|
List of extra command-line options for @command{guix-daemon}.
|
||||||
|
|
||||||
|
@ -1352,6 +1352,10 @@ failed to register hydra.gnu.org public key: ~a~%" status))))))))
|
|||||||
(default #t))
|
(default #t))
|
||||||
(substitute-urls guix-configuration-substitute-urls ;list of strings
|
(substitute-urls guix-configuration-substitute-urls ;list of strings
|
||||||
(default %default-substitute-urls))
|
(default %default-substitute-urls))
|
||||||
|
(max-silent-time guix-configuration-max-silent-time ;integer
|
||||||
|
(default 0))
|
||||||
|
(timeout guix-configuration-timeout ;integer
|
||||||
|
(default 0))
|
||||||
(extra-options guix-configuration-extra-options ;list of strings
|
(extra-options guix-configuration-extra-options ;list of strings
|
||||||
(default '()))
|
(default '()))
|
||||||
(log-file guix-configuration-log-file ;string
|
(log-file guix-configuration-log-file ;string
|
||||||
@ -1371,7 +1375,9 @@ failed to register hydra.gnu.org public key: ~a~%" status))))))))
|
|||||||
(match config
|
(match config
|
||||||
(($ <guix-configuration> guix build-group build-accounts
|
(($ <guix-configuration> guix build-group build-accounts
|
||||||
authorize-key? keys
|
authorize-key? keys
|
||||||
use-substitutes? substitute-urls extra-options
|
use-substitutes? substitute-urls
|
||||||
|
max-silent-time timeout
|
||||||
|
extra-options
|
||||||
log-file lsof http-proxy tmpdir)
|
log-file lsof http-proxy tmpdir)
|
||||||
(list (shepherd-service
|
(list (shepherd-service
|
||||||
(documentation "Run the Guix daemon.")
|
(documentation "Run the Guix daemon.")
|
||||||
@ -1381,6 +1387,8 @@ failed to register hydra.gnu.org public key: ~a~%" status))))))))
|
|||||||
#~(make-forkexec-constructor
|
#~(make-forkexec-constructor
|
||||||
(list #$(file-append guix "/bin/guix-daemon")
|
(list #$(file-append guix "/bin/guix-daemon")
|
||||||
"--build-users-group" #$build-group
|
"--build-users-group" #$build-group
|
||||||
|
"--max-silent-time" #$(number->string max-silent-time)
|
||||||
|
"--timeout" #$(number->string timeout)
|
||||||
#$@(if use-substitutes?
|
#$@(if use-substitutes?
|
||||||
'()
|
'()
|
||||||
'("--no-substitutes"))
|
'("--no-substitutes"))
|
||||||
|
Loading…
Reference in New Issue
Block a user