diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-04 14:56:37 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-05 09:04:23 +0200 |
| commit | 7730f41afd90a9c3c83a56adfee09069da66a8e5 (patch) | |
| tree | d9f6e95069d49f6834a57540fe713423f2fdc4fc | |
| parent | 0713929685d2fd1970df1b1ce238ee7bd6e892f8 (diff) | |
| download | 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.scm | 4 |
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) |