aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2018-11-08 10:09:32 +0100
committerRicardo Wurmus <rekado@elephly.net>2018-11-08 10:09:32 +0100
commitec618c2005a1dc5e5154d25e9599313cea1ce6e9 (patch)
treee164a1135050560129f6d65f720f943071abeca1
parent9c30cba431ccc36462f91652b624ae0068d77491 (diff)
downloadguix-ec618c2005a1dc5e5154d25e9599313cea1ce6e9.tar.gz
guix-ec618c2005a1dc5e5154d25e9599313cea1ce6e9.zip
gnu: cmus: Use INVOKE.
* gnu/packages/music.scm (cmus)[arguments]: Use INVOKE and return #T unconditionally.
-rw-r--r--gnu/packages/music.scm18
1 files changed, 8 insertions, 10 deletions
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 7f1d124233..af7589c23d 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -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:
;;