ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-08 07:56:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: muscle: Use INVOKE.

Browse source 
* gnu/packages/bioinformatics.scm (muscle)[arguments]: Use INVOKE and
return #T unconditionally.
This commit is contained in:
Ricardo Wurmus 2018-11-08 09:11:38 +01:00
parent 0881d62f25
commit 179416467f
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/packages/bioinformatics.scm
View file

@ -4236,12 +4236,13 @@ (define-public muscle
(delete 'configure) (delete 'configure)
(replace 'check (replace 'check
;; There are no tests, so just test if it runs. ;; There are no tests, so just test if it runs.
(lambda _ (zero? (system* "./muscle" "-version")))) (lambda _ (invoke "./muscle" "-version") #t))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))) (bin (string-append out "/bin")))
(install-file "muscle" bin))))))) (install-file "muscle" bin)
#t))))))
(home-page "http://www.drive5.com/muscle") (home-page "http://www.drive5.com/muscle")
(synopsis "Multiple sequence alignment program") (synopsis "Multiple sequence alignment program")
(description (description