326/334: build-system/glib-or-gtk: Also wrap executables that are in "sbin".

[guix-commits]

dannym pushed a commit to branch wip-desktop
in repository guix.

commit 85f193a8d403471fc4724d89ca2053605e60bb1e
Author: Danny Milosavljevic <dannym@scratchpost.org>
AuthorDate: Wed Aug 12 13:57:25 2020 +0200

    build-system/glib-or-gtk: Also wrap executables that are in "sbin".
    
    * guix/build/glib-or-gtk-build-system.scm (wrap-all-programs): Also wrap
    executables that are in "sbin".
---
 guix/build/glib-or-gtk-build-system.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/guix/build/glib-or-gtk-build-system.scm 
b/guix/build/glib-or-gtk-build-system.scm
index d69fe66..a41a027 100644
--- a/guix/build/glib-or-gtk-build-system.scm
+++ b/guix/build/glib-or-gtk-build-system.scm
@@ -156,8 +156,10 @@ add a dependency of that output on GLib and GTK+."
      ((output . directory)
       (unless (member output glib-or-gtk-wrap-excluded-outputs)
         (let* ((bindir       (string-append directory "/bin"))
+               (sbindir      (string-append directory "/sbin"))
                (libexecdir   (string-append directory "/libexec"))
                (bin-list     (append (find-files bindir ".*")
+                                     (find-files sbindir ".*")
                                      (find-files libexecdir ".*")))
                (datadirs     (data-directories
                               (alist-cons output directory inputs)))