From e8277f90c88be9d65b948c299620fd9d6d9b28ae Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 24 Jun 2015 17:41:43 +0200 Subject: linux-initrd: Use (guix cpio) instead of GNU cpio. * gnu/build/linux-initrd.scm (write-cpio-archive): Remove 'open-pipe*' and related calls. Compute list of files in 'files' variable. Use 'cpio:write-cpio-archive'. Remove #:cpio parameter. (build-initrd): Remove #:cpio parameter. * gnu/system/linux-initrd.scm (expression->initrd): Likewise, and adjust BUILDER accordingly. Add (guix cpio) to #:modules. --- gnu/system/linux-initrd.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'gnu/system') diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm index 83685adcbc..74dacf1ecd 100644 --- a/gnu/system/linux-initrd.scm +++ b/gnu/system/linux-initrd.scm @@ -25,7 +25,6 @@ (define-module (gnu system linux-initrd) #:select (%store-prefix)) #:use-module ((guix derivations) #:select (derivation->output-path)) - #:use-module (gnu packages cpio) #:use-module (gnu packages compression) #:use-module (gnu packages linux) #:use-module (gnu packages guile) @@ -51,7 +50,6 @@ (define-module (gnu system linux-initrd) (define* (expression->initrd exp #:key (guile %guile-static-stripped) - (cpio cpio) (gzip gzip) (name "guile-initrd") (system (%current-system)) @@ -78,11 +76,11 @@ (define builder #:init #$init ;; Copy everything INIT refers to into the initrd. #:references-graphs '("closure") - #:cpio (string-append #$cpio "/bin/cpio") #:gzip (string-append #$gzip "/bin/gzip")))) (gexp->derivation name builder - #:modules '((guix build utils) + #:modules '((guix cpio) + (guix build utils) (guix build store-copy) (gnu build linux-initrd)) #:references-graphs `(("closure" ,init))))) -- cgit v1.2.3