activation: Preserve /etc/groups upon reboots.

This is a followup to e2fcc23.  The /etc/group file would be cleared
when booting.

* guix/build/activation.scm (activate-users+groups)[touch]: Rewrite so
  it does not wipe out FILE's contents.
This commit is contained in:
Ludovic Courtès 2014-06-26 23:31:17 +02:00
parent c1202fb1f9
commit f01efec09a
1 changed files with 1 additions and 1 deletions

View File

@ -93,7 +93,7 @@ Each item in USERS is a list of all the characteristics of a user account;
each item in GROUPS is a tuple with the group name, group password or #f, and each item in GROUPS is a tuple with the group name, group password or #f, and
numeric gid or #f." numeric gid or #f."
(define (touch file) (define (touch file)
(call-with-output-file file (const #t))) (close-port (open-file file "a0b")))
(define activate-user (define activate-user
(match-lambda (match-lambda