me
/
guix
Archived
1
0
Fork 0
Code

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.
master
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/installer/final.scm
View File

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