nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: seek: Use INVOKE. 

* gnu/packages/bioinformatics.scm (seek)[arguments]: Use INVOKE and return #T
unconditionally; patch "gen_tools_am" shebang in "bootstrap" phase.
master
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
(replace 'bootstrap
(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
(lambda* (#:key make-flags #:allow-other-keys)
(every (lambda (dir)
(with-directory-excursion (string-append "tools/" dir)
(zero? (apply system* "make" make-flags))))
dirs)))
(for-each (lambda (dir)
(with-directory-excursion (string-append "tools/" dir)
(apply invoke "make" make-flags)))
dirs)
#t))
(add-after 'install 'install-additional-tools
(lambda* (#:key make-flags #:allow-other-keys)
(fold (lambda (dir result)
(with-directory-excursion (string-append "tools/" dir)
(and result
(zero? (apply system*
`("make" ,@make-flags "install"))))))
#t dirs)))))))
(for-each (lambda (dir)
(with-directory-excursion (string-append "tools/" dir)
(apply invoke `("make" ,@make-flags "install"))))
dirs)
#t))))))
(inputs
`(("gsl" ,gsl)
("boost" ,boost)