TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: perl-cworld-dekker: Drop labels from inputs.

Browse source 
* gnu/packages/bioinformatics.scm (perl-cworld-dekker)[arguments]: Use
G-expression and avoid references to labeled inputs.
[inputs]: Drop labels.
This commit is contained in:
Ricardo Wurmus 2023-09-14 11:16:29 +02:00
parent 0ce57ea4a1
commit c36d4760c6
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 67 additions and 67 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
gnu/packages/bioinformatics.scm
View file

@ -19246,15 +19246,16 @@ (define-public perl-cworld-dekker
"1dvh23fx52m59y6304xi2j2pl2hiqadlqg8jyv2pm14j1hy71ych")))) "1dvh23fx52m59y6304xi2j2pl2hiqadlqg8jyv2pm14j1hy71ych"))))
(build-system perl-build-system) (build-system perl-build-system)
(arguments (arguments
`(#:modules ((guix build perl-build-system) (list
#:modules '((guix build perl-build-system)
(guix build utils) (guix build utils)
(srfi srfi-26)) (srfi srfi-26))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'hardcode-references (add-after 'unpack 'hardcode-references
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((bedtools (assoc-ref inputs "bedtools")) (let ((bedtools #$(this-package-input "bedtools"))
(r (assoc-ref inputs "r-minimal"))) (r #$(this-package-input "r-minimal")))
(substitute* '("scripts/python/getEigenVectors.py" (substitute* '("scripts/python/getEigenVectors.py"
"scripts/python/matrix2EigenVectors.py") "scripts/python/matrix2EigenVectors.py")
(("bedtools intersect") (("bedtools intersect")
@ -19285,9 +19286,8 @@ (define-public perl-cworld-dekker
(("(`|\")Rscript" _ pre) (("(`|\")Rscript" _ pre)
(string-append pre r "/bin/Rscript")))))) (string-append pre r "/bin/Rscript"))))))
(add-after 'install 'install-scripts (add-after 'install 'install-scripts
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let ((share (string-append #$output "/share/cworld-dekker")))
(share (string-append out "/share/cworld-dekker")))
(mkdir-p share) (mkdir-p share)
(copy-recursively "scripts" share) (copy-recursively "scripts" share)
@ -19302,21 +19302,21 @@ (define-public perl-cworld-dekker
`(,var ":" prefix (,path))))))) `(,var ":" prefix (,path)))))))
(for-each (cut chmod <> #o555) (append r py pl)) (for-each (cut chmod <> #o555) (append r py pl))
(for-each (cut wrap <> "PERL5LIB" (for-each (cut wrap <> "PERL5LIB"
(string-append ":" out (string-append ":" #$output
"/lib/perl5/site_perl")) "/lib/perl5/site_perl"))
pl) pl)
(for-each (cut wrap <> "GUIX_PYTHONPATH") py)))))))) (for-each (cut wrap <> "GUIX_PYTHONPATH") py))))))))
(inputs (inputs
`(("libgd" ,gd) (list gd
("perl-gd" ,perl-gd) perl-gd
("bedtools" ,bedtools) bedtools
("python" ,python-wrapper) python-wrapper
("python-scipy" ,python-scipy) python-scipy
("python-numpy" ,python-numpy) python-numpy
("python-matplotlib" ,python-matplotlib) python-matplotlib
("python-h5py" ,python-h5py) python-h5py
("python-scikit-learn" ,python-scikit-learn) python-scikit-learn
("r-minimal" ,r-minimal))) r-minimal))
(native-inputs (native-inputs
(list perl-module-build)) (list perl-module-build))
(home-page "https://github.com/dekkerlab/cworld-dekker") (home-page "https://github.com/dekkerlab/cworld-dekker")