01/05: gnu: elogind: Remove "uaccess" tag usage in "seat-late" rules.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit f8446df663fecb5aa34e5c6dfa477544d3271d1e
Author: Ludovic Courtès <address@hidden>
Date:   Fri Dec 1 00:04:22 2017 +0100

    gnu: elogind: Remove "uaccess" tag usage in "seat-late" rules.
    
    * gnu/packages/freedesktop.scm (elogind)[arguments]: Add
    'remove-uaccess-tag' phase.
---
 gnu/packages/freedesktop.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 9b6d7fa..fa77fe2 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -278,7 +278,16 @@ the freedesktop.org XDG Base Directory specification.")
                (substitute* (string-append out "/lib/libelogind.la")
                  (("-lcap")
                   (string-append "-L" libcap "/lib -lcap")))
-               #t))))))
+               #t)))
+         (add-after 'unpack 'remove-uaccess-tag
+           (lambda _
+             ;; systemd supports a "uaccess" built-in tag, but eudev currently
+             ;; doesn't.  This leads to eudev warnings that we'd rather not
+             ;; see, so remove the reference to "uaccess."
+             (substitute* "src/login/73-seat-late.rules.in"
+               (("^TAG==\"uaccess\".*" line)
+                (string-append "# " line "\n")))
+             #t)))))
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)