diff options
-rw-r--r-- | guix/build/utils.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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)))) |