From 96c462105627569ae4b82cdc0e0059806f855ba6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 28 Aug 2015 22:22:22 +0200 Subject: 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. --- gnu/packages/maths.scm | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) (limited to 'gnu/packages/maths.scm') diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index 2fc3ce19df..11ffe4e781 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -1828,21 +1828,17 @@ specifications.") (string-append lib "/liblpsolve55.a")) (copy-file "lpsolve55/bin/ux64/liblpsolve55.so" (string-append lib "/liblpsolve55.so")) - (mkdir-p bin) - (copy-file "lp_solve/bin/ux64/lp_solve" - (string-append bin "/lp_solve")) - (mkdir-p include) + (install-file "lp_solve/bin/ux64/lp_solve" bin) + ;; Install a subset of the header files as on Debian ;; (plus lp_bit.h, which matches the regular expression). - (for-each - (lambda (name) - (copy-file name (string-append include "/" name))) - (find-files "." "lp_[HMSa-z].*\\.h$")) + (for-each (lambda (name) + (install-file name include)) + (find-files "." "lp_[HMSa-z].*\\.h$")) (with-directory-excursion "shared" - (for-each - (lambda (name) - (copy-file name (string-append include "/" name))) - (find-files "." "\\.h$"))) + (for-each (lambda (name) + (install-file name include)) + (find-files "." "\\.h$"))) #t)))))) (home-page "http://lpsolve.sourceforge.net/") (synopsis "Mixed integer linear programming (MILP) solver") -- cgit v1.2.3