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

gnu: retroarch: Don't use %OUTPUT.

Browse source 
* gnu/packages/games.scm (retroarch)[arguments]: Accept an OUTPUTS key
in the configure phase.  Add a comment about the script.  Use LET*.
This commit is contained in:
Tobias Geerinckx-Rice 2017-03-29 20:13:30 +02:00
parent 3f12714742
commit 05e0ac46ef
No known key found for this signature in database
GPG key ID: 91CCDB9B48541B99
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/games.scm
View file

@ -1096,17 +1096,21 @@ (define-public retroarch
(base32 "1xar0wagcz50clwwkvjg4zq9m1sjqw47vw3xx44pisdj94g21m5y"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; no tests
'(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda _
(substitute* "qb/qb.libs.sh"
(("/bin/true") (which "true")))
(zero? (system*
"./configure"
(string-append "--prefix=" %output)
(string-append "--global-config-dir=" %output "/etc"))))))))
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(etc (string-append out "/etc")))
(substitute* "qb/qb.libs.sh"
(("/bin/true") (which "true")))
;; The configure script does not yet accept the extra arguments
;; (like ‘CONFIG_SHELL=’) passed by the default configure phase.
(zero? (system*
"./configure"
(string-append "--prefix=" out)
(string-append "--global-config-dir=" etc)))))))))
(inputs
`(("alsa-lib" ,alsa-lib)
("ffmpeg" ,ffmpeg)