summaryrefslogtreecommitdiff
path: root/gnu/services.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2024-08-31 21:11:30 +0200
committerLudovic Courtès <ludo@gnu.org>2024-09-25 16:03:20 +0200
commitc250033aa69f35e64949a87fd8482b253dd416b4 (patch)
tree39719aba4883449148eaf597f5d7be9e1368366f /gnu/services.scm
parente74d05db53fdf02956ccee0950896c6ca9f10573 (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.scm5
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.