nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

system: Remove useless 'members' field of 'user-group'. 

* gnu/system/shadow.scm (<user-group>)[members]: Remove field.
* gnu/system/install.scm (installation-os)[users]: Remove 'members'
  fields.  Use 'supplementary-groups' for 'guest'.
* build-aux/hydra/demo-os.scm (users): Likewise.
* gnu/services/base.scm (guix-service): Remove 'members' field.
This commit is contained in:
Ludovic Courtès 2014-06-22 21:48:35 +02:00
parent 528b6a3dce
commit 72507e23b5
4 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
build-aux/hydra/demo-os.scm
View File

@ -51,19 +51,18 @@
(users (list (user-account (users (list (user-account
(name "guest") (name "guest")
(group "wheel") (group "users")
(supplementary-groups '("wheel")) ; allow use of sudo
(password "") (password "")
(comment "Guest of GNU") (comment "Guest of GNU")
(home-directory "/home/guest")))) (home-directory "/home/guest"))))
(groups (list (user-group (name "root") (id 0)) (groups (list (user-group (name "root") (id 0))
(user-group (user-group
(name "wheel") (name "wheel")
(id 1) (id 1))
(members '("guest"))) ; allow 'guest' to use sudo
(user-group (user-group
(name "users") (name "users")
(id 100) (id 100))))
(members '("guest")))))
(issue " (issue "
This is an alpha preview of the GNU system. Welcome. This is an alpha preview of the GNU system. Welcome.

2
gnu/services/base.scm
View File

@ -391,8 +391,6 @@ hydra.gnu.org are used by default."
(user-accounts accounts) (user-accounts accounts)
(user-groups (list (user-group (user-groups (list (user-group
(name builder-group) (name builder-group)
(members (map user-account-name
user-accounts))
;; Use a fixed GID so that we can create the ;; Use a fixed GID so that we can create the
;; store with the right owner. ;; store with the right owner.

9
gnu/system/install.scm
View File

@ -111,19 +111,18 @@ Use Alt-F2 for documentation.
(users (list (user-account (users (list (user-account
(name "guest") (name "guest")
(group "wheel") (group "users")
(supplementary-groups '("wheel")) ; allow use of sudo
(password "") (password "")
(comment "Guest of GNU") (comment "Guest of GNU")
(home-directory "/home/guest")))) (home-directory "/home/guest"))))
(groups (list (user-group (name "root") (id 0)) (groups (list (user-group (name "root") (id 0))
(user-group (user-group
(name "wheel") (name "wheel")
(id 1) (id 1))
(members '("guest"))) ; allow 'guest' to use sudo
(user-group (user-group
(name "users") (name "users")
(id 100) (id 100))))
(members '("guest")))))
(issue %issue) (issue %issue)

4
gnu/system/shadow.scm
View File

@ -40,7 +40,6 @@
user-group-name user-group-name
user-group-password user-group-password
user-group-id user-group-id
user-group-members
default-skeletons default-skeletons
skeleton-directory)) skeleton-directory))
@ -70,8 +69,7 @@
user-group? user-group?
(name user-group-name) (name user-group-name)
(password user-group-password (default #f)) (password user-group-password (default #f))
(id user-group-id (default #f)) (id user-group-id (default #f)))
(members user-group-members (default '())))
(define (default-skeletons) (define (default-skeletons)
"Return the default skeleton files for /etc/skel. These files are copied by "Return the default skeleton files for /etc/skel. These files are copied by