me/guix
Archived
1
0
Fork 0
Code Activity

build: asdf-build-system: Improve reproducibility.

Browse source 
* guix/build/asdf-build-system.scm (copy-files-to-output): Reset timestamps of
  source files before compiling.
This commit is contained in:
Guillaume Le Vaillant 2020-01-12 14:29:41 +01:00
parent d75a0cd986
commit 6b8f7c397a
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/build/asdf-build-system.scm
View file

@ -79,6 +79,15 @@ valid."
(let ((source (getcwd)) (let ((source (getcwd))
(target (source-directory out name)) (target (source-directory out name))
(system-path (string-append out %system-install-prefix))) (system-path (string-append out %system-install-prefix)))
;; SBCL keeps the modification time of the source file in the compiled
;; file, and the source files might just have been patched by a custom
;; phase. Therefore we reset the modification time of all the source
;; files before compiling.
(for-each (lambda (file)
(let ((s (lstat file)))
(unless (eq? (stat:type s) 'symlink)
(utime file 0 0 0 0))))
(find-files source #:directories? #t))
(copy-recursively source target #:keep-mtime? #t) (copy-recursively source target #:keep-mtime? #t)
(mkdir-p system-path) (mkdir-p system-path)
(for-each (for-each