diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-09-26 21:52:39 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-27 00:46:17 +0200 |
commit | bacadb026c4e9ab75902933954d5cedd17a74537 (patch) | |
tree | 9a38e6a5e7cc951429170b1785e76b10b8e64b99 /gnu/system/vm.scm | |
parent | c773aba8708e85a4bbd2415fefe0fb8f48b9c8d1 (diff) | |
download | guix-bacadb026c4e9ab75902933954d5cedd17a74537.tar guix-bacadb026c4e9ab75902933954d5cedd17a74537.tar.gz |
gnu: shadow: Add record type for user accounts.
* gnu/system/shadow.scm (<user-account>): New record type.
(passwd-file): Use it.
* gnu/system/vm.scm (system-qemu-image): Adjust accordingly.
Diffstat (limited to 'gnu/system/vm.scm')
-rw-r--r-- | gnu/system/vm.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index 72530e3809..ce15ace617 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -475,8 +475,13 @@ Happy birthday, GNU! http://www.gnu.org/gnu30 (dmd-file (string-append (derivation->output-path dmd-drv) "/bin/dmd")) (dmd-conf (dmd-configuration-file store %dmd-services)) - (accounts (list (vector "root" "" 0 0 "System administrator" - "/" bash-file))) + (accounts (list (user-account + (name "root") + (password "") + (uid 0) (gid 0) + (comment "System administrator") + (home-directory "/") + (shell bash-file)))) (passwd (passwd-file store accounts)) (shadow (passwd-file store accounts #:shadow? #t)) (group (add-text-to-store store "group" |