diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-03-24 21:33:56 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-03-24 22:47:15 +0100 |
| commit | 2fa909b27b4f701649ea4945eba71fc7c5f84d0b (patch) | |
| tree | b4d9c91619b71b201867c08df9a9d563a1d9cff0 | |
| parent | ee03b75dfb3399f41002c38ac512473ab94afa74 (diff) | |
activation: Copy account skeletons silently.
* gnu/build/activation.scm (copy-account-skeletons): Pass #:log to
'copy-recursively'.
| -rw-r--r-- | gnu/build/activation.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm index ae614994d61..6666cb48568 100644 --- a/gnu/build/activation.scm +++ b/gnu/build/activation.scm | |||
| @@ -92,7 +92,8 @@ | |||
| 92 | (for-each (lambda (file) | 92 | (for-each (lambda (file) |
| 93 | (let ((target (string-append home "/" file))) | 93 | (let ((target (string-append home "/" file))) |
| 94 | (copy-recursively (string-append directory "/" file) | 94 | (copy-recursively (string-append directory "/" file) |
| 95 | target) | 95 | target |
| 96 | #:log (%make-void-port "w")) | ||
| 96 | (make-file-writable target))) | 97 | (make-file-writable target))) |
| 97 | files))) | 98 | files))) |
| 98 | 99 | ||