gnu: bedtools: Use modify-phases.

* gnu/packages/bioinformatics.scm (bedtools)[arguments]: Use modify-phases.
This commit is contained in:
Ben Woodcroft 2016-01-11 00:28:25 +10:00
parent 695bea9803
commit 6573ac82ad
1 changed files with 19 additions and 19 deletions

View File

@ -224,25 +224,25 @@ computational cluster.")
(arguments (arguments
'(#:test-target "test" '(#:test-target "test"
#:phases #:phases
(alist-cons-after (modify-phases %standard-phases
'unpack 'patch-makefile-SHELL-definition (add-after 'unpack 'patch-makefile-SHELL-definition
(lambda _ (lambda _
;; patch-makefile-SHELL cannot be used here as it does not ;; patch-makefile-SHELL cannot be used here as it does not
;; yet patch definitions with `:='. Since changes to ;; yet patch definitions with `:='. Since changes to
;; patch-makefile-SHELL result in a full rebuild, features ;; patch-makefile-SHELL result in a full rebuild, features
;; of patch-makefile-SHELL are reimplemented here. ;; of patch-makefile-SHELL are reimplemented here.
(substitute* "Makefile" (substitute* "Makefile"
(("^SHELL := .*$") (string-append "SHELL := " (which "bash") " -e \n")))) (("^SHELL := .*$")
(alist-delete (string-append "SHELL := " (which "bash") " -e \n")))
'configure #t))
(alist-replace (delete 'configure)
'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin/"))) (let ((bin (string-append (assoc-ref outputs "out") "/bin/")))
(for-each (lambda (file) (for-each (lambda (file)
(install-file file bin)) (install-file file bin))
(find-files "bin" ".*")))) (find-files "bin" ".*")))
%standard-phases))))) #t)))))
(home-page "https://github.com/arq5x/bedtools2") (home-page "https://github.com/arq5x/bedtools2")
(synopsis "Tools for genome analysis and arithmetic") (synopsis "Tools for genome analysis and arithmetic")
(description (description