summaryrefslogtreecommitdiff
path: root/gnu/system/vm.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-09-26 21:52:39 +0200
committerLudovic Courtès <ludo@gnu.org>2013-09-27 00:46:17 +0200
commitbacadb026c4e9ab75902933954d5cedd17a74537 (patch)
tree9a38e6a5e7cc951429170b1785e76b10b8e64b99 /gnu/system/vm.scm
parentc773aba8708e85a4bbd2415fefe0fb8f48b9c8d1 (diff)
downloadguix-patches-bacadb026c4e9ab75902933954d5cedd17a74537.tar
guix-patches-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.scm9
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"