01/02: installer: final: Add some extra logging.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 7730f41afd90a9c3c83a56adfee09069da66a8e5
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Jun 4 14:56:37 2020 +0200

    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.
---
 gnu/installer/final.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm
index 4c2da48..ece1aff 100644
--- a/gnu/installer/final.scm
+++ b/gnu/installer/final.scm
@@ -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)