aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-06-24 18:02:15 +0200
committerLudovic Courtès <ludo@gnu.org>2015-06-24 18:05:03 +0200
commiteae5b3fff54e6f0a38d03d01187142accbed1eb8 (patch)
tree0af61ee613740e32f2ce26664a37f0ef2a81978c /gnu
parent583323ca1d1af5462f1b45f4be50f96bc8f1e46b (diff)
downloadguix-eae5b3fff54e6f0a38d03d01187142accbed1eb8.tar
guix-eae5b3fff54e6f0a38d03d01187142accbed1eb8.tar.gz
linux-initrd: Produce cpio archives with zeroed timestamps, etc.
* 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'.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/build/linux-initrd.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/build/linux-initrd.scm b/gnu/build/linux-initrd.scm
index 815c7a0aeb..e26c067b49 100644
--- a/gnu/build/linux-initrd.scm
+++ b/gnu/build/linux-initrd.scm
@@ -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))