aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-06-04 14:56:37 +0200
committerMathieu Othacehe <othacehe@gnu.org>2020-06-05 09:04:23 +0200
commit7730f41afd90a9c3c83a56adfee09069da66a8e5 (patch)
treed9f6e95069d49f6834a57540fe713423f2fdc4fc
parent0713929685d2fd1970df1b1ce238ee7bd6e892f8 (diff)
downloadguix-7730f41afd90a9c3c83a56adfee09069da66a8e5.tar
guix-7730f41afd90a9c3c83a56adfee09069da66a8e5.tar.gz
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.
-rw-r--r--gnu/installer/final.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm
index 4c2da484c9..ece1aff95c 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)