From eae5b3fff54e6f0a38d03d01187142accbed1eb8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= 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/linux-initrd.scm') 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