diff options
author | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-02-19 23:21:12 +0100 |
---|---|---|
committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-02-20 03:01:39 +0100 |
commit | 4082f8ed342b74e8ceee1bc114186a7d9ce352e7 (patch) | |
tree | f5a2533caac6da98a50808445c96b1d0e6c83a01 | |
parent | 5ecc917d5ad8267bf211b5d374ca044afec85204 (diff) | |
download | guix-patches-4082f8ed342b74e8ceee1bc114186a7d9ce352e7.tar guix-patches-4082f8ed342b74e8ceee1bc114186a7d9ce352e7.tar.gz |
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.
-rw-r--r-- | gnu/packages/compression.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index 8f958a385b..03b364d5ca 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 |