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
This commit is contained in:
Zheng Junjie 2024-07-30 15:56:47 +08:00
parent 18a69ddbf3
commit 4e92ed625f
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0

View file

@ -4271,11 +4271,11 @@ (define-public bwa
"1vf3iwkzxqkzhcfz2q3qyvcv3jrvbb012qy21pfgjl8lv20ywfr1"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no "check" target
#:make-flags (list "CFLAGS=-fcommon"
(string-append "CC=" ,(cc-for-target)))
(list #:tests? #f ;no "check" target
#:make-flags #~(list "CFLAGS=-fcommon"
(string-append "CC=" #$(cc-for-target)))
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -4306,7 +4306,8 @@ (define-public bwa
(license license:gpl3+)))
(define-public bwa-pssm
(package (inherit bwa)
(package
(inherit bwa)
(name "bwa-pssm")
(version "0.5.11")
(source (origin
@ -4321,8 +4322,8 @@ (define-public bwa-pssm
(build-system gnu-build-system)
(arguments
(substitute-keyword-arguments (package-arguments bwa)
((#:phases phases '%standard-phases)
`(modify-phases ,phases
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-after 'unpack 'patch-C-error
(lambda _
(substitute* "pssm.c"