04/06: gnu: iniparser: Use INSTALL-FILE.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit fa5e6618593feab0c764652cd632f4e1bf6558a2
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Mon Jan 15 07:30:03 2018 +0100

    gnu: iniparser: Use INSTALL-FILE.
    
    * 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 88c2df6..4de8d89 100644
--- a/gnu/packages/samba.scm
+++ b/gnu/packages/samba.scm
@@ -124,23 +124,18 @@ the Linux kernel CIFS client.")
                     (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")