~ruther/guix-local: services: greetd: Use mkdir-p in activation script.

~ruther/guix-local

4d9eea998b015056a266c46b9a6c4293388680f9 — Dariqq 1 year, 23 days ago 1790ab3

services: greetd: Use mkdir-p in activation script.

Fixes a bug introduced in ee0d1b144c1572433c9475c32c74d61c3be9c058 where
reconfiguring a system with ‘greetd-service-type’ would fail with:

  guix system: error: mkdir: File exists "/run/user".

* gnu/services/base.scm (greetd-run-user-activation): Replace mkdir with mkdir-p.

Change-Id: I030d1f57c3292c518b3f17061f75258e8a72141c

patch browse .tar.gz

1 files changed, 5 insertions(+), 3 deletions(-)

M gnu/services/base.scm

M gnu/services/base.scm => gnu/services/base.scm +5 -3

@@ 3875,9 3875,11 @@ to handle."
            pam))))))
 
 (define (greetd-run-user-activation config)
-  #~(let ((d "/run/user"))
-      (mkdir d #o755)
-      (chmod d #o755)))
+  #~(begin
+      (use-modules (guix build utils))
+      (let ((d "/run/user"))
+        (mkdir-p d)
+        (chmod d #o755))))
 
 (define (greetd-shepherd-services config)
   (map