me/guix
Archived
1
0
Fork 0
Code Activity

gnu: bwa,bwa-pssm: Improve package style.

Browse source 
* 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
1 changed files with 26 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/packages/bioinformatics.scm
View file

@ -4271,11 +4271,11 @@ splice junctions between exons.")
"1vf3iwkzxqkzhcfz2q3qyvcv3jrvbb012qy21pfgjl8lv20ywfr1")))) "1vf3iwkzxqkzhcfz2q3qyvcv3jrvbb012qy21pfgjl8lv20ywfr1"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ;no "check" target (list #:tests? #f ;no "check" target
#:make-flags (list "CFLAGS=-fcommon" #:make-flags #~(list "CFLAGS=-fcommon"
(string-append "CC=" ,(cc-for-target))) (string-append "CC=" #$(cc-for-target)))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(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"))
@ -4306,7 +4306,8 @@ and more accurate. BWA-MEM also has better performance than BWA-backtrack for
(license license:gpl3+))) (license license:gpl3+)))
(define-public bwa-pssm (define-public bwa-pssm
(package (inherit bwa) (package
(inherit bwa)
(name "bwa-pssm") (name "bwa-pssm")
(version "0.5.11") (version "0.5.11")
(source (origin (source (origin
@ -4321,8 +4322,8 @@ and more accurate. BWA-MEM also has better performance than BWA-backtrack for
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(substitute-keyword-arguments (package-arguments bwa) (substitute-keyword-arguments (package-arguments bwa)
((#:phases phases '%standard-phases) ((#:phases phases #~%standard-phases)
`(modify-phases ,phases #~(modify-phases #$phases
(add-after 'unpack 'patch-C-error (add-after 'unpack 'patch-C-error
(lambda _ (lambda _
(substitute* "pssm.c" (substitute* "pssm.c"