mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
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>
This commit is contained in:
parent
1cd97066c2
commit
0831c72df6
1 changed files with 3 additions and 3 deletions
|
@ -210,9 +210,9 @@ (define (dbus-activation config)
|
|||
(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~%"
|
||||
|
|
Loading…
Reference in a new issue