summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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.