amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

linux-initrd: Produce cpio archives with zeroed timestamps, etc.

Browse source 
* guix/cpio.scm (file->cpio-header*): New procedure.
* gnu/build/linux-initrd.scm (write-cpio-archive): Add #:file->header argument
  to 'cpio:write-cpio-archive'.
This commit is contained in:
Ludovic Courtès 2015-06-24 18:02:15 +02:00
parent 583323ca1d
commit eae5b3fff5
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
gnu/build/linux-initrd.scm
View file

@ -68,7 +68,8 @@ COMPRESS? is true, compress it using GZIP. On success, return OUTPUT."
(call-with-output-file output
(lambda (port)
(cpio:write-cpio-archive files port)))
(cpio:write-cpio-archive files port
#:file->header cpio:file->cpio-header*)))
(or (not compress?)
(and (zero? (system* gzip "--best" output))