TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: qemu: Return #t from phases.

Browse source 
* gnu/packages/virtualization.scm (qemu)[arguments]: Substitute INVOKE
for SYSTEM*.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-22 17:41:55 +02:00
parent 56d63f8119
commit 642d2db55a
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 18 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/virtualization.scm
View file

@ -130,8 +130,7 @@ (define-public qemu
;; The binaries need to be linked against -lrt.
(setenv "LDFLAGS" "-lrt")
(zero?
(apply system*
(apply invoke
`("./configure"
,(string-append "--cc=" (which "gcc"))
;; Some architectures insist on using HOST_CC
@ -140,18 +139,18 @@ (define-public qemu
"--enable-virtfs" ; just to be sure
,(string-append "--prefix=" out)
,(string-append "--sysconfdir=/etc")
,@configure-flags))))))
,@configure-flags)))))
(add-after 'install 'install-info
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Install the Info manual, unless Texinfo is missing.
(or (not (assoc-ref inputs "texinfo"))
(let ((out (assoc-ref outputs "out")))
(and (zero? (system* "make" "info"))
(let ((infodir (string-append out "/share/info")))
(when (assoc-ref inputs "texinfo")
(let* ((out (assoc-ref outputs "out"))
(dir (string-append out "/share/info")))
(invoke "make" "info")
(for-each (lambda (info)
(install-file info infodir))
(find-files "." "\\.info"))
#t))))))
(install-file info dir))
(find-files "." "\\.info"))))
#t))
;; Create a wrapper for Samba. This allows QEMU to use Samba without
;; pulling it in as an input. Note that you need to explicitly install
;; Samba in your Guix profile for Samba support.