diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-08-28 22:22:22 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-08-29 01:25:08 +0200 |
| commit | 96c462105627569ae4b82cdc0e0059806f855ba6 (patch) | |
| tree | 81e23ce00be19c620fa28518284efaec576f75c0 /gnu/packages/python.scm | |
| parent | 4cc2ed98cf7837e042ad4234c91fe730259a7170 (diff) | |
| download | guix-96c462105627569ae4b82cdc0e0059806f855ba6.tar guix-96c462105627569ae4b82cdc0e0059806f855ba6.tar.gz | |
gnu: Use 'install-file' instead of 'mkdir-p' and 'copy-file' in obvious cases.
* gnu/packages/bioinformatics.scm (bedtools, bowtie, bwa, hisat, samtools,
plink, star): Use 'install-file' instead of 'mkdir-p' + 'copy-file'.
* gnu/packages/check.scm (catch-framework): Likewise.
* gnu/packages/code.scm (global): Likewise.
* gnu/packages/emacs.scm (magit-svn, haskell-mode, emacs-pdf-tools):
Likewise.
* gnu/packages/engineering.scm (fastcap, fasthenry): Likewise.
* gnu/packages/gnuzilla.scm (nss): Likewise.
* gnu/packages/guile.scm (guile-minikanren): Likewise.
* gnu/packages/java.scm (swt): Likewise.
* gnu/packages/make-bootstrap.scm (%static-binaries): Likewise.
* gnu/packages/maths.scm (lpsolve): Likewise.
* gnu/packages/mp3.scm (mpc123): Likewise.
* gnu/packages/ninja.scm (ninja): Likewise.
* gnu/packages/python.scm (python-numpy, python-pyparsing): Likewise.
* gnu/packages/screen.scm (dtach): Likewise.
* gnu/packages/synergy.scm (synergy): Likewise.
* gnu/packages/textutils.scm (utf8proc): Likewise.
* gnu/packages/version-control.scm (git-test-sequence): Likewise.
* gnu/packages/wicd.scm (wicd): Likewise.
Diffstat (limited to 'gnu/packages/python.scm')
| -rw-r--r-- | gnu/packages/python.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 940efeca64..b588dd649a 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -2784,7 +2784,7 @@ association studies (GWAS) on extremely large data sets.") (tgt-dir (string-append html "/" dir))) (unless (equal? "." dir) (mkdir-p tgt-dir)) - (copy-file file (string-append html "/" file)))) + (install-file file html))) (find-files "." ".*")))))) ,phases))))))) @@ -2828,7 +2828,7 @@ association studies (GWAS) on extremely large data sets.") (for-each (lambda (dir tgt) (map (lambda (file) - (copy-file file (string-append tgt "/" (basename file)))) + (install-file file tgt)) (find-files dir ".*"))) (list "docs" "htmldoc" "examples") (list doc html-doc examples)))) @@ -3140,9 +3140,7 @@ atlas_libs = openblas (for-each (lambda (file) (let* ((dir (dirname file)) (tgt-dir (string-append html "/" dir))) - (unless (equal? "." dir) - (mkdir-p tgt-dir)) - (copy-file file (string-append html "/" file)))) + (install-file file html))) (find-files "." ".*")))))) ;; Tests can only be run after the library has been installed and not ;; within the source directory. |