~ruther/guix-local

48bd76e0099918ad54f41480cff03bf87a1c5ef0 — Ludovic Courtès 11 years ago cd4a3cb
services: user-unmount: Change directory to "/" before unmounting.

* gnu/services/base.scm (user-unmount-service): Add 'chdir' call.
1 files changed, 3 insertions(+), 0 deletions(-)

M gnu/services/base.scm
M gnu/services/base.scm => gnu/services/base.scm +3 -0
@@ 161,6 161,9 @@ in KNOWN-MOUNT-POINTS when it is stopped."
                          (cons* "/proc" "/sys"
                                 '#$known-mount-points)))

                ;; Make sure we don't keep the user's mount points busy.
                (chdir "/")

                (for-each (lambda (mount-point)
                            (format #t "unmounting '~a'...~%" mount-point)
                            (catch 'system-error