me/guix
Archived
1
0
Fork 0
Code Activity

gnu: filtlong: Use gexp.

Browse source 
* gnu/packages/bioinformatics.scm (filtlong)[arguments]: Use gexp.
This commit is contained in:
Ricardo Wurmus 2023-01-06 14:05:58 +01:00
parent 0070e52ade
commit 067c8a7445
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 22 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
gnu/packages/bioinformatics.scm
View file

@ -14321,29 +14321,28 @@ phase + query phase).")
(base32 "1xr92r820x8qlkcr3b57iw223yq8vjgyi42jr79w2xgw47qzr575")))) (base32 "1xr92r820x8qlkcr3b57iw223yq8vjgyi42jr79w2xgw47qzr575"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no check target (list
#:phases #:tests? #f ; no check target
(modify-phases %standard-phases #:phases
(delete 'configure) #~(modify-phases %standard-phases
(replace 'install (delete 'configure)
(lambda* (#:key outputs #:allow-other-keys) (replace 'install
(let* ((out (assoc-ref outputs "out")) (lambda _
(bin (string-append out "/bin")) (let ((bin (string-append #$output "/bin"))
(scripts (string-append out "/share/filtlong/scripts"))) (scripts (string-append #$output "/share/filtlong/scripts")))
(install-file "bin/filtlong" bin) (install-file "bin/filtlong" bin)
(install-file "scripts/histogram.py" scripts) (install-file "scripts/histogram.py" scripts)
(install-file "scripts/read_info_histograms.sh" scripts)))) (install-file "scripts/read_info_histograms.sh" scripts))))
(add-after 'install 'wrap-program (add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let ((path (getenv "GUIX_PYTHONPATH")))
(path (getenv "GUIX_PYTHONPATH"))) (wrap-program (string-append #$output
(wrap-program (string-append out "/share/filtlong/scripts/histogram.py")
"/share/filtlong/scripts/histogram.py") `("GUIX_PYTHONPATH" ":" prefix (,path))))))
`("GUIX_PYTHONPATH" ":" prefix (,path)))))) (add-before 'check 'patch-tests
(add-before 'check 'patch-tests (lambda _
(lambda _ (substitute* "scripts/read_info_histograms.sh"
(substitute* "scripts/read_info_histograms.sh" (("awk") (which "gawk"))))))))
(("awk") (which "gawk"))))))))
(inputs (inputs
(list gawk ;for read_info_histograms.sh (list gawk ;for read_info_histograms.sh
python-2 ;required for histogram.py python-2 ;required for histogram.py