~ruther/guix-local: services: file-systems: Reverse order of unmounting manual mounts.

~ruther/guix-local

32988df4931f2bb4d81d15bfcebd8d904cd97845 — Dariqq 2 months ago 9aa7f05

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>

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M gnu/services/base.scm

M gnu/services/base.scm => gnu/services/base.scm +2 -1

@@ 534,7 534,8 @@ upon boot."
                                  (let ((errno (system-error-errno args)))
                                    (format #t "failed to unmount '~a': ~a~%"
                                            mount-point (strerror errno))))))
-                           (filter (negate known?) (mount-points)))
+                           ;; Unmount mount points in reverse order of mounting.
+                           (reverse (filter (negate known?) (mount-points))))
                  #f))))
 
     (cons* sink user-unmount