From 95758e2faf7bb96d8df270d37bf71d52cbd4270c Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 20 Oct 2018 21:34:20 +0200 Subject: [PATCH] gnu: aragorn: Use invoke and simplify. * gnu/packages/bioinformatics.scm (aragorn)[arguments]: Use INVOKE in build phase; simplify install phase. --- gnu/packages/bioinformatics.scm | 33 ++++++++++++++++----------------- 1 file changed, 16 insertions(+), 17 deletions(-) diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index 3f50ce0737..56a566f1ef 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -136,24 +136,23 @@ (define-public aragorn (modify-phases %standard-phases (delete 'configure) (replace 'build - (lambda _ - (zero? (system* "gcc" - "-O3" - "-ffast-math" - "-finline-functions" - "-o" - "aragorn" - (string-append "aragorn" ,version ".c"))))) + (lambda _ + (invoke "gcc" + "-O3" + "-ffast-math" + "-finline-functions" + "-o" + "aragorn" + (string-append "aragorn" ,version ".c")) + #t)) (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (man (string-append out "/share/man/man1"))) - (mkdir-p bin) - (install-file "aragorn" bin) - (mkdir-p man) - (install-file "aragorn.1" man)) - #t))))) + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (man (string-append out "/share/man/man1"))) + (install-file "aragorn" bin) + (install-file "aragorn.1" man)) + #t))))) (home-page "http://mbio-serv2.mbioekol.lu.se/ARAGORN") (synopsis "Detect tRNA, mtRNA and tmRNA genes in nucleotide sequences") (description