me/guix
Archived
1
0
Fork 0
Code Activity

gnu: qemu: Honor #:configure-flags argument.

Browse source 
* gnu/packages/qemu.scm (qemu-headless)[arguments]: Honor #:configure-flags
  arguments for configure phase.
This commit is contained in:
Eric Bavier 2015-08-16 06:03:53 -05:00
parent 4e0143738f
commit 20c263b00f
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/qemu.scm
View file

@ -74,7 +74,8 @@
(arguments (arguments
'(#:phases (alist-replace '(#:phases (alist-replace
'configure 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs (configure-flags '())
#:allow-other-keys)
;; The `configure' script doesn't understand some of the ;; The `configure' script doesn't understand some of the
;; GNU options. Thus, add a new phase that's compatible. ;; GNU options. Thus, add a new phase that's compatible.
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -87,11 +88,13 @@
;; The binaries need to be linked against -lrt. ;; The binaries need to be linked against -lrt.
(setenv "LDFLAGS" "-lrt") (setenv "LDFLAGS" "-lrt")
(zero? (zero?
(system* "./configure" (apply system*
(string-append "--cc=" (which "gcc")) `("./configure"
,(string-append "--cc=" (which "gcc"))
"--disable-debug-info" ; save build space "--disable-debug-info" ; save build space
"--enable-virtfs" ; just to be sure "--enable-virtfs" ; just to be sure
(string-append "--prefix=" out))))) ,(string-append "--prefix=" out)
,@configure-flags)))))
(alist-cons-after (alist-cons-after
'install 'install-info 'install 'install-info
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)