me
/
guix
Archived
1
0
Fork 0
Code

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.
master
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)))
(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))))