futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

linux-initrd: Remove unnecessary timestamp reset phase.

Browse Source 
* gnu/build/linux-initrd.scm (write-cpio-archive): Mention timestamps in
docstring.
(build-initrd): Remove unnecessary timestamp reset phase.
This commit is contained in:
Ludovic Courtès 2020-11-19 22:02:16 +01:00
parent becfa42ea7
commit 2200bb2146
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/build/linux-initrd.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2018, 2020 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -39,8 +39,9 @@
#:key #:key
(compress? #t) (compress? #t)
(gzip "gzip")) (gzip "gzip"))
"Write a cpio archive containing DIRECTORY to file OUTPUT. When "Write a cpio archive containing DIRECTORY to file OUTPUT, with reset
COMPRESS? is true, compress it using GZIP. On success, return OUTPUT." timestamps in the archive. When COMPRESS? is true, compress it using GZIP.
On success, return OUTPUT."
;; Note: as per `ramfs-rootfs-initramfs.txt', always add directory entries ;; Note: as per `ramfs-rootfs-initramfs.txt', always add directory entries
;; before the files that are inside of it: "The Linux kernel cpio ;; before the files that are inside of it: "The Linux kernel cpio
@ -141,12 +142,6 @@ REFERENCES-GRAPHS."
(symlink (string-append guile "/bin/guile") "proc/self/exe") (symlink (string-append guile "/bin/guile") "proc/self/exe")
(readlink "proc/self/exe") (readlink "proc/self/exe")
;; Reset the timestamps of all the files that will make it in the initrd.
(for-each (lambda (file)
(unless (eq? 'symlink (stat:type (lstat file)))
(utime file 0 0 0 0)))
(find-files "." ".*"))
(write-cpio-archive output "." #:gzip gzip)) (write-cpio-archive output "." #:gzip gzip))
;; Make sure directories are writable so we can delete files. ;; Make sure directories are writable so we can delete files.