From e4e1e16bc1b27684b55e6bf047f9f669e1a0c7b5 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Wed, 23 Oct 2024 23:40:18 +0900 Subject: [PATCH] services: lightdm: Fix activation script and default vnc server command. * gnu/services/lightdm.scm (lightdm-configuration) [vnc-server-command]: Add missing '/' in binary file name.. (%lightdm-activation): Apply 'directory' *variable*, not string, to 'find-files'. Reported-by: Dariqq Change-Id: Iec67051d18026c87800552f9dd3198f065f2dc7d --- gnu/services/lightdm.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/gnu/services/lightdm.scm b/gnu/services/lightdm.scm index 18beaa44de8..798c1065636 100644 --- a/gnu/services/lightdm.scm +++ b/gnu/services/lightdm.scm @@ -364,7 +364,7 @@ When unspecified, listen on for any hosts/IP addresses.") (boolean #f) "Whether a VNC server is started.") (vnc-server-command - (file-like (file-append tigervnc-server "bin/Xvnc")) + (file-like (file-append tigervnc-server "/bin/Xvnc")) "The Xvnc command to use for the VNC server, it's possible to provide extra options not otherwise exposed along the command, for example to disable security: @@ -524,8 +524,7 @@ port=" (number->string vnc-server-port) "\n" (not (= gid (stat:gid st))))) (for-each (lambda (file) (chown file uid gid)) - (find-files "directory" - #:directories? #t))))) + (find-files directory #:directories? #t))))) (when (not (stat "/var/lib/lightdm-data" #f)) (mkdir-p "/var/lib/lightdm-data"))