From d348439bb881905fb938b0e7b0bf66cd797901ef Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 1 Jan 2022 00:06:29 +0100 Subject: [PATCH] gnu: tao: Remove trailing #T. * gnu/packages/audio.scm (tao)[arguments]: Remove trailing #T from build phases... [source]: ...and from the snippet. --- gnu/packages/audio.scm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index 42fdc785ef..aba2f9b8b6 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -1250,10 +1250,8 @@ (define-public tao "tao-fix-parser-types.patch")) (modules '((guix build utils))) (snippet - '(begin - (substitute* "configure" - (("SHELL=/bin/sh") "")) - #t)))) + '(substitute* "configure" + (("SHELL=/bin/sh") ""))))) (build-system gnu-build-system) (arguments '(#:configure-flags '("TAO_RELEASE=-beta") @@ -1269,8 +1267,7 @@ (define-public tao (string-append (which "sed") " -f $distdir/")) (("distdir=.*") (string-append "distdir=" - (assoc-ref outputs "out") "/share/tao"))) - #t)) + (assoc-ref outputs "out") "/share/tao"))))) (add-after 'install 'install-extra-files (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) @@ -1281,8 +1278,7 @@ (define-public tao (install-file "user-scripts/error.parse" share) (copy-recursively "examples" (string-append share "examples")) (for-each (lambda (file) (install-file file inc)) - (find-files "include" "\\.h")) - #t)))))) + (find-files "include" "\\.h")))))))) (inputs (list audiofile libxi