From 2fa909b27b4f701649ea4945eba71fc7c5f84d0b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 24 Mar 2016 21:33:56 +0100
Subject: [PATCH] activation: Copy account skeletons silently.

* gnu/build/activation.scm (copy-account-skeletons): Pass #:log to
'copy-recursively'.
---
 gnu/build/activation.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))