diff options
Diffstat (limited to 'gnu/services/xorg.scm')
| -rw-r--r-- | gnu/services/xorg.scm | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm index 0cbd9aa53b..3ff290c197 100644 --- a/gnu/services/xorg.scm +++ b/gnu/services/xorg.scm @@ -818,27 +818,6 @@ the GNOME desktop environment.") (home-directory "/var/lib/gdm") (shell (file-append shadow "/sbin/nologin"))))) -(define %gdm-activation - ;; Ensure /var/lib/gdm is owned by the "gdm" user. This is normally the - ;; case but could be wrong if the "gdm" user was created, then removed, and - ;; then recreated under a different UID/GID: <https://bugs.gnu.org/37423>. - (with-imported-modules '((guix build utils)) - #~(begin - (use-modules (guix build utils)) - - (let* ((gdm (getpwnam "gdm")) - (uid (passwd:uid gdm)) - (gid (passwd:gid gdm)) - (st (stat "/var/lib/gdm" #f))) - ;; Recurse into /var/lib/gdm only if it has wrong ownership. - (when (and st - (or (not (= uid (stat:uid st))) - (not (= gid (stat:gid st))))) - (for-each (lambda (file) - (chown file uid gid)) - (find-files "/var/lib/gdm" - #:directories? #t))))))) - (define dbus-daemon-wrapper (program-file "gdm-dbus-wrapper" @@ -1022,8 +1001,6 @@ the GNOME desktop environment.") (extensions (list (service-extension shepherd-root-service-type gdm-shepherd-service) - (service-extension activation-service-type - (const %gdm-activation)) (service-extension account-service-type (const %gdm-accounts)) (service-extension pam-root-service-type |