guix-commits
[Top][All Lists]
Advanced

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

01/06: gnu: bwa: Install static library.


From: guix-commits
Subject: 01/06: gnu: bwa: Install static library.
Date: Thu, 9 Jan 2020 07:52:29 -0500 (EST)

efraim pushed a commit to branch master
in repository guix.

commit 2673620f2455d89e3b2641d8c479ca00dbad824c
Author: Efraim Flashner <address@hidden>
AuthorDate: Wed Jan 8 11:29:09 2020 +0200

    gnu: bwa: Install static library.
    
    * gnu/packages/bioinformatics.scm (bwa)[arguments]: Install static
    library.
---
 gnu/packages/bioinformatics.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 613015c..28c5dd1 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -4,7 +4,7 @@
 ;;; Copyright © 2015, 2016 Pjotr Prins <address@hidden>
 ;;; Copyright © 2015 Andreas Enge <address@hidden>
 ;;; Copyright © 2016 Roel Janssen <address@hidden>
-;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <address@hidden>
+;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <address@hidden>
 ;;; Copyright © 2016 Marius Bakke <address@hidden>
 ;;; Copyright © 2016, 2018 Raoul Bonnal <address@hidden>
 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <address@hidden>
@@ -1682,13 +1682,13 @@ splice junctions between exons.")
        (modify-phases %standard-phases
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
-             (let ((bin (string-append
-                         (assoc-ref outputs "out") "/bin"))
-                   (doc (string-append
-                         (assoc-ref outputs "out") "/share/doc/bwa"))
-                   (man (string-append
-                         (assoc-ref outputs "out") "/share/man/man1")))
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin"))
+                    (lib (string-append out "/lib"))
+                    (doc (string-append out "/share/doc/bwa"))
+                    (man (string-append out "/share/man/man1")))
                (install-file "bwa" bin)
+               (install-file "libbwa.a" lib)
                (install-file "README.md" doc)
                (install-file "bwa.1" man))
              #t))



reply via email to

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