diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2024-01-05 09:56:46 +0100 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2024-01-07 17:11:02 +0100 |
| commit | 0831c72df618ef15bee719a0a2ccc123fc31837d (patch) | |
| tree | 6e64bd84005779d7144bb67e48e514a31327f4de /gnu/services/dbus.scm | |
| parent | 1cd97066c2dc84c6e538cfa63820e18f6c12a414 (diff) | |
gnu: dbus-service: only symlink /run/dbus the first time
Due to an error in the nesting of S-Expressions, the re-linking of
/var/run/dbus to /run/dbus would occur even if it was already a
correct symlink. It should only happen if the symlink is different.
* gnu/services/dbus.scm (dbus-activation): Adjust accordingly.
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
Diffstat (limited to 'gnu/services/dbus.scm')
| -rw-r--r-- | gnu/services/dbus.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/services/dbus.scm b/gnu/services/dbus.scm index 1edcc6eb9ed..8dee91a3f7b 100644 --- a/gnu/services/dbus.scm +++ b/gnu/services/dbus.scm @@ -210,9 +210,9 @@ includes the @code{etc/dbus-1/system.d} directories of each package listed in (begin (rename-file (string-append "/var/run/dbus/" next) (string-append "/run/dbus/" next)) - (loop (readdir dir)))))))) - (rmdir "/var/run/dbus") - (symlink "/run/dbus" "/var/run/dbus"))) + (loop (readdir dir))))))) + (rmdir "/var/run/dbus") + (symlink "/run/dbus" "/var/run/dbus")))) (else (format (current-error-port) "Failed to symlink /run/dbus to /var/run/dbus: ~s~%" |