diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-08-28 14:22:15 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-08-28 14:22:15 -0400 |
| commit | c00a9fbfef75d2fc08485f8158ec331bfa99d5ec (patch) | |
| tree | 4737817ee787c4ec8222ea13d3cfecb2ac98b673 /gnu/system/vm.scm | |
| parent | 83291101c39c1cd1bf472280c24ad68d94248c2e (diff) | |
| parent | dd16424466196616b99c13526537a89aaee27f88 (diff) | |
| download | patches-c00a9fbfef75d2fc08485f8158ec331bfa99d5ec.tar patches-c00a9fbfef75d2fc08485f8158ec331bfa99d5ec.tar.gz | |
Merge branch 'master' into core-updates
Conflicts:
gnu/packages/base.scm
Diffstat (limited to 'gnu/system/vm.scm')
| -rw-r--r-- | gnu/system/vm.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index db78c56683..42fc23ee8f 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -25,9 +25,9 @@ #:use-module (guix monads) #:use-module ((guix build vm) #:select (qemu-command)) - #:use-module ((gnu packages base) - #:select (%final-inputs)) + #:use-module (gnu packages base) #:use-module (gnu packages guile) + #:use-module (gnu packages gawk) #:use-module (gnu packages bash) #:use-module (gnu packages less) #:use-module (gnu packages qemu) @@ -152,7 +152,7 @@ made available under the /xchg CIFS share." (cons #$compiled %load-compiled-path)) (primitive-load #$user-builder)))) - (coreutils -> (car (assoc-ref %final-inputs "coreutils"))) + (coreutils -> (canonical-package coreutils)) (initrd (if initrd ; use the default initrd? (return initrd) (base-initrd %linux-vm-file-systems @@ -227,8 +227,8 @@ the image." (let ((inputs '#$(append (list qemu parted grub e2fsprogs util-linux) - (map (compose car (cut assoc-ref %final-inputs <>)) - '("sed" "grep" "coreutils" "findutils" "gawk")) + (map canonical-package + (list sed grep coreutils findutils gawk)) (if register-closures? (list guix) '()))) ;; This variable is unused but allows us to add INPUTS-TO-COPY |