From c0746cc9dbf178e0358e93034072a60b6dfc24a1 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 17 Oct 2012 23:06:17 +0200 Subject: utils: Add `copy-recursively'; use it. * guix/build/utils.scm (copy-recursively): New procedure. * distro/packages/base.scm (%guile-static-stripped): Use it. --- distro/packages/base.scm | 28 +--------------------------- 1 file changed, 1 insertion(+), 27 deletions(-) (limited to 'distro/packages') 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"))) -- cgit 1.4.1