diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-10-17 23:06:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-10-17 23:25:25 +0200 |
| commit | c0746cc9dbf178e0358e93034072a60b6dfc24a1 (patch) | |
| tree | 22e534874e40e628b2eaba0d4a97d3cc170fae76 /distro/packages/base.scm | |
| parent | 7da95264f196d1c5dfa01654e87a319bce458cc1 (diff) | |
| download | patches-c0746cc9dbf178e0358e93034072a60b6dfc24a1.tar patches-c0746cc9dbf178e0358e93034072a60b6dfc24a1.tar.gz | |
utils: Add `copy-recursively'; use it.
* guix/build/utils.scm (copy-recursively): New procedure.
* distro/packages/base.scm (%guile-static-stripped): Use it.
Diffstat (limited to 'distro/packages/base.scm')
| -rw-r--r-- | distro/packages/base.scm | 28 |
1 files changed, 1 insertions, 27 deletions
diff --git a/distro/packages/base.scm b/distro/packages/base.scm index 7fb26881e2..1b3d96a93b 100644 --- a/distro/packages/base.scm +++ b/distro/packages/base.scm @@ -2096,33 +2096,7 @@ store.") `(#:modules ((guix build utils)) #:builder (let () - (use-modules (ice-9 ftw) - (guix build utils)) - - (define (copy-recursively source destination) - ;; Copy SOURCE directory to DESTINATION. - (with-directory-excursion source - (file-system-fold (const #t) - (lambda (file stat result) ; leaf - (format #t "copying `~s/~s' to `~s'...~%" - source file destination) - (copy-file file - (string-append destination - "/" file))) - (lambda (dir stat result) ; down - (let ((dir (string-append destination - "/" dir))) - (unless (file-exists? dir) - (mkdir dir)))) - (lambda (dir stat result) ; up - result) - (const #t) ; skip - (lambda (file stat errno result) - (format (current-error-port) - "i/o error: ~a: ~a~%" file - (strerror errno))) - #t - "."))) + (use-modules (guix build utils)) (let ((in (assoc-ref %build-inputs "guile")) (out (assoc-ref %outputs "out"))) |