diff options
| -rw-r--r-- | gnu/services.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/services.scm b/gnu/services.scm index 4af90de6626..9b7f2641b74 100644 --- a/gnu/services.scm +++ b/gnu/services.scm | |||
| @@ -632,7 +632,7 @@ information is missing, return the empty list (for channels) and possibly | |||
| 632 | #~(begin | 632 | #~(begin |
| 633 | (use-modules (guix build utils)) | 633 | (use-modules (guix build utils)) |
| 634 | 634 | ||
| 635 | ;; Clean out /tmp and /var/run. | 635 | ;; Clean out /tmp, /var/run, and /run. |
| 636 | ;; | 636 | ;; |
| 637 | ;; XXX This needs to happen before service activations, so it | 637 | ;; XXX This needs to happen before service activations, so it |
| 638 | ;; has to be here, but this also implicitly assumes that /tmp | 638 | ;; has to be here, but this also implicitly assumes that /tmp |
| @@ -663,10 +663,11 @@ information is missing, return the empty list (for channels) and possibly | |||
| 663 | (setlocale LC_CTYPE "en_US.utf8") | 663 | (setlocale LC_CTYPE "en_US.utf8") |
| 664 | (delete-file-recursively "/tmp") | 664 | (delete-file-recursively "/tmp") |
| 665 | (delete-file-recursively "/var/run") | 665 | (delete-file-recursively "/var/run") |
| 666 | (delete-file-recursively "/run") | ||
| 666 | 667 | ||
| 667 | (mkdir "/tmp" #o1777) | 668 | (mkdir "/tmp" #o1777) |
| 668 | (mkdir "/var/run" #o755) | 669 | (mkdir "/var/run" #o755) |
| 669 | (delete-file-recursively "/run/udev/watch.old")))))) | 670 | (mkdir "/run" #o755)))))) |
| 670 | 671 | ||
| 671 | (define cleanup-service-type | 672 | (define cleanup-service-type |
| 672 | ;; Service that cleans things up in /tmp and similar. | 673 | ;; Service that cleans things up in /tmp and similar. |
