me/guix
Archived
1
0
Fork 0
Code Activity

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

10
gnu/packages/music.scm
View file

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