mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-11 13:49:23 -05:00
Rename '/root/etc/dmd' directory and 'do-not-kill' file.
* gnu/services/base.scm (%do-not-kill-file): Rename to "/etc/shepherd/do-not-kill". * gnu/build/linux-boot.scm (mount-root-file-system): Rename "/root/etc/dmd" to "/root/etc/shepherd".
This commit is contained in:
parent
34044d551f
commit
b8c02c18b4
2 changed files with 5 additions and 5 deletions
|
@ -242,10 +242,10 @@ (define* (mount-root-file-system root type
|
|||
is true, mount ROOT read-only and make it a union with a writable tmpfs using
|
||||
UNIONFS."
|
||||
(define (mark-as-not-killable pid)
|
||||
;; Tell the 'user-processes' dmd service that PID must be kept alive when
|
||||
;; shutting down.
|
||||
(mkdir-p "/root/etc/dmd")
|
||||
(let ((port (open-file "/root/etc/dmd/do-not-kill" "a")))
|
||||
;; Tell the 'user-processes' shepherd service that PID must be kept alive
|
||||
;; when shutting down.
|
||||
(mkdir-p "/root/etc/shepherd")
|
||||
(let ((port (open-file "/root/etc/shepherd/do-not-kill" "a")))
|
||||
(chmod port #o600)
|
||||
(write pid port)
|
||||
(newline port)
|
||||
|
|
|
@ -325,7 +325,7 @@ (define (user-unmount-service known-mount-points)
|
|||
(define %do-not-kill-file
|
||||
;; Name of the file listing PIDs of processes that must survive when halting
|
||||
;; the system. Typical example is user-space file systems.
|
||||
"/etc/dmd/do-not-kill")
|
||||
"/etc/shepherd/do-not-kill")
|
||||
|
||||
(define user-processes-service-type
|
||||
(dmd-service-type
|
||||
|
|
Loading…
Reference in a new issue