From 3d116a70f9b18027b31be2e11e8c9c9192622607 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 4 Jun 2014 22:17:20 +0200
Subject: [PATCH] services: Add the build group to the supplementary groups of
 build users.

* gnu/services/base.scm (guix-build-accounts): Add
  'supplementary-groups' field.
---
 gnu/services/base.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 463185d53c..3f7f453c9b 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -324,6 +324,12 @@ starting at FIRST-UID, and under GID."
                        (name (format #f "guixbuilder~2,'0d" n))
                        (uid (+ first-uid n -1))
                        (group group)
+
+                       ;; guix-daemon expects GROUP to be listed as a
+                       ;; supplementary group too:
+                       ;; <http://lists.gnu.org/archive/html/bug-guix/2013-01/msg00239.html>.
+                       (supplementary-groups (list group))
+
                        (comment (format #f "Guix Build User ~2d" n))
                        (home-directory "/var/empty")
                        (shell #~(string-append #$shadow "/sbin/nologin"))))