me/guix
Archived
1
0
Fork 0
Code Activity

gnu: seek: Use INVOKE.

Browse source 
* gnu/packages/bioinformatics.scm (seek)[arguments]: Use INVOKE and return #T
unconditionally; patch "gen_tools_am" shebang in "bootstrap" phase.
This commit is contained in:
Ricardo Wurmus 2018-11-08 09:54:22 +01:00
parent 9f527c9199
commit a9542937c8
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/bioinformatics.scm
View file

@ -5057,21 +5057,24 @@ distribution, coverage uniformity, strand specificity, etc.")
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'bootstrap (replace 'bootstrap
(lambda _ (lambda _
(invoke "bash" "gen_auto"))) (substitute* "gen_tools_am"
(("/usr/bin/env.*") (which "perl")))
(invoke "bash" "gen_auto")
#t))
(add-after 'build 'build-additional-tools (add-after 'build 'build-additional-tools
(lambda* (#:key make-flags #:allow-other-keys) (lambda* (#:key make-flags #:allow-other-keys)
(every (lambda (dir) (for-each (lambda (dir)
(with-directory-excursion (string-append "tools/" dir) (with-directory-excursion (string-append "tools/" dir)
(zero? (apply system* "make" make-flags)))) (apply invoke "make" make-flags)))
dirs))) dirs)
#t))
(add-after 'install 'install-additional-tools (add-after 'install 'install-additional-tools
(lambda* (#:key make-flags #:allow-other-keys) (lambda* (#:key make-flags #:allow-other-keys)
(fold (lambda (dir result) (for-each (lambda (dir)
(with-directory-excursion (string-append "tools/" dir) (with-directory-excursion (string-append "tools/" dir)
(and result (apply invoke `("make" ,@make-flags "install"))))
(zero? (apply system* dirs)
`("make" ,@make-flags "install")))))) #t))))))
#t dirs)))))))
(inputs (inputs
`(("gsl" ,gsl) `(("gsl" ,gsl)
("boost" ,boost) ("boost" ,boost)