03/04: services: lightdm: Use ‘make-forkexec-constructor’.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit ae36d514aa011dd9635c9a3817dcb6b0e000be27
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Apr 28 23:37:24 2024 +0200

    services: lightdm: Use ‘make-forkexec-constructor’.
    
    * gnu/services/lightdm.scm (lightdm-shepherd-service)[start]: Use
    ‘make-forkexec-constructor’ directly.
    
    Change-Id: Iaaa8dcde123ea80ce63c09033b681e40ccc589a4
---
 gnu/services/lightdm.scm | 35 +++++++++++++++++------------------
 1 file changed, 17 insertions(+), 18 deletions(-)

diff --git a/gnu/services/lightdm.scm b/gnu/services/lightdm.scm
index b966f402d6..18beaa44de 100644
--- a/gnu/services/lightdm.scm
+++ b/gnu/services/lightdm.scm
@@ -620,24 +620,23 @@ port=" (number->string vnc-server-port) "\n"
     (provision '(lightdm display-manager xorg-server))
     (respawn? #f)
     (start
-     #~(lambda ()
-         ;; Note: sadly, environment variables defined for 'lightdm' are
-         ;; cleared and/or overridden by /etc/profile by its spawned greeters,
-         ;; so an out-of-band means such as /etc is required.
-         (fork+exec-command #$lightdm-command
-                            ;; Lightdm needs itself in its PATH.
-                            #:environment-variables
-                            (list
-                             ;; It knows to look for greeter configurations in
-                             ;; XDG_CONFIG_DIRS...
-                             (string-append "XDG_CONFIG_DIRS="
-                                            #$greeters-config-dir)
-                             ;; ... and for greeter .desktop files as well as
-                             ;; lightdm accountsservice interface in
-                             ;; XDG_DATA_DIRS.
-                             (string-append "XDG_DATA_DIRS="
-                                            #$data-dirs)
-                             (string-append "PATH=" #$lightdm-paths)))))
+     ;; Note: sadly, environment variables defined for 'lightdm' are
+     ;; cleared and/or overridden by /etc/profile by its spawned greeters,
+     ;; so an out-of-band means such as /etc is required.
+     #~(make-forkexec-constructor #$lightdm-command
+                                  ;; Lightdm needs itself in its PATH.
+                                  #:environment-variables
+                                  (list
+                                   ;; It knows to look for greeter
+                                   ;; configurations in XDG_CONFIG_DIRS...
+                                   (string-append "XDG_CONFIG_DIRS="
+                                                  #$greeters-config-dir)
+                                   ;; ... and for greeter .desktop files as
+                                   ;; well as lightdm accountsservice
+                                   ;; interface in XDG_DATA_DIRS.
+                                   (string-append "XDG_DATA_DIRS="
+                                                  #$data-dirs)
+                                   (string-append "PATH=" #$lightdm-paths))))
     (stop #~(make-kill-destructor)))))
 
 (define lightdm-service-type