diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-08-31 21:11:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-09-25 16:03:20 +0200 |
| commit | c250033aa69f35e64949a87fd8482b253dd416b4 (patch) | |
| tree | 39719aba4883449148eaf597f5d7be9e1368366f /gnu/services.scm | |
| parent | e74d05db53fdf02956ccee0950896c6ca9f10573 (diff) | |
services: cleanup: Delete /run upon boot.
Fixes <https://issues.guix.gnu.org/64775>.
* gnu/services.scm (cleanup-gexp): Delete /run and recreate it.
Reported-by: Vagrant Cascadian <vagrant@debian.org>
Change-Id: Iae39f1aa734712a3755b24b156802ec0282d3f14
Diffstat (limited to 'gnu/services.scm')
| -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. |
