activation: Copy account skeletons silently.

* gnu/build/activation.scm (copy-account-skeletons): Pass #:log to
'copy-recursively'.
This commit is contained in:
Ludovic Courtès 2016-03-24 21:33:56 +01:00
parent ee03b75dfb
commit 2fa909b27b

View file

@ -92,7 +92,8 @@ (define* (copy-account-skeletons home
(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)))