diff options
author | Ludovic Courtès <ludo@gnu.org> | 2016-03-20 15:02:38 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2016-03-20 15:02:38 +0100 |
commit | 4e8b7502e392bd44316f0f4ec5eed6c626655ad8 (patch) | |
tree | 34f3e0d5b69824a3200b1e3a7513ff5c29253b07 /gnu/build | |
parent | 71be99b8b673ecf86a104d847a15fa4b1427a266 (diff) | |
download | gnu-guix-4e8b7502e392bd44316f0f4ec5eed6c626655ad8.tar gnu-guix-4e8b7502e392bd44316f0f4ec5eed6c626655ad8.tar.gz |
system: Allow account skeletons to be directories.
* gnu/system/shadow.scm (skeleton-directory): Use 'copy-recursively'
instead of 'copy-file'.
* gnu/build/activation.scm (copy-account-skeletons): Likewise.
Diffstat (limited to 'gnu/build')
-rw-r--r-- | gnu/build/activation.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm index 352e736050..ae614994d6 100644 --- a/gnu/build/activation.scm +++ b/gnu/build/activation.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; ;;; This file is part of GNU Guix. @@ -91,7 +91,8 @@ (mkdir-p home) (for-each (lambda (file) (let ((target (string-append home "/" file))) - (copy-file (string-append directory "/" file) target) + (copy-recursively (string-append directory "/" file) + target) (make-file-writable target))) files))) |