06/16: gnu: proteinortho: Add bash-minimal to inputs.

[guix-commits]

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

commit 04067a608ccc641d3ececdd01b29e60ae7c7e0f8
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Fri Oct 20 01:05:49 2023 -0400

    gnu: proteinortho: Add bash-minimal to inputs.
    
    * gnu/packages/bioinformatics.scm (proteinortho): Delete trailing #t.
    [inputs]: Add bash-minimal.  Remove labels.
    
    Change-Id: I74e243d598a544a9a58ea77a229b6a2b2f56c5b2
---
 gnu/packages/bioinformatics.scm | 27 ++++++++++++---------------
 1 file changed, 12 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 4f3a25c78c..c8c11d9c18 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -7584,8 +7584,7 @@ predicts the locations of structural units in the 
sequences.")
               (snippet
                '(begin
                   ;; remove pre-built scripts
-                  (delete-file-recursively "src/BUILD/")
-                  #t))))
+                  (delete-file-recursively "src/BUILD/")))))
     (build-system gnu-build-system)
     (arguments
      `(#:test-target "test"
@@ -7598,13 +7597,11 @@ predicts the locations of structural units in the 
sequences.")
              (substitute* "Makefile"
                (("INSTALLDIR=.*")
                 (string-append
-                 "INSTALLDIR=" (assoc-ref outputs "out") "/bin\n")))
-             #t))
+                 "INSTALLDIR=" (assoc-ref outputs "out") "/bin\n")))))
          (add-before 'install 'make-install-directory
            ;; The install directory is not created during 'make install'.
            (lambda* (#:key outputs #:allow-other-keys)
-             (mkdir-p (string-append (assoc-ref outputs "out") "/bin"))
-             #t))
+             (mkdir-p (string-append (assoc-ref outputs "out") "/bin"))))
          (add-after 'install 'wrap-programs
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((path (getenv "PATH"))
@@ -7614,16 +7611,16 @@ predicts the locations of structural units in the 
sequences.")
                            (wrap-script script #:guile guile
                                         `("PATH" ":" prefix (,path))))
                          (cons (string-append out "/bin/proteinortho")
-                               (find-files out "\\.(pl|py)$"))))
-             #t)))))
+                               (find-files out "\\.(pl|py)$")))))))))
     (inputs
-     `(("guile" ,guile-3.0) ; for wrap-script
-       ("diamond" ,diamond)
-       ("perl" ,perl)
-       ("python" ,python-wrapper)
-       ("blast+" ,blast+)
-       ("lapack" ,lapack)
-       ("openblas" ,openblas)))
+     (list bash-minimal
+           guile-3.0         ; for wrap-script
+           diamond
+           perl
+           python-wrapper
+           blast+
+           lapack
+           openblas))
     (native-inputs
      (list which))
     (home-page "https://www.bioinf.uni-leipzig.de/Software/proteinortho";)