From eae5b3fff54e6f0a38d03d01187142accbed1eb8 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 24 Jun 2015 18:02:15 +0200
Subject: 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'.
---
gnu/build/linux-initrd.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'gnu/build')
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))
--
cgit v1.2.3