diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-06-24 18:02:15 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-06-24 18:05:03 +0200 |
| commit | eae5b3fff54e6f0a38d03d01187142accbed1eb8 (patch) | |
| tree | 0af61ee613740e32f2ce26664a37f0ef2a81978c /gnu/build/linux-initrd.scm | |
| parent | 583323ca1d1af5462f1b45f4be50f96bc8f1e46b (diff) | |
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/build/linux-initrd.scm')
| -rw-r--r-- | gnu/build/linux-initrd.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/build/linux-initrd.scm b/gnu/build/linux-initrd.scm index 815c7a0aebf..e26c067b499 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." | |||
| 68 | 68 | ||
| 69 | (call-with-output-file output | 69 | (call-with-output-file output |
| 70 | (lambda (port) | 70 | (lambda (port) |
| 71 | (cpio:write-cpio-archive files port))) | 71 | (cpio:write-cpio-archive files port |
| 72 | #:file->header cpio:file->cpio-header*))) | ||
| 72 | 73 | ||
| 73 | (or (not compress?) | 74 | (or (not compress?) |
| 74 | (and (zero? (system* gzip "--best" output)) | 75 | (and (zero? (system* gzip "--best" output)) |