mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
build: vm: Fix qemu-command procedure.
* gnu/build/vm.scm (qemu-command): When system is "armhf-linux", use "arm" as qemu cpu prefix.
This commit is contained in:
parent
2c5dd47cef
commit
c6d130630a
1 changed files with 4 additions and 3 deletions
|
@ -70,9 +70,10 @@ (define* (qemu-command #:optional (system %host-type))
|
|||
(let ((cpu (substring system 0
|
||||
(string-index system #\-))))
|
||||
(string-append "qemu-system-"
|
||||
(if (string-match "^i[3456]86$" cpu)
|
||||
"i386"
|
||||
cpu))))
|
||||
(cond
|
||||
((string-match "^i[3456]86$" cpu) "i386")
|
||||
((string-match "armhf" cpu) "arm")
|
||||
(else cpu)))))
|
||||
|
||||
(define* (load-in-linux-vm builder
|
||||
#:key
|
||||
|
|
Loading…
Reference in a new issue