From ec618c2005a1dc5e5154d25e9599313cea1ce6e9 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Thu, 8 Nov 2018 10:09:32 +0100 Subject: gnu: cmus: Use INVOKE. * gnu/packages/music.scm (cmus)[arguments]: Use INVOKE and return #T unconditionally. --- gnu/packages/music.scm | 18 ++++++++---------- 1 file 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: ;; -- cgit v1.2.3