From edbd8f3f7eeb0e49c03ca611e43b5a777bd0c762 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 19 Nov 2020 18:17:26 +0100 Subject: utils: Add #:copy-file parameter to 'copy-recursively'. * guix/build/utils.scm (copy-recursively): Add #:copy-file and honor it. * doc/guix.texi (Build Utilities): Adjust accordingly. --- guix/build/utils.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'guix/build/utils.scm') diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 443a82046d..470e5cf001 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -343,11 +343,12 @@ name." #:key (log (current-output-port)) (follow-symlinks? #f) + (copy-file copy-file) keep-mtime?) "Copy SOURCE directory to DESTINATION. Follow symlinks if FOLLOW-SYMLINKS? -is true; otherwise, just preserve them. When KEEP-MTIME? is true, keep the -modification time of the files in SOURCE on those of DESTINATION. Write -verbose output to the LOG port." +is true; otherwise, just preserve them. Call COPY-FILE to copy regular files. +When KEEP-MTIME? is true, keep the modification time of the files in SOURCE on +those of DESTINATION. Write verbose output to the LOG port." (define strip-source (let ((len (string-length source))) (lambda (file) -- cgit v1.2.3