diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-08-31 19:46:27 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-09-25 16:03:16 +0200 |
| commit | e74d05db53fdf02956ccee0950896c6ca9f10573 (patch) | |
| tree | 277661c94283821f87570b4bf53c9b70c80b7f95 /gnu/services.scm | |
| parent | bd67531b82a72155d02a8d756b0f4fbd6e04c0c5 (diff) | |
| download | guix-e74d05db53fdf02956ccee0950896c6ca9f10573.tar guix-e74d05db53fdf02956ccee0950896c6ca9f10573.tar.gz | |
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
Diffstat (limited to 'gnu/services.scm')
| -rw-r--r-- | gnu/services.scm | 6 |
1 files 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 |