mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
services: file-systems: Reverse order of unmounting manual mounts.
* gnu/services/base.scm (file-system-shepherd-services): Reverse order of mount-points in service 'user-file-systems. Change-Id: I68df0c22bc6bacdc866b9adf62e7059f20e5842f Signed-off-by: Rutherther <rutherther@ditigal.xyz>
This commit is contained in:
@@ -534,7 +534,8 @@ upon boot."
|
|||||||
(let ((errno (system-error-errno args)))
|
(let ((errno (system-error-errno args)))
|
||||||
(format #t "failed to unmount '~a': ~a~%"
|
(format #t "failed to unmount '~a': ~a~%"
|
||||||
mount-point (strerror errno))))))
|
mount-point (strerror errno))))))
|
||||||
(filter (negate known?) (mount-points)))
|
;; Unmount mount points in reverse order of mounting.
|
||||||
|
(reverse (filter (negate known?) (mount-points))))
|
||||||
#f))))
|
#f))))
|
||||||
|
|
||||||
(cons* sink user-unmount
|
(cons* sink user-unmount
|
||||||
|
|||||||
Reference in New Issue
Block a user