summary refs log tree commit diff
path: root/gnu/packages
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2020-02-17 04:53:30 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2020-02-17 17:12:57 +0100
commit7046106ef90e7855311dbb1f1ae9fed3df5cf875 (patch)
tree31c29c02c68fd6943a5ffd72bf94c004a6035ecf /gnu/packages
parentb614a2239384c16111e0c03317c9fbeee5728cb2 (diff)
downloadguix-7046106ef90e7855311dbb1f1ae9fed3df5cf875.tar.gz
gnu: upx: Clean up.
* gnu/packages/compression.scm (upx)[arguments]: Combine duplicate
substitutions.  Replace ‘install’ phase.  Fix indentation.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/compression.scm17
1 files changed, 7 insertions, 10 deletions
diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm
index 3f4b99bfcf..0982173b66 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