services: hurd-vm: Check whether /dev/kvm exists at run time.
This change allows a childhurd to run within Guix System in a VM. * gnu/services/virtualization.scm (hurd-vm-shepherd-service)[vm-command]: Stage the 'file-exists?' call.
This commit is contained in:
parent
118b6dbb46
commit
8ac318068b
@ -937,13 +937,14 @@ is added to the OS specified in CONFIG."
|
||||
(provisions '(hurd-vm childhurd)))
|
||||
|
||||
(define vm-command
|
||||
#~(list
|
||||
(string-append #$qemu "/bin/qemu-system-i386")
|
||||
#$@(if (file-exists? "/dev/kvm") '("--enable-kvm") '())
|
||||
"-m" (number->string #$memory-size)
|
||||
#$@net-options
|
||||
#$@options
|
||||
"--hda" #+image))
|
||||
#~(append (list #$(file-append qemu "/bin/qemu-system-i386")
|
||||
"-m" (number->string #$memory-size)
|
||||
#$@net-options
|
||||
#$@options
|
||||
"--hda" #+image)
|
||||
(if (file-exists? "/dev/kvm")
|
||||
'("--enable-kvm")
|
||||
'())))
|
||||
|
||||
(list
|
||||
(shepherd-service
|
||||
|
Loading…
Reference in New Issue
Block a user