installer: final: Add some extra logging.

* gnu/installer/final.scm (kill-cow-users): Log the killed process name,
(umount-cow-store): inform that we are umounting the cow-store.
This commit is contained in:
Mathieu Othacehe 2020-06-04 14:56:37 +02:00
parent 0713929685
commit 7730f41afd
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 3 additions and 1 deletions

View File

@ -128,7 +128,7 @@ USERS."
(match (string-tokenize (read-string port) %not-nul)
((argv0 _ ...)
(unless (member (pk (basename argv0)) spare)
(syslog "Killing process ~a~%" pid)
(syslog "Killing process ~a (~a)~%" pid argv0)
(kill pid SIGKILL)))
(_ #f))))))
pids)))
@ -146,6 +146,8 @@ be much appreciated."
(catch #t
(lambda ()
(let ((tmp-dir "/remove"))
(syslog "Unmounting cow-store.~%")
(mkdir-p tmp-dir)
(mount (%store-directory) tmp-dir "" MS_MOVE)