diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-04-14 00:08:54 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-04-14 00:09:42 +0200 |
commit | 8d846470f2201b47485f6239e8746d5a6ee2c0a9 (patch) | |
tree | 2012da3601d2818790050364f4ad74c1e844384b /gnu | |
parent | 4eb202a3d80bf3129a9b4b8b12f051f8ce184c9e (diff) | |
download | patches-8d846470f2201b47485f6239e8746d5a6ee2c0a9.tar patches-8d846470f2201b47485f6239e8746d5a6ee2c0a9.tar.gz |
build-system/gnu: Reset timestamps on build tree when source is a directory.
* guix/build/utils.scm (copy-recursively): Add #:keep-mtime? parameter
and honor it.
* guix/build/gnu-build-system.scm (unpack): Use #:keep-mtime? #t.
* gnu/packages/admin.scm (shadow)[arguments]: Remove 'reset-timestamps'
phase.
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/packages/admin.scm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 774194d87b..51b40c889e 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -201,16 +201,7 @@ client and server, a telnet client and server, and an rsh client and server.") (delete-file (string-append bin "/groups")) (for-each delete-file (find-files man "^groups\\.")) #t)) - (alist-cons-after - 'unpack 'reset-timestamps - (lambda _ - ;; FIXME: Reset the file timestamps here, until the - ;; 'unpack' phase does it for us. See - ;; <https://lists.gnu.org/archive/html/guix-devel/2014-04/msg00098.html>. - (for-each (lambda (file) - (utime file 0 0 0)) - (find-files "." ""))) - %standard-phases))))) + %standard-phases)))) (inputs (if (string-suffix? "-linux" (or (%current-target-system) |