gnu: entr: Update to 4.1.

* gnu/packages/entr.scm (entr): Update to 4.1.
[arguments]: Use INVOKE.
This commit is contained in:
Ricardo Wurmus 2019-01-25 12:09:57 +01:00
parent 7492af9be7
commit fbc70c97c6
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 21 additions and 18 deletions

View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Matthew Jordan <matthewjordandevops@yandex.com> ;;; Copyright © 2016 Matthew Jordan <matthewjordandevops@yandex.com>
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -26,18 +27,19 @@
(define-public entr (define-public entr
(package (package
(name "entr") (name "entr")
(version "3.6") (version "4.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://entrproject.org/code/entr-" (uri (string-append "http://entrproject.org/code/entr-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1sy81np6kgmq04kfn2ckf4fp7jcf5d1963shgmapx3al3kc4c9x4")))) "0y7gvyf0iykpf3gfw09m21hy51m6qn4cpkbrm4nnn7pwrwycj0y5"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:test-target "test" `(#:test-target "test"
#:phases (modify-phases %standard-phases #:phases
(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -46,13 +48,14 @@
(setenv "DESTDIR" (string-append out "/")) (setenv "DESTDIR" (string-append out "/"))
(setenv "PREFIX" "") (setenv "PREFIX" "")
(setenv "MANPREFIX" "man") (setenv "MANPREFIX" "man")
(zero? (system* "./configure"))))) (invoke "./configure"))))
(add-before 'build 'remove-fhs-file-names (add-before 'build 'remove-fhs-file-names
(lambda _ (lambda _
;; Use the tools available in $PATH. ;; Use the tools available in $PATH.
(substitute* "entr.c" (substitute* "entr.c"
(("/bin/cat") "cat") (("/bin/cat") "cat")
(("/usr/bin/clear") "clear"))))))) (("/usr/bin/clear") "clear"))
#t)))))
(home-page "http://entrproject.org/") (home-page "http://entrproject.org/")
(synopsis "Run arbitrary commands when files change") (synopsis "Run arbitrary commands when files change")
(description (description