From fa5e6618593feab0c764652cd632f4e1bf6558a2 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Mon, 15 Jan 2018 07:30:03 +0100 Subject: [PATCH] gnu: iniparser: Use INSTALL-FILE. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/samba.scm (iniparser)[arguments]: Simplify ‘install’ phase by replacing COPY-FILE with INSTALL-FILE. --- gnu/packages/samba.scm | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) diff --git a/gnu/packages/samba.scm b/gnu/packages/samba.scm index 88c2df6675..4de8d89219 100644 --- a/gnu/packages/samba.scm +++ b/gnu/packages/samba.scm @@ -124,23 +124,18 @@ (define-public iniparser (inc (string-append out "/include")) (doc (string-append out "/share/doc/" ,name)) (html (string-append doc "/html"))) - (define (copy dir) + (define (install dir) (lambda (file) - (copy-file file - (string-append dir "/" - (basename file))))) - (mkdir-p lib) - (for-each (copy lib) - (find-files "." "^lib.*\\.(so\\.|a)")) + (install-file file dir))) + (for-each (install lib) + (find-files "." "^lib.*\\.so")) (with-directory-excursion lib (symlink "libiniparser.so.0" "libiniparser.so")) - (mkdir-p inc) - (for-each (copy inc) + (for-each (install inc) (find-files "src" "\\.h$")) - (mkdir-p html) - (for-each (copy html) + (for-each (install html) (find-files "html" ".*")) - (for-each (copy doc) + (for-each (install doc) '("AUTHORS" "INSTALL" "LICENSE" "README.md")))))))) (home-page "http://ndevilla.free.fr/iniparser") (synopsis "Standalone ini file parsing library")