~ruther/guix-local: gnu: tlp: Wrap sbin folder

4ba86fd308b1f64deda206235155e577e62025ec — Rutherther 1 year, 3 months ago e04ae1c

gnu: tlp: Wrap sbin folder

Seems that tlp recently introduced sbin
folder, this has broken the wrapping for
tlp script. The tlp script can fail in
finding runtime dependencies.

* gnu/packages/linux.scm (tlp): Wrap sbin folder

Change-Id: Id006f21fb42e385dade732b9d237b045f3a863e7
Signed-off-by: Ian Eure <ian@retrospec.tv>

patch browse .tar.gz

1 files changed, 4 insertions(+), 2 deletions(-)

M gnu/packages/linux.scm

M gnu/packages/linux.scm => gnu/packages/linux.scm +4 -2

@@ 8230,7 8230,9 @@ interface in sysfs, which can be accomplished with the included udev rules.")
           (add-after 'install 'wrap
             (lambda* (#:key inputs outputs #:allow-other-keys)
               (let* ((bin (string-append (assoc-ref outputs "out") "/bin"))
-                     (bin-files (find-files bin ".*")))
+                     (sbin (string-append (assoc-ref outputs "out") "/sbin"))
+                     (bin-files (find-files bin ".*"))
+                     (sbin-files (find-files sbin ".*")))
                 (define (bin-directory input-name)
                   (let ((p (assoc-ref inputs input-name)))
                     (and p (string-append p "/bin"))))


@@ 8260,7 8262,7 @@ interface in sysfs, which can be accomplished with the included udev rules.")
                                                 "pciutils"
                                                 "rfkill"
                                                 "wireless-tools"))))))
-                          bin-files)))))))
+                          (append bin-files sbin-files))))))))
     (home-page "https://linrunner.de/en/tlp/tlp.html")
     (synopsis "Power management tool for Linux")
     (description "TLP is a power management tool for Linux.  It comes with