[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/04: gnu: lirc: Remove obsolete trailing #t.
From: |
guix-commits |
Subject: |
01/04: gnu: lirc: Remove obsolete trailing #t. |
Date: |
Fri, 20 Jan 2023 12:05:50 -0500 (EST) |
nckx pushed a commit to branch master
in repository guix.
commit 4e4ea85c260a3f668b1ba46be4fc6a6d06aa093c
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jan 15 01:00:00 2023 +0100
gnu: lirc: Remove obsolete trailing #t.
* gnu/packages/lirc.scm (lirc)[arguments]:
Don't explicitly return #t from phases.
---
gnu/packages/lirc.scm | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/gnu/packages/lirc.scm b/gnu/packages/lirc.scm
index a2e542b2ce..c0b5780c30 100644
--- a/gnu/packages/lirc.scm
+++ b/gnu/packages/lirc.scm
@@ -63,16 +63,14 @@
;; Correct the faulty assumption that systemd support should be
;; hard-wired when a build host's /proc/version contains "Ubuntu".
(substitute* "configure"
- (("kernelversion=.*") "kernelversion=irrelevant\n"))
- #t))
+ (("kernelversion=.*") "kernelversion=irrelevant\n"))))
(add-after 'unpack 'patch-lirc-make-devinput
(lambda* (#:key inputs #:allow-other-keys)
;; 'lirc-make-devinput' script assumes that linux headers
;; are placed in "/usr/...".
(let ((headers (assoc-ref inputs "kernel-headers")))
(substitute* "tools/lirc-make-devinput"
- (("/usr/include") (string-append headers "/include"))))
- #t))
+ (("/usr/include") (string-append headers "/include"))))))
(add-after 'unpack 'patch-doc/Makefile.in
(lambda _
;; Lirc wants to install several images and a useless html page
@@ -82,8 +80,7 @@
;; "share/doc/lirc/images/" anyway).
(substitute* "doc/Makefile.in"
(("^vardocs_DATA =.*") "vardocs_DATA =\n")
- (("^varimage_DATA =.*") "varimage_DATA =\n"))
- #t))
+ (("^varimage_DATA =.*") "varimage_DATA =\n"))))
(add-after 'unpack 'omit-pip-sourceball
;; ‘make install’ invokes ’setup.py sdist’, which has no known (to
;; nckx) way to enforce mtimes. The utility of this is
questionable,