gnu: cmus: Use INVOKE.

* gnu/packages/music.scm (cmus)[arguments]: Use INVOKE and return #T
unconditionally.
master
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

View File

@ -322,16 +322,14 @@ playing your music.")
`(#: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:
;;