ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 04:59:27 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: lirc: Remove obsolete trailing #t.

Browse source 
* gnu/packages/lirc.scm (lirc)[arguments]:
Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2023-01-15 01:00:00 +01:00
parent ec3226c398
commit 4e4ea85c26
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/lirc.scm
View file

@ -63,16 +63,14 @@ (define-public lirc
;; Correct the faulty assumption that systemd support should be ;; Correct the faulty assumption that systemd support should be
;; hard-wired when a build host's /proc/version contains "Ubuntu". ;; hard-wired when a build host's /proc/version contains "Ubuntu".
(substitute* "configure" (substitute* "configure"
(("kernelversion=.*") "kernelversion=irrelevant\n")) (("kernelversion=.*") "kernelversion=irrelevant\n"))))
#t))
(add-after 'unpack 'patch-lirc-make-devinput (add-after 'unpack 'patch-lirc-make-devinput
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; 'lirc-make-devinput' script assumes that linux headers ;; 'lirc-make-devinput' script assumes that linux headers
;; are placed in "/usr/...". ;; are placed in "/usr/...".
(let ((headers (assoc-ref inputs "kernel-headers"))) (let ((headers (assoc-ref inputs "kernel-headers")))
(substitute* "tools/lirc-make-devinput" (substitute* "tools/lirc-make-devinput"
(("/usr/include") (string-append headers "/include")))) (("/usr/include") (string-append headers "/include"))))))
#t))
(add-after 'unpack 'patch-doc/Makefile.in (add-after 'unpack 'patch-doc/Makefile.in
(lambda _ (lambda _
;; Lirc wants to install several images and a useless html page ;; Lirc wants to install several images and a useless html page
@ -82,8 +80,7 @@ (define-public lirc
;; "share/doc/lirc/images/" anyway). ;; "share/doc/lirc/images/" anyway).
(substitute* "doc/Makefile.in" (substitute* "doc/Makefile.in"
(("^vardocs_DATA =.*") "vardocs_DATA =\n") (("^vardocs_DATA =.*") "vardocs_DATA =\n")
(("^varimage_DATA =.*") "varimage_DATA =\n")) (("^varimage_DATA =.*") "varimage_DATA =\n"))))
#t))
(add-after 'unpack 'omit-pip-sourceball (add-after 'unpack 'omit-pip-sourceball
;; ‘make install’ invokes ’setup.py sdist’, which has no known (to ;; ‘make install’ invokes ’setup.py sdist’, which has no known (to
;; nckx) way to enforce mtimes. The utility of this is questionable, ;; nckx) way to enforce mtimes. The utility of this is questionable,