From c11a6eb1e5064271c21306de2f4633d83e224320 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 14 Jul 2014 15:51:22 +0200
Subject: 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.
---
 gnu/services/base.scm | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

(limited to 'gnu/services')

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 @@ (define (hydra-key-authorization 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 @@ (define activate
              (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
-- 
cgit v1.2.3