02/18: gnu: tpacpi-bat: Fix cross-compilation.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit e0c434ee729f3275c501512f746facc13e1f956e
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jul 16 02:00:02 2023 +0200

    gnu: tpacpi-bat: Fix cross-compilation.
    
    * gnu/packages/linux.scm (tpacpi-bat)[arguments]: Use SEARCH-INPUT-FILE.
    [inputs]: Add coreutils-minimal.
---
 gnu/packages/linux.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 7f9a835d5f..f3b52b0331 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -6373,10 +6373,10 @@ from userspace.")
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'refer-to-inputs
-           (lambda _
+           (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "tpacpi-bat"
                (("cat ")
-                (format #f "~a " (which "cat")))
+                (string-append (search-input-file inputs "bin/cat") " "))
                ;; tpacpi-bat modprobes the acpi_call kernel module if it's not
                ;; loaded.  That's the administrator's prerogative; disable it.
                (("system \"(modprobe .*)\"" _ match)
@@ -6397,7 +6397,8 @@ from userspace.")
                              (copy-recursively file target)))
                          (list "battery_asl" "examples" "README.md"))))))))
     (inputs
-     (list perl))
+     (list coreutils-minimal
+           perl))
     (home-page "https://github.com/teleshoes/tpacpi-bat";)
     (synopsis "ThinkPad battery charge controller")
     (description