From cc6cb6e80a42355147809b4830053a34d1563994 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 11 Dec 2020 15:03:23 +0100 Subject: utils: 'copy-recursively' keeps symlink mtime when #:keep-mtime? is true. * guix/build/utils.scm (copy-recursively): In the "leaf" procedure, call 'set-file-time' also on symlinks. --- guix/build/utils.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'guix') diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 9965106c48..f0ea83085e 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -366,10 +366,10 @@ permissions. Write verbose output to the LOG port." (symlink target dest))) (else (copy-file file dest) - (when keep-mtime? - (set-file-time dest stat)) (when keep-permissions? - (chmod dest (stat:perms stat))))))) + (chmod dest (stat:perms stat))))) + (when keep-mtime? + (set-file-time dest stat)))) (lambda (dir stat result) ; down (let ((target (string-append destination (strip-source dir)))) -- cgit v1.2.3