services: activation: Ensure /run existence.
* gnu/build/activation.scm (activation-script): Ensure /var/run existence. * gnu/build/install.scm (evaluate-populate-directive) [directives]: Remove directory /run. Change-Id: I19ca8e7605c0cff598ab89077a94e20390ba27b0 Signed-off-by: Ludovic Courtès <ludo@gnu.org>master
parent
e73db355b1
commit
27ee6f06d0
|
@ -8,6 +8,7 @@
|
||||||
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
|
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
|
||||||
;;; Copyright © 2020 Christine Lemmer-Webber <cwebber@dustycloud.org>
|
;;; Copyright © 2020 Christine Lemmer-Webber <cwebber@dustycloud.org>
|
||||||
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
|
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
|
||||||
|
;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -408,6 +409,7 @@ improvement."
|
||||||
|
|
||||||
(format #t "making '~a' the current system...~%" system)
|
(format #t "making '~a' the current system...~%" system)
|
||||||
|
|
||||||
|
(mkdir-p "/run")
|
||||||
;; Atomically make SYSTEM current.
|
;; Atomically make SYSTEM current.
|
||||||
(let ((new (string-append %current-system ".new")))
|
(let ((new (string-append %current-system ".new")))
|
||||||
(symlink system new)
|
(symlink system new)
|
||||||
|
|
|
@ -135,7 +135,6 @@ STORE."
|
||||||
(directory "/var/guix/gcroots")
|
(directory "/var/guix/gcroots")
|
||||||
(directory "/var/empty") ; for no-login accounts
|
(directory "/var/empty") ; for no-login accounts
|
||||||
(directory "/var/db") ; for dhclient, etc.
|
(directory "/var/db") ; for dhclient, etc.
|
||||||
(directory "/run")
|
|
||||||
(directory "/mnt")
|
(directory "/mnt")
|
||||||
(directory "/var/guix/profiles/per-user/root" 0 0)
|
(directory "/var/guix/profiles/per-user/root" 0 0)
|
||||||
|
|
||||||
|
|
Reference in New Issue