aboutsummaryrefslogtreecommitdiff
path: root/gnu/build/vm.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2019-12-01 16:46:00 +0100
committerMathieu Othacehe <m.othacehe@gmail.com>2019-12-01 16:52:30 +0100
commitc6d130630a85709fc5a5488cfd6715ec13e72399 (patch)
tree7e862214d44e826b84dda4f85b67af87f1511777 /gnu/build/vm.scm
parent2c5dd47ceffd61d155e64dcb1764ffaea0ffd546 (diff)
downloadguix-c6d130630a85709fc5a5488cfd6715ec13e72399.tar
guix-c6d130630a85709fc5a5488cfd6715ec13e72399.tar.gz
build: vm: Fix qemu-command procedure.
* gnu/build/vm.scm (qemu-command): When system is "armhf-linux", use "arm" as qemu cpu prefix.
Diffstat (limited to 'gnu/build/vm.scm')
-rw-r--r--gnu/build/vm.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm
index 6f920aec9e..89d685b352 100644
--- a/gnu/build/vm.scm
+++ b/gnu/build/vm.scm
@@ -70,9 +70,10 @@
(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