guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/11: gnu: prank: Remove trailing #T.


From: guix-commits
Subject: 01/11: gnu: prank: Remove trailing #T.
Date: Sat, 4 Dec 2021 10:02:33 -0500 (EST)

rekado pushed a commit to branch core-updates-frozen
in repository guix.

commit e128839a9481549ed2ba06049fe0769dd78d24a0
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sat Dec 4 15:11:04 2021 +0100

    gnu: prank: Remove trailing #T.
    
    * gnu/packages/bioinformatics.scm (prank)[arguments]: Remove trailing #T 
from
    build phases.
---
 gnu/packages/bioinformatics.scm | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 979d26b..9133003 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -5779,15 +5779,13 @@ generated using the PacBio Iso-Seq protocol.")
      `(#:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'enter-src-dir
-            (lambda _
-              (chdir "src")
-              #t))
+           (lambda _ (chdir "src")))
          (add-after 'unpack 'remove-m64-flag
            ;; Prank will build with the correct 'bit-ness' without this flag
            ;; and this allows building on 32-bit machines.
-           (lambda _ (substitute* "src/Makefile"
-                                  (("-m64") ""))
-             #t))
+           (lambda _
+             (substitute* "src/Makefile"
+               (("-m64") ""))))
          (delete 'configure)
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
@@ -5801,8 +5799,7 @@ generated using the PacBio Iso-Seq protocol.")
                (install-file "prank" bin)
                (wrap-program (string-append bin "/prank")
                  `("PATH" ":" prefix (,path)))
-               (install-file "prank.1" man))
-             #t)))))
+               (install-file "prank.1" man)))))))
     (inputs
      `(("mafft" ,mafft)
        ("exonerate" ,exonerate)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]