installer: final: Add some extra logging.

[jackhill/guix/guix.git] / gnu / installer / final.scm

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