12/12: gnu: upx: Clean up.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 7046106ef90e7855311dbb1f1ae9fed3df5cf875
Author: Tobias Geerinckx-Rice <address@hidden>
AuthorDate: Mon Feb 17 04:53:30 2020 +0100

    gnu: upx: Clean up.
    
    * gnu/packages/compression.scm (upx)[arguments]: Combine duplicate
    substitutions.  Replace ‘install’ phase.  Fix indentation.
---
 gnu/packages/compression.scm | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm
index 3f4b99b..0982173 100644
--- a/gnu/packages/compression.scm
+++ b/gnu/packages/compression.scm
@@ -1922,24 +1922,21 @@ decompression is a little bit slower.")
        (list "all")
        #:phases
        (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'check)
-         (delete 'install)
+         (delete 'configure)            ; no configure script
+         (delete 'check)                ; no test suite
          (add-before 'build 'patch-exec-bin-sh
            (lambda _
-             (substitute* (find-files "Makefile")
-               (("/bin/sh") (which "sh")))
-             (substitute* "src/Makefile"
+             (substitute* (list "Makefile"
+                                "src/Makefile")
                (("/bin/sh") (which "sh")))
              #t))
-         (add-after 'build 'install-upx
+         (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
-                   (bin (string-append out "/bin")))
+                    (bin (string-append out "/bin")))
                (mkdir-p bin)
                (copy-file "src/upx.out" (string-append bin "/upx")))
-             #t))
-         )))
+             #t)))))
     (home-page "https://upx.github.io/";)
     (synopsis "Compression tool for executables")
     (description