~ruther/guix-local

f01efec09a1eaa5308493eee830e827caf494eb4 — Ludovic Courtès 11 years ago c1202fb
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.
1 files changed, 1 insertions(+), 1 deletions(-)

M guix/build/activation.scm
M guix/build/activation.scm => guix/build/activation.scm +1 -1
@@ 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
numeric gid or #f."
  (define (touch file)
    (call-with-output-file file (const #t)))
    (close-port (open-file file "a0b")))

  (define activate-user
    (match-lambda