aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-03-24 21:33:56 +0100
committerLudovic Courtès <ludo@gnu.org>2016-03-24 22:47:15 +0100
commit2fa909b27b4f701649ea4945eba71fc7c5f84d0b (patch)
treeb4d9c91619b71b201867c08df9a9d563a1d9cff0
parentee03b75dfb3399f41002c38ac512473ab94afa74 (diff)
downloadguix-2fa909b27b4f701649ea4945eba71fc7c5f84d0b.tar
guix-2fa909b27b4f701649ea4945eba71fc7c5f84d0b.tar.gz
activation: Copy account skeletons silently.
* gnu/build/activation.scm (copy-account-skeletons): Pass #:log to 'copy-recursively'.
-rw-r--r--gnu/build/activation.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm
index ae614994d6..6666cb4856 100644
--- a/gnu/build/activation.scm
+++ b/gnu/build/activation.scm
@@ -92,7 +92,8 @@
(for-each (lambda (file)
(let ((target (string-append home "/" file)))
(copy-recursively (string-append directory "/" file)
- target)
+ target
+ #:log (%make-void-port "w"))
(make-file-writable target)))
files)))