me
/
guix
Archived
1
0
Fork 0
Code

gnu: ncbi-vdb: Use modify-phases syntax. 

* gnu/packages/bioinformatics.scm (ncbi-vdb)[arguments]: Use modify-phases
syntax.
master
Ricardo Wurmus 2017-03-16 10:20:56 +01:00
parent 5021f54787
commit 701111989e
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 51 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/bioinformatics.scm
View File

@ -4463,8 +4463,8 @@ simultaneously.")
`(#:parallel-build? #f ; not supported `(#:parallel-build? #f ; not supported
#:tests? #f ; no "check" target #:tests? #f ; no "check" target
#:phases #:phases
(alist-replace (modify-phases %standard-phases
'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
;; Override include path for libmagic ;; Override include path for libmagic
@ -4497,9 +4497,8 @@ simultaneously.")
(string-append "--with-ngs-java-prefix=" (string-append "--with-ngs-java-prefix="
(assoc-ref inputs "java-ngs")) (assoc-ref inputs "java-ngs"))
(string-append "--with-hdf5-prefix=" (string-append "--with-hdf5-prefix="
(assoc-ref inputs "hdf5")))))) (assoc-ref inputs "hdf5")))))))
(alist-cons-after (add-after 'install 'install-interfaces
'install 'install-interfaces
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Install interface libraries. On i686 the interface libraries ;; Install interface libraries. On i686 the interface libraries
;; are installed to "linux/gcc/i386", so we need to use the Linux ;; are installed to "linux/gcc/i386", so we need to use the Linux
@ -4516,8 +4515,8 @@ simultaneously.")
;; Install interface headers ;; Install interface headers
(copy-recursively "interfaces" (copy-recursively "interfaces"
(string-append (assoc-ref outputs "out") (string-append (assoc-ref outputs "out")
"/include"))) "/include"))
%standard-phases)))) #t)))))
(inputs (inputs
`(("libxml2" ,libxml2) `(("libxml2" ,libxml2)
("ngs-sdk" ,ngs-sdk) ("ngs-sdk" ,ngs-sdk)