aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-06-13 15:05:22 +0200
committerMathieu Othacehe <othacehe@gnu.org>2020-06-13 15:21:20 +0200
commit478d1270ce4029b7fe5bfbb369f8e35c57b32ab2 (patch)
treecc710c4c9df37afd69e5f25a7156ff47cd469921
parentf292d4719dead6a615187f325fbc0bb0e99d10b4 (diff)
downloadguix-478d1270ce4029b7fe5bfbb369f8e35c57b32ab2.tar
guix-478d1270ce4029b7fe5bfbb369f8e35c57b32ab2.tar.gz
install: final: Add some logging.
* gnu/installer/final.scm (umount-cow-store): Add some logging.
-rw-r--r--gnu/installer/final.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm
index e06b104d59..a742c2a0cd 100644
--- a/gnu/installer/final.scm
+++ b/gnu/installer/final.scm
@@ -155,6 +155,8 @@ be much appreciated."
;; restart it.
(restart-service 'guix-daemon)
+ (syslog "Killing cow users.")
+
;; Kill all processes started while the cow-store was active (logins
;; on other TTYs for instance).
(kill-cow-users tmp-dir)
@@ -162,6 +164,7 @@ be much appreciated."
;; Try to umount the store overlay. Some process such as udevd
;; workers might still be active, so do some retries.
(let loop ((try 5))
+ (syslog "Umount try ~a~%" (- 5 try))
(sleep 1)
(let ((umounted? (false-if-exception (umount tmp-dir))))
(if (and (not umounted?) (> try 0))