[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: star: Use "modify-phases" syntax.
From: |
Ricardo Wurmus |
Subject: |
01/02: gnu: star: Use "modify-phases" syntax. |
Date: |
Sat, 23 Jan 2016 07:40:38 +0000 |
rekado pushed a commit to branch master
in repository guix.
commit c0266e8d031852931d1cc324dd56cf075cecc9a2
Author: Ricardo Wurmus <address@hidden>
Date: Tue Jan 19 16:04:01 2016 +0100
gnu: star: Use "modify-phases" syntax.
* gnu/packages/bioinformatics.scm (star)[arguments]: Use "modify-phases"
syntax.
---
gnu/packages/bioinformatics.scm | 18 +++++++++---------
1 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index e579afe..485faef 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -3037,15 +3037,15 @@ of these reads to align data quickly through a
hash-based indexing scheme.")
'(#:tests? #f ;no check target
#:make-flags '("STAR")
#:phases
- (alist-cons-after
- 'unpack 'enter-source-dir (lambda _ (chdir "source"))
- (alist-replace
- 'install
- (lambda* (#:key outputs #:allow-other-keys)
- (let ((bin (string-append (assoc-ref outputs "out") "/bin/")))
- (install-file "STAR" bin)))
- (alist-delete
- 'configure %standard-phases)))))
+ (modify-phases %standard-phases
+ (add-after 'unpack 'enter-source-dir
+ (lambda _ (chdir "source") #t))
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((bin (string-append (assoc-ref outputs "out") "/bin/")))
+ (install-file "STAR" bin))
+ #t))
+ (delete 'configure))))
(native-inputs
`(("vim" ,vim))) ; for xxd
(inputs