ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: qemu: Use 'modify-phases'.

Browse source 
* gnu/packages/qemu.scm (qemu)[arguments]: Use 'modify-phases'.
This commit is contained in:
Ludovic Courtès 2016-05-26 23:39:46 +02:00
parent 219b45567a
commit 05051e8bb1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 43 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/qemu.scm
View file

@ -69,8 +69,9 @@ (define-public qemu
;; boot_sector_test: assertion failed (signature == SIGNATURE): (0x00000000 == 0x0000dead)
#:parallel-tests? #f
#:phases (alist-replace
'configure
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs outputs (configure-flags '())
#:allow-other-keys)
;; The `configure' script doesn't understand some of the
@ -91,9 +92,8 @@ (define-public qemu
"--disable-debug-info" ; save build space
"--enable-virtfs" ; just to be sure
,(string-append "--prefix=" out)
,@configure-flags)))))
(alist-cons-after
'install 'install-info
,@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"))
@ -106,18 +106,15 @@ (define-public qemu
info
(string-append infodir "/" info)))
(find-files "." "\\.info$"))
#t)))))
(alist-cons-before
'check 'disable-test-qga
#t))))))
(add-before 'check 'disable-test-qga
(lambda _
(substitute* "tests/Makefile"
;; Comment out the test-qga test, which needs /sys and
;; fails within the build environment.
(("check-unit-.* tests/test-qga" all)
(string-append "# " all)))
#t)
%standard-phases)))))
#t)))))
(inputs ; TODO: Add optional inputs.
`(("sdl" ,sdl)
("mesa" ,mesa)