diff options
-rw-r--r-- | guix/build/utils.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index bf57564c80..443a82046d 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -369,11 +369,12 @@ verbose output to the LOG port." (lambda (dir stat result) ; down (let ((target (string-append destination (strip-source dir)))) - (mkdir-p target) - (when keep-mtime? - (set-file-time target stat)))) + (mkdir-p target))) (lambda (dir stat result) ; up - result) + (when keep-mtime? + (let ((target (string-append destination + (strip-source dir)))) + (set-file-time target stat)))) (const #t) ; skip (lambda (file stat errno result) (format (current-error-port) "i/o error: ~a: ~a~%" |