From 50c8db7f6098993eb1160cb4fba9512dfe38cc89 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Sat, 20 Aug 2022 21:35:57 -0400
Subject: [PATCH] gnu: gdm: Patch dbus-run-session path.

* gnu/packages/gnome.scm (gdm)[phases]{patch-paths}: New phase.
[inputs]: Add dbus.
---
 gnu/packages/gnome.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index e3474e4215..6e971f33c7 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -8434,6 +8434,11 @@ library.")
          "--sbindir" (string-append #$output "/bin"))
       #:phases
       #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-paths
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "daemon/gdm-session.c"
+                (("dbus-run-session")
+                 (search-input-file inputs "bin/dbus-run-session")))))
           (add-before 'configure 'pre-configure
             (lambda* (#:key inputs #:allow-other-keys)
               ;; We don't have <systemd/sd-daemon.h>.
@@ -8574,6 +8579,7 @@ logo='~a'~%" icon))))))
     (inputs
      (list accountsservice
            check                        ;for testing
+           dbus
            elogind
            eudev
            gnome-session