diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2019-12-01 16:46:00 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2019-12-01 16:52:30 +0100 |
| commit | c6d130630a85709fc5a5488cfd6715ec13e72399 (patch) | |
| tree | 7e862214d44e826b84dda4f85b67af87f1511777 /gnu/build/vm.scm | |
| parent | 2c5dd47ceffd61d155e64dcb1764ffaea0ffd546 (diff) | |
| download | guix-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.scm | 7 |
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 |