[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/05: system: vm: Add defaults for the Hurd.
From: |
guix-commits |
Subject: |
03/05: system: vm: Add defaults for the Hurd. |
Date: |
Sun, 26 Apr 2020 05:50:59 -0400 (EDT) |
janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit 3881ae7a65f6b0c1fefb43c5495a930267917c2e
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
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