diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-09-26 22:02:02 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-27 00:46:17 +0200 |
| commit | 16a0e9dc3449fb9de699486ad6db2c0bc62b616b (patch) | |
| tree | 68c50558d0ee89b6c9f02e1fd3838f444b111ae7 /gnu/system/vm.scm | |
| parent | bacadb026c4e9ab75902933954d5cedd17a74537 (diff) | |
| download | patches-16a0e9dc3449fb9de699486ad6db2c0bc62b616b.tar patches-16a0e9dc3449fb9de699486ad6db2c0bc62b616b.tar.gz | |
gnu: shadow: Add record type for user groups.
* gnu/system/shadow.scm (<user-group>): New record type.
(group-file): New procedure.
* gnu/system/vm.scm (system-qemu-image): Use it.
Diffstat (limited to 'gnu/system/vm.scm')
| -rw-r--r-- | gnu/system/vm.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index ce15ace617..48f008cff0 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -484,8 +484,10 @@ Happy birthday, GNU! http://www.gnu.org/gnu30 (shell bash-file)))) (passwd (passwd-file store accounts)) (shadow (passwd-file store accounts #:shadow? #t)) - (group (add-text-to-store store "group" - "root:x:0:\n")) + (group (group-file store + (list (user-group + (name "root") + (id 0))))) (pam.d-drv (pam-services->directory store %pam-services)) (pam.d (derivation->output-path pam.d-drv)) |