diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-09-26 23:28:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-27 00:46:17 +0200 |
| commit | d0c66871b12c491eca6a80c09b836f893c1d4234 (patch) | |
| tree | c623176fe1bbfe6bdecd5f606858385d12424c75 /gnu/system/dmd.scm | |
| parent | 3abf9b440b97c35d078c60490723684ca757f480 (diff) | |
| download | patches-d0c66871b12c491eca6a80c09b836f893c1d4234.tar patches-d0c66871b12c491eca6a80c09b836f893c1d4234.tar.gz | |
gnu: vm: Add build users.
* gnu/system/shadow.scm (guix-build-accounts): New procedure.
* gnu/system/vm.scm (system-qemu-image): Use it. Add the "guixbuild"
group.
* gnu/system/dmd.scm (guix-service): Add 'builder-group' parameter.
Pass 'guix-daemon' the '--build-users-group' option.
Diffstat (limited to 'gnu/system/dmd.scm')
| -rw-r--r-- | gnu/system/dmd.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/system/dmd.scm b/gnu/system/dmd.scm index bcafd910dd..8cc3f61c74 100644 --- a/gnu/system/dmd.scm +++ b/gnu/system/dmd.scm @@ -146,14 +146,16 @@ (inputs `(("inetutils" ,inetutils) ("syslog.conf" ,syslog.conf)))))) -(define* (guix-service store #:key (guix guix)) +(define* (guix-service store #:key (guix guix) (builder-group "guixbuild")) "Return a service that runs the build daemon from GUIX." (let* ((drv (package-derivation store guix)) (daemon (string-append (derivation->output-path drv) "/bin/guix-daemon"))) (service (provision '(guix-daemon)) - (start `(make-forkexec-constructor ,daemon)) + (start `(make-forkexec-constructor ,daemon + "--build-users-group" + ,builder-group)) (inputs `(("guix" ,guix)))))) (define* (static-networking-service store interface ip |