me/guix
Archived
1
0
Fork 0
Code Activity

utils: 'copy-recursively' keeps symlink mtime when #:keep-mtime? is true.

Browse source 
* guix/build/utils.scm (copy-recursively): In the "leaf" procedure, call
'set-file-time' also on symlinks.
This commit is contained in:
Ludovic Courtès 2020-12-11 15:03:23 +01:00
parent b1e2ec008a
commit cc6cb6e80a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/build/utils.scm
View file

@ -366,10 +366,10 @@ permissions. Write verbose output to the LOG port."
(symlink target dest))) (symlink target dest)))
(else (else
(copy-file file dest) (copy-file file dest)
(when keep-mtime?
(set-file-time dest stat))
(when keep-permissions? (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 (lambda (dir stat result) ; down
(let ((target (string-append destination (let ((target (string-append destination
(strip-source dir)))) (strip-source dir))))