ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

install: final: Add some logging.

Browse source 
* gnu/installer/final.scm (umount-cow-store): Add some logging.
This commit is contained in:
Mathieu Othacehe 2020-06-13 15:05:22 +02:00
parent f292d4719d
commit 478d1270ce
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/installer/final.scm
View file

@ -155,6 +155,8 @@ (define (restart-service name)
;; 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 @@ (define (restart-service name)
;; 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))