summary refs log tree commit diff
path: root/gnu
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2022-01-01 00:06:29 +0100
committerRicardo Wurmus <rekado@elephly.net>2022-01-01 00:06:29 +0100
commitd348439bb881905fb938b0e7b0bf66cd797901ef (patch)
treeb657544e65abc1b8110a83f811439b3d62fd02ac /gnu
parenta73021038d2f16c9df7d28fdf5efd4c90344023f (diff)
downloadguix-d348439bb881905fb938b0e7b0bf66cd797901ef.tar.gz
gnu: tao: Remove trailing #T.
* gnu/packages/audio.scm (tao)[arguments]: Remove trailing #T from build
phases...
[source]: ...and from the snippet.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/audio.scm12
1 files 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 @@ formats used to store information about DJ record libraries.")
                                "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 @@ formats used to store information about DJ record libraries.")
                 (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 @@ formats used to store information about DJ record libraries.")
                (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