summary refs log tree commit diff
path: root/gnu
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2018-01-15 07:30:03 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2018-01-15 14:58:33 +0100
commitfa5e6618593feab0c764652cd632f4e1bf6558a2 (patch)
tree21b9449692ed1166d43142fe7564eed3ed54f568 /gnu
parentcf52c9255d00323f4b1f11a0279aa28e0bfce624 (diff)
downloadguix-fa5e6618593feab0c764652cd632f4e1bf6558a2.tar.gz
gnu: iniparser: Use INSTALL-FILE.
* gnu/packages/samba.scm (iniparser)[arguments]: Simplify ‘install’ phase by
replacing COPY-FILE with INSTALL-FILE.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/samba.scm19
1 files 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 @@ 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")