Archived
1
0
Fork 0

gnu: tlp: Remove obsolete #t returns.

* gnu/packages/linux.scm (tlp)[arguments]:
Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-08 06:28:25 +01:00
parent 7ed3e2606b
commit c612b619cc
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -6956,15 +6956,13 @@ interface in sysfs, which can be accomplished with the included udev rules.")
(setenv "TLP_SHCPL" (setenv "TLP_SHCPL"
(string-append out "/share/bash-completion/completions")) (string-append out "/share/bash-completion/completions"))
(setenv "TLP_MAN" (string-append out "/share/man")) (setenv "TLP_MAN" (string-append out "/share/man"))
(setenv "TLP_META" (string-append out "/share/metainfo")) (setenv "TLP_META" (string-append out "/share/metainfo")))))
#t)))
(add-before 'install 'fix-installation (add-before 'install 'fix-installation
(lambda _ (lambda _
;; Stop the Makefile from trying to create system directories. ;; Stop the Makefile from trying to create system directories.
(substitute* "Makefile" (substitute* "Makefile"
(("\\[ -f \\$\\(_CONFUSR\\) \\]") "#") (("\\[ -f \\$\\(_CONFUSR\\) \\]") "#")
(("install -d -m 755 \\$\\(_VAR\\)") "#")) (("install -d -m 755 \\$\\(_VAR\\)") "#"))))
#t))
(replace 'install (replace 'install
(lambda _ (invoke "make" "install-tlp" "install-man-tlp"))) (lambda _ (invoke "make" "install-tlp" "install-man-tlp")))
(add-after 'install 'wrap (add-after 'install 'wrap
@ -7000,8 +6998,7 @@ interface in sysfs, which can be accomplished with the included udev rules.")
"pciutils" "pciutils"
"rfkill" "rfkill"
"wireless-tools")))))) "wireless-tools"))))))
bin-files) bin-files)))))))
#t))))))
(home-page "https://linrunner.de/en/tlp/tlp.html") (home-page "https://linrunner.de/en/tlp/tlp.html")
(synopsis "Power management tool for Linux") (synopsis "Power management tool for Linux")
(description "TLP is a power management tool for Linux. It comes with (description "TLP is a power management tool for Linux. It comes with