diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-13 15:05:22 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-13 15:21:20 +0200 |
| commit | 478d1270ce4029b7fe5bfbb369f8e35c57b32ab2 (patch) | |
| tree | cc710c4c9df37afd69e5f25a7156ff47cd469921 /gnu/installer | |
| parent | f292d4719dead6a615187f325fbc0bb0e99d10b4 (diff) | |
install: final: Add some logging.
* gnu/installer/final.scm (umount-cow-store): Add some logging.
Diffstat (limited to 'gnu/installer')
| -rw-r--r-- | gnu/installer/final.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm index e06b104d59b..a742c2a0cd3 100644 --- a/gnu/installer/final.scm +++ b/gnu/installer/final.scm | |||
| @@ -155,6 +155,8 @@ be much appreciated." | |||
| 155 | ;; restart it. | 155 | ;; restart it. |
| 156 | (restart-service 'guix-daemon) | 156 | (restart-service 'guix-daemon) |
| 157 | 157 | ||
| 158 | (syslog "Killing cow users.") | ||
| 159 | |||
| 158 | ;; Kill all processes started while the cow-store was active (logins | 160 | ;; Kill all processes started while the cow-store was active (logins |
| 159 | ;; on other TTYs for instance). | 161 | ;; on other TTYs for instance). |
| 160 | (kill-cow-users tmp-dir) | 162 | (kill-cow-users tmp-dir) |
| @@ -162,6 +164,7 @@ be much appreciated." | |||
| 162 | ;; Try to umount the store overlay. Some process such as udevd | 164 | ;; Try to umount the store overlay. Some process such as udevd |
| 163 | ;; workers might still be active, so do some retries. | 165 | ;; workers might still be active, so do some retries. |
| 164 | (let loop ((try 5)) | 166 | (let loop ((try 5)) |
| 167 | (syslog "Umount try ~a~%" (- 5 try)) | ||
| 165 | (sleep 1) | 168 | (sleep 1) |
| 166 | (let ((umounted? (false-if-exception (umount tmp-dir)))) | 169 | (let ((umounted? (false-if-exception (umount tmp-dir)))) |
| 167 | (if (and (not umounted?) (> try 0)) | 170 | (if (and (not umounted?) (> try 0)) |
