diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-06-26 23:31:17 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-06-27 00:12:40 +0200 |
commit | f01efec09a1eaa5308493eee830e827caf494eb4 (patch) | |
tree | b4f0e7077887943836fc4ee598da8b9b26ff7970 | |
parent | c1202fb1f9b805e7c7151e3d34bd4f86c86acd75 (diff) | |
download | guix-f01efec09a1eaa5308493eee830e827caf494eb4.tar guix-f01efec09a1eaa5308493eee830e827caf494eb4.tar.gz |
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.
-rw-r--r-- | guix/build/activation.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/build/activation.scm b/guix/build/activation.scm index bc62a94e01..12c1ca142d 100644 --- a/guix/build/activation.scm +++ b/guix/build/activation.scm @@ -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 |