summary refs log tree commit diff
path: root/gnu/packages
diff options
context:
space:
mode:
authorMarius Bakke <mbakke@fastmail.com>2018-07-14 22:11:45 +0200
committerMarius Bakke <mbakke@fastmail.com>2018-07-19 00:52:21 +0200
commit5212c52ce524ebfd78fae5bc68a0499148f3bf80 (patch)
tree500f3bdd561bcdde5d48602019d259888891a917 /gnu/packages
parent49b92a24144b207170703fd09036e893d933997f (diff)
downloadguix-5212c52ce524ebfd78fae5bc68a0499148f3bf80.tar.gz
gnu: bzip2: Simplify phase.
* gnu/packages/compression.scm (bzip2)[arguments]: Use SCANDIR instead of
FIND-FILES when locating the shared library.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/compression.scm20
1 files changed, 10 insertions, 10 deletions
diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm
index d9d15a710d..7453b07eaf 100644
--- a/gnu/packages/compression.scm
+++ b/gnu/packages/compression.scm
@@ -246,6 +246,7 @@ file; as a result, it is often used in conjunction with \"tar\", resulting in
     (arguments
      `(#:modules ((guix build gnu-build-system)
                   (guix build utils)
+                  (ice-9 ftw)
                   (srfi srfi-1))
        #:phases
        (modify-phases %standard-phases
@@ -274,19 +275,18 @@ file; as a result, it is often used in conjunction with \"tar\", resulting in
              ;; it create all the (un)versioned symlinks, so we handle it here.
              (let* ((out    (assoc-ref outputs "out"))
                     (libdir (string-append out "/lib"))
-                    ;; Find the actual library (e.g. "libbz2.so.1.0.6").
-                    (lib (string-drop
-                          (car (find-files
-                                "."
-                                (lambda (file stat)
-                                  (and (string-prefix? "./libbz2.so" file)
-                                       (eq? 'regular (stat:type stat))))))
-                          2))
-                    (soversion (string-drop lib (string-length "libbz2.so."))))
+                    (soname "libbz2.so")
+                    ;; Locate the built library (e.g. "libbz2.so.1.0.6").
+                    (lib (car (scandir "."
+                                       (lambda (file)
+                                         (and (string-prefix? soname file)
+                                              (eq? 'regular
+                                                   (stat:type (lstat file))))))))
+                    (soversion (string-drop lib (+ 1 (string-length soname)))))
                (install-file lib libdir)
                (with-directory-excursion libdir
                  ;; Create symlinks libbz2.so.1 -> libbz2.so.1.0, etc.
-                 (let loop ((base "libbz2.so")
+                 (let loop ((base soname)
                             (numbers (string-split soversion #\.)))
                    (unless (null? numbers)
                      (let ((so-file (string-append base "." (car numbers))))