summary refs log tree commit diff
diff options
context:
space:
mode:
authorRicardo Wurmus <ricardo.wurmus@mdc-berlin.de>2015-07-02 15:53:47 +0200
committerRicardo Wurmus <ricardo.wurmus@mdc-berlin.de>2015-07-08 17:05:00 +0200
commit5bdda30b32676528bcfa0a169c30237fabaa4607 (patch)
tree9c68cdda62913370fabe62026c344f55466317cc
parent80ea7526dbe5cfea39597fe440d65f53e083eb6f (diff)
downloadguix-5bdda30b32676528bcfa0a169c30237fabaa4607.tar.gz
gnu: samtools: Install headers.
* gnu/packages/bioinformatics.scm (samtools)[arguments]: Add phase
  "install-headers" to install header files.
-rw-r--r--gnu/packages/bioinformatics.scm17
1 files changed, 16 insertions, 1 deletions
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 03bb3599d2..f6349cfb8f 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -1774,6 +1774,10 @@ distribution, coverage uniformity, strand specificity, etc.")
        ;; systems.
        #:tests? ,(string=? (or (%current-system) (%current-target-system))
                            "x86_64-linux")
+       #:modules ((ice-9 ftw)
+                  (ice-9 regex)
+                  (guix build gnu-build-system)
+                  (guix build utils))
        #:make-flags (list "LIBCURSES=-lncurses"
                           (string-append "prefix=" (assoc-ref %outputs "out")))
        #:phases
@@ -1798,7 +1802,18 @@ distribution, coverage uniformity, strand specificity, etc.")
            (let ((lib (string-append (assoc-ref outputs "out") "/lib")))
              (mkdir-p lib)
              (copy-file "libbam.a" (string-append lib "/libbam.a"))))
-         (alist-delete 'configure %standard-phases)))))
+         (alist-cons-after
+          'install 'install-headers
+          (lambda* (#:key outputs #:allow-other-keys)
+            (let ((include (string-append (assoc-ref outputs "out")
+                                          "/include/samtools/")))
+              (mkdir-p include)
+              (for-each (lambda (file)
+                          (copy-file file (string-append include
+                                                         (basename file))))
+                        (scandir "." (lambda (name) (string-match "\\.h$" name))))
+              #t))
+          (alist-delete 'configure %standard-phases))))))
     (native-inputs `(("pkg-config" ,pkg-config)))
     (inputs `(("ncurses" ,ncurses)
               ("perl" ,perl)