~ruther/guix-local

b8c02c18b47f79f3410f76cb03d9690e6fd1a15e — Alex Kost 10 years ago 34044d5
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".
2 files changed, 5 insertions(+), 5 deletions(-)

M gnu/build/linux-boot.scm
M gnu/services/base.scm
M gnu/build/linux-boot.scm => gnu/build/linux-boot.scm +4 -4
@@ 242,10 242,10 @@ the last argument of `mknod'."
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)

M gnu/services/base.scm => gnu/services/base.scm +1 -1
@@ 325,7 325,7 @@ in KNOWN-MOUNT-POINTS when it is stopped."
(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