janneke pushed a commit to branch wip-hurd-vm in repository guix. commit 3881ae7a65f6b0c1fefb43c5495a930267917c2e Author: Jan (janneke) Nieuwenhuizen <jann...@gnu.org> AuthorDate: Sat Apr 25 23:13:09 2020 +0200
system: vm: Add defaults for the Hurd. * gnu/system/vm.scm (qemu-image): Add default parameter values for the Hurd. --- gnu/system/vm.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index e8c2f6e..fda6d05 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -49,6 +49,7 @@ #:use-module (gnu packages virtualization) #:use-module (gnu packages disk) #:use-module (gnu packages zile) + #:use-module (gnu packages hurd) #:use-module (gnu packages linux) #:use-module ((gnu packages make-bootstrap) #:select (%guile-static-stripped)) @@ -367,9 +368,10 @@ INPUTS is a list of inputs (as for packages)." (qemu qemu-minimal) (disk-image-size 'guess) (disk-image-format "qcow2") - (file-system-type "ext4") - (file-system-options '()) - (device-nodes 'linux) + (file-system-type (if (hurd-target?) "ext2" "ext4")) + (file-system-options + (if (hurd-target?) '("-o" "hurd") '())) + (device-nodes (if (hurd-target?) 'hurd 'linux)) (extra-directives '()) file-system-label file-system-uuid