aboutsummaryrefslogtreecommitdiff
path: root/gn
diff options
context:
space:
mode:
authorEfraim Flashner2022-06-07 12:08:23 +0300
committerEfraim Flashner2022-06-07 12:08:23 +0300
commit6b0bae3509e84968840de005dc31d25fb1525255 (patch)
tree01f63adf73740780104c312fe1b54dc16fffc5b8 /gn
parent921d419d9b235b13c4216d7559fb15cd1b5327fd (diff)
downloadguix-bioinformatics-6b0bae3509e84968840de005dc31d25fb1525255.tar.gz
gn: pplacer-scripts: Update argument field.
Diffstat (limited to 'gn')
-rw-r--r--gn/packages/bioinformatics.scm23
1 files changed, 11 insertions, 12 deletions
diff --git a/gn/packages/bioinformatics.scm b/gn/packages/bioinformatics.scm
index 178395a..130be16 100644
--- a/gn/packages/bioinformatics.scm
+++ b/gn/packages/bioinformatics.scm
@@ -2776,24 +2776,23 @@ downstream analysis.")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'enter-scripts-dir
- (lambda _ (chdir "scripts") #t))
+ (lambda _ (chdir "scripts")))
(replace 'check
- (lambda _ (invoke "python" "-m" "unittest" "discover" "-v") #t))
+ (lambda* (#:key tests? #:allow-other-keys)
+ (when tests?
+ (invoke "python" "-m" "unittest" "discover" "-v"))))
(add-after 'install 'wrap-executables
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin")))
- (let ((path (string-append
+ (bin (string-append out "/bin"))
+ (path (string-append
(assoc-ref inputs "hmmer") "/bin:"
(assoc-ref inputs "infernal") "/bin")))
- (display path)
- (wrap-program (string-append bin "/refpkg_align.py")
- `("PATH" ":" prefix (,path))))
- (let ((path (string-append
- (assoc-ref inputs "hmmer") "/bin")))
- (wrap-program (string-append bin "/hrefpkg_query.py")
- `("PATH" ":" prefix (,path)))))
- #t)))))
+ (display path)
+ (wrap-program (string-append bin "/refpkg_align.py")
+ `("PATH" ":" prefix (,path)))
+ (wrap-program (string-append bin "/hrefpkg_query.py")
+ `("PATH" ":" prefix (,path)))))))))
(inputs
`(("infernal" ,infernal)
("hmmer" ,hmmer)))