ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 14:40:21 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cmus: Use INVOKE.

Browse source 
* gnu/packages/music.scm (cmus)[arguments]: Use INVOKE and return #T
unconditionally.
This commit is contained in:
Ricardo Wurmus 2018-11-08 10:09:32 +01:00
parent 9c30cba431
commit ec618c2005
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/music.scm
View file

@ -322,16 +322,14 @@ (define-public cmus
`(#:tests? #f ; cmus does not include tests
#:phases
(modify-phases %standard-phases
(replace
'configure
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
;; It's an idiosyncratic configure script that doesn't
;; understand --prefix=..; it wants prefix=.. instead.
(zero?
(system* "./configure"
(string-append "prefix=" out)))))))))
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
;; It's an idiosyncratic configure script that doesn't
;; understand --prefix=..; it wants prefix=.. instead.
(invoke "./configure"
(string-append "prefix=" out))
#t))))))
;; TODO: cmus optionally supports the following formats, which haven't yet
;; been added to Guix:
;;