02/06: services: cleanup: Create directories with the right mode upfront.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit e74d05db53fdf02956ccee0950896c6ca9f10573
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Aug 31 19:46:27 2024 +0200

    services: cleanup: Create directories with the right mode upfront.
    
    * gnu/services.scm (cleanup-gexp): Pass mode as second argument to
    ‘mkdir’; remove ‘chmod’ calls.
    
    Change-Id: I8ac2dde0ca5d9bd6b2ef104d77141d8463d8b3fa
---
 gnu/services.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/gnu/services.scm b/gnu/services.scm
index 8d0d5a08b4..4af90de662 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -664,10 +664,8 @@ information is missing, return the empty list (for 
channels) and possibly
            (delete-file-recursively "/tmp")
            (delete-file-recursively "/var/run")
 
-           (mkdir "/tmp")
-           (chmod "/tmp" #o1777)
-           (mkdir "/var/run")
-           (chmod "/var/run" #o755)
+           (mkdir "/tmp" #o1777)
+           (mkdir "/var/run" #o755)
            (delete-file-recursively "/run/udev/watch.old"))))))
 
 (define cleanup-service-type