z572 pushed a commit to branch master
in repository guix.
commit 4e92ed625fdeda90f1abc07b7fdd2d5d6f7c83cb
Author: Zheng Junjie <[email protected]>
AuthorDate: Tue Jul 30 15:56:47 2024 +0800
gnu: bwa,bwa-pssm: Improve package style.
* gnu/packages/bioinformatics.scm (bwa)[arguments]: Use G-expression.
(bwa-pssm)[arguments]: Use G-expression.
Change-Id: I63dd0f13f337fbf84967f1ef1b6332ce3391ae97
---
gnu/packages/bioinformatics.scm | 51 +++++++++++++++++++++--------------------
1 file changed, 26 insertions(+), 25 deletions(-)
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 2b31a46ef8..eae0a29b90 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -4271,24 +4271,24 @@ splice junctions between exons.")
"1vf3iwkzxqkzhcfz2q3qyvcv3jrvbb012qy21pfgjl8lv20ywfr1"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ;no "check" target
- #:make-flags (list "CFLAGS=-fcommon"
- (string-append "CC=" ,(cc-for-target)))
- #:phases
- (modify-phases %standard-phases
- (replace 'install
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin"))
- (lib (string-append out "/lib"))
- (doc (string-append out "/share/doc/bwa"))
- (man (string-append out "/share/man/man1")))
- (install-file "bwa" bin)
- (install-file "libbwa.a" lib)
- (install-file "README.md" doc)
- (install-file "bwa.1" man))))
- ;; no "configure" script
- (delete 'configure))))
+ (list #:tests? #f ;no "check" target
+ #:make-flags #~(list "CFLAGS=-fcommon"
+ (string-append "CC=" #$(cc-for-target)))
+ #:phases
+ #~(modify-phases %standard-phases
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin"))
+ (lib (string-append out "/lib"))
+ (doc (string-append out "/share/doc/bwa"))
+ (man (string-append out "/share/man/man1")))
+ (install-file "bwa" bin)
+ (install-file "libbwa.a" lib)
+ (install-file "README.md" doc)
+ (install-file "bwa.1" man))))
+ ;; no "configure" script
+ (delete 'configure))))
(inputs (list zlib))
(supported-systems '("x86_64-linux" "aarch64-linux"))
(home-page "https://bio-bwa.sourceforge.net/";)
@@ -4306,7 +4306,8 @@ and more accurate. BWA-MEM also has better performance
than BWA-backtrack for
(license license:gpl3+)))
(define-public bwa-pssm
- (package (inherit bwa)
+ (package
+ (inherit bwa)
(name "bwa-pssm")
(version "0.5.11")
(source (origin
@@ -4321,12 +4322,12 @@ and more accurate. BWA-MEM also has better performance
than BWA-backtrack for
(build-system gnu-build-system)
(arguments
(substitute-keyword-arguments (package-arguments bwa)
- ((#:phases phases '%standard-phases)
- `(modify-phases ,phases
- (add-after 'unpack 'patch-C-error
- (lambda _
- (substitute* "pssm.c"
- (("inline int map") "int map"))))))))
+ ((#:phases phases #~%standard-phases)
+ #~(modify-phases #$phases
+ (add-after 'unpack 'patch-C-error
+ (lambda _
+ (substitute* "pssm.c"
+ (("inline int map") "int map"))))))))
(inputs
(list gdsl zlib perl))
;; https://bwa-pssm.binf.ku.dk is down, and all Web Archived copies are
