aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-07-14 15:51:22 +0200
committerLudovic Courtès <ludo@gnu.org>2014-07-14 15:51:22 +0200
commitc11a6eb1e5064271c21306de2f4633d83e224320 (patch)
tree190a1d6210f4984525a5b1031c24e5f8a7d13211 /gnu/services
parent55e70e655dfc70ff8c30bcd7161b717f5d9b6a57 (diff)
downloadguix-c11a6eb1e5064271c21306de2f4633d83e224320.tar
guix-c11a6eb1e5064271c21306de2f4633d83e224320.tar.gz
services: Add options to 'guix-service'.
* gnu/services/base.scm (guix-service): Add #:use-substitutes? and #:extra-options parameters, and honor them. * doc/guix.texi (Base Services): Adjust accordingly.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/base.scm19
1 files changed, 16 insertions, 3 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index eb7c9dce04..acda08d19a 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -368,13 +368,22 @@ GUIX."
failed to register hydra.gnu.org public key: ~a~%" status))))))))
(define* (guix-service #:key (guix guix) (builder-group "guixbuild")
- (build-accounts 10) authorize-hydra-key?)
+ (build-accounts 10) authorize-hydra-key?
+ (use-substitutes? #t)
+ (extra-options '()))
"Return a service that runs the build daemon from @var{guix}, and has
@var{build-accounts} user accounts available under @var{builder-group}.
When @var{authorize-hydra-key?} is true, the @code{hydra.gnu.org} public key
provided by @var{guix} is authorized upon activation, meaning that substitutes
-from @code{hydra.gnu.org} are used by default."
+from @code{hydra.gnu.org} are used by default.
+
+If @var{use-substitutes?} is false, the daemon is run with
+@option{--no-substitutes} (@pxref{Invoking guix-daemon,
+@option{--no-substitutes}}).
+
+Finally, @var{extra-options} is a list of additional command-line options
+passed to @command{guix-daemon}."
(define activate
;; Assume that the store has BUILDER-GROUP as its group. We could
;; otherwise call 'chown' here, but the problem is that on a COW unionfs,
@@ -392,7 +401,11 @@ from @code{hydra.gnu.org} are used by default."
(start
#~(make-forkexec-constructor
(list (string-append #$guix "/bin/guix-daemon")
- "--build-users-group" #$builder-group)))
+ "--build-users-group" #$builder-group
+ #$@(if use-substitutes?
+ '()
+ '("--no-substitutes"))
+ #$@extra-options)))
(stop #~(make-kill-destructor))
(user-accounts accounts)
(user-groups (list (user-group