02/09: gnu: bzip2: Use install-file.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch core-updates
in repository guix.

commit 4082f8ed342b74e8ceee1bc114186a7d9ce352e7
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Mon Feb 19 23:21:12 2018 +0100

    gnu: bzip2: Use install-file.
    
    * gnu/packages/compression.scm (bzip2)[arguments]: Use simpler install-file
    instead of copy-file.  Remove let binding for (now) single-use basename.
---
 gnu/packages/compression.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm
index 8f958a3..03b364d 100644
--- a/gnu/packages/compression.scm
+++ b/gnu/packages/compression.scm
@@ -272,11 +272,9 @@ file; as a result, it is often used in conjunction with 
\"tar\", resulting in
              (let* ((out    (assoc-ref outputs "out"))
                     (libdir (string-append out "/lib")))
                (for-each (lambda (file)
-                           (let ((base (basename file)))
-                             (format #t "installing `~a' to `~a'~%"
-                                     base libdir)
-                             (copy-file file
-                                        (string-append libdir "/" base))))
+                           (format #t "installing `~a' to `~a'~%"
+                                   (basename file) libdir)
+                           (install-file file libdir))
                          (find-files "." "^libbz2\\.so")))
              #t))
          (add-after 'install-shared-lib 'patch-scripts